1 reply to this topic

[vasa2008]

помогите плиз вставить в этот скрипт еще сброс руды нишки до голды


sub main()
var i
uo.print("Poneslas`!!!")
While UO.Life>0
for i=1 to 12
kopat()
uo.press(34)
wait(500)
uo.press(34)
next
uo.press(34)
wait(500)
uo.press(34)
wait(500)
uo.press(34)
uo.print("Idem nazad!!!")
kopat()
for i=1 to 11
uo.press(36)
wait(500)
uo.press(36)
next
uo.press(36)
wait(500)
uo.press(36)

wend
end sub
sub kopat()
var where_x,where_y,coords,i
UO.DeleteJournal()
where_x=uo.getx()
where_y=uo.gety()
for i=-2 to 2
uo.print("Kopaem "+str(i+3)+"/5")
coords="waittargettile "+" 1339 "+str(where_x)+" "+str(where_y+i)+" 0"
uo.exec(coords)
uo.exec("usetype '0x0E86'")
UO.DeleteJournal()
repeat
wait(1000)
until (uo.inJournal("You stop mining") or uo.inJournal("far") or uo.inJournal("You can't mine or dig anything there.") or uo.inJournal("cannot mine") or uo.inJournal("dig") or uo.inJournal("stop") or uo.inJournal("mining elsewhere") or uo.inJournal("no line") or uo.inJournal("nothing"))

next
end sub

[Aizen]

Темка старая... Но мало ли кому понадобится

Скидывает то что в процедуре Sub drop() 

sub main() 
   var x, y,z 
   VAR LastTimer
   var ms1="can't see"
   var ms2="heavy"
   var ms3="location"
   var ms4="far away"
   var ms5="in rock"
   var ms6="elsewhere"
   var ms7="nothing"
   var ms8="You cannot mine"
   var ms9="Correct code."
   
   var h1="Gypsum"
   var h2="Zink"
   var h3="Stone"
   var h4="Marble"
   var h5="Sandstone"
   var h6="Plaster"
   
   var ore1="Marganece"
   var ore2="Iron"
   var ore3="Copper"
   var ore4="Tourmaline"
   var ore5="Tin"
   var ore6="Bronze"
   var ore7="Lead"
   var ore8="Corrundum"
   var ore9="Titan"
   
   UO.Set('finddistance','2') 
   z=UO.GetZ("self") 
   for x=-2 to 2 
      for y=-2 to 2 
         UO.Print(str(x)+" "+str(y)) 
         Repeat
            UO.DeleteJournal() 
            UO.Exec("warmode 0") 
            UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),z) 
            UO.UseType('0x0E85')
            CheckLag() 
            LastTimer=UO.Timer() 
            Repeat
               If uo.lastgump('replyed') == 0 && uo.lastgump('text') == 'Please enter code:' Then
                  uo.textopen()
                  uo.textprint('Ахтунг')
                  While not uo.InJournal(ms9)
                     wait(100)
                  Wend
               End If
               wait(100) 
            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(ms8) or UO.InJournal(ms9)  or UO.InJournal(ore1) or UO.InJournal(ore2) or UO.InJournal(ore3) or UO.InJournal(ore4) or UO.InJournal(ore5) or UO.InJournal(ore6) or UO.InJournal(ore7) or UO.InJournal(ore8) or UO.InJournal(ore9) or UO.InJournal(h1) or UO.InJournal(h2) or UO.InJournal(h3) or UO.InJournal(h4) or UO.InJournal(h5) or UO.InJournal(h6) or UO.Timer()>LastTimer+500
            uo.exec("warmode 1")
            wait(50)
            uo.exec("warmode 0") 
         Until UO.InJournal(ms3) or UO.InJournal(ms4) or UO.InJournal(ms5) or UO.InJournal(ms6) or UO.InJournal(ms7) or UO.InJournal(ore1) or UO.InJournal(ore2) or UO.InJournal(ore3) or UO.InJournal(ore4) or UO.InJournal(ore5) or UO.InJournal(ore6) or UO.InJournal(ore7) or UO.InJournal(ore8) or UO.InJournal(ore9) or UO.InJournal(h1) or UO.InJournal(h2) or UO.InJournal(h3) or UO.InJournal(h4) or UO.InJournal(h5) or UO.InJournal(h6)
         drop()            
      next 
   next 
end sub

Sub drop()
   var i
   var amount=15
   dim color[15]
   color[0]='0x06D6'   ;Marganece
   color[1]='0x0000'   ;Iron
   color[2]='0x0601'   ;Copper
   color[3]='0x04C2'   ;Tourmaline
   color[4]='0x052D'   ;Tin
   color[5]='0x0488'   ;Bronze
   color[6]='0x084D'   ;Lead      
   color[7]='0x060C'   ;Corrundum
   color[8]='0x0453'   ;Titan
   color[9]='0x03E3'   ;Gypsum
   color[10]='0x0026'  ;Zink
   color[11]='0x0909'  ;Stone
   color[12]='0x079E'  ;Marble 
   color[13]='0x0090'  ;Sandstone
   color[14]='0x0097'  ;Plaster
   
   uo.ignorereset()
   repeat
      uo.deletejournal()
      for i = 0 to amount-1
         uo.findtype('0x19B9',color[i],'backpack')
         if uo.Targeting()==1 then
            uo.canceltarget() 
         end if 
         
         If uo.findcount() > 0 then
            UO.WaitTargetObject('finditem')
            UO.Drophere('finditem')
            Wait(100)
         End If
      Next
end sub 

Sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(100)
   until UO.InJournal("backpack")
end sub