Yoko

Последняя версия моя я так полагаю
я её не нумеровал никак.

_________________
Сделал дело - флуди смело !!!

мзз...ЗалЕт....вообщем..нереал трабл...хелЬп ми??

ходтлка..ходилка...чтож делать?...
на моем шарде респ руды 30мин..а мой скрипт не ходит по пещере,только копает вокруг себя и то только на 2 клетки...элемы выкапываются моментально и ниче не спасает...отход от элема, который дал ВЕТЕРАН не пашет....жуть

1)ходилка по шахте

2)отход элема при выкопке с реколом

вот 2 нереальные проблемы .

брррр... зажали:? ...дайте скрипт

http://yoko.netroof.net/forum/viewtopic.php?t=3479

_________________
Сделал дело - флуди смело !!!

спасибо...нашел нашел..но там ошибки .жуть..
в 26 строке..какая может быть ошибка??

хехе просек фишку про ошибки

урр скрипт заработал...вроде все ошибки устранил

Поздравляю.

_________________
Сделал дело - флуди смело !!!

черт...черт...черт...черт...черт...черт...черт...
мля рунбук..мля..кхе....
......не можите ли вы замутить под руны реколл...А???

по русски

в том скрипте реколл по рунбуке....мне бы переделать мальца под рунки??..поможете?

найди такую строку примерно

UO.UseObject(runebook)
UO.LClick(135, n*15+55) - это порт по рунбуке

удоляй и заменяй вот этим

uo.cast('Recall','IDrune')

заменил...

потом я так понимаю надо тут подправить ??

sub RecallToHome()
uo.Print('Прыгаем Домой.')
RunebookRecall(RuneToHome)
end sub

где RunebookRecall(RuneToHome) надо на что-то заменить?

без скрипта не вытащиш и рыбку из пруда

хмм..реколы вроде переделал..вроде как бы пашет ..

а вот перекладка руды из пака в сундук не работет
(начинает гонять по паку руду )
делал так...

.........
var Chest='0x40187609'
........
sub DropOre() 
var o,exit 
dim Ore[14] 
Ore[0]=0x19B9 
Ore[1]=0x19B7 
Ore[2]=0x19BA 
Ore[3]=0x19B8 
Ore[4]=0x0F11 
Ore[5]=0x0F16 
Ore[6]=0x0F18 
Ore[7]=0x0F15 
Ore[8]=0x0F10 
Ore[9]=0x0F0F 
Ore[10]=0x0F26 
Ore[11]=0x1F4C 
Ore[12]=0x0EED 
Ore[13]=0x0F20 
if uo.Waiting() then 
uo.CancelTarget() 
end if 
uo.SetReceivingContainer('Chest') 
wait(500) 
for o=0 to 13 
exit=0 
repeat 
uo.FindType(Ore[o]) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(1500) 
else 
exit=1 
end if 
until exit==1 
next 
uo.UnSetReceivingContainer('Chest') 
end sub 

вот млин скоко ошибок..

тут надо так

uo.SetReceivingContainer(Chest) 
wait(500) 
for o=0 to 13 
exit=0 
repeat 
uo.FindType(Ore[o]) 
if uo.GetQuantity('finditem')>0 then 
uo.Grab('0','finditem') 
wait(1500) 
else 
exit=1 
end if 
until exit==1 
next 
uo.UnSetReceivingContainer() 

или так =)

sub UnLoad()
tSeif='0x000000' ; ID konteiner
var i
DIM Item[13]
#############################
#типы оров золота драг камней
#############################
Item[1]=0x19B9  ;  >3 ore 
Item[2]=0x19B7  ;  1 ore 
Item[3]=0x19BA  ;  2 ore 
Item[4]=0x19B8  ;  3 ore 
Item[5]=0x0F11  ;  saphires 
Item[6]=0x0F16  ;  amethysts 
Item[7]=0x0F18  ;  tourmalines 
Item[8]=0x0F15  ;  citrines 
Item[9]=0x0F10  ;  emeralds 
Item[10]=0x0F0F ;  star sapphires 
Item[11]=0x0F26 ;  diamonds 
Item[12]=0x0EED ;  gold
######################################
   for i = 1 to 12
      UO.FindType(Item[i], '-1', 'backpack')
      while UO.GetQuantity('finditem') > 0 
         UO.MoveItem('finditem','-1',tSeif) 
         Wait(1000) 
         CheckLag()          
         UO.FindType(Item[i],'-1','backpack')
      wend 
   next
end sub

или так..ну вообщем работает