Нужно снять её в пак, undress и тд не помогают ...
каждый рас когда я ресаю чара на нем появляется новая роба ... но стелс новой робы не видит, айди робы всегда одинаковое =((

Таже история не снимает вопрос не решен ? поиск не дал результатов =9((

и айди совпадает (( $0000204E

Спасибо причина была тут:
if FindType(vendor_types[vt], ground) <> 1 then begin

пришлось <> 1 думал что это больше\меньше 1 ... оказалось не равно 1 =)

Vizit0r, спасибо. FindDistance:= distfind; for vt:= 1 to (GetArrayLength(vendor_types) - 1) do begin Ignore(Self); if FindType(vendor_types[vt], ground) <> 1 then begin vendor:= FindItem; //if (GetName(vendor) = 'Drama') then AddToSystemJournal('Я'); AddToSystemJournal('Продацец: '+GetName(vendor)+'...

Добрый день, возникла проблема с функцией поиска вендоров, тайп вендора такойже как и у моего чара и часто персонаж стоит на месте, а мне нужно чтобы он шел к вендору. вот: AddToSystemJournal('Продацец: '+GetName(vendor)+'. координата Х: '+inttostr(GetX(vendor))+'. координата Y: '+inttostr(GetY(vend...

Видимо скрипт когда оппонента или дисконектило или убил его на проверке if GetHP(enemy)*150/GetMaxHP(enemy) < 30 then спотыкается и отрубается вообще ... как зациклить так чтобы не останавливался ?

как мог форматировал =) Я не совсем разобрался как отслеживать именно работу скрипта.
выбивает = скрипт останавливается и нужно его запускать заново ...

Program War; var bandages:cardinal; t:integer; const Enemy = $00020CDF; {Shogo} {$Include 'all.inc'} procedure healoponent; begin SetWarMode(false); repeat bandages:=FindType($0E21,ground); UseObject(bandages); WaitTargetObject(enemy); wait(1000); until GetHP(enemy)=GetMaxHP(enemy) Hungry(1,ground)...

Честно, долго вглядывался в скрипт где ходилка есть и она работает, и нашел вот ЭТО until ((GetX(self) = NeraneniX) and (GetY(self) = NeraneniY) and (GetZ(self) = NeraneniZ)) я думал в стелсе реализованы процедуры GetZ() GetX() GetY() , вот если моя ошибка тут, так бы и ткнули ... ну а вообще здоров...

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

Вот сижу пытаюсь сделать элементарный скрипт но сволочь не поддается ... может подскажите где я тупикую ? program Resist; {$Include 'all.inc'} const RaneniX = 789; RaneniY = 1472; NeraneniX = 788; NeraneniY = 1472; NeraneniZ = 26; procedure GoGo; begin repeat wait(5000); until ((GetX(self) = Neranen...

нечего воровать чюжие скупки пиши свои и не будет у тебя проблем Умный спасу нет, не знаю сам ли ты его писал или нет, но тут уже написал топиков 10 по настройке этого же скрипта, так что очень я сомневаюсь что ты сам что то написал такого рода. В моём случии я купил этот скрипт. И мне не сложно ег...

я играю на сервере POL95 и недавно начал юзать скрипты с ходилками но вот незадача постоянно в скриптах пишет Mover: Client Canceled. Point not Passable. как я понял это от того что я неправельно настроил стелс. http://floomby.ru/content/CepkMgHuQE/ - вот изображение не могу определить где конкретно...

Всем привет, и снова я тут =) Ультима зло программирование еще хуже ) Вот пытаюсь тут из 10 скриптов слепить то что хочется ..., а именно скупку реагентов на pol95 Надеюсь гуру паскаля вновь помогут мне разобраться что к чему... итак имею: program Skupka_NS; {$Include 'all.inc'} const kolvo=360; NS=...

procedure loot; begin if findtype($2006,ground) >0 then begin trupID := finditem; AddToSystemJournal('finditem!'); UseObject(trupID); AddToSystemJournal('use!'); moveitem(findtype($1F03,trupID),1,BackPack,0,0,0); AddToSystemJournal('move!'); Ignore(trupID);//как там эта функция павильно пишется? не...