проверять негде, так что по твоей ошибке только напишу отсутствует основной бегин Program FishingYew; Const Meshok = $4001655E; Udochka = $0DBF; Nozhik = $0F51; var count:Integer; Begin //вот здесь его явно нехватало, слово процедура тут нафиг ненадо var Riba:array[1..8] of Cardinal; i:Integer; Labe...

та хоть какой-нибуть...

сложный вопрос.

у меня например чар при каждом запуске скрипта выдает

Script warning: drop last before drag new
Script error: error drop item. ResObjData = Nil

но при этом дроп работает...

я вообще думал что это скрипт устарел, собирался когда время будет переписать

угу

только не ругайтесь... при том, когда убили, нужно закрыть стелз, запустить обычных клиент, сбегать к ресалке, вернуться, опять выйти запустить стелз...и через 10 минут - гост.. не очень понял, а зачем закрывать? сделал дисконнект в стелсе, зашел на обычном клиенте, настроил, нажал на Connect в сте...

Antarius wrote:Хм... не очень то хочется эмулировать, а жалко что нету под Линукс, было бы стабильней... А хоть будет ли в будующем ?

интересно, с чего бы это оно было стабильнее?
+ вроде как под винды оно весьма стабильно, крашились у меня только клиенты пару версий назад...

DW only

не знаешь - разбирайся. не хочешь разбираться - не напрягай людей. еще и спритензиями такими...

топоры и шлемы гарантированно ни с чем не стекируются ))
может этот самый finditem еще не успел в результате мувайтема переехать в БП?
хотя я проверял раза 4 - то же самое.

................................. findtype(-1,source_container); IF FindFullQuantity < 1 then a := True else begin MoveItem(finditem,0,backpack, 0,0,0); wait(200); stime := Now; WaitTargetObject(finditem); UseSkill('Item Identification'); ................................. кусок кода. находит айтем....

Ну ок, попробую я на вашеи языке что-то написать... но скока мне надо будет скриптов тогда? их будет кучиииии.... а так былобы проше чтобы было 2 модуля скриптовых.... 1 для более продвинутых, нууу а другой для даунов вроде меня )))) ну собсно... Это реализуемо? если - да... и не сложно, почему бы ...

1-ненадо, ибо порой смотрю туда чтобы точное название для того же Useskill вписать
2) проходили, ответ Миралекса "когда-то когда будет время - сделаю"

работает, как ни странно...

weapon := GetType(ObjAtLayer(RhandLayer)); .... while true do begin .... IF GetType(ObjAtLayer(RhandLayer)) <> weapon then begin dagger:=findtype(weapon,ground); equip(RhandLayer,dagger); wait(500); end; не работает. В ходе экспериментов выяснилось что не работает ни unequip(RhandLayer); да и UOSay...