Text only | Text with Images

PtokaX forum

Archive => Archived 4.0 boards => Help with Lua 4 scripts => Topic started by: Markitos on 23 May, 2005, 10:27:02

Title: Little Help
Post by: Markitos on 23 May, 2005, 10:27:02
Can someone help me with a script??? It's an exercise that patthy gave in lesson 3 (How to write ur own BOT). He's always offline...
Here it is:
Code Select
Bot = Keiko

NEWCON = 1



Main(Bot)

frmHub:RegBot(Bot)

end



function NewUserConnected(CurUser)

if NEWCON = 1 then

user:SendData (Bot,"A User has connected")

else

end



function OpConnected(CurUser)

if user.iprofile = 1 then

user:SendData(Bot"Hello "..user.sName.."How are you")

return 1

else

SendToAll("A Op has entered")

end



function Data Arrival(CurUser,data)

if strsub(data, 1, 1) == "<" then

data=strsub(data,1,strlen(data)-1)

s,e,= strfind(data,"%b<>%")



if cmd = "!version" then

user:SendData(Bot,"This bot is Learn to write a bot version: "..version)

return 1

elseif cmd = "!cmd" then

user:SendData(Bot,"This si where the help text wud go, bt im not gonna waste my time :P")

return 1





end

end
I would apreciate if someone modfy it to correct and tell me were i did wrong

Respectfully...
Title:
Post by: Dessamator on 23 May, 2005, 11:17:54
heres the lua4 version :

Code Select
Bot = "Keiko"
NEWCON = 1
version ="keiko v1"

function Main()
frmHub:RegBot(Bot)

end

function NewUserConnected(CurUser)
if NEWCON == 1 then
CurUser:SendData (Bot,"A User has connected")
end
end

function OpConnected(user)

if user.iprofile == 1 then
user:SendData(Bot,"Hello "..user.sName.."How are you")
return 1
else
SendToAll("A Op has entered")
end
end

function DataArrival(CurUser,data)
if strsub(data, 1, 1) == "<" then
data=strsub(data,1,strlen(data)-1)
s,e,cmd= strfind(data,"%b<>%s+(%S+)")

if cmd == "!version" then
CurUser:SendData(Bot,"This bot is Learn to write a bot version: "..version)
return 1
elseif cmd == "!cmd" then
CurUser:SendData(Bot,"This si where the help text wud go, bt im not gonna waste my time :P")
return 1
end
end
end

and lua5 :
Code Select
Bot = "Keiko"
NEWCON = 1
version ="keiko v1"

function Main()
frmHub:RegBot(Bot)

end

function NewUserConnected(CurUser)
if NEWCON == 1 then
CurUser:SendData (Bot,"A User has connected")
end
end

function OpConnected(user)

if user.iprofile == 1 then
user:SendData(Bot,"Hello "..user.sName.."How are you")
return 1
else
SendToAll("A Op has entered")
end
end

function ChatArrival(CurUser,data)
data=string.sub(data,1,string.len(data)-1)
s,e,cmd= string.find(data,"%b<>%s+(%S+)")

if cmd == "!version" then
CurUser:SendData(Bot,"This bot is Learn to write a bot version: "..version)
return 1
elseif cmd == "!cmd" then
CurUser:SendData(Bot,"This si where the help text wud go, bt im not gonna waste my time :P")
return 1
end
end
Title:
Post by: Markitos on 23 May, 2005, 11:40:59
QuoteOriginally posted by Dessamator
heres the lua4 version :

Code Select
Bot = "Keiko"
NEWCON = 1
version ="keiko v1"

function Main()
frmHub:RegBot(Bot)

end

function NewUserConnected(CurUser)
if NEWCON == 1 then
CurUser:SendData (Bot,"A User has connected")
end
end

function OpConnected(CurUser)

if user.iprofile == 1 then
user:SendData(Bot,"Hello "..user.sName.."How are you")
return 1
else
SendToAll("A Op has entered")
end
end

