[Magic] By Phatty - Page 2
 

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

[Magic] By Phatty

Started by pHaTTy, 28 December, 2003, 03:25:29

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages 1 2
User actions

((UKSN))shad_dow

#25
06 August, 2004, 14:37:38
* Embarressed * yw  HellsLittleAngel

yours

shad
creator of Therapy-X? bot

H?LL?L?L??nG?L

#26
06 August, 2004, 14:56:54
:D sighs in contentment....*thinks* a job well done :D

pHaTTy

#27
07 August, 2004, 19:47:50
sorry ive not had time lately but hey im back for an hour :D

--[Magic]
-----------------------------------------------------------------
--v0.71 [Magic] Written by Phatty
--Catagory[Games]
-----------------------------------------------------------------
--- v.072 touched by Herodes 6/8 - 2004
--- Same Category .. :)
-----------------------------------------------------------------
--- v.072 fix by Shad_dow 6/8 - 2004 12:03 pm
--- Same Category .. :)
--- added help and stop functions 
--- all credauts to phatty and Herodes
--- debug bit comment out :) - 	--SendToAll(Bot,"Answer = "..barbossa)
-----------------------------------------------------------------
--- v.073 update by Phatty 6:44am 7th Aug
--- cleaned up code ;)
--- just 1 table ;)
--- just back to lua for about an hour today :D
-----------------------------------------------------------------



_usertbl = {}

erasepoints = 3
Status = 2


function Main()
	Bot = "[Magic]"
	frmHub:RegBot(Bot)
	frmHub:UnregBot(Bot)
	RandStart()
	dVersion = "v0.73"
end

function RandStart()
	
	local randomstart = {
		"Scripts have been rebooted",
		"Warning scripts restarted",
		"It's all [Magic] when scripts restart",
		"Why do these scripts keep restarting",
		"Will you stop restarting scripts :P",
	}

	local tableref = randomstart[random(1,getn(randomstart))]
	SendToAll(BOT,tableref)
end


function MagicStart(level)
	if (Fuxion == 1) then
		MagicStartb(level)
		return 1;
	else 
		SetTimer(1*65432)
		local lvl =
		{
			[1] = { [1] = "easy", [2] = random(3) },
			[2] = { [1] = "medium", [2] = random(10) },
			[3] = { [1] = "hard", [2] = random(20) },
			[4] = { [1] = "unstoppable", [2] = random(60) },
		}
		if lvl[tonumber(level)] then
			SendToAll(Bot,"[Magic] is set to "..lvl[tonumber(level)][1])
			ticker = lvl[tonumber(level)][2]
			Find(ticker)
		else
			SendToAll(Bot, "The level has to be between 1 and 4 ..." )
		end;
	end;
end;

function MagicStartb(level)
	local lvl =
	{
		[1] = { [1] = "easy", [2] = random(3), [3] = 30000, },
		[2] = { [1] = "medium", [2] = random(10), [3] = 35000, },
		[3] = { [1] = "hard", [2] = random(20), [3] = 60000, },
		[4] = { [1] = "unstoppable", [2] = random(60), [3] = 60000, },
	}
	if lvl[tonumber(level)] then
		SendToAll(Bot,"[Magic] is set to "..lvl[tonumber(level)][1])
		ticker = lvl[tonumber(level)][2]
		SetTimer(lvl[tonumber(level)][3])
		Find(ticker)
	else
		SendToAll(Bot, "The level has to be between 1 and 4 ..." )
	end;
end;

function Find(ticker)
	number = random(600)
	--SendToAll(Bot,number.." x "..ticker) --debug
	killer = random(4)
	Translate(killer)
end

function Translate(killer)
	local operation = {
		[1] = { [1] = number + ticker, [2] = 	"Add together "..number.." and "..ticker, },
		[2] = { [1] = number - ticker, [2] = "Subtract "..number.." from "..ticker, },
		[3] = { [1] = number / ticker, [2] = "Divide "..number.." by "..ticker, },
		[4] = { [1] = number * ticker, [2] = "Multiply "..number.." by "..ticker, },
	}
	answer = operation[tonumber(killer)][1]
	SendToAll(Bot, operation[tonumber(killer)][2])

	StartTimer()	
