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