AutoHotkey Community

MsgBox,, Cheat 5 Deleted, % deletecheat("cheats.ini", "AEROGAUGE.Cheats", 5) . " keys were deleted."

deletecheat(file, game, cheat)
{
 IniDelete, %file%, %game%, CheatName%cheat%
 IniRead, _count, %file%, %game%, CheatName%cheat%Count
 IniDelete, %file%, %game%, CheatName%cheat%Count
 Loop, %_count%
 {
    Index := A_Index - 1
    IniDelete, %file%, %game%, CheatName%cheat%Code%Index%
 }
 IniRead, num, %file%, %game%, NumCheats
 IniWrite, % num - 1, %file%, %game%, NumCheats
 Loop,% num - cheat - 1
 {
  Src := cheat + A_Index
  Dest := cheat + A_Index - 1
  IniRead, desc, %file%, %game%, CheatName%Src%
  IniDelete, %file%, %game%, CheatName%Src%
  IniWrite, % desc, %file%, %game%, CheatName%Dest%
  IniRead, count, %file%, %game%, CheatName%Src%Count
  IniDelete, %file%, %game%, CheatName%Src%Count
  IniWrite, % count, %file%, %game%, CheatName%Dest%Count
  Loop, %count%
  {
   Index := A_Index - 1
   IniRead, code, %file%, %game%, CheatName%Src%Code%Index%
   IniDelete, %file%, %game%, CheatName%Src%Code%Index%
   IniWrite, % code, %file%, %game%, CheatName%Dest%Code%Index%
  }
 }
 Return _count + 2
}

BinRead(file,data,0x13,0x20) ;Read file
Text := Hex2Bin(Data) ;Convert to ascii
Text = %Text% ;Trim spaces

Hex2Bin(Hex)
{
 Loop, % StrLen(Hex) // 2
  Ascii .= Chr("0x" . SubStr(Hex,(A_Index * 2) - 1,2))
 Return, Ascii
}

BinRead(file, ByRef data, n=0, offset=0)
{
   h := DllCall("CreateFile","Str",file,"Uint",0x80000000,"Uint",3,"UInt",0,"UInt",3,"Uint",0,"UInt",0)
   IfEqual h,-1, SetEnv, ErrorLevel, -1
   IfNotEqual ErrorLevel,0,Return,0 ; couldn't open the file

   m = 0                            ; seek to offset
   IfLess offset,0, SetEnv,m,2
   r := DllCall("SetFilePointerEx","Uint",h,"Int64",offset,"UInt *",p,"Int",m)
   IfEqual r,0, SetEnv, ErrorLevel, -3
   IfNotEqual ErrorLevel,0, {
      t = %ErrorLevel%              ; save ErrorLevel to be returned
      DllCall("CloseHandle", "Uint", h)
      ErrorLevel = %t%              ; return seek error
      Return 0
   }

   TotalRead = 0
   data =
   IfEqual n,0, SetEnv n,0xffffffff ; almost infinite

   format = %A_FormatInteger%       ; save original integer format
   SetFormat Integer, Hex           ; for converting bytes to hex

   Loop %n%
   {
      result := DllCall("ReadFile","UInt",h,"UChar *",c,"UInt",1,"UInt *",Read,"UInt",0)
      if (!result or Read < 1 or ErrorLevel)
         break
      TotalRead += Read             ; count read
      c += 0                        ; convert to hex
      StringTrimLeft c, c, 2        ; remove 0x
      c = 0%c%                      ; pad left with 0
      StringRight c, c, 2           ; always 2 digits
      data = %data%%c%              ; append 2 hex digits
   }

   IfNotEqual ErrorLevel,0, SetEnv,t,%ErrorLevel%

   h := DllCall("CloseHandle", "Uint", h)
   IfEqual h,-1, SetEnv, ErrorLevel, -2
   IfNotEqual t,,SetEnv, ErrorLevel, %t%

   SetFormat Integer, %format%      ; restore original format
   Totalread += 0                   ; convert to original format
   Return TotalRead
}