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
Screen.TextBox.Show(t, {Me})
SoundManager.PlaySound("select")
Else
ElseIf diveUp = 1 Then
'Up
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})
SoundManager.PlaySound("select")
End If
@ -44,7 +50,6 @@
If result = 0 Then
If diveUp = 0 Then
'Down
Dim s As String = "version=2" & vbNewLine &
"@text.show(" & GetDivePokemon() & "~used Dive!)" & vbNewLine &
"@screen.fadeout" & vbNewLine &
@ -57,9 +62,8 @@
":end"
CType(Core.CurrentScreen, OverworldScreen).ActionScript.StartScript(s, 2)
Else
ElseIf diveUp = 1 Then
'Up
Dim s As String = "version=2" & vbNewLine &
"@text.show(" & GetDivePokemon() & "~used Dive!)" & vbNewLine &
"@player.setmovement(0,0.5,0)" & vbNewLine &
@ -71,6 +75,20 @@
"@screen.fadein" & vbNewLine &
":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)
End If
End If