I'm wrote:Askaneli wrote:Есть универсальный скрипт.
Скала, общественная шахта , вип шахта от Асканели и Ветерана с редакцией Кулера.
p/s: На правах рекламы.
П.С. какая последняя версия на текущий момент? Научный интерес.
Askaneli wrote:Gromiz wrote:брррр... зажали:? ...дайте скрипт
http://yoko.netroof.net/forum/viewtopic.php?t=3479
Gromiz wrote:Askaneli wrote:Gromiz wrote:брррр... зажали:? ...дайте скрипт
http://yoko.netroof.net/forum/viewtopic.php?t=3479
спасибо...нашел нашел..но там ошибки .жуть..
в 26 строке..какая может быть ошибка??
Gromiz wrote:урр скрипт заработал...вроде все ошибки устранил
по русскиGromiz wrote:......не можите ли вы замутить под руны реколл...А???
Gromiz wrote:в том скрипте реколл по рунбуке....мне бы переделать мальца под рунки??..поможете?
Gromiz wrote:заменил...
потом я так понимаю надо тут подправить ??
sub RecallToHome()
uo.Print('Прыгаем Домой.')
RunebookRecall(RuneToHome)
end sub
где RunebookRecall(RuneToHome) надо на что-то заменить?
)
Code: Select all
.........
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
Gromiz wrote:хмм..реколы вроде переделал..вроде как бы пашет ..
а вот перекладка руды из пака в сундук не работет
(начинает гонять по паку руду
делал так...Code: Select all
.........
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()
end sub
Code: Select all
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()
Code: Select all
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
