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

Dive Tile Action 2 :)

This commit is contained in:
jianmingyong 2016-10-08 16:37:13 +08:00
parent 9ddaf5b9d3
commit 78f17a28cd
1 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
2.5DHero/2.5DHero/Entites/Enviroment/DiveTile.vb
View File

@ -31,10 +31,16 @@
End If End If
Screen.TextBox.Show(t, {Me}) Screen.TextBox.Show(t, {Me})
SoundManager.PlaySound("select") SoundManager.PlaySound("select")
Else ElseIf diveUp = 1 Then
'Up 'Up
Dim t As String = "Light shines down from~the surface.*Do you want to~use Dive?%Yes|No%" Dim t As String = "Light shines down from~the surface.*Do you want to~use Dive?%Yes|No%"
Screen.TextBox.Show(t, {Me})
SoundManager.PlaySound("select")
ElseIf diveUp = 2 Then
'Up
Dim t As String = "The boat's shadow is casted~upon the ocean floor.*Do you want to~use Dive?%Yes|No%"
Screen.TextBox.Show(t, {Me}) Screen.TextBox.Show(t, {Me})
SoundManager.PlaySound("select") SoundManager.PlaySound("select")
End If End If
@ -44,7 +50,6 @@
If result = 0 Then If result = 0 Then
If diveUp = 0 Then If diveUp = 0 Then
'Down 'Down
Dim s As String = "version=2" & vbNewLine & Dim s As String = "version=2" & vbNewLine &
"@text.show(" & GetDivePokemon() & "~used Dive!)" & vbNewLine & "@text.show(" & GetDivePokemon() & "~used Dive!)" & vbNewLine &
"@screen.fadeout" & vbNewLine & "@screen.fadeout" & vbNewLine &
@ -57,9 +62,8 @@
":end" ":end"
CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2) CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2)
Else ElseIf diveUp = 1 Then
'Up 'Up
Dim s As String = "version=2" & vbNewLine & Dim s As String = "version=2" & vbNewLine &
"@text.show(" & GetDivePokemon() & "~used Dive!)" & vbNewLine & "@text.show(" & GetDivePokemon() & "~used Dive!)" & vbNewLine &
"@player.setmovement(0,0.5,0)" & vbNewLine & "@player.setmovement(0,0.5,0)" & vbNewLine &
@ -71,6 +75,20 @@
"@screen.fadein" & vbNewLine & "@screen.fadein" & vbNewLine &
":end" ":end"
CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2)
ElseIf diveUp = 2 Then
'Up
Dim s As String = "version=2" & vbNewLine &
"@text.show(" & GetDivePokemon() & "~used Dive!)" & vbNewLine &
"@player.setmovement(0,0.5,0)" & vbNewLine &
"@player.move(6)" & vbNewLine &
"@player.resetmovement" & vbNewLine &
"@screen.fadeout" & vbNewLine &
"@player.warp(" & Me.AdditionalValue & ")" & vbNewLine &
"@level.update" & vbNewLine &
"@screen.fadein" & vbNewLine &
":end"
CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2) CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2)
End If End If
End If End If