ти что дурной ?
работает все - ето у тебя инжект (прохой ).

Кто умеит передалать eтот скрипт под Stealth. Попроту очеть нада. sub main() VAR k = 0 While TRUE UO.FindType(0x1BDD,-1,'ground') If UO.FindCount() == 0 Then return Endif UO.Grab(Str(30),'finditem') wait(900) While (UO.Count(0x1BDD) > 10) UO.DeleteJournal() UO.CancelMenu() UO.WaitMenu ('What do you ...

Miralex wrote:Ты явно не читал мои советы по этому скрипту. И если выкладываешь скрипт - заключай в теги CODE. Без них читать скрипт очень неудобно. Отпадает желание даже смотреть его.

Сорри

procedure wa; var SuccessA,FailureA: string; begin SuccessA:= '1'; FailureA:= '444 444'; WaitJournalLine(Now,SuccessA+'|'+FailureA,30000); end; procedure loott; begin FindType($1BDD, BackPack); if FindItem < 1 then begin FindType($1BDD, ground); Grab(FindItem,100); wait(1000); FindType($0E34 ,BackP...

как првильно сделать меню ? на папир...

Привет у меня такой вопрос ... ====================== procedure craftff; begin begin CancelMenu; AutoMenu('Carpentry','Miscellaneous'); AutoMenu('Miscellaneous','Paper'); FindType($1030 ,BackPack); UseObject(FindItem); end; wait(4000); end; ======================================== почему какда И-нет...

Grab($1067, 5);
у меня Стелс почемуто не хочит роботать с ( $1067 )
если написать так $4050B8B3 тода все роботает .
сожеш сказать почуме ето ?

Alex wrote:moveitem - поможет тебе, поищи на форуме примеры использования.

Я там нашол но мне нада в примере показать....

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

Попробуй зайти из под нонмального Клиента - тода и Увидиш.

Народ подскажите как Поднять вещь (любую) с земли.
(как указать сколько подивать, куда подимать , и все нащет етого)
такще как полощить вещь с бекпака (сколька, и куда)