Yoko

recala devolta pra casa depois de encher a bag de ores.

sub mining() ; By ChavinhO (para Mina de Minoc DMS)
inicio:
var t,x,y,dir,px,py
t=3 #Quantos tiles seu char vai andar depois que minerar tudo a sua volta.
ChecarLimite(488,6) #Limite X ou Y da Mina. #Quantos tiles seu char vai andar pra voltar depois de ultrapassar do limite.
IF (uo.weight >= 350) then #Peso maximo antes de comecar a guardar os Ores no Bank.
GuardarOres()
endif
for x = -2 to 2
for y = -2 to 2
denovo:
UO.DeleteJournal()
if ((y == 0) and (x == 0)) or ((num(x) == 2) and (num(y) == 2)) then
goto jump
endif
uo.waittargettile('#0x400', str(uo.GetX() + x), str(uo.GetY() + y), STR(UO.GetZ('self')))
uo.usetype('0x0E85')
repeat
wait(200)
until UO.InJournal("Voce pos|Tente miner|Voce nao|Nao ha|You cann|O alvo|target canc")
if not UO.InJournal("Tente minerar|Nao ha|uma linha|You cannot") then
goto denovo
endif
jump:
next
next
walk:
px=UO.GetX('self')
py=UO.GetY('self')
dir=UO.Random(8)
while (t >= 0)
uo.press(dir+33)
wait(100)
t=t-1
wend
if (px == UO.GetX('self')) and (py == UO.GetY('self')) then
t=3
goto walk
endif
goto inicio
end sub

Sub num(X)
if X>0 then
return X
else
return (-X)
end if
end sub

sub ChecarLimite(limite,passos)
IF (UO.GetY('self') >= limite) then
uo.press(33)
wait(100)
uo.press(33)
while (passos >= 0)
wait(100)
uo.press(39)
passos=passos-1
wend
endif
end sub

sub GuardarOres()
uo.useobject ('BOOK1')
wait(500)
uo.lCLick(181,184)
wait(12000)
uo.useobject ('BANK')
wait(500)
uo.lCLick(315,440)
wait(1000)
uo.useobject ('CONTAINER')
if uo.count('0x19B9') >=1 then
UO.MoveItem('0x19B9', '0', 'CONTAINER')
endif
uo.useobject ('BANK')
wait(500)
uo.lCLick(315,440)
wait(1000)
UO.AddObject ('CONTAINER',0x400FCA9D)
uo.useobject ('BOOK2')
wait(500)
uo.lClick(177,241)
wait(12000)
next
end sub

Há de se recuperar o processo que verifica o peso.

Раз уж второй раз тут пишем с нарушениями то напишу по русски для разнообразия.
Изучить, перевести, осознать и привести в соответствие - правила раздела. Срок 3 дня.
PS мой переводчик не справляется с оборотами речи португальских посетителей. По этому я расстроен.

я баню его

и тему бы эту убрать от сюда

Уберу. Через 2 дня. Если не исправит.

