Adrenalin скрипт на таргет

[igor2086]

var
item: TL2Item;

begin
while 1<>2 do begin
Engine.SetTarget('Ник');
end;
end.


он вообще правильный.?
и можно сделать запуск скрипта с кнопки?

 

[SARCAZM]

Вообще, работать будет, но будет грузить процессор. Ибо нет задержек.
И непонятно зачем

item: TL2Item;
Как я понял, скрипт постоянно выбирает кого-то в таргет. Похоже на примитивный анти-мираж или анти-агр, раз ты поинтересовался насчет запуска по кнопке. Запускать скрипт по кнопке ВРОДЕ можно, но я не помню. Нужно поинтересоваться у Ivanius.

Правильней будет так:

begin
while true do begin
  Engine.SetTarget('Ник');
​  delay(500);
 end;
end.

 

[igor2086]

Ошибка

 

[SARCAZM]

Кажется, delay нужно с большой буквы писать Я уже забыл

begin
while true do begin
Engine.SetTarget('Ник');
​ Delay(500);
end;
end.

 

[igor2086]

та же ошибка(

 

[SARCAZM]

Разобрались в тимвивере, перепечатав скрипт заново. То ли русская буква в где-то закралась, то ли компилятор дал ебу заглючил...

 

[Ivanius]

var
item: TL2Item;

begin
while 1<>2 do begin
Engine.SetTarget('Ник');
end;
end.


он вообще правильный.?
и можно сделать запуск скрипта с кнопки?

по поводу кнопки:

function GetKeyState(nVirtKey: integer): byte; stdcall;
      external 'user32.dll' name 'GetKeyState' ; 

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 ActionThread(p: pointer); //Поток для ожидания/обработки событий
var KeyCode, i: integer;
begin
  while Engine.Status = lsOnline do begin  //Цикл действует пока чар в игре (Online)
    Engine.WaitAction([laKey], KeyCode, i);
    if ctrl and shift and (KeyCode = $4F) then //ctrl + SHift + "O"
      Engine.UseSkill('Самолечение');
    if ctrl and alt and (KeyCode = $50) then //ctrl + alt + "P"
      Engine.SetTarget(CharList.Items(0));
  end;
end;

begin
  Script.NewThread(ActionThread);
  Delay(-1); //Бесконечная пауза
end.