This version AsciiArtBot I want to find her 0.4.1.1 or 0.4.1.2 for ptokax. When you kiss for example the menu command, and nick is the one who gave. I find this version of the script somewhere? I can help make it functional and 0.4.1.1 or 0.4.1.2 ptokax. ? Below is the script:
-- LUA 5
--04/03/05
--TiMeTrAVelleRs Version
Bot = "[PB]Ares" -- your main bot here
CDFolder = "text" -- make folder in your scripts put your ascii there
SendComm = 1 -- Send user command [right click] "1"=yes "0"=no
tMenu = "-=? Comenzi funny ?=-" -- ArtBotMenu Name
SetTo = {
[0] = 1, -- Masters
[1] = 1, -- Operators
[2] = 1, -- Vips
[3] = 1, -- Regs
[4] = 1, -- Moderator
[5] = 1, -- NetFounder
[6] = 1, -- Owner
[-1] = 1, -- Users
}
--------------------------------------------------------------------------------------------------------------------
--$UserCommand 1 X Where -> 1=Hub Menu 2=User Menu 3=Hub/User Menu
--
function NewUserConnected(user)
if SendComm == 1 and SetTo[user.iProfile] == 1 then
user:SendData("$UserCommand 1 2 "..tMenu.."\\La Revedere$<%[mynick]> +bye||")
user:SendData("$UserCommand 1 3 "..tMenu.."\\Salut$<%[mynick]> +sal||")
user:SendData("$UserCommand 1 3 "..tMenu.."\\Buna Dimineata$<%[mynick]> +bd||")
user:SendData("$UserCommand 1 3 "..tMenu.."\\Noapte Buna$<%[mynick]> +nb||")
user:SendData("$UserCommand 1 3 "..tMenu.."\\BRB$<%[mynick]> +brb||")
end
end
OpConnected = NewUserConnected
function Main()
--frmHub:RegBot(Bot)
end
function ChatArrival(user, data)
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 1
end
end
end
function showtext(user, file)
local contents ="\r\n\r\n"
for line in io.lines(CDFolder.."/"..file..".txt") do
contents = contents..line.."\r\n"
end
SendToAll(user.sName.."\r\n"..contents.."\r\n|")
end
function showtextold(user, cmd)
local lines="\r\n\r\n"
for line in io.lines(file) do
lines = lines..line.."\r\n"
end
user:SendPM(Bot, lines.." |")
end
Please refer to Code Tags when posting script - Psycho_Chihuahua
Thank you very much!