PtokaX forum

Archive => Archived 5.0 boards => Finished Scripts => Topic started by: plop on 28 February, 2005, 17:45:37

Title: kenny
Post by: plop on 28 February, 2005, 17:45:37
-- PtokaX Lua 5 version by PPK

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 ChatArrival(user, data)
data=string.sub(data,1,string.len(data)-1)
s,e,cmd = string.find(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 = {}
          user:SendData(Bot, " all kennys have gone ! ! !")
return 1
      end
end
        if Kennylizednicks[user.sName] == 1 then
text=kennytext[math.random(1, table.getn(kennytext))]
SendPmToOps("KennySpy", data)
SendToAll(user.sName, text)
return 1
      end
end

function kenylize(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local kennyd = GetItemByName(usr)
    if kennyd == nil then
      user:SendData(Bot,"The User is not in the hub ! ! !")
      else
if Kennylizednicks[kennyd.sName] == nil then
          Kennylizednicks[kennyd.sName] = 1
          user:SendData(Bot,kennyd.sName.." Has been turned in to a Kenny Clone  ! ! !")
      end
    end
end

function Unkenylize(user, data)
local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local kennyd = GetItemByName(usr)
    if kennyd == nil then
      user:SendData(Bot,"The User is not in the hub ! ! !")
    else
      if Kennylizednicks[kennyd.sName] == 1 then
          Kennylizednicks[kennyd.sName] = nil;
          user:SendData(Bot, kennyd.sName.." Has Returned ..")
      end
    end
end

function ShowKennys(user)
local names = ""
for index, value in Kennylizednicks do
local line = index
names = names.." "..line.."\r\n"
end
user:SendData(Bot,"\r\n\r\nKennylised users..\r\n\r\n"..names)

end

plop
Title:
Post by: ??????Hawk?????? on 28 February, 2005, 18:55:00
looks familier   :P  :P  :P
Title:
Post by: bastya_elvtars on 28 February, 2005, 18:58:11
*clearly sees intention to beat competent hubsofts*  :D