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

document scripts in code

This commit is contained in:
darkfire006 2021-10-19 14:36:47 -05:00
parent 3ce59ee458
commit 32dba7e878
4 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
P3D/World/ActionScript/V2/ScriptCommands/DoScreen.vb
View File

@ -12,6 +12,7 @@
Select Case command.ToLower() Select Case command.ToLower()
Case "showmessagebox" Case "showmessagebox"
'@screen.showmessagebox(str_message|[intArr_RGB_background]|[intArr_RGB_font]|[intArr_RGB_border])
Dim messageBox As New UI.MessageBox(CurrentScreen) Dim messageBox As New UI.MessageBox(CurrentScreen)
Dim colorsplit() As String = argument.Split("|") Dim colorsplit() As String = argument.Split("|")
Select Case argument.Split("|").Count Select Case argument.Split("|").Count
@ -127,6 +128,7 @@
CanContinue = False CanContinue = False
Case "showimage" Case "showimage"
'@screen.showimage(str_texture,[str_sfxname],[int_x],[int_y],[int_w],[int_h]))
Dim Texture As Texture2D = TextureManager.GetTexture(argument.GetSplit(0)) Dim Texture As Texture2D = TextureManager.GetTexture(argument.GetSplit(0))
Dim Sound As String = "" Dim Sound As String = ""
If argument.Split.Count > 1 Then If argument.Split.Count > 1 Then

1
P3D/World/ActionScript/V2/ScriptCommands/DoText.vb
View File

@ -12,6 +12,7 @@
Select Case command.ToLower() Select Case command.ToLower()
Case "notification" Case "notification"
'@text.notification(message,[int_delay=500],[int_backgroundID=0],[int_IconID=0],[str_sfx],[str_script],[bool_force=0])
Dim _NotificationPopup As New NotificationPopup Dim _NotificationPopup As New NotificationPopup
Dim args As String() = argument.Split(CChar(",")) Dim args As String() = argument.Split(CChar(","))
Select Case args.Length Select Case args.Length

1
P3D/World/ActionScript/V2/ScriptConstructs/DoPlayer.vb
View File

@ -88,6 +88,7 @@
Case "haspokegear" Case "haspokegear"
Return ReturnBoolean(Core.Player.HasPokegear) Return ReturnBoolean(Core.Player.HasPokegear)
Case "isgamejolt" Case "isgamejolt"
'<player.isgamejolt([bool_checkban=0])
If argument = "1" Then If argument = "1" Then
ReturnBoolean(Core.Player.IsGameJoltSave = True AndAlso GameJolt.LogInScreen.UserBanned(GameJoltSave.GameJoltID) = False) ReturnBoolean(Core.Player.IsGameJoltSave = True AndAlso GameJolt.LogInScreen.UserBanned(GameJoltSave.GameJoltID) = False)
End If End If

1
P3D/World/ActionScript/V2/ScriptConstructs/DoPokemon.vb
View File

@ -450,6 +450,7 @@
Return Core.Player.Pokemons(index).EggSteps Return Core.Player.Pokemons(index).EggSteps
End If End If
Case "mastershinyrate" Case "mastershinyrate"
'<pokemon.mastershinyrate([bool_globalmodifiers=1])>
Dim adjusted As Boolean = True Dim adjusted As Boolean = True
If argument <> "" Then If argument <> "" Then
adjusted = CBool(argument) adjusted = CBool(argument)