mirror of
https://github.com/P3D-Legacy/P3D-Legacy.git
synced 2025-11-03 21:15:14 +01:00
37 lines
1.3 KiB
VB.net
37 lines
1.3 KiB
VB.net
Namespace ScriptVersion2
|
|
|
|
Partial Class ScriptComparer
|
|
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
' Contains the <battle> constructs.
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
|
|
Private Shared Function DoBattle(ByVal subClass As String) As Object
|
|
Dim command As String = GetSubClassArgumentPair(subClass).Command
|
|
Dim argument As String = GetSubClassArgumentPair(subClass).Argument
|
|
|
|
Select Case command.ToLower()
|
|
Case "defeatmessage"
|
|
Dim t As New Trainer(argument)
|
|
|
|
Return t.DefeatMessage
|
|
Case "intromessage"
|
|
Dim t As New Trainer(argument)
|
|
|
|
Return t.IntroMessage
|
|
Case "outromessage"
|
|
Dim t As New Trainer(argument)
|
|
|
|
Return t.OutroMessage
|
|
Case "won"
|
|
Return ReturnBoolean(BattleSystem.Battle.Won)
|
|
Case "caught"
|
|
Return ReturnBoolean(BattleSystem.Battle.Caught)
|
|
End Select
|
|
|
|
Return DEFAULTNULL
|
|
End Function
|
|
|
|
End Class
|
|
|
|
End Namespace |