end

function OnTimer()
	StopTimer() -- stop timer be4 its too late

	local insult = {
		"***Failed to input correct answer",
		"***No one was clever to get that answer",
		"***You all are useless morons",
		"***You bunch of MUPPETS!!!",
		"***Useless sods",
	}

	local tableref = insult[random(1,getn(insult))]
	SendToAll(BOT,tableref)

	MagicStart(level)

end

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

		local prefix = "m."

		if prefix.."start" == cmd then
			if not _usertbl[user.sName] then
				SendToAll(Bot,"you must be first logged in")
				return 1
			else 
				local s,e,cmd,level = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
				if nil == level then
					SendToAll(Bot,"remember to select a level m.start ")
					return 1
				else 
					SendToAll(Bot,"[Magic] has been started")
					MagicStart(level)
					return 1;
				end;
			end;

		elseif prefix.."stop" == cmd then
			StopTimer()
			SendToAll(Bot,"[Magic] has been stopped")
			return 1;

		elseif prefix.."login" == cmd then
			if 1 == _usertbl[user.sName] then
				user:SendData(Bot,"You can't log in twice :P")
				return 1;
			else 
				user:SendData(Bot,"You have succesfully logged into [Magic]")
				_usertbl[user.sName] = {}
				_usertbl[user.sName][2] = 0;
				return 1;
			end;	
		elseif prefix.."score" == cmd then
			user:SendData(BOT,_usertbl[user.sName][2])
			return 1;
		elseif prefix.."version" == cmd then
			SendToAll("---------=========================================================------")
			SendToAll(Bot,"../// This Hub is running Phatty's [Magic] "..dVersion.." ( Herodes remix ) \\\..")
			SendToAll("---------=========================================================------")
			return 1

                  elseif prefix.."help" == cmd then
			user:SendData(Bot,"---------====================================================================------")
			user:SendData(Bot,"---------="..prefix.."login   -------------------- Logins u in to magic     =------")
			user:SendData(Bot,"---------="..prefix.."start [Lvevel] ------------- Starts Magic Level 1/2/3 =------")
			user:SendData(Bot,"---------="..prefix.."stop   --------------------- Stops magic              =------")
			user:SendData(Bot,"---------="..prefix.."score   -------------------- Shows Score              =------")
			user:SendData(Bot,"---------="..prefix.."version   ------------------ Shows Script version     =------")
			user:SendData(Bot,"---------= a (number)  --------------------------- Answer [Example  a 676 ] =------")
			user:SendData(Bot,"---------="..prefix.."help ----------------------- This Help                =------")
			user:SendData(BOT,"---------====================================================================------")
			return 1;

		elseif "a" == cmd then
			if 1 == _usertbl[user.sName] then
				local s,e,useranswer = strfind(data,"%b<>%sa%s(%S+)")
				if tonumber(useranswer) ~= answer then
					SendToAll(Bot,"Incorrect")
					if _usertbl[user.sName][2] < erasepoints then
						user:SendPM(Bot,"You have zero score so i cant take points away from u, so i will disconnect you instead :P")
						user:Disconnect()
					else
						_usertbl[user.sName][2] = _usertbl[user.sName][2] - erasepoints
					end;
				else 
					SendToAll(Bot,"***"..user.sName.." scores "..ticker.." point(s)")
					if nil == _usertbl[user.sName][2] or 0 == _usertbl[user.sName][2] then
						_usertbl[user.sName][2] = ticker
					else	
						_usertbl[user.sName][2] = _usertbl[user.sName][2] + ticker
					end;
					SendToAll(Bot, "Now, "..user.sName.." has ".._usertbl[user.sName][2].." points")
					StopTimer()
					MagicStart(level)
				end
			else 
				user:SendData(Bot,"Please login first, type "..prefix.."help")
				return 1;
			end;
		end;
	end;
end;
Resistance is futile!

pHaTTy

