Дорогие дамы и господа! Прошу вашему вниманию скрипт на мининг по шахтам.Проблема данного скрипта в том,что он не реколиться домой при задаммом максимальном весе в 300..Прошу помощи!!! program mining; // ZuluHotel 5 //Mining s rekolom domoy //Rekolits9 pri nahojdenii tipov man,woman,explojen,prichki...

procedure RecallRB(RBID : Cardinal; RuneNumber : Integer); var Weapon, Weapon2: cardinal; begin Weapon:= 0; Weapon2:= 0; if (GetType(ObjAtLayer(LhandLayer))<> 0) or (GetType(ObjAtLayer(RhandLayer))<> 0)then begin Weapon:= GetType(ObjAtLayer(LhandLayer)); Weapon2:= GetType(ObjAtLayer(RhandLayer)); d...

Вот что у нас получилось... Program lumber_GK; {$Include 'all.inc'} const axet = $0F43; Msg1 = 'stop'; rbook = $5AFE8D6B; // Серийник рунбуки runa1 = 1; // Руна к месту 1 runa2 = 2; // Руна к месту 2 type i_rail = array[1..4] of Integer; var x, i, mn1, k : Integer; TypeTree : i_rail; var ctime, nowt...

Program Spirit; {$Include 'all.inc'} var k : integer; n: integer; ctime : TDateTime; procedure bot; begin Cast('Dispel'); waittargetself; wait(1000); end; procedure TrySpirit; begin ctime:=Now; n:=0; repeat UseSkill('Spirit Speak'); Wait(3000); bot; n:=n+1; until n=3; ctime:=Timer; end; procedure T...

Люди добрые жду поможи со скриптом!!!

непонятно почему опять перестал рубить

nah nah wrote:

Code: Select all

UseObject(ObjAtLayerEx(rhandLayer,self));

Надо заменить на

Code: Select all

UseType(тип топора, цвет топора);

переставил с правой руки на левую всё заработало,сам додумался )))

скрипт нормально работает..то через некоторое время опять пишеться yoo have to equip to lumberjack

прописал....реколиться по первой руне,берёт в руки топор рубит один раз..потом пишет - you have to equip that to lumberjack...и останавливаеться!

Скрипт расчитан на две точки,крафт реколиться по рунобуке..проблема скрипта в том что когда топор ломаеться он не одевает другой!Поможет кто-нибудь передалть? Program lumber_GK; {$Include 'all.inc'} const axet = $2398; Msg1 = 'stop'; rbook = $550789D2; // Серийник рунбуки runa1 = 2; // Руна к месту ...

вот функция stack(она корректно сбрасывает на пол) procedure stack(ObjType, Color : word); var PackItem, GroundItem : Cardinal; begin PackItem := 0; GroundItem := 0; Findtype(ObjType,backpack); IF FindFullQuantity > 0 then PackItem := finditem; Findtype(ObjType,ground); IF FindFullQuantity > 0 then...

В общем он сбрасывает если не резать,а если резать овец то не сбрасывает )))

небросает

Program xz; {$Include 'all.inc'} Begin SetARStatus(true); while not dead do begin checksave; WaitConnection(5000); while findtype($00CF,ground) > 0 do begin checksave; WaitConnection(5000); waittargetobject(finditem); useobject(findtype($0F9E,backpack)); wait(1000); end; UOSay('ля-ля-ля'); wait(5000...

nah nah wrote:надо так

Code: Select all

if Count($0DF8, -1) > 0 then MoveItem(FindType($0DF8, BackPack), 0, FindType($0DF8, Ground), 0, 0, 0);

а если так то пишет Invalid number of parameters