Enea per favore posta qui lo script che dicevi che va bene per minare; se non hai problemi.
Thx. in anticipo.
					Thx. in anticipo.



sub Mina
   set %mx %1
   set %my %2
   set !cave %3
   set !ttipe %4
   gosub VisualizzaStato Mina
minap2:
  findItem %pickaxe c_  , #backpackid
  if #findkind = -1
  {
      gosub Crea_PickAxe
      if #result = #false
      {
          return VATTENE
      }
      goto minap2
   }
   set #lobjectid #findid
   event macro 17 0
   set %error #scnt + 3
   wait 2
   wtperminare2:
   if #targcurs = 1
   {
      wait 2
      goto riclickmina2
   }
   if #scnt > %error
   {
         goto minap2
   }
   goto wtperminare2
riclickmina2:
   set %error #scnt + 30
   set %jindex #jindex + 1
   set %ncr 0
   rcminaripeti2:
   if !cave = #true
   {
     set #ltargetx %mx
         set #ltargety %my
         set #LTargetZ #CHARPOSZ
         set #LTargetKind 3
         set #LTARGETTILE !ttipe
   }
   if !cave = #false
   {
      set #ltargetx %mx
      set #ltargety %my
      set #LTargetZ -1
      set #LTargetKind 2
   }
   event Macro 22
   set %npicconate %npicconate + 1
   ;event sysmessage %npicconate gocce di sudore!
   minaloop2:
   gosub check_HP
   if #result = #false
   {
      if %guard = #true
      {
         msg Guards $
         gosub heal uno
         wait 10
      }
      if %guard = #false && %usafuga = #true
      {
         return FUGA
      }
   }
    for %line #jindex %jindex
    {
       scanjournal %line
       
       if YOU_PUT_SOME in #journal
       {
           gosub guarda_che_tipo #journal
          if #result > 1
          {
          if #result > %mat . %nposto
          {
             set %mat . %nposto #result
             gosub crea_info_spot %nposto #true
          }
          }
          deletejournal
           return GIUSTO
       }
       if TARGET_CANNOT in #journal || YOU_CAN'T_MINE in #journal || TARGET_CANNOT_BE_SEEN in #journal
       {
           deletejournal
           return SBAGLIATO
       }
       if YOUR_BACKPACK_IS_FULL in #journal
       {
          deletejournal
          return VATTENE
        }
         if THERE_IS_NO_METAL in #journal
       {
          deletejournal
          return FINITO
        }
        if YOU_CAREFULLY_DIG_UP in #journal
       {
          gosub guarda_che_tipo #journal
          if #result > 1
          {
          if #result > %mat . %nposto
          {
             set %mat . %nposto #result
             gosub crea_info_spot %nposto #true
          }
          }
          deletejournal
          set %contasabbia %contasabbia + 1
          if %contasabbia < %limitesand
            return GIUSTO
          else
            return FINITO
        }
        if YOU_DIG_SOME in #journal
       {
          gosub guarda_che_tipo #journal
          if #result > 1
          {
          if #result > %mat . %nposto
          {
             set %mat . %nposto #result
             gosub crea_info_spot %nposto #true
          }
          }
          deletejournal
           return GIUSTO
       }
        if YOU_LOOSEN_SOME in #journal || YOU_CAREFULLY_EXTRACT in #journal || YOU_DIG_FOR_A_WHILE in #journal
       {
          deletejournal
           return GIUSTO
        }
    }
    if #scnt < %error
    {
         goto minaloop2
    }
    return SBAGLIATO
return

Commenta