user command
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

user command

Started by plop, 28 February, 2005, 17:49:16

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

plop

-- 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
http://www.plop.nl lua scripts/howto\'s.
http://www.thegoldenangel.net
http://www.vikingshub.com
http://www.lua.org

>>----> he who fights hatred with hatred, drives the spreading of hatred <----<<

the_pest

#1

-- 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
use

Zigurds

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

Skynet

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

Copyright SkynetSystems 2000-2005 @Phoenix Network

Skynet

sorry sorted lol ddddr braindead hour i had there >cmd are great :)

Copyright SkynetSystems 2000-2005 @Phoenix Network

SMF spam blocked by CleanTalk