procedure UseDetectHerding ; ///////////////////////////////// begin if GetSkillValue('Herding') < 100 then begin useobject(PalkaHerding); Wait(1000); WaitTargetObject(Korova1); Wait(1000); WaitTargetObject(self); Wait(1000); if TargetPresent then CancelTarget; CheckTargetError(5,2); CheckSave; wai...

спасибо.. Теперь осваиваем масивы. мининг с ламбером) Уже бегаем по координатам.. Спасибо..

Ну подскажите как сделать так что бы он шел по очереди а не повторялся(

Program ItemID; {$Include 'all.inc'} const Dager = $405C2AE2; //// Dager ID Usevendor = $00021790; //// Vendor ID vendorPak = $401615BB;//// Vendor Packs ID Korova = $000051B2; //// Korova ID Bulova = $405DC690; //// Oru*ie ID var i : Integer; procedure FullDisconnect; /////////////////////////////...

Fenix wrote:Опять? Читаем здесь и здесь. То, что ты запросил можно реализовать самостоятельно через скрипт.

дядя феникс) ну я не понял сначала) мне пока что трудно... Так что прости за флуд

Во и еще на примере пожалуйста) Как сделать так что дойдя до 100 процентов он не качал этот скил .. begin UseSkill('Arms Lore'); WaitTargetObject(Bulova); wait(11000); if TargetPresent then CancelTarget; CheckTargetError(5,2); CheckSave; waitconnection(3000); CheckSave; CheckLag(15000); UseSkill('it...

Program ItemID; var i : Integer; Dager : Cardinal; vendor1 : Cardinal; Korova : Cardinal; Bulova : Cardinal; vendorPak : Cardinal; {$Include 'all.inc'} procedure FullDisconnect; //---------------------- begin SetARStatus(true); while GetSkillValue('Hiding') < 80.0 do Disconnect; end; procedure Indi...

Какие вообще есть команды для Icq и будут ли команды для запуска скриптов и инфо по прокачке, по добытым ресурсам, смертям итп?

Хм а если я хочу много процедур это должно выглядить вот так? Program ItemID; var i : Integer; DagerType : Word; Dager : Cardinal; Vendor : Cardinal; Korova : Cardinal; Bulova : Cardinal; {$Include 'all.inc'} procedure FullDisconnect; begin SetARStatus(true); while GetSkillValue('Hiding') < 80.0 do ...

И как мне вот это запехнуть в мой скрипт на это местою. Вот сюда wait(11000); useskill('Hiding') wait(11000); =====>>>>:> begin while not Dead do begin UseSkill('Hiding'); Wait(11000); CheckLag(15000); if Hidden and (GetSkillValue('Hiding') > 80) then begin UseSkill('Stealth'); Wait(11000); CheckLag...

Использование стелса когда хайдинга больше 80: begin while not Dead do begin UseSkill('Hiding'); Wait(11000); CheckLag(15000); if Hidden and (GetSkillValue('Hiding') > 80) then begin UseSkill('Stealth'); Wait(11000); CheckLag(15000); end; end; end. Совет: если значение переменной не изменяется, то ...

Я хочу общий скрипт сделать на прокачку скилов основных..

Пак - это бекпак чара, или другой? Если другой, то вероятно потому, что пак не открыт. useskill('Hiding') ==============>>>>>> Как хайд заставить после 70 со стилом работать????????? А что для этого надо сделать в клиенте? Да пак это бекпак чара =) и он открыт.. но почему то меня смущает вот это Fi...

Мой первый скрипт.. не судите строго... Program ItemID; var i : Integer; DagerType : Word; Dager : Cardinal; Vendor : Cardinal; Korova : Cardinal; Bulova : Cardinal; {$Include 'all.inc'} procedure FullDisconnect; begin SetARStatus(true); while GetSkillValue('Hiding') < 80.0 do Disconnect; end; proce...

iscurmess.inc так вы и не показали ка должен выглядит этот файл) и подскажите чем скрипты от инжекта отличаются от стеел к примеру. / ========================== Arms Lore sub arms() while not uo.dead() uo.useskill('Arms Lore') uo.waittargetlast() wait(2000) wend end sub / ========================== ...