Little MP Hack Source PureBasic

;{- Enumerations / DataSections
;{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #UAV
  #Laser
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Global uavon.i = 1
Global uavoff.i = 0
Global laseron.i = 0
Global laseroff.i = 37
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 450, 525, 122, 56, "Little MP Hack 0.2", #PB_Window_SystemMenu|#PB_Window_TitleBar|#PB_Window_Tool)
    CheckBoxGadget(#UAV, 0, 25, 100, 20, "Enable UAV")
    CheckBoxGadget(#Laser, 0, 5, 95, 20, "Enable Laser")
  EndIf
EndProcedure

OpenWindow_Window_0()

window = FindWindow_("IW5","Call of Duty®: Modern Warfare® 3 Multiplayer")
GetWindowThreadProcessId_(window, @ProcessID)
hProcess = OpenProcess_(#PROCESS_ALL_ACCESS,0,ProcessID)
If ProcessID = 0
  MessageRequester("Error!","Please start first Call of Duty Modern Warfare 3!")
  End
EndIf

;{- Event loop
Repeat
If GetGadgetState(#UAV) = #PB_Checkbox_Checked
    ReadProcessMemory_(hProcess,95171072,@uread.i,4,0)
    If uread.i <> 1
      WriteProcessMemory_(hProcess,95171072,@uavon.i,4,0)
    EndIf
  ElseIf GetGadgetState(#UAV) = #PB_Checkbox_Unchecked
    ReadProcessMemory_(hProcess,95171072,@uread.i,4,0)
    If uread.i = 1
      WriteProcessMemory_(hProcess,95171072,@uavoff.i,4,0)
    EndIf
  EndIf
If GetGadgetState(#Laser) = #PB_Checkbox_Checked
    ReadProcessMemory_(hProcess,4435095,@lread.i,4,0)
    If lread.i <> 0
      WriteProcessMemory_(hProcess,4435095,@laseron.i,4,0)
    EndIf
  ElseIf GetGadgetState(#Laser) = #PB_Checkbox_Unchecked
    ReadProcessMemory_(hProcess,4435095,@lread.i,4,0)
    If lread.i = 0
      WriteProcessMemory_(hProcess,4435095,@laseroff.i,4,0)
    EndIf
  EndIf
  Event = WaitWindowEvent()
  Select Event
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver
;
;}