-- 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
Nice.. real nice... =)
Good work Northwind, very nice =)