#28
07 August, 2004, 19:58:22 
--- [Magic]
-----------------------------------------------------------------
--- v0.71 [Magic] Written by Phatty
--- Catagory[Games]
-----------------------------------------------------------------
--- v.072 touched by Herodes 6/8 - 2004
--- Same Category .. :)
-----------------------------------------------------------------
--- v.072 fix by Shad_dow 6/8 - 2004 12:03 pm
--- Same Category .. :)
--- added help and stop functions 
--- all credauts to phatty and Herodes
--- debug bit comment out :) - 	--SendToAll(Bot,"Answer = "..barbossa)
-----------------------------------------------------------------
--- v.073 update by Phatty 6:44am 7th Aug
--- cleaned up code ;)
--- just 1 table ;)
--- just back to lua for about an hour today :D
-----------------------------------------------------------------
--- v.074 update by Phatty 6:44am 7th Aug
--- Silly mistake fixed ;)
--- save function and command auto save in later ptokax m.save ;)
-----------------------------------------------------------------


filecheckx = openfile("table.txt", "r")
if filecheckx then
	assert(dofile("table.txt"))
	closefile(filecheckx)
else
	Inbox = {}
	closefile(filecheckx)
end

_usertbl = {}

erasepoints = 3
Status = 2


function Main()
	Bot = "[Magic]"
	frmHub:RegBot(Bot)
	frmHub:UnregBot(Bot)
	RandStart()
	dVersion = "v0.73"
end

function RandStart()
	
	local randomstart = {
		"Scripts have been rebooted",
		"Warning scripts restarted",
		"It's all [Magic] when scripts restart",
		"Why do these scripts keep restarting",
		"Will you stop restarting scripts :P",
	}

	local tableref = randomstart[random(1,getn(randomstart))]
	SendToAll(BOT,tableref)
end


function MagicStart(level)
	if (Status == 1) then
		MagicStartb(level)
		return 1;
	else 
		SetTimer(1*65432)
		local lvl =
		{
			[1] = { [1] = "easy", [2] = random(3) },
			[2] = { [1] = "medium", [2] = random(10) },
			[3] = { [1] = "hard", [2] = random(20) },
			[4] = { [1] = "unstoppable", [2] = random(60) },
		}
		if lvl[tonumber(level)] then
			SendToAll(Bot,"[Magic] is set to "..lvl[tonumber(level)][1])
			ticker = lvl[tonumber(level)][2]
			Find(ticker)
		else
			SendToAll(Bot, "The level has to be between 1 and 4 ..." )
		end;
	end;
end;

function MagicStartb(level)
	local lvl =
	{
		[1] = { [1] = "easy", [2] = random(3), [3] = 30000, },
		[2] = { [1] = "medium", [2] = random(10), [3] = 35000, },
		[3] = { [1] = "hard", [2] = random(20), [3] = 60000, },
		[4] = { [1] = "unstoppable", [2] = random(60), [3] = 60000, },
	}
	if lvl[tonumber(level)] then
		SendToAll(Bot,"[Magic] is set to "..lvl[tonumber(level)][1])
		ticker = lvl[tonumber(level)][2]
		SetTimer(lvl[tonumber(level)][3])
		Find(ticker)
	else
		SendToAll(Bot, "The level has to be between 1 and 4 ..." )
	end;
end;

function Find(ticker)
	number = random(600)
	--SendToAll(Bot,number.." x "..ticker) --debug
	killer = random(4)
	Translate(killer)
end

function Translate(killer)
	local operation = {
		[1] = { [1] = number + ticker, [2] = 	"Add together "..number.." and "..ticker, },
		[2] = { [1] = number - ticker, [2] = "Subtract "..number.." from "..ticker, },
		[3] = { [1] = number / ticker, [2] = "Divide "..number.." by "..ticker, },
		[4] = { [1] = number * ticker, [2] = "Multiply "..number.." by "..ticker, },
	}
	answer = operation[tonumber(killer)][1]
	SendToAll(Bot, operation[tonumber(killer)][2])

	StartTimer()	
end

function OnTimer()
	StopTimer() -- stop timer be4 its too late

	local insult = {
		"***Failed to input correct answer",
		"***No one was clever to get that answer",
		"***You all are useless morons",
		"***You bunch of MUPPETS!!!",
		"***Useless sods",
	}

	local tableref = insult[random(1,getn(insult))]
	SendToAll(BOT,tableref)

	MagicStart(level)

