| All-Around - Scripts - Pokémon NetBattle У кого есть свой сервер в НетБеттле думаю сами разберутся)
Event +PlayerSignOn /SendAll "<+Welcome Bot>: Everyone say hi to the new player" /SendPM #Source, "<+Welcome Bot>: Welcome to [Server Name], " & $Name(#Source) & "! We here hope you enjoy your stay with us. Go an enjoy yourself and have a nice day." /SendPM #Source, "<+UpperCaseBot>: Your name in upper case is " & $UCase($Name(#Source)) & "." /SendPM #Source, "<+LuckyNumberBot>: Your lucky number is " & $Str(#Rand(9999, 1000)) & "." /SendPM #Source, "<+Dragon Bot>: We are Pokemon Universe " /SendPM #Source, "<+Line Bot>: We have 1372 lines of scripts we gradually get more scripts." /SendPM #Source, "<+Old Bot>: We are the old myserious world." /SendPM #Source, "<+Abuse Bot>: Any admin caught abusing when I am gone will pay to a user." /SendPM #Source, "<+Abuse Bot>: Any group of admins abusing will be banned and Pokemon Universe will be the end and then only Dragonite Rocks can auth and deauth." /SendPM #Source, "<+Commands Bot>: Type !commands for the all the official commands here at Pokemon Universe." /SendPM #Source, "Support DR by visiting his forums: http://z6.invisionfree.com/_Dragon_Kingd...ndex.php?." If $Name(#Source) = "" /SendAll "<+GhostBot>: A ghost tryed to enter the server! This script wont let it!" /SendAll "<+GhostBot>: The ghost was removed for good." /Ban #Source /Sendall "<+GhostBuster>: The Ghost sid was $GetPlayerInfo(#Source, PSID)!" /SendAll "<+GhostBuster>: The Ghost Ip was $GetPlayerInfo(#Source, IPAD)!" EndIf EndEvent Event +Timer 200 /SendAll "Drop by our forums: http://www.[Server Name].info/forums." EndEvent Event +Timer 050 /Clear EndEvent Event -ChatMessage If $Message = "Scripts" /SendPM #Source, "***<+Script Bot>: Here is the list of scripts we need." /SendPM #Source, "" /SendPM #Source, "<+Script Bot>: RPG script." /SendPM #Source, "<+Script Bot>: Anyone who can get this script gets admin on forum and server." EndIf If $Message = "mods" /SendPM #Source, "***<+Mod Bot>: Here is the list of mods here." /SendPM #Source, "<+Mod Bot>: (DF)Atticus" /SendPM #Source, "<+Mod Bot>: (Dragon Lover) Eldes" /SendPM #Source, "<+Mod Bot>: [DF]Grunt Hikari" /SendPM #Source, "<+Mod Bot>: Brawly [GL]" /SendPM #Source, "<+Mod Bot>: Darkness" /SendPM #Source, "<+Mod Bot>: Latias_EX" /SendPM #Source, "<+Mod Bot>: That is all the mods there is no more spaces dont ask." EndIf If $Message = "admins" /SendPM #Source, "***<+Admin Bot: Here is the list of admins here." /SendPM #Source, "<+Admin Bot>: Faltzer" /SendPM #Source, "<+Admin Bot>: Rindiny" /SendPM #Source, "<+Admin Bot>: Dragonite Rocks (also known as DR)" EndIf If $Message = "main admins" /SendPM #Source, "*** Here is the list of main admins here." /SendPM #Source, "<+Main Admin Bot>: Faltzer" /SendPM #Source, "<+Main Admin Bot>: Rindiny" EndIf If $Message = "Co Leaders" /SendPM #Source, "*** Here is the list of our co Leadears." /SendPM #Source, "<+Co Leader Bot>: BS" /SendPM #Source, "<+Co Leader Bot>: SideKickDeoxys368" /SendPM #Source, "<+Co Leader Bot>: icy pichu" /SendPM #Source, "<+Co Leader Bot>: Psyber Kayos" EndIf If $Message = "!auths" /SendPM #Source, "***<+Auth Bot>: Here are our auths." /SendPM #Source, "<+Mod Bot>: Type mods to see a list of our mods." /SendPM #Source, "<+Admin Bot>: Type admins to see a list of our admins." /SendPM #Source, "<+Main Admin Bot>: Type Main admin to see a list of our main admins." /SendPM #Source, "<+Co Leader Bot>: Type Co Leaders to see a list of our co Leaders." EndIf If $Message = "!Rules" /SendPM #Source, "*** <+RuleBot>: Here IS THE LIST OF RULES at Pokemon Universe." /SendPM #Source,"<+RuleBot>:No spaming you will be kicked." /SendPM #Source,"<+RuleBot>: No flooding you will be banned be Dragonite." /SendPM #Source,"<+RuleBot>: Dont try to ghost we have a ghost script(Made by Kewl Dude)." /SendPM #Source,"<+RuleBot>: If you get bored look at our Commands, Fun Commands, TFCommands, AND Battle Commands." /SendPM #Source,"<+RuleBot>: Have a look our Forums if you want to join." /SendPM #Source,"<+RuleBot>: Enjoy our server :D." /SendPM #Source,"<+RuleBot>: Contact any Admin for an information or help." /SendPM #Source,"<+RuleBot>: Admins who abuse get deauthed and kicked." EndIf If $Message = "!OtherCommands" /SendPM #Source, "***+Other Commands Bot>: OTHER COMMANDS" /SendPM #Source, "<+Other Commands Bot>: These will kick you." /SendPM #Source, "<+Other Commands Bot>: To get mod powers type the command /modme." /SendPM #Source, "<+Other Commands Bot>: '/Mew' will have you flying high!" /SendPM #Source, "<+Other Commands Bot>: '/Hitmontop' will take you for a spin!" /SendPM #Source, "<+Other Commands Bot>: '/Jynx' will get you pirked up!" /StopEvent EndIf If $Message = "!Commands" /SendPM #Source, "*** +CommandBot: Here Is The List Of Our Official Commands Here At Pokemon Universe ." /SendPM #Source, "<+FireBot>: You can type in !Attack to randomnly attack somebody." /SendPM #Source, "<+KingdomBot>: You can type in !Encounter to randomnly encounter a wild Pokemon." /SendPM #Source, "<+FireBot>: You can type in !FindItem to randomnly find an item here." /SendPM #Source, "<+KingdomBot>: You can type in !OtherCommands of more commands." /SendPM #Source, "<+FireBot>: You can type in !FunCommands for some fun." /SendPM #Source, "<+KingdomBot>: You can type in !BattleCmds to see a small list of our battle commands." /SendPM #Source, "<+FireBot>: Type !Rules for the rules here at Dragons Kigdom/Fire." /SendPM #Source, "<+KingdomBot>: Type !funcommands for our cool commands." /SendPM #Source, "<+FireBot>: Type !othercommands for commands that kick you but are cool." /SendPM #Source, "<+KingdomBot>: Type !authcommands to see or commands for people only with auth can use." /SendPM #Source, "<+FireBot: Type !Battle Commands for the list of our Battle Commands." /SendPM #Source, "<+FireBot>: Type !Modcommands to see a list of commands only mods can use(sorry admins you cant use it)." /SendPM #Source, "<+KingdomBot>: Type !admincommands these are for commands only admins can use." /SendPM #Source, "<+FireBot>: Type!Chat Commands to see a list of commands for chatting." /SendPM #Source, "<+KingdomBot>: Type !UberList to see a list of ubers." /SendPM #Source, "<+FireBot>: Type !Tfcommands to transform to a pokemon." /SendPM #Source, "<+KingdomBot>: Type news for our breaking news for today." /SendPM #Source, "<+FireBot>: Type scripts to see the scripts we need." /StopEvent EndIf If $Message = "!FunCommands" /SendPM #Source, "+*** +FunBot: HERE IS A LIST OF FUN COMMANDS" /SendPM #Source, "<+FunCommandBot>: You can type in /attackrandomn to attack somebody in here randomnly!" /SendPM #Source, "<+FunCommandBot>: You can type in /cloak to hide your team." /SendPM #Source, "<+FunCommandBot>: You can type in /decloak to unhide your team." /SendPM #Source, "<+FunCommandBot>: You can type in /sword to slash someone using a sword!" /SendPM #Source, "<+FunCommandBot>: You can type in /Party to start a party." /SendPM #Source, "<+FunCommandBot>: You can type in /Defend to defend yourself." /SendPM #Source, "<+FunCommandBot>: You can type in !quiz to have a fun pokemon quiz." /StopEvent EndIf If $Message = "!TfCommands" /SendPM #Source, "<+TfCommandBot>: !RandomTF: Turns a random player into a random Pokemon." /SendPM #Source, "<+TfCommandBot>: !TeamTF: Turns the user into one of his/her Pokemon." /SendPM #Source, "<+TfCommandBot>: !SelfTF: Turns the user into a random Pokemon." /SendPM #Source, "<+TfCommandBot>: !KantoTF: Turns a random player into a random Kanto Pokemon." /SendPM #Source, "<+TfCommandBot>: !JohtoTF: Turns a random player into a random Johto Pokemon." /SendPM #Source, "<+TfCommandBot>: !HoennTF: Turns a random player into a random Hoenn Pokemon." /StopEvent EndIf If $Message = "!BattleCmds" /SendPM #Source, "*** THE BATTLE COMMANDS ARE HERE ***" /SendPM #Source, "<+BattleCommandBot>: Type in !HaxOn to be a cheapskate battler." /SendPM #Source, "<+BattleCommandBot>: Type in !HaxOff to have no hax on your side." /SendPM #Source, "<+BattleCommandBot>: Type in !Battle if you are itchy for one." /StopEvent EndIf If $Message = "!Authcommands"
/SendPM #Source, "*** <+Authcommands>: here they are ***" /SendPM #Source, "*** <+Authcommands>: THE FOLLOWING ARE AUTH COMMANDS ***" /SendPM #Source, "*** <+Authcommands>: !mute ***" /SendPM #Source, "*** <+Authcommands>: !demute ***" /SendPM #Source, "*** <+Authcommands>: !sendall ***" /SendPM #Source, "*** <+Authcommands>: !kick ***" /SendPM #Source, "*** <+Authcommands>: !ban ***" /SendPM #Source, "*** <+Authcommands>: !editinfo ***" /SendPM #Source, "*** <+Authcommands>: THE FOLLOWING ARE MEGAADMIN COMMANDS ***" /sendpm #source, "*** <+Authcommands>: !admin ***" /SendPM #Source, "*** <+Authcommands>: !deauth ***" /sendpm #source, "*** <+Authcommands>:!mod ***" EndIf
If $Message = "!Modcommands" AND #GetPlayerInfo(#Source, AUTH) = 1 /SendPM #Source, "*** <+Mod Bot>: Here are the Mod Commands use them well***" /SendPM #Source, "" /SendPM #Source, "<+Mod Bot>: Hilight a player not an admin and you can kick them by pressing kick." /SendPM #Source, "<+Mod Bot>: Hilight a player agian not an admin and go to player Control window to temp ban them." /SendPM #Source, "<+Mod Bot>: Hilight a player agian not an admin and go to player Control window to see thier previous names on atlas look up and anyone whoever entered this server." /SendPM #Source, "<+Mod Bot>: Hilight a player randomly and you can see the ban list." /SendPM #Source, "<+Mod Bot>: These our mod commands for more info pm Dragonite Rocks." /StopEvent EndIf If $Message = "!admincommands" AND #GetPlayerInfo(#Source, AUTH) = 2 /SendPM #Source, "***<+Admincommands>: Here are the Admin Commands, use them well ***" /SendPM #Source, "" /SendPM #Source, "<+Admincommands>: !Team [name] to see that persons team" /SendPM #Source, "<+Admincommands>: !Mute [name] to mute that person" /SendPM #Source, "<+Admincommands>: !DeMute [name] to demute that person" /SendPM #Source, "<+Admincommands>: /kick [name] to kick that person" /StopEvent /Exit EndIf If $Message = "!Attack" /SendAll "*** " & $Name(#Source) & " used " & $Move(#Rand(1, 354)) & "!" /StopEvent EndIf If $Message = "!Encounter" /Set $Encounter(#Source), $Pokemon(#Rand(1, 389)) /SendAll "*** Wild " & $Encounter(#Source) & " appeared! What will " & $Name(#Source) & " do?" /SendPM #Source, "<+EncounterBot>: Type /DFCatch to catch it!" /SendPM #Source, "<+EncounterBot>: Type //DFattack to Attack it!" /StopEvent EndIf If $Message = "/Defend" /SendAll "*** " & $Name(#Source) & " defended himself from " & $Move(#Rand(1, 354)) & "!" /StopEvent EndIf
If $Message = "/DFCatch" If $Encounter(#Source) <> "" /SendAll "<+Catch Bot>: " & $Name(#Source) & " just caught the " & $Encounter(#Source) & "!" /SendAll "*** Everyone cheers! ***" /Set $Encounter(#Source), "" /StopEvent EndIf /StopEvent EndIf If $Message = "/DFattack" If $Encounter(#Source) <> "" /SendAll "<+Attack Bot>: " & $Name(#Source) & " just attacked the " & $Encounter(#Source) & " with " & $Move(#Rand(1,354)) & "!" /SendAll "<+Attack Bot>: " & $Name(#Source) & " just KOed the " & $Encounter(#Source) & "!" /Set $Encounter(#Source), "" /StopEvent EndIf /StopEvent EndIf If $Message = "!FindItem" /SendAll "*** " & $Name(#Source) & " found a " & $Item(#Rand(1, 74)) & "!" /StopEvent EndIf If $Left($Message,9) = "!SendAll " AND #GetPlayerInfo(#Source, AUTH) = 2 /SendAll $Right($Message, #Len($Message) - 9) /Sendall "<+Sendall>:" $Name(#Source) & " just used sendall." /? $Name(#Source) & " sent that message" /StopEvent /Exit EndIf If $Message = "/AttackRandomn" /Set $Targes, $Name(#RandPlayer) /SendAll "*** " & $Name(#Source) & " used " & $Move(#Rand(1, 354)) & " on " & $Targes & "!" /SendAll $Targes & ": HEY!! WHA'D YOU DO THAT FOR?!?!?!" /Unset $Targes /StopEvent EndIf If $Message = "/Sword" /Set $Targes, $Name(#RandPlayer) /SendAll "[]xxxxxx{}:::::::::::::::::::::::::::::::::::::>" /SendAll "*** " & $Name(#Source) & " just attacked " & $Targes & " with a sword!!!" /SendAll $Targes & ": OWWW! THAT HURT!!!" /Unset $Targes /StopEvent EndIf If $Message = "/Mew" /SendPM #Source, "Zero: Go Mew!" /SendPM #Source, "Zero: Use Fire Blast!" /SendPM #Source, "*** Were burnt to a crisp!!!!!" /SendAll "*** <+FunBot>: " & $Name(#Source) & " was burnt and jumped into a nearby river to cool off and he is now being carried off by a bunch of Magikarp!" /Kick #Source /StopEvent EndIf If $Message = "/Hitmontop" /SendPM #Source, "Zero: Go Hitmontop!" /SendPM #Source, "Zero: Use Triple Kick!" /SendPM #Source, "*** HIT!" /SendPM #Source, "*** HIT!" /SendPM #Source, "*** HIT!" /SendPM #Source, "YOU FAINTED!!!!!" /SendAll "*** <+FunBot>: " & $Name(#Source) & " was sent out of the server whirling in pain!" /Kick #Source /StopEvent EndIf If $Message = "/Jynx" /SendPM #Source, "Zero: Go Jynx!" /SendPM #Source, "Zero: Use Lovely Kiss!" /SendPM #Source, "*** YOU FELL IN LOVE!!!!!" /SendAll "*** <+FunBot>: " & $Name(#Source) & " was kissed and thrown down the trash chute. " /Kick #Source /StopEvent EndIf If $Message = "/Kirby" /SendPM #Source, "*** KIRBY DANCE!!!" /SendPM #Source, "*** < < (> )> < )> ^( )^!" /StopEvent EndIf
If $Message = "Dragoon" /SendPM #Source, "***<+Dragoon Bot>: If Dragoon don't reply, he is busy scripting or on another server!" /StopEvent EndIf If $Message = "/cloak" /SetPlayerInfo #Source, HIDE, 0 /SendPM #Source, "*** Your team is now hidden." /StopEvent EndIf If $Message = "/decloak" /SetPlayerInfo #Source, HIDE, 1 /SendPM #Source, "*** Your Team is no longer hidden." /StopEvent EndIf
If $Message = "!HaxOn" /SendAll "*** Be careful battling " & $Name(#Source) & " they just got really haxy!" /StopEvent EndIf
If $Message = "!HaxOff" /SendPM #Source, "WTF ARE YOU THINKING!!!" /SendAll "*** " & $Name(#Source) & " thinks they are the best thing ever by choosing to refuse hax. Prove this nub wrong." /StopEvent EndIf If $Message = "!Quiz" /SendPM #Source, "*** Question #1 ***" /SendPM #Source, "Quagsire takes ___ damage from grass attacks." /SendPM #Source, "A) 2x [type !2x]" /SendPM #Source, "B) 4x [type !4x]" /SendPM #Source, "C) Regular [type !reg]" /SendPM #Source, "*** Question #1 ***" /SendPM #Source, "" /StopEvent EndIf If $Message = "!4x" /SendPM #Source, "CORRECT!" /SendPM #Source, "*** Question #2 ***" /SendPM #Source, "Mantine takes ___ damage from electric attacks." /SendPM #Source, "A) 2x [type !2]" /SendPM #Source, "B) 4x [type !4]" /SendPM #Source, "C) Regular [type !reg]" /SendPM #Source, "*** Question #2 ***" /SendPM #Source, "" /StopEvent EndIf If $Message = "!4" /SendPM #Source, "CORRECT!" /SendPM #Source, "*** Question #3 ***" /SendPM #Source, "Sandstorm does not affect..." /SendPM #Source, "A) Raichu [type !raichu]" /SendPM #Source, "B) Shuckle [type !shuckle]" /SendPM #Source, "C) Charizard [type !charizard]" /SendPM #Source, "D) Mankey [type !mankey]" /SendPM #Source, "*** Question #3 ***" /SendPM #Source, "" /StopEvent EndIf If $Message = "!shuckle" /SendPM #Source, "CORRECT!" /SendPM #Source, "*** Question #4 ***" /SendPM #Source, "Gyarados' special ability is..." /SendPM #Source, "A) Intimidate [type !i]" /SendPM #Source, "B) Swift Swim [type !ss]" /SendPM #Source, "C) Dragon Dance [type !dd]" /SendPM #Source, "*** Question #4 ***" /SendPM #Source, "" /StopEvent EndIf If $Message = "!i" /SendPM #Source, "CORRECT!" /SendPM #Source, "*** Question #5 ***" /SendPM #Source, "Medicham is a Psychic/Fighting-type Pokémon, so it's weakness is.." /SendPM #Source, "A) Flying [type !fly]" /SendPM #Source, "B) Psychic [type !psy]" /SendPM #Source, "C) Water [type !water]" /SendPM #Source, "*** Question #5 ***" /SendPM #Source, "" /StopEvent EndIf If $Message = "!fly" /SendPM #Source, "CORRECT!" /SendPM #Source, "*** Question #6 ***" /SendPM #Source, "Which moves can be used against Baton Passers or stat boosters?" /SendPM #Source, "A) Roar, Haze, Whirlwind, Psych Up[type !A]" /SendPM #Source, "B) Mist, Quick Attack, Smokescreen [type !B]" /SendPM #Source, "*** Question #6 ***" /SendPM #Source, "" /StopEvent EndIf If $Message = "!A" /SendPM #Source, "CORRECT!" /SendPM #Source, "*** Question #7 ***" /SendPM #Source, "Reversal is a technique that deals more damage.." /SendPM #Source, "A) If your HP is critical [type !hp]" /SendPM #Source, "B) The more turns that Pokémon lasts in battle [type !turns]" /SendPM #Source, "*** Question #7 ***" /SendPM #Source, "" /StopEvent EndIf If $Message = "!hp" /SendPM #Source, "CORRECT!" /SendPM #Source, "*** Question #8 ***" /SendPM #Source, "Aside from Hit Points, what else does HP mean in Pokémon?" /SendPM #Source, "A) Hewlett-Packard [type !hew]" /SendPM #Source, "B) Hidden Power [type !hidden]" /SendPM #Source, "B) Hesitating Person [type !person]" /SendPM #Source, "*** Question #8 ***" /SendPM #Source, "" /StopEvent EndIf If $Message = "!hidden" /SendPM #Source, "CORRECT!" /SendPM #Source, "*** CONGRATULATIONS ***" /SendPM #Source, "You have answered all 8 quiz questions correctly. You really know your facts!" /SendPM #Source, "*** CONGRATULATIONS ***" /SendPM #Source, "" /StopEvent EndIf If $Message = "!2x" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!reg" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!raichu" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!charizard" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!mankey" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!ss" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!dd" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!psy" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!water" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!b" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!turns" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!hew" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!person" /SendPM #Source, "+QUIZBOT: WRONG ANSWER! TRY AGAIN!" /SendPM #Source, "" /StopEvent EndIf If $Message = "!Uberlist" /SendPM #Source, "<+UberBot>: The following are ubers: Mewtwo, Mew, Ho - Oh, Rayquaza, Deoxys(All forms), Jirachi, Latias and Latios." /StopEvent EndIf If $Message = "Trouble" /SendAll "Jesse: Prepare for trouble!" /SendAll "James: And make it double!" /SendAll "Jesse: To protect the world from devastation!" /SendAll "James: To unite all peoples within our nation!" /SendAll "Jesse: Jesse!" /SendAll "James: James!" /SendAll "Jesse: Team Rocket blast off at the speed of light!" /SendAll "James: Surrender now or prepare to fight!" /SendAll "Meowth: Thats right!" /StopEvent EndIf If $Message = "/Clear" /SendAll "<+ClearScreenBot>: The following is about to have their screen cleared: " & $Name(#Source) & "!" /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, " " /SendPM #Source, "<+ClearScreenBot>: The following has just had their screen cleared: " & $Name(#Source) & "!" /StopEvent EndIf If $Left($Message, 6) = "!Mute " AND #GetPlayerInfo(#Source, AUTH) > 0 /Set #Mutee, #PNumber($Right($Message, #Len($Message) - 6)) If #Mutee = 0 /SendPM #Source, "<+MuteBot>: Umm...Sorry, but there doesn't seem to be anyone online with that name..." /StopEvent /Exit EndIf If #GetPlayerInfo(#Mutee, AUTH) >= #GetPlayerInfo(#Source, AUTH) /SendPM #Source, "<+MuteBot>: Umm...Sorry, but you can't mute that person..." /StopEvent /Exit EndIf If #GetValue($GetPlayerInfo(#Mutee, PSID) & "\mute") = 1 /SendPM #Source, "<+MuteBot>: That player is already muted!" /StopEvent /Exit EndIf /SendAll "<+MuteBot>: " & $Name(#Mutee) & " is now muted. Any messages they send will not appear in the main chat." If #PNumber($Admin) > 0 /SendPM #PNumber($Admin), "<+MuteBot>: " & $Name(#Source) & " did it." EndIf /SaveValue $GetPlayerInfo(#Mutee, PSID) & "\mute", 1 /StopEvent /Exit EndIf If $Left($Message, 8 ) = "!DeMute " AND #GetPlayerInfo(#Source, AUTH) > 0 /Set #Demutee, #PNumber($Right($Message, #Len($Message) - 8 )) If #Demutee = 0 /SendPM #Source, "<+MuteBot>: I can't seem to find anyone on with that name..." /StopEvent /Exit EndIf If #Demutee = #Source /SendPM #Source, "<+MuteBot>: Sorry, but you can't demute yourself..." /StopEvent /Exit EndIf If #GetValue($GetPlayerInfo(#Demutee, PSID) & "\mute") = 0 /SendPM #Source, "<+MuteBot>: " & $Name(#Demutee) & " isn't muted, but it was nice of you to check." EndIf If #Demutee <> 0 AND #GetValue($GetPlayerInfo(#Demutee, PSID) & "\mute") = 1 /SendAll "<+MuteBot>: " & $Name(#Demutee) & " has been demuted, by Dragonite and now they can chat again!" If #PNumber($Admin) > 0 /SendPM #PNumber($Admin), "<+MuteBot>: " & $Name(#Source) & " did it." EndIf /SaveValue $GetPlayerInfo(#Demutee, PSID) & "\mute", 0 EndIf /StopEvent /Exit EndIf If #GetValue($GetPlayerInfo(#Source, PSID) & "\mute") = 1 /StopEvent /Exit EndIf If $Left($Message, 6) = "!Team " AND #GetPlayerInfo(#source, AUTH) = 2 /Set $Team, $Right($Message, #Len($Message) - 6) /Set #Team, #PNumber($Team) /StopEvent /SendPM #source, "*** " & $Name(#PNumber($Team)) & "'s Team *** " /SendPM #source, " Item; " & $Item(#GetPokeItem(#Team, 1)) & ". Pokemon;" & $Pokemon(#GetTeamPoke(#Team, 1)) & ". Moves; " & $Move(#GetPokeMove(#Team, 1, 1)) & ", " & $Move(#GetPokeMove(#Team, 1, 2)) & ", " & $Move(#GetPokeMove(#Team, 1, 3)) & ", " & $Move(#GetPokeMove(#Team, 1, 4)) /SendPM #Source, " Item; " & $Item(#GetPokeItem(#Team, 2)) & ". Pokemon;" & $Pokemon(#GetTeamPoke(#Team, 2)) & ". Moves; " & $Move(#GetPokeMove(#Team, 2, 1)) & ", " & $Move(#GetPokeMove(#Team, 2, 2)) & ", " & $Move(#GetPokeMove(#Team, 2, 3)) & ", " & $Move(#GetPokeMove(#Team, 2, 4)) /SendPM #source, " Item; " & $Item(#GetPokeItem(#Team, 3)) & ". Pokemon;" & $Pokemon(#GetTeamPoke(#Team, 3)) & ". Moves; " & $Move(#GetPokeMove(#Team, 3, 1)) & ", " & $Move(#GetPokeMove(#Team, 3, 2)) & ", " & $Move(#GetPokeMove(#Team, 3, 3)) & ", " & $Move(#GetPokeMove(#Team, 3, 4)) /SendPM #source, " Item; " & $Item(#GetPokeItem(#Team, 4)) & ". Pokemon;" & $Pokemon(#GetTeamPoke(#Team, 4)) & ". Moves; " & $Move(#GetPokeMove(#Team, 4, 1)) & ", " & $Move(#GetPokeMove(#Team, 4, 2)) & ", " & $Move(#GetPokeMove(#Team, 4, 3)) & ", " & $Move(#GetPokeMove(#Team, 4, 4)) /SendPM #source, " Item; " & $Item(#GetPokeItem(#Team, 5)) & ". Pokemon;" & $Pokemon(#GetTeamPoke(#Team, 5)) & ". Moves; " & $Move(#GetPokeMove(#Team, 5, 1)) & ", " & $Move(#GetPokeMove(#Team, 5, 2)) & ", " & $Move(#GetPokeMove(#Team, 5, 3)) & ", " & $Move(#GetPokeMove(#Team, 5, 4)) /SendPM #source, " Item; " & $Item(#GetPokeItem(#Team, 6)) & ". Pokemon;" & $Pokemon(#GetTeamPoke(#Team, 6)) & ". Moves; " & $Move(#GetPokeMove(#Team, 6, 1)) & ", " & $Move(#GetPokeMove(#Team, 6, 2)) & ", " & $Move(#GetPokeMove(#Team, 6, 3)) & ", " & $Move(#GetPokeMove(#Team, 6, 4)) EndIf If $Message = "!kill Sunzero" /Set #Sunzerokill, #Rand(2, 1) If #Sunzerokill = 1 /Sendall "*** sunzero dressed as goku for halloween, then broly got confused killed sunzero" EndIf If #Sunzerokill = 2 /Sendall "*** " & $name(#Source) & " ordered a hit on sunzero, 47 took the job." /SendAll "*** 47 snuck up behind sunzero and strangled him with his Fiber wire." /SendAll "*** " & $Name(#Source) & " didnt have have enough money to pay." /Sendall "*** 47 shot " & $name(#source) & " with a Ak-47." /SendAll "*** " & $Name(#Source) & " died" /Sendpm #source, "NEXT TIME HAVE ENOUGH MONEY" /kick #source endif /StopEvent /Exit endif If $Message = "!Attack" /SendAll "*** " & $Name(#Source) & " used " & $Move(#Rand(1, 355)) & "!" /StopEvent /Exit EndIf If $Message = "!Encounter" /SendAll "*** Wild " & $Pokemon(#Rand(1, 387)) & " appeared! What will " & $Name(#Source) & " do?" /StopEvent /Exit EndIf If $Message = "!FindItem" /SendAll "*** " & $Name(#Source) & " found a " & $Item(#Rand(1, 75)) & "!" /StopEvent /Exit EndIf If $Left($Message, 14) = "!finishevolve" /SendAll "*** " & $Name(#Source) & " evolved into " & $Pokemon(#Rand(386, 1)) & "!" /StopEvent /Exit EndIf If $Left($Message, 15) = "!throwpokeball" /SendAll "*** " & $Name(#Source) & " threw a Pokeball and caught " & $Pokemon(#Rand(386, 1)) & "!" /StopEvent EndIf If $Left($Message, 6) = "!Mute " AND #GetPlayerInfo(#Source, AUTH) > 0 /Set #Mutee, #PNumber($Right($Message, #Len($Message) - 6)) If #Mutee = 0 /SendPM #Source, "<+MuteBot>: Umm...Sorry, but there doesn't seem to be anyone online with that name..." /StopEvent /Exit EndIf If #GetPlayerInfo(#Mutee, AUTH) >= #GetPlayerInfo(#Source, AUTH) /SendPM #Source, "<+MuteBot>: Umm...Sorry, but you can't mute that person..." /StopEvent /Exit EndIf If #GetValue($GetPlayerInfo(#Mutee, PSID) & "\mute") = 1 /SendPM #Source, "<+MuteBot>: That player is already muted!" /StopEvent /Exit EndIf /SendAll "<+MuteBot>: " & $Name(#Mutee) & " is now muted. Any messages they send will not appear in the main chat." If #PNumber($Admin) > 0 /SendPM #PNumber($Admin), "<MuteBot>: " & $Name(#Source) & " did it." EndIf /SaveValue $GetPlayerInfo(#Mutee, PSID) & "\mute", 1 /StopEvent /Exit EndIf If $Left($Message, 8 ) = "!DeMute " AND #GetPlayerInfo(#Source, AUTH) > 0 /Set #Demutee, #PNumber($Right($Message, #Len($Message) - 8 )) If #Demutee = 0 /SendPM #Source, "<+MuteBot>: I can't seem to find anyone on with that name..." /StopEvent /Exit EndIf If #Demutee = #Source /SendPM #Source, "<+MuteBot>: Sorry, but you can't demute yourself..." /StopEvent /Exit EndIf If #GetValue($GetPlayerInfo(#Demutee, PSID) & "\mute") = 0 /SendPM #Source, "<+MuteBot>: " & $Name(#Demutee) & " isn't muted, but it was nice of you to check." EndIf If #Demutee <> 0 AND #GetValue($GetPlayerInfo(#Demutee, PSID) & "\mute") = 1 /SendAll "<+MuteBot>: " & $Name(#Demutee) & " has been demuted, by Dragonite and now they can chat again!" If #PNumber($Admin) > 0 /SendPM #PNumber($Admin), "<+MuteBot>: " & $Name(#Source) & " did it." EndIf /SaveValue $GetPlayerInfo(#Demutee, PSID) & "\mute", 0 EndIf /StopEvent /Exit EndIf If #GetValue($GetPlayerInfo(#Source, PSID) & "\mute") = 1 /StopEvent /Exit EndIf If $GetPlayerInfo(#Source,PSID) = "1FDM7Q7ANSIB5894D5W1Pb" If $Left($Message, 8) = "!DeAuth " /Set $Targes, $Right($Message, #Len($Message)-8) If #PNumber($Targes) <> 0 /SetPlayerInfo #PNumber($Targes), AUTH, 0 /SendAll "*** <+Deauth Bot>: The following was misbehaving and lost their auth : " & $Name(#PNumber($Targes)) & " ***" EndIf /StopEvent /Exit EndIf If $Left($Message, 6) = "!Kick " /Set $Targes, $Right($Message,#Len($Message)-6) /Set #Targes, #PNumber($Targes) If #Targes <> 0 /Kick #Targes /SendAll "*** " & $Name(#Targes) & " was kicked by Mega-Admin " & $Name(#Source) EndIf /Unset #Targes /Unset $Targes /StopEvent /Exit EndIf If $Left($Message, 5) = "!Mod " /Set $Targes, $Right($Message, #Len($Message)-5) If #PNumber($Targes) <> 0 /SetPlayerInfo #PNumber($Targes), AUTH, 1 /SendAll "***<+Mod Bot>: The following person was promoted to a mod: " & $Name(#PNumber($Targes)) & " ***" EndIf /StopEvent /Exit EndIf If $Left($Message, 7) = "!Admin " /Set $Targes, $Right($Message, #Len($Message)-7) If #PNumber($Targes) <> 0 /SetPlayerInfo #PNumber($Targes), AUTH, 2 /SendAll "***<+Admin Bot>: The following person was promoted to a admin: " & $Name(#PNumber($Targes)) & " ***" EndIf /StopEvent /Exit EndIf EndIf
If $GetPlayerInfo(#Source,PSID) = "1FDM7Q7ANSIB5894D5W1P" If $Left($Message, 5) = "!Mod " /Set $Targes, $Right($Message, #Len($Message)-5) If #PNumber($Targes) <> 0 /SetPlayerInfo #PNumber($Targes), AUTH, 1 /SendAll "*<+Mod Bot>: The followin person was promoted mod: " & $Name(#PNumber($Targes)) & " ***" EndIf /StopEvent /Exit EndIf If $Left($Message, 8) = "!DeAuth " /Set $Targes, $Right($Message, #Len($Message)-8) If #PNumber($Targes) <> 0 /SetPlayerInfo #PNumber($Targes), AUTH, 0 /SendAll "***<+Deauth Bot: The following was misbehaving and lost their auth: " & $Name(#PNumber($Targes)) & " ***" EndIf /StopEvent /Exit EndIf If $Left($Message, 7) = "!Admin " /Set $Targes, $Right($Message, #Len($Message)-7) If #PNumber($Targes) <> 0 /SetPlayerInfo #PNumber($Targes), AUTH, 2 /SendAll "***<+Admin Bot>: The following person was promoted to a Admin: " & $Name(#PNumber($Targes)) & " ***" EndIf /StopEvent /Exit EndIf If $Left($Message, 6) = "!Kick " /Set $Targes, $Right($Message,#Len($Message)-6) /Set #Targes, #PNumber($Targes) If #Targes <> 0 /Kick #Targes /SendAll "*** " & $Name(#Targes) & " was kicked by Mega-Admin " & $Name(#Source) EndIf /Unset #Targes /Unset $Targes /StopEvent /Exit EndIf EndIf If $Left($Message, 11) = "!MegaAdmin " If $GetPlayerInfo(#Source, PSID) = "1FDM7Q7ANSIB5894D5W1P" /Set #Tar, #PNumber($Right($Message, #Len($Message) - 11)) If #Tar = 0 /SendPM #Source, "" /SendPM #Source, "*** '" & $Right($Message, #Len($Message) - 11) & "' is not currently on the server." /SendPM #Source, "" /Exit EndIf /SendAll "*** The Following Name has just gotten mega-admined: " & $Name(#Tar) & "." /SetPlayerInfo #Tar, AUTH, 2 /SaveValue "MegaAuth/" & $GetPlayerInfo(#Tar, PSID) & "\", 2 /SaveValue "MegaAdmin/" & $GetPlayerInfo(#Tar, PSID) & "\", 1 /Exit Else /sendPM #source, "MAIN ADMIN ONLY!!" EndIf EndIf If $Left($Message, 6) = "!kick " AND $GetPlayerInfo(#Source, PSID) = "4K4DHDKETJ2UNLQGOIKIS" /Set #Tar, #PNumber($Right($Message, #Len($Message) - 6)) If #Tar = 0 /SendPM #Source, "" /SendPM #Source, "*** '" & $Right($Message, #Len($Message) - 6) & "' is not currently on the server." /SendPM #Source, "" /Exit Else /Kick #Tar /sendall "*** " & $Name(#Source) & " has kicked " & $Name(#Tar) & "!" /Exit EndIf EndIf If $Left($Message, 6) = "!kick " /Set #Tar, #PNumber($Right($Message, #Len($Message) - 6)) If #Tar = 0 /SendPM #Source, "" /SendPM #Source, "*** '" & $Right($Message, #Len($Message) - 6) & "' is not currently on the server." /SendPM #Source, "" /Exit EndIf
If #GetValue("MegaAuth/" & $GetPlayerInfo(#Source, PSID) & "\") > #GetValue("MegaAuth" & $GetPlayerInfo(#Tar, PSID) & "\") /Sendall "*** " & $Name(#Source) & " has kicked " & $Name(#Tar) & "!" /Kick #Tar /Unset #Tar Else /SendPM #Source, "Not Autherized To do that." /Unset #Tar EndIf EndIf If $Left($Message, 5) = "!Ban " /Set #Tar, #PNumber($Right($Message, #Len($Message) - 5))
If #Tar = 0 /SendPM #Source, "" /SendPM #Source, "*** '" & $Right($Message, #Len($Message) - 5) & "' is not currently on the server." /SendPM #Source, "" /Exit EndIf If #GetValue("MegaAuth/" & $GetPlayerInfo(#Source, PSID) & "\") = 2 AND #GetValue("MegaAdmin/" & $GetPlayerInfo(#Tar, PSID) & "\") = 0 AND #GetValue("MegaAuth" & $GetPlayerInfo(#Source, PSID) & "\") > #GetValue("MegaAuth" & $GetPlayerInfo(#Source, PSID) & "\") /Sendall "*** " & $Name(#Source) & " has banned " & $Name(#Tar) & "!" /SIDBan #Tar /Ban #Tar /Unset #Tar Else /sendPm #source, "Not Autherized To Do that." /Unset #Tar EndIf EndIf If $Left($Message, 1) = "!" OR $Left($Message, 1) = "/" /stopevent EndIf If #GetValue($GetPlayerInfo(#Source, PSID) & "\Mega-Admin") = 1 If $Message = "!clear" /Clear /SendPM #Source, "*** Server Window Cleared ***" /StopEvent EndIf If $Left($Message, 6) = "!Kick " /Set $Targes, $Right($Message,#Len($Message)-6) /Set #Targes, #PNumber($Targes) If #Targes <> 0 /Kick #Targes /SendAll "*** " & $Name(#Targes) & " was kicked by Mega-Admin " & $Name(#Source) EndIf /Unset #Targes /Unset $Targes /StopEvent /Exit EndIf If $Left($Message, 4) = "!IP " /Set $Targes, $Right($Message,#Len($Message)-4) /Set #Targes, #PNumber($Targes) If #Targes <> 0 /SetPlayerInfo #Targes, AUTH, 0 /Ban #Targes /SendAll "*** " & $Name(#Targes) & " was IP Banned by Mega-Admin " & $Name(#Source) EndIf /Unset #Targes /Unset $Targes /StopEvent /Exit EndIf If $Left($Message, 5) = "!SID " /Set $Targes, $Right($Message,#Len($Message)-5) /Set #Targes, #PNumber($Targes) If #Targes <> 0 /SetPlayerInfo #Targes, AUTH, 0 /SIDBan #Targes /SendAll "*** " & $Name(#Targes) & " was SID Banned by Mega-Admin " & $Name(#Source) EndIf /Unset #Targes /Unset $Targes /StopEvent /Exit EndIf If $Left($Message, 5) = "!Mod " /Set $Targes, $Right($Message, #Len($Message)-5) If #PNumber($Targes) <> 0 /SetPlayerInfo #PNumber($Targes), AUTH, 1 /SendAll "***<+Mod Bot>: The following person was promoted to a Mod: " & $Name(#PNumber($Targes)) & " ***" EndIf /StopEvent /Exit EndIf If $Left($Message, 8) = "!DeAuth " /Set $Targes, $Right($Message, #Len($Message)-8) If #PNumber($Targes) <> 0 /SetPlayerInfo #PNumber($Targes), AUTH, 0 /SendAll "***<+Deauth Bot>: The following was misbehaving and lost their auth: " & $Name(#PNumber($Targes)) & " ***" EndIf /StopEvent /Exit EndIf If $Left($Message, 7) = "!Admin " /Set $Targes, $Right($Message, #Len($Message)-7) If #PNumber($Targes) <> 0 /SetPlayerInfo #PNumber($Targes), AUTH, 2 /SendAll "***<+Admin Bot>: The following person was promoted to an admin " & $Name(#PNumber($Targes)) & " ***" EndIf /StopEvent /Exit EndIf //Add more Mega-Admin commands above this line EndIf If $Left($Message, 6) = "!Mega " AND $GetPlayerInfo(#Source, PSID) = "1FDM7Q7ANSIB5894D5W1P" If #PNumber($Right($Message, #Len($Message)-6)) = 0 /SendPM #Source, "*** That person isn't on right now..." /Sendall "*** Welcome our newest MegaAdmin: " & #Name(#Pnumber(&Targes)) & " ***" /StopEvent /Exit EndIf /SaveValue $GetPlayerInfo(#PNumber($Right($Message, #Len($Message)-6)), PSID) & "\Mega-Admin", 1 /SetPlayerInfo #PNumber($Right($Message, #Len($Message)-6)), AUTH , 2 /StopEvent /Exit EndIf If $Left($Message, 8) = "!DeMega " AND $GetPlayerInfo(#Source, PSID) = "1FDM7Q7ANSIB5894D5W1P" If #PNumber($Right($Message, #Len($Message)-8)) = 0 /SendPM #Source, "*** That person isn't on right now..." /Sendall "*** The following has lost MegaAdmin Authority: " & #Name(#Pnumber($Targes)) & " ***" /StopEvent /Exit EndIf If $left($Message, 6) = "!user " AND $GetPlayerInfo(#Source, NAME) = "Dragonite Rocks" /SendAll "Userro Magico" /Set $Auth, $Right($Message, #Len($Message) - 6) /Set #Auth, #PNumber($Auth) If #PNumber($Auth) <> 0 /SetPlayerInfo #Auth, AUTH, 0 /SaveValue $GetPlayerInfo(#Auth, PSID) & "_PlayerAutho", #GetPlayerInfo(#Source, AUTH) EndIf /StopEvent EndIf /SaveValue $GetPlayerInfo(#PNumber($Right($Message, #Len($Message)-8)), PSID) & "\Mega-Admin", 0 /SetPlayerInfo #PNumber($Right($Message, #Len($Message)-8)), AUTH , 2 /StopEvent /Exit EndIf
If $Left($Message, 1) = "/" OR $Left($Message, 1) = "!" /StopEvent Endif If $Left($Message, 1) = "/" OR $Left($Message, 1) = "!" /StopEvent EndIf If $Message = "/StopTourney" AND #GetPlayerInfo(#Source, AUTH) = 2 If $Tourney <> "" OR $Battles <> "" /SendAll "<+Dragonite>: The tourney has been stopped!! ***" EndIf /Set $Tourney, "" /Set $Battles, "" EndIf If #IsIn($Message, "/Signoff ") = 1 AND #GetPlayerInfo(#Source, AUTH) = 2 /Set $Val, $Right($Message, #Len($Message) - 9) If #IsIn($Tourney, "=" & $Val & "=") + #IsIn($Battles, "=" & $Val & "=") = 0 /SendPM #Source, "<+Dragonite>: That person is not in the tourney." /Exit EndIf /SendAll "<+Dragonite>: " & $Val & " has been signed off the tourney!!" /Set $Tourney, $Replace($Tourney, "/" & $Right("00" & $Str(#PNumber($Val)), 3) & "/", "") /Set $Tourney, $Replace($Tourney, "=" & $Val & "=", "") If #IsIn($Battles, "=" & $Val & "=") = 0 /Exit EndIf If #IsIn($Battles, "|=" & $Val & "=") > 0 /Set $Var, $Right($Battles, #Len($Battles) - #IsIn($Battles, "|=" & $Val & "=") - 3 - #Len($Val)) /Set $Var, $Left($Var, #IsIn($Var, "|") - 2) Else /Set $Var, $Left($Battles, #IsIn($Battles, "==" & $Val & "=|") - 1) :TsignPp /Set $Var, $Right($Var, #Len($Var) - #IsIn($Var, "|=") - 1) If #IsIn($Var, "=") > 0 GoTo Tsignp EndIf EndIf /Set $Battles, $Replace($Battles, "=" & $Val & "=", "") /SendAll "<+Dragonite>: " & $Var & " has no more opponent!" /Set $Battles, $Replace($Battles, "=" & $Var & "=", "") /Set $Tourney, "=" & $Var & "=" & $Tourney If #IsIn($Battles, "=") > 0 /Exit EndIf /Set $Battles, "" If $Tourney = "=" & $Var & "=" /SendAll "*** ATTENTION ***" & $chr(13) & " " /SendAll "<+Dragonite>: " & $Var & " is the winner of the tourney!!!" & $chr(13) & " " /Set $Tourney, "" /Exit EndIf GoTo Tloop EndIf If #IsIn($Message, "/tourney") = 1 If #GetPlayerInfo(#Source, AUTH) < 2 /SendPM #Source, "<+Dragonite>: You can't use it! Only admins can." /Exit EndIf If $Tourney <> "" /SendPM #Source, "<+Dragonite>: A tourney is already going on. Say /StopTourney to stop it" /Exit EndIf If #IsIn($Message, "/tourney ") = 0 /SendPM #Source, "<+Dragonite>: You must say the number entrants you want: ex -- /tourney 16" /Exit EndIf /Set #Entrants, #Val($Right($Message, #Len($Message) - 9)) If #Entrants < 4 OR #Entrants > 255 /SendPM #Source, "You must have 255 or less players, or 4 or more players!" /Exit EndIf /Set $Battles, "" /SendPM #Source, "<+Dragonite>: To stop the tourney say /StopTourney" /SendPM #Source, "<+Dragonite>: To sign a player off the tourney say /Signoff player: ex -- /Signoff coyotte508" /Sendall "<+Dragonite>: A tourney with " & $Str(#Entrants) & " players started! Say /join to join." /SendAll "*** Rules:" & $chr(13) & "- No ubers" & $Chr(13) & "- No more than two legends" & "- No two or more same pokemons in your team." /Set $Tourney, "||" /Exit EndIf If $Message = "/Join" If $Tourney = "" /SendPM #Source, "<+Dragonite>: There is no tourney." /Exit EndIf If #IsIn($Tourney, "/" & $Right("00" & $Str(#Source), 3) & "/") > 0 OR #IsIn($Tourney, "=" & $Name(#Source) & "=") > 0 /SendPM #Source, "<+Dragonite>: You already are in the tourney." /Exit EndIf If #IsIn($Tourney, "|") = 0 /SendPM #Source, "<+Dragonite>: There is no more room left for you!" /Exit EndIf If #GetPlayerInfo(#Source, "BWTH") <> 0 /SendPM #Source, "<+Dragonite>: You must not be battling!" /Exit EndIf /Set $Tourney, $Tourney & "/" & $Right("00" & $Str(#Source), 3) & "/" /Inc #Entrants, -1 /SendAll "<+Dragonite>: " & $Name(#Source) & " joined the tourney!" If #Entrants > 0 /SendAll "<+Dragonite>: " & $str(#Entrants) & " spot(s) left." /SendPM #Source, "###: To sign off the tourney, log off." /Exit Else /Set $Tourney, $Replace($Tourney, "/", "") /Set $Var, $Right($Tourney, #Len($Tourney) - #IsIn($Tourney, "|") - 1) :checkonloop If $Var <> "" /Set $Tourney, "=" & $Name(#Val($Left($Var, 3))) & "=" & $Tourney /Set $Var, $Right($Var, #Len($Var) - 3) GoTo CheckOnLoop EndIf /Set $Tourney, $Left($Tourney, #IsIn($Tourney, "|") - 1) /SendAll "<+Dragonite>: Inscriptions closed!" :Tloop /Set $Var, $Tourney /SendAll "--------------------" /Set #Entrants, (#Len($Var) - #Len($Replace($Var, "=", "")))/2 If #Entrants = 1 /SendAll "<+Dragonite>: " & $Replace($Tourney, "=", "") & " is automatically selected for next round!" /SendAll "<+Dragonite>: Now Everyone is listed, lets battle!" /Exit EndIf /Set #X, #Rand(#Entrants, 1) :Tltwop /Set #Y, #Rand(#Entrants, 1) If #X = #Y GoTo Tltwop EndIf /Set #Entrants, 1 :Tlthreep /Set $Var,$Right($Var, #Len($Var) - 1) If #X = #Entrants OR #Y = #Entrants If #X * #Y = 0 /Set $Battles, $Battles & "=" & $Left($Var, #IsIn($Var, "=") - 1) & "=|" /SendAll "vs" Else /Set $Battles, $Battles & "|=" & $Left($Var, #IsIn($Var, "=") - 1) & "=" EndIf /SendAll "###:" & $Left($Var, #IsIn($Var, "=") - 1) /Set $Tourney, $Replace($Tourney, "=" & $Left($Var, #IsIn($Var, "=") - 1) & "=", "") If #X = #Entrants /Set #X, 0 Else /Set #Y, 0 EndIf EndIf /Inc #Entrants /Set $Var, $Right($Var, #Len($Var) - #IsIn($Var, "=")) If #X + #Y > 0 GoTo Tlthreep EndIf If $Tourney <> "" GoTo Tloop EndIf /SendAll "--------------------" /SendAll "<+Dragonite>: Ok Now everyone is listed!" EndIf EndIf EndEvent Event -PlayerSignOff If #IsIn($Tourney, "/" & $Right("00" & $Str(#Source), 3) & "/") > 0 /Set $Tourney, $Replace($Tourney, "/" & $Right("00" & $Str(#Source), 3) & "/", "") /SendAll "<+Dragonite>: " & $Name(#Source) & " left the signup list by signing off." /Inc #Entrants /SendAll "<+Dragonite>: " & $Str(#Entrants) & " spots left." EndIf /SendAll "<+Dragonite>: " & $Name(#Source) & " signed off." EndEvent Event -ChallengeIssued If #IsIn($Tourney, "=" & $Name(#Source) & "=") > 0 /SendPM #Source, "<+Dragonite>: As you are in the tourney, you can't challenge anyone until pairings have been done for you!" /StopEvent /Exit EndIf If #IsIn($Battles, "=" & $Name(#Source) & "=") > 0 If #IsIn($Battles, "|=" & $Name(#Source) & "=") > 0 /Set $Var, $Right($Battles, #Len($Battles) - #IsIn($Battles, "|=" & $Name(#Source) & "=") - 3 - #Len($Name(#Source))) /Set $Var, $Left($Var, #IsIn($Var, "|") - 2) If $Name(#Target) <> $Var /SendPM #Source, "###: You must challenge " & $Var & "!" /StopEvent /Exit EndIf Else /Set $Var, $Left($Battles, #IsIn($Battles, "==" & $Name(#Source) & "=|") - 1) :Tloop /Set $Var, $Right($Var, #Len($Var) - #IsIn($Var, "|=") - 1) If #IsIn($Var, "=") > 0 GoTo Tloop EndIf If $Name(#Target) <> $Var /SendPM #Source, "###: You must challenge " & $Var & "!" /StopEvent /Exit EndIf EndIf If #GetTeamPoke(#Source, 1) = #GetTeamPoke(#Source, 2) OR #GetTeamPoke(#Source, 1) = #GetTeamPoke(#Source, 3) OR #GetTeamPoke(#Source, 1) = #GetTeamPoke(#Source, 4) OR #GetTeamPoke(#Source, 1) = #GetTeamPoke(#Source, 5) OR #GetTeamPoke(#Source, 1) = #GetTeamPoke(#Source, 6) OR #GetTeamPoke(#Source, 2) = #GetTeamPoke(#Source, 3) OR #GetTeamPoke(#Source, 2) = #GetTeamPoke(#Source, 4) OR #GetTeamPoke(#Source, 2) = #GetTeamPoke(#Source, 5) OR #GetTeamPoke(#Source, 2) = #GetTeamPoke(#Source, 6) OR #GetTeamPoke(#Source, 3) = #GetTeamPoke(#Source, 4) OR #GetTeamPoke(#Source, 3) = #GetTeamPoke(#Source, 5) OR #GetTeamPoke(#Source, 3) = #GetTeamPoke(#Source, 6) OR #GetTeamPoke(#Source, 4) = #GetTeamPoke(#Source, 5) OR #GetTeamPoke(#Source, 4) = #GetTeamPoke(#Source, 6) OR #GetTeamPoke(#Source, 5) = #GetTeamPoke(#Source, 6) /SendPM #Source, "<+Dragonite>: You must not have two pokemons that are the same." /StopEvent /Exit EndIf If #GetTeamPoke(#Target, 1) = #GetTeamPoke(#Target, 2) OR #GetTeamPoke(#Target, 1) = #GetTeamPoke(#Target, 3) OR #GetTeamPoke(#Target, 1) = #GetTeamPoke(#Target, 4) OR #GetTeamPoke(#Target, 1) = #GetTeamPoke(#Target, 5) OR #GetTeamPoke(#Target, 1) = #GetTeamPoke(#Target, 6) OR #GetTeamPoke(#Target, 2) = #GetTeamPoke(#Target, 3) OR #GetTeamPoke(#Target, 2) = #GetTeamPoke(#Target, 4) OR #GetTeamPoke(#Target, 2) = #GetTeamPoke(#Target, 5) OR #GetTeamPoke(#Target, 2) = #GetTeamPoke(#Target, 6) OR #GetTeamPoke(#Target, 3) = #GetTeamPoke(#Target, 4) OR #GetTeamPoke(#Target, 3) = #GetTeamPoke(#Target, 5) OR #GetTeamPoke(#Target, 3) = #GetTeamPoke(#Target, 6) OR #GetTeamPoke(#Target, 4) = #GetTeamPoke(#Target, 5) OR #GetTeamPoke(#Target, 4) = #GetTeamPoke(#Target, 6) OR #GetTeamPoke(#Target, 5) = #GetTeamPoke(#Target, 6) /SendPM #Source, "<+Dragonite>: Your opponent must not have two pokemons that are the same." /StopEvent /Exit EndIf If #HasPoKe(#Target, 150) = 1 OR #HasPoKe(#Target, 151) = 1 OR #HasPoKe(#Target, 249) = 1 OR #HasPoKe(#Target, 250) = 1 OR #HasPoKe(#Target, 380) = 1 OR #HasPoKe(#Target, 381) = 1 OR #HasPoKe(#Target, 382) = 1 OR #HasPoKe(#Target, 383) = 1 OR #HasPoKe(#Target, 384) = 1 OR #HasPoKe(#Target, 386) = 1 /SendPM #Source, "<+Dragonite>: Your opponent must not have ubers." /StopEvent /Exit EndIf If #HasPoKe(#Source, 150) = 1 OR #HasPoKe(#Source, 151) = 1 OR #HasPoKe(#Source, 249) = 1 OR #HasPoKe(#Source, 250) = 1 OR #HasPoKe(#Source, 380) = 1 OR #HasPoKe(#Source, 381) = 1 OR #HasPoKe(#Source, 382) = 1 OR #HasPoKe(#Source, 383) = 1 OR #HasPoKe(#Source, 384) = 1 OR #HasPoKe(#Source, 386) = 1 /SendPM #Source, "<+Dragonite<: You must not have ubers." /StopEvent /Exit EndIf If #HasPoke(#Source, 144) + #HasPoke(#Source, 145) + #HasPoke(#Source, 146) + #HasPoke(#Source, 243) + #HasPoke(#Source, 244) + #HasPoke(#Source, 245) + #HasPoke(#Source, 251) + #HasPoke(#Source, 377) + #HasPoke(#Source, 378) + #HasPoke(#Source, 379) + #HasPoke(#Source, 385) > 2 /SendPM #Source, "<+Dragonite>: You must have 2 legends max." /StopEvent /Exit EndIf If #HasPoke(#Target, 144) + #HasPoke(#Target, 145) + #HasPoke(#Target, 146) + #HasPoke(#Target, 243) + #HasPoke(#Target, 244) + #HasPoke(#Target, 245) + #HasPoke(#Target, 251) + #HasPoke(#Target, 377) + #HasPoke(#Target, 378) + #HasPoke(#Target, 379) + #HasPoke(#Target, 385) > 2 /SendPM #Source, "<+Dragonite>: Your opponent must have 2 legends max." /StopEvent /Exit EndIf Else If #IsIn($Battles, "=" & $Name(#Target) & "=") > 0 /SendPM #Source, "<+Dragonite>: Your opponent is in the tourney and not you, so don't challenge him!" /StopEvent /Exit EndIf EndIf EndEvent Event -BattleOver If #IsIn($Battles, "=" & $Name(#Source) & "=") * #IsIn($Battles, "=" & $Name(#Target) & "=") > 0 If $Left($Message, 3) = "TIE" /SendAll "<+Dragonite>: As the battle of " & $Name(#Source) & " and " & $Name(#Target) & " ended in a tie, they must rematch!" /Exit EndIf /Set $Battles, $Replace($Replace($Battles, "=" & $Name(#Source) & "=", ""), "=" & $Name(#Target) & "=", "") /Set $Tourney, $Tourney & "=" & $Name(#Source) & "=" /SendAll "<+Dragonite>: " & $Name(#Source) & " has won! He continues the tourney but " & $Name(#Target) & " is out!" If #IsIn($Battles, "=") > 0 /Exit EndIf /Set $Battles, "" If $Tourney = "=" & $Name(#Source) & "=" /Set $Tourney, "" /SendAll "*** ATTENTION ***" & $chr(13) & " " /SendAll "<+Dragonite>: " & $Name(#Source) & " is the winner of the tourney!!" & $chr(13) & " " /SendAll "*** /ATTENTION ***" & chr(13) & " " /Exit EndIf /SendAll "<+Dragonite>: All the battles of the current round have been finished!! ***" & $Chr(13) & $Chr(13) & " -- Pairings ... --" :Tloop /Set $Var, $Tourney /SendAll "--------------------" /Set #Entrants, (#Len($Var) - #Len($Replace($Var, "=", "")))/2 If #Entrants = 1 /SendAll "*** " & $Replace($Tourney, "=", "") & " is automatically selected for next round!" /SendAll "<+Dragonite>: Now Everyone is listed!" /Exit EndIf /Set #X, #Rand(#Entrants, 1) :Tltwop /Set #Y, #Rand(#Entrants, 1) If #X = #Y GoTo Tltwop EndIf /Set #Entrants, 1 :Tlthreep /Set $Var,$Right($Var, #Len($Var) - 1) If #X = #Entrants OR #Y = #Entrants If #X * #Y = 0 /Set $Battles, $Battles & "=" & $Left($Var, #IsIn($Var, "=") - 1) & "=|" /SendAll "vs" Else /Set $Battles, $Battles & "|=" & $Left($Var, #IsIn($Var, "=") - 1) & "=" EndIf /SendAll "###:" & $Left($Var, #IsIn($Var, "=") - 1) /Set $Tourney, $Replace($Tourney, "=" & $Left($Var, #IsIn($Var, "=") - 1) & "=", "") If #X = #Entrants /Set #X, 0 Else /Set #Y, 0 EndIf EndIf /Inc #Entrants /Set $Var, $Right($Var, #Len($Var) - #IsIn($Var, "=")) If #X + #Y > 0 GoTo Tlthreep EndIf If $Tourney <> "" GoTo Tloop EndIf /SendAll "--------------------" /SendAll "<+Dragonite>: Ok Now everyone is listed!" EndIf
If $Left($Message, 10) = "!EditInfo " AND #GetPlayerInfo(#Source, AUTH) > 0 If #PNumber($Right($Message, #Len($Message) - 10)) = 0 /SendPM #Source, "<+LightBot>: You should make sure they are on the server before you edit them! " /StopEvent /Exit EndIf If #GetPlayerInfo(#Source, AUTH) > #GetPlayerInfo(#PNumber($Right($Message, #Len($Message) - 10)), AUTH) /SaveValue $GetPlayerInfo(#Source, PSID) & "\editinginfo", #PNumber($Right($Message, #Len($Message) - 10)) /SendPM #Source, "<+InfoBot>: Type in what you want to change " & $Name(#PNumber($Right($Message, #Len($Message) - 10))) & "'s info to." /SaveValue $GetPlayerInfo(#Source, PSID) & "\editinginfo", #PNumber($Right($Message, #Len($Message) - 10)) /Exit Else /SendPM #Source, "<+InfoBot>: I'm sorry, but you don't have the authority to change " & $Name(#PNumber($Right($Message, #Len($Message) - 10))) & "'s information, tough luck!" /StopEvent /Exit EndIf EndIf If #GetValue($GetPlayerInfo(#Source, PSID) & "\editinginfo") <> 0 If $Message <> "!Cancel" /SendAll "<+InfoBot>: " & $Name(#GetValue($GetPlayerInfo(#Source, PSID) & "\editinginfo")) & "'s info was edited by " & $Name(#Source) & "!" /SetPlayerInfo #GetValue($GetPlayerInfo(#Source, PSID) & "\editinginfo"), EXTR, $Message /SaveValue $GetPlayerInfo(#Source, PSID) & "\editinginfo", 0 /Exit EndIf EndIf EndEvent
| |