PtokaX forum

Archive => Archived 5.0 boards => Request for scripts => Topic started by: gemini on 06 June, 2005, 13:06:58

Title: please please please convert lua 4 to 5
Post by: gemini on 06 June, 2005, 13:06:58
please  please please convert lua 4 to 5
i have this in robocop 9.0 b

user:SendData("$UserCommand 1 3 ?=COUNTRY=?\\Rileva Nazione di Connessione Utente$<%[mynick]> +getcountry %[nick]||") --Mostra Nazione di Provenienza dell'Utente
user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Mostra la Tua Statistica$<%[mynick]> !mystats||") --Mostra la tua statistica
user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Mostra la Statistica di un Utente$<%[mynick]> !show %[nick]||") -- Mostra la statistica di un user
user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Statistica dei 10 Utenti sempre connessi$<%[mynick]> !top10alltime||") -- top 10 alltime utenti online
user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Statistica dei 50 Utenti sempre connessi$<%[mynick]> !top50alltime||") -- top 50 alltime utenti online
user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Statistica dei 100 Utenti sempre connessi$<%[mynick]> !top100alltime||") -- top 100 alltime utenti online
user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Statistica dei 10 Utenti connessi attualmente$<%[mynick]> !top10now||") -- top 10 degli utenti online attuale
user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Statistica dei 50 Utenti connessi attualmente$<%[mynick]> !top50now||") -- top 50 degli utenti online attuale
user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Statistica dei 100 Utenti connessi attualmente$<%[mynick]> !top100now||") -- top 100 degli utenti online attuale
user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Mostra i Comandi$<%[mynick]> !help||") -- mostra i comandi
user:SendData("$UserCommand 1 3 ?=CHAT ROOM PERSONALI=?\\Entra$<%[mynick]> !entra %[line:nome stanza]||") --Entra in una stanza, se non c'? una stanza con questo nome creala
user:SendData("$UserCommand 1 3 ?=CHAT ROOM PERSONALI=?\\Esci$<%[mynick]> !esci||") --Esci dalla stanza dove sei
user:SendData("$UserCommand 1 3 ?=CHAT ROOM PERSONALI=?\\Lista stanze$<%[mynick]> !lista||") --Visualizza la lista degli utenti e le stanze
end
 
please convert for robocop 10.01e and ptokax 17.08
with zright clicker with geo ip incluse for user and operator




I wait a yours answered greetings

Title:
Post by: gemini on 06 June, 2005, 13:15:57
please please please convert lua 4 to 5
i have this in robocop 9.0 b

user:SendData("$UserCommand 1 3 ?=COUNTRY=?\\It points out Nation of Connection $<%[mynick]> +getcountry %[nick]||") --Origin of Nation show of the user

user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Show your Statistics$<%[mynick]> !mystats||") --Show your Statistics

user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Show the statistics of an user$<%[mynick]> !show %[nick]||") -- Show the statistics of an user

user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Statistics of 10 Users always join$<%[mynick]> !top10alltime||") -- top 10 alltime utenti online
user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Statistics of 50 Users always join$<%[mynick]> !top50alltime||") -- top 50 alltime utenti online

user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Statistics of 100 Users always join$<%[mynick]> !top100alltime||") -- top 100 alltime utenti online

user:SendData("$UserCommand 1 3 ?=STATISTICHE=?\\Mostra i Comandi$<%[mynick]> !help||") -- mostra i comandi
user:SendData("$UserCommand 1 3 ?=CHAT ROOM PERSONALI=?\\Entra$<%[mynick]> !entra %[line:nome stanza]||") --Entra in una stanza, se non c'? una stanza con questo nome creala
user:SendData("$UserCommand 1 3 ?=CHAT ROOM PERSONALI=?\\Esci$<%[mynick]> !esci||") --Esci dalla stanza dove sei
user:SendData("$UserCommand 1 3 ?=CHAT ROOM PERSONALI=?\\Lista stanze$<%[mynick]> !lista||") --Visualizza la lista degli utenti e le stanze
end

