Little Help
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

Little Help

Started by Markitos, 23 May, 2005, 10:27:02

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

Markitos

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:
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...

Dessamator

#1
23 May, 2005, 11:17:54 Last Edit: 23 May, 2005, 13:27:04 by Dessamator
heres the lua4 version :

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 :
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
Ignorance is Bliss.

Markitos

#2
23 May, 2005, 11:40:59
QuoteOriginally posted by Dessamator
heres the lua4 version :

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 :
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...

Markitos

#3
23 May, 2005, 12:06:19
QuoteOriginally posted by Markitos
QuoteOriginally posted by Dessamator
heres the lua4 version :

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 :
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

Dessamator

#4
23 May, 2005, 13:28:13
Done ! post edited
Ignorance is Bliss.
Print
Go Up Pages1
User actions
SMF spam blocked by CleanTalk