function GetAsyncKeyState(vKey: integer): integer; stdcall; external 'user32.dll';
function GetKeyState(nVirtKey: integer): byte; stdcall; external 'user32.dll';
function KeyDown(K : byte) : boolean;
begin
Result := (K = 128) or (K = 129)
end;
function SHIFT : boolean;
begin
Result := KeyDown(GetKeyState($10));
end;
function CTRL : boolean;
begin
Result := KeyDown(GetKeyState($11));
end;
function ALT : boolean;
begin
Result := KeyDown(GetKeyState($12));
end;
procedure CheckPressKey_Q;
begin
while true do begin
while (GetAsyncKeyState(ord('Q'))=0)or(Not Alt) do Delay(100);
Engine.UseItem(2391);
delay(50);
Engine.UseItem(2416);
delay(50);
Engine.UseItem(5719);
delay(50);
Engine.UseItem(5735);
delay(50);
Engine.UseItem(189);
delay(50);
Engine.UseSkill(1015);
while GetAsyncKeyState(ord('Q'))<>0 do Delay(100);
end;
end;
procedure CheckPressKey_W;
begin
while true do begin
while (GetAsyncKeyState(ord('W'))=0)or(Not Alt) do Delay(100);
Engine.UseItem(1101);
delay(50);
Engine.UseItem(1104);
delay(50);
Engine.UseItem(51);
delay(50);
Engine.UseItem(39);
delay(50);
Engine.UseItem(44);
delay(50);
Engine.UseItem(8117);
delay(50);
Engine.UseSkill(1068);
while GetAsyncKeyState(ord('W'))<>0 do Delay(100);
end;
end;
begin
Script.NewThread(@CheckPr essKey_Q);
Script.NewThread(@CheckPressKey_W);
end.
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)