Yoko

Code: Select all

sub Co_ordinaite_Mining() 
   var x1,y1,i,g,a,b 
   nachalo: 
      for i=-2 to 2 
         for g=-2 to 2 
            kopat: 
            uo.deletejournal() 
            if uo.warmode() then 
               uo.warmode(0) 
            endif 
               while not uo.hidden() 
                  uo.deletejournal() 
                  uo.useskill('Hiding') 
                     repeat 
                        wait(300) 
                     until  uo.injournal('seem|hidden|You are preocuppied') 
                     if uo.injournal('You are preocuppied') then 
                        uo.warmode('0') 
                     endif 
               wend 
            x1=uo.getx('self') 
            y1=uo.gety('self') 
            a=x1+i 
            b=y1+g 
            UO.WaitTargetTile('0',a,b,0) 
            uo.usetype('0x0E85') 
               while not uo.injournal ('Where do') 
                  wait (100) 
               wend 
               repeat 
                  wait(300) 
               until uo.injournal('You put|heavy|location|no ore|but fail|far away|in rock') 
               if uo.injournal('heavy') then 
                  return 
               endif 
               if uo.injournal('You put|but fail') then 
                  uo.print(('     стою в координатах :')+str(x1)+','+str(y1)) 
                  uo.print(('   копаю в координатах :')+str(a)+','+str(b)) 
                  wait(5000) 
                  checklag() 
                  goto kopat 
               endif 
               if uo.injournal('no ore') then 
                  uo.print(('     стою в координатах :')+str(x1)+','+str(y1)) 
                  uo.print(('   копаю в координатах :')+str(a)+','+str(b)) 
                  wait(5000) 
                  checklag()  
               endif 
         next 
      next 
      if uo.weight<uo.str*4 then 
         goto nachalo 
      endif 
   uo.print('!!!!!!!!!!!!!!!!!Вес максимальный!!!!!!!!!!!!!!!!!!!!!!') 
endsub