Показать сообщение отдельно
Старый 22.06.2009, 23:29   #1
Новичок
 
Регистрация: 22.06.2009
Сообщений: 3
Сказал Спасибо: 1
Имеет 0 спасибок в 0 сообщенях
esco пока неопределено
По умолчанию Скрипт с покупкой и продажей разным nps

Добрый день. У меня такая проблема, я хотел написать такой скрипт 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.

Зараннее благодарю тех кому не лень ето посмотреть!

Последний раз редактировалось NLObP, 22.06.2009 в 23:35.
esco вне форума   Ответить с цитированием