502 lines
24 KiB
VB.net
502 lines
24 KiB
VB.net
Namespace Screens.MainMenu
|
|
Public Class NewGameScreen
|
|
|
|
Inherits Screen
|
|
|
|
Dim skinFiles() As String = {GameModeManager.ActiveGameMode.SkinFiles.ToString}
|
|
Dim skinNames() As String = {GameModeManager.ActiveGameMode.SkinNames.ToString}
|
|
Dim skinGenders() As String = {GameModeManager.ActiveGameMode.SkinGenders.ToString}
|
|
Dim skinColors As List(Of Color) = GameModeManager.ActiveGameMode.SkinColors
|
|
|
|
Public Index As Integer = 0
|
|
Dim pokeIndex As Integer = 0
|
|
|
|
Dim ProfAlpha As Integer = 0
|
|
Dim OtherAlpha As Integer = 0
|
|
|
|
Dim Name As String = ""
|
|
Dim SkinIndex As Integer = 0
|
|
Dim skinTexture As Texture2D
|
|
Dim enterCorrectName As Boolean = False
|
|
Dim nameMessage As String = "This name is too short."
|
|
|
|
Dim mainTexture As Texture2D
|
|
Dim pokeTexture As Texture2D
|
|
|
|
Dim ballPosition As Vector2
|
|
Dim ballIndex As Vector2 = New Vector2(0, 0)
|
|
Dim ballAnimationDelay As Single = 0.2F
|
|
Dim ballVelocity As Single = -7.0F
|
|
Dim pokePosition As Vector2
|
|
Dim pokeID As Integer = 0
|
|
|
|
Dim CurrentText As String = ""
|
|
|
|
Dim currentBackColor As Color = New Color(59, 123, 165)
|
|
Dim normalColor As Color = New Color(59, 123, 165)
|
|
|
|
Dim pokemonRange() As Integer = {1, 252}
|
|
Dim introMusic As String = "welcome"
|
|
Dim startMap As String = "yourroom.dat"
|
|
Dim startPosition As Vector3 = New Vector3(1, 0.1F, 3)
|
|
Dim startLocation As String = "Your Room"
|
|
Dim startYaw As Single = MathHelper.PiOver2
|
|
|
|
Dim Dialogues As New List(Of String)
|
|
|
|
Public Sub New()
|
|
For Each s As String In Core.GameOptions.ContentPackNames
|
|
ContentPackManager.Load(GameController.GamePath & "\ContentPacks\" & s & "\exceptions.dat")
|
|
Next
|
|
|
|
BattleSystem.GameModeAttackLoader.Load()
|
|
|
|
SmashRock.Load()
|
|
Badge.Load()
|
|
Pokedex.Load()
|
|
BattleSystem.BattleScreen.ResetVars()
|
|
LevelLoader.ClearTempStructures()
|
|
PokemonForms.Initialize()
|
|
|
|
Me.Identification = Identifications.NewGameScreen
|
|
Me.CanChat = False
|
|
mainTexture = TextureManager.GetTexture("GUI\Intro")
|
|
|
|
LoadIntroValues()
|
|
|
|
Dim p As Pokemon = Pokemon.GetPokemonByID(Core.Random.Next(pokemonRange(0), pokemonRange(1)))
|
|
p.Generate(1, True)
|
|
pokeID = p.Number
|
|
pokeTexture = p.GetTexture(True)
|
|
|
|
CurrentText = ""
|
|
|
|
TextBox.Showing = False
|
|
Me.Index = 0
|
|
TextBox.reDelay = 0
|
|
Dim skinTexture2D = TextureManager.GetTexture("Textures\NPC\" & skinFiles(SkinIndex))
|
|
Dim skinFrameSize As Size
|
|
If skinTexture2D.Width = skinTexture2D.Height / 2 Then
|
|
skinFrameSize = New Size(CInt(skinTexture2D.Width / 2), CInt(skinTexture2D.Height / 4))
|
|
ElseIf skinTexture2D.Width = skinTexture2D.Height Then
|
|
skinFrameSize = New Size(CInt(skinTexture2D.Width / 4), CInt(skinTexture2D.Height / 4))
|
|
Else
|
|
skinFrameSize = New Size(CInt(skinTexture2D.Width / 3), CInt(skinTexture2D.Height / 4))
|
|
End If
|
|
Dim skinRectangle As New Rectangle(0, CInt(skinFrameSize.Height * 2), CInt(skinFrameSize.Width), CInt(skinFrameSize.Height))
|
|
skinTexture = TextureManager.GetTexture(skinTexture2D, skinRectangle)
|
|
|
|
MusicManager.Play("nomusic")
|
|
End Sub
|
|
|
|
Private Sub LoadIntroValues()
|
|
Dim GameMode As GameMode = GameModeManager.ActiveGameMode
|
|
|
|
Me.skinNames = GameMode.SkinNames.ToArray()
|
|
Me.skinFiles = GameMode.SkinFiles.ToArray()
|
|
Me.skinGenders = GameMode.SkinGenders.ToArray()
|
|
Me.skinColors = GameMode.SkinColors
|
|
|
|
Me.pokemonRange = GameMode.PokemonRange
|
|
Me.introMusic = GameMode.IntroMusic
|
|
Me.startMap = GameMode.StartMap
|
|
Me.startPosition = GameMode.StartPosition
|
|
Me.startLocation = GameMode.StartLocationName
|
|
Me.startYaw = GameMode.StartRotation
|
|
Me.normalColor = GameMode.StartColor
|
|
Me.currentBackColor = GameMode.StartColor
|
|
|
|
If GameMode.StartDialogue <> "" Then
|
|
If GameMode.StartDialogue.CountSplits("|") >= 3 Then
|
|
Dim Splits() As String = GameMode.StartDialogue.Split(CChar("|"))
|
|
Me.Dialogues.AddRange(Splits)
|
|
End If
|
|
Else
|
|
If Me.Dialogues.Count < 3 Then
|
|
Me.Dialogues.Clear()
|
|
Me.Dialogues.AddRange({Localization.GetString("new_game_intro_1"), Localization.GetString("new_game_intro_2"), Localization.GetString("new_game_intro_3")})
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Public Overrides Sub Update()
|
|
If Index = 5 Then
|
|
Core.GameInstance.IsMouseVisible = True
|
|
Else
|
|
Core.GameInstance.IsMouseVisible = False
|
|
End If
|
|
|
|
If ProfAlpha < 255 And Index = 0 Then
|
|
ProfAlpha += 2
|
|
If ProfAlpha >= 255 Then
|
|
MusicManager.Play(Me.introMusic, True, 0.0F)
|
|
End If
|
|
ElseIf ProfAlpha >= 255 Or Index > 0 Then
|
|
TextBox.Update()
|
|
|
|
If TextBox.Showing = False Then
|
|
Select Case Index
|
|
Case 1
|
|
UpdatePokemon()
|
|
Case 3
|
|
UpdateTransition(False)
|
|
Case 4
|
|
If Screens.MainMenu.NewNewGameScreen.CharacterSelectionScreen.SelectedSkin <> "" Then
|
|
skinTexture = TextureManager.GetTexture(Screens.MainMenu.NewNewGameScreen.CharacterSelectionScreen.SelectedSkin)
|
|
Index += 1
|
|
Else
|
|
SetScreen(New Screens.MainMenu.NewNewGameScreen.CharacterSelectionScreen(CurrentScreen))
|
|
End If
|
|
Case 5
|
|
UpdateTextbox()
|
|
Index += 1
|
|
Case 7
|
|
UpdateTransition(True)
|
|
Case 9
|
|
If ProfAlpha > 0 Then
|
|
ProfAlpha -= 2
|
|
End If
|
|
If ProfAlpha <= 0 Then
|
|
CreateGame()
|
|
End If
|
|
Case Else
|
|
ShowText()
|
|
End Select
|
|
End If
|
|
End If
|
|
|
|
Dim AimColor As Color = normalColor
|
|
|
|
If Me.Index = 4 Then
|
|
AimColor = skinColors(SkinIndex)
|
|
End If
|
|
|
|
Dim diffR As Byte = 5
|
|
If (CInt(currentBackColor.R) - CInt(AimColor.R)).ToPositive() < 5 Then
|
|
diffR = 1
|
|
End If
|
|
Dim diffG As Byte = 5
|
|
If (CInt(currentBackColor.G) - CInt(AimColor.G)).ToPositive() < 5 Then
|
|
diffG = 1
|
|
End If
|
|
Dim diffB As Byte = 5
|
|
If (CInt(currentBackColor.B) - CInt(AimColor.B)).ToPositive() < 5 Then
|
|
diffB = 1
|
|
End If
|
|
If currentBackColor.R < AimColor.R Then
|
|
currentBackColor.R += diffR
|
|
ElseIf currentBackColor.R > AimColor.R Then
|
|
currentBackColor.R -= diffR
|
|
End If
|
|
If currentBackColor.G < AimColor.G Then
|
|
currentBackColor.G += diffG
|
|
ElseIf currentBackColor.G > AimColor.G Then
|
|
currentBackColor.G -= diffG
|
|
End If
|
|
If currentBackColor.B < AimColor.B Then
|
|
currentBackColor.B += diffB
|
|
ElseIf currentBackColor.B > AimColor.B Then
|
|
currentBackColor.B -= diffB
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ShowText()
|
|
Dim Text As String = ""
|
|
|
|
Select Case Index
|
|
Case 0
|
|
Text = Dialogues(0)
|
|
Case 2
|
|
Text = Dialogues(1)
|
|
Case 6
|
|
Text = NameReaction(Name)
|
|
Case 8
|
|
Text = Name & Dialogues(2)
|
|
End Select
|
|
|
|
TextBox.reDelay = 0
|
|
TextBox.Show(Text, {})
|
|
|
|
Index += 1
|
|
End Sub
|
|
|
|
|
|
Public Overrides Sub Draw()
|
|
Canvas.DrawRectangle(New Rectangle(0, 0, Core.windowSize.Width, Core.windowSize.Height), currentBackColor)
|
|
|
|
TextBox.Draw()
|
|
|
|
Core.SpriteBatch.Draw(mainTexture, New Rectangle(CInt(Core.windowSize.Width / 2) - 62, CInt(Core.windowSize.Height / 2) - 218, 130, 256), New Rectangle(0, 0, 62, 128), New Color(255, 255, 255, ProfAlpha))
|
|
|
|
Select Case pokeIndex
|
|
Case 1
|
|
Core.SpriteBatch.Draw(mainTexture, New Rectangle(CInt(ballPosition.X), CInt(ballPosition.Y), 22, 22), New Rectangle(62 + CInt(ballIndex.X * 22), 48 + CInt(ballIndex.Y * 22), 22, 22), Color.White)
|
|
Case 2
|
|
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(pokePosition.X) - MathHelper.Min(CInt(pokeTexture.Width), 128), CInt(pokePosition.Y) - MathHelper.Min(CInt(pokeTexture.Height), 128), MathHelper.Min(CInt(pokeTexture.Width * 2), 256), MathHelper.Min(CInt(pokeTexture.Height * 2), 256)), Color.White)
|
|
Case 3
|
|
If Index < 6 Then
|
|
Core.SpriteBatch.Draw(pokeTexture, New Rectangle(CInt(pokePosition.X) - MathHelper.Min(CInt(pokeTexture.Width), 128), CInt(Core.windowSize.Height / 2) - MathHelper.Min(CInt(pokeTexture.Height), 128), MathHelper.Min(CInt(pokeTexture.Width * 2), 256), MathHelper.Min(CInt(pokeTexture.Height * 2), 256)), New Color(255, 255, 255, ProfAlpha))
|
|
End If
|
|
End Select
|
|
|
|
End Sub
|
|
|
|
Private Sub UpdatePokemon()
|
|
Select Case pokeIndex
|
|
Case 0
|
|
ballPosition = New Vector2(CInt(Core.windowSize.Width / 2) - 40, CInt(Core.windowSize.Height / 2) - 110)
|
|
pokePosition = New Vector2(CInt(Core.windowSize.Width / 2) - MathHelper.Min(CInt(pokeTexture.Width * 2), 256), CInt(Core.windowSize.Height / 2 - MathHelper.Min(CInt(pokeTexture.Height * 2), 256)))
|
|
pokeIndex = 1
|
|
AnimateBall()
|
|
Case 1
|
|
If ballPosition.X > CInt(Core.windowSize.Width / 2) - MathHelper.Min(CInt(pokeTexture.Width * 2), 256) Then
|
|
ballPosition.X -= 3
|
|
ballPosition.Y += ballVelocity
|
|
ballVelocity += 0.2F
|
|
Else
|
|
pokeIndex = 2
|
|
End If
|
|
AnimateBall()
|
|
Case 2
|
|
If pokePosition.Y < CInt(Core.windowSize.Height / 2) Then
|
|
pokePosition.Y += 5
|
|
Else
|
|
Dim p As Pokemon = Pokemon.GetPokemonByID(pokeID)
|
|
p.PlayCry()
|
|
pokeIndex = 3
|
|
Index = 2
|
|
End If
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub AnimateBall()
|
|
If ballAnimationDelay <= 0.0F Then
|
|
ballIndex.X += 1
|
|
If ballIndex.X = 2 And ballIndex.Y = 2 Then
|
|
ballIndex = New Vector2(0, 0)
|
|
End If
|
|
If ballIndex.X = 2 Then
|
|
ballIndex.X = 0
|
|
ballIndex.Y += 1
|
|
End If
|
|
ballAnimationDelay = 0.2F
|
|
Else
|
|
ballAnimationDelay -= 0.1F
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub UpdateTransition(ByVal ToProf As Boolean)
|
|
If ToProf = True Then
|
|
If OtherAlpha > 0 Then
|
|
OtherAlpha -= 5
|
|
End If
|
|
If OtherAlpha <= 0 Then
|
|
If ProfAlpha < 255 Then
|
|
ProfAlpha += 5
|
|
|
|
If ProfAlpha >= 255 Then
|
|
Index += 1
|
|
End If
|
|
End If
|
|
End If
|
|
Else
|
|
If ProfAlpha > 0 Then
|
|
ProfAlpha -= 5
|
|
End If
|
|
If ProfAlpha <= 0 Then
|
|
If OtherAlpha < 255 Then
|
|
OtherAlpha += 5
|
|
|
|
If OtherAlpha >= 255 Then
|
|
Index += 1
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub UpdateTextbox()
|
|
Dim skinTexture2D = TextureManager.GetTexture("Textures\NPC\" & skinFiles(SkinIndex))
|
|
Dim skinFrameSize As Size
|
|
If skinTexture2D.Width = skinTexture2D.Height / 2 Then
|
|
skinFrameSize = New Size(CInt(skinTexture2D.Width / 2), CInt(skinTexture2D.Height / 4))
|
|
ElseIf skinTexture2D.Width = skinTexture2D.Height Then
|
|
skinFrameSize = New Size(CInt(skinTexture2D.Width / 4), CInt(skinTexture2D.Height / 4))
|
|
Else
|
|
skinFrameSize = New Size(CInt(skinTexture2D.Width / 3), CInt(skinTexture2D.Height / 4))
|
|
End If
|
|
Dim skinRectangle As New Rectangle(0, CInt(skinFrameSize.Height * 2), CInt(skinFrameSize.Width), CInt(skinFrameSize.Height))
|
|
skinTexture = TextureManager.GetTexture(skinTexture2D, skinRectangle)
|
|
Core.SetScreen(New InputScreen(Core.CurrentScreen, skinNames(SkinIndex), InputScreen.InputModes.Name, skinNames(SkinIndex), 14, New List(Of Texture2D)({skinTexture}), AddressOf Me.ConfirmInput))
|
|
End Sub
|
|
|
|
Private Sub ConfirmInput(ByVal input As String)
|
|
Name = input
|
|
End Sub
|
|
|
|
Private Sub CreateGame()
|
|
Dim folderPath As String = Name.Replace("\", "_").Replace("/", "_").Replace(":", "_").Replace("*", "_").Replace("?", "_").Replace("""", "_").Replace("<", "_").Replace(">", "_").Replace("|", "_").Replace(",", "_").Replace(".", "_")
|
|
Dim folderPrefix As Integer = 0
|
|
|
|
If folderPath.ToLower() = "autosave" Then
|
|
folderPath = "autosave0"
|
|
End If
|
|
|
|
Dim savePath As String = GameController.GamePath & "\Save\"
|
|
|
|
While System.IO.Directory.Exists(savePath & folderPath) = True
|
|
If folderPath <> Name Then
|
|
folderPath = folderPath.Remove(folderPath.Length - folderPrefix.ToString().Length, folderPrefix.ToString().Length)
|
|
End If
|
|
|
|
folderPath &= folderPrefix
|
|
|
|
folderPrefix += 1
|
|
End While
|
|
|
|
If System.IO.Directory.Exists(GameController.GamePath & "\Save") = False Then
|
|
System.IO.Directory.CreateDirectory(GameController.GamePath & "\Save")
|
|
End If
|
|
|
|
System.IO.Directory.CreateDirectory(savePath & folderPath)
|
|
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\Player.dat", GetPlayerData())
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\Pokedex.dat", "")
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\Items.dat", "")
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\Register.dat", "")
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\Berries.dat", GetBerryData())
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\Apricorns.dat", "")
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\Daycare.dat", "")
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\Party.dat", "")
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\ItemData.dat", "")
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\Options.dat", GetOptionsData())
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\Box.dat", "")
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\NPC.dat", "")
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\HallOfFame.dat", "")
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\SecretBase.dat", "")
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\RoamingPokemon.dat", "")
|
|
System.IO.File.WriteAllText(savePath & folderPath & "\Statistics.dat", "")
|
|
|
|
Core.Player.IsGameJoltSave = False
|
|
Core.Player.LoadGame(folderPath)
|
|
Core.SetScreen(New TransitionScreen(Me, New OverworldScreen(), Color.Black, False, 5))
|
|
End Sub
|
|
|
|
Private Function GetPlayerData() As String
|
|
Dim ot As String = Core.Random.Next(0, 65256).ToString()
|
|
While ot.Length < 5
|
|
ot = "0" & ot
|
|
End While
|
|
|
|
Dim s As String = "Name|" & Name & Environment.NewLine &
|
|
"Position|" & Me.startPosition.X.ToString().Replace(GameController.DecSeparator, ".") & "," & Me.startPosition.Y.ToString().Replace(GameController.DecSeparator, ".") & "," & Me.startPosition.Z.ToString().Replace(GameController.DecSeparator, ".") & Environment.NewLine &
|
|
"MapFile|" & Me.startMap & Environment.NewLine &
|
|
"Rotation|" & Me.startYaw.ToString() & Environment.NewLine &
|
|
"RivalName|???" & Environment.NewLine &
|
|
"RivalSkin|4" & Environment.NewLine &
|
|
"Money|3000" & Environment.NewLine &
|
|
"Badges|0" & Environment.NewLine &
|
|
"Gender|Male" & Environment.NewLine &
|
|
"PlayTime|0,0,0,0" & Environment.NewLine &
|
|
"OT|" & ot & Environment.NewLine &
|
|
"Points|0" & Environment.NewLine &
|
|
"hasPokedex|0" & Environment.NewLine &
|
|
"hasPokegear|0" & Environment.NewLine &
|
|
"freeCamera|1" & Environment.NewLine &
|
|
"thirdPerson|0" & Environment.NewLine &
|
|
"skin|" & skinFiles(SkinIndex) & Environment.NewLine &
|
|
"location|" & Me.startLocation & Environment.NewLine &
|
|
"battleAnimations|1" & Environment.NewLine &
|
|
"RunMode|1" & Environment.NewLine &
|
|
"BoxAmount|5" & Environment.NewLine &
|
|
"LastRestPlace|" & startMap & Environment.NewLine &
|
|
"LastRestPlacePosition|" & Me.startPosition.X.ToString().Replace(GameController.DecSeparator, ".") & "," & Me.startPosition.Y.ToString().Replace(GameController.DecSeparator, ".") & "," & Me.startPosition.Z.ToString().Replace(GameController.DecSeparator, ".") & Environment.NewLine &
|
|
"DiagonalMovement|0" & Environment.NewLine &
|
|
"RepelSteps|0" & Environment.NewLine &
|
|
"LastSavePlace|" & startMap & Environment.NewLine &
|
|
"LastSavePlacePosition|" & Me.startPosition.X.ToString().Replace(GameController.DecSeparator, ".") & "," & Me.startPosition.Y.ToString().Replace(GameController.DecSeparator, ".") & "," & Me.startPosition.Z.ToString().Replace(GameController.DecSeparator, ".") & Environment.NewLine &
|
|
"Difficulty|" & GameModeManager.GetGameRuleValue("Difficulty", "0") & Environment.NewLine &
|
|
"BattleStyle|1" & Environment.NewLine &
|
|
"saveCreated|" & GameController.GAMEDEVELOPMENTSTAGE & " " & GameController.GAMEVERSION & Environment.NewLine &
|
|
"LastPokemonPosition|999,999,999" & Environment.NewLine &
|
|
"DaycareSteps|0" & Environment.NewLine &
|
|
"GameMode|" & GameModeManager.ActiveGameMode.DirectoryName & Environment.NewLine &
|
|
"PokeFiles|" & Environment.NewLine &
|
|
"VisitedMaps|" & startMap & Environment.NewLine &
|
|
"TempSurfSkin|" & skinFiles(SkinIndex) & Environment.NewLine &
|
|
"Surfing|0" & Environment.NewLine &
|
|
"ShowModels|1" & Environment.NewLine &
|
|
"GTSStars|4" & Environment.NewLine &
|
|
"SandBoxMode|0" & Environment.NewLine &
|
|
"EarnedAchievements|"
|
|
|
|
Return s
|
|
End Function
|
|
|
|
Public Shared Function GetOptionsData() As String
|
|
Dim s As String = "FOV|60" & Environment.NewLine &
|
|
"TextSpeed|2" & Environment.NewLine &
|
|
"MouseSpeed|12"
|
|
|
|
Return s
|
|
End Function
|
|
|
|
Public Shared Function GetBerryData() As String
|
|
Dim s As String = ""
|
|
If File.Exists(GameModeManager.GetContentFilePath("Data\BerryData.dat")) Then
|
|
Dim Berries() As String = System.IO.File.ReadAllLines(GameModeManager.GetContentFilePath("Data\BerryData.dat"))
|
|
|
|
For Each line In Berries
|
|
s &= line
|
|
Next
|
|
Else
|
|
s = "{route29.dat|13,0,5|6|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route29.dat|14,0,5|6|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route29.dat|15,0,5|6|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{azalea.dat|9,0,3|0|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{azalea.dat|9,0,4|1|1|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{azalea.dat|9,0,5|0|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route30.dat|7,0,41|10|1|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route30.dat|14,0,5|2|1|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route30.dat|15,0,5|6|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route30.dat|16,0,5|2|1|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{routes\route35.dat|0,0,4|7|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{routes\route35.dat|1,0,4|8|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route36.dat|37,0,7|0|1|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route36.dat|38,0,7|4|1|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route36.dat|39,0,7|3|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route39.dat|8,0,2|9|1|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route39.dat|8,0,3|6|1|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route38.dat|13,0,12|16|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route38.dat|14,0,12|23|1|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{route38.dat|15,0,12|16|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{routes\route43.dat|13,0,45|23|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{routes\route43.dat|13,0,46|24|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{routes\route43.dat|13,0,47|25|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{safarizone\main.dat|3,0,11|5|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{safarizone\main.dat|4,0,11|0|2|0|2012,9,21,4,0,0|1}" & Environment.NewLine &
|
|
"{safarizone\main.dat|5,0,11|6|3|0|2012,9,21,4,0,0|1}"
|
|
End If
|
|
|
|
Return s
|
|
End Function
|
|
|
|
Private Function NameReaction(ByVal name As String) As String
|
|
Dim WeirdNames() As String = {"derp", "karp"}
|
|
Dim KnownNames() As String = {"ash", "gary", "misty", "brock", "tracey", "may", "max", "dawn", "iris", "cilan", "red", "blue", "green", "gold", "silver"}
|
|
Dim OwnNames() As String = {"oak", "samuel", "prof. oak", "prof oak"}
|
|
|
|
Select Case True
|
|
Case WeirdNames.Contains(name.ToLower())
|
|
Return Localization.GetString("new_game_intro_weird_name_1") & name & Localization.GetString("new_game_intro_weird_name_2")
|
|
Case KnownNames.Contains(name.ToLower())
|
|
Return Localization.GetString("new_game_intro_known_name_1") & name & Localization.GetString("new_game_intro_known_name_2")
|
|
Case OwnNames.Contains(name.ToLower())
|
|
Return Localization.GetString("new_game_intro_same_name_1") & name & Localization.GetString("new_game_intro_same_name_2")
|
|
End Select
|
|
|
|
Return Localization.GetString("new_game_intro_name_1") & name & Localization.GetString("new_game_intro_name_2")
|
|
End Function
|
|
|
|
End Class
|
|
End Namespace |