READ THE RULES
0 Members and 1 Guest are viewing this topic.
<Dracusorul> _¦ ¦ ¦ ¦ = = = ( )= ///// ¦_¦ ¦ ¦ ¦ ¦ o o ¦ Die fucking PC !!! ¦ ¦ ¦ ( c ) ____ ¦ ¦ ¦ \\ = / ¦¦ \\_ ¦ ¦ ¦ ¦ ¦ ¦ ¦¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ .....¦¦___/¦---'' ¦ ¦ ¦ ¦ ¦ ¦ __¦_______¦____ ¦ ¦ ¦ ¦______________¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ¦ ---------------------¦ ¦ ¦--------------¦ ¦--l l--------------¦ ¦--l-l-----
-- LUA 5 --04/03/05--TiMeTrAVelleRs VersionBot = "[PB]Ares" -- your main bot hereCDFolder = Core.GetPtokaXPath().."scripts/text" -- make folder in your scripts put your ascii thereSendComm = 1 -- Send user command [right click] "1"=yes "0"=notMenu = "Æèâîïèñü" -- ArtBotMenu NameSetTo = { [0] = 1, -- Masters [1] = 1, -- Operators [2] = 1, -- Vips [3] = 1, -- Regs [4] = 0, -- Moderator [5] = 0, -- NetFounder [-1] = 1, -- Users}----------------------------------------------------------------------------------------------------------------------$UserCommand 1 X Where -> 1=Hub Menu 2=User Menu 3=Hub/User Menu --function UserConnected(user) if SendComm == 1 and SetTo[user.iProfile] == 1 then Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\LOL$<%[mynick]> +lol||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Rasta$<%[mynick]> +rasta||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Toast$<%[mynick]> +toast||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Toilet$<%[mynick]> +toilet||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Truck$<%[mynick]> +Truck||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Devil$<%[mynick]> +devil||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Sleep$<%[mynick]> +sleep||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\GoodNight$<%[mynick]> +goodnight||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Dance$<%[mynick]> +dance||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Rabbit$<%[mynick]> +rabbit||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\GoodMorning$<%[mynick]> +goodmorning||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Cookie$<%[mynick]> +cookie||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Hub$<%[mynick]> +hub||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Nice Girl$<%[mynick]> +nicegirl||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\DreamLand$<%[mynick]> +dreamland||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Horse$<%[mynick]> +horse||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Spam$<%[mynick]> +spam||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Bye$<%[mynick]> +bye||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Hello$<%[mynick]> +hello||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Luv$<%[mynick]> +luv||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Play$<%[mynick]> +play||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Rose I$<%[mynick]> +rose||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Rose II$<%[mynick]> +rose2||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Kiss$<%[mynick]> +kiss||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Gnight$<%[mynick]> +gnight||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Lucky$<%[mynick]> +lucky||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Beer$<%[mynick]> +beer||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Faker$<%[mynick]> +faker||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Coffee$<%[mynick]> +coffee||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Flower$<%[mynick]> +flower||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\FunHub$<%[mynick]> +funhub||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Peuk$<%[mynick]> +peuk||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Kissy$<%[mynick]> +kissy||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Gone$<%[mynick]> +gone||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Party$<%[mynick]> +party||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\HappyBirthday$<%[mynick]> +happybirthday||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Hanging$<%[mynick]> +hanging||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Bbl$<%[mynick]> +bbl||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\ItsMe$<%[mynick]> +itsme||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\I Am Busy$<%[mynick]> +busy||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\Fix Pc$<%[mynick]> +pc||") Core.SendToNick(user.sNick,"$UserCommand 1 3 "..tMenu.."\\happynewyear$<%[mynick]> +ng||") endendOpConnected = UserConnectedfunction OnStartup() endfunction ChatArrival(user,data) Core.GetUserAllData(user) data=string.sub(data,1,string.len(data)-1) if( string.sub(data, 1, 1) == "<" ) then s,e,cmd = string.find(data,"%b<>%s+(%S+)") cmd = string.sub(cmd, 1,string.len(cmd)) if io.open(CDFolder.."/"..cmd..".txt",r) ~= nil then showtext(user, cmd) return true end endendfunction showtext(user, file)local contents ="\r\n\r\n" for line in io.lines(CDFolder.."/"..file..".txt") do contents = contents..line.."\r\n" end Core.SendToAll(user.sNick.."\r\n"..contents.."\r\n|")endfunction showtextold(user, cmd)local lines="\r\n\r\n" for line in io.lines(file) do lines = lines..line.."\r\n" end Core.SendPmToNick(user.sNick,Bot, lines.." |")endRegConnected = UserConnected