Help With LUA 4 Command
 

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

Help With LUA 4 Command

Started by 6Marilyn6Manson6, 06 May, 2005, 08:36:09

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

6Marilyn6Manson6

06 May, 2005, 08:36:09 Last Edit: 06 May, 2005, 08:36:30 by 6Marilyn6Manson6
Hello, I have small problem...

in file command.lua I have this string

-- MODERATOR COMMANDS --
["mt"] = function(curUser,data) DoMutes(curUser,data) end,
}

and in functions.lua i have this functions:

function DoMutes(curUser,data)
if (strsub(data,1,1) == "<") then
   	data=strsub(data,1,strlen(data)-1)
   	s,e,cmd = strfind(data,"%b<>%s+(%S+)")
	local s,e,cmd,usr = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
	local Muted = GetItemByName(usr)
   		if Muted == nil then
      			curUser:SendData(BotName,"The User is not in the hub ! ! !")
      		else
			if Mutes[Muted.sName] == nil then
         			Mutes[Muted.sName] = 1
         			SendToAll(BotName,Muted.sName.." Has been Muted ! ! !")
					end
      			end
   		end
end

my problem is: If I use command !mt nick I receave always   (BotName,"The User is not in the hub ! ! !")   and not   (BotName,Muted.sName.." Has been Muted ! ! !") with mute... What is me error in function DoMutes??? thanks a lot :) [ if I resolve this problem I resolve it in 7 functions :P ]

Dessamator

#1
06 May, 2005, 11:06:00 Last Edit: 06 May, 2005, 11:13:45 by Dessamator
well that function is all wrong, its trying to find the things  which the chatarrival  does by default or in this case should be done in "DataArrival",this::

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

& this ::
s,e,cmd = strfind(data,"%b<>%s+(%S+)")


and since thats a function why dont u send the :
local s,e,cmd,usr = strfind(data,"%b<>%s+(%S+)%s+(%S+)")


directly from the chatarrival,
and then use the function like "Domutes(curUser,usr)"
Ignorance is Bliss.

6Marilyn6Manson6

#2
06 May, 2005, 11:27:11
I have this script:

-- Kenny Script by ??????Hawk??????
--  31-03-04

Bot = "Kenny"

kennytext = { 
"*umfl* *uuffum*",
"*lluu* *mlmlff* *umfl* *lfumfl* *umfl*",
"*lmmf* *uullu* *mmmm*",
"*ommlu* *uullu* *lmmf* *ommlu* *mflf*",
"*olomum* *lmmf* *mhhhmmlm*",
"*Mhhl* *mujm* *umfl*",
} 
Kennylizednicks = {}

function Main()
	frmHub:RegBot(Bot)
end

function DataArrival(user, data)
   	if (strsub(data,1,1) == "<") then
   		data=strsub(data,1,strlen(data)-1)
   		s,e,cmd = strfind(data,"%b<>%s+(%S+)")
			if user.bOperator then
      				if (cmd=="!kenny") then
         				kenylize(user, data)
					return 1
      				elseif (cmd=="!unkenny") then
         				Unkenylize(user, data)
					return 1
      				elseif (cmd=="!showkenny") then
					ShowKennys(user)
					return 1
      				elseif (cmd=="!unkennyall") then
					Kennylizednicks = {}
         				SendToAll(Bot, "Tutti gli user sono stati: unKennylize. ! ! !")
					return 1
      				end
			end
      				if strsub(data,1,1) == "<" then
         				if Kennylizednicks[user.sName] == 1 then
						text=kennytext[random(1, getn(kennytext))]
						SendToAll(user.sName, text)
						return 1
         				end
      				end
   		end
end

function kenylize(user, data)
	local s,e,cmd,usr = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
   		if kennyd == nil then
      			user:SendData(Bot," Quest'user non ? presente nell'Hub. ! ! !")
      		else
			if Kennylizednicks[kennyd.sName] == nil then
         			Kennylizednicks[kennyd.sName] = 1
         			SendToAll(Bot,kennyd.sName.." ha subito il: Kennylize. ! ! !")
      			end
   		end
end

function Unkenylize(user, data)
	local s,e,cmd,usr = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
   		if kennyd == nil then
      			user:SendData(Bot," Quest'user non ? presente nell'Hub. ! ! !")
   		else
      			if Kennylizednicks[kennyd.sName] == 1 then
         			Kennylizednicks[kennyd.sName] = nil;
         			SendToAll(Bot, kennyd.sName.." ? stato liberato dal: Kennylize. ! ! !")
      			end
   		end