end

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

		local prefix = "m."

		if prefix.."start" == cmd then
			if not _usertbl[user.sName] then
				SendToAll(Bot,"you must be first logged in")
				return 1
			else 
				local s,e,cmd,level = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
				if nil == level then
					SendToAll(Bot,"remember to select a level m.start ")
					return 1
				else 
					SendToAll(Bot,"[Magic] has been started")
					MagicStart(level)
					return 1;
				end;
			end;

		elseif prefix.."stop" == cmd then
			StopTimer()
			SendToAll(Bot,"[Magic] has been stopped")
			return 1;

		elseif prefix.."login" == cmd then
			if _usertbl[user.sName] then
				user:SendData(Bot,"You can't log in twice :P")
				return 1;
			else 
				user:SendData(Bot,"You have succesfully logged into [Magic]")
				_usertbl[user.sName] = {}
				tinsert (_usertbl, 2, 0)
				return 1;
			end;	
		elseif prefix.."score" == cmd then
			user:SendData(BOT,_usertbl[user.sName][2])
			return 1;
		elseif prefix.."version" == cmd then
			SendToAll("---------=========================================================------")
			SendToAll(Bot,"../// This Hub is running Phatty's [Magic] "..dVersion.." ( Herodes remix ) \\\..")
			SendToAll("---------=========================================================------")
			return 1

		elseif prefix.."help" == cmd then
			user:SendData(Bot,"---------====================================================================------")
			user:SendData(Bot,"---------="..prefix.."login   -------------------- Logins u in to magic     =------")
			user:SendData(Bot,"---------="..prefix.."start [Lvevel] ------------- Starts Magic Level 1/2/3 =------")
			user:SendData(Bot,"---------="..prefix.."stop   --------------------- Stops magic              =------")
			user:SendData(Bot,"---------="..prefix.."score   -------------------- Shows Score              =------")
			user:SendData(Bot,"---------="..prefix.."version   ------------------ Shows Script version     =------")
			user:SendData(Bot,"---------= a (number)  --------------------------- Answer [Example  a 676 ] =------")
			user:SendData(Bot,"---------="..prefix.."help ----------------------- This Help                =------")
			user:SendData(BOT,"---------====================================================================------")
			return 1;

		elseif prefix.."save" == cmd then
			Save()
			return 1;

		elseif "a" == cmd then
			if _usertbl[user.sName] then
				local s,e,useranswer = strfind(data,"%b<>%sa%s(%S+)")
				if tonumber(useranswer) ~= answer then
					SendToAll(Bot,"Incorrect")
					if _usertbl[user.sName][2] < erasepoints then
						user:SendPM(Bot,"You have zero score so i cant take points away from u, so i will disconnect you instead :P")
						user:Disconnect()
					else
						_usertbl[user.sName][2] = _usertbl[user.sName][2] - erasepoints
					end;
				else 
					SendToAll(Bot,"***"..user.sName.." scores "..ticker.." point(s)")
					if nil == _usertbl[user.sName][2] or 0 == _usertbl[user.sName][2] then
						_usertbl[user.sName][2] = ticker
					else	
						_usertbl[user.sName][2] = _usertbl[user.sName][2] + ticker
					end;
					SendToAll(Bot, "Now, "..user.sName.." has ".._usertbl[user.sName][2].." points")
					StopTimer()
					MagicStart(level)
				end
			else 
				user:SendData(Bot,"Please login first, type "..prefix.."help")
				return 1;
			end;
		end;
	end;
end;

function OnExit()
	Save()
end;

function Save()
	writeto("table.txt")
	write("_usertbl = {\n")
	for a,b in _usertbl do
		write("\t[\""..a.."\"] = {"..b.."},\n")
	end;
	write("}")
	writeto()
end;
Resistance is futile!

pHaTTy

