tyler.durden/P3D-Legacy
1
0
Fork 0
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git synced 2025-07-27 07:44:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

Minor text fixes for consistency (World folder).

Browse Source 
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 committed by CaptainSegis
parent c2018e8266
commit c566b463e4
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

12
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("("))

12
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
@ -143,7 +143,7 @@ Public Class ScriptConversion
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

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

@ -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.

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

@ -131,7 +131,7 @@
End Select
IsReady = True
End Sub 'crash handle
End Sub ' Crash Handler
End Class

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

@ -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

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

@ -18,7 +18,7 @@
End Select
IsReady = True
End Sub 'crash handle
End Sub ' Crash Handler
End Class

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

@ -25,7 +25,7 @@
End Select
IsReady = True
End Sub 'crash handle
End Sub ' Crash Handler
End Class

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

@ -31,7 +31,7 @@
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)

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

@ -19,15 +19,15 @@
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
t.Scale = sng(arg)

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

@ -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]"

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

@ -127,15 +127,15 @@ 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:
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
@ -206,8 +206,8 @@ Namespace ScriptVersion2
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()
@ -274,7 +274,7 @@ 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()
@ -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, ""),
@ -459,14 +459,14 @@ 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 Battle Points."))
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", "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."))
@ -474,8 +474,8 @@ Namespace ScriptVersion2
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))
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))
@ -485,11 +485,11 @@ Namespace ScriptVersion2
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 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", "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", "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))
@ -554,8 +554,8 @@ Namespace ScriptVersion2
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."))
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
@ -566,7 +566,7 @@ Namespace ScriptVersion2
' 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
@ -595,38 +595,38 @@ Namespace ScriptVersion2
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."))
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:
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()
@ -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),
@ -688,7 +688,7 @@ Namespace ScriptVersion2
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."))
@ -741,25 +741,25 @@ Namespace ScriptVersion2
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 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),

4
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

28
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

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

@ -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
@ -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,11 +726,11 @@ 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
@ -739,7 +739,7 @@ Public Class Level
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()
@ -851,7 +851,7 @@ Public Class Level
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()
@ -924,7 +924,7 @@ Public Class Level
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:
@ -947,10 +947,10 @@ Public Class Level
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.
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,7 +959,7 @@ 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)
@ -969,10 +969,10 @@ Public Class Level
' 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
@ -991,7 +991,7 @@ Public Class Level
' 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,21 +1002,21 @@ 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()
@ -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

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

@ -25,11 +25,11 @@
Dim MapOrigin As String = ""
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,7 +256,7 @@
timer.Stop()
Logger.Debug("Map loading time: " & timer.ElapsedTicks & " Ticks; " & timer.ElapsedMilliseconds & " Milliseconds.")
'Dim xmlLevelLoader As New XmlLevelLoader
' 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,7 +1015,7 @@
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.

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

@ -40,9 +40,9 @@ Public Class Lighting
' LightType results:
' 0 = Night
' 1 = Morning
'2 = day
'3 = evening
'everything above = no lighting
' 2 = Day
' 3 = Evening
' Anything higher than 3 = No Lighting
Select Case GetLightingType()
Case 0 ' Night
@ -77,7 +77,7 @@ Public Class Lighting
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
@ -86,17 +86,17 @@ Public Class Lighting
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
' 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

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

@ -38,7 +38,7 @@ Public Class OffsetMap
_MapName = MapName
' Set the identifier:
' Offset map Map weather Region weather Time Season
' Offset Map Map Weather Region Weather Time Season
_Identifier = _MapName & "|" & Screen.Level.World.CurrentMapWeather & "|" & World.GetCurrentRegionWeather() & "|" & World.GetTime() & "|" & World.CurrentSeason()
End Sub

34
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,12 +75,12 @@ 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
@ -104,11 +104,11 @@ 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 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()
@ -118,7 +118,7 @@ Public Class PokemonEncounter
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.
'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

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

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

@ -428,11 +428,11 @@ endsub:
Return Weathers.Fog
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
@ -477,7 +477,7 @@ endsub:
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
@ -486,7 +486,7 @@ endsub:
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
@ -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

38
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,6 +52,7 @@ Trademark (TM) 2012 - 2014
Maximilian Schröder
Jan Mika Eine
Jason Houston
"oXFantaXo"
Actionscript
Nils Drescher
@ -48,24 +60,34 @@ Trademark (TM) 2012 - 2014
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