function DataArrival(CurUser,data)
if strsub(data, 1, 1) == "<" then
data=string.sub(data,1,strlen(data)-1)
s,e,cmd= strfind(data,"%b<>%s+(%S+)")

if cmd == "!version" then
CurUser:SendData(Bot,"This bot is Learn to write a bot version: "..version)
return 1
elseif cmd == "!cmd" then
CurUser:SendData(Bot,"This si where the help text wud go, bt im not gonna waste my time :P")
return 1
end
end
end

and lua5 :
Code Select
Bot = "Keiko"
NEWCON = 1
version ="keiko v1"

function Main()
frmHub:RegBot(Bot)

end

function NewUserConnected(CurUser)
if NEWCON == 1 then
CurUser:SendData (Bot,"A User has connected")
end
end

function OpConnected(CurUser)

if user.iprofile == 1 then
user:SendData(Bot,"Hello "..user.sName.."How are you")
return 1
else
SendToAll("A Op has entered")
end
end

function ChatArrival(CurUser,data)
data=string.sub(data,1,string.len(data)-1)
s,e,cmd= string.find(data,"%b<>%s+(%S+)")

if cmd == "!version" then
CurUser:SendData(Bot,"This bot is Learn to write a bot version: "..version)
return 1
elseif cmd == "!cmd" then
CurUser:SendData(Bot,"This si where the help text wud go, bt im not gonna waste my time :P")
return 1
end
end


Thnks Dessamator!!! Gonna pratice to go to lesson 4 :-)


Cheers...
Title:
Post by: Markitos on 23 May, 2005, 12:06:19
QuoteOriginally posted by Markitos
QuoteOriginally posted by Dessamator
heres the lua4 version :

Code Select
Bot = "Keiko"
NEWCON = 1
version ="keiko v1"

function Main()
frmHub:RegBot(Bot)

end

function NewUserConnected(CurUser)
if NEWCON == 1 then
CurUser:SendData (Bot,"A User has connected")
end
end

function OpConnected(CurUser)

if user.iprofile == 1 then
user:SendData(Bot,"Hello "..user.sName.."How are you")
return 1
else
SendToAll("A Op has entered")
end
end

function DataArrival(CurUser,data)
if strsub(data, 1, 1) == "<" then
data=string.sub(data,1,strlen(data)-1)
s,e,cmd= strfind(data,"%b<>%s+(%S+)")

if cmd == "!version" then
CurUser:SendData(Bot,"This bot is Learn to write a bot version: "..version)
return 1
elseif cmd == "!cmd" then
CurUser:SendData(Bot,"This si where the help text wud go, bt im not gonna waste my time :P")
return 1
end
end
end

and lua5 :
Code Select
Bot = "Keiko"
NEWCON = 1
version ="keiko v1"

function Main()
frmHub:RegBot(Bot)

end

function NewUserConnected(CurUser)
if NEWCON == 1 then
CurUser:SendData (Bot,"A User has connected")
end
end

function OpConnected(CurUser)

if user.iprofile == 1 then
user:SendData(Bot,"Hello "..user.sName.."How are you")
return 1
else
SendToAll("A Op has entered")
end
end

function ChatArrival(CurUser,data)
data=string.sub(data,1,string.len(data)-1)
s,e,cmd= string.find(data,"%b<>%s+(%S+)")

if cmd == "!version" then
CurUser:SendData(Bot,"This bot is Learn to write a bot version: "..version)
return 1
elseif cmd == "!cmd" then
CurUser:SendData(Bot,"This si where the help text wud go, bt im not gonna waste my time :P")
return 1
end
end


Thnks Dessamator!!! Gonna pratice to go to lesson 4 :-)


Cheers...
The script doesn't work i get a syntax error "Syntax Error: attempt to index global `string' (a nil value)" when i type !version or !cmd
Title:
Post by: Dessamator on 23 May, 2005, 13:28:13
Done ! post edited
Text only | Text with Images