Global $Limit1 = 15
Global $Limit2 = 7
Global $Limit3 = 8000
Global $Limit4 = 4
Global $Limit5 = 10
Global $Limit6 = 15
Global $Limit7 = 30
Global $Limit8 = 14
Global $Limit9 = 15000
Global $Limit10 = 9
Global $Limit11 = 20
Global $Limit12 = 30
Global $Limit13 = 1000
Global $Limit14 = 1700
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Button()
Case $Button2
More1()
EndSwitch
WEnd
Func Button()
Tooltip ("Wait for S4League...",0,0)
$PID = ProcessWait("S4Client.exe")
$1 = GUICtrlRead($SP)
If $1 > 15 Then $1 = $Limit1
$2 = GUICtrlRead($Wall)
If $2 > 7 Then $2 = $Limit2
$3 = GUICtrlRead($Push)
If $3 > 6000 Then $3 = $Limit3
$4 = GUICtrlRead($Dmg)
If $4 > 4 Then $4 = $Limit4
$5 = GUICtrlRead($Cut)
If $5 > 10 Then $5 = $Limit5
$6 = GUICtrlRead($Dash)
If $6 > 15 Then $6 = $Limit6
$7 = GUICtrlRead($YAchse)
$8 = GUICtrlRead($XAchse)
$13 = GUICtrlRead($Jump)
If $6 > 1000 Then $6 = $Limit13
$14 = GUICtrlRead($Tele1)
$15 = GUICtrlRead($Fumbi1)
$16 = GUICtrlRead($Char1)
$17 = GUICtrlRead($Shield1)
Sleep ("1000")
$HPROCESS = _MEMORYOPEN($PID)
_MEMORYWRITE(0x00C49558, $HPROCESS, $1, "Float")
_MEMORYWRITE(0x00C4AC44, $HPROCESS, $2, "Float")
_MEMORYWRITE(0x00C49784, $HPROCESS, $3, "Float")
_MEMORYWRITE(0x00C49788, $HPROCESS, $3, "Float")
_MEMORYWRITE(0x00C4D67C, $HPROCESS, $4, "Float")
_MEMORYWRITE(0x00C6D9D4, $HPROCESS, $4, "Float")
_MEMORYWRITE(0x00C4D678, $HPROCESS, $5, "Float")
_MEMORYWRITE(0x00C49818, $HPROCESS, $6, "Float")
_MEMORYWRITE(0x00C4AE68, $HPROCESS, $7, "Float")
_MEMORYWRITE(0x00C4AE6C, $HPROCESS, $8, "Float")
_MEMORYWRITE(0x00C4AE6C, $HPROCESS, $13, "Float")
_MEMORYWRITE(0x00C49808, $HPROCESS, $14, "Float")
_MEMORYWRITE(0x00C497C0, $HPROCESS, $15, "Float")
_MEMORYWRITE(0x00C8567C, $HPROCESS, $16, "Float")
_MEMORYWRITE(0x00C497B0, $HPROCESS, $17, "Float")
if not @error then exit
if @error then MsgBox(16,"Error","Could not change values")
Endfunc
Func More1()
$pw = "include1"
$Box = Inputbox ("Password","type in Password","","*")
If $Box = $pw then Msgbox (10,"Right","Limits now Higher")
If $Box = $pw then More2()
If $box <> $pw then Msgbox(16,"Wrong","Wrong Password")
Endfunc
^Hier hat jmd. auch diese Fehler und dort wurde der Fehler anscheinend gelöst
Achja: Anstatt
Quote:
Global $Limit1 = 15
Global $Limit2 = 7
Global $Limit3 = 8000
Global $Limit4 = 4
Global $Limit5 = 10
Global $Limit6 = 15
Global $Limit7 = 30
Global $Limit8 = 14
Global $Limit9 = 15000
Global $Limit10 = 9
Global $Limit11 = 20
Global $Limit12 = 30
Global $Limit13 = 1000
Global $Limit14 = 1700
S4 League
Soweit ich das verstanden habe, stimmt was mit der 2. GUI nicht.
Schau dir mal das an, per Combo und Input wird das ganze übersichtlicher (visuell):
K, nur um das mal zu erklären.
Bei meiner Variante Hast du in einer Combo alle Hack-Namen. Sobald du eine auswählst, wird ein standart Wert geladen.
Und Wenn nicht alle von Anfang an aktiviert sein sollen, oder nur begrenzt, dann kannst du z.B. $GUI_DISABLE verwenden.
Die dropps wollen nicht klappen 07/14/2010 - Metin2 Private Server - 14 Replies Ich will das man von der Rote Drache immer die Truhe von ihn und eine 66rüssi+6 oder 61schilder+6 droppen kann, ich habe es selber probiert aber irgendwas ist falsch-.- haber ich habe schon 2 mal was bekommen von ca 60 Drachen -.-
Könnt ihr mir sagen was falsch ist an meine dropp oder könnt ihr mir eine neue machen???
Meine Drop
Group ÁøÃµÀÇÀå¼öÇÀ
{
Type kill
Mob 2291
kill_drop 400
QuestsFiles wollen nicht 07/02/2010 - Metin2 Private Server - 0 Replies Hey leute ich arbeite zur zeit an de Files aber ich habe ein problem ....
Immer wen ich quest files einfügen will make.sh ausführe usw. honkong.... kommt am ende nichts bei rauß also ist nichts wie vorhher Aber wen ich in eingetragennen quests einen satz verändere sofort anders..
Kann mir jemand sagen woran es liegen kann?
Die Injektoren wollen nicht Injecten >_< 06/24/2010 - Combat Arms - 1 Replies Hey leute..
Die injektoren wollen bei mir nicht Injecten. -.-
Habe Windows 7 Home Premium 64 Bit !
HAb alle Injektore ausprobiert,nur die injekten nicht..
Help ?
croosfire hacks wollen nicht laufen 11/26/2009 - CrossFire - 23 Replies croosfire hacks wollen nicht laufen habe windows vista und hab auch schon viele hacks ausprobiert aber wollen nichtgehen.bitte helft mir habe schon bf2 gehäckt und da hat es geklapt. ach und sorry wegen den rechtschreibfehlern :(:(:(:(:(:(:(:(:(:(
Tipp für alle die WAR nicht aus den Augen verlieren wollen 10/25/2007 - General Gaming Discussion - 0 Replies Eine Fanseite bietet einen Rückblick des Monats an. IMO eine gute Idee für Leute die das wichtigste Bei WAR mitbekommen wollen, aber keine Zeit haben jeden Tag News zu lesen:
WAR-Welten.de - Die deutschsprachige W.A.R. Communityseite
Das Video und die Screenshots finde ich nicht so toll, aber die News und im Forum sind interesante Dinge dabei!!
:p