Ultima Online Antares

#####################################################################
; Cartography
;
; Чар берет из сундука бланк карты, крафтит из них мапы
; и складывает эти мапы в сундук2.
; если бланк мапы закночились выход
;
sub cartography()
   VAR Sunduk = '0x403F40E0'     ; сунук
   VAR Sunduk2 = '0x4002393C'     ;сундук2
   var backpack = '0x402FE8A0'
   VAR Maps = '0x14EB'
   VAR Kolvo = 1
   VAR k = 0
   WHILE NOT UO.Dead()
      UO.FindType( Maps, -1, Sunduk ) ; ищем мапы
      If UO.FindCount() == 0 Then
         UO.Print("There is no Blank maps in your backpack")
         return
      Endif
      UO.Grab( Str( Kolvo ), 'finditem' )
      wait( 2000 )
      UO.FindType( Maps, -1, backpack )
         UO.Print('Ostalos ' + Str( UO.Count( Maps ) ) + ' maps' )
         UO.DeleteJournal()
         UO.WaitMenu ('What', 'Detail' )
         UO.UseType( Maps )
         k = 0
         while NOT UO.InJournal('You put') AND ( k < 30 )
            k = k + 3
            wait(500)
            if UO.InJournal('trembling') then
            UO.WaitMenu ('What', 'Detail' )
            UO.UseType( Maps )
            k = 0
         while NOT UO.InJournal('You put') AND ( k < 30 )
            k = k + 3
            wait(500)
         wend
         if UO.Count( Maps ) > 0 then
            UO.FindType( Maps, -1, -1 )
            UO.MoveItem( 'finditem', 0, Sunduk2 )
            wait( 1000 )
            UO.Print( 'Map Moved' )
            end if
         end if
         Wend
      Wend
   Wend
end sub

sub Map()

VAR LastTimer
VAR Sunduk1  = '0x4042B4C9'
VAR Sunduk2  = '0x40005E42'
VAR Blank    = '0x14EB'
VAR delay1   = 200        
WHILE NOT UO.Dead()
     uo.findtype(Blank,-1,Sunduk1)
     UO.Grab("0","finditem")
     repeat
     wait(1000)
     UO.DeleteJournal()
    
      LastTimer=UO.Timer()
       UO.WaitMenu ('What sort', "Detail Map")
       UO.Usetype( Blank )
      repeat
        wait( delay1 )
      until UO.InJournal("You put|Thy") or UO.Timer()>LastTimer+500
      wait( delay1 )
     until UO.InJournal('You put')  or UO.Timer()>LastTimer+500
     wait( 500 )
      uo.findtype(Blank,-1,'Backpack')
      UO.moveitem('finditem',-1,Sunduk2)
      wait(1000)
WEND
end sub