Help with weapon hack

[mojo007]

Hey ppl

I added the new Zeas module , and i did 2 buttons with a timer to make weapon hack, when i but i get error on line :

Call BAOCAOERN("WarRock", &HUE38F9, FAMAS)


here is the code
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Command3_Click()
MsgBox ("Hotkeys: FAMAS = Cntrl (Copyright hero4rune)")
End Sub


Private Sub Timer1_Timer()
If AENRBAOCO(vbKeyControl) Then
Dim FAMAS As Long
Dim FAMAS1 As Long
Call BAOCAOERN("WarRock", &HUE38F9, FAMAS)
FAMAS1 = FAMAS + &H4C
Call BAOCOEARN("WarRock", FAMAS1, 42)
End If
End Sub
End Sub

[ilovepie21]

no timer and tell me wat ur strings r

[mojo007]

i got the timer (clock)
my strings are AENRBAOCO and BAOCOEARN from the module

i cant get it to work


can you help me over msn ?

[ilovepie21]

put ur weapon hack in a button and wat is AENRBAOCO and BAOCOEARN like what string is it ( WriteALong etc.. )

[mojo007]

the weapon hack , will start when i press to buttun on and off

with timer. so i dont got your point ?

AENRBAOCO and BAOCOEARN is from write and readalong


btw i got banned oMg, when i should try it our ingame, damn you knwo why, i thought zeas modules was underdetected?

[ilovepie21]

ok look make a new a button called Weapons and a textbox and paste this code in the button

Dim Weapons1 As Long
Dim Weapons2 As Long
Call ReadALong("WarRock", &HPOINTER, Weapons1)
Weapons2 = Weapons1 + &HOFFSET
Call WriteALong("WarRock", Weapons1, Text1.Text)

[mojo007]

ok now i changed to
but can you tell me the what value istead of &Hpointer?


Private Sub Timer1_Timer()
Dim Weapons1 As Long
Dim Weapons2 As Long
Call EVOSMBBRF("WarRock", &HPOINTER, Weapons1)
Weapons2 = Weapons1 + &H4C
Call EVOSBBMRF("WarRock", Weapons1, Text1.Text)
End Sub

[mojo007]

when i start and typing in command1, after pressing, its exit the hack?

the code is following
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Dim b00m As Long
Dim b00m1 As Long
Call BRPDFIKRS("Warrock", &H4C, b00m)
shotgun1 = shotgun + &H4C
Call BRPDIKFRS("Warrock", b00m1, Text1.Text)
End Sub

[ilovepie21]

POINTER is the PLAYER POINTER ADDRESS go to warrock section look for my post with addies and use that offset is 4c and then u type the # of the weapon u want in hex and click button to get weapon ( u may have to roll to take it out )

[mojo007]

is that the code right now, with the adresses

Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Dim b00m As Long
Dim b00m1 As Long
Call BRPDFIKRS("Warrock", &H4C, b00m)
b00m11 = b00m + &H4C
Call BRPDIKFRS("Warrock", b00m1, Text1.Text)
End Sub

[Oneirish]

ya, its fine. when i did it didnt work for me because i forgot to disable and change the interval. but other than that the code is fine. if theres errors just pm me i can help you with vb6

[mojo007]

i got error Ambiguos name detected IMIJCGEPI something wrong with readabyte

[ilovepie21]

ok listen 4C is a OFFSET put "Player Pointer Address" as address it should be about 7 letters or numbers if not a litttle less since ur too lazy to look for it here it is

ADR_PLAYERBASE     1376340

[mojo007]

ok look the code is now
now when i compile and pressing on button 1, the hack menu leaving (exitting/&

Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Dim pons1 As Long
Dim pons2 As Long
Call ZPTULUOAL("Warrock", &H1376340, pons1)
pons2 = b00m + &H4C
Call ZPTUUOLAL("Warrock", pons1, Text1.Text)
End Sub

[ilovepie21]

ok listen delete ur timer and put the code u have in ur timer into a button ur not supposed to have a timer for weapon hack