sub mining() ; By kishi Iruka (para Mina de Minoc DMS)
var t,x,y,dir,px,py
uo.msg('bank')
UO.AddObject ('CONTAINER')
While UO.Targeting()
Wait(100)
uo.useobject ('BANK')
wait(500)
uo.lCLick(318,434)
wait(500)
uo.useobject ('BOOK1')
wait(500)
uo.lCLick(181,200)
wait(12000)
Wend
inicio:
t=3 #Quantos tiles seu char vai andar depois que minerar tudo a sua volta.
ChecarLimite(488,6) #Limite X ou Y da Mina. #Quantos tiles seu char vai andar pra voltar depois de ultrapassar do limite.
IF (uo.weight >= 100) then #Peso maximo antes de comecar a guardar os Ores no Bank.
GuardarOres()
endif
for x = -2 to 2
for y = -2 to 2
denovo:
UO.DeleteJournal()
if ((y == 0) and (x == 0)) or ((num(x) == 2) and (num(y) == 2)) then
goto jump
endif
uo.waittargettile('#0x400', str(uo.GetX() + x), str(uo.GetY() + y), STR(UO.GetZ('self')))
uo.usetype('0x0E85')
repeat
wait(200)
until UO.InJournal("Voce pos|Tente miner|Voce nao|Nao ha|You cann|O alvo|target canc")
if not UO.InJournal("Tente minerar|Nao ha|uma linha|You cannot|Iron ore|Ceramic|Gold ore|Verite ore|Valorite ore") then
goto denovo
endif
#Iron:
IF UO.InJournal("Iron ore") then
DropOre('0x0000')
endif
#Ceramic:
IF UO.InJournal("Ceramic ore") then
DropOre('0x008F')
endif
IF UO.InJournal("Gold ore") then
DropOre('0x08A5')
endif
#Verite:
IF UO.InJournal("Verite ore") then
DropOre('0x089F')
endif
#Valorite:
IF UO.InJournal("Valorite ore") then
DropOre('0x08AB')
endif
jump:
next
next
walk:
px=UO.GetX('self')
py=UO.GetY('self')
dir=UO.Random(8)
while (t >= 0)
uo.press(dir+33)
wait(100)
t=t-1
wend
if (px == UO.GetX('self')) and (py == UO.GetY('self')) then
t=3
goto walk
endif
goto inicio
end sub
Sub num(X)
if X>0 then
return X
else
return (-X)
end if
end sub
sub ChecarLimite(limite,passos)
IF (UO.GetY('self') >= limite) then
uo.press(33)
wait(100)
uo.press(33)
while (passos >= 0)
wait(100)
uo.press(39)
passos=passos-1
wend
endif
end sub

sub GuardarOres()
uo.useobject ('BOOK1')
wait(500)
uo.lCLick(178,185)
wait(12000)
uo.msg('bank')
UO.AddObject ('CONTAINER')
While UO.Targeting()
Wait(100)
uo.useobject ('BANK')
wait(500)
uo.lCLick(318,434)
wait(1000)
uo.useobject('CONTAINER')
var n
DIM ID[12]
ID[1]='0x19B9'
ID[2]='0x19B8'
ID[3]='0x19BA'
ID[4]='0x19B7'
ID[5] = '0x0F16 CONTAINER'; amesthysts
ID[6] = '0x0F10 CONTAINER'; emerald
ID[7] = '0x0F0F ground'; star sapphire
ID[8] = '0x0F18 ground'; tourmaline
ID[9] = '0x0F26 ground'; diamond
ID[10] = '0x0F11 ground'; sapphire
ID[11] = '0x0F15 ground'; citrine
ID[12] = '0x0F13 ground'; rubi
wend
For n=5 To 12
if uo.count(MID(ID[n], 0, 6)) >=1 then
if n >= 6 then
wait(1600)
endif
UO.FindType(MID(ID[n], 0, 6),'-1','my') ;
uo.moveitem('finditem', '0', MID(ID[n], 7, 9))
endif
Next
wend
Next
end sub

sub DropOre(cor)
var n
DIM OREID[4]
OREID[1]='0x19BA'
OREID[2]='0x19B8'
OREID[3]='0x19B7'
OREID[4]='0x19B9'
For n=1 to 4
if uo.count(OREID[n],cor) >=1 then
UO.FindType(OREID[n],cor,'my')
UO.MoveItem('finditem','-1','ground')
endif
Next
end sub

Processa erro com a variavel.

Ну кто балуется? У него 1 день остался

