Text only | Text with Images

PtokaX forum

Archive => Archived 4.0 boards => Help with Lua 4 scripts => Topic started by: 6Marilyn6Manson6 on 06 May, 2005, 08:36:09

Title: Help With LUA 4 Command
Post by: 6Marilyn6Manson6 on 06 May, 2005, 08:36:09
Hello, I have small problem...

in file command.lua I have this string

Code Select
-- MODERATOR COMMANDS --
["mt"] = function(curUser,data) DoMutes(curUser,data) end,
}
and in functions.lua i have this functions:

Code Select
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 ]
Title:
Post by: Dessamator on 06 May, 2005, 11:06:00
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::

Code Select
if (strsub(data,1,1) == "<") then
& this ::
Code Select
s,e,cmd = strfind(data,"%b<>%s+(%S+)")

and since thats a function why dont u send the :
Code Select
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)"
Title:
Post by: 6Marilyn6Manson6 on 06 May, 2005, 11:27:11
I have this script:

Code Select
-- 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)

endand I want added command !kenny and !unkenny in me functions file and recall this 2 function in commands file.

this is command.lua:

Code Select
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,
}
Title:
Post by: 6Marilyn6Manson6 on 06 May, 2005, 11:29:17
and this is functions of moderator:

Code Select
------------------------------
--=[ 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
Title:
Post by: 6Marilyn6Manson6 on 06 May, 2005, 11:38:53
Now I have fuse it and I have this situations... command file is:

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

Code Select
------------------------------
--=[ 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 :)
Title:
Post by: Dessamator on 06 May, 2005, 12:24:38
try it like this :
Code Select
-- 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
Title:
Post by: 6Marilyn6Manson6 on 06 May, 2005, 13:31:12
Code Select
-- 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
Title:
Post by: Dessamator on 06 May, 2005, 14:56:36
QuoteOriginally posted by 6Marilyn6Manson6
Code Select
-- 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
Title:
Post by: 6Marilyn6Manson6 on 06 May, 2005, 15:02:19
Thanks for help ;)
Title:
Post by: Dessamator on 06 May, 2005, 17:14:39
yw
Text only | Text with Images