Bonjour a tous !
Je n'ai pas envie de faire long sur la présentation vous m'excuserez.
Voici comme promis mon 'petit' trainer pour MW3.
Je n'ai pas envie de faire long sur la présentation vous m'excuserez.
Voici comme promis mon 'petit' trainer pour MW3.
Avant toute choses !!
Le cheat a été fait sur une version Crackée de MW3, et en 32Bytes.
Je ne sais donc pas si cela fonctionne sous 64Bytes et sur officiel.
Encore moins en multi-joueur !
Arkenix MW3 Trainer
Screen :
Fonctions :
Regen HP instantané
Inf Ammo
Run Speed 0 > 1 > 2 > 3
Gravity (original : 800 )
Jump Force (original : 40)
Effect (original : ON)
Wall (original : ON)
Night Vision : NumPad [ 0 ]
Slot Arme 1 : NumPad [ 1 ]
Slot Arme 2 : NumPad [ 2 ]
Slot Arme 3 : NumPad [ 3 ]
Slot Arme 4 : NumPad [ 4 ]
Slot Arme 5 : NumPad [ 5 ]
Slot Arme 6 : NumPad [ 6 ]
Slot Arme 7 : NumPad [ 7 ]
Slot Arme 8 : NumPad [ 8 ]
Slot Arme 9 : NumPad [ 9 ]
Utilisation : Voir la vidéo de démonstration
[YOUTUBE]vx3HKtP24aE[/YOUTUBE]
Téléchargement !!!!
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
PS : pour ceux qui veulent modifier le trainer, il a été fait sous AutoIt, Je vous met le script à dispo !
Amusez vous bien !!
Le cheat a été fait sur une version Crackée de MW3, et en 32Bytes.
Je ne sais donc pas si cela fonctionne sous 64Bytes et sur officiel.
Encore moins en multi-joueur !
Screen :
Fonctions :
Regen HP instantané
Inf Ammo
Run Speed 0 > 1 > 2 > 3
Gravity (original : 800 )
Jump Force (original : 40)
Effect (original : ON)
Wall (original : ON)
Night Vision : NumPad [ 0 ]
Slot Arme 1 : NumPad [ 1 ]
Slot Arme 2 : NumPad [ 2 ]
Slot Arme 3 : NumPad [ 3 ]
Slot Arme 4 : NumPad [ 4 ]
Slot Arme 5 : NumPad [ 5 ]
Slot Arme 6 : NumPad [ 6 ]
Slot Arme 7 : NumPad [ 7 ]
Slot Arme 8 : NumPad [ 8 ]
Slot Arme 9 : NumPad [ 9 ]
Utilisation : Voir la vidéo de démonstration
[YOUTUBE]vx3HKtP24aE[/YOUTUBE]
Téléchargement !!!!
Ce lien n'est pas visible, veuillez vous connecter pour l'afficher. Je m'inscris!
PS : pour ceux qui veulent modifier le trainer, il a été fait sous AutoIt, Je vous met le script à dispo !
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <NomadMemory.au3>
#include <Misc.au3>
#Include <Array.au3>
#Include <File.au3>
#include <StaticConstants.au3>
TraySetIcon("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\ico.ico")
#Region ### START Koda GUI section ### Form=
Global $Version = "V 0.8 Little"
Global $Title = "Arkenix MW3 Trainer "&$Version
Global $Color = 0x8ab640
Global $Color2 = 0x8ab6FF
Global $BKColor = 0x000000
Global $Menu = 1
Global $MenuV = 1
Global $MenuSpeed = 0
Global $MenuGravity = 800
Global $MenuJump = 40
Global $MenuHp = 0
Global $MenuAmmo = 0
Global $MenuEffect = 1
Global $MenuWall = 1
Global $LabelHP = 100
HotKeySet("{RIGHT}", "MENUR")
HotKeySet("{LEFT}", "MENUL")
HotKeySet("{UP}", "MENUU")
HotKeySet("{DOWN}", "MENUD")
$Form1 = GUICreate($Title, 692, 26, -1, 0,BitOR($WS_SYSMENU,$WS_POPUP), BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
GUISetFont(8, 800, 0, "MS Sans Serif")
GUISetBkColor($BKColor)
GUISetIcon("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\ico.ico", -1)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 500, "long", 0x00080000);fondu
$Label1 = GUICtrlCreateLabel("HP: off", 5, 5, 45, 13)
GUICtrlSetBKColor(-1, $Color)
GUICtrlSetColor(-1, $BKColor)
$Label2 = GUICtrlCreateLabel("Ammo: off", 104, 5, 65, 13)
GUICtrlSetColor(-1, $Color)
$Label3 = GUICtrlCreateLabel("SPEED", 184, 5, 45, 13)
GUICtrlSetColor(-1, $Color)
$Label4 = GUICtrlCreateLabel($LabelHP&"%", 56, 5, 34, 13)
GUICtrlSetColor(-1, $Color2)
$Label5 = GUICtrlCreateLabel("Gravity", 256, 5, 50, 13)
GUICtrlSetColor(-1, $Color)
$Label6 = GUICtrlCreateLabel("800", 320, 5, 25, 13)
GUICtrlSetColor(-1, $Color2)
$Label7 = GUICtrlCreateLabel("Jump Force", 360, 5, 67, 13)
GUICtrlSetColor(-1, $Color)
$Label8 = GUICtrlCreateLabel("40", 430, 5, 30, 13)
GUICtrlSetColor(-1, $Color2)
$Label9 = GUICtrlCreateLabel("0", 232, 5, 11, 13)
GUICtrlSetColor(-1, $Color2)
$Label10 = GUICtrlCreateLabel("Effect: on", 485, 5, 68, 13)
GUICtrlSetColor(-1, $Color)
$Label11 = GUICtrlCreateLabel("Wall: on", 568, 5, 58, 13)
GUICtrlSetColor(-1, $Color)
$Label12 = GUICtrlCreateLabel("1", 654, 5, 13, 13)
GUICtrlSetColor(-1, $Color)
$PicNV = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\NV.jpg", 630, 5, 19, 14)
$Button1 = GUICtrlCreateButton("X", 670, 5, 17, 17)
GUICtrlSetColor(-1, $Color)
GUICtrlSetBkColor(-1, $BKColor)
$Pic2 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\Separator.jpg", 91, 0, 8, 26)
$Pic3 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\Separator.jpg", 171, 0, 8, 26)
$Pic4 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\Separator.jpg", 244, 0, 8, 26)
$Pic5 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\Separator.jpg", 346, 0, 8, 26)
$Pic6 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\Separator.jpg", 470, 0, 8, 26)
$Pic7 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\Separator.jpg", 554, 0, 8, 26)
GUISetState(@SW_SHOW)
WinSetTrans($Title, "", 190)
sleep(500)
$Wait = GUICreate($Title&" Wait", 217, 66, -1, -1,BitOR($WS_SYSMENU,$WS_POPUP), BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
GUISetBkColor($BKColor)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Wait, "int", 600, "long", 0x00080000);fondu
$Status = GUICtrlCreateLabel("Run MW3...", 0, 0, 217, 66, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetColor(-1, $Color)
GUICtrlSetBkColor(-1, $BKColor)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
WinSetTrans($Title&" Wait", "", 190)
$List = ProcessWait("iw5sp.exe")
GUICtrlSetData($Status,"Loading ...")
$OPENMEM = _MEMORYOPEN($List)
WinMove($Title&" Wait","",@DesktopWidth/2-217/2,26,217,66,10)
GUISetState(@SW_HIDE,$Title&" Wait")
Global $Slot1 =0x012A9774
Global $Slot2 =0x012A9778
Global $Slot3 =0x012A977C
Global $Slot4 =0x012A9780
Global $Slot5 =0x012A9784
Global $Slot6 =0x012A9788
Global $Slot7 =0x012A978C
Global $Slot8 =0x012A9790
Global $Slot9 =0x012A9794
Global $SlotSwitch =0x008B923C
Global $ADDHP = 0x010BF428
Global $Ammo1 = 0x012A9910
Global $Ammo2 = 0x012A991C
Global $Ammo3 = 0x012A9928
Global $Ammo4 = 0x012A9934
Global $Ammo5 = 0x012A9940
Global $Ammo6 = 0x012A994C
Global $Ammo7 = 0x012A9958
Global $Ammo8 = 0x012A9964
Global $Ammo9 = 0x012A9970
Global $Ammo10 = 0x012A997C
Global $Ammo11 = 0x012A9988
Global $Ammo12 = 0x012A9994
Global $Ammo13 = 0x012A99A0
Global $Ammo14 = 0x012A99AC
Global $Ammo15 = 0x012A99B8
Global $Ammo16 = 0x012A99C4
Global $Ammo17 = 0x012A99D0
Global $Ammo18 = 0x012A99DC
Global $Wall = 0x01B752B0
Global $Angle = 0x01B88134
Global $View1 = 0x01B74554
Global $View2 = 0x01B74A14
Global $View3 = 0x01B74508
Global $AddEffect = 0x01B76CD0
Global $RunSpeed1 = 0x01B80B58
Global $RunSpeed2 = 0x01B80BA4
Global $RunSpeed3 = 0x01B80F80
Global $Jump1 = 0x01B81AC8
Global $Jump2 = 0x01B81EA4
Global $Gravity1 = 0x01B81608
Global $Gravity2 = 0x01B819E4
Global $Night = 0x012A9550
Global $Laser = 0x012A9874
Global $VARNIGHT = 0
$dll = DllOpen("user32.dll")
While 1
$MW3 = ProcessExists("iw5sp.exe")
If $MW3 = 0 Then
GUICtrlSetData($Status,$Title)
GUISetState(@SW_SHOW,$Title&" Wait")
WinMove($Title&" Wait","",@DesktopWidth/2-217/2,@DesktopHeight/2-33,217,66,6)
GUICtrlSetData($Status,"Bye bye!")
Sleep(1000)
Exit
Endif
$WinFocus = _MemoryRead(0x01C049CC,$OPENMEM,"long")
If _MemoryRead($Jump1,$OPENMEM,"float") <> $MenuJump or _MemoryRead($Jump2,$OPENMEM,"float") <> $MenuJump Then
_MemoryWrite($Jump1,$OPENMEM,$MenuJump,"float")
_MemoryWrite($Jump2,$OPENMEM,$MenuJump,"float")
EndIf
If _MemoryRead($Wall,$OPENMEM,"long") <> $MenuWall Then
_MemoryWrite($Wall,$OPENMEM,$MenuWall,"long")
EndIf
If _MemoryRead($AddEffect,$OPENMEM,"long") <> $MenuEffect Then
_MemoryWrite($AddEffect,$OPENMEM,$MenuEffect,"long")
Endif
if _MemoryRead($Gravity1,$OPENMEM,"float") <> $MenuGravity or _MemoryRead($Gravity2,$OPENMEM,"float") <> $MenuGravity Then
_MemoryWrite($Gravity1,$OPENMEM,$MenuGravity,"float")
_MemoryWrite($Gravity2,$OPENMEM,$MenuGravity,"float")
EndIf
If _IsPressed(60, $dll)And $WinFocus = 1 Then
If $VARNIGHT = 0 Then
$VARNIGHT = 1
_MemoryWrite($Night,$OPENMEM,8,"long")
_MemoryWrite($Laser,$OPENMEM,0,"long")
GUICtrlSetImage($PicNV,"C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\NV2.jpg")
Sleep(200)
Else
$VARNIGHT = 0
_MemoryWrite($Night,$OPENMEM,0,"long")
_MemoryWrite($Laser,$OPENMEM,64,"long")
GUICtrlSetImage($PicNV,"C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\NV.jpg")
Sleep(200)
EndIf
Endif
If $WinFocus = 1 Then
If _IsPressed(61, $dll) Then
GUICtrlSetData($Label12,"1")
$SlotN1 = _MemoryRead($Slot1,$OPENMEM,"long")
If $SlotN1 = 0 then
_MemoryWrite($Slot1,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN1,"long")
Endif
Endif
If _IsPressed(62, $dll) Then
GUICtrlSetData($Label12,"2")
$SlotN2 = _MemoryRead($Slot2,$OPENMEM,"long")
If $SlotN2 = 0 then
_MemoryWrite($Slot2,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN2,"long")
Endif
Endif
If _IsPressed(63, $dll) Then
GUICtrlSetData($Label12,"3")
$SlotN3 = _MemoryRead($Slot3,$OPENMEM,"long")
If $SlotN3 = 0 then
_MemoryWrite($Slot3,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN3,"long")
Endif
Endif
If _IsPressed(64, $dll) Then
GUICtrlSetData($Label12,"4")
$SlotN4 = _MemoryRead($Slot4,$OPENMEM,"long")
If $SlotN4 = 0 then
_MemoryWrite($Slot4,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN4,"long")
Endif
Endif
If _IsPressed(65, $dll) Then
GUICtrlSetData($Label12,"5")
$SlotN5 = _MemoryRead($Slot5,$OPENMEM,"long")
If $SlotN5 = 0 then
_MemoryWrite($Slot5,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN5,"long")
Endif
Endif
If _IsPressed(66, $dll) Then
GUICtrlSetData($Label12,"6")
$SlotN6 = _MemoryRead($Slot6,$OPENMEM,"long")
If $SlotN6 = 0 then
_MemoryWrite($Slot6,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN6,"long")
Endif
Endif
If _IsPressed(67, $dll) Then
GUICtrlSetData($Label12,"7")
$SlotN7 = _MemoryRead($Slot7,$OPENMEM,"long")
If $SlotN7 = 0 then
_MemoryWrite($Slot7,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN7,"long")
Endif
Endif
If _IsPressed(68, $dll) Then
GUICtrlSetData($Label12,"8")
$SlotN8 = _MemoryRead($Slot8,$OPENMEM,"long")
If $SlotN8 = 0 then
_MemoryWrite($Slot8,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN8,"long")
Endif
Endif
If _IsPressed(69, $dll) Then
GUICtrlSetData($Label12,"9")
$SlotN9 = _MemoryRead($Slot9,$OPENMEM,"long")
If $SlotN9 = 0 then
_MemoryWrite($Slot9,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN9,"long")
Endif
Endif
EndIf
If $MenuSpeed <> 0 Then
$ReadSpeed1 = _MemoryRead($RunSpeed1,$OPENMEM,"float")
$ReadSpeed2 = _MemoryRead($RunSpeed2,$OPENMEM,"float")
$ReadSpeed3 = _MemoryRead($RunSpeed3,$OPENMEM,"float")
If $MenuSpeed = 1 And $ReadSpeed1 <> 3 or $MenuSpeed = 1 And $ReadSpeed2 <> 3 or $MenuSpeed = 1 And $ReadSpeed3 <> 3 Then
_MemoryWrite($RunSpeed1,$OPENMEM,3,"float")
_MemoryWrite($RunSpeed2,$OPENMEM,3,"float")
_MemoryWrite($RunSpeed3,$OPENMEM,3,"float")
Endif
If $MenuSpeed = 2 And $ReadSpeed1 <> 6 or $MenuSpeed = 2 And $ReadSpeed2 <> 6 or $MenuSpeed = 2 And $ReadSpeed3 <> 6 Then
_MemoryWrite($RunSpeed1,$OPENMEM,6,"float")
_MemoryWrite($RunSpeed2,$OPENMEM,6,"float")
_MemoryWrite($RunSpeed3,$OPENMEM,6,"float")
Endif
If $MenuSpeed = 3 And $ReadSpeed1 <> 12 or $MenuSpeed = 3 And $ReadSpeed2 <> 12 or $MenuSpeed = 3 And $ReadSpeed3 <> 12 Then
_MemoryWrite($RunSpeed1,$OPENMEM,12,"float")
_MemoryWrite($RunSpeed2,$OPENMEM,12,"float")
_MemoryWrite($RunSpeed3,$OPENMEM,12,"float")
Endif
Else
$ReadSpeed4 = _MemoryRead($RunSpeed1,$OPENMEM,"float")
$ReadSpeed5 = _MemoryRead($RunSpeed2,$OPENMEM,"float")
$ReadSpeed6 = _MemoryRead($RunSpeed3,$OPENMEM,"float")
If $ReadSpeed4 <> 1.5 or $ReadSpeed5 <> 1.5 or $ReadSpeed6 <> 1.5 Then
_MemoryWrite($RunSpeed1,$OPENMEM,1.5,"float")
_MemoryWrite($RunSpeed2,$OPENMEM,1.5,"float")
_MemoryWrite($RunSpeed3,$OPENMEM,1.5,"float")
Endif
EndIf
If $MenuAmmo = 1 Then
$ReadAmmo1 = _MemoryRead($Ammo1,$OPENMEM,"long")
$ReadAmmo2 = _MemoryRead($Ammo2,$OPENMEM,"long")
$ReadAmmo3 = _MemoryRead($Ammo3,$OPENMEM,"long")
$ReadAmmo4 = _MemoryRead($Ammo4,$OPENMEM,"long")
$ReadAmmo5 = _MemoryRead($Ammo5,$OPENMEM,"long")
$ReadAmmo6 = _MemoryRead($Ammo6,$OPENMEM,"long")
$ReadAmmo7 = _MemoryRead($Ammo7,$OPENMEM,"long")
$ReadAmmo8 = _MemoryRead($Ammo8,$OPENMEM,"long")
$ReadAmmo9 = _MemoryRead($Ammo9,$OPENMEM,"long")
$ReadAmmo10 = _MemoryRead($Ammo10,$OPENMEM,"long")
$ReadAmmo11 = _MemoryRead($Ammo11,$OPENMEM,"long")
$ReadAmmo12 = _MemoryRead($Ammo12,$OPENMEM,"long")
$ReadAmmo13 = _MemoryRead($Ammo13,$OPENMEM,"long")
$ReadAmmo14 = _MemoryRead($Ammo14,$OPENMEM,"long")
$ReadAmmo15 = _MemoryRead($Ammo15,$OPENMEM,"long")
$ReadAmmo16 = _MemoryRead($Ammo16,$OPENMEM,"long")
$ReadAmmo17 = _MemoryRead($Ammo17,$OPENMEM,"long")
$ReadAmmo18 = _MemoryRead($Ammo18,$OPENMEM,"long")
If $ReadAmmo1 or $ReadAmmo2 or $ReadAmmo3 or $ReadAmmo4 or $ReadAmmo5 or $ReadAmmo6 or $ReadAmmo7 or $ReadAmmo8 or $ReadAmmo9 or $ReadAmmo10 or $ReadAmmo11 or $ReadAmmo12 or $ReadAmmo13 or $ReadAmmo14 or $ReadAmmo15 or $ReadAmmo16 or $ReadAmmo17 or $ReadAmmo18 < 100 Then
_MemoryWrite($Ammo1,$OPENMEM,999,"long")
_MemoryWrite($Ammo2,$OPENMEM,999,"long")
_MemoryWrite($Ammo3,$OPENMEM,999,"long")
_MemoryWrite($Ammo4,$OPENMEM,999,"long")
_MemoryWrite($Ammo5,$OPENMEM,999,"long")
_MemoryWrite($Ammo6,$OPENMEM,999,"long")
_MemoryWrite($Ammo7,$OPENMEM,999,"long")
_MemoryWrite($Ammo8,$OPENMEM,999,"long")
_MemoryWrite($Ammo9,$OPENMEM,999,"long")
_MemoryWrite($Ammo10,$OPENMEM,999,"long")
_MemoryWrite($Ammo11,$OPENMEM,999,"long")
_MemoryWrite($Ammo12,$OPENMEM,999,"long")
_MemoryWrite($Ammo13,$OPENMEM,999,"long")
_MemoryWrite($Ammo14,$OPENMEM,999,"long")
_MemoryWrite($Ammo15,$OPENMEM,999,"long")
_MemoryWrite($Ammo16,$OPENMEM,999,"long")
_MemoryWrite($Ammo17,$OPENMEM,999,"long")
_MemoryWrite($Ammo18,$OPENMEM,999,"long")
EndIf
EndIf
$HP = _MemoryRead($ADDHP,$OPENMEM,"long")
If $HP <> $LabelHP Then
$LabelHP = $HP
GUICtrlSetData($Label4,$LabelHP&"%")
Endif
If $MenuHp = 1 And $HP < 100 Then
_MemoryWrite($ADDHP,$OPENMEM,100,"long")
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
Exit
EndSwitch
WEnd
Func MENUL()
If $MenuV = 7 Then
GUICtrlSetBKColor($Label11, $BKColor)
GUICtrlSetColor($Label11, $Color)
GUICtrlSetBKColor($Label10, $Color)
GUICtrlSetColor($Label10, $BKColor)
$MenuV -= 1
ElseIf $MenuV = 6 Then
GUICtrlSetBKColor($Label10, $BKColor)
GUICtrlSetColor($Label10, $Color)
GUICtrlSetBKColor($Label7, $Color)
GUICtrlSetColor($Label7, $BKColor)
$MenuV -= 1
ElseIf $MenuV = 5 Then
GUICtrlSetBKColor($Label7, $BKColor)
GUICtrlSetColor($Label7, $Color)
GUICtrlSetBKColor($Label5, $Color)
GUICtrlSetColor($Label5, $BKColor)
$MenuV -= 1
ElseIf $MenuV = 4 Then
GUICtrlSetBKColor($Label5, $BKColor)
GUICtrlSetColor($Label5, $Color)
GUICtrlSetBKColor($Label3, $Color)
GUICtrlSetColor($Label3, $BKColor)
$MenuV -= 1
ElseIf $MenuV = 3 Then
GUICtrlSetBKColor($Label3, $BKColor)
GUICtrlSetColor($Label3, $Color)
GUICtrlSetBKColor($Label2, $Color)
GUICtrlSetColor($Label2, $BKColor)
$MenuV -= 1
ElseIf $MenuV = 2 Then
GUICtrlSetBKColor($Label2, $BKColor)
GUICtrlSetColor($Label2, $Color)
GUICtrlSetBKColor($Label1, $Color)
GUICtrlSetColor($Label1, $BKColor)
$MenuV -= 1
Endif
EndFunc
Func MENUR()
If $MenuV = 1 Then
GUICtrlSetBKColor($Label1, $BKColor)
GUICtrlSetColor($Label1, $Color)
GUICtrlSetBKColor($Label2, $Color)
GUICtrlSetColor($Label2, $BKColor)
$MenuV += 1
ElseIf $MenuV = 2 Then
GUICtrlSetBKColor($Label2, $BKColor)
GUICtrlSetColor($Label2, $Color)
GUICtrlSetBKColor($Label3, $Color)
GUICtrlSetColor($Label3, $BKColor)
$MenuV += 1
ElseIf $MenuV = 3 Then
GUICtrlSetBKColor($Label3, $BKColor)
GUICtrlSetColor($Label3, $Color)
GUICtrlSetBKColor($Label5, $Color)
GUICtrlSetColor($Label5, $BKColor)
$MenuV += 1
ElseIf $MenuV = 4 Then
GUICtrlSetBKColor($Label5, $BKColor)
GUICtrlSetColor($Label5, $Color)
GUICtrlSetBKColor($Label7, $Color)
GUICtrlSetColor($Label7, $BKColor)
$MenuV += 1
ElseIf $MenuV = 5 Then
GUICtrlSetBKColor($Label7, $BKColor)
GUICtrlSetColor($Label7, $Color)
GUICtrlSetBKColor($Label10, $Color)
GUICtrlSetColor($Label10, $BKColor)
$MenuV += 1
ElseIf $MenuV = 6 Then
GUICtrlSetBKColor($Label10, $BKColor)
GUICtrlSetColor($Label10, $Color)
GUICtrlSetBKColor($Label11, $Color)
GUICtrlSetColor($Label11, $BKColor)
$MenuV += 1
Endif
EndFunc
Func MENUU()
If $MenuV = 1 Then
GUICtrlSetData($Label1,"HP: on")
$MenuHp = 1
Elseif $MenuV = 2 Then
GUICtrlSetData($Label2,"Ammo: on")
$MenuAmmo = 1
Elseif $MenuV = 3 And $MenuSpeed = 0 Then
GUICtrlSetData($Label9,"1")
$MenuSpeed = 1
Elseif $MenuV = 3 And $MenuSpeed = 1 Then
GUICtrlSetData($Label9,"2")
$MenuSpeed = 2
Elseif $MenuV = 3 And $MenuSpeed = 2 Then
GUICtrlSetData($Label9,"3")
$MenuSpeed = 3
Elseif $MenuV = 4 And $MenuGravity < 800 Then
$MenuGravity += 10
GUICtrlSetData($Label6,$MenuGravity)
Elseif $MenuV = 5 And $MenuJump < 1000 Then
$MenuJump += 10
GUICtrlSetData($Label8,$MenuJump)
Elseif $MenuV = 6 Then
GUICtrlSetData($Label10,"Effect: on")
$MenuEffect = 1
Elseif $MenuV = 7 Then
GUICtrlSetData($Label11,"Wall: on")
$MenuWall = 1
EndIf
EndFunc
Func MENUD()
If $MenuV = 1 Then
GUICtrlSetData($Label1,"HP: off")
$MenuHp = 0
Elseif $MenuV = 2 Then
GUICtrlSetData($Label2,"Ammo: off")
$MenuAmmo = 0
Elseif $MenuV = 3 And $MenuSpeed = 1 Then
GUICtrlSetData($Label9,"0")
$MenuSpeed = 0
Elseif $MenuV = 3 And $MenuSpeed = 2 Then
GUICtrlSetData($Label9,"1")
$MenuSpeed = 1
Elseif $MenuV = 3 And $MenuSpeed = 3 Then
GUICtrlSetData($Label9,"2")
$MenuSpeed = 2
Elseif $MenuV = 4 And $MenuGravity > -800 Then
$MenuGravity -= 10
GUICtrlSetData($Label6,$MenuGravity)
Elseif $MenuV = 5 And $MenuJump > 40 Then
$MenuJump -= 10
GUICtrlSetData($Label8,$MenuJump)
Elseif $MenuV = 6 Then
GUICtrlSetData($Label10,"Effect: off")
$MenuEffect = 0
Elseif $MenuV = 7 Then
GUICtrlSetData($Label11,"Wall: off")
$MenuWall = 0
EndIf
EndFunc
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <NomadMemory.au3>
#include <Misc.au3>
#Include <Array.au3>
#Include <File.au3>
#include <StaticConstants.au3>
TraySetIcon("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\ico.ico")
#Region ### START Koda GUI section ### Form=
Global $Version = "V 0.8 Little"
Global $Title = "Arkenix MW3 Trainer "&$Version
Global $Color = 0x8ab640
Global $Color2 = 0x8ab6FF
Global $BKColor = 0x000000
Global $Menu = 1
Global $MenuV = 1
Global $MenuSpeed = 0
Global $MenuGravity = 800
Global $MenuJump = 40
Global $MenuHp = 0
Global $MenuAmmo = 0
Global $MenuEffect = 1
Global $MenuWall = 1
Global $LabelHP = 100
HotKeySet("{RIGHT}", "MENUR")
HotKeySet("{LEFT}", "MENUL")
HotKeySet("{UP}", "MENUU")
HotKeySet("{DOWN}", "MENUD")
$Form1 = GUICreate($Title, 692, 26, -1, 0,BitOR($WS_SYSMENU,$WS_POPUP), BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
GUISetFont(8, 800, 0, "MS Sans Serif")
GUISetBkColor($BKColor)
GUISetIcon("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\ico.ico", -1)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 500, "long", 0x00080000);fondu
$Label1 = GUICtrlCreateLabel("HP: off", 5, 5, 45, 13)
GUICtrlSetBKColor(-1, $Color)
GUICtrlSetColor(-1, $BKColor)
$Label2 = GUICtrlCreateLabel("Ammo: off", 104, 5, 65, 13)
GUICtrlSetColor(-1, $Color)
$Label3 = GUICtrlCreateLabel("SPEED", 184, 5, 45, 13)
GUICtrlSetColor(-1, $Color)
$Label4 = GUICtrlCreateLabel($LabelHP&"%", 56, 5, 34, 13)
GUICtrlSetColor(-1, $Color2)
$Label5 = GUICtrlCreateLabel("Gravity", 256, 5, 50, 13)
GUICtrlSetColor(-1, $Color)
$Label6 = GUICtrlCreateLabel("800", 320, 5, 25, 13)
GUICtrlSetColor(-1, $Color2)
$Label7 = GUICtrlCreateLabel("Jump Force", 360, 5, 67, 13)
GUICtrlSetColor(-1, $Color)
$Label8 = GUICtrlCreateLabel("40", 430, 5, 30, 13)
GUICtrlSetColor(-1, $Color2)
$Label9 = GUICtrlCreateLabel("0", 232, 5, 11, 13)
GUICtrlSetColor(-1, $Color2)
$Label10 = GUICtrlCreateLabel("Effect: on", 485, 5, 68, 13)
GUICtrlSetColor(-1, $Color)
$Label11 = GUICtrlCreateLabel("Wall: on", 568, 5, 58, 13)
GUICtrlSetColor(-1, $Color)
$Label12 = GUICtrlCreateLabel("1", 654, 5, 13, 13)
GUICtrlSetColor(-1, $Color)
$PicNV = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\NV.jpg", 630, 5, 19, 14)
$Button1 = GUICtrlCreateButton("X", 670, 5, 17, 17)
GUICtrlSetColor(-1, $Color)
GUICtrlSetBkColor(-1, $BKColor)
$Pic2 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\Separator.jpg", 91, 0, 8, 26)
$Pic3 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\Separator.jpg", 171, 0, 8, 26)
$Pic4 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\Separator.jpg", 244, 0, 8, 26)
$Pic5 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\Separator.jpg", 346, 0, 8, 26)
$Pic6 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\Separator.jpg", 470, 0, 8, 26)
$Pic7 = GUICtrlCreatePic("C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\Separator.jpg", 554, 0, 8, 26)
GUISetState(@SW_SHOW)
WinSetTrans($Title, "", 190)
sleep(500)
$Wait = GUICreate($Title&" Wait", 217, 66, -1, -1,BitOR($WS_SYSMENU,$WS_POPUP), BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
GUISetBkColor($BKColor)
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Wait, "int", 600, "long", 0x00080000);fondu
$Status = GUICtrlCreateLabel("Run MW3...", 0, 0, 217, 66, BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetColor(-1, $Color)
GUICtrlSetBkColor(-1, $BKColor)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
WinSetTrans($Title&" Wait", "", 190)
$List = ProcessWait("iw5sp.exe")
GUICtrlSetData($Status,"Loading ...")
$OPENMEM = _MEMORYOPEN($List)
WinMove($Title&" Wait","",@DesktopWidth/2-217/2,26,217,66,10)
GUISetState(@SW_HIDE,$Title&" Wait")
Global $Slot1 =0x012A9774
Global $Slot2 =0x012A9778
Global $Slot3 =0x012A977C
Global $Slot4 =0x012A9780
Global $Slot5 =0x012A9784
Global $Slot6 =0x012A9788
Global $Slot7 =0x012A978C
Global $Slot8 =0x012A9790
Global $Slot9 =0x012A9794
Global $SlotSwitch =0x008B923C
Global $ADDHP = 0x010BF428
Global $Ammo1 = 0x012A9910
Global $Ammo2 = 0x012A991C
Global $Ammo3 = 0x012A9928
Global $Ammo4 = 0x012A9934
Global $Ammo5 = 0x012A9940
Global $Ammo6 = 0x012A994C
Global $Ammo7 = 0x012A9958
Global $Ammo8 = 0x012A9964
Global $Ammo9 = 0x012A9970
Global $Ammo10 = 0x012A997C
Global $Ammo11 = 0x012A9988
Global $Ammo12 = 0x012A9994
Global $Ammo13 = 0x012A99A0
Global $Ammo14 = 0x012A99AC
Global $Ammo15 = 0x012A99B8
Global $Ammo16 = 0x012A99C4
Global $Ammo17 = 0x012A99D0
Global $Ammo18 = 0x012A99DC
Global $Wall = 0x01B752B0
Global $Angle = 0x01B88134
Global $View1 = 0x01B74554
Global $View2 = 0x01B74A14
Global $View3 = 0x01B74508
Global $AddEffect = 0x01B76CD0
Global $RunSpeed1 = 0x01B80B58
Global $RunSpeed2 = 0x01B80BA4
Global $RunSpeed3 = 0x01B80F80
Global $Jump1 = 0x01B81AC8
Global $Jump2 = 0x01B81EA4
Global $Gravity1 = 0x01B81608
Global $Gravity2 = 0x01B819E4
Global $Night = 0x012A9550
Global $Laser = 0x012A9874
Global $VARNIGHT = 0
$dll = DllOpen("user32.dll")
While 1
$MW3 = ProcessExists("iw5sp.exe")
If $MW3 = 0 Then
GUICtrlSetData($Status,$Title)
GUISetState(@SW_SHOW,$Title&" Wait")
WinMove($Title&" Wait","",@DesktopWidth/2-217/2,@DesktopHeight/2-33,217,66,6)
GUICtrlSetData($Status,"Bye bye!")
Sleep(1000)
Exit
Endif
$WinFocus = _MemoryRead(0x01C049CC,$OPENMEM,"long")
If _MemoryRead($Jump1,$OPENMEM,"float") <> $MenuJump or _MemoryRead($Jump2,$OPENMEM,"float") <> $MenuJump Then
_MemoryWrite($Jump1,$OPENMEM,$MenuJump,"float")
_MemoryWrite($Jump2,$OPENMEM,$MenuJump,"float")
EndIf
If _MemoryRead($Wall,$OPENMEM,"long") <> $MenuWall Then
_MemoryWrite($Wall,$OPENMEM,$MenuWall,"long")
EndIf
If _MemoryRead($AddEffect,$OPENMEM,"long") <> $MenuEffect Then
_MemoryWrite($AddEffect,$OPENMEM,$MenuEffect,"long")
Endif
if _MemoryRead($Gravity1,$OPENMEM,"float") <> $MenuGravity or _MemoryRead($Gravity2,$OPENMEM,"float") <> $MenuGravity Then
_MemoryWrite($Gravity1,$OPENMEM,$MenuGravity,"float")
_MemoryWrite($Gravity2,$OPENMEM,$MenuGravity,"float")
EndIf
If _IsPressed(60, $dll)And $WinFocus = 1 Then
If $VARNIGHT = 0 Then
$VARNIGHT = 1
_MemoryWrite($Night,$OPENMEM,8,"long")
_MemoryWrite($Laser,$OPENMEM,0,"long")
GUICtrlSetImage($PicNV,"C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\NV2.jpg")
Sleep(200)
Else
$VARNIGHT = 0
_MemoryWrite($Night,$OPENMEM,0,"long")
_MemoryWrite($Laser,$OPENMEM,64,"long")
GUICtrlSetImage($PicNV,"C:\Documents and Settings\Administrateur\Bureau\AutoitScripts\MW3\NV.jpg")
Sleep(200)
EndIf
Endif
If $WinFocus = 1 Then
If _IsPressed(61, $dll) Then
GUICtrlSetData($Label12,"1")
$SlotN1 = _MemoryRead($Slot1,$OPENMEM,"long")
If $SlotN1 = 0 then
_MemoryWrite($Slot1,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN1,"long")
Endif
Endif
If _IsPressed(62, $dll) Then
GUICtrlSetData($Label12,"2")
$SlotN2 = _MemoryRead($Slot2,$OPENMEM,"long")
If $SlotN2 = 0 then
_MemoryWrite($Slot2,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN2,"long")
Endif
Endif
If _IsPressed(63, $dll) Then
GUICtrlSetData($Label12,"3")
$SlotN3 = _MemoryRead($Slot3,$OPENMEM,"long")
If $SlotN3 = 0 then
_MemoryWrite($Slot3,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN3,"long")
Endif
Endif
If _IsPressed(64, $dll) Then
GUICtrlSetData($Label12,"4")
$SlotN4 = _MemoryRead($Slot4,$OPENMEM,"long")
If $SlotN4 = 0 then
_MemoryWrite($Slot4,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN4,"long")
Endif
Endif
If _IsPressed(65, $dll) Then
GUICtrlSetData($Label12,"5")
$SlotN5 = _MemoryRead($Slot5,$OPENMEM,"long")
If $SlotN5 = 0 then
_MemoryWrite($Slot5,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN5,"long")
Endif
Endif
If _IsPressed(66, $dll) Then
GUICtrlSetData($Label12,"6")
$SlotN6 = _MemoryRead($Slot6,$OPENMEM,"long")
If $SlotN6 = 0 then
_MemoryWrite($Slot6,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN6,"long")
Endif
Endif
If _IsPressed(67, $dll) Then
GUICtrlSetData($Label12,"7")
$SlotN7 = _MemoryRead($Slot7,$OPENMEM,"long")
If $SlotN7 = 0 then
_MemoryWrite($Slot7,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN7,"long")
Endif
Endif
If _IsPressed(68, $dll) Then
GUICtrlSetData($Label12,"8")
$SlotN8 = _MemoryRead($Slot8,$OPENMEM,"long")
If $SlotN8 = 0 then
_MemoryWrite($Slot8,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN8,"long")
Endif
Endif
If _IsPressed(69, $dll) Then
GUICtrlSetData($Label12,"9")
$SlotN9 = _MemoryRead($Slot9,$OPENMEM,"long")
If $SlotN9 = 0 then
_MemoryWrite($Slot9,$OPENMEM,1,"long")
_MemoryWrite($SlotSwitch,$OPENMEM,1,"long")
Else
_MemoryWrite($SlotSwitch,$OPENMEM,$SlotN9,"long")
Endif
Endif
EndIf
If $MenuSpeed <> 0 Then
$ReadSpeed1 = _MemoryRead($RunSpeed1,$OPENMEM,"float")
$ReadSpeed2 = _MemoryRead($RunSpeed2,$OPENMEM,"float")
$ReadSpeed3 = _MemoryRead($RunSpeed3,$OPENMEM,"float")
If $MenuSpeed = 1 And $ReadSpeed1 <> 3 or $MenuSpeed = 1 And $ReadSpeed2 <> 3 or $MenuSpeed = 1 And $ReadSpeed3 <> 3 Then
_MemoryWrite($RunSpeed1,$OPENMEM,3,"float")
_MemoryWrite($RunSpeed2,$OPENMEM,3,"float")
_MemoryWrite($RunSpeed3,$OPENMEM,3,"float")
Endif
If $MenuSpeed = 2 And $ReadSpeed1 <> 6 or $MenuSpeed = 2 And $ReadSpeed2 <> 6 or $MenuSpeed = 2 And $ReadSpeed3 <> 6 Then
_MemoryWrite($RunSpeed1,$OPENMEM,6,"float")
_MemoryWrite($RunSpeed2,$OPENMEM,6,"float")
_MemoryWrite($RunSpeed3,$OPENMEM,6,"float")
Endif
If $MenuSpeed = 3 And $ReadSpeed1 <> 12 or $MenuSpeed = 3 And $ReadSpeed2 <> 12 or $MenuSpeed = 3 And $ReadSpeed3 <> 12 Then
_MemoryWrite($RunSpeed1,$OPENMEM,12,"float")
_MemoryWrite($RunSpeed2,$OPENMEM,12,"float")
_MemoryWrite($RunSpeed3,$OPENMEM,12,"float")
Endif
Else
$ReadSpeed4 = _MemoryRead($RunSpeed1,$OPENMEM,"float")
$ReadSpeed5 = _MemoryRead($RunSpeed2,$OPENMEM,"float")
$ReadSpeed6 = _MemoryRead($RunSpeed3,$OPENMEM,"float")
If $ReadSpeed4 <> 1.5 or $ReadSpeed5 <> 1.5 or $ReadSpeed6 <> 1.5 Then
_MemoryWrite($RunSpeed1,$OPENMEM,1.5,"float")
_MemoryWrite($RunSpeed2,$OPENMEM,1.5,"float")
_MemoryWrite($RunSpeed3,$OPENMEM,1.5,"float")
Endif
EndIf
If $MenuAmmo = 1 Then
$ReadAmmo1 = _MemoryRead($Ammo1,$OPENMEM,"long")
$ReadAmmo2 = _MemoryRead($Ammo2,$OPENMEM,"long")
$ReadAmmo3 = _MemoryRead($Ammo3,$OPENMEM,"long")
$ReadAmmo4 = _MemoryRead($Ammo4,$OPENMEM,"long")
$ReadAmmo5 = _MemoryRead($Ammo5,$OPENMEM,"long")
$ReadAmmo6 = _MemoryRead($Ammo6,$OPENMEM,"long")
$ReadAmmo7 = _MemoryRead($Ammo7,$OPENMEM,"long")
$ReadAmmo8 = _MemoryRead($Ammo8,$OPENMEM,"long")
$ReadAmmo9 = _MemoryRead($Ammo9,$OPENMEM,"long")
$ReadAmmo10 = _MemoryRead($Ammo10,$OPENMEM,"long")
$ReadAmmo11 = _MemoryRead($Ammo11,$OPENMEM,"long")
$ReadAmmo12 = _MemoryRead($Ammo12,$OPENMEM,"long")
$ReadAmmo13 = _MemoryRead($Ammo13,$OPENMEM,"long")
$ReadAmmo14 = _MemoryRead($Ammo14,$OPENMEM,"long")
$ReadAmmo15 = _MemoryRead($Ammo15,$OPENMEM,"long")
$ReadAmmo16 = _MemoryRead($Ammo16,$OPENMEM,"long")
$ReadAmmo17 = _MemoryRead($Ammo17,$OPENMEM,"long")
$ReadAmmo18 = _MemoryRead($Ammo18,$OPENMEM,"long")
If $ReadAmmo1 or $ReadAmmo2 or $ReadAmmo3 or $ReadAmmo4 or $ReadAmmo5 or $ReadAmmo6 or $ReadAmmo7 or $ReadAmmo8 or $ReadAmmo9 or $ReadAmmo10 or $ReadAmmo11 or $ReadAmmo12 or $ReadAmmo13 or $ReadAmmo14 or $ReadAmmo15 or $ReadAmmo16 or $ReadAmmo17 or $ReadAmmo18 < 100 Then
_MemoryWrite($Ammo1,$OPENMEM,999,"long")
_MemoryWrite($Ammo2,$OPENMEM,999,"long")
_MemoryWrite($Ammo3,$OPENMEM,999,"long")
_MemoryWrite($Ammo4,$OPENMEM,999,"long")
_MemoryWrite($Ammo5,$OPENMEM,999,"long")
_MemoryWrite($Ammo6,$OPENMEM,999,"long")
_MemoryWrite($Ammo7,$OPENMEM,999,"long")
_MemoryWrite($Ammo8,$OPENMEM,999,"long")
_MemoryWrite($Ammo9,$OPENMEM,999,"long")
_MemoryWrite($Ammo10,$OPENMEM,999,"long")
_MemoryWrite($Ammo11,$OPENMEM,999,"long")
_MemoryWrite($Ammo12,$OPENMEM,999,"long")
_MemoryWrite($Ammo13,$OPENMEM,999,"long")
_MemoryWrite($Ammo14,$OPENMEM,999,"long")
_MemoryWrite($Ammo15,$OPENMEM,999,"long")
_MemoryWrite($Ammo16,$OPENMEM,999,"long")
_MemoryWrite($Ammo17,$OPENMEM,999,"long")
_MemoryWrite($Ammo18,$OPENMEM,999,"long")
EndIf
EndIf
$HP = _MemoryRead($ADDHP,$OPENMEM,"long")
If $HP <> $LabelHP Then
$LabelHP = $HP
GUICtrlSetData($Label4,$LabelHP&"%")
Endif
If $MenuHp = 1 And $HP < 100 Then
_MemoryWrite($ADDHP,$OPENMEM,100,"long")
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
Exit
EndSwitch
WEnd
Func MENUL()
If $MenuV = 7 Then
GUICtrlSetBKColor($Label11, $BKColor)
GUICtrlSetColor($Label11, $Color)
GUICtrlSetBKColor($Label10, $Color)
GUICtrlSetColor($Label10, $BKColor)
$MenuV -= 1
ElseIf $MenuV = 6 Then
GUICtrlSetBKColor($Label10, $BKColor)
GUICtrlSetColor($Label10, $Color)
GUICtrlSetBKColor($Label7, $Color)
GUICtrlSetColor($Label7, $BKColor)
$MenuV -= 1
ElseIf $MenuV = 5 Then
GUICtrlSetBKColor($Label7, $BKColor)
GUICtrlSetColor($Label7, $Color)
GUICtrlSetBKColor($Label5, $Color)
GUICtrlSetColor($Label5, $BKColor)
$MenuV -= 1
ElseIf $MenuV = 4 Then
GUICtrlSetBKColor($Label5, $BKColor)
GUICtrlSetColor($Label5, $Color)
GUICtrlSetBKColor($Label3, $Color)
GUICtrlSetColor($Label3, $BKColor)
$MenuV -= 1
ElseIf $MenuV = 3 Then
GUICtrlSetBKColor($Label3, $BKColor)
GUICtrlSetColor($Label3, $Color)
GUICtrlSetBKColor($Label2, $Color)
GUICtrlSetColor($Label2, $BKColor)
$MenuV -= 1
ElseIf $MenuV = 2 Then
GUICtrlSetBKColor($Label2, $BKColor)
GUICtrlSetColor($Label2, $Color)
GUICtrlSetBKColor($Label1, $Color)
GUICtrlSetColor($Label1, $BKColor)
$MenuV -= 1
Endif
EndFunc
Func MENUR()
If $MenuV = 1 Then
GUICtrlSetBKColor($Label1, $BKColor)
GUICtrlSetColor($Label1, $Color)
GUICtrlSetBKColor($Label2, $Color)
GUICtrlSetColor($Label2, $BKColor)
$MenuV += 1
ElseIf $MenuV = 2 Then
GUICtrlSetBKColor($Label2, $BKColor)
GUICtrlSetColor($Label2, $Color)
GUICtrlSetBKColor($Label3, $Color)
GUICtrlSetColor($Label3, $BKColor)
$MenuV += 1
ElseIf $MenuV = 3 Then
GUICtrlSetBKColor($Label3, $BKColor)
GUICtrlSetColor($Label3, $Color)
GUICtrlSetBKColor($Label5, $Color)
GUICtrlSetColor($Label5, $BKColor)
$MenuV += 1
ElseIf $MenuV = 4 Then
GUICtrlSetBKColor($Label5, $BKColor)
GUICtrlSetColor($Label5, $Color)
GUICtrlSetBKColor($Label7, $Color)
GUICtrlSetColor($Label7, $BKColor)
$MenuV += 1
ElseIf $MenuV = 5 Then
GUICtrlSetBKColor($Label7, $BKColor)
GUICtrlSetColor($Label7, $Color)
GUICtrlSetBKColor($Label10, $Color)
GUICtrlSetColor($Label10, $BKColor)
$MenuV += 1
ElseIf $MenuV = 6 Then
GUICtrlSetBKColor($Label10, $BKColor)
GUICtrlSetColor($Label10, $Color)
GUICtrlSetBKColor($Label11, $Color)
GUICtrlSetColor($Label11, $BKColor)
$MenuV += 1
Endif
EndFunc
Func MENUU()
If $MenuV = 1 Then
GUICtrlSetData($Label1,"HP: on")
$MenuHp = 1
Elseif $MenuV = 2 Then
GUICtrlSetData($Label2,"Ammo: on")
$MenuAmmo = 1
Elseif $MenuV = 3 And $MenuSpeed = 0 Then
GUICtrlSetData($Label9,"1")
$MenuSpeed = 1
Elseif $MenuV = 3 And $MenuSpeed = 1 Then
GUICtrlSetData($Label9,"2")
$MenuSpeed = 2
Elseif $MenuV = 3 And $MenuSpeed = 2 Then
GUICtrlSetData($Label9,"3")
$MenuSpeed = 3
Elseif $MenuV = 4 And $MenuGravity < 800 Then
$MenuGravity += 10
GUICtrlSetData($Label6,$MenuGravity)
Elseif $MenuV = 5 And $MenuJump < 1000 Then
$MenuJump += 10
GUICtrlSetData($Label8,$MenuJump)
Elseif $MenuV = 6 Then
GUICtrlSetData($Label10,"Effect: on")
$MenuEffect = 1
Elseif $MenuV = 7 Then
GUICtrlSetData($Label11,"Wall: on")
$MenuWall = 1
EndIf
EndFunc
Func MENUD()
If $MenuV = 1 Then
GUICtrlSetData($Label1,"HP: off")
$MenuHp = 0
Elseif $MenuV = 2 Then
GUICtrlSetData($Label2,"Ammo: off")
$MenuAmmo = 0
Elseif $MenuV = 3 And $MenuSpeed = 1 Then
GUICtrlSetData($Label9,"0")
$MenuSpeed = 0
Elseif $MenuV = 3 And $MenuSpeed = 2 Then
GUICtrlSetData($Label9,"1")
$MenuSpeed = 1
Elseif $MenuV = 3 And $MenuSpeed = 3 Then
GUICtrlSetData($Label9,"2")
$MenuSpeed = 2
Elseif $MenuV = 4 And $MenuGravity > -800 Then
$MenuGravity -= 10
GUICtrlSetData($Label6,$MenuGravity)
Elseif $MenuV = 5 And $MenuJump > 40 Then
$MenuJump -= 10
GUICtrlSetData($Label8,$MenuJump)
Elseif $MenuV = 6 Then
GUICtrlSetData($Label10,"Effect: off")
$MenuEffect = 0
Elseif $MenuV = 7 Then
GUICtrlSetData($Label11,"Wall: off")
$MenuWall = 0
EndIf
EndFunc
Amusez vous bien !!
Last edited:
