MOUNT LOOTER
Tested on JMC version 3.26
(c) Rashnak 2002-05-21

This script helps if you loot lot of corpses and often give what
you can't carry to your horse(s). 

It contains one alias:

#alias ml {#script mount_loot "%1", "%2"}

Which is used like this:
>ml metal pack

Equals to "get all.metal all.corpse; give all.metal pack"

>ml metal

Which is same as "get all.metal all.corpse; give all.metal Tally",
where "Tally" is your favourite warhorses name, defined in the 
following VBScript subroutine, that should be copied to
"settings/commonlib.scr".

Sub mount_loot (itemKeyword, mountKeyword)
  if (mountKeyword = "") then
    mountKeyword = "Tally"
  end if
  dim jmcCommand
  jmcCommand = "get all." & itemKeyword & " from all.corpse; " & _
    "give all." & itemKeyword & " " & mountKeyword
  if (jmcCommand <> "") then
    jmc.parse(jmcCommand)
  end if
End Sub