Yoko

Code: Select all

Sub mine()

var x, y, i, t, tmp, inside, goto_x, st, first

VAR ms1 = "There is nothing here to mine for"

VAR ms2 = "You can't use"

VAR ms3 = "You put "

VAR ms4 = "You loosen some rocks"

VAR ms5 = "location"

VAR ms6 = "Try mining"

VAR ms7 = "You can't see that"

VAR ms8 = "You stop"

VAR ms9 = "That is too"

first=UO.GetX()

start:

inside=0

for y=-1 to 1

for x=-1 to 1

repeat

uo.deletejournal()

t = UO.Timer()

UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")

UO.exec ("usetype 0x0E85")

repeat

wait(300)

until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR  UO.InJournal(ms9) OR  ((t + 100) < UO.Timer())

until not UO.InJournal(ms8)

next

next

end sub


sub main()

var i

While UO.Life>0

for i=1 to 7

mine()

        uo.press(34)
        
        wait(500)
        
        uo.press(34)
        
        wait(500)
        
        uo.press(34)
        
    next
    
        uo.press(33)
        
        wait(500)
        
        uo.press(33)
        
        wait(500)
        
        uo.press(33)
        
mine()

    for i=1 to 7
    
        uo.press(36)
        
        wait(500)
        
        uo.press(36)
        
        wait(500)
        
        uo.press(36)
        
    next
    
        uo.press(33)
        
        wait(500)
        
        uo.press(33)
        
        wait(500)
        
        uo.press(33)

wend

end sub

Code: Select all

Sub sbroska()

var i,j
Dim OreType[2]
OreType[01]='0x19B9' ## 1 ore
OreType[02]='0x19B9' ## 2 ore


Dim OreColor[6] ## выкидывает все кроме голд сильвер титан (Ньюб остров)
OreColor[1] = '0x0488' ###
OreColor[2] = '0x06D6' ###
OreColor[3] = '0x052D' ###
OreColor[4] = '0x084D' ###
OreColor[5] = '0x04C2' ###
OreColor[6] = '0x0601' ###

for j=1 to 2
for i=1 to 6
uo.findtype(OreType[j],OreColor[i],'backpack')
while uo.findcount()>0
uo.moveitem('finditem','-1','ground')
wait(700)
uo.findtype(OreType[j],OreColor[i],'backpack')
wend
next
next
end sub

Code: Select all

if uo.weight>=400 then