unit KeConst;

interface

Const

  //string constants
  AikaWindowClass  = 'AikaClient Window';
  AikaWindowName   = 'AikaClient';

  //pointer constants

  PtrBaseData   = $00B445C0;
  PtrBaseAction = $00B445BC;
  PtrBasePanel  = $00B45478;

  //ordinary offsets from BaseData
  OffsetName    = $34F4C;
  OffsetLevel   = $34FF0;
  OffsetMaxHp   = $34f70;
  OffsetHp      = $34f74;
  OffsetMaxMP   = $34F78;
  OffsetMp      = $34F7c;
  OffstCamera   = $41050;
  OffsetWeapDur = $350E2;

  //Ordinary offsets from BaseAction
  OffsetChar    = $dc;
  OffsetTarget  = $68;
  OffsetCoord   = $14c;
  OffsetTname   = $16b0;
  OffsetAction  = $1a9;
  OffsetTLevel  = $1b4;
  OffsetTarHP   = $414;
  OffsetTarMaxHp= $418;
  OffsetTarMp   = $41c;
  OffsetTarMaxMp= $420;
  OffsetDist    = $404;
  OffsetPvpFlag = $40d;
  OffsetPvpSign = $3f7;

  //Come get some
  MonsterSize   = $31a4;


implementation
//junk code

{
function ReadCameraAngle:single;
var
tmp2:dword;
begin
ReadProcessMemory(ProcHandle,ptr(BaseData+CameraOff),@tmp2,4,BytesRead);
ReadProcessMemory(ProcHandle,ptr(tmp2+$8),@Result,4,bytesRead);
end;
}


{
Function ReadCellDelay(SkillOff:tSkillOff):single;
var tm:dword;
Begin
//read pointer to panel
ReadProcessMemory(ProcHandle,ptr(BaseAction+CellOff1+SkillOff.pan*4),@tm,4,BytesRead);
//read pointer to cell
ReadProcessMemory(ProcHandle,ptr(tm+CellOff2+SkillOff.cell*4),@tm,4,BytesRead);
//Read delay
ReadProcessMemory(ProcHandle,ptr(tm+CellOff3),@Result,4,BytesRead);
End;
}


{
 OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES
  or TOKEN_QUERY, hToken );
 LookupPrivilegeValue( nil, 'SeDebugPrivilege', SeDebugNameValue );
 tkp.PrivilegeCount:= 1;
 tkp.Privileges[0].Luid := SeDebugNameValue;
 tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
 AdjustTokenPrivileges(hToken,false,tkp,SizeOf(tkp),tkp,ReturnLength);

 EnableDebugPrivilege(True);
}

{
function EnableDebugPrivilege(const Value: Boolean): Boolean;
var
TokenHandle: Cardinal;
TokenPrivileges: TTokenPrivileges;
ReturnLength: Cardinal;
hQuery: Cardinal;

begin

  Result := False;
  if Windows.OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TokenHandle) then
  begin
    try
    LookupPrivilegeValueW(nil, 'SeDebugPrivilege', TokenPrivileges.Privileges[0].Luid);
    TokenPrivileges.PrivilegeCount := 1;
    TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  if AdjustTokenPrivileges(TokenHandle, False, TokenPrivileges, 0, nil, ReturnLength)
    then Result := True;

  finally
    CloseHandle(TokenHandle);
    end;
  end;

end;
}


{
function Tabbing(Client:pClient;mob:pAnyCharacter):boolean;
var
i,j:integer;
dejavu:boolean;
TidArray: Array [0..20] of dword;
begin
  result:=false;
  dejavu:=false;
  i:=0;
  for i:=0 to 20 do TidArray[i]:=High(Dword)-1;
while mob.id=0 do
begin
PostMessage(Client.WinHandle,Wm_KeyDown,9, 0);
sleep(10);
allocconsole;
  writeln(mob.id);
for j:=0 to 20 do if mob.id=TidArray[j] then begin dejavu:=true; break; end;
if not DejaVu then TidArray[i]:=mob.id else begin for i:=0 to 20 do TidArray[i]:=High(Dword)-1; i:=-1; rotation(@Aika,Hero.CameraAngle)  end;
inc(i);
sleep(50);
end;
end;
}
end.