Yoko

Code: Select all

sub LooterNew() 
VAR i, n 
VAR w = 500  ; the delay after a move
VAR razmer = 9  ; the size of the DIM 

DIM Loot[9] 
    Loot[1] = '0x0EED' 
    Loot[2] = '0x1BD1' 
    Loot[3] = '0x0F87' 
    Loot[4] = '0x14ED' 
    Loot[5] = '0x0EED' 
    Loot[6] = '0x1031' 
    Loot[7] = '0x0F51' 
    Loot[8] = '0x0F51' 
    Loot[9] = '0x0F06' 

  if uo.getdistance( 'lastcorpse' ) < 3 then 
    uo.deletejournal() 
    repeat 
      uo.findtype( '-1', '-1', 'lastcorpse' )  
      n = 0 
        for i = 1 to razmer 
          if uo.getgraphic( 'finditem' ) == Loot[i] then 
            uo.moveitem( 'finditem', 'all', 'my' ) 
            wait(w) 
              if uo.injournal( 'UNSP' ) then 
                wait(w*2) 
                uo.deletejournal() 
              endif 
            n = 1 
            goto nextitem 
           endif          
        next 
          if n == 0 then 
            uo.ignore( 'finditem' ) 
          endif 
      nextitem: 
    until uo.findcount() == 0 
  else 
    uo.print( 'The Corpse is too far' ) 
  endif 
endsub