Yoko

Sub LamberAround()
;
; Рубим вокруг чара
;
   VAR t, k, CanMine, cx, cy, tmpx, tmpy, pointX, pointY
   VAR MaxVes = 500                     ; максимальный вес
   VAR MaxTime = 600                     ; измеряется в 1/10 сек.
   VAR ms1 = "There are no logs here to chop"
   VAR ms2 = "You can't use"
   VAR ms3 = "You put the"
   VAR ms4 = "You fail to produce any useable wood"
   VAR ms5 = "You are too far away"
   VAR ms6 = "It appears immune to your blow"
   VAR ms7 = "You can't see that"
   VAR ms8 = "is destroyed*"               ; топор развалился совсем
   UO.asmTLMapOpen('Resource_Map.dat')         ; Загрузим таблицу типов карты для скал
   UO.asmTLStaticOpen('Resource_Static.dat')   ; Загрузим таблицу типов статики для скал
   VAR i
   cx = UO.GetX()
   cy = UO.GetY()
   for tmpx = -3 to 3
      for tmpy = -3 to 3
         k = 0
         pointX = cx + tmpx
         pointY = cy + tmpy
         repeat
            DeleteJournal( ms1 )
            DeleteJournal( ms2 )
            DeleteJournal( ms3 )
            DeleteJournal( ms4 )
            DeleteJournal( ms5 )
            DeleteJournal( ms6 )
            DeleteJournal( ms7 )
            DeleteJournal( ms8 )
            t = UO.Timer() + MaxTime
            k = k + 1
            flag = 1
            GetInstrum('lamb')
            CanMine = UO.asmWaitTargetStaticTile( 'tree', PointX, PointY, 0 )
            If CanMine Then
               UO.UseObject(UO.ObjAtLayer('Lhand'))
               repeat 
                  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 (t < UO.Timer())
            Endif
            If UO.Weight > MaxVes Then
               ; Вес превышен!
               return 1
            Endif
            If UO.InJournal( ms8 ) Then
               ; топор накрылся!
               return 1
            Endif
         until NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10)
      next
   next
   return 0
endsub