63 lines
3.0 KiB
VB.net
63 lines
3.0 KiB
VB.net
Namespace ScriptVersion2
|
|
|
|
Partial Class ScriptComparer
|
|
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
' Contains the <environment> constructs.
|
|
' --------------------------------------------------------------------------------------------------------------------------
|
|
|
|
Private Shared Function DoEnvironment(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 "daytime"
|
|
Return World.GetTime.ToString()
|
|
Case "daytimeid"
|
|
Return int(CInt(World.GetTime)).ToString()
|
|
Case "season"
|
|
Return World.CurrentSeason.ToString()
|
|
Case "seasonid"
|
|
Return int(CInt(World.CurrentSeason)).ToString()
|
|
Case "day"
|
|
Return My.Computer.Clock.LocalTime.DayOfWeek.ToString()
|
|
Case "dayofyear"
|
|
Return My.Computer.Clock.LocalTime.DayOfYear().ToString()
|
|
Case "dayinformation"
|
|
Return My.Computer.Clock.LocalTime.DayOfWeek.ToString() & "," & World.GetTime.ToString()
|
|
Case "week"
|
|
Return World.WeekOfYear.ToString()
|
|
Case "hour"
|
|
Return My.Computer.Clock.LocalTime.Hour.ToString()
|
|
Case "year"
|
|
Return My.Computer.Clock.LocalTime.Year.ToString()
|
|
Case "weather", "mapweather", "currentmapweather"
|
|
Return Screen.Level.World.CurrentMapWeather.ToString()
|
|
Case "weatherid", "mapweatherid", "currentmapweatherid"
|
|
Return int(CInt(Screen.Level.World.CurrentMapWeather)).ToString()
|
|
Case "regionweather"
|
|
Return World.GetCurrentRegionWeather().ToString()
|
|
Case "regionweatherid"
|
|
Return int(CInt(World.GetCurrentRegionWeather())).ToString()
|
|
Case "canfly"
|
|
Return ReturnBoolean(Screen.Level.CanFly)
|
|
Case "candig"
|
|
Return ReturnBoolean(Screen.Level.CanDig)
|
|
Case "canteleport"
|
|
Return ReturnBoolean(Screen.Level.CanTeleport)
|
|
Case "wildpokemongrass"
|
|
Return ReturnBoolean(Screen.Level.WildPokemonGrass)
|
|
Case "wildpokemonwater"
|
|
Return ReturnBoolean(Screen.Level.WildPokemonWater)
|
|
Case "wildpokemoneverywhere"
|
|
Return ReturnBoolean(Screen.Level.WildPokemonFloor)
|
|
Case "isdark"
|
|
Return ReturnBoolean(Screen.Level.IsDark)
|
|
End Select
|
|
|
|
Return DEFAULTNULL
|
|
End Function
|
|
|
|
End Class
|
|
|
|
End Namespace |