Jump to content
Sign in to follow this  
BillLuvsU

VB Aimbot source

Recommended Posts

BillLuvsU

Ok, I'm taking up a bet with my friend. basically he said I couldn't make an aimbot for the game "Gunbound" with AutoIt and I was like PuhLeese, AutoIt is teh bomb. If you don't know what Gunbound is, then basically in the game you have two tank like structures and they shoot at each other (think worms). You can change the angle of your shot and the power. Also there is wind that changes periodically. Now an aimbot basically tells you how much power you need to hit with a certain angle and wind. So I found the source for an existing aimbot but it's in Visual Basic, which I do not know. All I need is how to calculate the needed power. Like the formula. I think the following code is it but I'm not sure so I'm attaching the whole file as well. Any help would be much appreciated.

Public Sub New(ByVal name As String, ByVal power As Integer, ByVal gravity As Integer, ByVal wind As Double, ByVal originShot1 As Point, ByVal originShot2 As Point, ByVal originShot3 As Point, ByVal shootsFromBehind As Boolean)

    Dim _botInfo As BotInfo
    _m_Name = name
    _m_Power = power
    _m_Gravity = (gravity * 4) - 5
    _m_Wind = wind
    _m_ShootsFromBehind = shootsFromBehind
    If (name = "Boomer") = 0 Then
      goto ILO_004a
    End If
    _botInfo = Me
    _botInfo.m_Gravity += 6
  ILO_004a:
    _m_OriginShot1 = originShot1
    _m_OriginShot1 = originShot2
    _m_OriginShot1 = originShot3
    Return
  End Sub
  Public Overridable ReadOnly Property Name As String
    Get
      Dim txt As String
      txt = _m_Name
      goto ILO_0009
    ILO_0009:
      Return txt
    End Get
  End Property
  Public Overridable ReadOnly Property Power As Integer
    Get
      Dim i As Integer
      i = _m_Power
      goto ILO_0009
    ILO_0009:
      Return i
    End Get
  End Property
  Public Overridable ReadOnly Property Wind As Double
    Get
      Dim dbl As Double
      dbl = _m_Wind
      goto ILO_0009
    ILO_0009:
      Return dbl
    End Get
  End Property
  Public Overridable ReadOnly Property ShootsFromBehind As Boolean
    Get
      Dim bl As Boolean
      bl = _m_ShootsFromBehind
      goto ILO_0009
    ILO_0009:
      Return bl
    End Get
  End Property
  Public Overridable ReadOnly Property Gravity As Integer
    Get
      Dim i As Integer
      i = _m_Gravity
      goto ILO_0009
    ILO_0009:
      Return i
    End Get
  End Property
  Public Overridable Sub ComputeAimPoint(ByRef x As Integer, ByRef y As Integer, ByVal direction As Integer, ByVal facingRight As Boolean)
    Dim i As Integer
    Dim objRef As System.Int32System.Int32&
    Dim objRef1 As System.Int32System.Int32&
    If _m_ShootsFromBehind = 0 Then
      goto ILO_000f
    End If
    facingRight = facingRight = 0
  ILO_000f:
    If facingRight = 0 Then
      goto ILO_0023
    End If
    i = direction + _m_OriginShot1.X
    goto ILO_0037
  ILO_0023:
    i = direction + (180 - _m_OriginShot1.X)
  ILO_0037:
    objRef = x
    objRef += CType(TableMath.Cos(i) * (1.5! + CType(_m_OriginShot1.Y,Single)),Integer)
    objRef1 = y
    objRef1 -= CType(TableMath.Sin(i) * (1.5! + CType(_m_OriginShot1.Y,Single)),Integer)
    Return
  End Sub
  Public Shared Function Lookup(ByVal bot As Bot) As BotInfo
    Dim i As Integer
    Dim _botInfo As BotInfo
    i = bot
    If i < 0 Then
      goto ILO_0010
    End If
    If i < CType(BotInfo.m_Bots.Length,Integer) Then
      goto ILO_0012
    End If
  ILO_0010:
    i = 0
  ILO_0012:
    _botInfo = BotInfo.m_Bots(i)
    goto ILO_001c
  ILO_001c:
    Return _botInfo
  End Function

[center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw

Share this post


Link to post
Share on other sites
BillLuvsU

ummm. Bump


[center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw

Share this post


Link to post
Share on other sites
BillLuvsU

Bump again, can no body understand VB? Or am I just acting the fool?


[center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw

Share this post


Link to post
Share on other sites
BillLuvsU

gah never mind. Imma go slit my wrists now.


[center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.