please convert for robocop 10.01e and ptokax 17.08
with zright clicker with geo ip incluse for user and operator
Title: Re convert to lua 5
Post by: damo on 06 June, 2005, 15:33:39
robo 10e has right click user custome commands so you can make your own add them there
Title: Re: Convert to lua 5
Post by: Markitos on 06 June, 2005, 15:58:43
This is an example...
-- RightClicker for RoboCopv10.01d
-- Made by Optimus & TiMeTrAVelleR
-- Optimized and fixed some stuff
-- Best is not to use it for normal users takes to much bandwidth

sMenu = "RC"

SendTo = { --> 1=on/0=off
[0] = 1,   -- Masters
[1] = 1,   -- Operators
[2] = 1,   -- Vips
[3] = 0,   -- Regs
[4] = 1,   -- Moderator
[5] = 1,   -- NetFounder
[-1] = 0,  -- Users
}

dofile("tbl/scriptlevel.tbl")
dofile("tbl/inbuildlevel.tbl")

-- End Editable Settings --

GetRightClick = function(user, table1, table2)
for cmd,level in table1 do
if table1[cmd][user.iProfile] == 1 then
if table2[cmd] then
user:SendData(table2[cmd].."||")
end
end
end
end

NewUserConnected = function(user)
if SendTo[user.iProfile] == 1 then
if user.bUserCommand then
user:SendData("$UserCommand 0 3 |")
GetRightClick(user, ScriptLevel, ScriptCmds) GetRightClick(user, InbuildLevel, InbuildCmds) customCMDs(user)
user:SendData(" Enhanced Right Click Support for [RoboCop] is available!")
end
end
end

OpConnected=NewUserConnected

