SimplestGodMode.vb

Imports System ' basic imports
Imports GTA ' basic imports
Imports System.Windows.Forms ' needed to have access to "keys" enumeration, for example

Public Class SimplestGodMode
    Inherits Script

    private bGod as boolean = false
    private bSemiGod as boolean = false
    private iTimeScript as int16 = 0

    Public Sub New()
        Me.interval = 10
    End Sub

    private sub msg(sMsg as string, time as int32)
        Native.Function.Call("PRINT_STRING_WITH_LITERAL_STRING_NOW", "STRING", sMsg, time, 1)
    end sub

    Private Sub keyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
        if e.key = keys.f7 then
            bGod = not bGod

            turnGod

            if bGod then
                msg("God mode On", 2000)
                bSemiGod = false
            else
                msg("God mode Off", 2000)
            end if
        end if
        if e.key = keys.f8 then
            bSemiGod = not bSemiGod

            turnGod

            if bSemiGod then
                msg("Semi God mode On", 2000)
                bGod = false
            else
                msg("Semi God mode Off", 2000)
            end if
        end if
    End Sub

    Private Sub general_tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
        iTimeScript += me.interval

        if iTimeScript >= 1000 then
            turnGod
            iTimeScript = 0
        end if

        Heal
    end sub

    private sub turnGod
        if bGod then
            player.character.makeproofto(true, true, true, true, true)
            player.character.WillFlyThroughWindscreen = false
            player.character.CanBeKnockedOffBike = false
            player.character.CanBeDraggedOutOfVehicle = false
        else
            player.character.makeproofto(false, false, false, false, false)
            player.character.WillFlyThroughWindscreen = true
            player.character.CanBeKnockedOffBike = true
            player.character.CanBeDraggedOutOfVehicle = true
        end if
    end sub

    private sub Heal
        if bSemiGod then player.character.health += 1
    end sub
End Class