end


function ShowKennys(user)
	local names = ""
		for index, value in Kennylizednicks do
			local line = index
			names = names.." "..line.."\r\n"
		end
	user:SendPM(Bot,"\r\n\r\nKennylised users..\r\n\r\n"..names)
		
end
and I want added command !kenny and !unkenny in me functions file and recall this 2 function in commands file.

this is command.lua:

UserCom = {
-- USER COMMANDS --
["slap"] = function(curUser,data) DoSlap(curUser,data) end,
["help"] =  function(curUser,data) DoHelp(curUser) end,
["away"] = function(curUser,data) DoAway(curUser, data, cmd) end,
["back"] =  function(curUser,data) DoBack(curUser) end,
["showaways"] =  function(curUser,data) ShowAwayUsers(curUser, data) end,
["myinfo"] =  function(curUser,data) DoMyInfo(curUser, data) end,
["hubinfo"] =  function(curUser,data) HubInfo(curUser, data) end,
["showregs"] = function(curUser,data) ShowRegs(curUser, data) end,
["showvips"] =  function(curUser,data) ShowVips(curUser, data) end,
["showstaff"] =  function(curUser,data) ShowStaff(curUser, data) end,
["share"] = function(curUser,data) ShowShare(curUser,data) end,
["myip"] = function(curUser,data) MyIP(curUser,data) end,
["!"] = function(curUser,data) curUser:SendPM(BotName,"You called upon me "..curUser.sName.." what can I do for you ?") end,
["mytime"] = function(curUser,data) MyTime(curUser,data) end,
["toptimers"] = function(curUser,data) TopTimers(curUser,data) end,
["uptime"] = function(curUser,data) UpTime(curUser,data) end,
["albums"] = function(curUser,data) GetAlbums(curUser,data) end,
["newalbums"] = function(curUser,data) NewAlbums(curUser,data) end,
[COMMAND] = function(curUser,data) if ARMC==1 and curUser.iProfile==-1 then RegMe(curUser,data) end end,
}
-- REG COMMANDS --
RegCom = {
["changepass"] = function(curUser,data) NewPass(curUser,data) end,
}
-- VIP COMMANDS --
VipCom = {
["welcome"] = function(curUser,data) OwnWelcome(curUser,data) end,
}
OpeCom = {
--OPERATOR COMMANDS --
["kick"] = function(curUser,data) doKick(curUser,data) end,
["ban"] = function(curUser,data) doBan(curUser,data) end,
["kill"] = function(curUser,data) doKill(curUser,data) end,
["drop"] = function(curUser,data) doDrop(curUser,data) end,
["warn"] = function(curUser,data) doWarnUser(curUser,data) end,
["deluser"] = function(curUser,data) dodeluser(curUser,data) end,
["adduser"] = function(curUser,data) RegisterUser(curUser,data) end,
["timeban"] = function(curUser,data) dotimeban(curUser,data) end,
["mmops"] = function(curUser,data) MassMsgOps(curUser,data) end,
["mmvips"] = function(curUser,data) MassMsgVips(curUser,data) end,
["mmregs"] = function(curUser,data) MassMsgRegs(curUser,data) end,
["mm"] = function(curUser,data) MassMsgAll(curUser,data) end,
["findban"] = function(curUser,data) ReadBanLog(curUser,data) end,
["info"] = function(curUser,data) DoInfo(curUser,data) end,
["online"] = function(curUser,data) DoOnline(curUser,data) end,
["topkickers"] = function(curUser,data) TopKicks(curUser,data) end,
["cleartemp"] = function(curUser,data) ClearTempBan() curUser:SD(BotName,"Temporary ban list has been cleared") end,
["getbans"] = function(curUser,data) GetBans(curUser,data) end,
["addalbum"] = function(curUser,data) AddAlbum(curUser,data) end,
["delalbum"] = function(curUser,data) DelAlbums(curUser,data) end,
["reloadalbums"] = function(curUser,data) ReloadAlbums(curUser,data) end,
}
ModCom = {
-- MODERATOR COMMANDS --
["redirectallnow"] = function(curUser,data) DoRedAll(curUser,data) end,
["getpass"] = function(curUser,data) GetPassword(curUser,data) end,
["whois"] = function(curUser,data) DoWhois(curUser,data,1) end,
}
MasCom = {
-- MASTER COMMANDS --
["banrange"] = function(curUser,data) checknban(curUser,data) end,
["unbanrange"] = function(curUser,data) unbanrange(curUser,data) end,
["chhubname"] = function(curUser,data) DoChHubName(curUser,data) end,
["chdesc"] = function(curUser,data) DoChDesc(curUser,data) end,
["chmaxusers"] = function(curUser,data) DoChMaxUsers(curUser,data) end,
["chredfull"] = function(curUser,data) DoChRedFull(curUser,data) end,
["chredall"] = function(curUser,data) DoSetRedirectFull(curUser,data) end,
["hubstats"] = function(curUser,data) DoStatus(curUser,data) end,
["resetcounters"] = function(curUser,data) ResetCounters(curUser,data) end,
["clean"] = function(curUser,data) CleanUsers() end,
}

