Hakumai.vb

Imports GTA
Imports System.Collections.Generic
Imports System

Public Class Hakumai
    Inherits Script

    Public Shared LightsOn As Boolean = False
    Public Shared LV As Vehicle
    Public Shared AllowVehicles As List(Of Model) = New List(Of Model) From {Game.GenerateHash("hakumai")}

    Public Sub New()
        AddHandler Tick, AddressOf OnTick
    End Sub

    Public Shared Sub TurnOnLights(vehicle As Vehicle)
        Select Case LightsOn
            Case False
                vehicle.CloseBombBay()
            Case True
                vehicle.OpenBombBay()
        End Select
    End Sub

    Public Sub OnTick(o As Object, e As EventArgs)
        If Game.Player.Character.LastVehicle.HasBombBay AndAlso AllowVehicles.Contains(Game.Player.Character.LastVehicle.Model) Then
            LV = Game.Player.Character.LastVehicle
            TurnOnLights(Game.Player.Character.LastVehicle)
            If LV.LightsOn = True AndAlso LV.HighBeamsOn = True Then
                LightsOn = True
            ElseIf LV.LightsOn = True AndAlso LV.HighBeamsOn = False Then
                LightsOn = True
            ElseIf LV.LightsOn = False AndAlso LV.HighBeamsOn = True Then
                LightsOn = True
            ElseIf LV.LightsOn = False AndAlso LV.HighBeamsOn = False Then
                LightsOn = False
            End If
        End If
    End Sub
End Class