library OneHit;



uses
  SysUtils,
  Classes,
  Windows;

{$R *.res}

var HackOn: Boolean = False;
    JMPDWORD, JMPDWORD2, JMPDWORD3, JMPDWORD4: DWORD;

procedure OneHitt;
assembler;
asm
  push ebx
  push esi
  push edi
  MOV ESI,DWORD PTR DS:[322A6A8h]
  MOV DWORD PTR DS:[ESI+0BCh],3
  MOV DWORD PTR DS:[ESI+0C4h],3
  MOV DWORD PTR DS:[ESI+0D4h],3
  MOV DWORD PTR DS:[ESI+0D8h],3
  MOV DWORD PTR DS:[ESI+0DCh],3
  AND DWORD PTR DS:[1CB635Ch],00000000
  mov esi,0044596Eh
  jmp esi
end;

procedure OneHitt2;
assembler;
asm
  push esi
  push edi
  push 4
  MOV ESI,DWORD PTR DS:[322A6A8h]
  MOV DWORD PTR DS:[ESI+0BCh],3
  MOV DWORD PTR DS:[ESI+0C4h],3
  MOV DWORD PTR DS:[ESI+0D4h],3
  MOV DWORD PTR DS:[ESI+0D8h],3
  MOV DWORD PTR DS:[ESI+0DCh],3
  AND DWORD PTR DS:[1CB635Ch],00000000
  mov esi,0044540Dh
  jmp esi
end;


procedure RestaureOneHit;
assembler;
asm
  MOV EAX,DWORD PTR DS:[322A6A8h]
  MOV DWORD PTR DS:[EAX+0BCh],10000
  MOV DWORD PTR DS:[EAX+0C4h],10000
  MOV DWORD PTR DS:[EAX+0D4h],15000
  MOV DWORD PTR DS:[EAX+0D8h],20000
  MOV DWORD PTR DS:[EAX+0DCh],20000
  MOV EAX,DWORD PTR DS:[1CB635Ch]
  ADD ESP,30h
  POP EDI
  POP ESI
  POP EBX
  RETN
end;

procedure RestaureOneHit2;
assembler;
asm
  MOV EAX,DWORD PTR DS:[322A6A8h]
  MOV DWORD PTR DS:[EAX+0BCh],10000
  MOV DWORD PTR DS:[EAX+0C4h],10000
  MOV DWORD PTR DS:[EAX+0D4h],15000
  MOV DWORD PTR DS:[EAX+0D8h],20000
  MOV DWORD PTR DS:[EAX+0DCh],20000
  MOV EAX,DWORD PTR DS:[1CB635Ch]
  ADD ESP,38h
  POP EDI
  POP ESI
  RETN
end;




procedure DLLMain(Reason: DWORD);
begin
    if not HackOn then begin
      if PBYTE($005D2800)^=$53 then begin
        JMPDWORD:=  DWORD(@OneHitt);
        JMPDWORD2:= DWORD(@RestaureOneHit);
        JMPDWORD3:= DWORD(@OneHitt2);
        JMPDWORD4:= DWORD(@RestaureOneHit2);
        PWORD($00445964)^:=  $25FF;
        PDWORD($00445966)^:= DWORD(@JMPDWORD);
        PWORD($00445B02)^:=  $25FF;
        PDWORD($00445B04)^:= DWORD(@JMPDWORD2);
        PWORD($00445402)^:= $25FF;
        PDWORD($00445404)^:= DWORD(@JMPDWORD3);
        PWORD($004455FF)^:= $25FF;
        PDWORD($00445601)^:= DWORD(@JMPDWORD4);
        PDWORD($00445985)^:= $B7;
        PBYTE($00445C39)^:= $EB;
        Beep(500,500);
        HackOn:= True;
      end;
    end;
end;

begin
  DllProc := @DLLMain;
  DLLMain(DLL_PROCESS_ATTACH);
end.