Mousecommands for Ptokax 0.3.3.21g and newer

[Northwind]

-- 	Ptokax 0.3.3.21g MouseTrap by Northwind
-- 	11-11-2005 version 0.1
--	
-- 	As iam newbie to write bot scripts, i build another mouse commands 
-- 	for newest Ptokax beta... I dont even copy anything straight from
--	other mousecommand scripts. I write every line myself because i wanna 
--	learn basics. Hope some day i can write some bots what do something...
--
--	This version includes improved "userlist picked" option ;-)
--
--	2 hours, 16 minutes was time what i used to do this mousecommands...
--
--	Respect, nw the MouseCommander ;-)


function NewUserConnected(curUser)

	if curUser.bUserCommand then 

	curUser:SendData("$UserCommand 1 3 Show commands$<%[mynick]> !help|")

	curUser:SendData("$UserCommand 1 3 MyIP$<%[mynick]> !myip|")

	curUser:SendData("$UserCommand 1 3 Speak in 3rd person$<%[mynick]> %[line:Text]|")

	end
end

function OpConnected(curUser)

	if curUser.bUserCommand then

	curUser:SendData("$UserCommand 1 3 Topic$<%[mynick]> !topic %[line:Set new topic. Or off = clear topic]|")

	curUser:SendData("$UserCommand 1 3 Show hub statistics$<%[mynick]> !stat|")

	curUser:SendData("$UserCommand 1 3 Personal\\Show commands$<%[mynick]> !help|")
	curUser:SendData("$UserCommand 1 3 Personal\\MyIP$<%[mynick]> !myip|")
	curUser:SendData("$UserCommand 1 3 Personal\\Speak in 3rd person$<%[mynick]> %[line:Text]|")
	curUser:SendData("$UserCommand 1 3 Personal\\Change password$<%[mynick]> !passwd %[line:New password]|")

	curUser:SendData("$UserCommand 1 2 Ban System\\Permanent\\Ban user - Userlist picked$<%[mynick]> !ban %[nick] %[line:Reason]|")
	curUser:SendData("$UserCommand 1 3 Ban System\\Permanent\\Ban user - Give a username$<%[mynick]> !ban %[line:Name] %[line:Reason]|")
	curUser:SendData("$UserCommand 1 3 Ban System\\Permanent\\Ban IP$<%[mynick]> !banip %[line:IP] %[line:Reason]|")
	curUser:SendData("$UserCommand 1 3 Ban System\\Permanent\\Nick ban$<%[mynick]> !nickban %[line:Name] %[line:Reason]|")
	
	curUser:SendData("$UserCommand 1 2 Ban System\\Temporary\\Temp ban - Userlist picked$<%[mynick]> !tempban %[nick] %[line:Reason]|")
	curUser:SendData("$UserCommand 1 3 Ban System\\Temporary\\Temp ban - Give a username$<%[mynick]> !tempban %[line:Name] %[line:Reason]|")
	curUser:SendData("$UserCommand 1 3 Ban System\\Temporary\\Temp ban IP$<%[mynick]> !tempbanip %[line:IP] %[line:Time] %[line:Reason]|")
	curUser:SendData("$UserCommand 1 3 Ban System\\Temporary\\Temp nick ban$<%[mynick]> !nicktempban %[line:Name] %[line:Time] %[line:Reason]|")

	curUser:SendData("$UserCommand 1 3 Ban System\\Remove bans\\Remove ban$<%[mynick]> !unban %[line:Name or IP]|")
	curUser:SendData("$UserCommand 1 3 Ban System\\Remove bans\\Remove tempban$<%[mynick]> !tempunban %[line:Name or IP]|")

	curUser:SendData("$UserCommand 1 3 Ban System\\Show bans\\Show all bans$<%[mynick]> !getbans|")
	curUser:SendData("$UserCommand 1 3 Ban System\\Show bans\\Show permanent bans$<%[mynick]> !getpermbans |")
	curUser:SendData("$UserCommand 1 3 Ban System\\Show bans\\Show temporary bans$<%[mynick]> !gettempbans |")

	curUser:SendData("$UserCommand 1 3 Ban System\\Check bans\\Display ban found for given nick$<%[mynick]> !checknickban %[line:Name]|")
	curUser:SendData("$UserCommand 1 3 Ban System\\Check bans\\Display ban(s) found for given IP$<%[mynick]> !checkipban %[line:IP]|")

	curUser:SendData("$UserCommand 1 2 Punishments\\Gag\\Gag a user - Userlist picked$<%[mynick]> !gag %[nick] |")
	curUser:SendData("$UserCommand 1 3 Punishments\\Gag\\Gag a user - Give a username$<%[mynick]> !gag %[line:Name]|")
	curUser:SendData("$UserCommand 1 2 Punishments\\Remove gag\\Ungag a user - Userlist picked$<%[mynick]> !ungag %[nick] |")
	curUser:SendData("$UserCommand 1 3 Punishments\\Remove gag\\Ungag a user - Give a username$<%[mynick]> !ungag %[line:Name]|")

	curUser:SendData("$UserCommand 1 2 User manager\\Add reg user$<%[mynick]> !addreguser %[line:Name] %[line:Password] %[line:Profile]|")
	curUser:SendData("$UserCommand 1 2 User manager\\Del reg user$<%[mynick]> !delreguser %[line:Name]|")

	curUser:SendData("$UserCommand 1 2 Mass message manager\\Mass message for Operators$<%[mynick]> !opmassmsg %[line:Message]|")
	curUser:SendData("$UserCommand 1 2 Mass message manager\\Mass message to all$<%[mynick]> !massmsg %[line:Message]|")


	end
end

[Madman]

Nice.. real nice... =)

[DJ Bert]

Good work Northwind, very nice =)