#29
07 August, 2004, 20:22:05 
--- [Magic]
-----------------------------------------------------------------
--- v0.71 [Magic] Written by Phatty
--- Catagory[Games]
-----------------------------------------------------------------
--- v.072 touched by Herodes 6/8 - 2004
--- Same Category .. :)
-----------------------------------------------------------------
--- v.072 fix by Shad_dow 6/8 - 2004 12:03 pm
--- Same Category .. :)
--- added help and stop functions 
--- all credauts to phatty and Herodes
--- debug bit comment out :) - 	--SendToAll(BOT,"Answer = "..barbossa)
-----------------------------------------------------------------
--- v.073 update by Phatty 6:44am 7th Aug
--- cleaned up code ;)
--- just 1 table ;)
--- just back to lua for about an hour today :D
-----------------------------------------------------------------
--- v.074 update by Phatty 6:46am 7th Aug
--- Silly mistake fixed ;)
--- save function and command auto save in later ptokax m.save ;)
-----------------------------------------------------------------
--- v.075 update by Phatty 7:20am 7th Aug
--- dumb ass fixes
-----------------------------------------------------------------


'create file table.txt inside the text _usertbl = {}

filecheckx = openfile("table.txt", "r")
if filecheckx then
	assert(dofile("table.txt"))
	closefile(filecheckx)
else
	_usertbl = {}
end

erasepoints = 3
Status = 2
nlevel = 1


function Main()
	BOT = "[Magic]"
	frmHub:RegBot(BOT)
	frmHub:UnregBot(BOT)
	RandStart()
	dVersion = "v0.75"
end

function RandStart()
	
	local randomstart = {
		"Scripts have been rebooted",
		"Warning scripts restarted",
		"It's all [Magic] when scripts restart",
		"Why do these scripts keep restarting",
		"Will you stop restarting scripts :P",
	}

	local tableref = randomstart[random(1,getn(randomstart))]
	SendToAll(BOT,tableref)
end


function MagicStart(level)
	if (Status == 1) then
		MagicStartb(level)
		return 1;
	else 
		SetTimer(1*65432)
		local lvl =
		{
			[1] = { [1] = "easy", [2] = random(3) },
			[2] = { [1] = "medium", [2] = random(10) },
			[3] = { [1] = "hard", [2] = random(20) },
			[4] = { [1] = "unstoppable", [2] = random(60) },
		}
		if lvl[tonumber(level)] then
			SendToAll(BOT,"[Magic] is set to "..lvl[tonumber(level)][1])
			ticker = lvl[tonumber(level)][2]
			Find(ticker)
		else
			SendToAll(BOT, "The level has to be between 1 and 4 ..." )
		end;
	end;
end;

function MagicStartb(level)
	local lvl =
	{
		[1] = { [1] = "easy", [2] = random(3), [3] = 30000, },
		[2] = { [1] = "medium", [2] = random(10), [3] = 35000, },
		[3] = { [1] = "hard", [2] = random(20), [3] = 60000, },
		[4] = { [1] = "unstoppable", [2] = random(60), [3] = 60000, },
	}
	if lvl[tonumber(level)] then
		SendToAll(BOT,"[Magic] is set to "..lvl[tonumber(level)][1])
		ticker = lvl[tonumber(level)][2]
		SetTimer(lvl[tonumber(level)][3])
		Find(ticker)
	else
		SendToAll(BOT, "The level has to be between 1 and 4 ..." )
	end;
end;

function Find(ticker)
	number = random(600)
	--SendToAll(BOT,number.." x "..ticker) --debug
	killer = random(4)
	Translate(killer)
end

function Translate(killer)
	local operation = {
		[1] = { [1] = number + ticker, [2] = 	"Add together "..number.." and "..ticker, },
		[2] = { [1] = number - ticker, [2] = "Subtract "..number.." from "..ticker, },
		[3] = { [1] = number / ticker, [2] = "Divide "..number.." by "..ticker, },
		[4] = { [1] = number * ticker, [2] = "Multiply "..number.." by "..ticker, },
	}
	answer = operation[tonumber(killer)][1]
	SendToAll(BOT, operation[tonumber(killer)][2])

	StartTimer()	
end

function OnTimer()
	StopTimer() -- stop timer be4 its too late

	local insult = {
		"***Failed to input correct answer",
		"***No one was clever to get that answer",
		"***You all are useless morons",
		"***You bunch of MUPPETS!!!",
		"***Useless sods",
	}

	local tableref = insult[random(1,getn(insult))]
	SendToAll(BOT,tableref)

	MagicStart(level)

