[TuT] Superjump,Stamina

[Krekka 0]

Superjump:

Man braucht:

 

1 Textbox (Text = 500)

1 Timer (Interval = 1)

 

In die Textbox kommt die Höhe des Sprungs.

Timer:

Code:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then

Dim SJ As Long

Dim SJ1 As Long

Dim SJ2 As Single

Call ReadALong("WarRock", &H1376360, SJ)

SJ1 = SJ + &H178

SJ2 = Text1.Text

Call WriteAFloat("WarRock", SJ1, SJ2)

End If

 

 

Hotkey : Strg+Leertaste

 

[NFD]No fall Damage

Man braucht:

2 Command Buttons (Command1 Caption = On; Command2 Caption = Off)

Info: Die Command Buttons sind zum aktivieren und deaktivieren des Timers da. Den Code dafür werdet ihr ja wohl kennen ^^

 

1 Timer (Interval = 0)

Timer Code:

Code:

Dim NFD As Long

Dim NFD1 As Long

Call ReadALong("WarRock", &H1376360, NFD)

NFD1 = NFD + &H264

Call WriteALong("Warrock", NFD1, 1)

 

 

Stamina

Man braucht:

2 Command Buttons( wie bei NFD)

1 Timer

 

Timer Code:

Code:

Dim Stamina As Long

Dim Stamina1 As Long

Call ReadALong("Warrock", &H1376360, Stamina)

Stamina1 = Stamina + &H28C

Call WriteAFloat("Warrock", Stamina1, 100)

 

Nunja kleines TuT habs selber grad erst ausprobiert. Man muss nur nochmal die adressen Updaten dan funkt er.^^

[.:ViRuZ:. 0]

VB08 Doesn´t work?!

Edited February 19, 2009 by .:ViRuZ:.

[Krekka 0]

woops? lulz but 4 me it works,^^ i forgot to post this its a bit old but i thought it works ^^

[Maxn 5060]

Will test it, but I also thought VB Cheats got patched...

[xxka1saxx 0]

the dont gotpatched u could bypass it...

[.:ViRuZ:. 0]

yes -.- .. But I can´t ^^

[Pasado 6]

nice,

but now i search for vb08