-- Built-In Commands --
BINCOM = {
-- OPERATOR COMMANDS --
["unban"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
["nickban"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
["getbanlist"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
["op"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
-- MASTER COMMANDS --
["stat"] = function(curUser,data) if curUser.iProfile==0 then BuiltInCom(curUser,data) end end,
["restart"] = function(curUser,data) if curUser.iProfile==0 then SaveToFile(MyInfoFile , UserInfo , "UserInfo")  end end,
["restartscripts"] = function(curUser,data) if curUser.iProfile==0 then SaveToFile(MyInfoFile , UserInfo , "UserInfo") end end,
["clrpermban"] = function(curUser,data) if curUser.iProfile==0 then end end,
["banip"] = function (curUser,data) if curUser.bOperator then doBanIP(curUser,data) end end,
["gag"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
["ungag"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
["topic"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
}

6Marilyn6Manson6

#3
06 May, 2005, 11:29:17 Last Edit: 06 May, 2005, 11:30:24 by 6Marilyn6Manson6
and this is functions of moderator:

------------------------------
	--=[ MODERATOR FUNCTIONS
	------------------------------
-- Redirect All Users --
function DoRedAll(curUser,data)
	curUser:SD(BotName, " are redirecting all users to: "..frmHub:GetRedirectAddress())
	SendToAll(BotName, "Redirecting... |$ForceMove "..frmHub:GetRedirectAddress().."|")
end
-- Get Password --
function GetPassword(curUser,data)
	local _,_,cmd,nick = strfind( data, "%b<>%s+(%S+)%s+(%S+)" )
	if (nick == nil or nick == "") then 
		curUser:SD(BotName,CmdErrorMsg.." "..Prefix1.."getpass :"..CmdErrorPar)
		return 1
	end
	if nick then
		local ViewOne = ""
		LoadRegistredFile(RegTable,RegFile)
		for sNick,sPassword in RegTable do
			if strlower(nick) == strlower(sNick) then
				curUser:SD(BotName,"Nick: "..nick)
				curUser:SD(BotName,"Password: "..sPassword)
				ViewOne = 1
			end
		end
		if ViewOne == "" then
			curUser:SD(BotName,"Searching:\r\nNick: "..nick.." \r\nPassword: Not Found")
		end
	end

	if not nick then
		curUser:SD(BotName,CmdErrorMsg.." "..Prefix.."getpass :"..CmdErrorPar)
		return 1
	end
end
-- WhoIs Ripe.Net --
function DoWhois(curUser,data,num)
	local _,_,_,str1 = strfind( data,"%b<>%s+(%S+)%s+(%S+)%s*")
	if (str1 == nil or str1 == "") then 
		curUser:SD(BotName,CmdErrorMsg.." "..Prefix1.."whois :"..CmdErrorPar)
		return 1
	end
	if str1 and GetItemByName(str1) then
		str1 = GetItemByName(str1).sIP
	elseif str1 and not GetItemByName(str1) then
		local _,_,a,b,c,d = strfind(str1,"(%d*).(%d*).(%d*).(%d*)")
		if (a == "" or b == "" or c == "" or d == "") then
			curUser:SD(BotName,CmdErrorMsg.." "..Prefix1.."whois :"..CmdErrorPar)
			return 1
		end
	else
		curUser:SD(BotName,CmdErrorMsg.." "..Prefix1.."whois :"..CmdErrorPar)
		return 1
	end
	local socket,err,Database = "","",""
	if num==1 then
		Database = "RIPE"
		socket, err = connect("whois.ripe.net", 43)
	end
	curUser:SD(BotName,"Checking the "..Database.."-Database for  "..str1.."  ...")
	local msg = "\r\n"
	if not err then
		local line = ""
		socket:timeout(2)
		err = socket:send(str1..strchar(13, 10))
		while not err do
			line, err = socket:receive("*l")
			if (line ~= "" and strsub(line, 1, 1) ~= "%" and strsub(line,strlen(line),strlen(line)) ~= strchar(124)) then
				msg = msg.."\t"..line.."\r\n"
			end
		end socket:close()
	end
	msg = msg.."\r\n\tDone...\r\n"
	curUser:SD(BotName,"\r\n"..msg)
end

.... what I do for added functions   kenylize(user, data)   and   unkenylize(user, data) in this me functions file? I want fuse command of first script in this function file and recall new functions in command file. What I do? thanks

6Marilyn6Manson6

#4
06 May, 2005, 11:38:53 Last Edit: 06 May, 2005, 11:40:03 by 6Marilyn6Manson6
Now I have fuse it and I have this situations... command file is:

UserCom = {
-- USER COMMANDS --
["slap"] = function(curUser,data) DoSlap(curUser,data) end,
["help"] =  function(curUser,data) DoHelp(curUser) end,
["away"] = function(curUser,data) DoAway(curUser, data, cmd) end,
["back"] =  function(curUser,data) DoBack(curUser) end,
["showaways"] =  function(curUser,data) ShowAwayUsers(curUser, data) end,
["myinfo"] =  function(curUser,data) DoMyInfo(curUser, data) end,
["hubinfo"] =  function(curUser,data) HubInfo(curUser, data) end,
["showregs"] = function(curUser,data) ShowRegs(curUser, data) end,
["showvips"] =  function(curUser,data) ShowVips(curUser, data) end,
["showstaff"] =  function(curUser,data) ShowStaff(curUser, data) end,
["share"] = function(curUser,data) ShowShare(curUser,data) end,
["myip"] = function(curUser,data) MyIP(curUser,data) end,
["!"] = function(curUser,data) curUser:SendPM(BotName,"You called upon me "..curUser.sName.." what can I do for you ?") end,
["mytime"] = function(curUser,data) MyTime(curUser,data) end,
["toptimers"] = function(curUser,data) TopTimers(curUser,data) end,
["uptime"] = function(curUser,data) UpTime(curUser,data) end,
["albums"] = function(curUser,data) GetAlbums(curUser,data) end,
["newalbums"] = function(curUser,data) NewAlbums(curUser,data) end,
[COMMAND] = function(curUser,data) if ARMC==1 and curUser.iProfile==-1 then RegMe(curUser,data) end end,
}
-- REG COMMANDS --
RegCom = {
["changepass"] = function(curUser,data) NewPass(curUser,data) end,
}
-- VIP COMMANDS --
VipCom = {
["welcome"] = function(curUser,data) OwnWelcome(curUser,data) end,
}
OpeCom = {
--OPERATOR COMMANDS --
["kick"] = function(curUser,data) doKick(curUser,data) end,
["ban"] = function(curUser,data) doBan(curUser,data) end,
["kill"] = function(curUser,data) doKill(curUser,data) end,
["drop"] = function(curUser,data) doDrop(curUser,data) end,
["warn"] = function(curUser,data) doWarnUser(curUser,data) end,
["deluser"] = function(curUser,data) dodeluser(curUser,data) end,
["adduser"] = function(curUser,data) RegisterUser(curUser,data) end,
["timeban"] = function(curUser,data) dotimeban(curUser,data) end,
["mmops"] = function(curUser,data) MassMsgOps(curUser,data) end,
["mmvips"] = function(curUser,data) MassMsgVips(curUser,data) end,
["mmregs"] = function(curUser,data) MassMsgRegs(curUser,data) end,
["mm"] = function(curUser,data) MassMsgAll(curUser,data) end,
["findban"] = function(curUser,data) ReadBanLog(curUser,data) end,
["info"] = function(curUser,data) DoInfo(curUser,data) end,
["online"] = function(curUser,data) DoOnline(curUser,data) end,
["topkickers"] = function(curUser,data) TopKicks(curUser,data) end,
["cleartemp"] = function(curUser,data) ClearTempBan() curUser:SD(BotName,"Temporary ban list has been cleared") end,
["getbans"] = function(curUser,data) GetBans(curUser,data) end,
["addalbum"] = function(curUser,data) AddAlbum(curUser,data) end,
["delalbum"] = function(curUser,data) DelAlbums(curUser,data) end,
["reloadalbums"] = function(curUser,data) ReloadAlbums(curUser,data) end,
}
ModCom = {
-- MODERATOR COMMANDS --
["redirectallnow"] = function(curUser,data) DoRedAll(curUser,data) end,
["getpass"] = function(curUser,data) GetPassword(curUser,data) end,
["whois"] = function(curUser,data) DoWhois(curUser,data,1) end,
["kenny"] = function(curUser,data) kenylize(curUser,data) end,
}
MasCom = {
-- MASTER COMMANDS --
["banrange"] = function(curUser,data) checknban(curUser,data) end,
["unbanrange"] = function(curUser,data) unbanrange(curUser,data) end,
["chhubname"] = function(curUser,data) DoChHubName(curUser,data) end,
["chdesc"] = function(curUser,data) DoChDesc(curUser,data) end,
["chmaxusers"] = function(curUser,data) DoChMaxUsers(curUser,data) end,
["chredfull"] = function(curUser,data) DoChRedFull(curUser,data) end,
["chredall"] = function(curUser,data) DoSetRedirectFull(curUser,data) end,
["hubstats"] = function(curUser,data) DoStatus(curUser,data) end,
["resetcounters"] = function(curUser,data) ResetCounters(curUser,data) end,
["clean"] = function(curUser,data) CleanUsers() end,
}

-- Built-In Commands --
BINCOM = {
-- OPERATOR COMMANDS --
["unban"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
["nickban"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
["getbanlist"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
["op"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
-- MASTER COMMANDS --
["stat"] = function(curUser,data) if curUser.iProfile==0 then BuiltInCom(curUser,data) end end,
["restart"] = function(curUser,data) if curUser.iProfile==0 then SaveToFile(MyInfoFile , UserInfo , "UserInfo")  end end,
["restartscripts"] = function(curUser,data) if curUser.iProfile==0 then SaveToFile(MyInfoFile , UserInfo , "UserInfo") end end,
["clrpermban"] = function(curUser,data) if curUser.iProfile==0 then end end,
["banip"] = function (curUser,data) if curUser.bOperator then doBanIP(curUser,data) end end,
["gag"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
["ungag"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
["topic"] = function(curUser,data) if curUser.bOperator then BuiltInCom(curUser,data) end end,
}

and functions file is:

------------------------------
	--=[ MODERATOR FUNCTIONS
	------------------------------
-- Redirect All Users --
function DoRedAll(curUser,data)
	curUser:SD(BotName, " are redirecting all users to: "..frmHub:GetRedirectAddress())
	SendToAll(BotName, "Redirecting... |$ForceMove "..frmHub:GetRedirectAddress().."|")
end
-- Get Password --
function GetPassword(curUser,data)
	local _,_,cmd,nick = strfind( data, "%b<>%s+(%S+)%s+(%S+)" )
	if (nick == nil or nick == "") then 
		curUser:SD(BotName,CmdErrorMsg.." "..Prefix1.."getpass :"..CmdErrorPar)
		return 1
	end
	if nick then
		local ViewOne = ""
		LoadRegistredFile(RegTable,RegFile)
		for sNick,sPassword in RegTable do
			if strlower(nick) == strlower(sNick) then
				curUser:SD(BotName,"Nick: "..nick)
				curUser:SD(BotName,"Password: "..sPassword)
				ViewOne = 1
			end
		end
		if ViewOne == "" then
			curUser:SD(BotName,"Searching:\r\nNick: "..nick.." \r\nPassword: Not Found")
		end
	end

	if not nick then
		curUser:SD(BotName,CmdErrorMsg.." "..Prefix.."getpass :"..CmdErrorPar)
		return 1
	end
end
-- WhoIs Ripe.Net --
function DoWhois(curUser,data,num)
	local _,_,_,str1 = strfind( data,"%b<>%s+(%S+)%s+(%S+)%s*")
	if (str1 == nil or str1 == "") then 
		curUser:SD(BotName,CmdErrorMsg.." "..Prefix1.."whois :"..CmdErrorPar)
		return 1
	end
	if str1 and GetItemByName(str1) then
		str1 = GetItemByName(str1).sIP
	elseif str1 and not GetItemByName(str1) then
		local _,_,a,b,c,d = strfind(str1,"(%d*).(%d*).(%d*).(%d*)")
		if (a == "" or b == "" or c == "" or d == "") then
			curUser:SD(BotName,CmdErrorMsg.." "..Prefix1.."whois :"..CmdErrorPar)
			return 1
		end
	else
		curUser:SD(BotName,CmdErrorMsg.." "..Prefix1.."whois :"..CmdErrorPar)
		return 1
	end
	local socket,err,Database = "","",""
	if num==1 then
		Database = "RIPE"
		socket, err = connect("whois.ripe.net", 43)
	end
	curUser:SD(BotName,"Checking the "..Database.."-Database for  "..str1.."  ...")
	local msg = "\r\n"
	if not err then
		local line = ""
		socket:timeout(2)
		err = socket:send(str1..strchar(13, 10))
		while not err do
			line, err = socket:receive("*l")
			if (line ~= "" and strsub(line, 1, 1) ~= "%" and strsub(line,strlen(line),strlen(line)) ~= strchar(124)) then
				msg = msg.."\t"..line.."\r\n"
			end
		end socket:close()
	end
	msg = msg.."\r\n\tDone...\r\n"
	curUser:SD(BotName,"\r\n"..msg)
end
-- Here Start Cpmmand Kenny
kennytext = { 
"*umfl* *uuffum*",
"*lluu* *mlmlff* *umfl* *lfumfl* *umfl*",
"*lmmf* *uullu* *mmmm*",
"*ommlu* *uullu* *lmmf* *ommlu* *mflf*",
"*olomum* *lmmf* *mhhhmmlm*",
"*Mhhl* *mujm* *umfl*",
} 
Kennylizednicks = {}
-- Kennylize user
function kenylize(curUser,data)
if (strsub(data,1,1) == "<") then
   	data=strsub(data,1,strlen(data)-1)
   	s,e,cmd = strfind(data,"%b<>%s+(%S+)")
	local s,e,cmd,usr = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
   		if kennyd == nil then
      			curUser:SendData(BotName," User not found. ! ! !")
      		else
			if Kennylizednicks[kennyd.sName] == nil then
         			Kennylizednicks[kennyd.sName] = 1
         			SendToAll(BotName,kennyd.sName.." have kenny. ! ! !")
         			end
      			end
   		end
end

but.. if I want kennylize user I receive (BotName," User not found. ! ! !") and not (BotName,kennyd.sName.." have kenny. ! ! !")..... don't find user... why??? Thanks :)

Dessamator

#5
06 May, 2005, 12:24:38 Last Edit: 06 May, 2005, 14:54:55 by Dessamator
try it like this :
-- Here Start Cpmmand Kenny
kennytext = { 
"*umfl* *uuffum*",
"*lluu* *mlmlff* *umfl* *lfumfl* *umfl*",
"*lmmf* *uullu* *mmmm*",
"*ommlu* *uullu* *lmmf* *ommlu* *mflf*",
"*olomum* *lmmf* *mhhhmmlm*",
"*Mhhl* *mujm* *umfl*",
} 
Kennylizednicks = {}

-- Kennylize user

function kenylize(curUser,data)
local s,e,cmd,usr = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
local kennyd = GetItemByName(usr)
   if kennyd == nil then
      curUser:SendData(BotName," User not found. ! ! !")
      elseif Kennylizednicks[kennyd.sName] == nil then
        Kennylizednicks[kennyd.sName] = 1
         SendToAll(BotName,kennyd.sName.." have kenny. ! ! !")
         end
      end
   end
end
Ignorance is Bliss.

6Marilyn6Manson6

#6
06 May, 2005, 13:31:12 
-- Kennylize User
function kenylize(curUser,data)
	local s,e,cmd,usr = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
	if kennyd == nil then
		curUser:SendData(Bot," The User is not in the hub ! ! !")
	elseif Kennylizednicks[kennyd.sName] == nil then
		Kennylizednicks[kennyd.sName] = 1
		SendToAll(BotName,kennyd.sName.." Has been turned in to a Kenny Clone ... ! ! !")
	end
end

this is correct ;) c ya

Dessamator

#7
06 May, 2005, 14:56:36
QuoteOriginally posted by 6Marilyn6Manson6 
-- Kennylize User
function kenylize(curUser,data)
	local s,e,cmd,usr = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
	if kennyd == nil then
		curUser:SendData(Bot," The User is not in the hub ! ! !")
	elseif Kennylizednicks[kennyd.sName] == nil then
		Kennylizednicks[kennyd.sName] = 1
		SendToAll(BotName,kennyd.sName.." Has been turned in to a Kenny Clone ... ! ! !")
	end
end

this is correct ;) c ya
indeed
Ignorance is Bliss.

6Marilyn6Manson6

#8
06 May, 2005, 15:02:19
Thanks for help ;)

Dessamator

#9
06 May, 2005, 17:14:39
yw
Ignorance is Bliss.
Print
Go Up Pages1
User actions
SMF spam blocked by CleanTalk