PtokaX forum

Can i have a bit of help please trying to add right click commands for the following script ..

-- 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
 
So far i have done this  
user:SendData("$UserCommand 1 3 "..xMenu.."\\KENNY\\kenylize$<%[mynick]> !kenny||")
user:SendData("$UserCommand 1 3 "..xMenu.."\\KENNY\\Unkenylize$<%[mynick]> !unkenny||")
user:SendData("$UserCommand 1 3 "..xMenu.."\\KENNY\\Show kenylized users$<%[mynick]> !showkenny||")
user:SendData("$UserCommand 1 3 "..xMenu.."\\KENNY\\unkenny all users$<%[mynick]> !unkennyall||")

but when i try to kenny or unkenny i get disconnected from the hub ?(  the other 2 commands work just fine

QuoteOriginally posted by (uk)jay

Code Select Expand

user:SendData("$UserCommand 1 3 "..xMenu.."\\KENNY\\kenylize$<%[mynick]> !kenny||")
user:SendData("$UserCommand 1 3 "..xMenu.."\\KENNY\\Unkenylize$<%[mynick]> !unkenny||")
user:SendData("$UserCommand 1 3 "..xMenu.."\\KENNY\\Show kenylized users$<%[mynick]> !showkenny||")
user:SendData("$UserCommand 1 3 "..xMenu.."\\KENNY\\unkenny all users$<%[mynick]> !unkennyall||")

but when i try to kenny or unkenny i get disconnected from the hub ?(  the other 2 commands work just fine

first of remove the | from the right clicks
They caouses flooding by some clients ;)
and nect time when posting code... check the Deactivate smileys button ;p

the command is !kenny  so u need to add a %[nick] after the  command...

And a tip... for the lines u add %[nick] on.. change the 3 to a 2 then in only will apper in the userlist menu... and not in the hub tab meny ;)

HEHE thx madman 8)  ......  forgot about the smilies on the script , but well remember next time ..... Gonna try these tips out now  :D

np ;)

I need help again .... how(if possible) can i get this script to work in vip-chat as well as main chat