Text only | Text with Images

PtokaX forum

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

Title: user command
Post by: plop on 28 February, 2005, 17:49:16
Code Select
-- PtokaX Lua 5 version by PPK

-- UserCommand extension script for PtokaX by Gadget

function NewUserConnected(curUser)
if curUser.bUserCommand then
curUser:SendData("$UserCommand 255 7")
curUser:SendData("$UserCommand 0 3")
curUser:SendData("$UserCommand 1 3 *** "..frmHub:GetHubName().." (Rules) ***$<%[mynick]> !rules|")
curUser:SendData("$UserCommand 1 3 Help$<%[mynick]> !help|")
end
end

function OpConnected(curUser)
if curUser.bUserCommand then
curUser:SendData("$UserCommand 255 7")
curUser:SendData("$UserCommand 0 3")
curUser:SendData("$UserCommand 1 3 *** "..frmHub:GetHubName().." (Rules) ***$<%[mynick]> !rules|")
curUser:SendData("$UserCommand 1 3 Help$<%[mynick]> !help|")
curUser:SendData("$UserCommand 1 2 Show user info$<%[mynick]> !getinfo %[nick]|")
curUser:SendData("$UserCommand 1 2 Drop user$<%[mynick]> !drop %[nick]|")
curUser:SendData("$UserCommand 1 2 Gag Menu\\Gag user$<%[mynick]> !gag %[nick]|")
curUser:SendData("$UserCommand 1 2 Gag Menu\\Ungag user$<%[mynick]> !ungag %[nick]|")
curUser:SendData("$UserCommand 1 2 Ban Menu\\Ban and kick user$<%[mynick]> !ban %[nick] %[line:Enter a reason]|")
curUser:SendData("$UserCommand 1 2 Ban Menu\\Ban user$<%[mynick]> !nickban %[nick]|")
curUser:SendData("$UserCommand 1 3 Ban Menu\\Ban IP...$<%[mynick]> !banip %[line:Enter an IP to ban]|")
curUser:SendData("$UserCommand 1 3 Ban Menu\\Unban user or ip...$<%[mynick]> !unban %[line:Enter an IP or name to unban]|")
curUser:SendData("$UserCommand 1 2 Ban Menu\\Temp Ban and kick user$<%[mynick]> !tempban %[nick] %[line:Enter a time] %[line:Enter a reason]|")
curUser:SendData("$UserCommand 1 3 Ban Menu\\Temp Unban ip...$<%[mynick]> !tempunban %[line:Enter an IP to unban]|")
curUser:SendData("$UserCommand 1 3 Ban Menu\\Clear all temp bans$<%[mynick]> !clrtempban|")
curUser:SendData("$UserCommand 1 1 Ban Menu\\Show ban list$<%[mynick]> !getbanlist|")
end
end
plop
Title: extended user commands
Post by: the_pest on 28 February, 2005, 20:55:54
(http://www.pestypest.info/emoticons/kuru.gif)
Code Select
-- PtokaX Lua 5 version by PPK
-- UserCommand extension script for PtokaX by Gadget

function NewUserConnected(curUser)
if curUser.bUserCommand then
curUser:SendData("$UserCommand 255 7")
curUser:SendData("$UserCommand 0 3")
curUser:SendData("$UserCommand 1 3 *** "..frmHub:GetHubName().." (Rules) ***$<%[mynick]> !rules|")
curUser:SendData("$UserCommand 1 3 Help$<%[mynick]> !help|")
curUser:SendData("$UserCommand 1 3 Show your IP$<%[mynick]> !myip|")
curUser:SendData("$UserCommand 1 3 Write in 3rd person$<%[mynick]> !me %[line:Enter your message]|")
end
end

function OpConnected(curUser)
if curUser.bUserCommand then
curUser:SendData("$UserCommand 255 7")
curUser:SendData("$UserCommand 0 3")
curUser:SendData("$UserCommand 1 3 *** "..frmHub:GetHubName().." (Rules) ***$<%[mynick]> !rules|")
curUser:SendData("$UserCommand 1 3 Help$<%[mynick]> !help|")
curUser:SendData("$UserCommand 1 2 Show user info$<%[mynick]> !getinfo %[nick]|<%[mynick]> !userinfo %[nick]|")
curUser:SendData("$UserCommand 1 3 Ban/Kick Menu\\Drop user$<%[mynick]> !drop %[nick]|")
curUser:SendData("$UserCommand 1 3 Ban/Kick Menu\\Ban and kick user$<%[mynick]> !ban %[nick] %[line:Enter a reason]|")
curUser:SendData("$UserCommand 1 3 Ban/Kick Menu\\Ban nick$<%[mynick]> !nickban %[nick]|")
curUser:SendData("$UserCommand 1 3 Ban/Kick Menu\\Ban IP$<%[mynick]> !banip %[line:Enter an IP to ban]|")
curUser:SendData("$UserCommand 1 3 Ban/Kick Menu\\Unban user or ip...$<%[mynick]> !unban %[line:Enter an IP or name to unban]|")
curUser:SendData("$UserCommand 1 3 Ban/Kick Menu\\Temp Ban and kick user$<%[mynick]> !tempban %[nick] %[line:Enter a time (m/h/d/w/M/Y)] %[line:Enter a reason]|")
curUser:SendData("$UserCommand 1 3 Ban/Kick Menu\\Temp Unban ip...$<%[mynick]> !tempunban %[line:Enter an IP to unban]|")
curUser:SendData("$UserCommand 1 3 Ban/Kick Menu\\Show temp banlist$<%[mynick]> !gettempbanlist|")
curUser:SendData("$UserCommand 1 3 Ban/Kick Menu\\Clear all temp bans$<%[mynick]> !clrtempban|")
curUser:SendData("$UserCommand 1 3 Ban/Kick Menu\\Show banlist$<%[mynick]> !getbanlist|")
curUser:SendData("$UserCommand 1 3 Ban/Kick Menu\\Clear all perm bans$<%[mynick]> !clrpermban|")
curUser:SendData("$UserCommand 1 2 Gag Menu\\Gag user$<%[mynick]> !gag %[nick]|")
curUser:SendData("$UserCommand 1 2 Gag Menu\\Ungag user$<%[mynick]> !ungag %[nick]|")
curUser:SendData("$UserCommand 1 3 Reg Menu\\Reg User$<%[mynick]> !addreguser %[nick] %[line:Enter a password] Reg|")
curUser:SendData("$UserCommand 1 3 Reg Menu\\Reg VIP$<%[mynick]> !addreguser %[nick] %[line:Enter a password] VIP|")
curUser:SendData("$UserCommand 1 3 Reg Menu\\Reg OP$<%[mynick]> !addreguser %[nick] %[line:Enter a password] Operator|")
curUser:SendData("$UserCommand 1 3 Reg Menu\\Del Reg$<%[mynick]> !delreguser %[nick]|")
curUser:SendData("$UserCommand 1 3 Options\\Hub statistics$<%[mynick]> !stat|")
curUser:SendData("$UserCommand 1 3 Options\\Change hub topic$<%[mynick]> !topic %[line:write new topic, 'off' for clear topic]|")
curUser:SendData("$UserCommand 1 3 Options\\Mass message$<%[mynick]> !massmsg %[line:write message]|")
curUser:SendData("$UserCommand 1 3 Options\\Temp OP user$<%[mynick]> !op %[nick]|")
curUser:SendData("$UserCommand 1 3 Options\\Change your password$<%[mynick]> !passwd %[line:Your new password]|")
curUser:SendData("$UserCommand 1 3 Options\\Reload txt files$<%[mynick]> !reloadtxt|")
curUser:SendData("$UserCommand 1 3 Options\\Restart scripts$<%[mynick]> !restartscripts|")
curUser:SendData("$UserCommand 1 3 Options\\Restart hub$<%[mynick]> !restart|")
end
end
Title:
Post by: Zigurds on 06 March, 2005, 23:03:16
Op's invisibility master commands and new strings for tempan users without write time and reason

Sorry my bad English

code:--------------------------------------------------------------------------------
-- PtokaX Lua 5 version by PPK
-- UserCommand extension script for PtokaX by Gadget
-- Modificied by Zigurds

function NewUserConnected(curUser)
   if curUser.bUserCommand then
      curUser:SendData("$UserCommand 255 7")
      curUser:SendData("$UserCommand 0 3")
      curUser:SendData("$UserCommand 1 3 *** Users commands ***$|")
      curUser:SendData("$UserCommand 1 3 Rules$<%[mynick]> !rules|")
      curUser:SendData("$UserCommand 1 3 Help$<%[mynick]> !help|")
      curUser:SendData("$UserCommand 1 3 Show your IP$<%[mynick]> !myip|")
      curUser:SendData("$UserCommand 1 3 Write in 3rd person$<%[mynick]> !me %[line:Enter your message]|")
   end
end
function OpConnected(curUser)
   if curUser.bUserCommand then
      curUser:SendData("$UserCommand 255 7")
      curUser:SendData("$UserCommand 0 3")
      curUser:SendData("$UserCommand 1 3 *** OP's commands ***$|")
      curUser:SendData("$UserCommand 1 3 Users\\Rules$<%[mynick]> !rules|")
      curUser:SendData("$UserCommand 1 3 Users\\Help$<%[mynick]> !help|")
      curUser:SendData("$UserCommand 1 3 Users\\Show your IP$<%[mynick]> !myip|")
      curUser:SendData("$UserCommand 1 3 Users\\Write in 3rd person$<%[mynick]> !me %[line:Enter your message]|")
      curUser:SendData("$UserCommand 0 3")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Drop user$<%[mynick]> !drop %[nick]|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Ban and kick user$<%[mynick]> !ban %[nick] %[line:Enter a reason]|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Ban nick$<%[mynick]> !nickban %[nick]|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Ban IP$<%[mynick]> !banip %[line:Enter an IP to ban]|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Show temp banlist$<%[mynick]> !gettempbanlist|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Clear all temp bans$<%[mynick]> !clrtempban|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Show banlist$<%[mynick]> !getbanlist|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Clear all perm bans$<%[mynick]> !clrpermban|")
      curUser:SendData("$UserCommand 1 2 Gag Menu\\Gag user$<%[mynick]> !gag %[nick]|")
      curUser:SendData("$UserCommand 1 2 Gag Menu\\Ungag user$<%[mynick]> !ungag %[nick]|")
      curUser:SendData("$UserCommand 1 3 Reg Menu\\Reg User$<%[mynick]> !addreguser %[nick] %[line:Enter a password] Reg|")
      curUser:SendData("$UserCommand 1 3 Reg Menu\\Reg VIP$<%[mynick]> !addreguser %[nick] %[line:Enter a password] VIP|")
      curUser:SendData("$UserCommand 1 3 Reg Menu\\Reg OP$<%[mynick]> !addreguser %[nick] %[line:Enter a password] Operator|")
      curUser:SendData("$UserCommand 1 3 Reg Menu\\Del Reg$<%[mynick]> !delreguser %[nick]|")
      curUser:SendData("$UserCommand 1 3 Options\\Hub statistics$<%[mynick]> !stat|")
      curUser:SendData("$UserCommand 1 3 Options\\Change hub topic$<%[mynick]> !topic %[line:write new topic, 'off' for clear topic]|")
      curUser:SendData("$UserCommand 1 3 Options\\Mass message$<%[mynick]> !massmsg %[line:write message]|")
      curUser:SendData("$UserCommand 1 3 Options\\Temp OP user$<%[mynick]> !op %[nick]|")
      curUser:SendData("$UserCommand 1 3 Options\\Change your password$<%[mynick]> !passwd %[line:Your new password]|")
      curUser:SendData("$UserCommand 1 3 Options\\Reload txt files$<%[mynick]> !reloadtxt|")
      curUser:SendData("$UserCommand 1 2 Show user info$<%[mynick]> !getinfo %[nick]|<%[mynick]> !userinfo %[nick]|")
      curUser:SendData("$UserCommand 0 3")
      curUser:SendData("$UserCommand 1 3 Temp Ban and kick user$<%[mynick]> !tempban %[nick] %[line:Enter a time (m/h/d/w/M/Y)] %[line:Enter a reason]|")
      curUser:SendData("$UserCommand 1 3 Temp Unban ip...$<%[mynick]> !tempunban %[line:Enter an IP to unban]|")
      curUser:SendData("$UserCommand 1 3 Unban user or ip...$<%[mynick]> !unban %[line:Enter an IP or name to unban]|")
      curUser:SendData("$UserCommand 0 3")
      curUser:SendData("$UserCommand 2 6 1].Porno - 1 months $<%[mynick]> !tempban %[nick] 1M 1.rule |")
      curUser:SendData("$UserCommand 2 6 2].Fake  - 3 months $<%[mynick]> !tempban %[nick] 3m 2.rule |")      
      curUser:SendData("$UserCommand 2 6 3].Spam - 2 weeks $<%[mynick]> !tempban %[nick] 2w 9.rule |")
   end
if (curUser.iProfile == 0) then
      curUser:SendData("$UserCommand 255 7")
      curUser:SendData("$UserCommand 0 3")
      curUser:SendData("$UserCommand 1 3 *** OP's commands ***$|")
      curUser:SendData("$UserCommand 1 3 Users\\Rules$<%[mynick]> !rules|")
      curUser:SendData("$UserCommand 1 3 Users\\Help$<%[mynick]> !help|")
      curUser:SendData("$UserCommand 1 3 Users\\Show your IP$<%[mynick]> !myip|")
      curUser:SendData("$UserCommand 1 3 Users\\Write in 3rd person$<%[mynick]> !me %[line:Enter your message]|")
      curUser:SendData("$UserCommand 0 3")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Drop user$<%[mynick]> !drop %[nick]|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Ban and kick user$<%[mynick]> !ban %[nick] %[line:Enter a reason]|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Ban nick$<%[mynick]> !nickban %[nick]|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Ban IP$<%[mynick]> !banip %[line:Enter an IP to ban]|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Show temp banlist$<%[mynick]> !gettempbanlist|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Clear all temp bans$<%[mynick]> !clrtempban|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Show banlist$<%[mynick]> !getbanlist|")
      curUser:SendData("$UserCommand 1 3 BanMenu\\Clear all perm bans$<%[mynick]> !clrpermban|")
      curUser:SendData("$UserCommand 1 2 Gag Menu\\Gag user$<%[mynick]> !gag %[nick]|")
      curUser:SendData("$UserCommand 1 2 Gag Menu\\Ungag user$<%[mynick]> !ungag %[nick]|")
      curUser:SendData("$UserCommand 1 3 Reg Menu\\Reg User$<%[mynick]> !addreguser %[nick] %[line:Enter a password] Reg|")
      curUser:SendData("$UserCommand 1 3 Reg Menu\\Reg VIP$<%[mynick]> !addreguser %[nick] %[line:Enter a password] VIP|")
      curUser:SendData("$UserCommand 1 3 Reg Menu\\Reg OP$<%[mynick]> !addreguser %[nick] %[line:Enter a password] Operator|")
      curUser:SendData("$UserCommand 1 3 Reg Menu\\Del Reg$<%[mynick]> !delreguser %[nick]|")
      curUser:SendData("$UserCommand 1 3 Options\\Hub statistics$<%[mynick]> !stat|")
      curUser:SendData("$UserCommand 1 3 Options\\Change hub topic$<%[mynick]> !topic %[line:write new topic, 'off' for clear topic]|")
      curUser:SendData("$UserCommand 1 3 Options\\Mass message$<%[mynick]> !massmsg %[line:write message]|")
      curUser:SendData("$UserCommand 1 3 Options\\Temp OP user$<%[mynick]> !op %[nick]|")
      curUser:SendData("$UserCommand 1 3 Options\\Change your password$<%[mynick]> !passwd %[line:Your new password]|")
      curUser:SendData("$UserCommand 1 3 Options\\Reload txt files$<%[mynick]> !reloadtxt|")
      curUser:SendData("$UserCommand 1 2 Show user info$<%[mynick]> !getinfo %[nick]|<%[mynick]> !userinfo %[nick]|")
      curUser:SendData("$UserCommand 0 3")
      curUser:SendData("$UserCommand 1 3 Temp Ban and kick user$<%[mynick]> !tempban %[nick] %[line:Enter a time (m/h/d/w/M/Y)] %[line:Enter a reason]|")
      curUser:SendData("$UserCommand 1 3 Temp Unban ip...$<%[mynick]> !tempunban %[line:Enter an IP to unban]|")
      curUser:SendData("$UserCommand 1 3 Unban user or ip...$<%[mynick]> !unban %[line:Enter an IP or name to unban]|")
      curUser:SendData("$UserCommand 0 3")
      curUser:SendData("$UserCommand 2 6 1].Porno - 1 months $<%[mynick]> !tempban %[nick] 1M 1.rule |")
      curUser:SendData("$UserCommand 2 6 2].Fake  - 3 months $<%[mynick]> !tempban %[nick] 3m 2.rule |")      
      curUser:SendData("$UserCommand 2 6 3].Spam - 2 weeks $<%[mynick]> !tempban %[nick] 2w 9.rule |")
      curUser:SendData("$UserCommand 0 3")
      curUser:SendData("$UserCommand 1 3 Master\\Restart scripts$<%[mynick]> !restartscripts|")
      curUser:SendData("$UserCommand 1 3 Master\\Restart hub$<%[mynick]> !restart|")
   end
end
Title: commands
Post by: Skynet on 13 March, 2005, 19:54:12
Mutor cmd are great like idea of having them in dat format    i got one problem with them  i have only got  the rhc's in the hub menu  but not the user menu is there away to get them showing on the user menu  ..... but great work anyway
Title: sorted
Post by: Skynet on 13 March, 2005, 21:39:44
sorry sorted lol ddddr braindead hour i had there >cmd are great :)
Text only | Text with Images