Скрипт с покупкой и продажей разным nps

[klizmabeqa1992]

Добрый день. У меня такая проблема, я хотел написать такой скрипт c такими задачами: cтоят 2 npc рядом, 1-ый Gatekeper (gk) и 2-ой Game-shop (gs). Так вот при помощи скрипта мой чар должен сначала 1 раз купить кристалы у (gs), потом обменять их на свитки у (gk) 16 раз(столько влазит до перевеса) то есть ему нада сначала сделать таргет на (gk) потом еще раз чтоб открыть диалог, потом выбрать обмен и только потом отправить пакет на обмен. После нада о5 же такую манипуляцю c таргетом и диалогом на (gs) и продать их всех. После о5 к (gk) (так как кристаллы еще остались) меняем 16 раз на свитки и о5 в (gs) продаем.Ну вот тут можно закончить чтоб проще было, дальше я сам смогу разобраться и доделать. Ну а в идеале он должен о5 1 раз купить кристаллы у (gs) и ити менять и продавать и так по кругу до бесконечности. Впринципе вот такой вот скрипт его можно сделать доработав вот етот скрипт на покупку только поправте пожалуйста и покажите куда мне пакеты вставлять на (таргет, выбор, покупку, обмен, продажу,) Буду очень признателен! Думаю такой скрипт многим пригодиться так как его легко сможет каждый редактировать под свои задачи.

delphi Код:

 

const

Name='nick';

var

timer:TTimer;

procedure Init;

begin

timer:=TTimer.Create(nil);

timer.interval:=50;

timer.OnTimer:=@fireTimer;

timer.enabled:=true;

end;

procedure Free;

begin

timer.Free;

end;

procedure fireTimer(Sender: TObject);

begin

buf:=hstr('покупка');

SendToServer;

end;

begin

if FromServer and (ConnectName=Name) and (pck = HStr('нет денег')) then begin

timer.enabled:=false;

end;

end.