Text only | Text with Images

PtokaX forum

Archive => Archived 5.0 boards => Request for scripts => Topic started by: (-=TrIp-iN-SuN=-) on 19 April, 2005, 19:39:41

Title: same one can to convert to lua 5?
Post by: (-=TrIp-iN-SuN=-) on 19 April, 2005, 19:39:41
same one can to help me convert this script to lua 5?

--==NewCommand==--
if cmd == "!pull" then
SendToAll("*** " ..curUser.sName.. " is pulling faces at you .. :P ")
return 1
end
--==NewCommand==--
if cmd == "!mood" then
SendToAll("*** " ..curUser.sName.. " is in a good mood...HURRAY ")
return 1
end
--==NewCommand==--
if cmd == "!relax" then
SendToAll("*** " ..curUser.sName.. " is kicking back,relaxing for a change ")
return 1
end
--==NewCommand==--
if cmd == "!murder" then
SendToAll("*** " ..curUser.sName.. " is about to murder you ... haha ")
return 1
end
--==NewCommand==--
if cmd == "!scream" then
SendToAll("*** " ..curUser.sName.. " wants to scream out .... AAARRRRGGGGHHHHH ")
return 1
end
--==NewCommand==--
if cmd == "!tv" then
SendToAll("*** " ..curUser.sName.. " is watching television ")
return 1
end
--==NewCommand==--
if cmd == "!ignore" then
SendToAll("*** " ..curUser.sName.. " is ignoring you,so leave alone ")
return 1
end
--==NewCommand==--
if cmd == "!bed" then
SendToAll("*** " ..curUser.sName.. " night night all, ZZZZZZZzzzzzzzzz ")
return 1
end
--==NewCommand==--
if cmd == "!bad" then
SendToAll("*** " ..curUser.sName.. " is having a bad day ... so sod off ")
return 1
end


--==NewVictimCommand==--
if cmd == "!machine-gun" then
local s,e,victim = strfind(data, "%b<>%s+%S+%s+(%S+)")
if victim == nil then
curUser:SendData(Bot, "Syntax: "..cmd.." nick")
return 1
end
vUser = GetItemByName(victim)
if not vUser then
curUser:SendData(Bot, " *** " ..victim.." is not online or wrong name...")
return 1
end
SendToAll("*** "..curUser.sName.." picks up a AK47 and shoots "..vUser.sName.." in the ASS!")
return 1
end
--==NewVictimCommand==--
if cmd == "!spy" then --//The Command...
local s,e,victim = strfind(data, "%b<>%s+%S+%s+(%S+)")
if victim == nil then --//Forgot Nick?
curUser:SendData(Bot, "Syntax: "..cmd.." nick") --//If So Send This
return 1
end
vUser = GetItemByName(victim) --//vUser And Victim Is The Same
if not vUser then
curUser:SendData(Bot, " *** " ..victim.." is not online or wrong name...") --//Wrong Name
return 1
end
SendToAll("*** "..curUser.sName.." spies on "..vUser.sName.." so watch your step.")--//Do To A User
return 1
end
--==NewVictimCommand==--
if cmd == "!snog" then --//The Command...
local s,e,victim = strfind(data, "%b<>%s+%S+%s+(%S+)")
if victim == nil then --//Forgot Nick?
curUser:SendData(Bot, "Syntax: "..cmd.." nick") --//If So Send This
return 1
end
vUser = GetItemByName(victim) --//vUser And Victim Is The Same
if not vUser then
curUser:SendData(Bot, " *** " ..victim.." is not online or wrong name...") --//Wrong Name
return 1
end
SendToAll("*** "..curUser.sName.." is snogging the face off "..vUser.sName.." ")--//Do To A User
return 1
end
--==NewCommand==--
if cmd == "!suicide" or cmd == "!suicide" then
curUser:SendData(Bot, "Run's out the front door screaming and jumps infront of bus!!!!")
curUser:Disconnect()
return 1
end

curUser:SendData("$UserCommand 1 2 FunScript\\Do To A User\\Snog User$<%[mynick]> !snog %[nick]||")
curUser:SendData("$UserCommand 1 2 FunScript\\Do To A User\\Machine-gun$<%[mynick]> !machine-gun %[nick]||")
curUser:SendData("$UserCommand 1 2 FunScript\\Do To A User\\Spy$<%[mynick]> !spy %[nick]||")

curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Tv$<%[mynick]> !tv||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Ignore$<%[mynick]> !ignore||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Bed$<%[mynick]> !bed||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Murder$<%[mynick]> !murder||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Mood$<%[mynick]> !mood||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Pull$<%[mynick]> !pull||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Relax$<%[mynick]> !relax||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Scream$<%[mynick]> !scream||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Bad$<%[mynick]> !bad||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Suicide$<%[mynick]> !suicide||")
Title:
Post by: Madman on 19 April, 2005, 19:50:46
Thats a part of my FunScript
See this  thread (http://board.univ-angers.fr/thread.php?threadid=4256&boardid=26&sid=546722a11e2e9af7179315c8992790de&page=1#4)
Title: Any One Know How To Convert Lua4 To Lua5?
Post by: (-=TrIp-iN-SuN=-) on 19 April, 2005, 21:34:34
Any One Know How To Convert Lua4 To Lua5?
Title:
Post by: Tw?sT?d-d?v on 19 April, 2005, 21:39:17
QuoteOriginally posted by madman
Thats a part of my FunScript
See this  thread (http://board.univ-angers.fr/thread.php?threadid=4256&boardid=26&sid=546722a11e2e9af7179315c8992790de&page=1#4)

Try there ^^^^^

has all those commands in  plus much more Version 7 is lua 5
Title: i want only this script but it's now work
Post by: (-=TrIp-iN-SuN=-) on 19 April, 2005, 22:23:12
i want to used only script "zFunRightClick.lua" but it's not work i want all users to can use this script only this script i need not more in "FunScriptV7.rar".
what i need to do to only used "zFunRightClick.lua"?
Title: ?
Post by: (-=TrIp-iN-SuN=-) on 20 April, 2005, 05:43:59
?
Title:
Post by: Madman on 20 April, 2005, 06:05:53
The code you gave cant be every thing in the lua file, it's missing alot of stuff...
but i added it...

Code Select
function ChatArrival(curUser, data)
data = string.sub(data,1,string.len(data)-1)
s,e,cmd = string.find(data,"%b<>%s+(%S+)")
--==NewCommand==--
if cmd == "!pull" then
SendToAll("*** " ..curUser.sName.. " is pulling faces at you .. :P ")
return 1
end
--==NewCommand==--
if cmd == "!mood" then
SendToAll("*** " ..curUser.sName.. " is in a good mood...HURRAY ")
return 1
end
--==NewCommand==--
if cmd == "!relax" then
SendToAll("*** " ..curUser.sName.. " is kicking back,relaxing for a change ")
return 1
end
--==NewCommand==--
if cmd == "!murder" then
SendToAll("*** " ..curUser.sName.. " is about to murder you ... haha ")
return 1
end
--==NewCommand==--
if cmd == "!scream" then
SendToAll("*** " ..curUser.sName.. " wants to scream out .... AAARRRRGGGGHHHHH ")
return 1
end
--==NewCommand==--
if cmd == "!tv" then
SendToAll("*** " ..curUser.sName.. " is watching television ")
return 1
end
--==NewCommand==--
if cmd == "!ignore" then
SendToAll("*** " ..curUser.sName.. " is ignoring you,so leave alone ")
return 1
end
--==NewCommand==--
if cmd == "!bed" then
SendToAll("*** " ..curUser.sName.. " night night all, ZZZZZZZzzzzzzzzz ")
return 1
end
--==NewCommand==--
if cmd == "!bad" then
SendToAll("*** " ..curUser.sName.. " is having a bad day ... so sod off ")
return 1
end
--==NewVictimCommand==--
if cmd == "!machine-gun" then
local s,e,victim = string.find(data, "%b<>%s+%S+%s+(%S+)")
if victim == nil then
curUser:SendData(Bot, "Syntax: "..cmd.." nick")
return 1
end
vUser = GetItemByName(victim)
if not vUser then
curUser:SendData(Bot, " *** " ..victim.." is not online or wrong name...")
return 1
end
SendToAll("*** "..curUser.sName.." picks up a AK47 and shoots "..vUser.sName.." in the ASS!")
return 1
end
--==NewVictimCommand==--
if cmd == "!spy" then --//The Command...
local s,e,victim = string.find(data, "%b<>%s+%S+%s+(%S+)")
if victim == nil then --//Forgot Nick?
curUser:SendData(Bot, "Syntax: "..cmd.." nick") --//If So Send This
return 1
end
vUser = GetItemByName(victim) --//vUser And Victim Is The Same
if not vUser then
curUser:SendData(Bot, " *** " ..victim.." is not online or wrong name...") --//Wrong Name
return 1
end
SendToAll("*** "..curUser.sName.." spies on "..vUser.sName.." so watch your step.")--//Do To A User
return 1
end
--==NewVictimCommand==--
if cmd == "!snog" then --//The Command...
local s,e,victim = string.find(data, "%b<>%s+%S+%s+(%S+)")
if victim == nil then --//Forgot Nick?
curUser:SendData(Bot, "Syntax: "..cmd.." nick") --//If So Send This
return 1
end
vUser = GetItemByName(victim) --//vUser And Victim Is The Same
if not vUser then
curUser:SendData(Bot, " *** " ..victim.." is not online or wrong name...") --//Wrong Name
return 1
end
SendToAll("*** "..curUser.sName.." is snogging the face off "..vUser.sName.." ")--//Do To A User
return 1
end
--==NewCommand==--
if cmd == "!suicide" then
curUser:SendData(Bot, "Run's out the front door screaming and jumps infront of bus!!!!")
curUser:Disconnect()
return 1
end
end


function NewUserConnected(curUser)
if curUser.bUserCommand then
curUser:SendData("$UserCommand 1 2 FunScript\\Do To A User\\Snog User$<%[mynick]> !snog %[nick]||")
curUser:SendData("$UserCommand 1 2 FunScript\\Do To A User\\Machine-gun$<%[mynick]> !machine-gun %[nick]||")
curUser:SendData("$UserCommand 1 2 FunScript\\Do To A User\\Spy$<%[mynick]> !spy %[nick]||")

curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Tv$<%[mynick]> !tv||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Ignore$<%[mynick]> !ignore||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Bed$<%[mynick]> !bed||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Murder$<%[mynick]> !murder||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Mood$<%[mynick]> !mood||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Pull$<%[mynick]> !pull||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Relax$<%[mynick]> !relax||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Scream$<%[mynick]> !scream||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Bad$<%[mynick]> !bad||")
curUser:SendData("$UserCommand 1 3 FunScript\\You Do\\Suicide$<%[mynick]> !suicide||")
end
end

OpConnected = NewUserConnected
Title: ?
Post by: (-=TrIp-iN-SuN=-) on 20 April, 2005, 16:15:26
how i can to do spy bot only to netfounder and hubowner can only used this becose i don't want all users use this?
Text only | Text with Images