sub mining() ; By kishi Iruka (para Mina de Minoc DMS)
var t,x,y,dir,px,py
uo.useobject ('BANK')
wait(500)
uo.lClick(314,439)
UO.AddObject ('CONTAINER')
While UO.Targeting()
Wait(1000)
uo.useobject ('BOOK1')
wait(500)
uo.lClick(181,201)
wait(12000)
Wend
inicio:
t=3 #Quantos tiles seu char vai andar depois que minerar tudo a sua volta.
ChecarLimite(488,6) #Limite X ou Y da Mina. #Quantos tiles seu char vai andar pra voltar depois de ultrapassar do limite.
IF (uo.weight >= 100) then #Peso maximo antes de comecar a guardar os Ores no Bank.
GuardarOres()
endif
for x = -2 to 2
for y = -2 to 2
denovo:
UO.DeleteJournal()
if ((y == 0) and (x == 0)) or ((num(x) == 2) and (num(y) == 2)) then
goto jump
endif
uo.waittargettile('#0x400', str(uo.GetX() + x), str(uo.GetY() + y), STR(UO.GetZ('self')))
uo.usetype('0x0E85')
repeat
wait(200)
until UO.InJournal("Voce pos|Tente miner|Voce nao|Nao ha|You cann|O alvo|target canc")
if not UO.InJournal("Tente minerar|Nao ha|uma linha|Iron ore|Ceramic|Gold ore|Verite ore|Valorite ore") then
goto denovo
endif
#Iron:
IF UO.InJournal("Iron ore") then
DropOre('0x19B7')
endif
#Ceramic:
IF UO.InJournal("Ceramic ore") then
DropOre('0x008F')
endif
IF UO.InJournal("Gold ore") then
DropOre('0x08A5')
endif
#Verite:
IF UO.InJournal("Verite ore") then
DropOre('0x089F')
endif
#Valorite:
IF UO.InJournal("Valorite ore") then
DropOre('0x08AB')
endif
jump:
next
next
walk:
px=UO.GetX('self')
py=UO.GetY('self')
dir=UO.Random(8)
while (t >= 0)
uo.press(dir+33)
wait(100)
t=t-1
wend
if (px == UO.GetX('self')) and (py == UO.GetY('self')) then
t=3
goto walk
endif
goto inicio
end sub
Sub num(X)
if X>0 then
return X
else
return (-X)
end if
end sub
sub ChecarLimite(limite,passos)
IF (UO.GetY('self') >= limite) then
uo.press(33)
wait(100)
uo.press(33)
while (passos >= 0)
wait(100)
uo.press(39)
passos=passos-1
wend
endif
end sub

sub GuardarOres()
var n
DIM ID[12]
ID[1]='0x19B9'
ID[2]='0x19B8'
ID[3]='0x19BA'
ID[4]='0x19B7'
ID[5] = '0x0F16 CONTAINER'; amesthysts
ID[6] = '0x0F10 CONTAINER'; emerald
ID[7] = '0x0F0F ground'; star sapphire
ID[8] = '0x0F18 ground'; tourmaline
ID[9] = '0x0F26 CONTAINER'; diamond
ID[10] = '0x0F11 ground'; sapphire
ID[11] = '0x0F15 CONTAINER'; citrine
ID[12] = '0x0F13 ground'; rubi
uo.useobject ('BOOK1')
wait(500)
uo.lClick(181,186)
wait(12000)
uo.useobject ('BANK')
wait(500)
uo.lClick(308,443)
Wait(1000)
For n=5 To 12
if uo.count(MID(ID[n], 0, 6)) >=1 then
if n >= 4 then
endif
UO.FindType(MID(ID[n], 0, 6),'-1','my') ;
uo.moveitem('finditem', '0', MID(ID[n], 7, 9))
Next

For n=1 To 4
while uo.count(ID[n]) >= 1
wait(1600)
UO.FindType(ID[n],'-1','my')
uo.moveitem('finditem', '0', 'CONTAINER')
wend
Next
end sub

PS. Where did you find that script?

видно же какой то португальский скриптер делал

я уже не слежу что то за темой. Чего он хочет то?

что-то связанное с разгрузкой

Зачастил иностранец. Неужели в Португалии туго со скриптерами и не у кого спросить, кроме Украинского форума...

sub GuardarOres()
uo.useobject ('BOOK1')
wait(500)
uo.lCLick(182,185)
wait(12000)
var n
DIM OREID[4]
OREID[1]='0x19BA'
OREID[2]='0x19B8'
OREID[3]='0x19B7'
OREID[4]='0x19B9'
for n = 1 to 4
while uo.count(OREID[n]) => 1
uo.msg (BANK[n])
wait(1600)
UO.FindType('finditem','-1','my')
uo.moveitem('finditem', '0', 'CONTAINER')
wend
end sub

закрыто. свободен.

а еще меня называют жестоким... © Mirage :roll:

Хотя со стороны португальца конечно свинство полностью игнорировать все попытки выйти с ним на дискуссию и выкладывать свои посты в разрез с правилами.
Так что Nmy +1