Yoko

Posted: **2005-06-30 09:14:33**

Karoche nado zdelat shtob on hodil ne toka prjamo [ verx ]
a shtob hodil i na leva i na pravo , i iho odin takoizeh scp nu tok shtob vsje skidoval v bank [ shard THe Fantasy , bank - sunduk ] v newbie cave , i pereplavlal po 1 i kopal dalshje =) sposibo zaranje

Code: Select all

sub Mining() ; Капание 
    var PX, PY, Ix,Iy, Dist 
    Dist=2 
    repeat
    PX = UO.GetX("self") 
    PY = UO.GetY("self") 
    
   # repeat
    UO.DeleteJournal() 
    For Iy = -Dist to Dist 
      For Ix = -Dist to Dist 
        UO.Print('Капаем по координате: '+Str(PX+Ix)+':'+Str(PY+Iy)) 
      while (UO.Weight<=600) and not UO.InJournal('There is no ore') and not UO.InJournal("You have no line") and not UO.InJournal("That is to far away") and not UO.InJournal("You can't think")
        UO.DeleteJournal() 
        UO.WaitTargetTile(-1,Str(PX+Ix),Str(PY+Iy),-1) 
        UO.UseType("0x0E85") 
       while not UO.InJournal("You put the") and not UO.InJournal("You loosen some") and not UO.InJournal("You can't think") and not UO.InJournal("That is to far away") and not UO.InJournal("There is no ore") 
     #   UO.Print('2-while')
        Wait(200) 
       wend 
     #  UO.Print('1-while')
                              #If UO.InJournal("You can't use the %s where it") then
       				#				uo.exec('exec restart')
				#					uo.Exec('terminate Mining')
                             # endif
      wend 
       UO.Print('Всё выкапали в: '+Str(PX+Ix)+':'+Str(PY+Iy)+' ;)') 
       UO.DeleteJournal() 
      next 
    next 
    UO.Print('Усё!!! всё во круг себя выкапано... терь надо искать другое место!') 
    UO.Press(33,4,300) 
    Until (UO.Weight>=600)
    
endsub 

sub restart()

Wait(2000) 
uo.exec('exec Mining')

endsub

Yoko

MINING !

MINING !