end

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

		local prefix = "m."

		if prefix.."start" == cmd then
			if not _usertbl[user.sName] then
				SendToAll(BOT,"you must be first logged in")
				return 1
			else 
				local s,e,cmd,level = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
				if nil == level then
					SendToAll(BOT,"remember to select a level m.start ")
					return 1
				else 
					SendToAll(BOT,"[Magic] has been started")
					nlevel = level
					MagicStart(level)
					return 1;
				end;
			end;

		elseif prefix.."stop" == cmd then
			StopTimer()
			SendToAll(BOT,"[Magic] has been stopped")
			return 1;

		elseif prefix.."login" == cmd then
			if _usertbl[user.sName] == 0 then
				user:SendData(BOT,"You can't log in twice :P")
				return 1;
			else 
				user:SendData(BOT,"You have succesfully logged into [Magic]")
				_usertbl[user.sName] = {}
				tinsert (_usertbl, 2, 0)
				return 1;
			end;	
		elseif prefix.."score" == cmd then
			user:SendData(BOT,_usertbl[user.sName][2])
			return 1;
		elseif prefix.."version" == cmd then
			SendToAll("---------=========================================================------")
			SendToAll(BOT,"../// This Hub is running Phatty's [Magic] "..dVersion.." ( Herodes remix ) \\\..")
			SendToAll("---------=========================================================------")
			return 1

		elseif prefix.."help" == cmd then
			user:SendData(BOT,"---------====================================================================------")
			user:SendData(BOT,"---------="..prefix.."login   -------------------- Logins u in to magic     =------")
			user:SendData(BOT,"---------="..prefix.."start [Lvevel] ------------- Starts Magic Level 1/2/3 =------")
			user:SendData(BOT,"---------="..prefix.."stop   --------------------- Stops magic              =------")
			user:SendData(BOT,"---------="..prefix.."score   -------------------- Shows Score              =------")
			user:SendData(BOT,"---------="..prefix.."version   ------------------ Shows Script version     =------")
			user:SendData(BOT,"---------= a (number)  --------------------------- Answer [Example  a 676 ] =------")
			user:SendData(BOT,"---------="..prefix.."help ----------------------- This Help                =------")
			user:SendData(BOT,"---------====================================================================------")
			return 1;

		elseif prefix.."save" == cmd then
			Save()
			return 1;

		elseif "a" == cmd then
			if _usertbl[user.sName] == 0 then
				local s,e,useranswer = strfind(data,"%b<>%sa%s(%S+)")
				if tonumber(useranswer) ~= answer then
					SendToAll(BOT,"Incorrect")
					if _usertbl[user.sName][2] < erasepoints then
						user:SendPM(BOT,"You have zero score so i cant take points away from u, so i will disconnect you instead :P")
						user:Disconnect()
					else
						_usertbl[user.sName][2] = _usertbl[user.sName][2] - erasepoints
					end;
				else 
					SendToAll(BOT,"***"..user.sName.." scores "..ticker.." point(s)")
					if nil == _usertbl[user.sName][2] or 0 == _usertbl[user.sName][2] then
						_usertbl[user.sName][2] = ticker
					else	
						_usertbl[user.sName][2] = _usertbl[user.sName][2] + ticker
					end;
					SendToAll(BOT, "Now, "..user.sName.." has ".._usertbl[user.sName][2].." points")
					StopTimer()
					MagicStart(nlevel)
				end
			else 
				user:SendData(BOT,"Please login first, type "..prefix.."help")
				return 1;
			end;
		end;
	end;
end;

function OnExit()
	Save()
end;

function Save()
	writeto("table.txt")
	write("_usertbl = {\n")
	for a,b in _usertbl do
		write("\t[\""..a.."\"] = {"..b.."},\n")
	end;
	write("}")
	writeto()
end;
Resistance is futile!

Herodes

#30
07 August, 2004, 20:57:41
Hey phatty .. nice going ;)

pHaTTy

#31
08 August, 2004, 19:27:39
QuoteOriginally posted by Herodes
Hey phatty .. nice going ;)

:D
Resistance is futile!

((UKSN))shad_dow

#32
08 August, 2004, 22:54:02
lo phatty

nice to see ya still keeping magic alive :D

yours

shad
creator of Therapy-X? bot
Print
Go Up Pages 1 2
User actions
SMF spam blocked by CleanTalk