Меню сайта
Мини-чат
Наш опрос
Какое поколение вам нравится больше?
Всего ответов: 593

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
Приветствую Вас,
Гость!
Календарь новостей
«  Октябрь 2017  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
3031
Поиск
Друзья сайта
























Pokemaniacs! RPHS!



Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
© 2017 Сделать бесплатный сайт с uCoz