ScriptCmds = {
["deluser"]="$UserCommand 1 3 "..sMenu.."\\REGISTER\\Delete registerd user$<%[mynick]> !deluser %[nick]",
["upgrade"]="$UserCommand 1 3 "..sMenu.."\\REGISTER\\Upgrade/Downgrade registerd users$<%[mynick]> !upgrade %[nick] %[line:reg/vip/op/mod/master/founder]",
["getpass"]="$UserCommand 1 3 "..sMenu.."\\REGISTER\\Get password registerd user$<%[mynick]> !getpass %[nick]",
["resethstat"]="$UserCommand 1 3 "..sMenu.."\\SETTING\\Reset hub counters/statics$<%[mynick]> !resethstat",
["clear"]="$UserCommand 1 3 "..sMenu.."\\LOG\\Clear logs/bans user$<%[mynick]> !clear %[nick]",
["showiplog"]="$UserCommand 1 3 "..sMenu.."\\LOG\\Show the iplog$<%[mynick]> !showiplog",
["showkicklog"]="$UserCommand 1 3 "..sMenu.."\\LOG\\Show the kicklog$<%[mynick]> !showkicklog",
["showbanlog"]="$UserCommand 1 3 "..sMenu.."\\LOG\\Show the banlog$<%[mynick]> !showbanlog",
["showwarnlog"]="$UserCommand 1 3 "..sMenu.."\\LOG\\Show the warnlog$<%[mynick]> !showwarnlog",
["delkicklog"]="$UserCommand 1 3 "..sMenu.."\\LOG\\Delete the kicklog$<%[mynick]> !delkicklog",
["delbanlog"]="$UserCommand 1 3 "..sMenu.."\\LOG\\Delete the banlog$<%[mynick]> !delbanlog",
["delwarnlog"]="$UserCommand 1 3 "..sMenu.."\\LOG\\Delete the warnlog$<%[mynick]> !delwarnlog",
["showlog"]="$UserCommand 1 3 "..sMenu.."\\LOG\\Showlog user/ip$<%[mynick]> !showlog %[line:name/ip] ",
["follow"]="$UserCommand 1 3 "..sMenu.."\\OTHER\\Set kick/ban/etc messages [on/off]$<%[mynick]> !follow %[line:On/Off] ",
["rules"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Show the hub rules$<%[mynick]> !rules",
["network"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Show the network info$<%[mynick]> !network",
["faq"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Show faq about DC++$<%[mynick]> !faq",
["myip"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Show your currently IP$<%[mynick]> !myip",
["myinfo"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Show all your available info$<%[mynick]> !myinfo",
["version"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Show the script version$<%[mynick]> !version",
["regme"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Register me at this hub$<%[mynick]> !regme %[line:Password]",
["repass"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Change your own password$<%[mynick]> !repass %[line:New Pass]",
["showreg"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Show all users by profile$<%[mynick]> !showreg %[line:reg/vip/op/mod/master/founder]",
["away"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Set my away message$<%[mynick]> !away %[line:Message]",
["back"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Restore my away message$<%[mynick]> !back",
["getaways"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Show all current away messages$<%[mynick]> !getaways",
["report"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Report user to all OP's$<%[mynick]> !report %[nick] %[line:Message]",
["myhubtime"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Show your total online time$<%[mynick]> !myhubtime",
["slots"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Show users whit free slots$<%[mynick]> !slots",
["help"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Show you this help$<%[mynick]> !help",
["inbuild"]="$UserCommand 1 3 "..sMenu.."\\NORMAL\\Show the inbuild commands$<%[mynick]> !inbuild",
["showreglog"]="$UserCommand 1 3 "..sMenu.."\\REGISTER\\Show the registerlog$<%[mynick]> !showreglog",
["gag"]="$UserCommand 1 3 "..sMenu.."\\KICK/BAN\\Gag user$<%[mynick]> !gag %[nick]",
["ungag"]="$UserCommand 1 3 "..sMenu.."\\KICK/BAN\\Ungag user$<%[mynick]> !ungag %[nick]",
["noclean"]="$UserCommand 1 3 "..sMenu.."\\USERCLEANER\\Add/Delete user from NoClean list $<%[mynick]> !noclean %[line:add/delete] %[line:nick]",
["shownoclean"]="$UserCommand 1 3 "..sMenu.."\\USERCLEANER\\Show users in NoClean list$<%[mynick]> !shownoclean",
}
InbuildCmds = {
["banip"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Banip user$<%[mynick]> !banip %[line:Ipnumber]",
["unban"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Unban user$<%[mynick]> !unban %[nick] %[line:nick/ip]",
["nickban"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Nickban user$<%[mynick]> !nickban %[nick] %[line:Reason]",
["getbanlist"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Getbanlist$<%[mynick]> !getbanlist",
["clrpermban"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Clearpermban$<%[mynick]> !clrpermban",
["clrtempban"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Cleartempban$<%[mynick]> !clrtempban",
["op"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Give user temperory op status$<%[mynick]> !op %[nick]",
["getinfo"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Basic info user$<%[mynick]> !getinfo %[nick]",
["ipinfo"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Show users with that ip$<%[mynick]> !getinfo %[line:Ipnumber]",
["iprangeinfo"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Show users within that iprange$<%[mynick]> !iprangeinfo %[line:Ipnumber]",
["topic"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Change the hub topic$<%[mynick]> !topic %[line:Topic]",
["restart"]="$UserCommand 1 3 "..sMenu.."\\SETTING\\Restart hub$<%[mynick]> !restart",
["restartscripts"]="$UserCommand 1 3 "..sMenu.."\\SETTING\\Restart scripts$<%[mynick]> !restartscripts",
["gettempbanlist"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Gettempbanlist$<%[mynick]> !gettempbanlist",
["userinfo"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Info user$<%[mynick]> !userinfo %[nick]",
["reloadtxt"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Reload the hub textfiles$<%[mynick]> !reloadtxt",
["tempunban"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Unban tempbanned user$<%[mynick]> !tempunban %[nick]",
["tempban"]="$UserCommand 1 3 "..sMenu.."\\INBUILD\\Tempban user for x minutes$<%[mynick]> !tempban %[nick]",
}

customCMDs = function(user) --// You can put your custome commands here (e.g by Markitos)
[COLOR=red]--user:SendData("$UserCommand 1 3 ?=COUNTRY=?\\It points out Nation of Connection $<%[mynick]> +getcountry %[nick]||") -- Origin of Nation show of the user [/COLOR]
end

Don't copy this one, it's incomplete...(remember it's just an example)

Cheers...