Old NB RPG script

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