Stamina:
Dim Stamina1 As Long
Dim Stamina2 As Long
Call ReadALong("Warrock", &H"ADDY" Stamina1)
Stamina2 = Stamina1 + &H288
Call WriteALong("Warrock", Stamina2, 1120403456)
End Sub
Stamina 2
Dim Stamina As Long
Dim Stamina1 As Long
Call ReadALong("Warrock", &H"ADDY", Stamina)
Stamina1 = Stamina + &H28C
Call WriteAFloat("Warrock", Stamina1, 100)
SuperJump:
Timer1.
If GetKeyPress(vbKeyX) Then
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("WarRock", &H "ADDY" , SJ)
SJ1 = SJ + &H178
SJ2 = Text1.Text
Call WriteAFloat("WarRock", SJ1, SJ2)
End If
Timer2.
If Check1.Value = 1 Then Timer1.Interval = 1
NFD:
Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("WarRock", &H"ADDY", NFD)
NFD1 = NFD + &H264
Call WriteALong("Warrock", NFD1, -2000)
Schwimmen:
Dim Swim1 As Long
Dim Swim2 As Long
Call ReadALong("Warrock",&H1373FE0 ,Swim1)
Swim2 = Swim1 +&H276
Call WriteAFloat("Warrock",Swim2, 4)
headshot
Call WriteAByte("Warrock",&H"ADDY",&H31)
Call WriteAByte("Warrock",&H"ADDY"+1,&HC0)
Antikik
Call WriteAByte("WarRock", &H"ADDY", &H90)
Call WriteAByte("WarRock", &H"ADDY" + 1, &H90)
Call WriteAByte("WarRock", &H"ADDY" + 2, &H90)
Call WriteAByte("WarRock", &H"ADDY" + 3, &H90)
Call WriteAByte("WarRock", &H"ADDY" + 4, &H90)
Call WriteAByte("WarRock", &H"ADDY" + 5, &H90)
>> >>>>U.Ammo<<<<<< <<
Call WriteAByte("Warrock", &H"ADDY", &H90)
Call WriteAByte("Warrock", &H"ADDY"+1, &H90)
Call WriteAByte("Warrock", &H"ADDY"+2, &H90)
Call WriteAByte("Warrock", &H"ADDY", &H90)
Call WriteAByte("Warrock", &H"ADDY"+1, &H90)
Call WriteAByte("Warrock", &H"ADDY"+2, &H90)
Call WriteAByte("Warrock", &H"ADDY", &H90)
Call WriteAByte("Warrock", &H"ADDY"+1, &H90)
Call WriteAByte("Warrock", &H"ADDY"+2, &H90)
QuickSpawn(No Wait)
Call WriteALong("WarRock", &H"ADDY" ,0)
Call WriteALong("WarRock", &H"ADDY",0)
Inst swan:
Call WriteAByte("Warrock" , &HADRESSE , 0)
Winchester:
If GetKeyPress(vbKey"BUTTON") Then
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H"ADDY", shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 42)
End if
End Sub
Und für alle die ne andere Waffe als die Winchester ham wollen da geht der code so:
ihr braucht:
-ein textfeld(mit dem namen 'Text1')
-ein Button
in das textfeld kommt die nummer der waffe...
und das kommt als code in den button:
Code:
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H"ADDY" , shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, Text1.Text)
ALLE ADDYS SIND SCHON ALT
No Bounds Hack:
Need:1 Button,1 Timer
Timer:
Call WriteALong("warrock", &HDC8004, 0)
Call WriteALong("warrock", &HDC8008
Crosshair Hack:
Need:1 Button,1 Timer
Timer:
Call WriteALong("warrock", (addy) , 1)
Full Bright Hack:
Need:1 Button,1 Timer
Timer:
Call WriteALong("warrock", (addy) , 1092779973)
Call WriteALong("warrock", (addy) , 1092779973)
Call WriteALong("warrock", (addy) , 1092779973)
Fast Ammo/Heal/Flag/Repair hack:
Need:1 Button,1 Timer
Timer:
Call WriteALong("warrock", (Fast Ammo Addy), 1092779973)
Call WriteALong("warrock", (Fast
Health Addy) , 1092779973)
Call WriteALong("warrock", (Fast Flag Addy) , 1092779973)
Call WriteALong("warrock", (Fast Repair Addy) , 1092779973)
5th Slot Hack:
Need:2 Buttons,1 Timer
Timer:
Call WriteALong("warrock", (addy) , 4)
Scope Hack:
Need:2 Button,1 timer
Hotkeys:Right Mouse
Timer:
If GetAsyncKeyState(vbKeyRButton) Then
Call WriteALong("warrock", (addy) , 1)
Else
Call WriteALong("warrock", (addy) , 0)
End If
No Recoil Hack:
Need:2 Buttons,1 Timer
Timer:
Dim recoil1 As Long
Dim recoil2 As Long
Dim recoil3 As Long
Dim recoil4 As Long
Call ReadALong("warrock", &H139A190 , recoil1)
recoil2 = recoil1 + &H174
recoil3 = recoil1 + &H17C
recoil4 = recoil1 + &H178
Call WriteAFloat("warrock", recoil2, 0)
Call WriteAFloat("warrock", recoil3, 0)
Call WriteAFloat("warrock", recoil4, 0)
No Spread Hack:
Need:2 Buttons,1 Timer
Timer:
Call WriteALong("WarRock", &HB1C278 , 0)
Call WriteALong("WarRock", &HB1C278 , 0)
Nochmehr Code Manche sind auch gleich
Stamina:
| Code: |
Du brauchst :2 Buttons,1 Timer
Timer:
Dim stamina1 As Long
Dim stamina2 As Long
Call ReadALong("warrock", (Player Pointer Address) , stamina1)
stamina2 = stamina1 + (adress)
Call WriteAFloat("warrock", stamina2, 100)
|
No Sprad
| Code: |
Du brauchst:2 Buttons,1 Timer
Timer:
Call WriteALong("WarRock", (addy) , 0)
Call WriteALong("WarRock", (addy), 0)
|
No recoil
| Code: |
Du brauchst:2 Buttons,1 Timer
Timer:
Dim recoil1 As Long
Dim recoil2 As Long
Dim recoil3 As Long
Dim recoil4 As Long
Call ReadALong("warrock", (Player Pointer Addy) , recoil1)
recoil2 = recoil1 + (addy)
recoil3 = recoil1 + (addy)
recoil4 = recoil1 + (addy)
Call WriteAFloat("warrock", recoil2, 0)
Call WriteAFloat("warrock", recoil3, 0)
Call WriteAFloat("warrock", recoil4, 0)
|
Superjump
| Code: |
Du brauchst:2 Buttons,1 Timer,1 Textbox
Timer:
If GetAsyncKeyState(vbKeyControl) Then
Dim jump1 As Long
Dim jump2 As Long
Dim jump3 As Single
Call ReadALong("warrock", (player Pointer Addy), jump1)
jump2 = jump1 + (addy)
jump3 = Text1.Text
Call WriteAFloat("warrock", jump2, jump3)
End If
|
Weapons
| Code: |
Du brauchst:2 Buttons,1 Timer,1 Textbox
Timer:
If GetAsyncKeyState(vbKeyF12) Then
Dim gun1 As Long
Dim gun2 As Long
Dim gun3 As Long
Call ReadALong("WarRock", (Player Pointer Addy), gun1)
gun2 = gun1 + (addy)
gun3 = Text2.Text
Call WriteALon[code]
|
g("WarRock", gun2, gun3) End If [/code] Antikick = 6mal NOP
| Code: |
Du brauchst:2 Buttons,1 Timer
Timer:
Call WriteAByte("warrock", (addy) , &H90)
Call WriteAByte("warrock", (addy) , &H90)
Call WriteAByte("warrock", (addy) , &H90)
Call WriteAByte("warrock", (addy) , &H90)
|
Scope
| Code: |
Du brauchst:2 Buttons,1 timer
Timer:
If GetAsyncKeyState(vbKeyRButton) Then
Call WriteALong("warrock", (addy) , 1)
Else
Call WriteALong("warrock", (addy) , 0)
End If
|
5 slot
| Code: |
Du brauchst:2 Buttons,1 Timer
Timer:
Call WriteALong("warrock", (addy) , 4)
|
Fast All
| Code: |
Du brauchst:1 Button,1 Timer
Timer:
Call WriteALong("warrock", (Fast Ammo Addy), 1092779973)
Call WriteALong("warrock", (Fast Health Addy) , 1092779973)
Call WriteALong("warrock", (Fast Flag Addy) , 1092779973)
Call WriteALong("warrock", (Fast Repair Addy) , 1092779973)
|
No Fall Damage
| Code: |
Du brauchst:2 Buttons,1 Timer
Timer:
Dim NFD1 As Long
Dim NFD2 As Long
Call ReadALong("WarRock", (Player Pointer Addy) , NFD1)
NFD2 = NFD1 + &addy)
Call WriteAFloat("WarRock", NFD2, -2000)
|
Full Brigte
| Code: |
Du brauchst:2 Buttons,1 Timer
Timer:
Call WriteALong("warrock", (addy) , 1092779973)
Call WriteALong("warrock", (addy) , 1092779973)
Call WriteALong("warrock", (addy) , 1092779973)
|
No Bounds
| Code: |
Du brauchst:2 Buttons,1 Timer
Timer:
Call WriteALong("warrock", (addy) , 0)
Call WriteALong("warrock", (addy) , 0) |
