tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Minor text fixes for consistency (World folder). 

Outside of changing comments to be consistent, I also had the credits screen and credits.txt match eachother, because there's no reason why they shouldn't match.
This commit is contained in:
Conner Joseph Brewster 2017-01-18 14:07:45 -06:00
parent c2018e8266
commit e210a2399f
65 changed files with 550 additions and 524 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
2.5DHero/2.5DHero/Screens/Credits/CreditsScreen.vb
View File

@ -48,8 +48,9 @@ Public Class CreditsScreen
MediaPlayer.IsRepeating = False
End Sub
' The text that shows during the credits:
Private Sub InitializeCreditsPages(ByVal ending As String)
CreditsPages.Add(New CreditsPage("Pokémon3D staff", Color.White, Color.Black))
CreditsPages.Add(New CreditsPage("Pokémon3D Staff", Color.White, Color.Black))
CreditsPages.Add(New CreditsPage("Pokémon", Color.White, Color.Black, {"made by", "Nintendo", "Game Freak", "The Pokémon Company"}.ToList()))
If GameModeManager.ActiveGameMode.IsDefaultGamemode = True Then
CreditsPages.Add(New CreditsPage("Pokémon3D", Color.White, Color.Black, {"Trademark (TM) 2012 - " & COPYRIGHTYEAR, "made by Kolben Games"}.ToList()))
@ -60,24 +61,25 @@ Public Class CreditsScreen
CreditsPages.Add(New CreditsPage("Director", Color.White, Color.Black, {"Nils Drescher"}.ToList()))
CreditsPages.Add(New CreditsPage("Open Source Development Team", Color.White, Color.Black, {"Benjamin Smith", "Yong Jian Ming", """Aragas""", """oXFantaXo""", "Jorge Luis Espinoza"}.ToList()))
CreditsPages.Add(New CreditsPage("Programming", Color.White, Color.Black, {"Nils Drescher", "Jason Houston", "William Lang", "Benjamin Smith", "Yong Jian Ming", "Jorge Luis Espinoza", """Aragas"""}.ToList()))
CreditsPages.Add(New CreditsPage("Graphics", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", """Godeken""", "Caleb Coleman", "Robert Nobbmann", "Manuel Lampe", "Miguel Nunez", "Grant Garrett", """Anvil555"""}.ToList()))
CreditsPages.Add(New CreditsPage("Map design", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", "Hunter Graves", "Manuel Lampe", "Robert Nobbmann", "Maximilian Schröder", "Jan Mika Eine", "Jason Houston", """oXFantaXo"""}.ToList()))
CreditsPages.Add(New CreditsPage("Graphic Design", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", """Godeken""", "Caleb Coleman", "Robert Nobbmann", "Manuel Lampe", "Miguel Nunez", "Grant Garrett", """Anvil555"""}.ToList()))
CreditsPages.Add(New CreditsPage("Map Design", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", "Hunter Graves", "Manuel Lampe", "Robert Nobbmann", "Maximilian Schröder", "Jan Mika Eine", "Jason Houston", """oXFantaXo"""}.ToList()))
CreditsPages.Add(New CreditsPage("Actionscript", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", "Hunter Graves", "Andrew Leach", "Jason Houston", "Yong Jian Ming", """Aragas""" }.ToList()))
CreditsPages.Add(New CreditsPage("Script System development", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", "Hunter Graves", "Yong Jian Ming", """Aragas"""}.ToList()))
CreditsPages.Add(New CreditsPage("KolbenWindowWidget development", Color.White, Color.Black, {"Jason Houston"}.ToList()))
CreditsPages.Add(New CreditsPage("Launcher programming", Color.White, Color.Black, {"Nils Drescher", "Daniel Billing", """ThuxCommix""", """Aragas"""}.ToList()))
CreditsPages.Add(New CreditsPage("Script System Development", Color.White, Color.Black, {"Nils Drescher", "Benjamin Smith", "Hunter Graves", "Yong Jian Ming", """Aragas"""}.ToList()))
CreditsPages.Add(New CreditsPage("KolbenWindowWidget Development & LUA Implementation", Color.White, Color.Black, {"Jason Houston"}.ToList()))
CreditsPages.Add(New CreditsPage("Launcher Programming", Color.White, Color.Black, {"Nils Drescher", "Daniel Billing", """ThuxCommix""", """Aragas"""}.ToList()))
CreditsPages.Add(New CreditsPage("Pokéditor Programming", Color.White, Color.Black, {"Nils Drescher", "Jason Houston", "Hunter Graves"}.ToList()))
CreditsPages.Add(New CreditsPage("Website Host/Server maintenance", Color.White, Color.Black, {"Daniel Billing", "Daniel Laube"}.ToList()))
CreditsPages.Add(New CreditsPage("GameJolt Service/API programming", Color.White, Color.Black, {"David DeCarmine", "Nils Drescher"}.ToList()))
CreditsPages.Add(New CreditsPage("Debug testing", Color.White, Color.Black, {"Jan Mika Eine", "Tim Drescher", "Daniel Steinborn", "Andrew Leach", "Marc Boisvert-Dupras", "Matt Chambers", "Hunter Graves", "Benjamin Smith", "William Hunn", "Torben Carrington", """oXFantaXo""", "Conner Brewster"}.ToList()))
CreditsPages.Add(New CreditsPage("Website Host/Server Maintenance", Color.White, Color.Black, {"Daniel Billing", "Daniel Laube"}.ToList()))
CreditsPages.Add(New CreditsPage("GameJolt Service/API Programming", Color.White, Color.Black, {"David DeCarmine", "Nils Drescher"}.ToList()))
CreditsPages.Add(New CreditsPage("Debug Testing", Color.White, Color.Black, {"Jan Mika Eine", "Tim Drescher", "Daniel Steinborn", "Andrew Leach", "Marc Boisvert-Dupras", "Matt Chambers", "Hunter Graves", "Benjamin Smith", "William Hunn", "Torben Carrington", """oXFantaXo""", "Conner Joseph Brewster"}.ToList()))
CreditsPages.Add(New CreditsPage("Special Thanks", Color.White, Color.Black, {"""MunchingOrange""", """TheFlamingSpade""", """SlyFoxHound""", """ArsenioDev""", """TrUShade""", """Isaaking6"""}.ToList()))
CreditsPages.Add(New CreditsPage("Special Thanks", Color.White, Color.Black, {"Davey Van Raaij", "Diego López", "The GameJolt team", "The AppSharp team", "The Smogon University Team"}.ToList()))
CreditsPages.Add(New CreditsPage("Special Thanks", Color.White, Color.Black, {"Davey Van Raaij", "Diego López", "The GameJolt Team", "The AppSharp Team", "The Smogon University Team"}.ToList()))
CreditsPages.Add(New CreditsPage("", Color.White, Color.Black, {"And probably a lot more.", "Especially all the awesome people from", "the pokemon3d.net community.", "Thanks for helping and playing this great game."}.ToList()))
CreditsPages.Add(New CreditsPage("", Color.White, Color.Black))
CreditsPages.Add(New CreditsPage("", Color.White, Color.Black))
CreditsPages.Add(New CreditsPage("THE END", Color.White, Color.Black, {"Thank you for playing!"}.ToList()))
End Sub
' Credit camera starting positions:
Private Sub InitializeCameraLevels(ByVal ending As String)
Select Case ending.ToLower()
Case "johto"

4
2.5DHero/2.5DHero/Security/FileValidation.vb
View File

@ -6,8 +6,8 @@
Shared _valid As Boolean = False
Const RUNVALIDATION As Boolean = False
Const EXPECTEDSIZE As Integer = 42308840
Const METAHASH As String = "MzJEODhGNkEwNzY0MzJCMTNERTlFMDM4REE3MDA5RjI="
Const EXPECTEDSIZE As Integer = 42308847
Const METAHASH As String = "ODU1QkIwNDI1Q0U0Q0QwNkRCNUU4MzM2QTQ2Q0M3QTc="
Public Shared ReadOnly Property IsValid(ByVal ForceResult As Boolean) As Boolean
Get

14
2.5DHero/2.5DHero/World/ActionScript/ActionScript.vb
View File

@ -94,10 +94,10 @@ nextScript:
Public Shared IsInsightScript As Boolean = False
''' <summary>
''' Starts a script
''' Starts a script.
''' </summary>
''' <param name="Input">The input string</param>
''' <param name="InputType">Type of information; 0: Script path, 1: Text, 2: Direct input</param>
''' <param name="Input">The input string.</param>
''' <param name="InputType">Type of information; 0: Script path, 1: Text, 2: Direct input.</param>
Public Sub StartScript(ByVal Input As String, ByVal InputType As Integer, Optional ByVal CheckDelay As Boolean = True, Optional ByVal ResetInsight As Boolean = True)
ScriptLevelIndex += 1
@ -114,7 +114,7 @@ nextScript:
If reDelay = 0.0F Or CheckDelay = False Then
Select Case InputType
Case 0 'Start script from file
Case 0 ' Start a script from a file.
Logger.Debug("Start script (ID: " & Input & ")")
l.ScriptName = "Type: Script; Input: " & Input
@ -132,7 +132,7 @@ nextScript:
Else
Logger.Log(Logger.LogTypes.ErrorMessage, "ActionScript.vb: The script file """ & path & """ doesn't exist!")
End If
Case 1 'Display text
Case 1 ' Display text.
Logger.Debug("Start Script (Text: " & Input & ")")
l.ScriptName = "Type: Text; Input: " & Input
@ -141,7 +141,7 @@ nextScript:
Dim ScriptData() As String = Data.Split(CChar("^"))
AddScriptLines(ScriptData)
Case 2 'Start script from direct input
Case 2 ' Start a script from direct input.
Dim activator As String = Environment.StackTrace.Split(vbNewLine)(3)
activator = activator.Remove(activator.IndexOf("("))
@ -576,4 +576,4 @@ nextScript:
#End Region
End Class
End Class

4
2.5DHero/2.5DHero/World/ActionScript/Script.vb
View File

@ -1,7 +1,7 @@
Public Class Script
Public Enum ScriptTypes As Integer
'V1:
' V1:
Move = 0
MoveAsync = 1
MovePlayer = 2
@ -46,7 +46,7 @@
SwitchEndIf = 39
SwitchEnd = 40
'V2:
' V2:
Command = 100
[if] = 101

16
2.5DHero/2.5DHero/World/ActionScript/ScriptConversion.vb
View File

@ -46,7 +46,7 @@ Public Class ScriptConversion
End Function
''' <summary>
''' Evaluates a math expression in the postfix notation. Example: 2 3 +
''' Evaluates a math expression in the postfix notation. Example: "2 3 +".
''' </summary>
''' <param name="input">The postfix string.</param>
Private Shared Function EvaluatePostfix(ByVal input As String, Optional ByRef hasError As Boolean = False) As Double
@ -123,7 +123,7 @@ Public Class ScriptConversion
''' <summary>
''' Converts an infix notation to postfix notation.
''' </summary>
''' <param name="input">The infix notation. Example: 2+3</param>
''' <param name="input">The infix notation. Example: "2+3".</param>
Private Shared Function ToPostfix(ByVal input As String, Optional ByRef hasError As Boolean = False) As String
If input.Trim().StartsWith("-") Then
input = "0" & input
@ -139,11 +139,11 @@ Public Class ScriptConversion
Dim token As Char = tokens(0)
tokens.RemoveAt(0)
'Token is a number:
' Token is a number:
If IsNumber(token) = True Then
cNumber &= token.ToString()
ElseIf cNumber.Length > 0 Then
output &= cNumber.ToString() & " " 'Add to the output
output &= cNumber.ToString() & " " ' Add to the output.
cNumber = ""
End If
@ -152,7 +152,7 @@ Public Class ScriptConversion
cNumber = ""
End If
'Token is an operator
' Token is an operator:
If IsOperator(token) = True Then
Dim o1 As Char = token
@ -163,11 +163,11 @@ Public Class ScriptConversion
stack.Insert(0, o1)
End If
'Token is a left parenthesis
' Token is a left parenthesis:
If token = "("c Then
stack.Insert(0, token)
End If
'Token is a right parenthesis
' Token is a right parenthesis:
If token = ")"c Then
If stack.Count > 0 Then
While stack.Count > 0
@ -306,4 +306,4 @@ Public Class ScriptConversion
Return validBools.Contains(s.ToLower())
End Function
End Class
End Class

2
2.5DHero/2.5DHero/World/ActionScript/ScriptStorage.vb
View File

@ -159,4 +159,4 @@ Public Class ScriptStorage
Return ScriptConversion.ToDouble(expression)
End Function
End Class
End Class

18
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommander.vb
View File

@ -4,7 +4,7 @@ Namespace ScriptVersion2
Shared ScriptV2 As ScriptV2
Shared Value As String = "" 'Stores a value that the ScriptCommander keeps across script calls and scripts.
Shared Value As String = "" ' Stores a value that the ScriptCommander keeps across script calls and scripts.
Public Shared Function Parse(ByVal input As String) As Object
Return ScriptComparer.EvaluateConstruct(input)
@ -49,7 +49,7 @@ Namespace ScriptVersion2
''' <summary>
''' Executes a command.
''' </summary>
''' <param name="ScriptV2">The primitive script (v2).</param>
''' <param name="ScriptV2">The primitive script (V2).</param>
''' <param name="inputString">The input command.</param>
Public Shared Sub ExecuteCommand(ByRef ScriptV2 As ScriptV2, ByVal inputString As String)
ScriptCommander.ScriptV2 = ScriptV2
@ -141,7 +141,7 @@ Namespace ScriptVersion2
Logger.Log(Logger.LogTypes.Message, "ScriptCommander.vb: This class (" & mainClass & ") doesn't exist.")
IsReady = True
End Select
End Sub 'crash handle
End Sub ' Crash handler.
''' <summary>
''' Generates a script line that gets inserted infront of the current script to turn the player into the correct orientation.
@ -178,11 +178,11 @@ Namespace ScriptVersion2
End Sub
'//////////////////////////////////////////////////////////
'//
'// Shortens the ScriptConversion methods to shorter names.
'//
'//////////////////////////////////////////////////////////
' //////////////////////////////////////////////////////////
' //
' // Shortens the ScriptConversion methods to shorter names.
' //
' //////////////////////////////////////////////////////////
Private Shared Function int(ByVal expression As Object) As Integer
Return ScriptConversion.ToInteger(expression)
@ -198,4 +198,4 @@ Namespace ScriptVersion2
End Class
End Namespace
End Namespace

14
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoBattle.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @battle commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @battle commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoBattle(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@ -87,11 +87,11 @@
CanContinue = False
Case "wild"
'ID, Level, [shiny], [musicloop], [introtype]
'int int -1 or bool string int
' ID, Level, [shiny], [musicloop], [introtype]
' int int -1 or bool string int
'optional:
'{pokemondata}, [musicloop], [introtype]
' optional:
' {pokemondata}, [musicloop], [introtype]
Dim p As Pokemon = Nothing
Dim musicLoop As String = ""

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoCamera.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @camera commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @camera commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoCamera(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoChat.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @chat commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @chat commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoChat(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

8
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoDayCare.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @daycare commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @daycare commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoDayCare(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@ -131,7 +131,7 @@
End Select
IsReady = True
End Sub 'crash handle
End Sub ' Crash Handler
End Class

8
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoEntity.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @entity commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @entity commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoEntity(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@ -93,7 +93,7 @@
Case "setcollision"
ent.Collision = CBool(argument.GetSplit(1))
Case "settexture"
'Data structure for the entire argument: entID,textureID,[texturename,x,y,width,height]
' Data structure for the entire argument: entID,textureID,[texturename,x,y,width,height]
Dim textureID As Integer = int(argument.GetSplit(1))
Dim textureData As String = argument.Remove(0, argument.IndexOf("[") + 1)

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoEnvironment.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @environment commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @environment commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoEnvironment(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoItem.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @item commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @item commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoItem(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoLevel.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @level commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @level commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoLevel(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoMusic.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @music commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @music commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoMusic(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

10
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoNPC.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @npc commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @npc commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoNPC(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@ -136,8 +136,8 @@
Case "spawn"
Dim args() As String = argument.Split(CChar(","))
'required parameters: position
'optional parameters: actionvalue, additionalvalue, textureid, animateidle, rotation, name, id, movement
' Required parameters: position
' Optional parameters: actionvalue, additionalvalue, textureid, animateidle, rotation, name, id, movement
Dim position As Vector3 = New Vector3(sng(args(0)), sng(args(1)), sng(args(2)))
Dim actionValue As Integer = 0

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoOptions.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @options commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @options commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoOptions(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoOverworldPokemon.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @overworldpokemon commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @overworldpokemon commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoOverworldPokemon(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoPlayer.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @player commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @player commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoPlayer(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

8
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoPokedex.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @pokedex commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @pokedex commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoPokedex(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@ -18,7 +18,7 @@
End Select
IsReady = True
End Sub 'crash handle
End Sub ' Crash Handler
End Class

10
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoPokemon.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @pokemon commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @pokemon commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoPokemon(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@ -23,7 +23,7 @@
Core.Player.Pokemons.RemoveAt(index)
End If
Case "add"
'PokemonID,Level,Method,Ball,Location,IsEgg,TrainerName
' PokemonID,Level,Method,Ball,Location,IsEgg,TrainerName
If argument.StartsWith("{") = True Or argument.Remove(0, 1).StartsWith(",{") = True Then
Dim insertIndex As Integer = Core.Player.Pokemons.Count
@ -525,7 +525,7 @@
Core.Player.Pokemons(Index).CatchLocation = place
End If
Case "newroaming"
'PokémonID,Level,regionID,startLevelFile,MusicLoop
' PokémonID,Level,regionID,startLevelFile,MusicLoop
Dim data() As String = argument.Split(CChar(","))
Dim p As Pokemon = Pokemon.GetPokemonByID(CInt(data(0)))
p.Generate(CInt(data(1)), True)

8
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoRadio.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @radio commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @radio commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoRadio(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@ -25,7 +25,7 @@
End Select
IsReady = True
End Sub 'crash handle
End Sub ' Crash Handler
End Class

8
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoRegister.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @register commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @register commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoRegister(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@ -30,7 +30,7 @@
ActionScript.ChangeRegister(args(0), args(1))
Case "registertime"
Dim args() As String = argument.Split(CChar(","))
'0=register name, 1=value, 2=format
' 0=register name, 1=value, 2=format
Dim format As String = "days"
Dim isValidFormat As Boolean = True

18
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoScreen.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @screen commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @screen commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoScreen(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@ -24,14 +24,14 @@
CanContinue = False
Case "trade"
Dim storeData As String = CStr(argument.GetSplit(0)) 'e.g. Item ID
Dim canBuy As Boolean = CBool(argument.GetSplit(1)) '
Dim canSell As Boolean = CBool(argument.GetSplit(2)) '
Dim storeData As String = CStr(argument.GetSplit(0)) ' e.g. Item ID
Dim canBuy As Boolean = CBool(argument.GetSplit(1)) '
Dim canSell As Boolean = CBool(argument.GetSplit(2)) '
Dim currencyIndicator As String = "P"
If argument.CountSplits() > 3 Then
currencyIndicator = argument.GetSplit(3) 'p for pokedollars, bp for battle points
currencyIndicator = argument.GetSplit(3) ' p for PokéDollars, bp for Battle Points.
End If
Core.SetScreen(New TransitionScreen(Core.CurrentScreen, New TradeScreen(Core.CurrentScreen, storeData, canBuy, canSell, currencyIndicator), Color.Black, False))
@ -127,11 +127,11 @@
Dim args() As String = argument.Split(CChar(","))
If args.Length = 1 Then
'Show screen with all tutor moves
' Show screen with all tutor moves.
Core.SetScreen(New TeachMovesScreen(Core.CurrentScreen, int(argument)))
ElseIf args.Length > 1 Then
'Show screen with all moves listed
' Show screen with all moves listed.
Dim pokeIndex As Integer = int(args(0))
Dim moves As New List(Of BattleSystem.Attack)

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoScript.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @script commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @script commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoScript(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoSound.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @sound commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @sound commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoSound(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command

8
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoStorage.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @storage commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @storage commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoStorage(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@ -54,4 +54,4 @@
End Class
End Namespace
End Namespace

8
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoText.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @text commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @text commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoText(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@ -36,7 +36,7 @@
Screen.TextBox.TextColor = TextBox.PlayerColor
Case "defaultcolor", "default"
Screen.TextBox.TextColor = TextBox.DefaultColor
Case Else 'Try to convert the input color name into a color: (https://msdn.microsoft.com/en-us/library/system.drawing.knowncolor%28v=vs.110%29.aspx)
Case Else ' Try to convert the input color name into a color: (https://msdn.microsoft.com/en-us/library/system.drawing.knowncolor%28v=vs.110%29.aspx)
Screen.TextBox.TextColor = Drawing.Color.FromName(args(0)).ToXNA()
End Select
ElseIf args.Length = 3 Then

24
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptCommands/DoTitle.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptCommander
'--------------------------------------------------------------------------------------------------------------------------
'Contains the @title commands.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the @title commands.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Sub DoTitle(ByVal subClass As String)
Dim command As String = ScriptComparer.GetSubClassArgumentPair(subClass).Command
@ -19,23 +19,23 @@
For i = 0 To args.Count - 1
Dim arg As String = args(i)
Select Case i
Case 0 'text
Case 0 ' Text
t.Text = arg
Case 1 'delay
Case 1 ' Delay
t.Delay = sng(arg)
Case 2 'R
Case 2 ' Red
t.TextColor = New Color(CByte(int(arg).Clamp(0, 255)), t.TextColor.G, t.TextColor.B)
Case 3 'G
Case 3 ' Green
t.TextColor = New Color(t.TextColor.R, CByte(int(arg).Clamp(0, 255)), t.TextColor.B)
Case 4 'B
Case 4 ' Blue
t.TextColor = New Color(t.TextColor.R, t.TextColor.G, CByte(int(arg).Clamp(0, 255)))
Case 5 'Scale
Case 5 ' Scale
t.Scale = sng(arg)
Case 6 'IsCentered
Case 6 ' IsCentered
t.IsCentered = CBool(arg)
Case 7 'X
Case 7 ' X
t.Position = New Vector2(sng(arg), t.Position.Y)
Case 8 'Y
Case 8 ' Y
t.Position = New Vector2(t.Position.X, sng(arg))
End Select
Next

14
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptComparer.vb
View File

@ -10,7 +10,7 @@ Namespace ScriptVersion2
Public Class DefaultNullObj
Public Overrides Function ToString() As String
Return "return:void" 'Just return "void" when this gets used as string to indicate that this type got returned.
Return "return:void" ' Just return "void" when this gets used as string to indicate that this type got returned.
End Function
End Class
@ -321,11 +321,11 @@ Namespace ScriptVersion2
End Function
'//////////////////////////////////////////////////////////
'//
'// Shortens the ScriptConversion methods to shorter names.
'//
'//////////////////////////////////////////////////////////
' //////////////////////////////////////////////////////////
' //
' // Shortens the ScriptConversion methods to shorter names.
' //
' //////////////////////////////////////////////////////////
Private Shared Function int(ByVal expression As Object) As Integer
Return ScriptConversion.ToInteger(expression)
@ -341,4 +341,4 @@ Namespace ScriptVersion2
End Class
End Namespace
End Namespace

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoBattle.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <battle> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <battle> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoBattle(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoCamera.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <camera> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <camera> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoCamera(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoDaycare.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <daycare> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <daycare> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoDaycare(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoEntity.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <entity> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <entity> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoEntity(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoEnvironment.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <environment> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <environment> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoEnvironment(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoFilesystem.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <filesystem> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <filesystem> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoFileSystem(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoInventory.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <inventory> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <inventory> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoInventory(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoLevel.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <level> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <level> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoLevel(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoMath.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <math> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <math> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoMath(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoNPC.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <npc> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <npc> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoNPC(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoOverworldPokemon.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <overworldpokemon> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <overworldpokemon> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoOverworldPokemon(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoPhone.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <phone> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <phone> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoPhone(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoPlayer.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <player> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <player> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoPlayer(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoPokedex.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <pokedex> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <pokedex> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoPokedex(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

8
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoPokemon.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <pokemon> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <pokemon> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoPokemon(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command
@ -285,7 +285,7 @@
p.Generate(level, True)
Return p.GetSaveData().Replace(",", "§")
Case "otmatch"
'arguments: has: returns boolean, ID: returns pokedex number, Name: returns name, maxhits: returns the max number of equal chars
' Arguments: has: returns boolean, ID: returns Pokédex number, Name: returns name, maxhits: returns the maximum number of equal chars.
Dim maxDigits As Integer = 0
Dim maxName As String = "[EMPTY]"

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoRadio.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <radio> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <radio> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoRadio(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoRegister.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <register> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <register> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoRegister(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoRival.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <rival> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <rival> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoRival(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoStorage.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <storage> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <storage> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoStorage(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

6
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptConstructs/DoSystem.vb
View File

@ -2,9 +2,9 @@
Partial Class ScriptComparer
'--------------------------------------------------------------------------------------------------------------------------
'Contains the <system> constructs.
'--------------------------------------------------------------------------------------------------------------------------
' --------------------------------------------------------------------------------------------------------------------------
' Contains the <system> constructs.
' --------------------------------------------------------------------------------------------------------------------------
Private Shared Function DoSystem(ByVal subClass As String) As Object
Dim command As String = GetSubClassArgumentPair(subClass).Command

244
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptLibrary.vb
View File

@ -2,7 +2,7 @@ Namespace ScriptVersion2
Public Class ScriptLibrary
'Last Library update: 0.52.1
' Last Library update: 0.52.1
#Region "Initialize"
@ -77,7 +77,7 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoFileSystem()
'Constructs:
' Constructs:
r(New ScriptCommand("filesystem", "pathsplit", "str", {New ScriptArgument("index", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("path", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the part of the path that is at the position of index.", ",", True))
r(New ScriptCommand("filesystem", "pathsplitcount", "int", {New ScriptArgument("path", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the amount of parts in the given path.", ",", True))
@ -85,7 +85,7 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoTitle()
'Commands:
' Commands:
r(New ScriptCommand("title", "add", {New ScriptArgument("text", ScriptArgument.ArgumentTypes.Str, True, "Sample Text"),
New ScriptArgument("delay", ScriptArgument.ArgumentTypes.Sng, True, "20.0"),
New ScriptArgument("R", ScriptArgument.ArgumentTypes.Int, True, "255"),
@ -99,7 +99,7 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoCamera()
'Commands:
' Commands:
r(New ScriptCommand("camera", "set", {New ScriptArgument("x", ScriptArgument.ArgumentTypes.Sng),
New ScriptArgument("y", ScriptArgument.ArgumentTypes.Sng),
New ScriptArgument("z", ScriptArgument.ArgumentTypes.Sng),
@ -127,27 +127,27 @@ Namespace ScriptVersion2
New ScriptArgument("focusID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Focuses the camera on an object. "))
r(New ScriptCommand("camera", "setfocustype", {New ScriptArgument("focusType", ScriptArgument.ArgumentTypes.Str, {"player", "npc", "entity"})}.ToList(), "Sets the focus type for the camera."))
r(New ScriptCommand("camera", "setfocusid", {New ScriptArgument("focusID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the ID of the focus target for the camera."))
r(New ScriptCommand("camera", "settoplayerfacing", "Sets the yaw of the camera to accommodate the player's facing."))
r(New ScriptCommand("camera", "settoplayerfacing", "Sets the Yaw of the camera to accommodate the player's facing."))
'Constructs:
' Constructs:
r(New ScriptCommand("camera", "isfixed", "bool", "Returns if the camera is fixed to a specific position.", ",", True))
r(New ScriptCommand("camera", "x", "sng", "Returns the current x position of the camera.", ",", True))
r(New ScriptCommand("camera", "y", "sng", "Returns the current y position of the camera.", ",", True))
r(New ScriptCommand("camera", "z", "sng", "Returns the current z position of the camera.", ",", True))
r(New ScriptCommand("camera", "yaw", "sng", "Returns the current yaw rotation of the camera.", ",", True))
r(New ScriptCommand("camera", "pitch", "sng", "Returns the current pitch rotation of the camera.", ",", True))
r(New ScriptCommand("camera", "x", "sng", "Returns the current X position of the camera.", ",", True))
r(New ScriptCommand("camera", "y", "sng", "Returns the current Y position of the camera.", ",", True))
r(New ScriptCommand("camera", "z", "sng", "Returns the current Z position of the camera.", ",", True))
r(New ScriptCommand("camera", "yaw", "sng", "Returns the current Yaw rotation of the camera.", ",", True))
r(New ScriptCommand("camera", "pitch", "sng", "Returns the current Pitch rotation of the camera.", ",", True))
r(New ScriptCommand("camera", "thirdperson", "bool", "Returns if the camera is in third person mode.", ",", True))
End Sub
Private Shared Sub DoOptions()
'Commands:
' Commands:
r(New ScriptCommand("options", "show", {New ScriptArgument("options", ScriptArgument.ArgumentTypes.StrArr),
New ScriptArgument("flag", ScriptArgument.ArgumentTypes.Str, {"[TEXT=FALSE]"}, True, "")}.ToList(), "Displays a choose box with the given options."))
r(New ScriptCommand("options", "setcancelindex", {New ScriptArgument("index", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the cancel index of the next choose box. This index gets choosen when the player presses a back key."))
End Sub
Private Shared Sub DoText()
'Commands:
' Commands:
r(New ScriptCommand("text", "show", {New ScriptArgument("text", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Displays a textbox with the given text."))
r(New ScriptCommand("text", "setfont", {New ScriptArgument("font", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Changes the font of the textbox. All fonts from loaded ContentPacks, GameModes and the standard game can be loaded."))
r(New ScriptCommand("text", "debug", {New ScriptArgument("text", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Prints the ""text"" argument to the immediate window console."))
@ -166,7 +166,7 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoMusic()
'Commands:
' Commands:
r(New ScriptCommand("music", "play", {New ScriptArgument("musicFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Changes the currently playing music to a new one."))
r(New ScriptCommand("music", "setmusicloop", {New ScriptArgument("musicFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets the map musicloop to a new musicfile."))
r(New ScriptCommand("music", "stop", "Stops the music playback."))
@ -175,7 +175,7 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoBattle()
'Commands:
' Commands:
r(New ScriptCommand("battle", "starttrainer", {New ScriptArgument("trainerFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Initializes a trainer interaction and checks if the player has already beaten that trainer."))
r(New ScriptCommand("battle", "trainer", {New ScriptArgument("trainerFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Initializes a trainer battle."))
r(New ScriptCommand("battle", "wild", {New ScriptArgument("pokemonData", ScriptArgument.ArgumentTypes.PokemonData),
@ -187,7 +187,7 @@ Namespace ScriptVersion2
New ScriptArgument("introtype", ScriptArgument.ArgumentTypes.Int, True, "0-10")}.ToList(), "Initializes the battle with a wild Pokémon."))
r(New ScriptCommand("battle", "setvar", {New ScriptArgument("varName", ScriptArgument.ArgumentTypes.Str, {"canrun", "cancatch", "canblackout", "canreceiveexp", "canuseitems", "frontiertrainer", "divebattle", "inversebattle, custombattlemusic, hiddenabilitychance"}),
New ScriptArgument("varValue", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets a battle value."))
'Constructs:
' Constructs:
r(New ScriptCommand("battle", "defeatmessage", "str", {New ScriptArgument("trainerFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the defeat message of the trainer loaded from the given ""trainerFile"".", ",", True))
r(New ScriptCommand("battle", "intromessage", "str", {New ScriptArgument("trainerFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the intro message of the trainer loaded from the given ""trainerFile"".", ",", True))
r(New ScriptCommand("battle", "outromessage", "str", {New ScriptArgument("trainerFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the outro message of the trainer loaded from the given ""trainerFile"".", ",", True))
@ -195,23 +195,23 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoLevel()
'Commands:
' Commands:
r(New ScriptCommand("level", "wait", {New ScriptArgument("ticks", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Makes the level idle for the duration of the given ticks."))
r(New ScriptCommand("level", "update", "Updates the level and all entities once."))
r(New ScriptCommand("level", "waitforevents", "Makes the level idle until every NPC movement is done."))
r(New ScriptCommand("level", "waitforsave", "Makes the level idle until the current saving of an GameJolt save is done."))
r(New ScriptCommand("level", "reload", "Reloads the current map."))
r(New ScriptCommand("level", "setsafari", {New ScriptArgument("safari", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Sets if the current map is a Safari Zone (influences battle style)."))
'Constructs:
' Constructs:
r(New ScriptCommand("level", "mapfile", "str", "Returns the mapfile of the currently loaded map.", ",", True))
r(New ScriptCommand("level", "levelfile", "str", "Returns the mapfile of the currently loaded map.", ",", True))
r(New ScriptCommand("level", "filename", "str", "Returns only the name of the current map file, without path and extension.", ",", True))
r(New ScriptCommand("level", "riding", "bool", "Returns if the player is riding a Pokémon right now.", ",", True))
r(New ScriptCommand("level", "surfing", "bool", "Returns if the player is suring on a Pokémon right now.", ",", True))
r(New ScriptCommand("level", "riding", "bool", "Returns if the player is Riding a Pokémon right now.", ",", True))
r(New ScriptCommand("level", "surfing", "bool", "Returns if the player is Suring on a Pokémon right now.", ",", True))
End Sub
Private Shared Sub DoEntity()
'Commands:
' Commands:
r(New ScriptCommand("entity", "showmessagebulb", {New ScriptArgument("bulbID", ScriptArgument.ArgumentTypes.Int, {"0-11"}),
New ScriptArgument("x", ScriptArgument.ArgumentTypes.Sng),
New ScriptArgument("y", ScriptArgument.ArgumentTypes.Sng),
@ -246,7 +246,7 @@ Namespace ScriptVersion2
New ScriptArgument("x", ScriptArgument.ArgumentTypes.Sng),
New ScriptArgument("y", ScriptArgument.ArgumentTypes.Sng),
New ScriptArgument("z", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Adds the given coordinates to the position of the given entity."))
'Constructs:
' Constructs:
r(New ScriptCommand("entity", "visible", "bool", {New ScriptArgument("entityID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the selected entity is visible.", ",", True))
r(New ScriptCommand("entity", "opacity", "int", {New ScriptArgument("entityID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the opacity property of the selected entity.", ",", True))
r(New ScriptCommand("entity", "position", "sngArr", {New ScriptArgument("entityID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the position of the selected entity in the pattern ""x,y,z"".", ",", True))
@ -259,13 +259,13 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoPhone()
'Constructs:
' Constructs:
r(New ScriptCommand("phone", "callflag", "str", "Returns, if the Pokégear is calling or getting called. Values: ""calling"", ""receiving""", ",", True))
r(New ScriptCommand("phone", "got", "bool", "Returns if the player got the Pokégear.", ",", True))
End Sub
Private Shared Sub DoItem()
'Commands:
' Commands:
r(New ScriptCommand("item", "give", {New ScriptArgument("ItemID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("Amount", ScriptArgument.ArgumentTypes.Int, True, "1")}.ToList(), "Adds the given amount of items to the player's inventory."))
r(New ScriptCommand("item", "remove", {New ScriptArgument("ItemID", ScriptArgument.ArgumentTypes.Int),
@ -274,11 +274,11 @@ Namespace ScriptVersion2
r(New ScriptCommand("item", "clearitem", {New ScriptArgument("ItemID", ScriptArgument.ArgumentTypes.Int, True, "")}.ToList(), "Clears all items with the given ID from the player's inventory. Clears the whole inventory if ItemID is empty."))
r(New ScriptCommand("item", "messagegive", {New ScriptArgument("ItemID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("Amount", ScriptArgument.ArgumentTypes.Int, True, "1")}.ToList(), "Displays a message for getting the specified amount of items."))
r(New ScriptCommand("item", "repel", {New ScriptArgument("RepelItemID", ScriptArgument.ArgumentTypes.Int, {"20", "42", "43"})}.ToList(), "Adds the steps of the repel to the repel steps of the player."))
r(New ScriptCommand("item", "repel", {New ScriptArgument("RepelItemID", ScriptArgument.ArgumentTypes.Int, {"20", "42", "43"})}.ToList(), "Adds the steps of the Repel to the Repel steps of the player."))
End Sub
Private Shared Sub DoInventory()
'Constructs:
' Constructs:
r(New ScriptCommand("inventory", "countitem", "int", {New ScriptArgument("itemID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of the Item with the given ID in the player's inventory.", ",", True))
r(New ScriptCommand("inventory", "countitems", "int", "Counts all items in the player's inventory.", ",", True))
r(New ScriptCommand("inventory", "name", "str", {New ScriptArgument("itemID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the name of an Item by its ItemID.", ",", True))
@ -286,12 +286,12 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoChat()
'Commands:
' Commands:
r(New ScriptCommand("chat", "clear", "Clears the chat."))
End Sub
Private Shared Sub DoScreen()
'Commands:
' Commands:
r(New ScriptCommand("screen", "storagesystem", "Opens the storage system."))
r(New ScriptCommand("screen", "apricornkurt", "Opens the Apricorn Screen."))
r(New ScriptCommand("screen", "trade", {New ScriptArgument("tradeItems", ScriptArgument.ArgumentTypes.ItemCollection),
@ -303,12 +303,12 @@ Namespace ScriptVersion2
r(New ScriptCommand("screen", "fadein", {New ScriptArgument("fadeSpeed", ScriptArgument.ArgumentTypes.Int, True, "5")}.ToList(), "Fades the screen back in."))
r(New ScriptCommand("screen", "fadeout", {New ScriptArgument("fadeSpeed", ScriptArgument.ArgumentTypes.Int, True, "5")}.ToList(), "Fades the screen to black."))
r(New ScriptCommand("screen", "setfade", {New ScriptArgument("fadeValue", ScriptArgument.ArgumentTypes.Int, {"0-255"})}.ToList(), "Sets the alpha value of the screen fade."))
r(New ScriptCommand("screen", "credits", {New ScriptArgument("ending", ScriptArgument.ArgumentTypes.Str, True, "Johto")}.ToList(), "Displays a credits scene."))
r(New ScriptCommand("screen", "credits", {New ScriptArgument("ending", ScriptArgument.ArgumentTypes.Str, True, "Johto")}.ToList(), "Displays the credits scene."))
r(New ScriptCommand("screen", "halloffame", {New ScriptArgument("displayEntryIndex", ScriptArgument.ArgumentTypes.Int, True, "")}.ToList(), "Displays the Hall of Fame. If the argument ""displayEntryIndex"" is not empty, it displays only that entry."))
r(New ScriptCommand("screen", "teachmoves", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("moveIDs", ScriptArgument.ArgumentTypes.IntArr, True, "")}.ToList(), "Displays a move learn screen. If the argument ""moveIDs"" is left empty, it defaults to the Pokémon's tutor moves."))
r(New ScriptCommand("screen", "mailsystem", "Opens the PC Inbox screen."))
r(New ScriptCommand("screen", "pvp", "Opens the PVP lobby screen (not finished yet, don't use)."))
r(New ScriptCommand("screen", "pvp", "Opens the PvP lobby screen (not finished yet, don't use)."))
r(New ScriptCommand("screen", "input", {New ScriptArgument("defaultName", ScriptArgument.ArgumentTypes.Str, True, ""),
New ScriptArgument("inputMode", ScriptArgument.ArgumentTypes.Str, {"0-2", "name", "text", "numbers"}, True, "0"),
New ScriptArgument("currentText", ScriptArgument.ArgumentTypes.Str, True, ""),
@ -318,14 +318,14 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoScript()
'Commands:
' Commands:
r(New ScriptCommand("script", "start", {New ScriptArgument("scriptFile", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Starts a script with the given filename (without file extension)."))
r(New ScriptCommand("script", "text", {New ScriptArgument("text", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Starts a script with a simple text to display."))
r(New ScriptCommand("script", "run", {New ScriptArgument("scriptContent", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Runs script content. New lines are represented with ""^""."))
End Sub
Private Shared Sub DoRegister()
'Commands:
' Commands:
r(New ScriptCommand("register", "register", {New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Registers a new register with the given name."))
r(New ScriptCommand("register", "register", {New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str),
New ScriptArgument("type", ScriptArgument.ArgumentTypes.Str, {"str", "int", "sng", "bool"}),
@ -337,7 +337,7 @@ Namespace ScriptVersion2
New ScriptArgument("time", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("timeFormat", ScriptArgument.ArgumentTypes.Str, {"days", "hours", "minutes", "seconds", "years", "weeks", "months", "dayofweek"})}.ToList(), "Registers a time based register."))
'Constructs:
' Constructs:
r(New ScriptCommand("register", "registered", "bool", {New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Checks if a register with the given name is registered.", ",", True))
r(New ScriptCommand("register", "count", "int", "Counts all registers.", ",", True))
r(New ScriptCommand("register", "type", "str", {New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the type of a register with the given name.", ",", True))
@ -345,7 +345,7 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoStorage()
'Commands:
' Commands:
r(New ScriptCommand("storage", "set", {New ScriptArgument("type", ScriptArgument.ArgumentTypes.Str, {"pokemon", "item", "string", "integer", "boolean", "single", "str", "int", "bool", "sng"}),
New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str),
New ScriptArgument("value", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Creates or overwrites a storage with the given name and type."))
@ -355,14 +355,14 @@ Namespace ScriptVersion2
New ScriptArgument("operation", ScriptArgument.ArgumentTypes.Str, {"add", "substract", "multiply", "divide"}),
New ScriptArgument("value", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Updates the value in a storage with the given name and type."))
'Constructs:
' Constructs:
r(New ScriptCommand("storage", "get", "str", {New ScriptArgument("type", ScriptArgument.ArgumentTypes.Str, {"pokemon", "item", "string", "integer", "boolean", "single", "str", "int", "bool", "sng"}),
New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Returns the value for the storage with the type ""type"" and name ""name"".", ",", True))
r(New ScriptCommand("storage", "count", "int", {New ScriptArgument("type", ScriptArgument.ArgumentTypes.Str, {"pokemon", "item", "string", "integer", "boolean", "single", "str", "int", "bool", "sng"})}.ToList(), "Returns the amount of items in the storage for a specific type.", ",", True))
End Sub
Private Shared Sub DoSystem()
'Constructs:
' Constructs:
r(New ScriptCommand("system", "random", "int", {New ScriptArgument("min", ScriptArgument.ArgumentTypes.Int, True, "1"),
New ScriptArgument("max", ScriptArgument.ArgumentTypes.Int, True, "2")}.ToList(), "Generates a random number between min and max, inclusive.", ",", True))
r(New ScriptCommand("system", "unixtimestamp", "int", "Returns the UNIX timestamp for the current computer time.", ",", True))
@ -386,7 +386,7 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoEnvironment()
'Commands:
' Commands:
r(New ScriptCommand("environment", "setweather", {New ScriptArgument("weatherType", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Changes the weather type of the current map."))
r(New ScriptCommand("environment", "setregionweather", {New ScriptArgument("weatherID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Changes the weather of the current region."))
r(New ScriptCommand("environment", "setcanfly", {New ScriptArgument("canfly", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Sets the ""CanFly"" parameter of the current map."))
@ -399,7 +399,7 @@ Namespace ScriptVersion2
r(New ScriptCommand("environment", "setrenderdistance", {New ScriptArgument("distance", ScriptArgument.ArgumentTypes.Str, {"0-4", "tiny", "small", "normal", "far", "extreme"})}.ToList(), "Sets the render distance."))
r(New ScriptCommand("environment", "toggledarkness", "Toggles the ""IsDark"" parameter of the current map."))
'Constructs:
' Constructs:
r(New ScriptCommand("environment", "daytime", "str", "Returns the current DayTime of the game.", ",", True))
r(New ScriptCommand("environment", "daytimeID", "int", "Returns the current DayTimeID of the game.", ",", True))
r(New ScriptCommand("environment", "season", "str", "Returns the current Season of the game.", ",", True))
@ -428,7 +428,7 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoPlayer()
'Commands:
' Commands:
r(New ScriptCommand("player", "receivepokedex", "Makes the Pokédex accessible for the player."))
r(New ScriptCommand("player", "receivepokegear", "Makes the Pokégear accessible for the player."))
r(New ScriptCommand("player", "renamerival", "Opens the rival rename screen."))
@ -459,23 +459,23 @@ Namespace ScriptVersion2
New ScriptArgument("y", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("z", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the direction the player will move next regardless of facing."))
r(New ScriptCommand("player", "resetmovement", "Resets the player movement to the default movement directions."))
r(New ScriptCommand("player", "getbadge", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the given badge to the player's badges and displays a message."))
r(New ScriptCommand("player", "removebadge", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the given badge from the player's badges."))
r(New ScriptCommand("player", "addbadge", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the given badge from the player's badges."))
r(New ScriptCommand("player", "getbadge", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the given Badge to the player's Badges and displays a message."))
r(New ScriptCommand("player", "removebadge", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the given Badge from the player's Badges."))
r(New ScriptCommand("player", "addbadge", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the given Badge from the player's Badges."))
r(New ScriptCommand("player", "achieveemblem", {New ScriptArgument("emblemName", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Makes the player achieve an emblem (GameJolt only)."))
r(New ScriptCommand("player", "addbp", {New ScriptArgument("amount", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the given amount to the player's BattlePoints."))
r(New ScriptCommand("player", "showrod", {New ScriptArgument("rodID", ScriptArgument.ArgumentTypes.Int, {"0-2"})}.ToList(), "Displays a rod on the screen."))
r(New ScriptCommand("player", "hiderod", "Hides the fishing rod."))
r(New ScriptCommand("player", "showpokemonfollow", "Shows up the following Pokémon."))
r(New ScriptCommand("player", "addbp", {New ScriptArgument("amount", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the given amount to the player's Battle Points."))
r(New ScriptCommand("player", "showrod", {New ScriptArgument("rodID", ScriptArgument.ArgumentTypes.Int, {"0-2"})}.ToList(), "Displays a Fishing Rod on the screen."))
r(New ScriptCommand("player", "hiderod", "Hides the Fishing Rod."))
r(New ScriptCommand("player", "showpokemonfollow", "Shows the following Pokémon."))
r(New ScriptCommand("player", "hidepokemonfollow", "Hides the following Pokémon."))
r(New ScriptCommand("player", "togglepokemonfollow", "Toggles the following Pokémon's visibility."))
r(New ScriptCommand("player", "save", "Saves the game."))
r(New ScriptCommand("player", "setrivalname", {New ScriptArgument("name", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets the rival's name."))
r(New ScriptCommand("player", "setopacity", {New ScriptArgument("opacity", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Sets the player entity's opacity."))
'Constructs:
r(New ScriptCommand("player", "position", "sngarr", {New ScriptArgument("coordinate", ScriptArgument.ArgumentTypes.StrArr, {"x", "y", "z"}, True, "")}.ToList(), "Returns the position of the player. The normal coordinate combination is ""x,y,z"".", ",", True))
r(New ScriptCommand("player", "hasbadge", "bool", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the player owns a specific badge.", ",", True))
' Constructs:
r(New ScriptCommand("player", "position", "sngarr", {New ScriptArgument("coordinate", ScriptArgument.ArgumentTypes.StrArr, {"x", "y", "z"}, True, "")}.ToList(), "Returns the position of the player. The normal coordinate combination is ""X,Y,Z"".", ",", True))
r(New ScriptCommand("player", "hasbadge", "bool", {New ScriptArgument("badgeID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the player owns a specific Badge.", ",", True))
r(New ScriptCommand("player", "skin", "str", "Returns the current skin the player wears.", ",", True))
r(New ScriptCommand("player", "velocity", "sng", "Returns the player's velocity (steps until the player movement ends).", ",", True))
r(New ScriptCommand("player", "ismoving", "bool", "Returns if the player moves.", ",", True))
@ -484,19 +484,19 @@ Namespace ScriptVersion2
r(New ScriptCommand("player", "money", "int", "Returns the player's money.", ",", True))
r(New ScriptCommand("player", "name", "str", "Returns the player's name", ",", True))
r(New ScriptCommand("player", "gender", "int", "Returns the player's gender (0=male, 1=female)", ",", True))
r(New ScriptCommand("player", "bp", "int", "Returns the amount of BattlePoints the player owns.", ",", True))
r(New ScriptCommand("player", "badges", "int", "Returns the amount of badges the player owns", ",", True))
r(New ScriptCommand("player", "bp", "int", "Returns the amount of Battle Points the player owns.", ",", True))
r(New ScriptCommand("player", "badges", "int", "Returns the amount of Badges the player owns", ",", True))
r(New ScriptCommand("player", "thirdperson", "bool", "Returns if the game is currently played in third person.", ",", True))
r(New ScriptCommand("player", "rival", "str", "Returns the rival's name.", ",", True))
r(New ScriptCommand("player", "rivalname", "str", "Returns the rival's name.", ",", True))
r(New ScriptCommand("player", "ot", "str", "Returns the player's OT.", ",", True))
r(New ScriptCommand("player", "gamejoltid", "str", "Returns the player's GameJoltID.", ",", True))
r(New ScriptCommand("player", "ot", "str", "Returns the player's Original Trainer value.", ",", True))
r(New ScriptCommand("player", "gamejoltid", "str", "Returns the player's GameJolt ID.", ",", True))
r(New ScriptCommand("player", "haspokedex", "bool", "Returns if the player received the Pokédex.", ",", True))
r(New ScriptCommand("player", "haspokegear", "bool", "Returns if the player received the Pokégear.", ",", True))
End Sub
Private Shared Sub DoNPC()
'Commands:
' Commands:
r(New ScriptCommand("npc", "remove", {New ScriptArgument("npcID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the selected NPC from the map."))
r(New ScriptCommand("npc", "position", {New ScriptArgument("npcID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("x", ScriptArgument.ArgumentTypes.Sng),
@ -536,7 +536,7 @@ Namespace ScriptVersion2
r(New ScriptCommand("npc", "setspeed", {New ScriptArgument("npcID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("speed", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Sets the speed of an NPC. The default is ""1""."))
'Constructs:
' Constructs:
r(New ScriptCommand("npc", "position", "sngArr", {New ScriptArgument("npcID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the position of the selected NPC.", ",", True))
r(New ScriptCommand("npc", "exists", "bool", {New ScriptArgument("npcID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if an NPC with the given ID exists on the map.", ",", True))
r(New ScriptCommand("npc", "ismoving", "bool", {New ScriptArgument("npcID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the selected NPC is moving.", ",", True))
@ -553,26 +553,26 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoRadio()
'Commands:
r(New ScriptCommand("radio", "allowchannel", {New ScriptArgument("channel", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Allows a channel on the map."))
r(New ScriptCommand("radio", "blockchannel", {New ScriptArgument("channel", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Blocks a channel on the map."))
'Constructs:
' Commands:
r(New ScriptCommand("radio", "allowchannel", {New ScriptArgument("channel", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Allows a Radio channel on the map."))
r(New ScriptCommand("radio", "blockchannel", {New ScriptArgument("channel", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Blocks a Radio channel on the map."))
' Constructs:
r(New ScriptCommand("radio", "currentchannel", "str", "Returns the name of the channel that is currently playing.", "", True))
End Sub
Private Shared Sub DoPokedex()
'Commands:
' Commands:
r(New ScriptCommand("pokedex", "setautodetect", {New ScriptArgument("autodetect", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Sets if the Pokédex registers seen Pokémon in wild or trainer battles."))
'Constructs:
' Constructs:
r(New ScriptCommand("pokedex", "caught", "int", "Returns the amount of Pokémon registered as caught by the player.", "", True))
r(New ScriptCommand("pokedex", "seen", "int", "Returns the amount of Pokémon registered as seen by the player.", "", True))
r(New ScriptCommand("pokedex", "shiny", "int", "Returns the amount of Pokémon registered as shiny by the player.", "", True))
r(New ScriptCommand("pokedex", "shiny", "int", "Returns the amount of Pokémon registered as Shiny by the player.", "", True))
r(New ScriptCommand("pokedex", "dexcaught", "int", {New ScriptArgument("dexIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of Pokémon registered as caught by the player for a specific Pokédex.", "", True))
r(New ScriptCommand("pokedex", "dexseen", "int", {New ScriptArgument("dexIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of Pokémon registered as seen by the player for a specific Pokédex.", "", True))
End Sub
Private Shared Sub DoMath()
'Constructs:
' Constructs:
r(New ScriptCommand("math", "int", "int", {New ScriptArgument("expression", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Converts the argument to an integer.", "", True))
r(New ScriptCommand("math", "sng", "sng", {New ScriptArgument("expression", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Converts the argument to a single.", "", True))
r(New ScriptCommand("math", "abs", "sng", {New ScriptArgument("expression", ScriptArgument.ArgumentTypes.Sng)}.ToList(), "Returns the absolute value of a number.", "", True))
@ -589,48 +589,48 @@ Namespace ScriptVersion2
End Sub
Private Shared Sub DoRival()
'Constructs:
' Constructs:
r(New ScriptCommand("rival", "name", "str", "Returns the rival's name", "", True))
End Sub
Private Shared Sub DoDaycare()
'Commands:
r(New ScriptCommand("daycare", "takeegg", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the egg from the daycare and adds it to the player's party."))
' Commands:
r(New ScriptCommand("daycare", "takeegg", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the Egg from the Day Care and adds it to the player's party."))
r(New ScriptCommand("daycare", "takepokemon", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Takes a Pokémon from the daycare to the player's party."))
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Takes a Pokémon from the Day Care to the player's party."))
r(New ScriptCommand("daycare", "leavepokemon", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("PokemonDaycareIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes a Pokémon from the player's party and fills the given PokemonDaycareIndex with that Pokémon."))
r(New ScriptCommand("daycare", "removeegg", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the egg from the daycare."))
r(New ScriptCommand("daycare", "clean", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Cleans all data for the given daycare. This doesn't remove the data, just rearranges it."))
r(New ScriptCommand("daycare", "call", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Initializes a call with the daycare. This checks if the daycare is registered in the Pokégear."))
r(New ScriptCommand("daycare", "cleardata", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Clears all the data for one daycare. That includes the Pokémon stored there and a potential egg."))
r(New ScriptCommand("daycare", "removeegg", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the Egg from the Day Care."))
r(New ScriptCommand("daycare", "clean", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Cleans all data for the given Day Care. This doesn't remove the data, just rearranges it."))
r(New ScriptCommand("daycare", "call", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Initializes a call with the Day Care. This checks if the Day Care is registered in the Pokégear."))
r(New ScriptCommand("daycare", "cleardata", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Clears all the data for one Day Care. That includes the Pokémon stored there and a potential Egg."))
'Constructs:
' Constructs:
r(New ScriptCommand("daycare", "pokemonID", "int", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Pokémon ID of a Pokémon in the daycare.", ",", True))
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Pokémon ID of a Pokémon in the Day Care.", ",", True))
r(New ScriptCommand("daycare", "pokemonName", "str", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the name of a Pokémon in the daycare.", ",", True))
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the name of a Pokémon in the Day Care.", ",", True))
r(New ScriptCommand("daycare", "pokemonSprite", "str", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the sprite of a Pokémon in the daycare.", ",", True))
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the sprite of a Pokémon in the Day Care.", ",", True))
r(New ScriptCommand("daycare", "shinyIndicator", "str", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Shiny Indicator of a Pokémon in the daycare (either ""N"" or ""S"").", ",", True))
r(New ScriptCommand("daycare", "countpokemon", "int", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of Pokémon in the daycare.", ",", True))
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Shiny Indicator of a Pokémon in the Day Care (either ""N"" or ""S"").", ",", True))
r(New ScriptCommand("daycare", "countpokemon", "int", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of Pokémon in the Day Care.", ",", True))
r(New ScriptCommand("daycare", "haspokemon", "bool", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Pokémon ID of a Pokémon in the daycare.", ",", True))
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Pokémon ID of a Pokémon in the Day Care.", ",", True))
r(New ScriptCommand("daycare", "canswim", "bool", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the Pokémon in the daycare can swim.", ",", True))
r(New ScriptCommand("daycare", "hasegg", "bool", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the daycare has an egg.", ",", True))
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the Pokémon in the Day Care can swim.", ",", True))
r(New ScriptCommand("daycare", "hasegg", "bool", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the Day Care has an Egg.", ",", True))
r(New ScriptCommand("daycare", "grownlevels", "int", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of levels the Pokémon has grown in the daycare.", ",", True))
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the amount of levels the Pokémon has grown in the Day Care.", ",", True))
r(New ScriptCommand("daycare", "currentlevel", "int", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the current level of the Pokémon in the daycare.", ",", True))
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the current level of the Pokémon in the Day Care.", ",", True))
r(New ScriptCommand("daycare", "canbreed", "int", {New ScriptArgument("daycareID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the chance the Pokémon in the daycare can breed (in %).", ",", True))
New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the chance the Pokémon in the Day Care can breed (in %).", ",", True))
End Sub
Private Shared Sub DoPokemon()
'Commands:
' Commands:
r(New ScriptCommand("pokemon", "cry", {New ScriptArgument("pokemonID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Plays the cry of the given Pokémon."))
r(New ScriptCommand("pokemon", "remove", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Removes the Pokémon at the given party index."))
r(New ScriptCommand("pokemon", "add", {New ScriptArgument("pokemonData", ScriptArgument.ArgumentTypes.PokemonData)}.ToList(), "Adds the Pokémon to the player's party."))
@ -646,7 +646,7 @@ Namespace ScriptVersion2
r(New ScriptCommand("pokemon", "setadditionaldata", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("data", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Set the additional data for a Pokémon in the player's party."))
r(New ScriptCommand("pokemon", "setnickname", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("nickName", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Set the nick name for a Pokémon in the player's party."))
New ScriptArgument("nickName", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Set the nickname for a Pokémon in the player's party."))
r(New ScriptCommand("pokemon", "setstat", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("statName", ScriptArgument.ArgumentTypes.Str, {"maxhp", "hp", "chp", "atk", "attack", "def", "defense", "spatk", "specialattack", "spattack", "spdef", "specialdefense", "spdefense", "speed"}),
New ScriptArgument("statValue", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Set the value of a stat for a Pokémon in the player's party."))
@ -657,7 +657,7 @@ Namespace ScriptVersion2
r(New ScriptCommand("pokemon", "addattack", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("attackID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds the move to a Pokémon in the player's party."))
r(New ScriptCommand("pokemon", "setshiny", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("shiny", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Sets the shiny value of a Pokémon in the player's party."))
New ScriptArgument("shiny", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Sets the Shiny value of a Pokémon in the player's party."))
r(New ScriptCommand("pokemon", "changelevel", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("newLevel", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the level of a Pokémon in the player's party."))
r(New ScriptCommand("pokemon", "gainexp", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
@ -682,13 +682,13 @@ Namespace ScriptVersion2
New ScriptArgument("register", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Trades a Pokémon with an NPC.", "|", False))
r(New ScriptCommand("pokemon", "hide", "Hides the following Pokémon."))
r(New ScriptCommand("pokemon", "rename", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Str, {"0-5", "last"}),
New ScriptArgument("OTcheck", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Opens the NameRater rename feature."))
New ScriptArgument("OTcheck", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Opens the Name Rater rename feature."))
r(New ScriptCommand("pokemon", "read", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Str, {"[empty],0-5"})}.ToList(), "Displays the reader's dialogue."))
r(New ScriptCommand("pokemon", "heal", {New ScriptArgument("pokemonIndicies", ScriptArgument.ArgumentTypes.IntArr)}.ToList(), "Heals the given Pokémon."))
r(New ScriptCommand("pokemon", "setfriendship", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Str),
New ScriptArgument("friendship", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the friendship value for a Pokémon in the player's party."))
r(New ScriptCommand("pokemon", "addfriendship", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Str),
New ScriptArgument("friendship", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds to the frienship of a Pokémon in the player's party."))
New ScriptArgument("friendship", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Adds to the frienship value of a Pokémon in the player's party."))
r(New ScriptCommand("pokemon", "select", {New ScriptArgument("canExit", ScriptArgument.ArgumentTypes.Bool),
New ScriptArgument("canChooseEgg", ScriptArgument.ArgumentTypes.Bool),
New ScriptArgument("canChooseFainted", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Opens the Pokémon select screen."))
@ -701,16 +701,16 @@ Namespace ScriptVersion2
r(New ScriptCommand("pokemon", "setgender", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("genderID", ScriptArgument.ArgumentTypes.Int, {"0-2"})}.ToList(), "Sets a Pokémon's gender."))
r(New ScriptCommand("pokemon", "setability", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("abilityID", ScriptArgument.ArgumentTypes.Int, {"0-188"})}.ToList(), "Sets the ability of a Pokémon in the player's party."))
New ScriptArgument("abilityID", ScriptArgument.ArgumentTypes.Int, {"0-188"})}.ToList(), "Sets the Ability of a Pokémon in the player's party."))
r(New ScriptCommand("pokemon", "setev", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("evStat", ScriptArgument.ArgumentTypes.Str, {"hp", "atk", "attack", "def", "defense", "spatk", "specialattack", "spattack", "spdef", "specialdefense", "spdefense", "speed"}),
New ScriptArgument("evValue", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the value of the EV stat of a Pokémon in the player's party."))
New ScriptArgument("evValue", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the value of the Effort Value stat of a Pokémon in the player's party."))
r(New ScriptCommand("pokemon", "setiv", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("ivStat", ScriptArgument.ArgumentTypes.Str, {"hp", "atk", "attack", "def", "defense", "spatk", "specialattack", "spattack", "spdef", "specialdefense", "spdefense", "speed"}),
New ScriptArgument("ivValue", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the value of the IV stat of a Pokémon in the player's party."))
New ScriptArgument("ivValue", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the value of the Individual Value stat of a Pokémon in the player's party."))
r(New ScriptCommand("pokemon", "registerhalloffame", "Registers the current party as new Hall of Fame entry."))
r(New ScriptCommand("pokemon", "setOT", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("newOT", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets the OT of a Pokémon in the player's party."))
New ScriptArgument("newOT", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets the Original Trainer of a Pokémon in the player's party."))
r(New ScriptCommand("pokemon", "setItem", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("itemID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Sets the item of a Pokémon in the player's party."))
r(New ScriptCommand("pokemon", "setItemData", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
@ -728,7 +728,7 @@ Namespace ScriptVersion2
r(New ScriptCommand("pokemon", "newroaming", {New ScriptArgument("pokemonID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("level", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("regionID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("startMap", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Adds a new roaming Pokémon to the list of roaming Pokémon.", "|", False))
New ScriptArgument("startMap", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Adds a new Roaming Pokémon to the list of Roaming Pokémon.", "|", False))
r(New ScriptCommand("pokemon", "evolve", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("evolutionTrigger", ScriptArgument.ArgumentTypes.Str, {"level", "none", "item", "trade"}, True, "level"),
New ScriptArgument("evolutionArgument", ScriptArgument.ArgumentTypes.Str, True, "")}.ToList(), "Tries to evolve a Pokémon with the given conditions."))
@ -736,30 +736,30 @@ Namespace ScriptVersion2
r(New ScriptCommand("pokemon", "clone", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Clones the given Pokémon in the player's party."))
'Constructs:
' Constructs:
r(New ScriptCommand("pokemon", "id", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the ID of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "number", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the ID of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "data", "pokemonData", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the save data for a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "level", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the level of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "hasfullhp", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if a Pokémon in the player's party has full HP.", ",", True))
r(New ScriptCommand("pokemon", "hp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the HP of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "atk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the atk stat of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "def", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the def stat of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "spatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the spatk stat of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "spdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the spdef stat of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "speed", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the speed stat of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "maxhp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the max hp of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "isegg", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Pokémon in the players party is an egg.", ",", True))
r(New ScriptCommand("pokemon", "hasfullhp", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if a Pokémon in the player's party has a full Hit Point count.", ",", True))
r(New ScriptCommand("pokemon", "hp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Hit Points of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "atk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Attack stat of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "def", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Defense stat of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "spatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Attack stat of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "spdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Defense stat of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "speed", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Speed stat of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "maxhp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Maximum Hit Points of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "isegg", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Pokémon in the players party is an Egg.", ",", True))
r(New ScriptCommand("pokemon", "additionaldata", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the additional data for the Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "nickname", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the nick name of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "hasnickname", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if a Pokémon in the player's party has a nick name.", ",", True))
r(New ScriptCommand("pokemon", "nickname", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the nickname of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "hasnickname", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if a Pokémon in the player's party has a nickname.", ",", True))
r(New ScriptCommand("pokemon", "name", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the name of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ot", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the OT of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ot", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Original Trainer of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "trainer", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the trainer of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "itemid", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the ID of the item of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "friendship", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the friendship value of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "itemname", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the item name of the item of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "catchball", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the ID of the Pokéball the Pokémon was caught in.", ",", True))
r(New ScriptCommand("pokemon", "catchball", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the ID of the Poké Ball the Pokémon was caught in.", ",", True))
r(New ScriptCommand("pokemon", "catchmethod", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the method the Pokémon was caught.", ",", True))
r(New ScriptCommand("pokemon", "catchlocation", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the location the Pokémon was caught in.", ",", True))
r(New ScriptCommand("pokemon", "hasattack", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
@ -767,7 +767,7 @@ Namespace ScriptVersion2
r(New ScriptCommand("pokemon", "countattacks", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Counts the moves the Pokémon knows.", ",", True))
r(New ScriptCommand("pokemon", "attackname", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("moveIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the name of the move of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "isShiny", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the Pokémon is shiny.", ",", True))
r(New ScriptCommand("pokemon", "isShiny", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the Pokémon is Shiny.", ",", True))
r(New ScriptCommand("pokemon", "nature", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the nature of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ownpokemon", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if a Pokémon in the player's party was caught by the player.", ",", True))
r(New ScriptCommand("pokemon", "islegendary", "bool", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if a Pokémon in the player's party is a legendary Pokémon.", ",", True))
@ -778,19 +778,19 @@ Namespace ScriptVersion2
r(New ScriptCommand("pokemon", "has", "bool", {New ScriptArgument("pokemonID", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns if the player has the specified Pokémon in their party.", ",", True))
r(New ScriptCommand("pokemon", "selected", "int", "Returns the index of the selector in the player's party. (Set with @pokemon.select)", ",", True))
r(New ScriptCommand("pokemon", "selectedmove", "int", "Returns the index of the move selected. (Set with @pokemon.selectmove)", ",", True))
r(New ScriptCommand("pokemon", "hasegg", "bool", "Returns if the player has an egg in their party.", ",", True))
r(New ScriptCommand("pokemon", "hasegg", "bool", "Returns if the player has an Egg in their party.", ",", True))
r(New ScriptCommand("pokemon", "maxpartylevel", "int", "Returns the maximum level a Pokémon has in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "evhp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the HP EVs of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "evatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Attack EVs of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "evdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Defense EVs of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "evspatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Attack EVs of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "evspdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Defense EVs of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "evspeed", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Speed EVs of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ivhp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the HP IVs of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ivatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Attack IVs of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ivdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Defense IVs of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ivspatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Attack IVs of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ivspdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Defense IVs of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "evhp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Hit Point Effort Values of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "evatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Attack Effort Values of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "evdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Defense Effort Values of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "evspatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Attack Effort Values of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "evspdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Defense Effort Values of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "evspeed", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Speed Effort Values of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ivhp", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Jit Point Individual Values of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ivatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Attack Individual Values of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ivdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Defense Individual Values of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ivspatk", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Attack Individual Values of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "ivspdef", "int", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the Special Defense Individual Values of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "spawnwild", "pokemonData", "Returns the data for a Pokémon that can spawn in the current location.", ",", True))
r(New ScriptCommand("pokemon", "itemdata", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the data of the item of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "countHallofFame", "int", "Counts the Hall of Fame entries.", ",", True))
@ -805,7 +805,7 @@ Namespace ScriptVersion2
r(New ScriptCommand("pokemon", "spawn", "pokemonData", {New ScriptArgument("pokemonID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("level", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the data for a Pokémon.", ",", True))
r(New ScriptCommand("pokemon", "OTmatch", "bool,int,str", {New ScriptArgument("checkOT", ScriptArgument.ArgumentTypes.Str),
New ScriptArgument("returnType", ScriptArgument.ArgumentTypes.Str, {"has", "id", "number", "name", "maxhits"})}.ToList(), "Returns if the player owns a Pokémon with the given OT.", ",", True))
New ScriptArgument("returnType", ScriptArgument.ArgumentTypes.Str, {"has", "id", "number", "name", "maxhits"})}.ToList(), "Returns if the player owns a Pokémon with the given Original Trainer.", ",", True))
r(New ScriptCommand("pokemon", "randomOT", "str", "Returns a random OT (5 digit number).", ",", True))
r(New ScriptCommand("pokemon", "status", "str", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int)}.ToList(), "Returns the status condition of a Pokémon in the player's party.", ",", True))
r(New ScriptCommand("pokemon", "canevolve", {New ScriptArgument("pokemonIndex", ScriptArgument.ArgumentTypes.Int),
@ -1160,4 +1160,4 @@ Namespace ScriptVersion2
End Class
End Namespace
End Namespace

8
2.5DHero/2.5DHero/World/ActionScript/V2/ScriptV2.vb
View File

@ -160,8 +160,8 @@
End Sub
Private Sub DoWhile()
'if T equals false, go straight to :endwhile and clear any existing while query, else initialize a while query that collects every single script line that gets executed starting with :while and ending with :endwhile
'a exitwhile directly goes to :endwhile and clears the query
' If T equals false, go straight to :endwhile and clear any existing while query, else initialize a while query that collects every single script line that gets executed starting with :while and ending with :endwhile.
' A exitwhile directly goes to :endwhile and clears the query.
Dim T As Boolean = CheckCondition()
If T = True Then
@ -171,7 +171,7 @@
ActionScript.CSL().WhileQuery.Clear()
ActionScript.CSL().WhileQueryInitialized = False
'Skip to endwhile:
' Skip to endwhile:
Dim oS As OverworldScreen = CType(Core.CurrentScreen, OverworldScreen)
While oS.ActionScript.Scripts.Count > 0 AndAlso oS.ActionScript.Scripts(0).ScriptV2.ScriptType <> ScriptTypes.endwhile
@ -186,7 +186,7 @@
ActionScript.CSL().WhileQuery.Clear()
ActionScript.CSL().WhileQueryInitialized = True
'Skip to endwhile:
' Skip to endwhile:
Dim oS As OverworldScreen = CType(Core.CurrentScreen, OverworldScreen)
While oS.ActionScript.Scripts.Count > 0 AndAlso oS.ActionScript.Scripts(0).ScriptV2.ScriptType <> ScriptTypes.endwhile

30
2.5DHero/2.5DHero/World/Badge.vb
View File

@ -1,5 +1,5 @@
''' <summary>
''' This class handles all actions regarding badge loading and displaying.
''' This class handles all actions regarding Badge loading and displaying.
''' </summary>
Public Class Badge
@ -19,7 +19,7 @@ Public Class Badge
Private Shared Badges As New List(Of BadgeDeclaration)
''' <summary>
''' This describes one badge loaded by a GameMode with ID, Name, Texture and Arguments
''' This describes one Badge loaded by a GameMode with ID, Name, Texture and Arguments.
''' </summary>
Private Class BadgeDeclaration
@ -86,7 +86,7 @@ Public Class Badge
End Class
''' <summary>
''' Loads the badges. Only use after the GameMode got set.
''' Loads the Badges. Only use after the GameMode got set.
''' </summary>
Public Shared Sub Load()
Badges.Clear()
@ -104,9 +104,9 @@ Public Class Badge
#Region "GetFunctions"
''' <summary>
''' Gets the badge name.
''' Gets the Badge name.
''' </summary>
''' <param name="ID">The ID of the badge.</param>
''' <param name="ID">The ID of the Badge.</param>
Public Shared Function GetBadgeName(ByVal ID As Integer) As String
For Each b As BadgeDeclaration In Badges
If b.ID = ID Then
@ -144,9 +144,9 @@ Public Class Badge
End Function
''' <summary>
''' Checks if the player is able to perform a certain HM move.
''' Checks if the player is able to perform a certain Hidden Machine move.
''' </summary>
''' <param name="HM">The HM move the player tries to use.</param>
''' <param name="HM">The Hidden Machine move the player tries to use.</param>
Public Shared Function CanUseHMMove(ByVal HM As HMMoves) As Boolean
Dim trainerBadges As List(Of Integer) = Core.Player.Badges
For Each b As BadgeDeclaration In Badges
@ -160,7 +160,7 @@ Public Class Badge
''' <summary>
''' Gets the region.
''' </summary>
''' <param name="index">The index of the region in the badges enumeration.</param>
''' <param name="index">The index of the region in the Badges enumeration.</param>
Public Shared Function GetRegion(ByVal index As Integer) As String
Dim regions As New List(Of String)
For Each b As BadgeDeclaration In Badges
@ -176,9 +176,9 @@ Public Class Badge
End Function
''' <summary>
''' Gets the amount of badges in a certain region.
''' Gets the amount of Badges in a certain region.
''' </summary>
''' <param name="region">The region to count the badges.</param>
''' <param name="region">The region to count the Badges.</param>
Public Shared Function GetBadgesCount(ByVal region As String) As Integer
Dim c As Integer = 0
For Each b As BadgeDeclaration In Badges
@ -203,10 +203,10 @@ Public Class Badge
End Function
''' <summary>
''' Gets the ID of a badge.
''' Gets the ID of a Badge.
''' </summary>
''' <param name="region">The region this badge is from.</param>
''' <param name="index">The index of this badge.</param>
''' <param name="region">The region this Badge is from.</param>
''' <param name="index">The index of this Badge.</param>
Public Shared Function GetBadgeID(ByVal region As String, ByVal index As Integer) As Integer
Dim cBadges As New List(Of BadgeDeclaration)
For Each b As BadgeDeclaration In Badges
@ -222,7 +222,7 @@ Public Class Badge
End Function
''' <summary>
''' Checks if the player has a certain badge.
''' Checks if the player has a certain Badge.
''' </summary>
''' <param name="BadgeID">The Badge ID to check for.</param>
Public Shared Function PlayerHasBadge(ByVal BadgeID As Integer) As Boolean
@ -231,4 +231,4 @@ Public Class Badge
#End Region
End Class
End Class

2
2.5DHero/2.5DHero/World/BaseEntity.vb
View File

@ -18,4 +18,4 @@ Public MustInherit Class BaseEntity
Me._entityType = EntityType
End Sub
End Class
End Class

150
2.5DHero/2.5DHero/World/Level.vb
View File

@ -19,16 +19,16 @@ Public Class Level
''' </summary>
Public PokemonEncounterData As PokemonEcounterDataStruct
'Level states:
' Level states:
Private _isSurfing As Boolean = False
Private _isRiding As Boolean = False
Private _usedStrength As Boolean = False
Private _isDark As Boolean = False
Private _walkedSteps As Integer = 0
Private _offsetMapUpdateDelay As Integer = 50 'Ticks until the next Offset Map update occurs.
Private _offsetMapUpdateDelay As Integer = 50 ' Ticks until the next Offset Map update occurs.
'Map properties:
' Map properties:
Private _terrain As Terrain = New Terrain(net.Pokemon3D.Game.Terrain.TerrainTypes.Plain)
Private _mapName As String = ""
Private _musicLoop As String = ""
@ -52,7 +52,7 @@ Public Class Level
Private _bugCatchingContestData As String = ""
Private _battleMapData As String = ""
'Entity enumerations:
' Entity enumerations:
Private _ownPlayer As OwnPlayer
Private _ownOverworldPokemon As OverworldPokemon
@ -67,7 +67,7 @@ Public Class Level
Private _offsetMapEntities As New List(Of Entity)
Private _offsetMapFloors As New List(Of Entity)
'Radio:
' Radio:
Private _isRadioOn As Boolean = False
Private _selectedRadioStation As GameJolt.PokegearScreen.RadioStation = Nothing
Private _radioChannels As New List(Of Decimal)
@ -98,7 +98,7 @@ Public Class Level
End Property
''' <summary>
''' Indicates wether the player is surfing.
''' Indicates whether the player is Surfing.
''' </summary>
Public Property Surfing() As Boolean
Get
@ -110,7 +110,7 @@ Public Class Level
End Property
''' <summary>
''' Indicates wether the player is riding.
''' Indicates whether the player is Riding.
''' </summary>
Public Property Riding() As Boolean
Get
@ -122,7 +122,7 @@ Public Class Level
End Property
''' <summary>
''' Indicates wether the player used Strength already.
''' Indicates whether the player used Strength already.
''' </summary>
Public Property UsedStrength() As Boolean
Get
@ -257,7 +257,7 @@ Public Class Level
''' <summary>
''' The default background music for this level.
''' </summary>
''' <remarks>Doesn't play for surfing, riding and radio.</remarks>
''' <remarks>Doesn't play for Surfing, Riding and Radio.</remarks>
Public Property MusicLoop() As String
Get
Return Me._musicLoop
@ -281,7 +281,7 @@ Public Class Level
End Property
''' <summary>
''' Wether the player can use the move Teleport.
''' Whether the player can use the move Teleport.
''' </summary>
Public Property CanTeleport As Boolean
Get
@ -293,7 +293,7 @@ Public Class Level
End Property
''' <summary>
''' Wether the player can use the move Dig or an Escape Rope.
''' Whether the player can use the move Dig or an Escape Rope.
''' </summary>
Public Property CanDig As Boolean
Get
@ -305,7 +305,7 @@ Public Class Level
End Property
''' <summary>
''' Wether the player can use the move Fly.
''' Whether the player can use the move Fly.
''' </summary>
Public Property CanFly As Boolean
Get
@ -355,7 +355,7 @@ Public Class Level
End Property
''' <summary>
''' Wether the player can encounter wild Pokémon in the Grass entities.
''' Whether the player can encounter wild Pokémon in the Grass entities.
''' </summary>
Public Property WildPokemonGrass As Boolean
Get
@ -367,7 +367,7 @@ Public Class Level
End Property
''' <summary>
''' Wether the player can encounter wild Pokémon on every floor tile.
''' Whether the player can encounter wild Pokémon on every floor tile.
''' </summary>
Public Property WildPokemonFloor As Boolean
Get
@ -379,7 +379,7 @@ Public Class Level
End Property
''' <summary>
''' Wether the player can encounter wild Pokémon while surfing.
''' Whether the player can encounter wild Pokémon while Surfing.
''' </summary>
Public Property WildPokemonWater As Boolean
Get
@ -391,7 +391,7 @@ Public Class Level
End Property
''' <summary>
''' Wether the map is dark, and needs to be lightened up by Flash.
''' Whether the map is dark, and needs to be lightened up by Flash.
''' </summary>
Public Property IsDark As Boolean
Get
@ -403,7 +403,7 @@ Public Class Level
End Property
''' <summary>
''' Wether the Overworld Pokémon is visible.
''' Whether the Overworld Pokémon is visible.
''' </summary>
Public Property ShowOverworldPokemon As Boolean
Get
@ -440,7 +440,7 @@ Public Class Level
End Property
''' <summary>
''' Chance of a Hidden Ability being on a wild pokemon.
''' Chance of a Hidden Ability being on a wild Pokémon.
''' </summary>
Public Property HiddenAbilityChance As Integer
Get
@ -464,7 +464,7 @@ Public Class Level
End Property
''' <summary>
''' Wether the map is a part of the SafariZone. This changes the Battle Menu and the MenuScreen.
''' Whether the map is a part of the Safari Zone. This changes the Battle Menu and the Menu Screen.
''' </summary>
Public Property IsSafariZone As Boolean
Get
@ -476,7 +476,7 @@ Public Class Level
End Property
''' <summary>
''' Wether the map is a part of the BugCatchingContest. This changes the Battle Menu and the MenuScreen.
''' Whether the map is a part of the Bug Catching Contest. This changes the Battle Menu and the Menu Screen.
''' </summary>
Public Property IsBugCatchingContest As Boolean
Get
@ -532,7 +532,7 @@ Public Class Level
End Property
''' <summary>
''' Wether the radio is currently activated.
''' Whether the Radio is currently activated.
''' </summary>
Public Property IsRadioOn() As Boolean
Get
@ -544,7 +544,7 @@ Public Class Level
End Property
''' <summary>
''' The currently selected radio station. If possible, this will replace the MusicLoop.
''' The currently selected Radio station. If possible, this will replace the Music Loop.
''' </summary>
Public Property SelectedRadioStation() As GameJolt.PokegearScreen.RadioStation
Get
@ -556,7 +556,7 @@ Public Class Level
End Property
''' <summary>
''' Allowed radio channels on this map.
''' Allowed Radio channels on this map.
''' </summary>
Public Property AllowedRadioChannels() As List(Of Decimal)
Get
@ -609,7 +609,7 @@ Public Class Level
Public DoWarpInNextTick As Boolean
''' <summary>
''' Amount of 90° rotations counter clockwise.
''' Amount of 90° rotations counterclockwise.
''' </summary>
Public WarpRotations As Integer
@ -625,7 +625,7 @@ Public Class Level
End Structure
''' <summary>
''' A structure to store wild pokémon encounter data in.
''' A structure to store wild Pokémon encounter data in.
''' </summary>
Public Structure PokemonEcounterDataStruct
''' <summary>
@ -634,7 +634,7 @@ Public Class Level
Public Position As Vector3
''' <summary>
''' Wether the player encountered a Pokémon.
''' Whether the player encountered a Pokémon.
''' </summary>
Public EncounteredPokemon As Boolean
@ -695,11 +695,11 @@ Public Class Level
''' </summary>
''' <param name="Levelpath">The path to load the level from. Start with "|" to prevent loading a levelfile.</param>
Public Sub Load(ByVal Levelpath As String)
'Create a parameter array to pass over to the LevelLoader.
' Create a parameter array to pass over to the LevelLoader:
Dim params As New List(Of Object)
params.AddRange({Levelpath, False, New Vector3(0, 0, 0), 0, New List(Of String)})
'Create the world and load the level.
' Create the world and load the level:
World = New World(0, 0)
If Levelpath.StartsWith("|") = False Then
@ -710,7 +710,7 @@ Public Class Level
Logger.Debug("Don't attempt to load a levelfile.")
End If
'Create own player entity and OverworldPokémon entity and add them to the entity enumeration.
' Create own player entity and OverworldPokémon entity and add them to the entity enumeration:
OwnPlayer = New OwnPlayer(0, 0, 0, {net.Pokemon3D.Game.TextureManager.DefaultTexture}, Core.Player.Skin, 0, 0, "", "Gold", 0)
OverworldPokemon = New OverworldPokemon(Screen.Camera.Position.X, Screen.Camera.Position.Y, Screen.Camera.Position.Z + 1)
OverworldPokemon.ChangeRotation()
@ -726,20 +726,20 @@ Public Class Level
Public Sub Draw()
Me._backdropRenderer.Draw()
'Set the effect's View and Projection matrices.
' Set the effect's View and Projection matrices:
Screen.Effect.View = Screen.Camera.View
Screen.Effect.Projection = Screen.Camera.Projection
'Reset the Debug values.
' Reset the Debug values:
DebugDisplay.DrawnVertices = 0
DebugDisplay.MaxVertices = 0
DebugDisplay.MaxDistance = 0
If Core.GameOptions.LoadOffsetMaps > 0 Then
Me.RenderOffsetMap() 'Only render offset maps if they are activated.
Me.RenderOffsetMap() ' Only render offset maps if they are activated.
End If
'Render floors.
'Render floors:
For i = 0 To Me.Floors.Count - 1
If i <= Me.Floors.Count - 1 Then
Me.Floors(i).Render()
@ -747,7 +747,7 @@ Public Class Level
End If
Next
'Render all other entities.
'Render all other entities:
For i = 0 To Me.Entities.Count - 1
If i <= Me.Entities.Count - 1 Then
Me.Entities(i).Render()
@ -769,7 +769,7 @@ Public Class Level
Me.UpdatePlayerWarp()
Me._pokemonEncounter.TriggerBattle()
'Reload map from file (debug/sandbox):
' Reload map from file (Debug or Sandbox Mode):
If GameController.IS_DEBUG_ACTIVE = True Or Core.Player.SandBoxMode = True Then
If KeyBoardHandler.KeyPressed(Keys.R) = True And Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
Core.OffsetMaps.Clear()
@ -778,12 +778,12 @@ Public Class Level
End If
End If
'Update all network players and Pokémon:
' Update all network players and Pokémon:
If JoinServerScreen.Online = True Then
Core.ServersManager.PlayerManager.UpdatePlayers()
End If
'Call Update and UpdateEntity methods of all entities:
' Call Update and UpdateEntity methods of all entities:
Me.UpdateEntities()
End Sub
@ -791,7 +791,7 @@ Public Class Level
''' Updates all entities on the map and offset map and sorts the enumarations.
''' </summary>
Public Sub UpdateEntities()
'Update and remove entities:
' Update and remove entities:
If LevelLoader.IsBusy = False Then
For i = 0 To Entities.Count - 1
If i <= Entities.Count - 1 Then
@ -809,14 +809,14 @@ Public Class Level
Next
End If
'UpdateEntity for all entities:
' UpdateEntity for all entities:
For i = 0 To Me.Entities.Count - 1
If i <= Me.Entities.Count - 1 Then
Me.Entities(i).UpdateEntity()
End If
Next
'UpdateEntity for all floors:
' UpdateEntity for all floors:
For i = 0 To Me.Floors.Count - 1
If i <= Me.Floors.Count - 1 Then
Me.Floors(i).UpdateEntity()
@ -841,17 +841,17 @@ Public Class Level
Public Sub UpdateOffsetMap()
Me._isUpdatingOffsetMaps = True
If Core.GameOptions.LoadOffsetMaps > 0 Then
'The Update function of entities on offset maps are not getting called.
' The Update function of entities on offset maps are not getting called.
If Me._offsetMapUpdateDelay <= 0 Then 'Only when the delay is 0, update.
'Sort the list:
If Me._offsetMapUpdateDelay <= 0 Then ' Only when the delay is 0, update.
' Sort the list:
If LevelLoader.IsBusy = False Then
OffsetmapEntities = (From e In OffsetmapEntities Order By e.CameraDistance Descending).ToList()
End If
Me._offsetMapUpdateDelay = Core.GameOptions.LoadOffsetMaps - 1 'Set the new delay
'Remove entities that CanBeRemoved (see what I did there?)
' Remove entities that CanBeRemoved (see what I did there?):
For i = 0 To OffsetmapEntities.Count - 1
If i <= OffsetmapEntities.Count - 1 Then
If OffsetmapEntities(i).CanBeRemoved = True Then
@ -863,14 +863,14 @@ Public Class Level
End If
Next
'Call UpdateEntity on all offset map entities.
' Call UpdateEntity on all offset map entities:
For i = Me.OffsetmapEntities.Count - 1 To 0 Step -1
If i <= Me.OffsetmapEntities.Count - 1 Then
Me.OffsetmapEntities(i).UpdateEntity()
End If
Next
'Call UpdateEntity on all offset map floors.
' Call UpdateEntity on all offset map floors:
For i = Me.OffsetmapFloors.Count - 1 To 0 Step -1
If i <= Me.OffsetmapFloors.Count - 1 Then
Me.OffsetmapFloors(i).UpdateEntity()
@ -887,7 +887,7 @@ Public Class Level
''' Renders offset map entities.
''' </summary>
Private Sub RenderOffsetMap()
'Render floors:
' Render floors:
For i = 0 To Me.OffsetmapFloors.Count - 1
If i <= Me.OffsetmapFloors.Count - 1 Then
If Not Me.OffsetmapFloors(i) Is Nothing Then
@ -897,7 +897,7 @@ Public Class Level
End If
Next
'Render entities:
' Render entities:
For i = 0 To Me.OffsetmapEntities.Count - 1
If i <= Me.OffsetmapEntities.Count - 1 Then
If Not Me.OffsetmapEntities(i) Is Nothing Then
@ -919,24 +919,24 @@ Public Class Level
''' Handles warp events for the player.
''' </summary>
Private Sub UpdatePlayerWarp()
If WarpData.DoWarpInNextTick = True Then 'If a warp event got scheduled.
'Disable wild Pokémon:
If WarpData.DoWarpInNextTick = True Then ' If a warp event got scheduled.
' Disable wild Pokémon:
Me._wildPokemonFloor = False
Me.PokemonEncounterData.EncounteredPokemon = False
'Set the surfing flag for the next map:
' Set the Surfing flag for the next map:
Core.Player.startSurfing = Surfing
'Change the player position:
' Change the player position:
Screen.Camera.Position = WarpData.WarpPosition
Dim tempProperties As String = Me.CanDig.ToString() & "," & Me.CanFly.ToString() 'Store properties to determine if the "enter" sound should be played.
Dim tempProperties As String = Me.CanDig.ToString() & "," & Me.CanFly.ToString() ' Store properties to determine if the "enter" sound should be played.
'Store skin values:
' Store skin values:
Dim usingGameJoltTexture As Boolean = OwnPlayer.UsingGameJoltTexture
Core.Player.Skin = OwnPlayer.SkinName
'Load the new level:
' Load the new level:
Dim params As New List(Of Object)
params.AddRange({WarpData.WarpDestination, False, New Vector3(0, 0, 0), 0, New List(Of String)})
@ -946,11 +946,11 @@ Public Class Level
Dim levelLoader As New LevelLoader()
levelLoader.LoadLevel(params.ToArray())
Core.Player.AddVisitedMap(Me.LevelFile) 'Add new map to visited maps list.
UsedStrength = False 'Disable strength usuage upon map switch.
Me.Surfing = Core.Player.startSurfing 'Set the surfing property after map switch.
Core.Player.AddVisitedMap(Me.LevelFile) ' Add new map to visited maps list.
UsedStrength = False ' Disable Strength usuage upon map switch.
Me.Surfing = Core.Player.startSurfing ' Set the Surfing property after map switch.
'Create player and Pokémon entities.
' Create player and Pokémon entities:
OwnPlayer = New OwnPlayer(0, 0, 0, {net.Pokemon3D.Game.TextureManager.DefaultTexture}, Core.Player.Skin, 0, 0, "", "Gold", 0)
OwnPlayer.SetTexture(Core.Player.Skin, usingGameJoltTexture)
@ -959,20 +959,20 @@ Public Class Level
OverworldPokemon.warped = True
Entities.AddRange({OwnPlayer, OverworldPokemon})
'Set ride skin, if needed.
' Set Ride skin, if needed:
If Riding = True And CanRide() = False Then
Riding = False
OwnPlayer.SetTexture(Core.Player.TempRideSkin, True)
Core.Player.Skin = Core.Player.TempRideSkin
End If
'If any turns after the warp are defined, apply them:
' If any turns after the warp are defined, apply them:
Screen.Camera.InstantTurn(WarpData.WarpRotations)
'Make the routesign appear:
' Make the RouteSign appear:
Me._routeSign.Setup(MapName)
'Play the correct music track.
' Play the correct music track:
If IsRadioOn = True AndAlso GameJolt.PokegearScreen.StationCanPlay(Me.SelectedRadioStation) = True Then
MusicManager.PlayMusic(SelectedRadioStation.Music, True)
Else
@ -988,10 +988,10 @@ Public Class Level
End If
End If
'Initialize the world with newly loaded environment variables:
' Initialize the world with newly loaded environment variables:
World.Initialize(Screen.Level.EnvironmentType, Screen.Level.WeatherType)
'If this map is on the restplaces list, set the player's last restplace to this map.
' If this map is on the restplaces list, set the player's last restplace to this map:
Dim restplaces As List(Of String) = System.IO.File.ReadAllLines(GameModeManager.GetMapPath("restplaces.dat")).ToList()
For Each line As String In restplaces
@ -1002,33 +1002,33 @@ Public Class Level
End If
Next
'If the warp happened through a warp block, make the player walk one step forward after switching to the new map.
' If the warp happened through a warp block, make the player walk one step forward after switching to the new map:
If Screen.Camera.IsMoving = True And WarpData.IsWarpBlock = True Then
Screen.Camera.StopMovement()
Screen.Camera.Move(1.0F)
End If
'Because of the map change, Roaming Pokémon are moving to their next location on the world map.
' Because of the map change, Roaming Pokémon are moving to their next location on the world map:
RoamingPokemon.ShiftRoamingPokemon(-1)
'Check if the enter sound should be played by checking if CanDig or CanFly properties are different from the last map.
' Check if the enter sound should be played by checking if CanDig or CanFly properties are different from the last map:
If tempProperties <> Me.CanDig.ToString() & "," & Me.CanFly.ToString() Then
SoundManager.PlaySound("enter", False)
End If
'Unlock the yaw on the camera.
' Unlock the yaw on the camera:
CType(Screen.Camera, OverworldCamera).YawLocked = False
NetworkPlayer.ScreenRegionChanged()
'If a warp occured, update the camera:
' If a warp occured, update the camera:
Screen.Camera.Update()
'Disable the warp check:
' Disable the warp check:
Me.WarpData.DoWarpInNextTick = False
WarpData.IsWarpBlock = False
If Core.ServersManager.ServerConnection.Connected = True Then
'Update network players:
' Update network players:
Core.ServersManager.PlayerManager.NeedsUpdate = True
End If
End If
@ -1096,7 +1096,7 @@ Public Class Level
End Sub
''' <summary>
''' Determines wether the player can use Ride on this map.
''' Determines whether the player can use Ride on this map.
''' </summary>
Public Function CanRide() As Boolean
If GameController.IS_DEBUG_ACTIVE = True Or Core.Player.SandBoxMode = True Then 'Always true for Sandboxmode and Debug mode.
@ -1118,7 +1118,7 @@ Public Class Level
End Function
''' <summary>
''' Wether the player can move based on the entity around him.
''' Whether the player can move based on the entity around him.
''' </summary>
Public Function CanMove() As Boolean
For Each e As Entity In Me.Entities
@ -1129,4 +1129,4 @@ Public Class Level
Return True
End Function
End Class
End Class

16
2.5DHero/2.5DHero/World/LevelLoader.vb
View File

@ -23,13 +23,13 @@
Dim loadOffsetMap As Boolean = True
Dim offsetMapLevel As Integer = 0
Dim MapOrigin As String = ""
Dim sessionMapsLoaded As New List(Of String) 'Prevents infinite loops when loading more than one offset map level.
Dim sessionMapsLoaded As New List(Of String) ' Prevents infinite loops when loading more than one offset map level.
'Store these so other classes can get them.
' Store these so other classes can get them:
Private Entities As New List(Of Entity)
Private Floors As New List(Of Entity)
'A counter across all LevelLoader instances to count how many instances across the program are active.
' A counter across all LevelLoader instances to count how many instances across the program are active:
Shared Busy As Integer = 0
Public Shared ReadOnly Property IsBusy() As Boolean
@ -256,8 +256,8 @@
timer.Stop()
Logger.Debug("Map loading time: " & timer.ElapsedTicks & " Ticks; " & timer.ElapsedMilliseconds & " Milliseconds.")
'Dim xmlLevelLoader As New XmlLevelLoader
'xmlLevelLoader.Load(My.Computer.FileSystem.SpecialDirectories.Desktop & "\t.xml", _5DHero.XmlLevelLoader.LevelTypes.Default, Vector3.Zero)
' Dim xmlLevelLoader As New XmlLevelLoader.
' xmlLevelLoader.Load(My.Computer.FileSystem.SpecialDirectories.Desktop & "\t.xml", _5DHero.XmlLevelLoader.LevelTypes.Default, Vector3.Zero)
Busy -= 1
@ -969,7 +969,7 @@
Screen.Level.WeatherType = 0
End If
'It's not my fault I swear. The keyboard was slippy, I was partly sick and there was fog on the road and I couldnt see.
' It's not my fault, I swear. The keyboard was slippy, I was partly sick, and there was fog on the road and I couldn't see.
Dim lightningExists As Boolean = TagExists(Tags, "Lightning")
Dim lightingExists As Boolean = TagExists(Tags, "Lighting")
@ -1015,10 +1015,10 @@
If CType(CurrentScreen, OverworldScreen).ActionScript.IsReady = True Then
CType(CurrentScreen, OverworldScreen).ActionScript.reDelay = 0.0F
CType(CurrentScreen, OverworldScreen).ActionScript.StartScript(scriptName, 0)
Else 'A script intro is playing (fly)
Else ' A script intro is playing (such as Fly).
MapScript = scriptName
End If
Else 'Must be a direct save load from the main menu.
Else ' Must be a direct save load from the main menu.
MapScript = scriptName
End If
Else

54
2.5DHero/2.5DHero/World/Lighting.vb
View File

@ -31,72 +31,72 @@ Public Class Lighting
''' <param name="refEffect">A reference to the BasicEffect that should receive the lighting update.</param>
''' <param name="ForceLighting">Checks, if the lighting update on the effect should be forced.</param>
Public Shared Sub UpdateLighting(ByRef refEffect As BasicEffect, Optional ByVal ForceLighting As Boolean = False)
If Core.GameOptions.LightingEnabled = True Or ForceLighting = True Then 'Only update the lighting if either the currently loaded level instance allows this, or it's getting forced.
'Set default parameters:
refEffect.LightingEnabled = True 'Enable lighting (gets disabled later, if not used)
refEffect.PreferPerPixelLighting = True 'Yes. Please.
If Core.GameOptions.LightingEnabled = True Or ForceLighting = True Then ' Only update the lighting if either the currently loaded level instance allows this, or it's getting forced.
' Set default parameters:
refEffect.LightingEnabled = True ' Enable lighting (gets disabled later, if not used)
refEffect.PreferPerPixelLighting = True ' Yes. Please.
refEffect.SpecularPower = 2000.0F
'LightType results:
'0 = Night
'1 = Morning
'2 = day
'3 = evening
'everything above = no lighting
' LightType results:
' 0 = Night
' 1 = Morning
' 2 = Day
' 3 = Evening
' Anything higher than 3 = No Lighting
Select Case GetLightingType()
Case 0 'Night
Case 0 ' Night
refEffect.AmbientLightColor = New Vector3(0.8F)
refEffect.DirectionalLight0.DiffuseColor = New Vector3(0.4F, 0.4F, 0.6F)
refEffect.DirectionalLight0.Direction = Vector3.Normalize(New Vector3(-1.0F, 0.0F, 1.0F))
refEffect.DirectionalLight0.SpecularColor = New Vector3(0.0F)
refEffect.DirectionalLight0.Enabled = True
Case 1 'Morning
Case 1 ' Morning
refEffect.AmbientLightColor = New Vector3(0.7F)
refEffect.DirectionalLight0.DiffuseColor = Color.Orange.ToVector3()
refEffect.DirectionalLight0.Direction = Vector3.Normalize(New Vector3(1.0F, -1.0F, 1.0F))
refEffect.DirectionalLight0.SpecularColor = New Vector3(0.0F)
refEffect.DirectionalLight0.Enabled = True
Case 2 'Day
Case 2 ' Day
refEffect.AmbientLightColor = New Vector3(1.0F)
refEffect.DirectionalLight0.DiffuseColor = New Vector3(-0.3F)
refEffect.DirectionalLight0.Direction = Vector3.Normalize(New Vector3(1.0F, 1.0F, 1.0F))
refEffect.DirectionalLight0.SpecularColor = New Vector3(0.0F)
refEffect.DirectionalLight0.Enabled = True
Case 3 'Evening
Case 3 ' Evening
refEffect.AmbientLightColor = New Vector3(1.0F)
refEffect.DirectionalLight0.DiffuseColor = New Vector3(-0.45F)
refEffect.DirectionalLight0.Direction = Vector3.Normalize(New Vector3(1.0F, 0.0F, 1.0F))
refEffect.DirectionalLight0.SpecularColor = New Vector3(0.0F)
refEffect.DirectionalLight0.Enabled = True
Case Else 'Disable lighting on the effect
Case Else 'Disable lighting on the effect
refEffect.LightingEnabled = False
End Select
Else
'Disable lighting if the effect isn't supposed to be lighted.
' Disable lighting if the effect isn't supposed to have light.
refEffect.LightingEnabled = False
End If
End Sub
Public Shared Function GetLightingType() As Integer
Dim LightType As Integer = CInt(World.GetTime()) 'Determine default lighting type by the world time.
Dim LightType As Integer = CInt(World.GetTime()) ' Determine default lighting type by the world time.
'Level's lighttype values:
'0 = get lighting from the current time of day
'1 = disable lighting
'2 = always night
'3 = always morning
'4 = always day
'5 = always evening
' Level's lighttype values:
' 0 = Get lighting from the current time of day.
' 1 = Disable lighting
' 2 = Always Night
' 3 = Always Morning
' 4 = Always Day
' 5 = Always Evening
If Screen.Level.LightingType = 1 Then 'If the level lighting type is 1, disable lighting (set index to 99)
If Screen.Level.LightingType = 1 Then ' If the level lighting type is 1, disable lighting (set index to 99).
LightType = 99
End If
If Screen.Level.LightingType > 1 And Screen.Level.LightingType < 6 Then 'If the level's lighting type is 2, 3, 4 or 5, set to respective LightType (set time of day)
If Screen.Level.LightingType > 1 And Screen.Level.LightingType < 6 Then ' If the level's lighting type is 2, 3, 4 or 5, set to the respective LightType (set time of day).
LightType = Screen.Level.LightingType - 2
End If
@ -118,4 +118,4 @@ Public Class Lighting
#End Region
End Class
End Class

6
2.5DHero/2.5DHero/World/OffsetMap.vb
View File

@ -37,8 +37,8 @@ Public Class OffsetMap
Public Sub New(ByVal MapName As String)
_MapName = MapName
'Set the identifier:
' Offset map Map weather Region weather Time Season
' Set the identifier:
' Offset Map Map Weather Region Weather Time Season
_Identifier = _MapName & "|" & Screen.Level.World.CurrentMapWeather & "|" & World.GetCurrentRegionWeather() & "|" & World.GetTime() & "|" & World.CurrentSeason()
End Sub
@ -54,4 +54,4 @@ Public Class OffsetMap
End Sub
End Class
End Class

44
2.5DHero/2.5DHero/World/PokemonEncounter.vb
View File

@ -5,7 +5,7 @@ Public Class PokemonEncounter
#Region "Fields and Constants"
'Stores a reference to the level instance.
' Stores a reference to the level instance:
Private _levelReference As Level
#End Region
@ -33,39 +33,39 @@ Public Class PokemonEncounter
Public Sub TryEncounterWildPokemon(ByVal Position As Vector3, ByVal Method As Spawner.EncounterMethods, ByVal pokeFile As String)
With Me._levelReference
If .WalkedSteps > 3 Then 'Only after walking 3 steps, try to encounter a wild Pokémon.
'Compose the correct .poke file from the levelfile, if the pokeFile parameter is empty.
If .WalkedSteps > 3 Then ' Three Step Rule - Only after walking 3 steps, try to encounter a wild Pokémon:
' Compose the correct .poke file from the levelfile, if the pokeFile parameter is empty:
If pokeFile = "" Then
pokeFile = .LevelFile.Remove(.LevelFile.Length - 4, 4) & ".poke"
End If
If System.IO.File.Exists(GameModeManager.GetPokeFilePath(pokeFile)) = True Then 'Only try to register a wild battle if the .poke file exists.
If System.IO.File.Exists(GameModeManager.GetPokeFilePath(pokeFile)) = True Then ' Only try to register a wild battle if the .poke file exists:
Dim startRandomValue As Integer = 12
Dim minRandomValue As Integer = 5
If Core.Player.Pokemons.Count > 0 Then
Dim p As Pokemon = Core.Player.Pokemons(0)
'Arena Trap/Illuminate/No Guard/Swarm ability:
' Arena Trap/Illuminate/No Guard/Swarm Ability:
If p.Ability.Name.ToLower() = "arena trap" Or p.Ability.Name.ToLower() = "illuminate" Or p.Ability.Name.ToLower() = "no guard" Or p.Ability.Name.ToLower() = "swarm" Then
startRandomValue = 6
minRandomValue = 3
End If
'Intimidate/Keen Eye/Quick Feet/Stench/White Smoke ability:
' Intimidate/Keen Eye/Quick Feet/Stench/White Smoke Ability:
If p.Ability.Name.ToLower() = "intimidate" Or p.Ability.Name.ToLower() = "keen eye" Or p.Ability.Name.ToLower() = "quick feet" Or p.Ability.Name.ToLower() = "stench" Or p.Ability.Name.ToLower() = "white smoke" Then
startRandomValue = 24
minRandomValue = 10
End If
'Sand Veil ability:
'Sand Veil Ability:
If .WeatherType = 7 And p.Ability.Name.ToLower() = "sand veil" Then
If Core.Random.Next(0, 100) < 50 Then
Exit Sub
End If
End If
'Snow Cloak ability:
'Snow Cloak Ability:
If p.Ability.Name.ToLower() = "snow cloak" Then
If .WeatherType = 2 Or .WeatherType = 9 Then
If Core.Random.Next(0, 100) < 50 Then
@ -75,19 +75,19 @@ Public Class PokemonEncounter
End If
End If
'Do some shit to determine if the wild Pokémon will be met or not:
' Determine if the wild Pokémon will be met or not:
Dim randomValue As Integer = startRandomValue - .WalkedSteps
randomValue = CInt(MathHelper.Clamp(randomValue, minRandomValue, startRandomValue))
If Core.Random.Next(0, randomValue * 2) = 0 Then
'Don't encounter a Pokémon if the left ctrl key is held down.
' Don't encounter a Pokémon if the left control key is held down, for Debug or Sandbox Mode:
If GameController.IS_DEBUG_ACTIVE = True Or Core.Player.SandBoxMode = True Then
If KeyBoardHandler.KeyDown(Keys.LeftControl) = True Then
Exit Sub
End If
End If
'Reset walked steps and set the wild Pokémon data:
' Reset walked steps and set the wild Pokémon data:
.WalkedSteps = 0
.PokemonEncounterData.Position = Position
@ -104,21 +104,21 @@ Public Class PokemonEncounter
''' Triggers a battle with a wild Pokémon if the requirements are met.
''' </summary>
Public Sub TriggerBattle()
'If the encounter check is true.
' If the encounter check is true:
If Me._levelReference.PokemonEncounterData.EncounteredPokemon = True And Core.CurrentScreen.Identification = Screen.Identifications.OverworldScreen Then
'If the player met the set position:
' If the player met the set position:
If Screen.Camera.Position.X = Me._levelReference.PokemonEncounterData.Position.X And Screen.Camera.Position.Z = Me._levelReference.PokemonEncounterData.Position.Z Then
'Make the player stop and set encounter check to false.
' Make the player stop and set encounter check to false:
Me._levelReference.PokemonEncounterData.EncounteredPokemon = False
Screen.Camera.StopMovement()
'Generate new wild Pokémon:
' Generate new wild Pokémon:
Dim Pokemon As Pokemon = Spawner.GetPokemon(Screen.Level.LevelFile, Me._levelReference.PokemonEncounterData.Method, True, Me._levelReference.PokemonEncounterData.PokeFile)
If Not Pokemon Is Nothing And CType(Core.CurrentScreen, OverworldScreen).TrainerEncountered = False And CType(Core.CurrentScreen, OverworldScreen).ActionScript.IsReady = True Then
Screen.Level.RouteSign.Hide() 'When a battle starts, hide the Route sign.
Screen.Level.RouteSign.Hide() ' When a battle starts, hide the Route sign.
'If the player has a repel going and the first Pokémon's level is greater than the wild Pokémon's level, don't start the battle.
' If the player has a Repel going and the first Pokémon in the party's level is greater than the wild Pokémon's level, don't start the battle:
If Core.Player.RepelSteps > 0 Then
Dim p As Pokemon = Core.Player.GetWalkPokemon()
If Not p Is Nothing Then
@ -128,7 +128,7 @@ Public Class PokemonEncounter
End If
End If
'Cleanse Tag prevents wild Pokémon if held by first Pokémon in party.
' Cleanse Tag prevents wild Pokémon encounters if held by the first Pokémon in the party:
If Core.Player.Pokemons(0).Level >= Pokemon.Level Then
If Not Core.Player.Pokemons(0).Item Is Nothing Then
If Core.Player.Pokemons(0).Item.ID = 94 Then
@ -139,7 +139,7 @@ Public Class PokemonEncounter
End If
End If
'Pure Incense Lowers the chance of encountering wild Pokémon if held by first Pokémon in party.
' Pure Incense lowers the chance of encountering wild Pokémon if held by the first Pokémon in the party:
If Core.Player.Pokemons(0).Level >= Pokemon.Level Then
If Not Core.Player.Pokemons(0).Item Is Nothing Then
If Core.Player.Pokemons(0).Item.ID = 291 Then
@ -150,10 +150,10 @@ Public Class PokemonEncounter
End If
End If
'Register wild Pokémon in the Pokédex.
' Register the wild Pokémon as Seen in the Pokédex:
Core.Player.PokedexData = Pokedex.ChangeEntry(Core.Player.PokedexData, Pokemon.Number, 1)
'Determine wild intro type. If it's a roaming battle, set 12.
' Determine wild Pokémon intro type. If it's a Roaming Pokémon battle, set to 12:
Dim introType As Integer = Core.Random.Next(0, 10)
If BattleSystem.BattleScreen.RoamingBattle = True Then
introType = 12
@ -168,4 +168,4 @@ Public Class PokemonEncounter
#End Region
End Class
End Class

22
2.5DHero/2.5DHero/World/SkyDome.vb
View File

@ -61,13 +61,13 @@
Public Sub Draw(ByVal FOV As Single)
If Core.GameOptions.GraphicStyle = 1 Then
If Screen.Level.World.EnvironmentType = World.EnvironmentTypes.Outside Then
If World.GetWeatherFromWeatherType(Screen.Level.WeatherType) <> World.Weathers.Fog Then 'Don't render the sky if weather is set to Fog
RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch() + Math.PI), True, TextureSun, 100, Me.GetSunAlpha()) 'Draw sun
RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch()), True, TextureMoon, 100, GetStarsAlpha()) 'Draw moon
RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch()), True, TextureDown, 50, GetStarsAlpha()) 'Draw stars half 1
RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch()), False, TextureDown, 50, GetStarsAlpha()) 'Draw stars half 2
RenderHalf(FOV, MathHelper.TwoPi - Yaw, 0.0F, True, GetCloudsTexture(), 15, GetCloudAlpha()) 'Draw clouds back layer
RenderHalf(FOV, Yaw, 0.0F, True, TextureUp, 10, GetCloudAlpha()) 'Draw clouds front layer
If World.GetWeatherFromWeatherType(Screen.Level.WeatherType) <> World.Weathers.Fog Then ' Don't render the sky if the weather is set to Fog.
RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch() + Math.PI), True, TextureSun, 100, Me.GetSunAlpha()) ' Draw the Sun.
RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch()), True, TextureMoon, 100, GetStarsAlpha()) ' Draw the Moon.
RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch()), True, TextureDown, 50, GetStarsAlpha()) ' Draw the first half of the stars.
RenderHalf(FOV, MathHelper.PiOver2, CSng(GetUniversePitch()), False, TextureDown, 50, GetStarsAlpha()) ' Draw the second half of the stars.
RenderHalf(FOV, MathHelper.TwoPi - Yaw, 0.0F, True, GetCloudsTexture(), 15, GetCloudAlpha()) ' Draw the back layer of the clouds.
RenderHalf(FOV, Yaw, 0.0F, True, TextureUp, 10, GetCloudAlpha()) ' Draw the front layer of the clouds.
End If
Else
RenderHalf(FOV, Yaw, 0.0F, True, TextureUp, 8.0F, 1.0F)
@ -190,22 +190,22 @@
Dim progress As Integer = GetTimeValue()
If progress >= 1080 And progress < 1140 Then
'Between 6PM and 7PM, the sun fades away in 60 stages:
' Between 6:00:00 PM and 7:00:00 PM, the Sun will fade away with 60 stages:
Dim i As Single = progress - 1080
Dim percent As Single = i / 60 * 100
Return 1.0F - percent / 100.0F
ElseIf progress >= 300 And progress < 360 Then
'Between 5AM and 6AM, the sun fades in in 60 stages:
' Between 5:00:00 AM and 6:00:00 Am, the Sun will fade in with 60 stages:
Dim i As Single = progress - 300
Dim percent As Single = i / 60 * 100
Return percent / 100.0F
ElseIf progress >= 1140 Or progress < 300 Then
'Between 7PM and 5AM, the sun is invisible:
' Between 7:00:00 PM and 5:00:00 AM, the Sun will be invisible:
Return 0.0F
Else
'Between 6AM and 6PM, the sun is fully visible:
' Between 6:00:00 AM and 6:00:00 PM, the Sun will be fully visible:
Return 1.0F
End If
End Function

4
2.5DHero/2.5DHero/World/Terrain.vb
View File

@ -99,7 +99,7 @@ Public Class Terrain
Return TerrainTypes.PvPBattle
End Select
'Default terrain:
' Default terrain:
Logger.Log(Logger.LogTypes.Warning, "Terrain.vb: Invalid terrain name: """ & input & """. Returning ""Plains"".")
Return TerrainTypes.Plain
End Function
@ -124,4 +124,4 @@ Public Class Terrain
Return Not value1 = value2
End Operator
End Class
End Class

38
2.5DHero/2.5DHero/World/World.vb
View File

@ -412,27 +412,27 @@ endsub:
Public Shared Function GetWeatherFromWeatherType(ByVal WeatherType As Integer) As Weathers
Select Case WeatherType
Case 0 'RegionWeather
Case 0 ' Region Weather
Return World.GetCurrentRegionWeather()
Case 1 'Clear
Case 1 ' Clear
Return Weathers.Clear
Case 2 'Rain
Case 2 ' Rain
Return Weathers.Rain
Case 3 'Snow
Case 3 ' Snow
Return Weathers.Snow
Case 4 'Underwater
Case 4 ' Underwater
Return Weathers.Underwater
Case 5 'Sunny
Case 5 ' Sunny
Return Weathers.Sunny
Case 6 'Fog
Case 6 ' Fog
Return Weathers.Fog
Case 7 'Sandstorm
Case 7 ' Sandstorm
Return Weathers.Sandstorm
Case 8
Case 8 ' Ash
Return Weathers.Ash
Case 9
Case 9 ' Blizzard
Return Weathers.Blizzard
Case 10
Case 10 ' Thunderstorm
Return Weathers.Thunderstorm
End Select
Return Weathers.Clear
@ -474,31 +474,31 @@ endsub:
Me.CurrentMapWeather = GetWeatherFromWeatherType(WeatherType)
Select Case EnvironmentType
Case 0 'Overworld
Case 0 ' Overworld
Me.EnvironmentType = EnvironmentTypes.Outside
Me.UseLightning = True
Case 1 'Day always
Case 1 ' Permanent Day
Me.EnvironmentType = EnvironmentTypes.Inside
Me.UseLightning = False
Case 2 'Cave
Case 2 ' Cave
Me.EnvironmentType = EnvironmentTypes.Cave
If WeatherType = 0 Then
Me.CurrentMapWeather = Weathers.Clear
End If
Me.UseLightning = False
Case 3 'Night always
Case 3 ' Permanent Night
Me.EnvironmentType = EnvironmentTypes.Dark
If WeatherType = 0 Then
Me.CurrentMapWeather = Weathers.Clear
End If
Me.UseLightning = False
Case 4 'Underwater
Case 4 ' Underwater
Me.EnvironmentType = EnvironmentTypes.Underwater
If WeatherType = 0 Then
Me.CurrentMapWeather = Weathers.Underwater
End If
Me.UseLightning = True
Case 5 'Forest
Case 5 ' Forest
Me.EnvironmentType = EnvironmentTypes.Forest
Me.UseLightning = True
End Select
@ -857,7 +857,7 @@ endsub:
Public Shared ServerSeason As Seasons = Seasons.Spring
Public Shared ServerWeather As Weathers = Weathers.Clear
Public Shared ServerTimeData As String = "0,0,0" 'Format: Hour,Minute,Second
Public Shared ServerTimeData As String = "0,0,0" ' Format: Hours,Minutes,Seconds
Public Shared LastServerDataReceived As Date = Date.Now
Public Shared ReadOnly Property SecondsOfDay() As Integer
@ -926,4 +926,4 @@ endsub:
End Set
End Property
End Class
End Class

40
2.5DHero/2.5DHero/credits.txt
View File

@ -2,7 +2,7 @@ Pok
Pokémon3D staff
created by Kolben Games
Trademark (TM) 2012 - 2014
Trademark (TM) 2012 - 2015
Team Kolben
Nils Drescher
Andrew Leach
@ -16,10 +16,21 @@ Trademark (TM) 2012 - 2014
Director
Nils Drescher
Open Source Development Team
Benjamin Smith
Yong Jian Ming
"Aragas"
"oXFantaXo"
Jorge Luis Espinoza
Programming
Nils Drescher
Jason Houston
Benjamin Smith
William Lang
Yong Jian Ming
Jorge Luis Espinoza
"Aragas"
Graphic Design
Nils Drescher
@ -41,31 +52,42 @@ Trademark (TM) 2012 - 2014
Maximilian Schröder
Jan Mika Eine
Jason Houston
"oXFantaXo"
Actionscript
Nils Drescher
Benjamin Smith
Hunter Graves
Andrew Leach
Jason Houston
Yong Jian Ming
"Aragas"
Script System Development
Nils Drescher
Benjamin Smith
Hunter Graves
Yong Jian Ming
"Aragas"
KolbenWindowWidget Development & LUA implementation
KolbenWindowWidget Development & LUA Implementation
Jason Houston
Launcher Programming
Nils Drescher
Daniel Billing
"ThuxCommix"
"Aragas"
Server application Programming
Pokéditor Programming
Nils Drescher
Jason Houston
Hunter Graves
Server Application Programming
Nils Drescher
Website Host/Server maintenance
Website Host/Server Maintenance
Daniel Billing
Daniel Laube
@ -74,7 +96,8 @@ Trademark (TM) 2012 - 2014
Nils Drescher
Debug Testing
Jan Mika Eine Tim Drescher
Jan Mika Eine
Tim Drescher
Daniel Steinborn
Andrew Leach
Marc Boisvert-Dupras
@ -84,6 +107,7 @@ Trademark (TM) 2012 - 2014
William Hunn
Torben Carrington
"oXFantaXo"
Conner Joseph Brewster
Special Thanks
"MunchingOrange"
@ -94,8 +118,8 @@ Trademark (TM) 2012 - 2014
"Isaaking6"
Davey Van Raaij
Diego López
The GameJolt team
The AppSharp team
The GameJolt Team
The AppSharp Team
The Smogon University Team
Gen 6 Pokémon sprite art:

2
2.5DHero/2.5DHeroContent/meta
View File

File diff suppressed because one or more lines are too long