GTA4 VB Скрипт

Imports System
Imports System.Windows.Forms
Imports GTA
 
 
Public Class RegenScript
   Inherits Script
 
   Private bRegen As Boolean = False
   Private Const HEALTH_VALUE As Integer = 100
 
   Public Sub New()
      Me.Interval = 250
      BindKey(Keys.I, AddressOf ToggleRegen)
   End Sub
 
   Private Sub RegenScript_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
      If bRegen Then
         Player.Character.Health = HEALTH_VALUE
      End If
   End Sub
  
   Private Sub ToggleRegen()
      If bRegen Then
         Player.MaxHealth = HEALTH_VALUE
         Player.Character.Health = HEALTH_VALUE
         Game.DisplayText("Health Regenerated!")
      End If
   End Sub
   
 
End Class
 
Public Class ArmorRegenScript
       Inherits Script
 
   Private bArmorRegen As Boolean = False
   Private Const ARMOR_VALUE As Integer = 100
 
   Public Sub New1()
      Me.Interval = 250
      BindKey(Keys.O, AddressOf ToggleArmorRegen)
   End Sub
 
    Private Sub ArmorRegenScript_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Tick
      If bArmorRegen Then
         Player.Character.Armor = ARMOR_VALUE
      End If
   End Sub
 
   Private Sub ToggleArmorRegen()
      If bArmorRegen Then
         Player.MaxArmor = ARMOR_VALUE
         Player.Character.Armor = ARMOR_VALUE
         Game.DisplayText("Armor Regenerated!") 
      End If
   End Sub
 
 
End Class

Imports System.Windows.Forms
Imports GTA
Public Class Pos
    Inherits Script
 
    Private Sub Pos_KeyDown(ByVal sender As Object, ByVal e As GTA.KeyEventArgs) Handles MyBase.KeyDown
        If e.Key = Keys.F12 Then
            Game.DisplayText(Player.Character.Position.ToString)
        End If
    End Sub
End Class