[gui]
   Acontecimientos
       Unidad - A unit Adquiere un objeto
   Condiciones
       (Item-class of (Item being manipulated)) Igual a Cargado
   Acciones
        For each (Integer A) from 1 to 6, do (Actions)
           Bucle: Acciones
               If (All Conditions are True) then do (Then Actions) else do (Else Actions)
                   Si: Condiciones
                       (Item-type of (Item carried by (Triggering unit) in slot (Integer A))) Igual a (Item-type of (Item being manipulated))
                       (Item carried by (Triggering unit) in slot (Integer A)) No igual a (Item being manipulated)
                   Entonces: Acciones
                       Objeto - Set charges remaining in (Item carried by (Triggering unit) in slot (Integer A)) to ((Charges remaining in (Item carried by (Triggering unit) in slot (Integer A))) + (Charges remaining in (Item being manipulated)))
                       Objeto - Remove (Item being manipulated)
                   Otros: Acciones[/gui]