به نام خدا
اینم سورس برای اجرای بازی و چند کار دیگر مثلا بارگذاری و ... که دیگه نیاز به توضیح نداره که خودش یک جورایی تراینر ولی زیاد کامل نیست .
کد:
Private Sub Command1_Click()
Call SAplrGoToCoOrd(2506.92, 2144.385, 10.96094)
End Sub
Private Sub Command2_Click()
Call Form_Load
End Sub
Private Sub Form_Load()
List1.Clear
List1.AddItem "GTA Running: " & GetGTAProcess("GTA: San Andreas")
List1.AddItem "Player Pointer: " & SAptrPlayer
List1.AddItem "Car Pointer: " & SAptrCar
List1.AddItem "Last Car Pointer: " & SAptrLastCar
List1.AddItem "Current XYZMatrix Pointer: " & SAptrXYZMatrix(SAptrCar)
List1.AddItem "Is Player On Foot: " & SAplrIsOnFoot
List1.AddItem "Is Player In Car: " & SAplrIsInCar
List1.AddItem "X Co-Ord: " & SAplrXCoOrd
List1.AddItem "Y Co-Ord: " & SAplrYCoOrd
List1.AddItem "Z Co-Ord: " & SAplrZCoOrd
List1.AddItem "Current Car ID: " & SAcarID
List1.AddItem "Current Car Type: " & SAcarType(SAcarID)
If SAisInCar = True And SAcarTrailerHas = True Then
List1.AddItem "Trailer Pointer: " & SAptrTrailer
Else
List1.AddItem "Trailer Attached: No"
End If
End Sub
Private Sub Timer1_Timer()
DoEvents
If GetGTAProcess("GTA: San Andreas") = True Then
Label1.Caption = "GTA:SA Is Running"
Else
Label1.Caption = "GTA:SA Is Not Running"
Exit Sub
End If
' Give Full Health
Call SAplrHealth(400)
' Give Full Max Health
Call SAplrMaxHealth(400)
' Give Full Armour
Call SAplrArmour(400)
' If Player Is On Foot, Give Immunities
If SAplrIsOnFoot = True Then
Call SAplrImmunitiesOn
End If
' If In A Car
If SAplrIsInCar = True Then
' Fix Any Damage
Call SAcarFullHealth
' Stop Car From Blowing Up
Call SAcarNotBurn
' Make Car Bullet/Fire/Dent/Explosion Proof
Call SAcarImmunitiesOn
' Make Car Heavy To Send Hit Cars Flying
Call SAcarGiveWeight
' If You Are In A Car Or On A Quad, Repair The Tyres
If SAcarType(SAcarID) = "car" Or SAcarType(SAcarID) = "quad" Then
SAcarFixTyresCar
End If
' If You Are On A Bike, Repair The Tyres
If SAcarType(SAcarID) = "bike" Then
SAcarFixTyresBike
End If
' If A Trailer Is Attached, Give Full Health & Immunities
If SAcarTrailerHas = True Then
Call SAcarTrailerRepair
Call SAcarTrailerImmunitiesOn
End If
End If
End Sub