Mining

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

sub miningt()
 var t,x,y,dir,px,py
 uo.msg('banker bank')
 UO.AddObject ('CONTAINER')
 While UO.Targeting()
 Wait(100)
 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 >= 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()
 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
 uo.msg('bank')
 wait(1000)
 uo.useobject('CONTAINER')
 wait(1000)
 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
 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
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
endsub