 ; FUNCION DRAG %1 %2 %3 %4
 ; Descripcion: Arrastra un objeto de un origen a un destino
 ; %1 :Id del objeto a mover
 ; %2 %3 : X e Y destino
 ; %4    : Cantidad a mover
 ;         Caso especial: Si %4 = Simple, moveremos un objeto simple
 ;                        Si %4 = All = $

   set %dragout 0
  ignoreitem reset
    FINDITEM %1
     IF #FINDKIND = N/A
        exit
     If %4 = Simple 
        goto begindrag:
     If %4 > #FINDSTACK
         Set %4 ALL
     If #FINDSTACK = 1
         Set %4 Simple


begindrag:
   event drag %1
     if %4 = Simple
       {
         wait 2
         goto enddrag
       }
     dragwait: 

;Un timeout
       set %dragout %dragout + 1
       if %dragout = 15
           {
              scanjournal 1
                if %msg_saveworld in #journal 
                   {
                     deletejournal
                     wait 24s
                   }
              call keepalive
            }

       if %dragout > 30
              exit
       wait 1
       if  #ContKind IN WPH_SLU
          goto dragvabien
      goto dragwait
dragvabien:
   if %4 = ALL
      msg $
   if %4 <> ALL
      msg %4 $
;probando sin esto    wait 2
enddrag:
    click %2 %3 p

