Skip to content

Instantly share code, notes, and snippets.

@coyotte508

coyotte508/gist:4169697

Created November 29, 2012 15:11
Star
Embed
What would you like to do?
Learn more about clone URLs
Download ZIP
Old NB RPG script
Raw
gistfile1.vb
//Record
//Check
//Save
//Reload
//Switch
//Show
//ShowTeam
//Pokedex
//Commands
//HelpMe
//Inventory
//Start
//Delete
//Encounter
Event -PlayerSignOn
If $Right($Name(#Source), 8) = "Commands"
/SendPM #Source, $Srv & "Don't take that name"
/Kick #Source
EndIf
EndEvent
Event +PlayerSignOn
/SendPM #Source, "RPG does not work now, because regvals are not done. If you want to help make RPG working, PM the admin: coyotte508"
/Set $MonoVal(#Source), $GetValue("#MonoVal" & $GetPlayerInfo(#Source, PSID))
/SendPM #Source, $Srv & "Welcome " & $name(#Source) & " to that RPG Server! Remember that RPG is only a part of the whole server!"
/SendPM #Source, $Srv & "If you play RPG please put (RPG) or [RPG] before your name, so everyone can see you play RPG. The Non-Rpg players could battle easily that way."
/SendPM #Source, $Srv & "Type !Main Commands for a list, or just say !HelpMe if you want to know more about the RPG"
If $GetValue("Team" & $GetPlayerInfo(#Source, PSID)) = ""
/SendPM #Source, $Srv & "Hum.... You don't have any rpg team. Type !start [pokemon] to start a team with him, or !Start. For example: !Start Bulbasaur"
/SendPM #Source, $Srv & "You can only start with " & $Replace($GetValue("$Starters"), "/", ", ") & "!"
/SetPlayerInfo #Source, EXTR, "[Non Rpg Team]" & $GetPlayerInfo(#Source, EXTR)
/Exit
EndIf
/Set $Team(#Source), $GetValue("Team" & $GetPlayerInfo(#Source, PSID))
/Set $Info(#Source), $GetValue("Info" & $GetPlayerInfo(#Source, PSID))
/Set $box(#Source), $GetValue("Box" & $GetPlayerInfo(#Source, PSID))
/Set $Value, $Name(#Source)
If #IsIn($Value, "(RPG)") > 0
/Set $Value, $Left($Value, #IsIn($Value, "(RPG)") - 1)
If $Value & "(RPG)" <> $Name(#Source)
GoTo EndGL
EndIf
EndIf
If #IsIn($Value, "[RPG]") > 0
/Set $Value, $Left($Value, #IsIn($Value, "[RPG]") - 1)
If $Value & "[RPG]" <> $Name(#Source)
GoTo EndGL
EndIf
EndIf
If #IsIn($GetValue("Gymleaders"), "=" & $Value & "/") > 0
/Set $Value, $Right($GetValue("Gymleaders"), #Len($GetValue("GymLeaders")) - #IsIn($GetValue("Gymleaders"), "=" & $Value & "/"))
/Set $Value, $Left($Value, #IsIn($Value, "=") - 1)
/SetPlayerInfo(#Source, EXTR), $Right($Left($Value, #IsIn($Value, "\") - 1), #Len($Value) - #IsIn($Left($Value, #IsIn($Value, "\") - 1), "|")) & " GymLeader."
/Set $Info(#Source), $Right($Left($Value, #IsIn($Value, "(") - 1), #Len($Value) - #IsIn($Left($Value, #IsIn($Value, "(") - 1), "\")) & "|" & $Replace($Right($Value, #Len($Value) - #IsIn($Value, "(")), ")", "")
/SendPM #Source, $Srv & " Successfully logged in as a GymLeader!"
/Exit
EndIf
:EndGL
/Set #X, 0
/Set #N, 0
:Teamchecker
/Inc #X
/Set $Value, $Replace($team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Str(#X) & "=") + 7), "")
If #IsIn($Value, "=") > 0
/Set $Value, $Left($Value, #IsIn($Value, "=Poke_" & $Str(#X + 1) & "=") - 1)
EndIf
/Set #Y, #Val($Left($Value, 3))
If #GetTeamPoke(#Source, #X) <> #Y
/SendPM #Source, $Srv & "You don't have " & $Pokemon(#Y) & " at slot " & $str(#X) & " that is in your RPG team!"
/SendPM #Source, $Srv & "Correct your team if you want to play RPG"
/SendPM #Source, $Srv & "You can switch slots by using the !switch command"
/SetPlayerInfo #Source, EXTR, "[Normal Team] " & $GetPlayerInfo(#Source, EXTR)
/Exit
EndIf
If #GetPokeLevel(#Source, #X) <> #Val($Mid($Value, 4, 3))
/SendPM #Source, $Srv & $Pokemon(#Y) & " should be at level " & $str(#Val($Mid($Value, 4, 3))) & "!! It is at level " & $str(#GetPokeLevel(#Source, #X)) & "."
/Inc #N
EndIf
/Set #Z, 0
:Movechecker
/Inc #Z
If #GetPokeMove(#Source, #X, #Z) <> #Val($Mid($Value, 10, 3)) AND #GetPokeMove(#Source, #X, #Z) <> #Val($Mid($Value, 13, 3)) AND #GetPokeMove(#Source, #X, #Z) <> #Val($Mid($Value, 16, 3)) AND #GetPokeMove(#Source, #X, #Z) <> #Val($Mid($Value, 19, 3))
/SendPM #Source, $Srv & $Pokemon(#Y) & " has an invalid move at slot " & $str(#Z) & " (" & $Move(#GetPokeMove(#Source, #X, #Z)) & ") ! Change that move."
/Inc #N
EndIf
If #Z < 4
GoTo MoveChecker
EndIf
/Set #Z, 7
:SecondMovechecker
/Inc #Z, 3
If #GetPokeMove(#Source, #X, 1) <> #Val($Mid($Value, #Z, 3)) AND #GetPokeMove(#Source, #X, 2) <> #Val($Mid($Value, #Z, 3)) AND #GetPokeMove(#Source, #X, 3) <> #Val($Mid($Value, #Z, 3)) AND #GetPokeMove(#Source, #X, 4) <> #Val($Mid($Value, #Z, 3)) AND 0 <> #Val($Mid($Value, #Z, 3))
/SendPM #Source, $Srv & $Pokemon(#Y) & " doesn't have " & $Move(#Val($Mid($Value, #Z, 3))) & "! Add that move."
/Inc #N
EndIf
If #Z < 19
GoTo SecondMoveChecker
EndIf
/Set #Z, #Val($Mid($Value, 7, 3))
If #Z > 74
/Set #Z, 0
EndIf
If #GetPokeItem(#Source, #X) <> #Z
/Inc #N
If #Z <> 0
/SendPM #Source, $Srv & $Pokemon(#Y) & " should have the item " & $Item(#Z) & "!"
Else
/SendPM #Source, $Srv & $Pokemon(#Y) & " shouldn't have any items!!"
EndIf
EndIf
If #X < 6
GoTo Teamchecker
EndIf
If #N > 0
/SendPM #Source, "*** Your team is invalid! ***"
/SendPM #Source, "*** Type !showteam if you want to! ***"
Else
/SendPM #Source, "*** Your team is valid!! ***"
EndIf
/Set $Value, $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=I=")-1), "=L=", "")
/SendPM #Source, "*** Location : " & $Value & " ***"
/Set $Value, $GetValue("Location_" & $Value)
/Set $ValueB, $Left($Value, #IsIn($Value, "/")-1)
/Set $Value, $Replace($Value, $ValueB & "/", "")
:Locationloop
/SendPM #Source, $Srv & $Left($ValueB, #IsIn($ValueB, "-") - 1)
If $Value <> ""
/Set $ValueB, $Left($Value, #IsIn($Value, "/")-1)
/Set $Value, $Replace($Value, $ValueB & "/", "")
If $Left($ValueB, #IsIn($ValueB, "-") - 1) <> ""
GoTo LocationLoop
EndIf
/SendPM #Source, ""
EndIf
If #N = 0
/Set $Value, "RPG Team"
Else
/Set $Value, "Invalid Team"
EndIf
/Set $ValueB, $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=M=")-3), $Left($Info(#Source), #IsIn($Info(#Source),"=B=")), "")
/Set #B, #Len($ValueB) - #Len($Replace($ValueB, "1", ""))
/SetPlayerInfo #Source, EXTR, "[" & $Value & " | Location: " & $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=I=") - 1), "=L=", "") & " | Badges: " & $Str(#B) & " | " & $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=V=")-1), $Left($Info(#Source), #IsIn($Info(#Source),"=M=") + 2), "") & "¥ ]"
EndEvent
Event +TeamChange
If $GetValue("Team" & $GetPlayerInfo(#Source, PSID)) = ""
/SendPM #Source, $Srv & "Hum.... You don't have any rpg team. Type !start [pokemon] to start a team with him, or !Start. For example: !Start Bulbasaur"
/SendPM #Source, $Srv & "You can only start with " & $Replace($GetValue("$Starters"), "/", ", ") & "!"
/SetPlayerInfo #Source, EXTR, "[Non-RPG Team]" & $GetPlayerInfo(#Source, EXTR)
/Exit
EndIF
/Set $Value, $Name(#Source)
If #IsIn($Value, "(RPG)") > 0
/Set $Value, $Left($Value, #IsIn($Value, "(RPG)") - 1)
If $Value & "(RPG)" <> $Name(#Source)
GoTo EndGL
EndIf
EndIf
If #IsIn($Value, "[RPG]") > 0
/Set $Value, $Left($Value, #IsIn($Value, "[RPG]") - 1)
If $Value & "[RPG]" <> $Name(#Source)
GoTo EndGL
EndIf
EndIf
If #IsIn($GetValue("Gymleaders"), "=" & $Value & "/") > 0
/Set $Value, $Right($GetValue("Gymleaders"), #Len($GetValue("GymLeaders")) - #IsIn($GetValue("Gymleaders"), "=" & $Value & "/"))
/Set $Value, $Left($Value, #IsIn($Value, "=") - 1)
/SetPlayerInfo(#Source, EXTR), $Right($Left($Value, #IsIn($Value, "\") - 1), #Len($Value) - #IsIn($Left($Value, #IsIn($Value, "\") - 1), "|")) & " GymLeader."
/Set $Info(#Source), $Right($Left($Value, #IsIn($Value, "(") - 1), #Len($Value) - #IsIn($Left($Value, #IsIn($Value, "(") - 1), "\")) & "|" & $Replace($Right($Value, #Len($Value) - #IsIn($Value, "(")), ")", "")
/SendPM #Source, $Srv & " Successfully logged in as a GymLeader!"
/Exit
EndIf
:EndGL
/Set #X, 0
/Set #N, 0
:Teamchecker
/Inc #X
/Set $Value, $Replace($team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Str(#X) & "=") + 7), "")
If #IsIn($Value, "=") > 0
/Set $Value, $Left($Value, #IsIn($Value, "=Poke_" & $Str(#X + 1) & "=") - 1)
EndIf
/Set #Y, #Val($Left($Value, 3))
If #GetTeamPoke(#Source, #X) <> #Y
/SendPM #Source, $Srv & "You don't have " & $Pokemon(#Y) & " at slot " & $str(#X) & " that is in your RPG team!"
/SendPM #Source, $Srv & "Correct your team if you want to play RPG"
/SendPM #Source, $Srv & "You can switch slots by using the !switch command"
/SetPlayerInfo #Source, EXTR, "[Normal Team] " & $GetPlayerInfo(#Source, EXTR)
/Exit
EndIf
If #GetPokeLevel(#Source, #X) <> #Val($Mid($Value, 4, 3))
/SendPM #Source, $Srv & $Pokemon(#Y) & " should be at level " & $str(#Val($Mid($Value, 4, 3))) & "!! It is at level " & $str(#GetPokeLevel(#Source, #X)) & "."
/Inc #N
EndIf
/Set #Z, 0
:Movechecker
/Inc #Z
If #GetPokeMove(#Source, #X, #Z) <> #Val($Mid($Value, 10, 3)) AND #GetPokeMove(#Source, #X, #Z) <> #Val($Mid($Value, 13, 3)) AND #GetPokeMove(#Source, #X, #Z) <> #Val($Mid($Value, 16, 3)) AND #GetPokeMove(#Source, #X, #Z) <> #Val($Mid($Value, 19, 3))
/SendPM #Source, $Srv & $Pokemon(#Y) & " has an invalid move at slot " & $str(#Z) & " (" & $Move(#GetPokeMove(#Source, #X, #Z)) & ") ! Change that move."
/Inc #N
EndIf
If #Z < 4
GoTo MoveChecker
EndIf
/Set #Z, 7
:SecondMovechecker
/Inc #Z, 3
If #GetPokeMove(#Source, #X, 1) <> #Val($Mid($Value, #Z, 3)) AND #GetPokeMove(#Source, #X, 2) <> #Val($Mid($Value, #Z, 3)) AND #GetPokeMove(#Source, #X, 3) <> #Val($Mid($Value, #Z, 3)) AND #GetPokeMove(#Source, #X, 4) <> #Val($Mid($Value, #Z, 3)) AND 0 <> #Val($Mid($Value, #Z, 3))
/SendPM #Source, $Srv & $Pokemon(#Y) & " doesn't have " & $Move(#Val($Mid($Value, #Z, 3))) & "! Add that move."
/Inc #N
EndIf
If #Z < 19
GoTo SecondMoveChecker
EndIf
/Set #Z, #Val($Mid($Value, 7, 3))
If #Z > 74
/Set #Z, 0
EndIf
If #GetPokeItem(#Source, #X) <> #Z
/Inc #N
If #Z <> 0
/SendPM #Source, $Srv & $Pokemon(#Y) & " should have the item " & $Item(#Z) & "!"
Else
/SendPM #Source, $Srv & $Pokemon(#Y) & " shouldn't have any items!!"
EndIf
EndIf
If #X < 6
GoTo Teamchecker
EndIf
If #N > 0
/SendPM #Source, "*** Your team is invalid! ***"
/SendPM #Source, "*** Type !showteam if you want to! ***"
Else
/SendPM #Source, "*** Your team is valid!! ***"
EndIf
If #N = 0
/Set $Value, "RPG Team"
Else
/Set $Value, "Invalid Team"
EndIf
/Set $ValueB, $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=M=")-3), $Left($Info(#Source), #IsIn($Info(#Source),"=B=")), "")
/Set #B, #Len($ValueB) - #Len($Replace($ValueB, "1", ""))
/SetPlayerInfo #Source, EXTR, "[" & $Value & " | Location: " & $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=I=") - 1), "=L=", "") & " | Badges: " & $Str(#B) & " | " & $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=V=")-1), $Left($Info(#Source), #IsIn($Info(#Source),"=M=") + 2), "") & "¥ ]"
/Set $Value, $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=I=")-1), "=L=", "")
/SendPM #Source, "*** Location : " & $Value & " ***"
/Set $Value, $GetValue("Location_" & $Value)
/Set $ValueB, $Left($Value, #IsIn($Value, "/")-1)
/Set $Value, $Replace($Value, $ValueB & "/", "")
:Locationloop
/SendPM #Source, $Srv & $Left($ValueB, #IsIn($ValueB, "-") - 1)
If $Value <> ""
/Set $ValueB, $Left($Value, #IsIn($Value, "/")-1)
/Set $Value, $Replace($Value, $ValueB & "/", "")
If $Left($ValueB, #IsIn($ValueB, "-") - 1) <> ""
GoTo LocationLoop
EndIf
/SendPM #Source, ""
EndIf
EndEvent
Event -ChatMessage
If #Val($Left($MonoVal(#Source), 2)) <> 0
/StopEvent
GoTo MonoVal
EndIf
If $Left($Message, 1) = "!" OR $Left($Message, 1) = "/"
/StopEvent
If #IsIn($Message, " ") > 0
/Set $commande, $Left($Right($Message, #Len($Message) - 1), #IsIn($Right($Message, #Len($Message) - 1), " ") - 1)
Else
/Set $commande, $Right($Message, #Len($Message) - 1)
EndIf
/? "[cmd] -- " & $Name(#Source) & ": " & $Message
Else
If #IsIn($Message, "Sex") > 0 OR #IsIn($Message, "Penis") > 0 OR #IsIn($Message, "Pussy") > 0 OR #IsIn($Message, "Shit") > 0 OR #IsIn($Message, "cock") > 0 OR #IsIn($Message, "fuck") > 0 OR #IsIn($Message, "Nigga") > 0 OR #IsIn($Message, "Nigger") > 0 OR #IsIn($Message, "Faggot") > 0 Or #IsIn($Message, "Vagin") > 0 OR #IsIn($Message, "moron") > 0 OR #IsIn($Message, "Owned") > 0 OR $Name(#Source) = "Vineon" OR $Name(#Source) = "Peter Pain"
/StopEvent
/? "[Censored] -- " & $Name(#Source) & ": " & $Message
/SendPM #Source, $Srv & $UCase($Message)
/Kick #Source
EndIf
If #IsIn($Message, $UCase($Message), 1) = 1 AND #IsIn($Message, $LCase($Message), 1) = 0 AND #Len($Message) > 3
/SendAll $Name(#Source) & ": " & $LCase($Message)
/StopEvent
EndIf
/Exit
EndIf
If $Commande = "commands"
/Set $Value, $GetValue("$Commands")
/SendPM #Source, $Chr(13) & $Srv & "The servers date and time are " & $Date & " " & $Time & "." & $Chr(13) & " "
:BeginningCommandsLoOp
/Set $Temp, $Left($Value, #IsIn($Value, "/") - 1)
If #IsIn($Temp, "RPG") > 0 AND $Team(#Source) = ""
GoTo EndCommandsLoop
EndIf
If #IsIn($Temp, "Auth") > 0 AND #GetPlayerInfo(#Source, AUTH) < #Val($Left($Value, 1))
GoTo EndCommandsLoop
EndIf
:EnterTheCommands
/SendPM #Source, $Ucase("*** " & $Temp & " Commands ***")
/Set $ValueB, $Right($GetValue("Commands_" & $Temp), #Len($GetValue("Commands_" & $Temp)) - 1)
:CommandsLoop
If #IsIn($Left($ValueB, #IsIn($ValueB, "/") - 1), "[No-GL]") > 0 AND #IsIn($GetPlayerInfo(#Source, EXTR), "[") = 0
GoTo MidCommands
EndIf
/SendPM #Source, $Replace($Left($ValueB, #IsIn($ValueB, "/") - 1), " [No-GL]", "")
:MidCommands
/Set $ValueB, $Right($ValueB, #Len($ValueB) - #IsIn($ValueB, "/"))
If $ValueB = ""
/SendPM #Source, ""
:EndCommandsLoop
/Set $Value, $Right($Value, #Len($Value) - #IsIn($Value, "/"))
If $Value = ""
/Exit
EndIf
GoTo BeginningCommandsLoop
EndIf
GoTo CommandsLoop
EndIf
If $Right($Message, #Len($Message) - 1) = $Commande & " Commands"
If $GetValue("Commands_" & $Commande) = ""
/SendPM #Source, $Srv & "Sorry, I checked in the database but it reported no such commands. You asked for " & $Commande & " commands."
/Exit
EndIf
/Set $Value, $Commande & "/"
/Set $Temp, $Commande
/SendPM #Source, $Chr(13) & $Srv & "The servers date and time are " & $Date & " " & $Time & "." & $Chr(13) & " "
GoTo EnterTheCommands
EndIf
If $Commande = "HelpMe"
/Set $Value, $GetValue("RPG_HELP")
:RPGhelpLoop
/Set $ValueB, $Left($Value, #IsIn($Value, "/"))
/SendPM #Source, $Left($ValueB, #Len($ValueB) - 1)
/Set $Value, $Replace($Value, $ValueB, "")
If $Value = ""
/Exit
EndIf
GoTo RPGHelpLoop
EndIf
If $Commande = "Record"
If #Len($Message) < #Len($Commande) + 6 OR #Len($GetValue("$Repondeur")) - #Len($Replace($GetValue("$Repondeur"), "/" & $Name(#Source) & ":", "")) >= (#Len($Name(#Source)) + 2) * 3
/SendPM #Source, $Srv & "Messages too short or more than three messages per person is spam."
/Exit
EndIf
If #IsIn($Right($Message, #Len($Message) - 1), "/") > 0
/SendPM #Source, $Srv & "Sorry, dude, but that character - " & $Chr(34) & " / " & $Chr(34) & " would make the answering machine upside down."
/Exit
EndIf
If #Len($GetValue("$Repondeur")) - #Len($Replace($GetValue($Repondeur), "/", "")) <= 100
/SendPM #Source, $Srv & "There are already 50 messages in the answering machine."
/Exit
EndIf
/SaveValue "$Repondeur", $GetValue("$Repondeur") & "/" & $Name(#Source) & ": " & $Right($Message, #Len($Message) - #Len($Commande) - 2) & "/"
/SendPM #Source, $Srv & "Message saved! thank you very much for helping us to improve ourselves."
/Exit
EndIf
If $Commande = "Check"
/SendPM #Source, $Srv & "There is " & $Str((#Len($GetValue("$Repondeur")) - #Len($Replace($GetValue("$Repondeur"), "/", ""))) / 2) & " message(s) in the answering machine."
/Exit
EndIf
If #IsIn($GetPlayerInfo(#Source, EXTR), "[Non") > 0 OR #IsIn($GetPlayerInfo(#Source, EXTR), "[Normal") > 0
GoTo regcommands
EndIf
If $Commande = "Switch"
/Set #X, #Val($Right($Message, 3))
If $Left(#X, 1) = $Right(#X, 1) OR #IsIn(#X, "7") > 0 OR #IsIn(#X, "0") > 0 OR #IsIn(#X, "8") > 0 OR #IsIn(#X, "9") > 0 OR #Len(#X) > 2
/SendPM #Source, $Srv & "You have to enter two valid numbers after " & $Chr(34) & "!Switch" & $Chr(34) & ", between 1 and 6 included."
/Exit
EndIf
/Set $Value, $Right($team(#Source), #Len($team(#Source)) - #IsIn($team(#Source), $Left(#X, 1) & "=") - 1)
If #Val($Left(#X, 1)) < 6
/Set $Value, $Left($Value, #IsIn($Value, "=") - 1)
EndIf
/Set $ValueB, $Right($team(#Source), #Len($team(#Source)) - #IsIn($team(#Source), $Right(#X, 1) & "=") - 1)
If #Val($Right(#X, 1)) < 6
/Set $ValueB, $Left($ValueB, #IsIn($ValueB, "=") - 1)
EndIf
/Set $team(#Source), $Replace($team(#Source), "=Poke_" & $Left(#X, 1) & "=" & $Value, "=Poke_" & $Left(#X, 1) & "=" & $ValueB)
/Set $team(#Source), $Replace($team(#Source), "=Poke_" & $Right(#X, 1) & "=" & $ValueB, "=Poke_" & $Right(#X, 1) & "=" & $Value)
/SendPM #Source, $Srv & "Switched slots " & $Left(#X, 1) & " and " & $Right(#X, 1) & ". Go to the team builder and set your team."
If $Left($GetPlayerInfo(#Source, EXTR), 4) = "[RPG"
/SetPlayerInfo #Source, EXTR, "[Invalid Team |" & $Right($GetPlayerInfo(#Source, Extr), #Len($GetPlayerInfo(#Source, EXTR)) - #IsIn($GetplayerInfo(#Source, EXTR), "|"))
/SendPM #Source, $Srv & "Go to the team builder and set your team again."
EndIf
/Exit
EndIf
If $commande = "Show"
/Set #X, #Val($Replace($Message, $Left($Message, #Len($commande) + 1), ""))
If #X = 0 OR #X > 6
/SendPM #Source, $Srv & "That is not a correct number! you must put a number between 1 and 6 to show that poke lol (I.E: !Show 3)."
/Exit
EndIf
/Set #Z, #Source
/Set $Value, $Replace($team(#Z), $Left($team(#Z), #IsIn($team(#Z), $Str(#X) & "=") + 1), "")
/Set $MonoVal(#Source), "1" & $Right($MonoVal(#Source), #Len($MonoVal(#Source)) - 1)
GoTo showteamloop
EndIf
If $Commande = "Inventory"
GoTo Inventory
EndIf
If #IsIn($GetPlayerInfo(#Source, EXTR), "[") = 0
Goto GymLeaderCommands
EndIf
If $Commande = "Save"
/SaveValue "Team" & $GetPlayerInfo(#Source, PSID), $Team(#Source)
/SaveValue "Box" & $GetPlayerInfo(#Source, PSID), $Box(#Source)
/SaveValue "Info" & $GetPlayerInfo(#Source, PSID), $Info(#Source)
/SendPM #Source, $Srv & "Game saved!"
/Exit
EndIf
If $Commande = "Pokemart"
/Set $Value, $GetValue("Location_") & $Mid($Info(#Source), 4, #IsIn($Info(#Source), "=I=") - 5)
If #IsIn($Value, "!Pokemart") = 0
/SendPM #Source, $Srv & "Pokemart is not accessible from your location"
/Exit
EndIf
:shopMenu
/SendPM #Source, "*** POKEMART ***"
/SendPM #Source, "" & $Chr(13) & "0: Leave the pokemart"
/SendPM #Source, "1: Buy"
/SendPM #Source, "2: Sell"
/Set $Monoval(#Source), "10" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
EndIf
If $Commande = "Location"
:Location
/Set $Value, $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=I=")-1), "=L=", "")
/SendPM #Source, "*** Location : " & $Value & " ***"
/Set $Value, $GetValue("Location_" & $Value)
/Set $ValueB, $Left($Value, #IsIn($Value, "/")-1)
/Set $Value, $Replace($Value, $ValueB & "/", "")
:Locationloop
/SendPM #Source, $Srv & $Left($ValueB, #IsIn($ValueB, "-") - 1)
If $Value <> ""
/Set $ValueB, $Left($Value, #IsIn($Value, "/")-1)
/Set $Value, $Replace($Value, $ValueB & "/", "")
If $Left($ValueB, #IsIn($ValueB, "-") - 1) <> ""
GoTo LocationLoop
EndIf
/SendPM #Source, ""
EndIf
/Exit
EndIf
If $Commande = "GoTo"
/Set $Value, $Getvalue("Location_" & $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=I=")-1), "=L=", ""))
If #IsIn($Value, "!" & $Right($Message, #Len($Message) - 1) & "-") = 0 AND #IsIn($Value, "!" & $Right($Message, #Len($Message) - 1) & " |") = 0
/SendPM #Source, $Srv & "Sorry, that's not accessible from your current location. "
GoTo Location
EndIf
/Set $ValueB, $Right($Value, #Len($Value) - #IsIn($Value, "!" & $Right($Message, #Len($Message) - 1)))
/Set $ValueB, $Left($ValueB, #IsIn($ValueB, "/"))
If #IsIn($ValueB, "-/") = 0
/Set $Temp, $Replace($Left($ValueB, #IsIn($ValueB, "/") - 1), $Left($ValueB, #IsIn($ValueB, "-")), "")
/Set $Monoval(#Source), "01" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
GoTo REQU
:EndREQUGoTo
If $Temp = "NO"
/SendPM #Source, $Srv & "Requirements not fulfilled"
/Exit
EndIf
EndIf
/SetPlayerInfo #Source, EXTR, $Left($GetPlayerInfo(#Source, EXTR), #IsIn($GetPlayerInfo(#Source, EXTR), "Location: ") + #Len("Location:")) & $Right($Message, #Len($Message) - 6) & " | B" & $Right($GetPlayerInfo(#Source, EXTR), #Len($GetPlayerInfo(#Source, EXTR)) - #IsIn($GetPlayerInfo(#Source, EXTR), "Badges:"))
/Set $Info(#Source), "=L=" & $Right($Message, #Len($Message) - 6) & "=" & $Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "=I="))
/SendPM #Source, $Chr(13) & "moved to " & $Right($Message, #Len($Message) - 6) & ":"
GoTo Location
EndIf
If $Commande = "Encounter"
/Set $Value, $Getvalue("Location_" & $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=I=")-1), "=L=", ""))
If #IsIn($Value, "!Encounter") = 0
/SendPM #Source, $Srv & "No wild pokes from your location."
GoTo Location
EndIf
/Set $Value, $Left($Right($Value, #Len($Value) - #IsIn($Value, "=W=") - 2), #IsIn($Right($Value, #Len($Value) - #IsIn($Value, "=W=") - 2), "/") - 1)
If #IsIn($Value, "|") > 0
/Set $Value, $Left($Value, #IsIn($Value, "|") - 1)
EndIf
/Set #X, #Rand(999)
/Set #Y, 1
:RandWildPokeLoop
If #Val($Mid($Value, #Y, 3)) >= #X
/Set $Temp, $Mid($Value, 4, 5)
/Set $Value, ""
Else
/Set $Value, $Right($Value, #Len($Value) - 8)
GoTo RandWildPokeLoop
EndIf
/Set $WildLife(#Source), "Hi"
/Set #X, $Right($Temp, 3)
Goto PokeInit
:WildPoke
/Set $Wildlife(#Source), "000000000000000|00000000000/" & $Value
/SendPM #Source, $Srv & "A wild " & $Pokemon(#Val($Left($Value, 3))) & " lv " & $Str(#Val($Mid($Value, 4, 3))) & " appeared!" & $Chr(13) & " "
/SendPM #Source, $Srv & "Which pokemon do you want to send out?"
/SendPM #Source, "1: " & $Pokemon(#Val($Mid($team(#Source), #IsIn($team(#Source), "=Poke_1=") + 8, 3)))
/SendPM #Source, "2: " & $Pokemon(#Val($Mid($team(#Source), #IsIn($team(#Source), "=Poke_2=") + 8, 3)))
/SendPM #Source, "3: " & $Pokemon(#Val($Mid($team(#Source), #IsIn($team(#Source), "=Poke_3=") + 8, 3)))
/SendPM #Source, "4: " & $Pokemon(#Val($Mid($team(#Source), #IsIn($team(#Source), "=Poke_4=") + 8, 3)))
/SendPM #Source, "5: " & $Pokemon(#Val($Mid($team(#Source), #IsIn($team(#Source), "=Poke_5=") + 8, 3)))
/SendPM #Source, "6: " & $Pokemon(#Val($Mid($team(#Source), #IsIn($team(#Source), "=Poke_6=") + 8, 3)))
/Set $Monoval(#Source), "05" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/Exit
EndIf
If $Commande = "Give"
Goto Give
EndIf
If $Commande = "Take"
If #IsIn($GetPlayerInfo(#Source, EXTR), "[") = 0
/SendPM #Source, $Srv & "As a Gymleader, you can't do that action, sorry."
/Exit
EndIf
If #Len($Message) < #Len($Commande) + 3 OR #Val($Mid($Message, #Len($Commande) + 3, 1)) < 1 OR #Val($Mid($Message, #Len($Commande) + 3, 1)) > 6
/SendPM #Source, $Srv & "The format must be " & $Chr(34) & "!Take [#Pokeslot] " & $Chr(34) & "!"
/Exit
EndIf
/Set $Value, $Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Message, #Len($Commande) + 3, 1) & "=") + 7), "")
If $Mid($Value, 7, 3) = "000"
/SendPM #Source, $Srv & $Pokemon(#Val($Left($Value, 3))) & " has no item."
/Exit
EndIf
/Set $Info(#Source), $Left($Info(#Source), #IsIn($Info(#Source), "=K=") - 1) & "01" & $Mid($Value, 7, 3) & $Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "=K=") + 1)
/Set $Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Message, #Len($Commande) + 3, 1) & "=") + 7) & $Left($Value, 6) & "000" & $Right($Value, #Len($Value) - 9)
/SendPM #Source, $Srv & "took " & $Left($GetValue("Item_" & $Mid($Value, 7, 3)), #IsIn($GetValue("Item_" & $Mid($Value, 7, 3)), "/") - 1) & " from " & $Pokemon(#Val($Left($Value, 3))) & "."
If $Left($GetPlayerInfo(#Source, EXTR), 4) = "[RPG"
/SetPlayerInfo #Source, EXTR, "[Invalid Team |" & $Right($GetPlayerInfo(#Source, Extr), #Len($GetPlayerInfo(#Source, EXTR)) - #IsIn($GetplayerInfo(#Source, EXTR), "|"))
/SendPM #Source, $Srv & "Go to the team builder and set your team again."
EndIf
GoTo SortItems
EndIf
If $Commande = "Throw"
If #Len($Message) < #Len($Commande) + 5 OR #Len($Message) - #Len($Replace($Message, " ", "")) <> 2 OR #Val($Mid($Message, #Len($Commande) + 3, 2)) = 0 OR #Val($Right($Replace($Message, $Left($Message, #Len($Commande) + 2), ""), #Len($Replace($Message, $Left($Message, #Len($Commande) + 2), "")) - #IsIn($Replace($Message, $Left($Message, #Len($Commande) + 2), ""), " "))) < 1
/SendPM #Source, $Srv & "The format must be " & $Chr(34) & " !Throw [#Number] [#Itemslot]" & $Chr(34) & " !"
/Exit
EndIf
/Set $Temp, $Replace($Message, $Left($Message, #IsIn($Message, " ")), "")
/Set $Value, $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=K=") - 1), $Left($Info(#Source), #IsIn($Info(#Source), "=I=") + 2), "")
If #Val($Right($Temp, #Len($Temp) - #IsIn($Temp, " "))) * 5 > #Len($Value)
/SendPM #Source, $Srv & "You don't have any item located at slot " & $Right($Temp, #Len($Temp) - #IsIn($Temp, " ")) & "."
/Exit
EndIf
/Set $TempB, $Str(#Val($Mid($Value, (#Val($Right($Temp, #Len($Temp) - #IsIn($Temp, " "))) - 1) * 5 + 1, 2)) - #Val($Left($Temp, #IsIn($Temp, " ")))) & $Mid($Value, (#Val($Right($Temp, #Len($Temp) - #IsIn($Temp, " "))) - 1) * 5 + 3, 3)
If #Val($TempB) < 0
/SendPM #Source, $Srv & "You have less than " & $Str(#Val($Left($Temp, #IsIn($Temp, " ") - 1))) & " " & $Left($GetValue("Item_" & $Right($TempB, 3)), #IsIn($GetValue("Item_" & $Right($TempB, 3)), "/") - 1) & "."
/Exit
EndIf
If #Len($TempB) > 5 OR $Left($Temp, 1) = "-" AND #GetPlayerInfo(#Source, AUTH) = 0
/SendPM #Source, "Nice try!"
/Kick #Source
/Exit
EndIf
/SendPM #Source, $Srv & "Throwed away " & $Str(#Val($Left($Temp, #IsIn($Temp, " ")))) & " " & $Left($GetValue("Item_" & $Right($TempB, 3)), #IsIn($GetValue("Item_" & $Right($TempB, 3)), "/") - 1) & "."
/Set $TempB, $Right("0" & $TempB, 5)
If $Left($TempB, 2) = "00"
/Set $TempB, ""
EndIf
/Set $Info(#Source), $Left($Info(#Source), #IsIn($Info(#Source), "=I=") + 2) & $Left($Value, (#Val($Right($Temp, #Len($Temp) - #IsIn($Temp, " "))) - 1) * 5) & $TempB & $Right($Value, #Len($Value) - (#Val($Right($Temp, #Len($Temp) - #IsIn($Temp, " ")) - 1) * 5)) & $Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "=K=") + 1)
GoTo SortItems
EndIf
If $Commande = "Reload"
/Set $Team(#Source), $GetValue("Team" & $GetPlayerInfo(#Source, PSID))
/Set $Info(#Source), $GetValue("Info" & $GetPlayerInfo(#Source, PSID))
/Set $MonoVal(#Source), "00/!"
/Set $Box(#Source), $GetValue("Box" & $GetPlayerInfo(#Source, PSID))
/SendPM #Source, $Srv & "Vals reloaded!"
If $Left($GetPlayerInfo(#Source, EXTR), 4) = "[RPG"
/SetPlayerINFO #Source, EXTR, "[Invalid Team |" & $Right($GetPlayerInfo(#Source, Extr), #Len($GetPlayerInfo(#Source, EXTR)) - #IsIn($GetplayerInfo(#Source, EXTR), "|"))
/SendPM #Source, $Srv & "Go to the team builder and set your team again."
EndIf
/Exit
EndIf
:regcommands
If $commande = "Start"
If #IsIn($GetPlayerInfo(#Source, EXTR), "[") = 0
/SendPM #Source, $Srv & "As a Gymleader, you can't do that action, sorry."
/Exit
EndIf
If #Len($Message) < 7 OR #pokenum($Replace($Message, $Left($Message, #Len($commande) + 2), "")) = 0
/Set $Value, $GetValue("$starters")
:Starter
/Set #X, 0
/SendPM #Source, $Srv & "Type the number of the poke you wish as a starter"
/SendPM #Source, "0: Cancel"
:Starters
/Inc #X
/Set $ValueB, $Left($Value, #IsIn($Value, "/") - 1)
/Set $Value, $Replace($Value, $ValueB & "/", "")
/SendPM #Source, $Str(#X) & ": " & $ValueB
If $Value = ""
/Set $MonoVal(#Source), "01" & $Right($MonoVal(#Source), #Len($MonoVal(#Source)) - 2)
/Exit
EndIf
GoTo Starters
EndIf
If #IsIn($GetValue("$Starters"), $Replace($Message, $Left($Message, #Len($commande) + 2), "") & "/") = 0
/SendPM #Source, $Srv & " That is not a valid starter."
GoTo Starter
EndIf
/Set #X, #pokenum($Replace($Message, $Left($Message, #Len($commande) + 2), ""))
/Set #Y, 1
/Set $team(#Source), "=Poke_1==Poke_2==Poke_3==Poke_4==Poke_5==Poke_6="
GoTo StartTeam
EndIf
:GymLeaderCommands
If $Commande = "Pokedex"
If #Len($Message) < #Len($Commande) + 2 OR #Val($Right($Message, #Len($Message) - #Len($Commande) - 2)) = 0 EQV #PokeNum($Right($Message, #Len($Message) - #Len($Commande) - 2)) = 0
/SendPM #Source, $Srv & "You must enter a correct [#Pokenum] or [$PokeMon] after your message."
/Exit
EndIf
If #Val($Right($Message, #Len($Message) - #Len($Commande) - 2)) = 0
/Set $X, #PokeNum($Right($Message, #Len($Message) - #Len($Commande) - 2))
Else
/Set $X, #Val($Right($Message, #Len($Message) - #Len($Commande) - 2))
EndIf
/Set $X, $Right("00" & $X, 3)
/SendPM #Source, "*** " & $Ucase($Pokemon(#Val($X))) & "'s DATAS ***" & $Chr(13) & " "
/SendPM #Source, "Moves:"
/Set $Value, $Left($GetValue("Poke_" & $X), #IsIn($GetValue("Poke_" & $X), "/"))
:PokedexMoveloop
If #Len($Value) < 5
GoTo PokedexsubEvolution
EndIf
/SendPM #Source, $Move(#Val($Mid($Value, 3, 3))) & " -- level " & $Str(#Val($Left($Value, 2)))
/Set $Value, $Right($Value, #Len($Value) - 5)
GoTo PokedexMoveLoop
:PokeDexsubEvolution
/SendPM #Source, $Chr(13) & "Under Evolutions:"
If #IsIn($GetValue("Poke_" & $X), "=-1=") = 0
/SendPM #Source, "No sub-evolutions."
GoTo PokedexEvolution
EndIf
If #IsIn($GetValue("Poke_" & $X), "=-2=") > 0
/SendPM #Source, "State -2 -- " & $Left($Right($GetValue("Poke_" & $X), #Len($GetValue("Poke_" & $X)) - #IsIn($GetValue("Poke_" & $X), "=-2=") - 3), #IsIn($Right($GetValue("Poke_" & $X), #Len($GetValue("Poke_" & $X)) - #IsIn($GetValue("Poke_" & $X), "=-2=") - 3), "=-1=") - 1)
EndIf
If #IsIn($GetValue("Poke_" & $X), "=-1=") > 0
If #IsIn($Getvalue("Poke_" & $X), "=1=") = 0
/SendPM #Source, "State -1 -- " & $Left($Right($GetValue("Poke_" & $X), #Len($GetValue("Poke_" & $X)) - #IsIn($GetValue("Poke_" & $X), "=-1=") - 3), #IsIn($Right($GetValue("Poke_" & $X), #Len($GetValue("Poke_" & $X)) - #IsIn($GetValue("Poke_" & $X), "=-1=") - 3), "§") - 1)
GoTo PokedexEvolution
EndIf
/SendPM #Source, "State -1 -- " & $Left($Right($GetValue("Poke_" & $X), #Len($GetValue("Poke_" & $X)) - #IsIn($GetValue("Poke_" & $X), "=-1=") - 3), #IsIn($Right($GetValue("Poke_" & $X), #Len($GetValue("Poke_" & $X)) - #IsIn($GetValue("Poke_" & $X), "=-1=") - 3), "=1=") - 1)
EndIf
:PokedexEvolution
/SendPM #Source, $Chr(13) & "Evolutions:"
If #IsIn($GetValue("Poke_" & $X), "=1=") = 0
/SendPM #Source, "No evolutions."
/Exit
EndIf
/Set $Value, $Right($GetValue("Poke_" & $X), #Len($GetValue("Poke_" & $X)) - #IsIn($GetValue("Poke_" & $X), "=1=") - 2)
:PokedexEvolutionLoop
If #IsIn($Value, "=") > 0
/Set $ValueB, $Left($Value, #IsIn($Value, "="))
Else
/Set $ValueB, $Left($Value, #IsIn($Value, "$") - 1)
EndIf
/SendPM #Source, $Left($ValueB, #IsIn($ValueB, "*") - 1) & " -- " & $Replace($Replace($Replace($Replace($Right($ValueB, #Len($ValueB) - #IsIn($ValueB, "*")), ")", "]") , "(", "["), ">", "("), "=", "") & ")"
/Set $Value, $Right($Value, #Len($Value) - #IsIn($Value, $ValueB) - #Len($ValueB) + 1)
If #IsIn($Value, "=") = 0
/Exit
EndIf
/Set $Value, $Right($Right($Value, 1), #Len($Right($Value, 1)) - #IsIn($Right($Value, 1), "="))
GoTo PokedexEvolutionLoop
EndIf
If $Commande = "Showteam"
If #IsIn($Message, $commande & " ") > 0
/Set #Z, #PNumber($Right($Message, #Len($Message) - 10))
Else
/Set #Z, #Source
EndIf
If #Z = 0
/SendPM #Source, $Srv & "No such player!!"
/Exit
EndIf
If $Team(#Z) = ""
/SendPM #Source, $Srv & "He doesn't have a team..."
/Exit
EndIf
GoTo showteam
EndIf
If $Commande = "ItemDex"
/Set $Value, $Right($GetValue("$ItemDex"), #Len($GetValue("$ItemDex")) - 1)
:ItemDexLoop
/Set $ValueB, $Left($Value, #IsIn($Value, "/") - 1)
/Set $Temp, $Replace($ValueB, $Left($ValueB, #IsIn($ValueB, "-")), $Left($ValueB, #IsIn($ValueB, "-") - 1) & ": ")
/Set $Temp, $Replace($Replace($Replace($Temp, "-", " - "), "(10)", "(50%)"), "(1)", "(5%)")
/Set $Temp, "\\_" & $Pokemon(#Val($Left($Temp, 3))) & "_//" & ":" & $Right($Temp, #Len($Temp) - #IsIn($Temp, ":"))
If #IsIn($Temp, "(50%)") > 0
/Set $Temp, $Left($Temp, #IsIn($Temp, "(50%)") - 3) & $Left($GetValue("Item_" & "0" & $Mid($Temp, #IsIn($Temp, "(50%)") - 2, 2)), #IsIn($GetValue("Item_" & "0" & $Mid($Temp, #IsIn($Temp, "(50%)") - 2, 2)), "/") - 1) & $Right($Temp, #Len($Temp) - #IsIn($Temp, "(50%)") + 1)
EndIf
If #IsIn($Temp, "(5%)") > 0
/Set $Temp, $Left($Temp, #IsIn($Temp, "(5%)") - 3) & $Left($GetValue("Item_" & "0" & $Mid($Temp, #IsIn($Temp, "(5%)") - 2, 2)), #IsIn($GetValue("Item_" & "0" &$Mid($Temp, #IsIn($Temp, "(5%)") - 2, 2)), "/") - 1) & $Right($Temp, #Len($Temp) - #IsIn($Temp, "(5%)") + 1)
EndIf
/SendPM #Source, $Temp
/Set $Value, $Replace($Value, $ValueB & "/", "")
If $Value <> ""
GoTo Itemdexloop
EndIf
/Exit
EndIf
If #GetPlayerInfo(#Source, AUTH) = 0
Goto EndAuthCommands
EndIf
If $Commande = "Listen"
/Set $Value, $GetValue("$Repondeur")
/SendPM #Source, "*** ANSWERING MACHINE - MESSAGES LIST ***" & $Chr(13) & " "
:AnsweringMachineLoop
/Set $Value, $Right($Value, #Len($Value) - #IsIn($Value, "/"))
If $Value = ""
/SendPM #Source, " "
/SendPM #Source, "*** END OF THE MESSAGES LIST OF THE ANSWERING MACHINE ***" & $Chr(13) & " "
/Exit
EndIf
/SendPM #Source, $Left($Value, #IsIn($Value, "/") - 1)
/Set $Value, $Right($Value, #Len($Value) - #IsIn($Value, "/"))
GoTo AnsweringMachineLoop
EndIf
If #GetPlayerInfo(#Source, AUTH) <= 1
GoTo EndAuthCommands
EndIf
If $Commande = "Delete"
/SendPM #Source, $Srv & "Messages deleted." & $Chr(13) & " "
/SaveValue "$Repondeur", ""
/Exit
EndIf
:EndAuthCommands
/SendPM #Source, $Srv & " " & $Chr(34) & $Replace($Message, $Left($Message, 1), "") & $Chr(34) & " is not a valid command!! Maybe you don't have a valid team, you're a gymleader, or whatever and you cant do it."
/Exit
:MonoVal
If $Left($MonoVal(#Source), 2) = "01"
If $Str(#Val($Message)) = $Message EQV #Val($Message) < 0 OR #Val($Message) >= (#Len($GetValue("$Starters")) - #Len($Replace($GetValue("$Starters"), "/", "")))
/SendPM #Source, $Srv & "You have to enter a correct number to start a new team, 0 is to cancel"
/Exit
EndIf
/Set #X, #Val($Message)
If #X = 0
/SendPM #Source, $Srv & "Action cancelled!"
/Set $MonoVal(#Source), "00" & $Right($MonoVal(#Source), #Len($MonoVal(#Source)) - 2)
EndIf
/Set $Value, $GetValue("$starters")
:Whatstarter
/Inc #X, - 1
/Set $ValueB, $Left($Value, #IsIn($Value, "/") - 1)
/Set $Value, $Replace($Value, $ValueB & "/", "")
If #X = 0
/Set #X, #pokenum($ValueB)
/Set #Z, 1
/Set $team(#Source), "=Poke_1==Poke_2==Poke_3==Poke_4==Poke_5==Poke_6="
/Set $MonoVal(#Source), "00" & $Right($MonoVal(#Source), #Len($MonoVal(#Source)) - 2)
GoTo Startteam
EndIf
GoTo whatstarter
EndIf
If $Left($Monoval(#Source), 2) = "02"
If #IsIn($Left($Monoval(#Source), 3), "/") = 0
/SendPM #Source, "*** Now, it's movelearn time! You can't do any command while! Well, today, it will be " & $Pokemon(#Val($Left($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7), ""), 3))) & "!!"
/SendPM #Source, "+Funbot: What move do you want to replace with " & $Move(#val($Mid($Monoval(#Source), 4, 3))) & " ??"
:ShowMovesLearnAble
/SendPM #Source, "0: Cancel"
/SendPM #Source, "1: " & $Move(#Val($Mid($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7), ""), 10, 3)))
/SendPM #Source, "2: " & $Move(#Val($Mid($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7), ""), 13, 3)))
/SendPM #Source, "3: " & $Move(#Val($Mid($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7), ""), 16, 3)))
/SendPM #Source, "4: " & $Move(#Val($Mid($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7), ""), 19, 3)))
/Set $Monoval(#Source), "03" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/Exit
EndIf
/Set $Value, $Replace($Monoval(#Source), $Left($Monoval(#Source), #IsIn($Monoval(#Source), "/")), "")
/Set $X, $Left($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($Value, 1) & "=") + 7), ""), 3)
/SendPM #Source, "*** Now, it's evolution time! You can't do any command while! Well, today, it will be " & $Pokemon(#Val($Left($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($Value, 1) & "=") + 7), ""), 3))) & "!!"
/SendPM #Source, "*** " & $Pokemon(#Val($Left($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($Value, 1) & "=") + 7), ""), 3))) & " is trying to evolve into " & $Replace($Left($Getvalue("Poke_" & $X), #IsIn($Getvalue("Poke_" & $X), "*") - 1), $Left($Getvalue("Poke_" & $X), #IsIn($Getvalue("Poke_" & $X), "=") + 2), "") & "!"
/SendPM #Source, "\\0//: Cancel"
/SendPM #Source, "\\1//: Accept"
/Set $Monoval(#Source), "04" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/Exit
EndIf
If $Left($Monoval(#Source), 2) = "03"
If $Str(#Val($Message)) = $Message EQV #Val($Message) < 0 OR #Val($Message) > 4
/SendPM #Source, $Srv & "BANG! Your Message must be a number between 0 and 4 included! 0 is to cancel " & $Pokemon(#Val($Left($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7), ""), 3))) & " to learn " & $Move(#val($Mid($Monoval(#Source), 4, 3))) & "."
/Exit
EndIf
If $Message = "0"
/SendPM #Source, $Srv & "Movelearn cancelled."
Else
/Set #X, $Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 9 + #Val($Message) * 3, 3)
If #X = 217 OR #X = 208 OR #X = 72 OR #X = 271 OR #X = 168 OR #X = 71 OR #X = 245
/SendPM #Source, $Srv & "You can't forget HMs!"
GoTo ShowMovesLearnAble
EndIf
/SendPM #Source, $Srv & "1, 2, 3 and POOF! " & $Pokemon(#Val($Left($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7), ""), 3))) & " has forgotten " & $Move(#Val($Mid($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7), ""), #Val($Message) * 3 + 7, 3))) & "!"
/SendPM #Source, $Srv & $Pokemon(#Val($Left($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7), ""), 3))) & " has learned " & $Move(#val($Mid($Monoval(#Source), 4, 3))) & "!"
/Set $Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7) & $Left($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7), ""), #Val($Message) * 3 + 6) & $Mid($Monoval(#Source), 4, 3) & $Right($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7), ""), #Len($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Monoval(#Source), 3, 1) & "=") + 7), "")) - #Val($Message) * 3 - 9)
EndIf
/Set $Monoval(#Source), "00" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 6)
If #Len($Monoval(#Source)) > 4
/Set $Monoval(#Source), "02" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
GoTo Monoval
EndIf
/Exit
EndIf
If $Left($Monoval(#Source), 2) = "04"
If $Message <> "0" AND $Message <> "1"
/SendPM #Source, $Srv & "Oh Gawd! Your $Message should be " & $Chr(34) & "0" & $Chr(34) & " or " & $Chr(34) & "1" & $Chr(34) & "; whether you want your pokemon to evolve or not."
/Exit
EndIf
/Set #X, 0
/Set $Value, $Replace($Monoval(#Source), $Left($Monoval(#Source), #IsIn($Monoval(#Source), "/")), "")
/Set $X, $Left($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & & $Left($Value, 1) & "=") + 7), ""), 3)
If $Message = "0"
/SendPM #Source, $Srv & "Oh! Nothing happened!"
/Set #X, 1
Else
/Set $X, #PokeNum($Replace($Left($Getvalue("Poke_" & $X), #IsIn($Getvalue("Poke_" & $X), "*") - 1), $Left($Getvalue("Poke_" & $X), #IsIn($Getvalue("Poke_" & $X), "=") + 2), ""))
/Set $X, $Right("00" & $X, 3)
/SendPM #Source, $Srv & "Congrats! " & $Pokemon(#Val($Left($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($Value, 1) & "=") + 7), ""), 3))) & " has evolved into " & $Pokemon(#Val($X)) & "!!"
/Set $Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($Value, 1) & "=") + 7) & $X & $Right($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($Value, 1) & "=") + 7), ""), #Len($Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($Value, 1) & "=") + 7), "")) - 3)
EndIf
/Set $Monoval(#Source), "00/" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 4)
If #Len($MonoVal(#Source)) > 4
/Set $MonoVal(#Source), "02" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
EndIf
If #X = 0
GoTo EvolutionMove
EndIf
/Exit
EndIf
If $Left($Monoval(#Source), 2) = "05"
If #Val($Message) < 1 OR #Val($Message) > 6 OR #Len($Message) > 1
/SendPM #Source, "You must type in a number between 1 and 6 to chose which pokemon to send out against " & $Pokemon(#Val($Mid($Wildlife(#Source), 28, 3))) & "!"
/Exit
EndIf
/SendPM #Source, $Srv & "You sent out " & $Pokemon(#Val($Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Str(#Val($Message)) & "=") + 8, 3))) & "!" & $Chr(13) & " "
/Set #Z, $Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Str(#Val($Message)) & "=") + 11, 3)
/Set $X, $GetValue("Poke_Stat_" & $Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & #Val($Message) & "=") + 9, 3))
/Set $A, #Int(((#Val($Left($X, 3)) + 50) * #Z + 500) / 50)
/Set $B, #Int((#Val($Mid($X, #IsIn($X, "/") + 1, 3)) * #Z + 250) / 50)
/Set $C, #Int((#Val($Mid($X, #IsIn($X, "|") + 1, 3)) * #Z + 250) / 50)
/Set $D, #Int((#Val($Mid($X, #IsIn($X, "\") + 1, 3)) * #Z + 250) / 50)
/Set $G, #Int((#Val($Mid($X, #IsIn($X, "<") + 1, 3)) * #Z + 250) / 50)
/Set $Temp, #Int((#Val($Mid($X, #IsIn($X, ">") + 1, 3)) * #Z + 250) / 50)
/Set $Monoval(#Source), $Monoval(#Source) & "$" & $A & "/" & $B & "|" & $C & "\" & $D & "<" & $G & ">" & $Temp & "§"
/Set $X, $GetValue("Poke_Stat_" & $Mid($Wildlife(#Source), 29, 3))
/Set #Z, $Mid($WildLife(#Source), 32, 3)
/Set $B, #Int(((#Val($Left($X, 3)) + 50) * #Z + 500) / 50)
/Set $TempB, #Int((#Val($Mid($X, #IsIn($X, "/") + 1, 3)) * #Z + 250) / 50)
/Set $C, #Int((#Val($Mid($X, #IsIn($X, "|") + 1, 3)) * #Z + 250) / 50)
/Set $D, #Int((#Val($Mid($X, #IsIn($X, "\") + 1, 3)) * #Z + 250) / 50)
/Set $G, #Int((#Val($Mid($X, #IsIn($X, "<") + 1, 3)) * #Z + 250) / 50)
/Set $Temp, #Int((#Val($Mid($X, #IsIn($X, ">") + 1, 3)) * #Z + 250) / 50)
/Set $Monoval(#Source), $Monoval(#Source) & $B & "/" & $TempB & "|" & $C & "\" & $D & "<" & $G & ">" & $Temp
/Set $A, $Right("00" & $A, 3)
/Set $B, $Right("00" & $B, 3)
/Set $C, $Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Str(#Val($Message)) & "=") + 11, 3)
/Set $WildLife(#Source), $Message & $C & $A & "00000000|" & $B & "00000000/" & $Right($WildLife(#Source), #Len($WildLife(#Source)) - #IsIn($WildLife(#Source), "/"))
/SendPM #Source, " " & $Pokemon(#Val($Mid($wildlife(#Source), 29, 3))) & " lv" & $Str(#Val($Mid($WildLife(#Source), 32, 3)))
/SendPM #Source, " |" & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & "|"
/SendPM #Source, " 100% Status - OK" & $Chr(13) & $Chr(13) & $Chr(13) & $Chr(13) & " "
/SendPM #Source, " " & $Pokemon(#Val($Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Str(#Val($Message)) & "=") + 8, 3))) & " lv" & $Str(#Val($C))
/SendPM #Source, " |" & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) & $Chr(2) &"|"
/SendPM #Source, " " & $Str(#Val($A)) & "/" & $Str(#Val($A)) & " Status - OK"
/Set $Monoval(#Source), "06" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/SendPM #Source, "" & $Chr(13) & "1: ATTACK ||| 2: RUN"
/SendPM #Source, "3: POKEBALLS ||| 4: HEALING ITEMS"
/Exit
EndIf
If $Left($Monoval(#Source), 2) = "06"
If $Message <> "1" AND $Message <> "2" AND $Message <> "3" AND $Message <> "4"
/SendPM #Source, $Srv & "You must chose a number between 1 and 4 to chose what to do!"
/Exit
EndIf
If $Message = "1"
/Set $Monoval(#Source), "07" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/SendPM #Source, "0: Go back to options"
/SendPM #Source, "1: " & $Move(#Val($Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($WildLife(#Source), 1) & "=") + 17, 3)))
/SendPM #Source, "2: " & $Move(#Val($Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($WildLife(#Source), 1) & "=") + 20, 3)))
/SendPM #Source, "3: " & $Move(#Val($Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($WildLife(#Source), 1) & "=") + 23, 3)))
/SendPM #Source, "4: " & $Move(#Val($Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($WildLife(#Source), 1) & "=") + 26, 3)))
/Exit
EndIf
If $Message = "2"
/SendPM #Source, "*** RUNNING AWAY ***" & $Chr(13) & "-"
:runaway
/Set $WildLife(#Source), ""
/Set $Monoval(#Source), "00" & $Mid($Monoval(#Source), 3, #IsIn($Monoval(#Source), "$") - 3)
/Exit
EndIf
If $Message = "3"
/Set $Monoval(#Source), "08" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/Set $Value, $Mid($Info(#Source), #IsIn($Info(#Source), "=I=") + 3, #IsIn($Info(#Source), "=K=") - #IsIn($Info(#Source), "=I=") + 2)
/SendPM #Source, "0: Leave the bag"
/Set #X, 1
:PokeballsBattleCheck
If $Value = ""
/Exit
EndIf
/Set $Temp, $Left($Value, 5)
If $Mid($Temp, 3, 1) = "1" AND $Left($Temp, 2) <> "00"
/SendPM #Source, $Str(#X) & ": " & $Left($GetValue("Item_" & $Right($Temp, 3)), #IsIn($GetValue("Item_" & $Right($Temp, 3)), "/") - 1) & " x " & $Str(#Val($Left($Temp, 2)))
/Inc #X
EndIf
/Set $Value, $Right($Value, #Len($Value) - 5)
GoTo PokeBallsBattleCheck
EndIf
If $Message = "4"
/Set $Monoval(#Source), "09" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/Set $Value, $Mid($Info(#Source), #IsIn($Info(#Source), "=I=") + 3, #IsIn($Info(#Source), "=K=") - #IsIn($Info(#Source), "=I=") + 2)
/SendPM #Source, "0: Leave the bag"
/Set #X, 1
:ItemsBattleCheck
If $Value = ""
/Exit
EndIf
/Set $Temp, $Left($Value, 5)
If $Mid($Temp, 3, 1) = "2" AND $Left($Temp, 2) <> "00"
/SendPM #Source, $Str(#X) & ": " & $Left($GetValue("Item_" & $Right($Temp, 3), #IsIn($GetValue("Item_" & $Right($Temp, 3)), "/") - 1) & "x" & $Str(#Val($Left($Temp, 2)))
/Inc #X
EndIf
/Set $Value, $Right($Value, #Len($Value) - 5)
GoTo ItemsBattleCheck
EndIf
EndIf
If $Left($Monoval(#Source), 2) = "07"
If #Val($Message) < 0 OR #Val($Message) > 4 OR #Len($Message) > 1
/SendPM #Source, "Your message must either be 0, 1, 2, 3 or 4!"
/Exit
EndIf
If $Message = "0"
/Set $Monoval(#Source), "06" & $Right($Monoval(#Source), #Len($Monoval(#Source) - 2))
/SendPM #Source, "" & $Chr(13) & "1: ATTACK ||| 2: RUN"
/SendPM #Source, "3: POKEBALLS ||| 4: HEALING ITEMS"
/Exit
EndIf
If #Val($Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($WildLife(#Source), 1) & "=") + 13 + #Val($Message)*4, 3)) = 0
/SendPM #Source, $Srv & "You don't have a move at that slot."
/Exit
EndIf
/Set $Temp, $Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($WildLife(#Source), 1) & "=") + 14 + #Val($Message)*3, 3)
/Set $TempB, $Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($WildLife(#Source), 1) & "=") + 8, 3)
/Set $Value, $GetValue("Move_" & $Temp)
If #Val($Mid($Value, 9, 1)) = 0
/Set #X, #Val($Mid($Monoval(#Source), #IsIn($Right($Monoval(#Source), #Len($Monoval(#Source)) - 3), "/") + 4, 3)) * #Val($Left($Value, 3))
/Set #Y, #Val($Mid($Right($Monoval(#Source), #Len($Monoval(#Source)) - #IsIn($Monoval(#Source), "§")), #IsIn($Right($Monoval(#Source), #Len($Monoval(#Source)) - #IsIn($Monoval(#Source), "§")), "|") + 1, 3))
/Set #Z, $Mid($WildLife(#Source), 8, 1)
Else
/Set #Z, $Mid($WildLife(#Source), 11, 1)
/Set #X, #Val($Mid($Monoval(#Source), #IsIn($Monoval(#Source), "<") + 1, 3)) * #Val($Left($Value, 3))
/Set #Y, #Val($Mid($Right($Monoval(#Source), #Len($Monoval(#Source)) - #IsIn($Monoval(#Source), "§")), #IsIn($Right($Monoval(#Source), #Len($Monoval(#Source)) - #IsIn($Monoval(#Source), "§")), ">") + 1, 3))
EndIf
If #X <> 0
/Set #X, #Int(((10 + 2 * #Val($Mid($WildLife(#Source), 2, 3))) * #X + 504 * #Y) / (#Y * 252))
EndIf
/SendPM #Source, $Srv & $Pokemon(#Val($TempB)) & " used "& $Move(#Val($Temp)) & "!"
/Set $ValueB, #Val($Mid($WildLife(#Source), 17, 3)) - #X
/SendPM #Source, $Str(#X)
If #IsIn($ValueB, "-") = 1
/Set #X, #X + #Val($ValueB)
/Set $ValueB, "000"
EndIf
/Set $ValueB, $Right("00" & $ValueB, 3)
/Set $WildLife(#Source), $Left($WildLife(#Source), 16) & $ValueB & $Right($WildLife(#Source), #Len($WildLife(#Source)) - 19)
If $ValueB = "000"
/SendPM #Source, $Srv & "Foe " & $Pokemon(#Val($Mid($WildLife(#Source), 29, 3))) & " fainted!!"
GoTo runaway
EndIf
:RandMove
/Set $Temp, $Mid($WildLife(#source), 38 + #Rand(3) * 3, 3)
If $Temp = "000"
GoTo RandMove
EndIf
/Set $Value, $GetValue("Move_" & $Temp)
If #Val($Mid($Value, 9, 1)) = 0
/Set #Y, #Val($Mid($Monoval(#Source), #IsIn($Right($Monoval(#Source), #Len($Monoval(#Source)) - 3), "|") + 4, 3))
/Set #X, #Val($Mid($Right($Monoval(#Source), #Len($Monoval(#Source)) - #IsIn($Monoval(#Source), "§")), #IsIn($Right($Monoval(#Source), #Len($Monoval(#Source)) - #IsIn($Monoval(#Source), "§")), "/") + 1, 3)) * #Val($Left($Value, 3))
/Set #Z, $Mid($WildLife(#Source), 20, 1)
Else
/Set #Z, $Mid($WildLife(#Source), 23, 1)
/Set #Y, #Val($Mid($Monoval(#Source), #IsIn($Right($Monoval(#Source), #Len($Monoval(#Source)) - 3), ">") + 4, 3))
/Set #X, #Val($Mid($Right($Monoval(#Source), #Len($Monoval(#Source)) - #IsIn($Monoval(#Source), "§")), #IsIn($Right($Monoval(#Source), #Len($Monoval(#Source)) - #IsIn($Monoval(#Source), "§")), "<") + 1, 3)) * #Val($Left($Value, 3))
EndIf
If #X <> 0
/Set #X, #Int(((10 + 2 * #Val($Mid($WildLife(#Source), 32, 3))) * #X + 502 * #Y) / (#Y * #Rand(251, 251)))
EndIf
/SendPM #Source, $Srv & "Foe " & $Pokemon(#Val($TempB)) & " used "& $Move(#Val($Temp)) & "!"
/Set $ValueB, #Val($Mid($WildLife(#Source), 5, 3)) - #X
/SendPM #Source, $Str(#X)
If #IsIn($ValueB, "-") = 1
/Set #X, #X + #Val($ValueB)
/Set $ValueB, "000"
EndIf
/SendPM #Source, $Srv & "The attack made " & $Str(#X) & " damages!"
/Set $ValueB, $Right("00" & $ValueB, 3)
If $ValueB = "000"
/SendPM #Source, $Srv & $Pokemon(#Val($Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Left($WildLife(#Source), 1) & "=") + 8, 3))) & " fainted!"
/SendAll $Srv & $Name(#Source) & " got beaten by some random wild poke!"
GoTo runaway
EndIf
/Set $WildLife(#Source), $Left($WildLife(#Source), 4) & $ValueB & $Right($WildLife(#Source), #Len($WildLife(#Source)) - 7)
GoTo ShowBattle
EndIf
If $Left($Monoval(#Source), 2) = "08"
If $Str(#Val($Message)) <> $Message OR $Left($Message, 1) = "-"
/SendPM #Source, $Srv & "Type in a number equal or superior to 0"
/Exit
EndIf
If $Message = "0"
/SendPM #Source, $Srv & "Left the bag!"
/Set $Monoval(#Source), "06" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/Exit
EndIf
/Set $Value, $Mid($Info(#Source), #IsIn($Info(#Source), "=I=") + 3, #IsIn($Info(#Source), "=K=") - #IsIn($Info(#Source), "=I=") + 2)
/Set #X, 0
/Set #Y, -1
:PokeBallBattle
/Inc #Y
If $Value = ""
/SendPM #Source, $Srv & "No item at that slot!"
/Exit
EndIf
/Set $Temp, $Left($Value, 5)
If $Mid($Temp, 3, 1) = "1" AND $Left($Temp, 2) <> "00"
/Inc #X
If #X = #Val($Message)
/Set $Info(#Source), $Left($Info(#Source), #IsIn($Info(#Source), "=I=") + 2 + #Y*5) & $Str(#Val($Left($Temp, 2)) - 1) & $Right($Temp, 3) & $Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "=I=") - 7 - #Y*5)
/Set $X, $GetValue("Poke_Stat" & $Mid($WildLife(#Source), 29, 3))
/Set $X, $Right($X, #Len($X) - #IsIn($X, "§"))
/Set $Temp, $GetValue("Item_" & $Right($Temp, 3))
/SendPM #Source, $Srv & "You just threw a " & $Left($Temp, #IsIn($Temp, "/") - 1) & "!"
/Set $Temp, $Right($Temp, #Len($Temp) - #IsIn($Temp, "-"))
/Set #X, #Int(#Val($Mid($WildLife(#Source), 17, 3)) * 10 / #Val($Mid($Monoval(#Source), #IsIn($Monoval(#Source), "§") + 1, 3)))
/Set #Y, $Mid($Wildlife(#Source), 32, 3)
If #Rand(#X*#Y*#Val($X)*#Val($Temp)) > 1800
/SendPM #Source, $Srv & "It exploded!!"
GoTo RandMove
EndIf
/SendPM #Source, $Srv & "Yay! You just caught a " & $Pokemon(#Val($Mid($WildLife(#Source), 29, 3))) & "!!"
If #IsIn($Box(#Source), "==") > 0
/Set $Box(#Source), $Left($Box(#Source), #IsIn($Box(#Source), "==") & $Right($WildLife(#Source), #Len($WildLife(#Source)) - #IsIn($WildLife(#Source), "/")) & $Right($Box(#Source), #Len($Box(#Source)) - #IsIn($Box(#Source), "=="))
/SendPM #Source, $Srv & "Pokemon sent to box!"
GoTo runaway
EndIf
/Set #X, 1
/Set #Y, 1
/Set $Value, $Replace($Box(#Source), "=Box_" & $Str(#Y) & "§", "")
:StoreBoxLoop
If #IsIn($Value, "=Poke_" & $Str(#X) & "=") > 0 AND #IsIn($Value, "=Poke_" & $Str(#X) & "=") <= #IsIn($Value, "=Box_" & $Str(#Y + 1) & "§")
/Inc #X
If #X > 30
/Inc #Y, 1
If #Y > 3
/SendPM #Source, $Srv & "No more space in boxes!! Pokemon Released!!"
GoTo runaway
EndIf
/Set $Value, $Replace($Value, $Left($Value, #IsIn($Value, "=Box_" & $Str(#Y) & "§") + 6), "")
/Set #X, 1
EndIf
GoTo StoreBoxLoop
EndIf
/Set $Value, $Value & "=Box_4§"
/Set $Value, $Left($Value, #IsIn($Value, "=Box_" & $Str(#Y + 1) & "§") - 1) & $Right($WildLife(#Source), #Len($WildLife(#Source)) - #IsIn($WildLife(#Source), "/")) & $Right($Value, #Len($Value) - #IsIn($Value, "=Box_" & $Str(#Y + 1) & "§") + 1)
/Set $Box(#Source), $Left($Box(#Source), #IsIn($Box(#Source), "=Box_" & $Str(#Y) & "§") + 6) & $Left($Value, #IsIn($Value, "=Box_4§") -1)
/SendPM #Source, $Srv & "Pokemon stored in box " & $Str(#Y) & " at slot " & $Str(#X) & "!!"
EndIf
GoTo runaway
EndIf
/Set $Value, $Right($Value, #Len($Value) - 5)
GoTo PokeBallBattle
EndIf
If $Left($Monoval(#Source), 2) = "09"
If $Str(#Val($Message)) <> $Message OR $Left($Message, 1) = "-"
/SendPM #Source, $Srv & "Type in a number equal or superior to 0"
/Exit
EndIf
If $Message = "0"
/SendPM #Source, $Srv & "Left the bag!"
/Set $Monoval(#Source), "06" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/Exit
EndIf
/Set $Value, $Mid($Info(#Source), #IsIn($Info(#Source), "=I=") + 3, #IsIn($Info(#Source), "=K=") - #IsIn($Info(#Source), "=I=") + 2)
/Set #X, 0
:ItemsBattle
If $Value = ""
/SendPM #Source, $Srv & "No item at that slot!"
/Exit
EndIf
/Set #N, 0
/Set $Temp, $Left($Value, 5)
If $Mid($Temp, 3, 1) = "2" AND $Left($Temp, 2) <> "00"
/Inc #X
If #X = #Val($Message)
/Set $Value, $GetValue($Right($Temp, 3))
If #IsIn($Value, "|\") = 0
If #IsIn($Value, "|0\") > 0 AND $Mid($WildLife(#Source), 15, 1) <> "0"
/Set #N, 1
EndIf
If #IsIn($Value, "|" & $Str(#Val($Mid(WildLife(#Source), 15, 1) & "\"))) > 0
/Set #N, 1
EndIf
If #N = 0
/Set #N, -1
/SendPM #Source, $Srv & "Status Clearer had no effect!"
Else
/SendPM #Source, $Srv & "Status cleared!"
/Set $WildLife(#Source), $Left($WildLife(#Source), 14) & "0" & $Right($WildLife(#Source), #Len($Wildlife(#Source)) - 15)
EndIf
EndIf
/Set #X, 0
If #IsIn($Value, "-|") > 0
/Set #Z, #Val($Mid($Monoval(#Source), #IsIn($Monoval(#Source), "$") + 1, 3)) - #Val($Mid($WildLife(#Source), 5, 3))
If #Z = 0
/Set #X, -1
GoTo PVItemBattleEnd
EndIf
If #Val($Mid($Value, #IsIn($Value, "-") + 1, 4)) < #Z
/Set #Z, #Val($Mid($Value, #IsIn($Value, "-") + 1, 4))
EndIf
/SendPM #Source, $Srv & $Str(#Z) & " HP gained!"
/Set $WildLife(#Source), $Left($WildLife(#Source), 4) & $Right("00" & $Str(#Val($Mid($WildLife(#Source), 5, 3)) + #Z), 3) & $Right($WildLife(#Source), #Len($WildLife(#Source)) - 7)
/Set #X, 1
:PVItemBattleEnd
EndIf
If #X + #Y >= 0
/Set $Info(#Source), $Left($Info(#Source), #IsIn($Info(#Source), "=I=") + 2 + #Y*5) & $Str(#Val($Left($Temp, 2)) - 1) & $Right($Temp, 3) & $Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "=I=") - 7 - #Y*5)
GoTo RandMove
EndIf
/SendPM #Source, $Srv & "Chose another item! That one didn't work!"
/Exit
EndIf
EndIf
EndIf
If $Left($Monoval(#Source), 2) = "10"
If $Message <> "0" AND $Message <> "2" AND $Message <> "1"
/SendPM #Source, $Srv & "Your message must be either 0, 1 or 2."
/Exit
EndIf
If $Message = "0"
/Set $Monoval(#Source), "00" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/SendPM #Source, $Srv & "*** Leaving the pokemart ***"
/Exit
EndIf
/SendPM #Source, "0: Leave"
/Set #X, 1
If $Message = "1"
/Set $Monoval(#Source), "11" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/Set $Value, $GetValue("Location_") & $Mid($Info(#Source), 4, #IsIn($Info(#Source), "=I=") - 5)
/Set $Value, $Right($Value, #Len($Value) - #IsIn($Value, "Pokemart:") - 8)
:ShopBuyLoop
If $Value = "/"
/SendPM #Source, "" & $Chr(13) & $Srv & "Say the number of the item you want to buy and then " & $Chr(34) & " x" & $Chr(34) & " and then the number of items you want to buy (Ex: " & $Chr(34) & "1 x2" & $Chr(34) & ")."
/Exit
EndIf
/Set $Temp, $GetValue("Item_" & $Left($Value, 3))
/SendPM #Source, $Str(#X) & ": " & $Left($Temp, #IsIn($Temp, "/") - 1) & " -- " & $Str(#Val($Right($Temp, #Len($Temp) - #IsIn($Temp, "/"))))
/Inc #X
/Set $Value, $Right($Value, #Len($Value) - 3)
GoTo ShopBuyLoop
EndIf
If $Message = "2"
/Set $Monoval(#Source), "12" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/Set $Value, $Mid($Info(#Source), #IsIn($Info(#Source), "=I=" + 3, #IsIn($Info(#Source), "=K=") - 3 - #IsIn($Info(#Source), "=I="))
:ShopSellLoop
If $Value = ""
/SendPM #Source, "" & $Chr(13) & $Srv & "Say the number of the item you want to sell and then " & $Chr(34) & " x" & $Chr(34) & " and then the number of items you want to sell(Ex: " & $Chr(34) & "1 x2" & $Chr(34) & ")."
/Exit
EndIf
/Set $Temp, $GetValue("Item_" & $Mid($Value, 3, 3))
/SendPM #Source, $Str(#X) & ": " & $Left($Temp, #IsIn($Temp, "/") - 1) & " x" & $Left($Value, 2) & " -- " & $Str(#Val($Right($Temp), #Len($Temp) - #IsIn($Temp, "/"))) & " each"
/Inc #X
/Set $Value, $Right($Value, #Len($Value) - 5)
GoTo ShopSellLoop
EndIf
EndIf
If $Left($Monoval(#Source), 2) = "11"
If $Message = "0"
GoTo showMenu
EndIf
If $Replace($Message, $Str(#Val($Replace($Replace($Message, "x", ""), " ", ""))), "") <> 0 OR IsIn($Message, "-") > 0 OR $Val($Message) = 0 OR $Right($Message, 1) = "x"
/SendPM #Source, $Srv & "You said : " & $Chr(34) & $Message & $Chr(34) & ", that is not the correct form."
/Exit
EndIf
/Set #Y, #Val($Message)
/Set #X, 1
/Set $Value, $GetValue("Location_") & $Mid($Info(#Source), 4, #IsIn($Info(#Source), "=I=") - 5)
/Set $Value, $Right($Value, #Len($Value) - #IsIn($Value, "Pokemart:") - 8)
:ShopBuyLooop
If $Value = "/"
/SendPM #Source, "" & $Chr(13) & $Srv & "There is no item related to the number you gave."
/Exit
EndIf
If #X = #Y
/Set $Temp, $GetValue("Item_" & $Left($Value, 3))
/Set #Z, #Val($Right($Temp, #Len($Temp) - #IsIn($Temp, "/"))) * #Val($Right($Message), #Len($Message) - #IsIn($Message, "X"))
/Set #Z, #Z - #Val($Mid($Info(#Source), #IsIn($Info(#Source), "=M=") + 3, 10))
If #Z < 0
/SendPM #Source, $Srv & "You don't have enough money."
/Exit
EndIf
/Set $Info(#Source), $Left($Info(#Source), #IsIn($Info(#Source), "=M=") + 2) & $Str(#Z) & $Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "=V=") + 1)
/SendPM #Source, $Srv & "You bought " & $Str(#Val($Right($Message), #Len($Message) - #IsIn($Message, "X"))) & $Left($Temp, #IsIn($Temp, "/") - 1) & "s!"
/SendPM #Source, "Current money: " & $Str(#Z)
:SetMoney
/Set $TempB, $Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "¥]") + 10)
/Set $Info(#Source), $Left($Info(#Source), #IsIn($Info(#Source), $TempB) - 1) & $Left($TempB, #IsIn($TempB, "|") + 1) & $Str(#Z) & $Right($TempB, #Len($TempB) - #IsIn($TempB, "¥]") + 1)
/Exit
EndIf
/Inc #X
/Set $Value, $Right($Value, #Len($Value) - 3)
GoTo ShopBuyLooop
EndIf
/EXIT
:ShowBattle
/SendPM #Source, " " & $Pokemon(#Val($Mid($wildlife(#Source), 29, 3))) & " lv" & $Str(#Val($Mid($WildLife(#Source), 32, 3)))
/Set #X, #Int(#Val($Mid($WildLife(#Source), 17, 3)) * 100 / #Val($Mid($Monoval(#Source), #IsIn($Monoval(#Source), "§") + 1, 3)))
/Set #Y, #X
/Set $Value, "|"
:AddPvFoeLoop
If #X > 0
/Set $Value, $Value & $Chr(2)
/Inc #X, -5
GoTo AddPvFoeLoop
EndIf
If #Len($Value) < 21
/Set $Value, $Value & " "
GoTo AddPvFoeLoop
EndIf
/SendPM #Source, " " & $Value & "|"
/SendPM #Source, " " & $Str(#Y) & "% Status - OK" & $Chr(13) & $Chr(13) & $Chr(13) & $Chr(13) & " "
/SendPM #Source, " " & $Pokemon(#Val($Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Str(#Val($Message)) & "=") + 8, 3))) & " lv" & $Str(#Val($Mid($WildLife(#Source), 2, 3)))
/Set #Y, #Val($Mid($WildLife(#Source), 5, 3))
/Set #X, #Int(#Y * 100 / #Val($Mid($Monoval(#Source), #IsIn($Monoval(#Source), "$") + 1, 3)))
/Set $Value, "|"
:AddPvPokLoop
If #X > 0
/Set $Value, $Value & $Chr(2)
/Inc #X, -5
GoTo AddPvPokLoop
EndIf
If #Len($Value) < 21
/Set $Value, $Value & " "
GoTo AddPvPokLoop
EndIf
/SendPM #Source, " " & $Value & "|"
/SendPM #Source, " " & $Str(#Y) & "/" & $Str(#Val($Mid($Monoval(#Source), #IsIn($Monoval(#Source), "$") + 1, 3))) & " Status - OK"
/Set $Monoval(#Source), "06" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
/SendPM #Source, "" & $Chr(13) & "1: ATTACK ||| 2: RUN"
/SendPM #Source, "3: POKEBALLS ||| 4: HEALING ITEMS" & $Chr(13) & " "
/Exit
:SortItems
/Set $Value, $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=K=") - 1), $Left($Info(#Source), #IsIn($Info(#Source), "=I=") + 2), "")
/Set $ValueB, $Value
/Set $TempB, ""
:SortItemsloop
/Set $A, $TempB
If $ValueB = ""
/Set $Info(#Source), $Left($Info(#Source), #IsIn($Info(#Source), "=I=") + 2) & $Replace($TempB, "/", "") & $Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "=K=") + 1)
/Exit
EndIf
/Set $Temp, $Left($ValueB, 5)
:CheckSameItemLoop
If #IsIn($A, $Right($Temp, 3) & "/") > 0 AND $Left($Temp, 2) <> "99"
/Set $C, $Right($A, #Len($A) - #IsIn($A, $Right($Temp, 3) & "/") + 3)
If $Left($C, 2) = "99"
/Set $A, $Left($A, #IsIn($A, $C) - 2) & $Right($C, #Len($C) - 6)
GoTo CheckSameItemLoop
EndIf
/Set $X, #Val($Left($Temp, 2)) + #Val($Left($C, 2))
If #Val($X) < 99
/Set $X, $Right("0" & $X, 2)
/Set $TempB, $Left($TempB, #IsIn($TempB, "/" & $C)) & $X & $Right($Temp, 3) & $Right($C, #Len($C) - 5)
/Set $ValueB, $Right($ValueB, #Len($ValueB) - 5)
GoTo SortItemsLoop
EndIf
/Set $Y, #Val($X) - 99
/Set $Y, $Right("00" & $Y)
/Set $TempB, $Left($TempB, #IsIn($TempB, "/" & $C)) & "99" & $Right($Temp, 3) & "//" & $Y & $Right($Temp, 3) & $Right($C, #Len($C) - 5)
/Set $ValueB, $Right($ValueB, #Len($ValueB) - 5)
GoTo SortItemsLoop
EndIf
/Set $TempB, $TempB & "/" & $Temp & "/"
/Set $ValueB, $Right($ValueB, #Len($ValueB) - 5)
GoTo SortItemsLoop
:Inventory
/Set #Z, #Source
If #IsIn($Message, $Commande & " ") > 0
/Set #Z, #PNumber($Right($Message, #Len($Message) - #Len($Commande) - 2))
If #Z = 0
/SendPM #Source, $Srv & "No such player"
/Exit
EndIf
EndIf
If #IsIn($Info(#Z), "=I=") = 0
/SendPM #Source, $Srv & "That player does not play regular RPG"
/Exit
EndIf
/SendPM #Source, "*** " & $UCase($Name(#Z) & "'s inventory ***") & $Chr(13) & " "
/SendPM #Source, "Key Items:" & $Chr(13) & " "
/Set $Value, $Replace($Left($Info(#Z), #IsIn($Info(#Z), "=B=") - 1), $Left($Info(#Z), #IsIn($Info(#Z), "=K=") + 2), "")
/Set $ValueB, $Left($Value, #IsIn($Value, "/"))
:InventoryKeyItemloop
If $ValueB = "/"
/Set $Value, $Replace($Left($Info(#Z), #IsIn($Info(#Z), "=K=") - 1), $Left($Info(#Z), #IsIn($Info(#Z), "=I=") + 2), "")
/SendPM #Source, " " & $Chr(13) & "Regular Items:" & $Chr(13) & " "
/Set #X, 0
GoTo Inventoryloop
EndIf
/SendPM #Source, $Left($ValueB, #Len($ValueB) - 1)
/Set $Value, $Replace($Value, $ValueB, "")
/Set $ValueB, $Left($Value, #IsIn($Value), "/")
GoTo InventoryKeyItemloop
:Inventoryloop
/Inc #X
If $Value = ""
/Exit
EndIf
/SendPM #Source, $Str(#X) & ": " & $Left($GetValue("Item_" & $Mid($Value, 3, 3)), #IsIn($GetValue("Item_" & $Mid($Value, 3, 3)), "/") - 1) & " x " & $Left($Value, 2)
/Set $Value, $Right($Value, #Len($Value) - 5)
GoTo Inventoryloop
:Give
If #Len($Message) < #Len($Commande + 5)
/SendPM #Source, $Srv & "The format must be " & $Chr(34) & "!Give [#PokeSlot] [$Item]" & $Chr(34) & "!"
/Exit
EndIf
If #Val($Mid($Message, #Len($Commande) + 3, 1)) > 6 OR #Val($Mid($Message, #Len($Commande) + 3, 1)) < 1
/SendPM #Source, $Srv & "The format must be " & $Chr(34) & "!Give [#PokeSlot] [$Item]" & $Chr(34) & "!"
/Exit
EndIf
/Set $Value, $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=K=") - 1), $Left($Info(#Source), #IsIn($Info(#Source), "=I=") + 2), "")
/Set #X, 0
:GiveItemLoop
/Inc #X
If $Value = ""
/SendPM #Source, $Srv & "Sorry, but you don't have any " & $Right($Message, #Len($Message) - #Len($Commande) - 4) & "."
/Exit
EndIf
/Set $Temp, $Left($Value, 5)
If $Left($GetValue("Item_" & $Mid($Value, 3, 3)), #IsIn($GetValue("Item_" & $Mid($Value, 3, 3)), "/") - 1) <> $Right($Message, #Len($Message) - #Len($Commande) - 4)
/Set $Value, $Right($Value, #Len($Value) - 5)
GoTo GiveItemLoop
EndIf
/Set $ValueB, $Replace($Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Message, #Len($Commande) + 3, 1) & "=") + 7), "")
/Set $TempB, $Mid($ValueB, 7, 3)
/Set $ValueB, $Left($ValueB, 6) & $Right($Temp, 3) & $Right($ValueB, #Len($ValueB) - 9)
/SendPM #Source, $Srv & "Gave " & $Pokemon(#Val($Left($ValueB, 3))) & " " & $Left($GetValue("Item_" & $Right($Temp, 3)), #IsIn($GetValue("Item_" & $Right($Temp, 3)), "/") - 1) & "."
/Set $Team(#Source), $Left($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Mid($Message, #Len($Commande) + 3, 1) & "=") + 7) & $ValueB
/Set $Value, $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=K=") - 1), $Left($Info(#Source), #IsIn($Info(#Source), "=I=") + 2), "")
If $TempB <> "000"
/Set $Value, $Value & "01" & $TempB
/SendPM #Source, $Srv & "Took " & $Left($GetValue("Item_" & $TempB), #IsIn($GetValue("Item_" & $TempB), "/") - 1) & "."
EndIf
/Set #Y, #Val($Mid($Value, (#X - 1) * 5 + 1, 2)) - 1
If #Y = 0
/Set $Value, $Left($Value, (#X - 1) * 5) & $Right($Value, #Len($Value) - #X * 5)
/Set $Info(#Source), $Left($Info(#Source), #IsIn($Info(#Source), "=I=") + 2) & $Value & $Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "=K=") + 1)
If $Left($GetPlayerInfo(#Source, EXTR), 4) = "[RPG"
/SetPlayerInfo #Source, EXTR, "[Invalid Team |" & $Right($GetPlayerInfo(#Source, Extr), #Len($GetPlayerInfo(#Source, EXTR)) - #IsIn($GetplayerInfo(#Source, EXTR), "|"))
/SendPM #Source, $Srv & "Go to the team builder and set your team again."
EndIf
GoTo SortItems
EndIf
/Set $Y, $Right("0" & $Str(#Y), 2)
/Set $Value, $Left($Value, (#X - 1) * 5) & $Y & $Right($Temp, 3) & $Right($Value, #Len($Value) - #X * 5)
/Set $Info(#Source), $Left($Info(#Source), #IsIn($Info(#Source), "=I=") + 2) & $Value & $Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "=K=") + 1)
If $Left($GetPlayerInfo(#Source, EXTR), 4) = "[RPG"
/SetPlayerInfo #Source, EXTR, "[Invalid Team |" & $Right($GetPlayerInfo(#Source, Extr), #Len($GetPlayerInfo(#Source, EXTR)) - #IsIn($GetplayerInfo(#Source, EXTR), "|"))
/SendPM #Source, $Srv & "Go to the team builder and set your team again."
EndIf
GoTo SortItems
:EvolutionMove
/Set $Value, $Right($Team(#Source), #Len($Team(#source)) - #IsIn($Team(#source), "=Poke_" & $Mid($Monoval(#Source), 4, 1) & "=") - 7)
/Set $Temp, $Left($GetValue("Poke_" & $Left($Value, 3)), #IsIn($GetValue("Poke_" & $Left($Value, 3)), "/") - 1)
:SearchMove
If #Val($Left($Temp, 2)) = #Val($Mid($Value, 4, 3)) AND $Mid($Value, 10, 3) <> $Mid($Temp, 3, 3) AND $Mid($Value, 13, 3) <> $Mid($Temp, 3, 3) AND $Mid($Value, 16, 3) <> $Mid($Temp, 3, 3) AND $Mid($Value, 19, 3) <> $Mid($Temp, 3, 3)
If $Mid($Value, 19, 3) <> "000"
/Set $MonoVal(#Source), $Left($MonoVal(#Source), #IsIn($MonoVal(#Source), "/") - 1) & $Str(#Val($Mid($Monoval(#Source), 4, 1))) & $Mid($temp, 3, 3) & $Right($MonoVal(#Source), #Len($MonoVal(#Source)) - #IsIn($MonoVal(#Source), "/") + 1)
/Set $MonoVal(#Source), "02" & $Right($MonoVal(#Source), #Len($MonoVal(#Source)) - 2)
/SendPM #Source, "*** " & $Pokemon(#Val($Left($Value, 3))) & " is ready to learn " & $Move(#Val($Mid($Temp, 3, 3))) & "!"
Else
/SendPM #Source, "*** " & $Pokemon(#Val($Left($Value, 3))) & " learned " & $Move(#Val($Mid($Temp, 3, 3))) & "!"
If $Mid($Value, 13, 3) = "000"
/Set $Value, $Left($Value, 12) & $Mid($Temp, 3, 3) & $right($Value, #Len($Value) - 15)
Else
If $Mid($Value, 16, 3) = "000"
/Set $Value, $Left($Value, 15) & $Mid($Temp, 3, 3) & $right($Value, #Len($Value) - 18)
Else
/Set $Value, $Left($Value, 18) & $Mid($Temp, 3, 3) & $right($Value, #Len($Value) - 21)
EndIf
EndIf
EndIf
EndIf
/Set $Temp, $Right($Temp, #Len($Temp) - 5)
If $Temp <> ""
GoTo SearchMove
EndIf
GoTo Monoval
:ShowPoke
If #IsIn($Pokemon(#Val($Left($Value, 3))), "(") = 0
If $Mid($Value, 22, 1) = "1"
/Set $G, " (M)"
Else
/Set $G, " (F)"
EndIf
Else
/Set $G, ""
EndIf
/SendPM #Source, "*** POKE N°" & $Str(#X) & " ***"
/SendPM #Source, "### LV" & $Str(#Val($Mid($Value, 4, 3))) & " " & $Pokemon(#Val($Left($Value, 3))) & $G & "@" & $Left($GetValue("Item_" & $Mid($Value, 7, 3)), #IsIn($GetValue("Item_" & $Mid($Value, 7, 3)), "/") - 1) & " ###" & $Chr(13) & " "
/SendPM #Source, "move1: " & $Move(#Val($Mid($Value, 10, 3)))
/SendPM #Source, "move2: " & $A
/SendPM #Source, "move3: " & $B
/SendPM #Source, "move4: " & $C & $Chr(13) & "____________________" & $Chr(13) & " "
If $Mid($Value, 4, 3) = "100"
/Set #X, 0
Else
/Set $Temp, $GetValue("Exp_" & $Right($GetValue("Poke_" & $Left($Value, 3)), #Len($GetValue("Poke_" & $Left($Value, 3))) - (#IsIn($GetValue("Poke_" & $Left($Value, 3)), "$"))))
/Set $Temp, $Right($TEmp, #Len($temp) - #IsIn($temp, "/" & $Str(#Val($Mid($Value, 4, 3)) + 1) & "-"))
/Set $temp, $Replace($temp, $Left($temp, #IsIn($temp, "-")), "")
/Set $Temp, $Right($Left($temp, #IsIn($temp, "/") - 1), #Len($Left($temp, #IsIn($temp, "/") - 1) - #IsIn($Left($temp, #IsIn($temp, "/") - 1), "-")))
EndIf
/Set $X, #Val($Mid($Value, 30, 3)) / 255 * 100
/SendPM #Source, "Happiness: " & $Str(#Int(#Val($Mid($Value, 30, 3)) / 255 * 100)) & "%"
/SendPM #Source, "Current Experience: " & $Str(#Val($Mid($Value, 23, 7)))
/SendPM #Source, "Exp to next level: " & $Str(#X) & $Chr(13) & " "
/SendPM #Source, "### ID -- " & $Mid($Value, 36, 5) & " OT -- " & $Left($Mid($Value, 41, 20), #IsIn($Mid($Value, 41, 21), "=") - 1) & " ###"
/Exit
:Showteam
/SendPM #Source, "*** " & $UCase($Name(#Z)) & "'s TEAM ***"
/Set #X, 1
/Set $Value, $Replace($team(#Z), $Left($team(#Z), #IsIn($team(#Z), "1=") + 1), "")
:showteamloop
/Set #A, $Mid($Value, 13, 3)
/Set #B, $Mid($Value, 16, 3)
/Set #C, $Mid($Value, 19, 3)
If #A = 0
/Set $A, "(none)"
/Set $B, "(none)"
/Set $C, "(none)"
Else
/Set $A, $Move(#A)
If #B = 0
/Set $B, "(none)"
/Set $C, "(none)"
Else
/Set $B, $Move(#B)
If #C = 0
/Set $C, "(none)"
Else
/Set $C, $Move(#C)
EndIf
EndIf
EndIf
If $Left($MonoVal(#Source), 1) = "1"
/Set $MonoVal(#Source), "0" & $Right($MonoVal(#Source), #Len($MonoVal(#Source)) - 1)
GoTo showpoke
EndIf
/SendPM #Source, "Poke" & $Str(#X) & ": " & "lv" & $Str(#Val($Mid($Value, 4, 3))) & " " & $Pokemon(#Val($Left($Value, 3))) & "@" & $Left($GetValue("Item_" & $Mid($Value, 7, 3)), #IsIn($GetValue("Item_" & $Mid($Value, 7, 3)), "/") - 1) & " " & $Move($Mid($Value, 10, 3)) & "/" & $A & "/" & $B & "/" & $C & " ID: " & $Mid($Value, 36, 5)
/Inc #X
If #X >= 7
/SendPM #Source, "You can enter " & $Chr(34) & "!Show [slot]" & $Chr(34) & " to see the detailed description of the poke in that slot."
/Exit
EndIf
/Set $Value, $Replace($Value, $Left($Value, #IsIn($Value, "=Poke_" & $Str(#X) & "=") + 7), "")
GoTo showteamloop
:StartTeam
/Set #Z, 1
/Set $B, $Right("0000" & $Str(#Rand(65555, 1)), 5)
/SetPlayerInfo #Source, EXTR, "[Invalid Team | Canelle Town | Badges: 0 | 3000¥]"
/Set $Info(#Source), "=L=Canelle Town=I=0510001200=K=/=B=000000000=M=3000=V=Canelle Town/=OT=" & $Name(#Source) & "=ID=" & $B
:Pokeinit
If $WildLife(#Source) <> ""
/Set $Value, "0" & $Left($Temp, 2)
Else
/Set $Value, "005"
EndIf
/Set $X, $Right("00" & $Str(#X), 3)
/Set $Value, $X & $Value
If #IsIn($GetValue("$Itemdex"), "/" & $Str(#Val($X)) & "-") = 1
/Set #X, #Rand(20, 1)
/Set $Temp, $Left($Right($GetValue("$Itemdex"), #Len($GetValue("$ItemDex")) - #IsIn($GetValue("$Itemdex"), "/" & $Str(#Val($X)) & "-")), #IsIn($Right($GetValue("$Itemdex"), #Len($GetValue("$ItemDex")) - #IsIn($GetValue("$Itemdex"), "/" & $Str(#Val($X)) & "-")), "/") - 1)
If #X = 1 AND #IsIn($temp, "(1)") > 0
/Set $Value, $Value & "0" & $Mid($temp, #IsIn($temp, "(1)") - 2, 2)
EndIf
If #X > 10 AND #IsIn($temp, "(10)") > 0
/Set $Value, $Value & "0" & $Mid($temp, #IsIn($temp, "(10)") - 2, 2)
EndIf
EndIf
If #Len($Value) = 6
/Set $Value, $Value & "000"
EndIf
//MoveScript
/Set $Temp, $Left($GetValue("Poke_" & $X), #IsIn($GetValue("Poke_" & $X), "/") - 1)
/Set #X, - 4
/Set #N, 0
/Set #Y, 5
:Movelistinit
/Inc #X, 5
If #Len($Temp) > #X
If #Y > #Val($Mid($temp, #X, 2))
/Set $TempB, $Left($temp, #X + 4)
GoTo Movelistinit
EndIf
EndIf
If #Len($TempB) > 20
/Set $TempB, $Right($tempB, 20)
EndIf
/Set #X, 0
:moveinit
/Inc #X, 3
/Set $Value, $Value & $Mid($TempB, 3, 3)
/Set $TempB, $Replace($TempB, $Left($TempB, #X + 2), "")
If $TempB <> ""
GoTo moveinit
EndIf
:addfreemove
If #X < 10
/Inc #X, 3
/Set $Value, $Value & "000"
GoTo addfreemove
EndIf
If #IsIn($GetValue($X, "000M000F") = 1
/Set $Value, $Value & "2"
Else
/Set #X, #Rand(1000, 1)
If #X <= #Val($Left($Right($GetValue("poke_" & $X), #Len($GetValue("Poke_" & $X)) - #IsIn($GetValue("poke_" & $X), "!")), 4))
/Set $Value, $Value & "1"
Else
/Set $Value, $Value & "0"
EndIf
EndIf
//Exp Script
/Set $Temp, $GetValue("Exp_" & $Right($GetValue("Poke_" & $Left($Value, 3)), #Len($GetValue("Poke_" & $Left($Value, 3))) - (#IsIn($GetValue("Poke_" & $Left($Value, 3)), "$"))))
/Set $Temp, $Right($Temp, #Len($temp) - #IsIn($temp, "/" & $Str(#Val($Mid($Value, 4, 3))) & "-"))
/Set $Temp, $Replace($temp, $Left($temp, #IsIn($temp, "-")), "")
/Set $Temp, $Right($Left($temp, #IsIn($temp, "/") - 1), #Len($Left($temp, #IsIn($temp, "/") - 1) - #IsIn($Left($temp, #IsIn($temp, "/") - 1), "-")))
/Set $Temp, $Right("000000" & $Temp, 7)
/Set $Value, $Value & $temp & "000000" & $Right($Info(#Source), 5) & $Name(#Source)
If $Right($team(#Source), 1) = "="
/Set $team(#Source), $Left($team(#Source), #IsIn($team(#Source), "=Poke_" & $Str(#Z) & "=") + 7) & $Value & $Replace($team(#Source), $Left($team(#Source), #IsIn($team(#Source), "=Poke_" & $Str(#Z) & "=") + 7), "")
/Inc #Z
GoTo pokestart
EndIf
GoTo WildPoke
:REQU
If #IsIn($Temp, "*") = 0
GoTo EndREQU
EndIf
/Set $TempB, $Left($Right($Temp, #Len($Temp) - #IsIn($Temp, ":")), #IsIn($Right($Temp, #Len($Temp) - #IsIn($Temp, ":")), "*") - 1)
If $Left($Temp, 5) = "BADG:"
If #Val($Right($GetPlayerInfo(#Source, EXTR), #Len($GetPlayerInfo(#Source, EXTR)) - #IsIn($GetPlayerInfo(#Source, EXTR), "Badges: ") - 7)) >= #Val($TempB)
/Set $Temp, $Right($Temp, #Len($Temp) - #IsIn($Temp, "*"))
GoTo REQU
EndIf
/Set $Temp, "NO"
GoTo EndREQU
EndIf
If $Left($Temp, 5) = "SBDG:"
If $Mid($Left($Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "=B=") - 2), #IsIn($Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "=B=") - 2), "=") - 1), #Val($TempB), 1) = "1"
/Set $Temp, $Right($Temp, #Len($Temp) - #IsIn($Temp, "*"))
GoTo REQU
EndIf
/Set $Temp, "NO"
GoTo EndREQU
EndIf
If $Left($Temp, 5) = "MOVE:"
/Set #X, 1
:REQUMove
/Set $X, $Replace($Team(#Source), $Left($Team(#Source), #IsIn($team(#Source), "=Poke_" & $Str(#X) & "=") + 16), "")
If $Left($X, 3) = $TempB OR $Mid($X, 4, 3) = $TempB OR $Mid($X, 7, 3) = $TempB OR $Mid($X, 10, 3) = $TempB
/Set $Temp, $Right($Temp, #Len($Temp) - #IsIn($Temp, "*"))
GoTo REQU
EndIf
If #X < 6
/Inc #X
GoTo REQUMove
EndIf
/Set $Temp, "NO"
GoTo EndREQU
EndIf
If $Left($Temp, 5) = "KITM:"
/Set $X, $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=B=") - 1), $Left($Info(#Source), #IsIn($Info(#Source), "=K=") + 1), "")
If #IsIn($X, "=" & $TempB & "/") > 0 OR #IsIn($X, "/" & $TempB & "/") > 0
/Set $Temp, $Right($Temp, #Len($Temp) - #IsIn($Temp, "*"))
GoTo REQU
EndIf
/Set $Temp, "NO"
GoTo EndREQU
EndIf
:EndREQU
If $Left($Monoval(#Source), 2) = "01"
/Set $Monoval(#Source), "00" & $Right($Monoval(#Source), #Len($Monoval(#Source)) - 2)
GoTo EndREQUGoTo
EndIf
/Exit
:pokestart
If #Z = 7
/SendPM #Source, $Srv & "Great! Here is your team: GoTo the team builder and set your team as the one listed"
/Set #Z, #Source
/Set $Monoval(#Source), "00/!"
/Set $Box(#Source), "=Box_1§=Box_2§=Box_3§"
GoTo showteam
EndIf
/Set #Y, #Rand(50, 1)
If #Z = 2
If #Y < 10
/Set #X, 16
EndIf
If #Y > 9 AND #Y < 18
/Set #X, 19
EndIf
If #Y > 17 AND #Y < 26
/Set #X, 21
EndIf
If #Y > 25 AND #Y < 29
/Set #X, 39
EndIf
If #Y > 28 AND #Y < 33
/Set #X, 35
EndIf
If #Y > 32 AND #Y < 38
/Set #X, 52
EndIf
If #Y > 37 AND #Y < 45
/Set #X, 84
EndIf
If #Y > 44 AND #Y < 48
/Set #X, 83
EndIf
If #Y > 47
/Set #X, 115
EndIf
GoTo pokeinit
EndIf
If #Z = 3
If #Y < 10
/Set #X, 29
EndIf
If #Y > 9 AND #Y < 18
/Set #X, 32
EndIf
If #Y > 17 AND #Y < 26
/Set #X, 56
EndIf
If #Y > 25 AND #Y < 29
/Set #X, 209
Endif
If #Y > 28 AND #Y < 33
/Set #X, 204
EndIf
If #Y > 32 AND #Y < 38
/Set #X, 102
EndIf
If #Y > 37 AND #Y < 45
/Set #X, 163
EndIf
If #Y > 44 AND #Y < 48
/Set #X, 290
EndIf
If #Y > 47
/Set #X, 56
EndIf
GoTo pokeinit
EndIf
If #Z = 4
If #Y < 10
/Set #X, 10
EndIf
If #Y > 9 AND #Y < 18
/Set #X, 13
EndIf
If #Y > 17 AND #Y < 26
/Set #X, 265
EndIf
If #Y > 25 AND #Y < 29
/Set #X, 193
Endif
If #Y > 28 AND #Y < 33
/Set #X, 313
EndIf
If #Y > 32 AND #Y < 38
/Set #X, 167
EndIf
If #Y > 37 AND #Y < 45
/Set #X, 165
EndIf
If #Y > 44 AND #Y < 48
/Set #X, 314
EndIf
If #Y > 47
/Set #X, 127
EndIf
GoTo pokeinit
EndIf
If #Z = 5
If #Y < 10
/Set #X, 41
EndIf
If #Y > 9 AND #Y < 18
/Set #X, 27
EndIf
If #Y > 17 AND #Y < 26
/Set #X, 46
EndIf
If #Y > 25 AND #Y < 29
/Set #X, 104
Endif
If #Y > 28 AND #Y < 33
/Set #X, 206
EndIf
If #Y > 32 AND #Y < 38
/Set #X, 66
EndIf
If #Y > 37 AND #Y < 45
/Set #X, 74
EndIf
If #Y > 44 AND #Y < 48
/Set #X, 95
EndIf
If #Y > 47
/Set #X, 198
EndIf
GoTo pokeinit
EndIf
If #Z = 6
If #Y < 10
/Set #X, 43
EndIf
If #Y > 9 AND #Y < 18
/Set #X, 69
EndIf
If #Y > 17 AND #Y < 26
/Set #X, 63
EndIf
If #Y > 25 AND #Y < 29
/Set #X, 96
EndIf
If #Y > 28 AND #Y < 33
/Set #X, 60
EndIf
If #Y > 32 AND #Y < 38
/Set #X, 98
EndIf
If #Y > 37 AND #Y < 45
/Set #X, 116
EndIf
If #Y > 44 AND #Y < 48
/Set #X, 118
EndIf
If #Y > 47
/Set #X, 114
EndIf
GoTo pokeinit
EndIf
EndEvent
Event -ChallengeIssued
If #Val($Left($MonoVal(#Source), 2)) <> 0 OR #Val($Left($MonoVal(#Target), 2)) <> 0
/SendPM #Source, $Srv & "Sorry, but you or your opponent is busy doing something"
GoTo Exit
EndIf
If #IsIn($GetPlayerInfo(#Source, EXTR), "[") = 0
/SendPM #Source, $Srv & " As a gymleader, did you think you could challenge people?"
GoTo Exit
EndIf
If #IsIn($GetPlayerInfo(#Target, EXTR), "[") = 0
If #IsIn($Info(#Source), "=L=" & $Left($GetPlayerInfo(#Target, EXTR), #IsIn($GetPlayerInfo(#Target, EXTR), " Gymleader.") - 1) & "=") = 0
/SendPM #Source, $Srv & " To challenge a GymLeader, you need to be in the same location as him dude!"
GoTo Exit
Else
If #IsIn($GetPlayerInfo(#Target, EXTR), " GYMLEADER") = 0
/Exit
EndIf
/Set $Value, $Replace($Info(#Source), $Left($Info(#Source, #IsIn($Info(#Source), "B=") + 1), "")
/Set #X, $Right($Info(#Target), #Len($Info(#Target)) - #IsIn($Info(#Target), "|"))
If $Mid($Value, #X, 1) = 0
/SendPM #Source, $Srv & " Sorry dude, but you already have the badge!"
GoTo Exit
EndIf
EndIf
EndIf
If $Left($GetPlayerInfo(#Source, EXTR), 4) = "[RPG" XOR $Left($GetPlayerInfo(#Target, EXTR), 4) = "[RPG"
/SendPM #Source, $Srv & "Sorry, you have a " & $Replace($Left($GetPlayerInfo(#Source, EXTR), #IsIn($GetPlayerInfo(#Source, EXTR), "]") - 1), "[", "") & "and your opponent a " & $Replace($Left($GetPlayerInfo(#Target, EXTR), #IsIn($GetPlayerInfo(#Target, EXTR), "]") - 1), "[", "") & "!"
GoTo Exit
EndIf
If #IsIn($GetPlayerInfo(#Source, EXTR), "[RPG") > 0 AND $Mid($Message, 8, 1) = "0" OR $Mid($Message, 7, 1) = "1" OR $Mid($Message, 6, 1) = "1"
/SendPM #Source, "*** Battle Timeout must be enabled. Level Balance and Challenge Cup must be disabled. ***"
GoTo Exit
EndIf
/Exit
:Exit
/StopEvent
EndEvent
Event -BattleOver
If $Left($GetPlayerInfo(#Target, EXTR), 4) <> "[RPG" AND $Left($GetPlayerInfo(#Source, EXTR), 4) <> "[RPG"
/Exit
EndIf
If #GetPlayerInfo(#Source, BWTH) = 0
/SendPM #Source, $Srv & "I'm really sorry, but as your opponent is not there, I can't give you exp!"
/Exit
EndIf
If #IsIn($GetPlayerInfo(#Target, EXTR), "[") = 0
If #IsIn($Info(#Target), " Badge") > 0
/SendPM #Source, $Srv & "Congrats! you've obtained the " & $Left($Info(#Target), #IsIn($Info(#Target, "|") - 1) & "!"
Else
/SendPM #Source, $Srv & "Congrats for your win against an elite four member!"
EndIf
/Set $ValueB, $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=M=") - 3), $Left($Info(#Source), #IsIn($Info(#Source), "=B=")), "")
/Set #A, $Right($Info(#Target), #Len($Info(#Target)) - #IsIn($Info(#Target), "|"))
/Set $ValueB, $Left($ValueB, #A - 1) & "1" & $Right($ValueB, #len($ValueB) - #A)
/Set #B, #Len($ValueB) - #Len($Replace($ValueB, "1", ""))
/Set $Value, $Left($GetPlayerInfo(#Source, EXTR), #IsIn($GetPlayerInfo(#Source, EXTR), "Badges: ")) + 9
/SetPlayerInfo #Source, EXTR, $Left($Value, #Len($Value) - 2) & $Str(#A) & " " & $Right($GetPlayerInfo(#Source, EXTR), #Len($GetPlayerInfo(#Source, EXTR)) - #IsIn($GetPlayerInfo(#Source, EXTR), "Badges: ") - 7 - #Len(#Val($Right($Value, 2))))
EndIf
//Exp Script
/Set #Z, 1
/Set #Y, 0
:YAddExpLoop
/Set #Y, #Y + #Val($Right($GetValue("Poke_Stat_" & $Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Str(#Z) & "=") + 9, 3)), #Len($GetValue("Poke_Stat_" & $Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Str(#Z) & "=") + 9, 3))) - #IsIn($GetValue("Poke_Stat_" & $Mid($Team(#Source), #IsIn($Team(#Source), "=Poke_" & $Str(#Z) & "=") + 9, 3)), "§"))) * #GetPokeLevel(#Source, #Z)
/Inc #Z
If #Z < 7
GoTo YAddExpLoop
EndIf
/Set #A, #GetPokeLevel(#Source, 1) + #GetPokeLevel(#Source, 2) + #GetPokeLevel(#Source, 3) + #GetPokeLevel(#Source, 4) + #GetPokeLevel(#Source, 5) + #GetPokeLevel(#Source, 6)
/Set #B, #GetPokeLevel(#Target, 1) + #GetPokeLevel(#Target, 2) + #GetPokeLevel(#Target, 3) + #GetPokeLevel(#Target, 4) + #GetPokeLevel(#Target, 5) + #GetPokeLevel(#Target, 6)
/Set #C, #Int(#B / #A * 100)
/Set #C, $C
If #C > 70
/Set #C, 70
EndIf
/Set #Y, #Int((#C * #Y * 3) / 8400)
/Set #Z, 1
/Set #X, 0
:XAddExpLoop
/Set #X, #X + #Val($Right($GetValue("Poke_Stat_" & $Mid($Team(#Target), #IsIn($Team(#Target), "=Poke_" & $Str(#Z) & "=") + 9, 3)), #Len($GetValue("Poke_Stat_" & $Mid($Team(#Target), #IsIn($Team(#Target), "=Poke_" & $Str(#Z) & "=") + 9, 3))) - #IsIn($GetValue("Poke_Stat_" & $Mid($Team(#Target), #IsIn($Team(#Target), "=Poke_" & $Str(#Z) & "=") + 9, 3)), "§"))) * #GetPokeLevel(#Target, #Z)
/Inc #Z
If #Z < 7
GoTo XAddExpLoop
EndIf
/Set #X, #Int((#X * 3)/ 84)
//Give EXP script
/Set #Z, 1
/Set #D, #Source
:GiveExpLoop
//Met le poke
/Set $Value, $Right($Team(#D), #Len($Team(#D)) - #IsIn($Team(#D), "=Poke_" & $Str(#Z) & "=") - 7)
If #GetPokeLevel(#D, #Z) = 100
GoTo EndExpLoop
EndIF
/Set #A, #Val($Mid($Value, 23, 7)) + #X
/SendPM #D, $Srv & $Pokemon(#GetTeamPoke(#D, #Z)) & " gained " & $Str(#X) & " Experience points!"
/Set $D, $Right("00" & $Str(#Val($Mid($Value, 30, 3)) + 1), 3)
/Set $Value, $Left($Value, 29) & $D & $Right($Value, #Len($Value) - 32)
If #Val($Mid($Value, 30, 3)) > 255
/Set $Value, $Left($Value, 29) & "255" & $Right($Value, #Len($Value) - 32)
EndIf
/Set #N, 0
:NewLevel
/Set $Temp, $GetValue("Exp_" & $Right($GetValue("Poke_" & $Left($Value, 3)), #Len($GetValue("Poke_" & $Left($Value, 3))) - (#IsIn($GetValue("Poke_" & $Left($Value, 3)), "$"))))
/Set $Temp, $Right($Temp, #Len($temp) - #IsIn($temp, "/" & $Str(#Val($Mid($Value, 4, 3)) + 1) & "-"))
/Set $temp, $Replace($temp, $Left($temp, #IsIn($temp, "-")), "")
/Set #B, $Right($Left($temp, #IsIn($temp, "/") - 1), #Len($Left($temp, #IsIn($temp, "/") - 1) - #IsIn($Left($temp, #IsIn($temp, "/") - 1), "-")))
If #B < #A
/Set $Temp, $Right("00" & $Str(#Val($Mid($Value, 4, 3)) + 1), 3)
/Set $Value, $Left($Value, 3) & $Temp & $Right($Value, #Len($Value) - 6)
/Set $Temp, $Right("000000" & $Str(#B), 7)
/Set $Value, $Left($Value, 22) & $Temp & $Right($Value, #Len($Value) - 29)
// Avant ct tout le script des ajouts de stats (exp - happy - level)
/SendPM #D, "*** " & $Pokemon(#GetTeamPoke(#D, #Z)) & " grew to level " & $str(#Val($Mid($Value, 4, 3))) & "!!"
/Set #N, 100
/Set $D, $Right("00" & $Str(#Val($Mid($Value, 30, 3)) + 5), 3)
/Set $Value, $Left($Value, 29) & $D & $Right($Value, #Len($Value) - 32)
If #Val($Mid($Value, 30, 3)) > 255
/Set $Value, $Left($Value, 29) & "255" & $Right($Value, #Len($Value) - 32)
EndIf
//LA ct l'happy gagné en level
If $Mid($Value, 4, 3) = "100"
GoTo firstEndExpLoop
EndIf
/Set $Temp, $Left($GetValue("Poke_" & $Left($Value, 3)), #IsIn($GetValue("Poke_" & $Left($Value, 3)), "/") - 1)
:SearchMove
If #Val($Left($Temp, 2)) = #Val($Mid($Value, 4, 3)) AND $Mid($Value, 10, 3) <> $Mid($Temp, 3, 3) AND $Mid($Value, 13, 3) <> $Mid($Temp, 3, 3) AND $Mid($Value, 16, 3) <> $Mid($Temp, 3, 3) AND $Mid($Value, 19, 3) <> $Mid($Temp, 3, 3)
If $Mid($Value, 19, 3) <> "000"
/Set $MonoVal(#D), $Left($MonoVal(#D), #IsIn($MonoVal(#D), "/") - 1) & $Str(#Z) & $Mid($temp, 3, 3) & $Right($MonoVal(#D), #Len($MonoVal(#D)) - #IsIn($MonoVal(#D), "/") + 1)
/Set $MonoVal(#D), "02" & $Right($MonoVal(#D), #Len($MonoVal(#D)) - 2)
/SendPM #D, "*** " & $Pokemon(#GetTeamPoke(#D, #Z)) & " is ready to learn " & $Move(#Val($Mid($Temp, 3, 3))) & "!"
Else
/SendPM #D, "*** " & $Pokemon(#GetTeamPoke(#D, #Z)) & " learned " & $Move(#Val($Mid($Temp, 3, 3))) & "!"
If $Mid($Value, 13, 3) = "000"
/Set $Value, $Left($Value, 12) & $Mid($Temp, 3, 3) & $right($Value, #Len($Value) - 15)
Else
IF $Mid($Value, 16, 3) = "000"
/Set $Value, $Left($Value, 15) & $Mid($Temp, 3, 3) & $right($Value, #Len($Value) - 18)
Else
/Set $Value, $Left($Value, 18) & $Mid($Temp, 3, 3) & $right($Value, #Len($Value) - 21)
EndIf
EndIf
EndIf
EndIf
If #Val($Left($Temp, 2)) > #Val($Mid($Value, 4, 3))
GoTo NewLevel
EndIf
:GoToSearchmove
/Set $Temp, $Right($Temp, #Len($Temp) - 5)
If $Temp <> ""
GoTo SearchMove
EndIf
GoTo NewLevel
:FirstEndExpLoop
Else
/Set $Temp, $Right("000000" & $Str(#A), 7)
/Set $Value, $Left($Value, 22) & $Temp & $Right($Value, #Len($Value) - 29)
If #N = 100
If #IsIn($GetValue("Poke_" & $Left($Value, 3)), "level>") > 0
/Set $Temp, $Replace($Getvalue("Poke_" & $Left($Value, 3)), $Left($GetValue("Poke_" & $Left($Value, 3)), #IsIn($GetValue("Poke_" & $Left($Value, 3)), "Level>") + 5), "")
If #IsIn($Temp, "(") = 0
/Set $Temp, $Left($Temp, #IsIn($Temp, "$") - 1)
Else
/Set $Temp, $Left($Temp, #IsIn($Temp, "(") - 1)
EndIf
If #Val($Mid($Value, 4, 3)) >= #Val($Temp)
/SendPM #D, "*** Wow! " & $Pokemon(#GetTeamPoke(#D, #Z)) & " is ready to Evolve!"
/Set $MonoVal(#D), $Left($MonoVal(#D), #IsIn($MonoVal(#D), "!") - 1) & $Str(#Z) & $Right($MonoVal(#D), #Len($MonoVal(#D)) - #IsIn($MonoVal(#D), "!") + 1)
/Set $MonoVal(#D), "02" & $Right($MonoVal(#D), #Len($MonoVal(#D)) - 2)
EndIf
Else
If #IsIn($GetValue("Poke_" & $Left($Value, 3)), "Happiness") > 0 AND #Val($Mid($Value, 30, 3)) >= 240
/SendPM #D, "*** Wow! " & $Pokemon(#GetTeamPoke(#D, #Z)) & " is ready to Evolve!"
/Set $MonoVal(#D), $Left($MonoVal(#D), #IsIn($MonoVal(#D), "!") - 1) & #Z & $Right($MonoVal(#D), #Len($MonoVal(#D)) - #IsIn($MonoVal(#D), "!"))
/Set $MonoVal(#D), "02" & $Right($MonoVal(#D), #Len($MonoVal(#D)) - 2)
EndIf
EndIf
EndIf
EndIf
:EndExpLoop
/Set $Team(#D), $Left($Team(#D), #IsIn($Team(#D), "=Poke_" & $Str(#Z) & "=") + 7) & $Value
If #Z < 6
/Inc #Z
GoTo GiveExpLoop
Else
If #D = #Source
/Set #Z, 1
/Set #D, #Target
/Set #X, #Y
GoTo GiveExpLoop
EndIf
EndIF
If #IsIn($GetPlayerInfo(#Source, EXTR), "[") <> 0
If #IsIn($GetPlayerInfo(#Target, EXTR), "[") = 0
/Set #A, 3000
Else
/Set $A, #Val($Right($Left($Info(#Target), #IsIn($Info(#Target), "=V=") - 1), #Len($Left($Info(#Target), #IsIn($Info(#Target), "=V=") - 1)) - #IsIn($Left($Info(#Target), #IsIn($Info(#Target), "=V=") - 1), "=M=") - 2)) * 3 / 8
If #IsIn($A, ",") > 0
/Set #A, $Left($A, #IsIn($A, ",") - 1)
EndIf
EndIf
/SendPM #Source, $Srv & "You won " & $Str(#A) & "¥!! "
If #Val($Right($Left($Info(#Source), #IsIn($Info(#Source), "=V=") - 1), #Len($Left($Info(#Source), #IsIn($Info(#Source), "=V=") - 1)) - #IsIn($Left($Info(#Source), #IsIn($Info(#Source), "=V=") - 1), "=M=") - 2)) + #A > 999999
/Set #A, 999999 - #Val($Right($Left($Info(#Source), #IsIn($Info(#Source), "=V=") - 1), #Len($Left($Info(#Source), #IsIn($Info(#Source), "=V=") - 1)) - #IsIn($Left($Info(#Source), #IsIn($Info(#Source), "=V=") - 1), "=M=") - 2))
EndIf
/Set $Info(#Source), $Left($Info(#Source), #IsIn($Info(#Source), "M=") + 1) & $Str(#Val($Right($Left($Info(#Source), #IsIn($Info(#Source), "=V=") - 1), #Len($Left($Info(#Source), #IsIn($Info(#Source), "=V=") - 1)) - #IsIn($Left($Info(#Source), #IsIn($Info(#Source), "=V=") - 1), "=M=") - 2)) + #A) & $Right($Info(#Source), #Len($Info(#Source)) - #IsIn($Info(#Source), "=V") + 1)
/Set $Value, $Right($GetPlayerInfo(#Source, EXTR), #Len($GetPlayerInfo(#Source, EXTR)) - #IsIn($GetPlayerInfo(#Source, EXTR), "Badges"))
/Set $Value, $Right($Value, #Len($Value) - #IsIn($Value, "|"))
/SetPlayerInfo #Source, EXTR, $Left($GetPlayerInfo(#Source, EXTR), #IsIn($GetPlayerInfo(#Source, EXTR), $Value)) & $Replace($Left($Info(#Source), #IsIn($Info(#Source), "=V") - 1), $Left($Info(#Source), #IsIn($Info(#Source), "M=") + 1), "") & "¥]"
EndIf
If #IsIn($GetPlayerInfo(#Target, EXTR), "[") <> 0
If #IsIn($GetPlayerInfo(#Target, EXTR), "[") = 0
/Set #A, 3000
Else
/Set $A, #Val($Right($Left($Info(#Target), #IsIn($Info(#Target), "=V=") - 1), #Len($Left($Info(#Target), #IsIn($Info(#Target), "=V=") - 1)) - #IsIn($Left($Info(#Target), #IsIn($Info(#TArget), "=V=") - 1), "=M=") - 2)) * 1/4
If #IsIn($A, ",") > 0
/Set #A, $Left($A, #IsIn($A, ",") - 1)
EndIf
EndIf
/SendPM #Target, $Srv & "You lost " & $Str(#A) & "¥!! "
/Set $Info(#Target), $Left($Info(#Target), #IsIn($Info(#Target), "M=") + 1) & $Str(#Val($Right($Left($Info(#Target), #IsIn($Info(#Target), "=V=") - 1), #Len($Left($Info(#Target), #IsIn($Info(#Target), "=V=") - 1)) - #IsIn($Left($Info(#Target), #IsIn($Info(#Target), "=V=") - 1), "=M=") - 2)) - #A) & $Right($Info(#Target), #Len($Info(#Target)) - #IsIn($Info(#Target), "=V") + 1)
/Set $Value, $Right($GetPlayerInfo(#Target, EXTR), #Len($GetPlayerInfo(#Target, EXTR)) - #IsIn($GetPlayerInfo(#Target, EXTR), "Badges"))
/Set $Value, $Right($Value, #Len($Value) - #IsIn($Value, "|"))
/SetPlayerInfo #Target, EXTR, $Left($GetPlayerInfo(#Target, EXTR), #IsIn($GetPlayerInfo(#Target, EXTR), $Value)) & $Replace($Left($Info(#Target), #IsIn($Info(#Target), "=V") - 1), $Left($Info(#Target), #IsIn($Info(#Target), "M=") + 1), "") & "¥]"
EndIf
EndEvent
Event +ServerStartup
/SaveValue "$ItemDex", "/1-27(1)/4-16(1)/7-28(1)/152-27(1)/155-16(1)/158-28(1)/252-27(1)/255-16(1)/258-28(1)/"
/SaveValue "Item_000", "(No Item)/"
/SaveValue "Item_001", "Berry/"
/SaveValue "Item_002", "Berry Juice/"
/SaveValue "Item_003", "Bitter Berry/"
/SaveValue "Item_004", "Burnt Berry/"
/SaveValue "Item_005", "Gold Berry/"
/SaveValue "Item_006", "Ice Berry/"
/SaveValue "Item_007", "Mint Berry/"
/SaveValue "Item_008", "Miracle Berry/"
/SaveValue "Item_009", "Mysteryberry/"
/SaveValue "Item_010", "PrzCureBerry/"
/SaveValue "Item_011", "PsnCureBerry/"
/SaveValue "Item_012", "Berserk Gene/"
/SaveValue "Item_013", "Black Belt/1000"
/SaveValue "Item_014", "BlackGlasses/1000"
/SaveValue "Item_015", "BrightPowder/5000"
/SaveValue "Item_016", "Charcoal/1000"
/SaveValue "Item_017", "Dragon Fang/1000"
/SaveValue "Item_018", "Focus Band/5000"
/SaveValue "Item_019", "Hard Stone/1000"
/SaveValue "Item_020", "King's Rock/5000"
/SaveValue "Item_021", "Leftovers/5000"
/SaveValue "Item_022", "Light Ball/100"
/SaveValue "Item_023", "Lucky Punch/100"
/SaveValue "Item_024", "Magnet/1000"
/SaveValue "Item_025", "Metal Coat/1000"
/SaveValue "Item_026", "Metal Powder/100"
/SaveValue "Item_027", "Miracle Seed/1000"
/SaveValue "Item_028", "Mystic Water/1000"
/SaveValue "Item_029", "NevermeltIce/1000"
/SaveValue "Item_030", "Pink Bow/1000"
/SaveValue "Item_031", "Poison Barb/1000"
/SaveValue "Item_032", "Polkadot Bow/0"
/SaveValue "Item_033", "Quick Claw/5000"
/SaveValue "Item_034", "Scope Lens/5000"
/SaveValue "Item_035", "Sharp Beak/1000"
/SaveValue "Item_036", "Silver Powder/"
/SaveValue "Item_037", "Soft Sand/1000"
/SaveValue "Item_038", "Spell Tag/2000"
/SaveValue "Item_039", "Stick/100"
/SaveValue "Item_040", "Thick Club/100"
/SaveValue "Item_041", "TwistedSpoon/1000"
/SaveValue "Item_042", "Cheri Berry/10"
/SaveValue "Item_043", "Chesto Berry/10"
/SaveValue "Item_044", "Pecha Berry/10"
/SaveValue "Item_045", "Rawst Berry/10"
/SaveValue "Item_046", "Aspear Berry/10"
/SaveValue "Item_047", "Leppa Berry/10"
/SaveValue "Item_048", "Oran Berry/10"
/SaveValue "Item_049", "Persim Berry/10"
/SaveValue "Item_050", "Lum Berry/10"
/SaveValue "Item_051", "Sitrus Berry/10"
/SaveValue "Item_052", "Figy Berry/10"
/SaveValue "Item_053", "Iapapa Berry/10"
/SaveValue "Item_054", "Mago Berry/10"
/SaveValue "Item_055", "Wiki Berry/10"
/SaveValue "Item_056", "Aguav Berry/10"
/SaveValue "Item_057", "Liechi Berry/100"
/SaveValue "Item_058", "Ganlon Berry/100"
/SaveValue "Item_059", "Salac Berry/100"
/SaveValue "Item_060", "Petaya Berry/100"
/SaveValue "Item_061", "Apicot Berry/100"
/SaveValue "Item_062", "Lansat Berry/100"
/SaveValue "Item_063", "Starf Berry/100"
/SaveValue "Item_064", "Choice Band/5000"
/SaveValue "Item_065", "DeepSeaScale/100"
/SaveValue "Item_066", "DeepSeaTooth/100"
/SaveValue "Item_067", "Lax Incense/2000"
/SaveValue "Item_068", "Macho Brace/2000"
/SaveValue "Item_069", "Mental Herb/500"
/SaveValue "Item_070", "Sea Incense/500"
/SaveValue "Item_071", "Shell Bell/2000"
/SaveValue "Item_072", "Silk Scarf/2000"
/SaveValue "Item_073", "Soul Dew/999999"
/SaveValue "Item_074", "White Herb/2000"
/SaveValue "Item_100", "PokéBall/200-5"
/SaveValue "Item_101", "SuperBall/500-3"
/SaveValue "Item_102", "UltraBall/1200-1"
/SaveValue "Item_103", "MasterBall/10000-0"
/SaveValue "Item_200", "Potion/200-20|\"
/SaveValue "Item_201", "Super Potion/500-50|\"
/SaveValue "Item_202", "Hyper Potion/2000-200|\"
/SaveValue "Item_203", "Max Potion/2500-1000|\"
/SaveValue "Item_204", "Full heal/600-|0\"
/SaveValue "Item_205", "Antidote/250-|5\"
/SaveValue "Item_206", "Burn Heal/250-|3\"
/SaveValue "Item_207", "Awakening/250-|1\"
/SaveValue "Item_208", "Paralyze Heal/250-|2\"
/SaveValue "Item_209", "Ice Heal/250-|4\"
/SaveValue "Item_210", "Full Restore/3000-1000|0\"
/SaveValue "Item_211", "Oran Berry/10-10|\"
/SaveValue "Item_212", "Cheri Berry/10-|2\"
/SaveValue "Item_213", "Chesto Berry/10-|1\"
/SaveValue "Item_214", "Sitrus Berry/10-30|\"
/SaveValue "TM_List", "283273348265166235288263264091000341098018095109149157080173075197101232230055164043152181262047162328070192174064169252344278325163008228206331335314039072217208071168245271"
/SaveValue "Location_Canelle Town", "!GoTo Route 1-/-Fly|PokeCenter/"
/SaveValue "Location_Route 1", "!GoTo Canelle Town-/!GoTo Jadielle-/!Encounter-/-Fly=W=149050012990400144903004649050038490200199902004/"
/SaveValue "Location_Jadielle", "!GoTo Route 1-/!PokeMart-/-Fly|PokeCenter|Pokemart:100200205206207208209/"
/SaveValue "Exp_Slow", "/2-10/3-33/4-80/5-156/6-270/7-428/8-640/9-911/10-1250/11-1663/12-2160/13-2746/14-3430/15-4218/16-5120/17-6141/18-7290/19-8573/20-10000/21-11576/22-13310/23-15208/24-17280/25-19531/26-21970/27-24603/28-27440/29-30486/30-33750/31-37238/32-40960/33-44921/34-49130/35-53593/36-58320/37-63316/38-68590/39-74148/40-80000/41-86151/42-92610/43-99383/44-106480/45-113906/46-121670/47-129778/48-138240/49-147061/50-156250/51-165813/52-175760/53-186096/54-196830/55-207968/56-219520/57-231491/58-243890/59-256723/60-270000/61-283726/62-297910/63-312558/64-327680/65-343281/66-359370/67-375953/68-393040/69-410636/70-428750/71-447388/72-466560/73-486271/74-506530/75-527343/76-548720/77-570666/78-593190/79-616298/80-640000/81-664301/82-689210/83-714733/84-740880/85-767656/86-795070/87-823128/88-851840/89-881211/90-911250/91-941963/92-973360/93-1005446/94-1038230/95-1071718/96-1105920/97-1140841/98-1176490/99-1212873/100-1250000/"
/SaveValue "Exp_Fast", "/2-6/3-21/4-51/5-100/6-172/7-274/8-409/9-583/10-800/11-1064/12-1328/13-1757/14-2195/15-2700/16-3276/17-3930/18-4665/19-5487/20-6400/21-7408/22-8518/23-9733/24-11059/25-12500/26-14060/27-15746/28-17561/29-19511/30-21600/31-23832/32-26214/33-28749/34-31443/35-34300/36-37324/37-40522/38-43897/39-47455/40-51200/41-55136/42-59270/43-63605/44-68147/45-72900/46-77868/47-83058/48-88473/49-94119/50-100000/51-106120/52-112486/53-119101/54-125971/55-133100/56-140492/57-148154/58-156089/59-164303/60-172800/61-181584/62-190662/63-200037/64-209715/65-219700/66-229996/67-240610/68-251545/69-262807/70-274400/71-286328/72-298598/73-311213/74-324179/75-337500/76-351180/77-365226/78-379641/79-394431/80-409600/81-425152/82-441094/83-457429/84-474163/85-491300/86-508844/87-526802/88-545177/89-563975/90-583200/91-602856/92-622950/93-643485/94-664467/95-685900/96-707788/97-730138/98-752953/99-776239/100-800000/"
/SaveValue "Exp_Normal", "/2-8/3-27/4-64/5-125/6-216/7-343/8-512/9-729/10-1000/11-1331/12-1728/13-2197/14-2744/15-3375/16-4096/17-4913/18-5832/19-6859/20-8000/21-9261/22-10648/23-12167/24-13824/25-15625/26-17576/27-19683/28-21952/29-24389/30-27000/31-29791/32-32768/33-35937/34-39304/35-42875/36-46656/37-50653/38-54872/39-59319/40-64000/41-68921/42-74088/43-79507/44-85184/45-91125/46-97336/47-103823/48-110592/49-117649/50-125000/51-131651/52-140608/53-148877/54-157464/55-166375/56-175616/57-185193/58-195112/59-205379/60-216000/61-226981/62-238328/63-250047/64-262144/65-274625/66-287496/67-300763/68-314432/69-328509/70-343000/71-357911/72-373248/73-389017/74-405224/75-421875/76-438976/77-456533/78-474552/79-493039/80-512000/81-531441/82-551368/83-571787/84-592704/85-614125/86-636056/87-658503/88-681472/89-704969/90-729000/91-753571/92-778688/93-804357/94-830584/95-857375/96-884736/97-912673/98-941192/99-970299/100-1000000/"
/SaveValue "Exp_Erratic", "/2-15/3-52/4-122/5-237/6-406/7-637/8-942/9-1326/10-1800/11-2369/12-3041/13-3822/14-4719/15-5737/16-6881/17-8155/18-9564/19-11111/20-12800/21-14632/22-16610/23-18737/24-21012/25-23437/26-26012/27-28737/28-31610/29-34632/30-37800/31-41111/32-44564/33-48155/34-51881/35-55737/36-59719/37-63822/38-68041/39-72369/40-76800/41-81326/42-85942/43-90637/44-95406/45-100273/46-105122/47-110052/48-115015/49-120001/50-125000/51-131324/52-137795/53-144410/54-151165/55-158056/56-165079/57-172229/58-179503/59-186894/60-194400/61-202013/62-209728/63-217540/64-225443/65-233431/66-241496/67-249633/68-257834/69-267406/70-276458/71-286328/72-296328/73-305767/74-316074/75-326531/76-336255/77-346965/78-357812/79-367807/80-378880/81-390077/82-400293/83-411686/84-423190/85-433572/86-445239/87-457001/88-467489/89-479378/90-491346/91-501878/92-513934/93-526049/94-536557/95-548720/96-560922/97-571333/98-583539/99-591882/100-600000/"
/SaveValue "Exp_Parabolic", "/2-9/3-57/4-96/5-135/6-179/7-236/8-314/9-419/10-560/11-742/12-973/13-1261/14-1612/15-2035/16-2535/17-3120/18-3798/19-4575/20-5460/21-6458/22-7577/23-8825/24-10208/25-11735/26-13411/27-15244/28-17242/29-19411/30-21760/31-24294/32-27021/33-29949/34-33084/35-36435/36-40007/37-43808/38-47846/39-52127/40-56660/41-61450/42-66505/43-71833/44-77440/45-83335/46-89523/47-96012/48-102810/49-109923/50-117360/51-125126/52-133229/53-141677/54-150476/55-159635/56-169159/57-179056/58-189334/59-199999/60-211060/61-222522/62-234393/63-246681/64-259392/65-272535/66-286115/67-300140/68-314618/69-329555/70-344960/71-360838/72-377197/73-394045/74-411388/75-429235/76-447591/77-466464/78-485862/79-505791/80-526260/81-547274/82-568841/83-590969/84-613664/85-636935/86-660787/87-685228/88-710266/89-735907/90-762160/91-789030/92-816525/93-844653/94-873420/95-902835/96-932903/97-963632/98-995030/99-1027103/100-1059860/"
/SaveValue "Exp_Extreme", "/2-4/3-13/4-32/5-65/6-112/7-178/8-276/9-393/10-540/11-745/12-967/13-1230/14-1591/15-1957/16-2457/17-3046/18-3732/19-4526/20-5440/21-5440/22-7666/23-9003/24-10506/25-12187/26-14060/27-16140/28-18438/29-20974/30-23760/31-26811/32-30146/33-33780/34-37731/35-42017/36-46656/37-50653/38-55969/39-60505/40-66560/41-71677/42-78533/43-84277/44-91998/45-98415/46-107069/47-114205/48-123863/49-131766/50-142500/51-151222/52-163105/53-172697/54-185807/55-196322/56-210739/57-222231/58-238036/59-250562/60-267840/61-281456/62-300293/63-315059/64-335544/65-351520/66-373744/67-390991/68-415050/69-433631/70-459620/71-479600/72-507617/73-529063/74-559209/75-582187/76-614566/77-639146/78-673863/79-700115/80-737280/81-765275/82-804997/83-834809/84-877201/85-908905/86-954084/87-987754/88-1035837/89-1071552/90-1122660/91-1160499/92-1214753/93-1254796/94-1312322/95-1354652/96-1415577/97-1460276/98-1524731/99-1571884/100-1640000/"
/SaveValue "$Commands", "Main/Regular/RPG/SpecialRPG/1st Auth Level/2nd Auth Level/"
/SaveValue "Commands_Main", "/Main Commands: For the main commands/Regular Commands: Commands usable by annybody/RPG Commands: Commands usable by any RPG player/SpecialRPG Commands: commands usable only in some circumstances in RPG/"
/Savevalue "Commands_Regular", "/Main Commands: you can se the main group of commands there/Commands: To see the commands/HelpMe: to know about the server/Record [Message]: To record a message in our answering machine!/Check: To check the numbers of messages in the answering machine/Pokedex [#Pkmn] or !Pokedex [$Pkmn]: To see the pokedex!/Itemdex: To see the itemdex/Start: to start a team! [No-GL]/Showteam [Player]: To see someone else's team/Inventory [Player]: same, with the inventory/"
/SaveValue "Commands_RPG", "/Location: To see the different commands you can make from where you are [No-GL]/Showteam: To show your team./Show [#Slot]: To show the detailed infos of the poke in that slot/Switch [#Slot] [#Slot]: To switch the pokes in those slots/Inventory: to see yours [No-GL]/Throw [#Number] [#Slot]: Throw the #number of items in that #Slot (goto your inventory to see the slots) [No-GL]/Give [#Slot] [Item]: to give to the poke in that slot that item - will exchange the items if the poke already holds one [No-GL]/Take [#Slot]: to take the item from the poke in that slot[No-GL]/"
/SaveValue "Commands_SpecialRPG", "/GoTo [Place]: to go there, see if your location allow it to you [No-GL]/Pokemart: To enter the pokemart, if you are in a city [No-GL]/PokeCenter: to go to the poke center [No-GL]/UnionRoom: To go to the union room(in the poke center), where there are all trade commands [No-GL]/Offer [#pokeslot] [Message]: to offer the poke in #pokeslot in the union room with in $message what kind of poke you want in exchange. [No-GL]/Leave: to leave a place(pokemart, unionroom...) [No-GL]/Computer: to see what you can do with your comp(in a place where there is one) [No-GL]/FlyTo: if you have fly and the appopriate badge, you can fly to any Pokemon center you want. [No-GL]/Fish old|super|great: to fish with what you want, depends of your location [No-GL]./Encounter: to go to the wildness, depends of your location [No-GL]/Use [Item]: Depends of the circumstances. [No-GL]/RunAway: hahaha! to escape from a wild poke, but I hope you won't need it [No-GL]/"
/SaveValue "Commands_1st Auth Level", "/Save: to save the game [No-GL]/Listen: to listen to the messages recorded in the answering machine/"
/SaveValue "Commands_2nd Auth Level", "/Delete: To delete ALL of the messages in the answering machine/"
/SaveValue "RPG_Help", "*** HELLO ***!/+NiceBot: Somebody told me you needed help! Let me explain it whole to you/An RPG Server is a server that acts like a pokemon game: you start with pokemons level 5, and the more battles you win, the more exp you gain./First, use the command !Start. Just type in !Start in mainchat, then they'll give you a choice of pokemons to start with./Chose the number. Then they'll give you a team, and you have to go to the team builder and set your pokes as the one given./Once that is done, leave the teambuilder, and a bot will tell you if your time is valid, or the errors :p/Once your team is valid, you can battle other players and all. You can also enter !Location in mainchat. That will show up to you the different commands you can make from your location (for an exhausitve list, enter !Commands)/You can give items to your pokes, buy some, encounter some pokes and battle gymleaders and all, like in the true game!!/Your pokes can even learn moves and evolves. Also remember that this trip takes place in a new continent, with new cities and all... And there are many secrets that no one knows! Also, if you don't want to play rpg, just take a normal team/Otherwise plase put (RPG) after your name, that'd be nice. Well, if you don't understand the commands, just ask an admin by PM./Have a nice trip and stay! And remember, if you have any idea to improve the RPG, or you think that that sentence would be better with a dot there or anything, use the recording machine (3 messages per person)/"
/SaveValue "$Starters", "Pikachu/Bulbasaur/Squirtle/Charmander/Dratini/Porygon/Chikorita/ToTodile/Cyndaquil/Treecko/Mudkip/Torchic/"
/SaveValue "Poke_001", "0022404082071061024215145151892015925220320833922346197/grass-poison!87.5M12.5F|=1=Ivysaur*Level>16$Parabolic"
/SaveValue "Poke_002", "00224000820010604082071061024215145151892215929220380834722356197/grass-poison!87.5M12.5F|=-1=Bulbasaur=1=Venusaur*Level>32$Parabolic"
/SaveValue "Poke_003", "0022400082001060024204082071061024215145151892215929220410835322365197/grass-poison!87.5M12.5F|=-2=Bulbasaur=-1=Ivysaur$Parabolic"
/SaveValue "Poke_004", "00177000820705713121191942517631070371884305049066/fire!87.5M12.5F|=1=Charmeleon*Level>16$Parabolic"
/SaveValue "Poke_005", "0017700082000570705713121201942717634070411884805055066/fire!87.5M12.5F|=-1=Charmander=1=Charizard*Level>36$Parabolic"
/SaveValue "Poke_006", "0028900177000820005700121070571312120194271763407036248441885405064066/fire-flying!87.5M12.5F|=-2=Charmander=-1=Charmeleon$Parabolic"
/SaveValue "Poke_007", "0022404225070231024913244180172315828149331574018547094/water!87.5M12.5F|=1=Wartortle*Level>16$Parabolic"
/SaveValue "Poke_008", "00224002250002304225070231024913244190172515831149371574518553094/water!87.5M12.5F|=-1=Squirtle=1=Blastoise*Level>36$Parabolic"
/SaveValue "Poke_009", "0022400225000230024904225070231024913244190172515831149421575518568094/water!87.5M12.5F|=-2=Squirtle=-1=Wartortle$Parabolic"
/SaveValue "Poke_010", "0022400209/bug!50M50F|=1=Metapod*Level>7$Normal"
/SaveValue "Poke_011", "0008607086/bug!50M50F|=-1=Caterpie=1=Butterfree*Level>10$Normal"
/SaveValue "Poke_012", "0002910029131451421115189182162324728085341504017347330/bug-flying!50M50F|=-2=Caterpie=-1=Metapod$Normal"
/SaveValue "Poke_013", "0014400209/bug-poison!50M50F|=1=Kakuna*Level>7$Normal"
/SaveValue "Poke_014", "0008607086/bug-poison!50M50F|=-1=Weedle=1=Beedrill*Level>10$Normal"
/SaveValue "Poke_015", "000761007615073202392515630154351424000545275/bug-poison!50M50F|=-2=Weedle=-1=Kakuna$Normal"
/SaveValue "Poke_016", "002240517509085131551924725248312813900547128/normal-flying!50M50F|=1=Pidgeotto*Level>18$Parabolic"
/SaveValue "Poke_017", "0022400175000850517509085131552024727248342814300552128/normal-flying!50M50F|=-1=Pidgey=1=Pidgeot*Level>36$Parabolic"
/SaveValue "Poke_018", "002240017500085001550517509085131552024727248342814800562128/normal-flying!50M50F|=-2=Pidgey=-1=Pidgeotto$Parabolic"
/SaveValue "Poke_019", "0022400225071551309620073271543421541275/normal!50M50F|=1=Raticate*Level>20$Normal"
/SaveValue "Poke_020", "002240022500155071551309620176301544021550275/normal!50M50F|=-1=Rattata$Normal"
/SaveValue "Poke_021", "001390008207107130761915425252311283705343005/normal-flying!50M50F|=1=Fearow*Level>20$Normal"
/SaveValue "Poke_022", "00139000820010700076071071307626154321284005347005/normal-flying!50M50F|=-1=Spearow$Normal"
/SaveValue "Poke_023", "0025000107081441301720081251783200237337373393733644087/poison!50M50F|=1=Arbok*Level>22$Normal"
/SaveValue "Poke_024", "00250001070014400017081441301720081281783800246337463394633656087/poison!50M50F|=-1=Ekans$Normal"
/SaveValue "Poke_025", "0023400082062250823111155150472018726232330054123050109/electric!50M50F|=-1=Pichu=1=Raichu>Thunder Stone$Normal"
/SaveValue "Poke_026", "00234002250015500232/electric!50M50F|=-2=Pichu=-1=Pikachu$Normal"
/SaveValue "Poke_027", "001770604011175171442318830221370784532453174/ground!50M50F|=1=Sandslash*Level>22$Normal"
/SaveValue "Poke_028", "0017700040001750604011175171442418833221420785232462174/ground!50M50F|=-1=Sandshrew$Normal"
/SaveValue "Poke_029", "00082001770822512046171442001723290300783828247037/poison!0M100F|=1=Nidorina*Level>16$Parabolic"
/SaveValue "Poke_030", "00082001770822512046181442201726290340784328253037/poison!0M100F|=-1=Nidoran(F)=1=Nidoqueen>Moon Stone$Parabolic"
/SaveValue "Poke_031", "001770022500046001442201943338/poison-ground!0M100F|=-2=Nidoran(F)=-1=Nidorina$Parabolic"
/SaveValue "Poke_032", "00107001390807312046171442009223290300763828247093/poison!100M0F|=1=Nidorino*Level>16$Parabolic"
/SaveValue "Poke_033", "00107001390807312046181442209226290340764328253093/poison!100M0F|=-1=Nidoran(M)=1=Nidoking>Moon Stone$Parabolic"
/SaveValue "Poke_034", "001390007300046001442222943120/poison-ground!100M0F|=-2=Nidoran(M)=-1=Nidorino$Parabolic"
/SaveValue "Poke_035", "00146000820505809183130491728421126250402912233268371304110945306/normal!25M75F|=-1=Cleffa=1=Clefable>Moon Stone$Fast"
/SaveValue "Poke_036", "00183000490012600122/normal!25M75F|=-2=Cleffa=-1=Clefairy$Fast"
/SaveValue "Poke_037", "0005705225091661315517352210282529629070331733728741066/fire!25M75F|=1=Ninetales>Fire Stone$Normal"
/SaveValue "Poke_038", "0005700155000280017345066/fire!25M75F|=-1=Vulpix$Normal"
/SaveValue "Poke_039", "0018304040091461404419171240492916334019391244429349048/normal!25M75F|=-1=Igglybuff=1=Wigglytuff>Moon Stone$Fast"
/SaveValue "Poke_040", "00183000440004000049/normal!25M75F|=-2=Igglybuff=-1=Jigglypuff$Fast"
/SaveValue "Poke_041", "00105062571121616017212482602831253361154131546087/poison-flying!50M50F|=1=Golbat*Level>22$Normal"
/SaveValue "Poke_042", "00178001050025700216062571121616017212482802835253421154931556087/poison-flying!50M50F|=-1=Zubat=1=Crobat>Happiness$Normal"
/SaveValue "Poke_043", "0000107220141451621118189230023213039141/grass-poison!50M50F|=1=Gloom*Level>21$Parabolic"
/SaveValue "Poke_044", "00001002200014507220141451621118189240023513044141/grass-poison!50M50F|=-1=Oddish=1=VilePlume>Leaf Stone$Parabolic"
/SaveValue "Poke_045", "0000100255002110011744141/grass-poison!50M50F|=-2=Oddish=-1=Gloom$Parabolic"
/SaveValue "Poke_046", "001770721113145191052520531188370834308049255/bug-grass!50M50F|=1=Parasect*Level>24$Normal"
/SaveValue "Poke_047", "0017700211001450721113145191052720535188430835108059255/bug-grass!50M50F|=-1=Paras$Normal"
/SaveValue "Poke_048", "0022400044000740921617029201452510528211331503618941152/bug-poison!50M50F|=1=Venomoth*Level>31$Normal"
/SaveValue "Poke_049", "0033000224000440007400216092161702920145251052821131085361504218952152/bug-poison!50M50F|=-1=Venonat$Normal"
/SaveValue "Poke_050", "00175001770508209114170432107825132331884105549067/ground!50M50F|=1=Dugtrio*Level>26$Normal"
/SaveValue "Poke_051", "00237001770017500082050820911417043210782513226324381885105564067/ground!50M50F|=-1=Diglett$Normal"
/SaveValue "Poke_052", "00177000821001718138250623117836078401884327945218/normal!50M50F|=1=Persian*Level>28$Normal"
/SaveValue "Poke_053", "0017700082000171001718138250623417842078491885527961218/normal!50M50F|=-1=Meowth$Normal"
/SaveValue "Poke_054", "003490017705225100441602923178311514007850094/water!50M50F|=1=Golduck*Level>33$Normal"
/SaveValue "Poke_055", "0034900177002250004405225100441602923178311514407858094/water!50M50F|=-1=Psyduck$Normal"
/SaveValue "Poke_056", "0017700107061121110316078210732617931036362184117846229/fighting!50M50F|=1=Primeape*Level>28$Normal"
/SaveValue "Poke_057", "0017700107001120015606112111031607821073261792815635036442185317862229/fighting!50M50F|=-1=Mankey$Normal"
/SaveValue "Poke_058", "00017001660705713107193132522631069372904300549070/fire!75M25F|=1=Arcanine>Fire Stone$Slow"
/SaveValue "Poke_059", "0001700166000570031349061/fire!75M25F|=-1=Growlithe$Slow"
/SaveValue "Poke_060", "0002307097132441904925157310193701443094/water!50M50F|=1=Poliwag*Level>25$Parabolic"
/SaveValue "Poke_061", "00023000970024407097132441904927157350194301451094/water!50M50F|=1=Poliwrath>Water Stone=2=Politoed>Trade*King's Rock$Parabolic"
/SaveValue "Poke_062", "002440009700049002123521251125/water-fighting!50M50F|=-2=Poliwag=-1=Poliwhirl$Parabolic"
/SaveValue "Poke_063", "00227/psychic!75M25F|=1=Kadabra*Level>16$Parabolic"
/SaveValue "Poke_064", "002270010400029160291804421150231622516130079333233615243345/psychic!75M25F|=-1=Abra=1=Alakazam>Trade$Parabolic"
/SaveValue "Poke_065", "002270010400029160291804421150231622516130079332653615243345/psychic!75M25F|=-2=Abra=-1=Kadabra$Parabolic"
/SaveValue "Poke_066", "001120010707073131031917922074253203124337212400364317649054/fighting!75M25F|=1=Machoke*Level>28$Parabolic"
/SaveValue "Poke_067", "00112001070007307073131031917922074253203324341212460365117659054/fighting!75M25F|=-1=Machop=1=Machamp>Trade$Parabolic"
/SaveValue "Poke_068", "00112001070007307073131031917922074253203324341212460365117659054/fighting!75M25F|=-2=Machop=-1=Machoke$Parabolic"
/SaveValue "Poke_069", "00242060831125015189171451921123002302203715945187/grass-poison!50M50F|=1=Weepinbell*Level>21$Parabolic"
/SaveValue "Poke_070", "002420008300250060831125015189171451921124002332204215954187/grass-poison!50M50F|=-1=Bellsprout=1=Victreebel>Leaf Stone$Parabolic"
/SaveValue "Poke_071", "00337003360033900242001890022000159/grass-poison!50M50F|=-2=Bellsprout=-1=Weepinbell$Parabolic"
/SaveValue "Poke_072", "001440621612030190022502430250360114317849094/water-poison!50M50F|=1=Tentacruel*Level>30$Slow"
/SaveValue "Poke_073", "0014400216000300621612030190022502430250380114717855094/water-poison!50M50F|=-1=Tentacool$Slow"
/SaveValue "Poke_074", "0022400040063091116916114211802617131321360554106046048/rock-ground!50M50F|=1=Graveler*Level>25$Parabolic"
/SaveValue "Poke_075", "00224000400030900169063091116916114211802917137321450555306062048/rock-ground!50M50F|=-1=Geodude=1=Golem>Trade$Parabolic"
/SaveValue "Poke_076", "00224000400030900169063091116916114211802917137321450555306062048/rock-ground!50M50F|=-2=Geodude=-1=Graveler$Parabolic"
/SaveValue "Poke_077", "00155050820922514057192072506631226380054526153064/fire!50M50F|=1=Rapidash*Level>40$Normal"
/SaveValue "Poke_078", "0015500082002250005705082092251405719207250663122638005400765026163064/fire!50M50F|=-1=Ponyta$Normal"
/SaveValue "Poke_079", "0003800354002240608213244170292404429088360064015247151/water-psychic!50M50F|=1=Slowbro*Level>37=2=Slowking>Trade*King's Rock$Normal"
/SaveValue "Poke_081", "0030500224062341121616198212312619932110382214417850251/electric-steel!0M0F|=1=Magneton*Level>30$Normal"
/SaveValue "Poke_082", "00305002240023400216062341121616198212312619935110442375317862251/electric-steel!0M0F|=-1=Magnemite$Normal"
/SaveValue "Poke_083", "00139061751110716076212992607731222360054118846063/normal-flying!50M50F|$Normal"
/SaveValue "Poke_084", "001390008209154130762123725156333463705345005/normal-flying!50M50F|=1=Dodrio*Level>31$Normal"
/SaveValue "Poke_085", "0013900082001540007609154130762123725156383464705360005/normal-flying!50M50F|=-1=Doduo$Normal"
/SaveValue "Poke_086", "0008809082171002100929163372264109849173/water!50M50F|=1=Dewgong*Level>34$Normal"
/SaveValue "Poke_087", "00329000880008200100000090908217100210092916334327422265109864173/water-ice!50M50F|=-1=Seel$Normal"
/SaveValue "Poke_088", "00143001460408608044131911912626178340034319253304/poison!50M50F|=1=Muk*Level>38$Normal"
/SaveValue "Poke_089", "0014300146000860408608044131911912626178340034719261304/poison!50M50F|=-1=Grimer$Normal"
/SaveValue "Poke_090", "002240024908295152162200929149361074302650098/water!50M50F|=1=Cloyster>Water Stone$Slow"
/SaveValue "Poke_091", "002490021600009001493620243201/water-ice!50M50F|=-1=Shellder$Slow"
/SaveValue "Poke_092", "0009700108082031303816133210282805233041361814113448115/ghost-poison!50M50F|=1=Haunter*Level>25$Parabolic"
/SaveValue "Poke_093", "00097001080020308203130381613321028253263105239041451815313464115/ghost-poison!50M50F|=-1=Gastly=1=Gengar>Trade$Parabolic"
/SaveValue "Poke_094", "00097001080020308203130381613321028253263105239041451815313464115/ghost-poison!50M50F|=-2=Gastly=-1=Haunter$Parabolic"
/SaveValue "Poke_095", "002240017808016121691908623156300513417441187451015232456048/rock-ground!50M50F|=1=Steelix>Trade*Metal Coat$Normal"
/SaveValue "Poke_096", "0014600097070441102917088211432711631152371514121847079/psychic!50M50F|=1=Hypno*Level>26$Normal"
/SaveValue "Poke_097", "0013400146000970004400029070441102917088211432911635152431514921857079/psychic!50M50F|=-1=Drowzee$Normal"
/SaveValue "Poke_098", "00023051071224116086233082720734084381494503549068/water!50M50F|=1=Kingler*Level>28$Normal"
/SaveValue "Poke_099", "0012100023001070024100086051071224116086233082720738084421495703565068/water!50M50F|=-1=Krabby$Normal"
/SaveValue "Poke_100", "0026700224081781519821199271803217137109422214606049127/electric!0M0F|=1=Electrode*Level>30$Normal"
/SaveValue "Poke_101", "00267002240017800198081781519821199271803417141109482215406059127/electric!0M0F|=-1=Voltorb$Normal"
/SaveValue "Poke_102", "00010003460009707162131061902925211311453718943197/grass-psychic!50M50F|=1=Exeggutor>Leaf Stone$Slow"
/SaveValue "Poke_103", "0001000097000291920731056/grass-psychic!50M50F|=-1=Exeggcute$Slow"
/SaveValue "Poke_104", "000820522509020130881710721073250222915633063372294102145048/ground!50M50F|=1=Marowak*Level>28$Normal"
/SaveValue "Poke_105", "000820022500020000880522509020130881710721073250223215639063462295302161048/ground!50M50F|=-1=Cubone$Normal"
/SaveValue "Poke_106", "00320000460611611170161022026221073260903112536074410594611851165/fighting!100M0F|=-1=Tyrogue$Normal"
/SaveValue "Poke_107", "003200002707005131542011326233260992606532332381194404250034/fighting!100M0F|=-1=Tyrogue$Normal"
/SaveValue "Poke_108", "00108072161204018299232072925034044401874517851319/normal!50M50F|$Normal"
/SaveValue "Poke_109", "00143002240919317180211912519433087410604504149304/poison!50M50F|=1=Weezing*Level>35$Normal"
/SaveValue "Poke_110", "001430022400193001800919317180211912519433087440605104158304/poison!50M50F|=-1=Koffing$Normal"
/SaveValue "Poke_111", "00092002251020715076241762932138093432265205557120/ground-rock!50M50F|=1=Rhydon*Level>42$Slow"
/SaveValue "Poke_112", "000920022500207000761020715076241762932138093462265805566120/ground-rock!50M50F|=-1=Rhyhorn=1=$Slow"
/SaveValue "Poke_113", "001460008205225093191319617049231262918335056410404910957048/normal!0M100F|=1=Blissey>Happiness$Fast"
/SaveValue "Poke_114", "002970003004189100011308319145222422801631117372114018746343/grass!50M50F|$Normal"
/SaveValue "Poke_115", "00027001070701713225192792511931156370594304549165/normal!0M100F|$Normal"
/SaveValue "Poke_116", "0002308194151072224429240360054309450274/water!50M50F|=1=Seadra*Level>32$Normal"
/SaveValue "Poke_118", "0013900225003491021615092240682907638245430935200557120/water!50M50F|=1=Seaking*Level>33$Normal"
/SaveValue "Poke_119", "001390022500349002161021615092240682907641245490936100569120/water!50M50F|=-1=Goldeen$Normal"
/SaveValue "Poke_120", "002240008606244101581516119266242212802433126371094226846094/water!0M0F|=1=Starmie>Water Stone$Slow"
/SaveValue "Poke_121", "0024400158001610022133028/water-psychic!0M0F|=-1=Staryu$Slow"
/SaveValue "Poke_122", "00011050290821312116150491910919162223032605829150333183634540323431524701250173/psychic!50M50F|$Normal"
/SaveValue "Poke_123", "0015500107060731115416063210052624831188362224104746077/bug-flying!50M50F|=1=Scizor>Trade*Metal Coat$Normal"
/SaveValue "Poke_124", "00146001080011100147091111314721049250993511541280510195714067018/ice-psychic!0M100F|=-1=Smoochum$Normal"
/SaveValue "Poke_125", "001550010700233092331710925221361784723258230/electric!75M25F|=-1=Elekid$Normal"
/SaveValue "Poke_126", "000570010700193000650710713193190652519433214410704902857064/fire!75M25F|=-1=Magby$Normal"
/SaveValue "Poke_127", "00241000730701613179190862532031262370844321249222/bug!50M50F|$Slow"
/SaveValue "Poke_128", "00224002250415608092131761915426218341634322953226/normal!100M0F|$Slow"
/SaveValue "Poke_129", "002041522430068/water!50M50F|=1=Gyarados*Level>20$Slow"
/SaveValue "Poke_130", "002440008200183071291301919028251403109837157431734909455327/water-flying!50M50F|=-1=Magikarp$Slow"
/SaveValue "Poke_132", "00236/normal!0M0F|$Normal"
/SaveValue "Poke_133", "002240022500290081751608223155300173601242226/normal!87.5M12.5F|=1=Vaporeon>Water Stone=2=Jolteon>Thunder Stone=3=Flareon>Fire Stone=4=Espeon>Happiness(day)=5=Umbreon>Happiness(night)$Normal"
/SaveValue "Poke_134", "0022400225002900817516244231553001736009420874700352094/water!87.5M12.5F|=-1=Eevee$Normal"
/SaveValue "Poke_135", "0022400225002900817516234231553004636142422314700552230/electric!87.5M12.5F|=-1=Eevee$Normal"
/SaveValue "Poke_136", "0022400225002900817516057231553001736066421934710752070/fire!87.5M12.5F|=-1=Eevee$Normal"
/SaveValue "Poke_137", "0003200224000310900512150201612418232362374431848251/normal!0M0F|=1=Porygon2>Trade*Up-Grade$Normal"
/SaveValue "Poke_138", "00030002491301719244253083110737149433434900755094/rock-water!87.5M12.5F|=1=Omastar*Level>40$Normal"
/SaveValue "Poke_139", "00030002490001700244130171924425308311073714940201463435500765094/rock-water!87.5M12.5F|=-1=Omanyte$Normal"
/SaveValue "Poke_140", "00177000861300119107253083117537059433054911755007/rock-water!87.5M12.5F|=1=Kabutops*Level>40$Normal"
/SaveValue "Poke_141", "0007700177000860000100107130011910725308311753705940188463055511765007/rock-water!87.5M12.5F|=-1=Kabuto$Normal"
/SaveValue "Poke_142", "0024808005150172221629007361764322650095/rock-flying!87.5M12.5F|$Slow"
/SaveValue "Poke_143", "0022405006090401301417088213542516329195330193719041260452694917153095/normal!87.5M12.5F|$Slow"
/SaveValue "Poke_144", "000850014713129250053712549098611627301885327/ice-flying!0M0F|$Slow"
/SaveValue "Poke_145", "001390023413231250053704249053612677310985230/electric-flying!0M0F|$Slow"
/SaveValue "Poke_146", "002480005713066250053705949070611737328985186/fire-flying!0M0F|$Slow"
/SaveValue "Poke_147", "00250001070823115240220502918736005431735013657095/dragon!50M50F|=1=Dragonair*Level>30$Slow"
/SaveValue "Poke_148", "002500010700231002400823115240220502918738005471735613665095/dragon!50M50F|=-1=Dratini=1=Dragonite*Level>55$Slow"
/SaveValue "Poke_149", "00250001070023100240082311524022050291873800547173552486113675095/dragon-flying!50M50F|=-2=Dratini=-1=Dragonair$Slow"
/SaveValue "Poke_150", "0002900044110112212933221441615517366152771518807999006/psychic!0M0F|$Slow"
/SaveValue "Poke_151", "001461023620119301224015250007/psychic!0M0F|$Parabolic"
/SaveValue "Poke_153", "002240008200159001620815912162151452322331019391094717355197/grass!87.5M12.5F|=-1=Chikorita=1=Meganium*Level>32$Parabolic"
/SaveValue "Poke_154", "002240008200159001620815912162151452322331019411095117361197/grass!87.5M12.5F|=-2=Chikorita=-1=Bayleef$Parabolic"
/SaveValue "Poke_155", "0022400107061941205719155270693622146070/fire!87.5M12.5F|=1=Quilava*Level>16$Parabolic"
/SaveValue "Poke_156", "002240010700194061941205721155310694222154070/fire!87.5M12.5F|=-1=Cyndaquil=1=Typhlosion*Level>36$Parabolic"
/SaveValue "Poke_157", "00224001070019400057061941205721155310694522160070/fire!87.5M12.5F|=-2=Cyndaquil=-1=Quilava$Parabolic"
/SaveValue "Poke_158", "001770010707156132442001727176351884317852094/water!87.5M12.5F|=1=Croconaw*Level>18$Parabolic"
/SaveValue "Poke_159", "00177001070015607156132442101728176371884517855094/water!87.5M12.5F|=-1=Totodile=1=Feraligatr*Level>30$Parabolic"
/SaveValue "Poke_160", "0017700107001560024407156132442101728176381884717858094/water!87.5M12.5F|=-2=Totodile=-1=Croconaw$Parabolic"
/SaveValue "Poke_161", "001770404007155120781729024187312844016349006/normal!50M50F|=1=Furret*Level>15$Normal"
/SaveValue "Poke_162", "0017700040001550404007155120781929028187372844816359006/normal!50M50F|=-1=Sentret$Normal"
/SaveValue "Poke_163", "002240008206074111391609722162282263402948052/normal-flying!50M50F|=1=Noctowl*Level>20$Normal"
/SaveValue "Poke_164", "0022400082000740013906074111391609725162332264102957052/normal-flying!50M50F|=-1=Hoothoot$Normal"
/SaveValue "Poke_165", "00224082161502722109221622217329012362214300550048/bug-flying!50M50F|=1=Ledian*Level>18$Fast"
/SaveValue "Poke_166", "0022400216082161502724109241622417333012422215100560048/bug-flying!50M50F|=-1=Ledyba$Fast"
/SaveValue "Poke_167", "00144002090617611030171332310530078372004500553152/bug-poison!50M50F|=1=Ariados*Level>22$Fast"
/SaveValue "Poke_168", "001440020900176000300617611030171332510534078432005300563152/bug-poison!50M50F|=-1=Spinarak$Fast"
/SaveValue "Poke_169", "00178001050025700216062571121616017212482802835253421154931556087/poison-flying!50M50F|=-2=Zubat=-1=Golbat$Normal"
/SaveValue "Poke_170", "00023002310521613068172442519929028372264109449267/water-electric!50M50F|=1=Lanturn*Level>27$Slow"
/SaveValue "Poke_171", "0002300231002160521613068172442519932028432265009461267/water-electric!50M50F|=-1=Chinchou$Slow"
/SaveValue "Poke_172", "0023400025062250823111219/electric!50M50F|=1=Pikachu>Happiness$Normal"
/SaveValue "Poke_173", "001460002504058081831321917303/normal!25M75F|=1=Clefairy>Happiness$Fast"
/SaveValue "Poke_174", "0018300025040400914614219/normal!25M75F|=1=Jigglypuff>Happiness$Fast"
/SaveValue "Poke_175", "000820002504122092191335417058210072528429353331733704841012/normal!87.5M12.5F|=1=Togetic>Happiness$Fast"
/SaveValue "Poke_176", "003030008200025001220021904122092191335417058210072528429353331733704841012/normal-flying!87.5M12.5F|=-1=Togepi$Fast"
/SaveValue "Poke_177", "0013900107101332022730353300794002850152/psychic-flying!50M50F|=1=Xatu*Level>25$Normal"
/SaveValue "Poke_179", "00224000820923416231230333010937230/electric!50M50F|=1=Flaaffy*Level>15$Parabolic"
/SaveValue "Poke_180", "0022400082002340923418231270333610945230/electric!50M50F|=-1=Mareep=1=Ampharos*Level>30$Parabolic"
/SaveValue "Poke_181", "00224000820023400231092341823127033302334210957230/electric!50M50F|=-2=Mareep=-1=Flaaffy$Parabolic"
/SaveValue "Poke_183", "002240304006225102441517121024280483615745094/water!50M50F|=-1=Azurill=1=Azumarill$Fast"
/SaveValue "Poke_184", "002240004000225002440304006225102441517124024340484515757094/water!50M50F|=-2=Azurill=-1=Marill$Fast"
/SaveValue "Poke_185", "001690012409068171122516733260410624918757048/rock!50M50F|$Normal"
/SaveValue "Poke_186", "002440009700049001403514051218/water!50M50F|=-2=Poliwag=-1=Poliwhirl$Parabolic"
/SaveValue "Poke_187", "00204052230522510224131451521117189201062503330117/grass-flying!50M50F|=1=Skiploom*Level>18$Parabolic"
/SaveValue "Poke_188", "00204002230022500224052230522510224131451521117189221062903336117/grass-flying!50M50F|=-1=Hoppip=1=Jumpluff*Level>27$Parabolic"
/SaveValue "Poke_189", "00204002230022500224052230522510224131451521117189221063303344117/grass-flying!50M50F|=-2=Hoppip=-1=Skiploom$Parabolic"
/SaveValue "Poke_190", "00177002250617513257180122534331078382214317850005/normal!50M50F|$Fast"
/SaveValue "Poke_191", "0000106083131171829725275302143722342080/grass!50M50F|=1=Sunflora>Sun Stone$Parabolic"
/SaveValue "Poke_192", "000010014606083131591829725264302143714142197/grass!50M50F|=-1=Sunkern$Parabolic"
/SaveValue "Poke_193", "0022400074061551204717198230972804234346392484521650178/bug-flying!50M50F|$Normal"
/SaveValue "Poke_194", "00244002251118716308210063135436055411575112951087/water-ground!50M50F|=1=Quagsire*Level>20$Normal"
/SaveValue "Poke_195", "00244002251118716308230063535442055491576112961087/water-ground!50M50F|=-1=Wooper$Normal"
/SaveValue "Poke_196", "0022400225002900817516029231553022136150421514715252131/psychic!87.5M12.5F|=-1=Eevee$Normal"
/SaveValue "Poke_197", "0022400225002900817516154231553002836062421154717852130/dark!87.5M12.5F|=-1=Eevee$Normal"
/SaveValue "Poke_198", "0013909257141542208727133350624034148115/dark-flying!50M50F|$Parabolic"
/SaveValue "Poke_199", "0003800354002240608213244170292404429088362184015247151/water-psychic!50M50F|=-1=Slowpoke$Normal"
/SaveValue "Poke_200", "00082001530620311257170282311530150371374514053287/ghost!50M50F|$Fast"
/SaveValue "Poke_201", "00091/psychic!0M0F|$Normal"
/SaveValue "Poke_202", "00034001270017300041/psychic!50M50F|=-1=Wynaut$Normal"
/SaveValue "Poke_203", "00224000820725713029192072531331005370124315049037/normal-psychic!50M50F|$Normal"
/SaveValue "Poke_204", "002240014908180152262215829015360604320250048/bug!50M50F|=1=Forretress*Level>31$Normal"
/SaveValue "Poke_205", "0022400149001800818015226221582901531251390604920259048/bug-steel!50M50F|=-1=Pineco$Normal"
/SaveValue "Poke_206", "0015604040113541408121171242033115434178412264406851275/normal!50M50F|$Normal"
/SaveValue "Poke_207", "0014406175130862015528062361884417852084/ground-flying!50M50F|$Parabolic"
/SaveValue "Poke_208", "002240017808016121691908623156300513417441187451015203756048/steel-ground!50M50F|=-1=Onix$Normal"
/SaveValue "Poke_209", "00224001760422508025130171910826166341564322653037/normal!25M75F|=1=Granbull*Level>23$Fast"
/SaveValue "Poke_210", "00224001760422508025130171910828166381564922661037/normal!25M75F|=-1=Snubbull$Fast"
/SaveValue "Poke_212", "0015500107060731115416063210052612131188362224129846077/bug-steel!50M50F|=-1=Scyther$Normal"
/SaveValue "Poke_213", "00030002490925014058231732801537163/bug-rock!50M50F|$Parabolic"
/SaveValue "Poke_214", "00224001070609211059170762326230034372264516553120/bug-fighting!50M50F|$Slow"
/SaveValue "Poke_215", "001770010700341081551517822062290783600543100501885701364121/dark-ice!50M50F|$Parabolic"
/SaveValue "Poke_216", "00177001070710813078192802506231163371884319549229/normal!50M50F|=1=Ursaring*Level>30$Normal"
/SaveValue "Poke_217", "001770010700108000780710813078192802506231163371884319549229/normal!50M50F|=-1=Teddiursa$Normal"
/SaveValue "Poke_218", "003540019308057151692208629006360704316750019/fire!50M50F|=1=Magcargo*Level>38$Normal"
/SaveValue "Poke_219", "0035400193000570016908057151692208629006360704816760019/fire-rock!50M50F|=-1=Slugma$Normal"
/SaveValue "Poke_220", "0022400313101471905928226371294601855006/ice-ground!50M50F|=1=Piloswine*Level>33$Slow"
/SaveValue "Poke_222", "00224060861202317161173192302428201343213912745007/water-rock!25M75F|$Fast"
/SaveValue "Poke_223", "0024411110221502200922024330734409855095/water!50M50F|=1=Octillery*Level>25$Normal"
/SaveValue "Poke_225", "00148/ice-flying!50M50F|$Fast"
/SaveValue "Poke_227", "00107001391017513221160052607629253322064220245305/steel-flying!50M50F|$Slow"
/SaveValue "Poke_228", "00107000570729113193191662501731313370624307049037 //houndour/dark-fire!50M50F|=1=Houndoom*Level>24$Slow"
/SaveValue "Poke_229", "0010700057002910729113193191662701735313430625107059037/dark-fire!50M50F|=-1=Houndour$Slow"
/SaveValue "Poke_230", "0002300194001070024408194151072224429240400055109462274/water-dragon!50M50F|=-2=Horsea=-1=Seadra$Normal"
/SaveValue "Poke_231", "003130022400082090401706825226331714105949048/ground!50M50F|=1=Donphan*Level>25$Normal"
/SaveValue "Poke_232", "003130009200082090401706825076331714115849055/ground!50M50F|=-1=Phanpy$Normal"
/SaveValue "Poke_233", "0003200224000310900512150201612404032110362374431848251/normal!0M0F|=-1=Porygon$Normal"
/SaveValue "Poke_234", "00224071071125717097212072717531323372264102847265/normal!50M50F|$Slow"
/SaveValue "Poke_235", "00184111842118431184411845118461184711848118491184/normal!50M50F|$Fast"
/SaveValue "Poke_236", "00224/fighting!100M0F|=1=Hitmonchan*Level>20=2=Hitmonlee*Level>20=3=Hitmontop*Level>20$Normal"
/SaveValue "Poke_237", "0032000170070731315419155202382515831034370054304249275/fighting!100M0F|=-1=Tyrogue$Normal"
/SaveValue "Poke_238", "0014600108092191314721029251833311537280451524914057018/ice-psychic!0M100F|=1=Jynx*Level>30$Normal"
/SaveValue "Poke_239", "0015500107092331710925221331784123249230/electric!75M25F|=1=Electabuzz*Level>30$Normal"
/SaveValue "Poke_240", "000570710713193190652519431214370704302849064/fire!75M25F|=1=Magmar*Level>30$Normal"
/SaveValue "Poke_241", "002240408208040132071912326015341714301953089/normal!0M100F|$Slow"
/SaveValue "Poke_242", "001460008204225073191019613049181262318328056330404010947048/normal!0M100F|=-1=Chansey$Fast"
/SaveValue "Poke_243", "00017001071123421166311554119951162610377123081265/electric!0M0F|$Slow"
/SaveValue "Poke_244", "00017001071105721166310664120751070612187106481265/fire!0M0F|$Slow"
/SaveValue "Poke_245", "00017001071102421157310854100951129611277109481265/water!0M0F|$Slow"
/SaveValue "Poke_246", "00017001070817415178221672922936176430375005557095/rock-ground!50M50F|=1=Pupitar*Level>30$Slow"
/SaveValue "Poke_247", "000170010700174001780817415178221672922938176470375605565095/rock-ground!50M50F|=-1=Larvitar=1=Tyranitar*Level>55$Slow"
/SaveValue "Poke_248", "000170010700174001780817415178221672922938176470376105575095/rock-dark!50M50F|=-2=Larvitar=-1=Pupitar$Slow"
/SaveValue "Poke_249", "00247111732208533161440945515766221770048800799079/psychic-flying!0M0F|$Slow"
/SaveValue "Poke_250", "00247111732208533161440645521466221771728800799079/fire-flying!0M0F|$Slow"
/SaveValue "Poke_251", "001060002900161000891017320007300794001250140/psychic-grass!0M0F|$Parabolic"
/SaveValue "Poke_252", "0014600107060011115516154211782611731005361874104246080/grass!87.5M12.5F|=1=Grovyle*Level>16$Parabolic"
/SaveValue "Poke_253", "0014600107000010015506001111551607717154231782930035005411874704253063/grass!87.5M12.5F|=-1=Treecko=1=Sceptile*Level>36$Parabolic"
/SaveValue "Poke_254", "0014600107000010015506001111551607717154231782930035005431875104259063/grass!87.5M12.5F|=-2=Treecko=-1=Grovyle$Parabolic"
/SaveValue "Poke_255", "0017700082070731005716139191752506628155341883712843070/fire!87.5M12.5F|=1=Combusken*Level>16$Parabolic"
/SaveValue "Poke_256", "0017700082000730005707073130571604617139211752826332155391884312850332/fire-fighting!87.5M12.5F|=-1=Torchic=1=Blaziken*Level>36$Parabolic"
/SaveValue "Poke_257", "00065001770008200073000570707313057160461713921175282633215536259421884912859332/fire-fighting!87.5M12.5F|=-2=Torchic=-1=Combusken$Parabolic"
/SaveValue "Poke_258", "002240008206132102441501519074243092822633246371494209446275/water!87.5M12.5F|=1=Marshtomp*Level>16$Parabolic"
/SaveValue "Poke_259", "002240008200132002440613210244150151630820074253093122637310421494605553275/water-ground!87.5M12.5F|=-1=Mudkip=1=Swampert*Level>36$Parabolic"
/SaveValue "Poke_260", "002240008200132002440613210244150151630820074253093122639310461495205561275/water-ground!87.5M12.5F|=-2=Mudkip=-1=Marshtomp$Parabolic"
/SaveValue "Poke_261", "002240529109175130171731321166252182917633226373414103745228/dark!50M50F|=1=Mightyena*Level>18$Normal"
/SaveValue "Poke_262", "002240029100175000170529109175130171731322166272183217637226423414703752228/dark!50M50F|=-1=Poochyena$Normal"
/SaveValue "Poke_263", "002240008205225090881317517313213092514229269330683716341014/normal!50M50F|=1=Linoone*Level>20$Normal"
/SaveValue "Poke_264", "0022400082002250008805225090881317517313233092907835269411884716353014/normal!50M50F|=-1=Zigzagoon$Normal"
/SaveValue "Poke_265", "002240020905144/bug!50M50F|=1=Silcoon*Level>7=2=Cascoon*Level>7$Normal"
/SaveValue "Poke_266", "0008607086/bug!50M50F|=-1=Wurmple=1=Beautifly*Level>10$Normal"
/SaveValue "Poke_267", "00001100011308517211201312411727247310083433038080/bug-flying!50M50F|=-2=Wurmple=-1=Silcoon$Normal"
/SaveValue "Poke_268", "0008607086/bug!50M50F|=-1=Wurmple=1=Dustox*Level>10$Normal"
/SaveValue "Poke_269", "00029100291308517149201302415027247311093433038235/bug-poison!50M50F|=-2=Wurmple=-1=Cascoon$Normal"
/SaveValue "Poke_271", "00257030820700113311192792507831349372284334649094/water-grass!50M50F|=-1=Lotad=1=Ludicolo>Water Stone$Parabolic"
/SaveValue "Poke_272", "00257000820000100311/water-grass!50M50F|=-2=Lotad=-1=Lombre$Parabolic"
/SaveValue "Poke_273", "00015030860708313311212233121443060/grass!50M50F|=1=Nuzleaf*Level>14$Parabolic"
/SaveValue "Poke_274", "00146030860708313311192792534431062371604321849277/grass-dark!50M50F|=-1=Seedot=1=Shiftry>Leaf Stone$Parabolic"
/SaveValue "Poke_275", "00146000860008300311/grass-dark!50M50F|=-2=Seedot=-1=Nuzleaf$Parabolic"
/SaveValue "Poke_276", "001390008204073081551324819047262753425243005/normal-flying!50M50F|=1=Swellow*Level>22$Parabolic"
/SaveValue "Poke_277", "0013900082000730015504073081551324819047282753825249005/normal-flying!50M50F|=-1=Taillow$Parabolic"
/SaveValue "Poke_278", "0008200244072161324821129311554315455005/water-flying!50M50F|=1=Pelipper*Level>25$Normal"
/SaveValue "Poke_279", "00082002440034900248032440721613248211292514933337333394733661094/water-flying!50M50F|=-1=Wingull$Normal"
/SaveValue "Poke_280", "00082060291104716227212652615231296360794109746052/psychic!50M50F|=1=Kirlia*Level>20$Slow"
/SaveValue "Poke_281", "0030300082000290004700227060291104716227212652615233296400794709754052/psychic!50M50F|=-1=Ralts=1=Gardevoir*Level>30$Slow"
/SaveValue "Poke_282", "00082000290004700227060291104716227212652615233296420795109760052/psychic!50M50F|=-2=Ralts=-1=Kirlia$Slow"
/SaveValue "Poke_283", "0002307155132201934925024310053712937087/bug-water!50M50F|=1=Masquerain*Level>22$Normal"
/SaveValue "Poke_284", "000230015500220003490715513220193492608533176402114733053247/bug-flying!50M50F|=-1=Surskit$Normal"
/SaveValue "Poke_285", "00001042240721110106161172208828145360834508054205/grass!50M50F|=1=Breloom*Level>23$Extreme"
/SaveValue "Poke_286", "0000100224002110010604224072111010616117220882311328034363324512554054/grass-fighting!50M50F|=-1=Shroomish$Extreme"
/SaveValue "Poke_287", "001770035407058133331906225006312693703443068/normal!50M50F|=1=Vigoroth*Level>18$Slow"
/SaveValue "Poke_288", "001770007300058003460705813346190782505931188370344328349165/normal!50M50F|=-1=Slakoth=1=Slaking*Level>36$Slow"
/SaveValue "Poke_289", "001770035400058003330705813333190622500631269362183703443068/normal!50M50F|=-2=Slakoth=-1=Vigoroth$Slow"
/SaveValue "Poke_290", "00177000860510509175140781912525063311323812145043/bug-ground!50M50F|=1=Ninjask*Level>20=2=Shedinja*Level>20$Erratic"
/SaveValue "Poke_291", "001770008600105001750510509175140781912520047200772017825222311883800545012/bug-flying!50M50F|=-1=Nincada$Erratic"
/SaveValue "Poke_292", "00177000860510509175140781912525203310283818145287/bug-ghost!0M0F|=-1=Nincada$Erratic"
/SaveValue "Poke_293", "0014605346112571529121216252073117835166411634119045293/normal!50M50F|=1=Loudred*Level>20$Parabolic"
/SaveValue "Poke_294", "0014600346002570029105346112571529123216292073717843166511635119057293/normal!50M50F|=-1=Whismur=1=Exploud*Level>40$Parabolic"
/SaveValue "Poke_295", "001460034600257002910534611257152912321629207371784009545166551635519063293/normal!50M50F|=-2=Whismur=-1=Loudred$Parabolic"
/SaveValue "Poke_296", "00224000730417510254132431927922247282993133437014400594617949165/fighting!75M25F|=1=Hariyama*Level>24$Extreme"
/SaveValue "Poke_297", "002240007300175002540417510254132431927922247292993333440014440595117955165/fighting!75M25F|=-1=Makuhita$Extreme"
/SaveValue "Poke_298", "002040302506225100231518721244/normal!75M25F|=1=Marill>Happiness$Fast"
/SaveValue "Poke_299", "00224070861316916260222312816731174371634325146110/rock!50M50F|$Normal"
/SaveValue "Poke_300", "000820022403225070081318315049192562502527062312693708939048/normal!25M75F|=1=Delcatty>Moon Stone$Fast"
/SaveValue "Poke_301", "00082000080018300049/normal!25M75F|=-1=Skitty$Fast"
/SaveValue "Poke_302", "00107001770507409133132571707821279250422906233299370284118145115/dark-ghost!50M50F|$Parabolic"
/SaveValue "Poke_303", "002570628011017162202124126062310123603741298463374633946336/steel!50M50F|$Fast"
/SaveValue "Poke_304", "002240408607132100881312117298211662522629101341493930544048/steel-rock!50M50F|=1=Lairon*Level>32$Slow"
/SaveValue "Poke_305", "002240008600132000880408607132100881312117298211662522629101371494530553048/steel-rock!50M50F|=-1=Aron=1=Aggron*Level>42$Slow"
/SaveValue "Poke_306", "002240008600132000880408607132100881312117298211662522629101371495030563048/steel-rock!50M50F|=-2=Aron=-1=Lairon$Slow"
/SaveValue "Poke_307", "000150411609029120421709120218251252826533090361514116544161/fighting-psychic!50M50F|=1=Medicham*Level>37$Normal"
/SaveValue "Poke_308", "000650023300099000150011600029000420411609029120421709120218251252826533090361514716556161/fighting-psychic!50M50F|=-1=Meditite$Normal"
/SaveValue "Poke_309", "0022404231091071229117155201992531328166330173623041267/electric!50M50F|=1=Manectric*Level>26$Slow"
/SaveValue "Poke_310", "0022400231001070029104231091071229117155201992531331166390174523053267/electric!50M50F|=-1=Electrike$Slow"
/SaveValue "Poke_311", "0008204231101551329019199220582828031267372304001247005/electric!50M50F|$Normal"
/SaveValue "Poke_312", "0008204231101551329019199220582802531267372304001247005/electric!50M50F|$Normal"
/SaveValue "Poke_313", "00224050280904713130171552134025329291493329037048/bug!100M0F|$Erratic"
/SaveValue "Poke_314", "00224052200902513130171552135325058292823329037269/bug!0M100F|$Extreme"
/SaveValue "Poke_315", "000010508309144132111711721106253032928633080372204129745235491415325557223/grass-poison!50M50F|$Parabolic"
/SaveValue "Poke_316", "0014606354091431419117006230582823534337343363433939192/poison!50M50F|=1=Swalot*Level>26$Extreme"
/SaveValue "Poke_317", "001460035400143001910635409143141911700623058260193123540337403364033948192/poison!50M50F|=-1=Gulpin$Extreme"
/SaveValue "Poke_318", "00107000170715613073161762203728178312263721843005/water-dark!50M50F|=1=Sharpedo*Level>30$Slow"
/SaveValue "Poke_319", "0010700017001560007307156130731617622037281783318838341432184818553005/water-dark!50M50F|=-1=Carvanha$Slow"
/SaveValue "Poke_320", "002040508210244141711924623257283483212937163413504600650094/water!50M50F|=1=Wailord*Level>40$Extreme"
/SaveValue "Poke_321", "002040008200244001710508210244141711924623257283483212937163443505200659094/water!50M50F|=-1=Wailmer$Extreme"
/SaveValue "Poke_322", "00082002241105719114250732922631006350554107049048/fire-ground!50M50F|=1=Camerupt*Level>33$Normal"
/SaveValue "Poke_323", "00082002240005700114110571911425073292263100633167370554527655067/fire-ground!50M50F|=-1=Numel$Normal"
/SaveValue "Poke_324", "000570419307038141941706620019271493007033298400064306846289/fire!50M50F|$Normal"
/SaveValue "Poke_325", "0020407153103131615019151250282830234152371633719543261/psychic!50M50F|=1=Grumpig*Level>32$Fast"
/SaveValue "Poke_326", "0020400153003130015007153103131615019151250282830237152431634319555261/psychic!50M50F|=-1=Spoink$Fast"
/SaveValue "Poke_327", "0022405346120621615023097270453434238151450484906856229/normal!50M50F|$Fast"
/SaveValue "Poke_328", "0001709175170622532433037410434917457095/ground!50M50F|=1=Vibrava*Level>35$Parabolic"
/SaveValue "Poke_329", "000170017500062003240917517062253243303735051411784917457095/ground-dragon!50M50F|=-1=Trapinch=1=Flygon*Level>45$Parabolic"
/SaveValue "Poke_330", "000170017500062003240917517062253243303735051411785317465095/ground-dragon!50M50F|=-2=Trapinch=-1=Vibrava$Parabolic"
/SaveValue "Poke_331", "0014400107050010908313106171752114225297290623320237312410334517449041/grass!50M50F|=1=Cacturne*Level>32$Parabolic"
/SaveValue "Poke_332", "0032000144001070000100083050010908313106171752114225297290623520241312470335317459041/grass-dark!50M50F|=-1=Cacnea$Parabolic"
/SaveValue "Poke_333", "0013900082082571118318076211732812931226381284131948140/normal-flying!50M50F|=1=Altaria*Level>35$Erratic"
/SaveValue "Poke_334", "001390008200257001830825711183180762117328129312263505140274453195414059186/dragon-flying!50M50F|=-1=Swablu$Erratic"
/SaveValue "Poke_335", "0017704107071551022213077191882515431270373414604255063/normal!50M50F|$Erratic"
/SaveValue "Poke_336", "00250071081001716316191782508128037343153721843087/poison!50M50F|$Extreme"
/SaveValue "Poke_337", "00224000860702913169190972515331268371524307949060/rock-psychic!0M0F|$Fast"
/SaveValue "Poke_338", "00224000860702913169190662515331268371674319749060/rock-psychic!0M0F|$Fast"
/SaveValue "Poke_339", "0013206309063491124416114210062616326195310553607941067/water-ground!50M50F|=1=Whiscash*Level>30$Normal"
/SaveValue "Poke_340", "0034300132003090034906309063491124416114210062616326195360554607956067/water-ground!50M50F|=-1=Barboach$Normal"
/SaveValue "Poke_341", "000230708610241131071902422149252993134134035372224303746084/water!50M50F|=1=Crawdaunt*Level>30$Extreme"
/SaveValue "Poke_342", "000230008600241001070708610241131071902422149252993334138035432225103756084/water-dark!50M50F|=-1=Corphish$Extreme"
/SaveValue "Poke_343", "0002903086051580713211150153221918025007311743726845060/ground-psychic!0M0F|=1=Claydol*Level>36$Normal"
/SaveValue "Poke_344", "002270002900086001580308605158071321115015322191802500731174360954226855060/ground-psychic!0M0F|=-1=Baltoy$Normal"
/SaveValue "Poke_345", "00257080301500222297290283600643007503375033650339/rock-grass!87.5M12.5F|=1=Cradily*Level>40$Erratic"
/SaveValue "Poke_346", "00257000300000200297080301500222297290283600648007603376033660339/rock-grass!87.5M12.5F|=-1=Lileep$Erratic"
/SaveValue "Poke_347", "00177070861330919244251213114937007430774918855321/rock-bug!87.5M12.5F|=1=Armaldo*Level>40$Erratic"
/SaveValue "Poke_348", "00177000860030900244070861330919244251213114937007460775518864321/rock-bug!87.5M12.5F|=-1=Anorith$Erratic"
/SaveValue "Poke_349", "002041522430068/water!50M50F|=1=Milotic>Beauty$Erratic"
/SaveValue "Poke_350", "0024405250103491531920348252403016135157400944500850173/water!50M50F|=-1=Feebas$Erratic"
/SaveValue "Poke_351", "0022410244100571014720157202142028830351/normal!50M50F|$Normal"
/SaveValue "Poke_352", "00228002250025700108001770401607062120781715024178311884021349007/normal!50M50F|$Parabolic"
/SaveValue "Poke_353", "00299081781313320038252033235237062441814933556287/ghost!50M50F|=1=Banette*Level>37$Fast"
/SaveValue "Poke_354", "00299001780013300038081781313320038252033235239062481815533564287/ghost!50M50F|=-1=Shuppet$Fast"
/SaveValue "Poke_355", "0010700133050441207416257230282715434038383524511549079/ghost!50M50F|=1=Dusclops*Level>37$Fast"
/SaveValue "Poke_356", "0001600107001330004405044120741625723028271543403837326413525111558079/ghost!50M50F|=-1=Duskull$Fast"
/SaveValue "Poke_357", "0010700085070831115917207212202724731303370194119747223/grass-flying!50M50F|$Slow"
/SaveValue "Poke_358", "002500608209257140291722622346253543015333048380894117346152/psychic!50M50F|$Fast"
/SaveValue "Poke_359", "0017705107093411315517160210172622231047361884107946140/dark!50M50F|$Parabolic"
/SaveValue "Poke_361", "0014700107070471001716100190882514928037340983728843018/ice!50M50F|=1=Glalie*Level>42$Normal"
/SaveValue "Poke_362", "0014700107000470001707047100171610019088251492803734098422885301861327/ice!50M50F|=-1=Snorunt$Normal"
/SaveValue "Poke_363", "00147000820004000244070581329419019250093128837163371954301849327/ice-water!50M50F|=1=Sealeo*Level>32$Parabolic"
/SaveValue "Poke_364", "00147000820004000244070581329419019250093128839163391954701855327/ice-water!50M50F|=-1=Spheal=1=Walrein*Level>44$Parabolic"
/SaveValue "Poke_365", "00147000820004000244070581329419019250093128839163391955001861327/ice-water!50M50F|=-2=Spheal=-1=Sealeo$Parabolic"
/SaveValue "Poke_366", "00026002440024600298/water!50M50F|=1=Huntail>Trade*DeepSeaTooth=2=Gorebyss>Trade*DeepSeaScale$Erratic"
/SaveValue "Poke_367", "0024608017151782234829176360374301250094/water!50M50F|=-1=Clamperl$Erratic"
/SaveValue "Poke_368", "0024608029150052234829006361524301250094/water!50M50F|=-1=Clamperl$Erratic"
/SaveValue "Poke_369", "0022400086082441532222354292263630943007501635704864094/water-rock!87.5M12.5F|$Slow"
/SaveValue "Poke_370", "002240402512244160052422628008362194006848173/water!25M75F|$Fast"
/SaveValue "Poke_371", "0015605017091071708821073250573305137176410374927353048/dragon!50M50F|=1=Shelgon*Level>30$Slow"
/SaveValue "Poke_372", "001560001700107000880501709107170882107325057301493805147176560376927378048/dragon!50M50F|=-1=Bagon=1=Salamence*Level>50$Slow"
/SaveValue "Poke_373", "00156000170010700088050170910717088210732505730149380514717650072610377927393048/dragon-flying!50M50F|=-2=Bagon=-1=Shelgon$Slow"
/SaveValue "Poke_374", "00226/steel-psychic!0M0F|=1=Metang*Level>20$Slow"
/SaveValue "Poke_375", "00226200292012126176321543815244298503065600562095/steel-psychic!0M0F|=-1=Beldum=1=Metagross*Level>45$Slow"
/SaveValue "Poke_377", "000600916917038253383300741298492515711065095/rock!0M0F|$Slow"
/SaveValue "Poke_378", "000600910017038253383300741006492515711065095/ice!0M0F|$Slow"
/SaveValue "Poke_379", "00060091211703825338330074129841006492515711065095/steel!0M0F|$Slow"
/SaveValue "Poke_380", "0015305353102901517320051253493031935307401524516150025/dragon-psychic!0M100F|$Slow"
/SaveValue "Poke_381", "0015305304102901517320051251493031935301401524516150274/dragon-psychic!100M0F|$Slow"
/SaveValue "Poke_382", "0034805176150072001930265350984509450163603276504875350/water!0M0F|$Slow"
/SaveValue "Poke_383", "0030805176150072018830263350554506450163600676519775276/ground!0M0F|$Slow"
/SaveValue "Poke_385", "003530002905163102211529020152253193016335048400794526850272/steel-psychic!0M0F|$Slow"
/SaveValue "Poke_Stat_001", "45/49|49\45<65>65§64"
/SaveValue "Poke_Stat_002", "60/62|63\60<80>80§141"
/SaveValue "Poke_Stat_003", "80/82|83\80<100>100§208"
/SaveValue "Move_001", "020100201/|\"
/SaveValue "Move_002", "040100300/21-1010|\"
/SaveValue "Move_003", "______40_/20+2100|\"
/SaveValue "Move_004", "060___200/|\"
/SaveValue "Move_005", "100095050/|\"
/SaveValue "Move_006", "______30_/30+2100|\"
/SaveValue "Move_007", "055095250/|\"
/SaveValue "Move_008", "______20_/50+2100|\"
/SaveValue "Move_009", "060100050/90+1010|\"
/SaveValue "Move_010", "050100200/|\"
/SaveValue "Move_224", "035100300/|\"
//Move: Power-Acc-PP-Special/normal-Stat change+Percent-Status+Percent
If $Srv = ""
/SetPA $team
/SetPA $Info
/SetPA $MonoVal
/SetPA $Box
/SetPA $wildlife
/Set $Srv, "+RpgBot: "
EndIf
EndEvent
Event +NewMessage
If #IsIn($Message, "SCRIPT ERROR", 1) = 1 AND #IsIn($Message, "Variable Name Must Include Only Letters.", 1) > 0
/SendAll "HEY PEOPLE! THE HOSTER FORGOT TO ENTER A MESSAGE IN MAIN WINDOW AND RESTART THE SERVER!! I'M MAKING THE COMMAND BUT ASK HIM TO SHUT DOWN THE SERVER!!"
/Set $Srv, ""
/Exit
EndIf
//If #IsIn($Message, "SERVER MESSAGE: ", 1) = 1
// /Set $X, "011"
// :loop
// /Set $X, $Right("00" & $X, 3)
// If $GetValue("Move_" & $X) = ""
// /SaveValue "Move_" & $X, "000100300/|\"
// EndIf
// /Set $X, #Val($X) + 1
// If #Val($X) > 354
// /Exit
// EndIf
// GoTo loop
//EndIf
EndEvent
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment