ON INIT {
 SETNAME [description_corpse]
 SET_MATERIAL STONE
 INVENTORY CREATE
 COLLISION OFF
 SET §opened 0
 INVENTORY SKIN "ingame_inventory_corpse"
  INVENTORY ADD "PROVISIONS\\BONE\\BONE"
 RANDOM 30 {
  INVENTORY ADD "PROVISIONS\\BONE\\BONE"
 }
 RANDOM 75 {
    INVENTORY ADD "JEWELRY\\GOLD_COIN\\GOLD_COIN"
}
 RANDOM 50 {
    INVENTORY ADD "JEWELRY\\GOLD_COIN\\GOLD_COIN"
}
 RANDOM 25 {
    INVENTORY ADDMULTI "JEWELRY\\GOLD_COIN\\GOLD_COIN" 8
}
 RANDOM 5 {
    INVENTORY ADDMULTI "JEWELRY\\GOLD_COIN\\GOLD_COIN" 17
}
 ACCEPT
}

ON INVENTORY2_OPEN {
 IF (§opened == 0) {
  PLAY "Interface_Backpack"
  SET §opened 1
  ACCEPT
 }  
ACCEPT
}

ON INVENTORY2_CLOSE {
 SET §opened 0
 PLAY "Interface_Backpack"
ACCEPT
}

ON COMBINE {
 IF (^$PARAM1 ISGROUP "BLUNT") {
   PLAY "Crushing"
   INVENTORY PLAYERADD "PROVISIONS\\Bone_basin\\Bone_basin"
   INVENTORY PLAYERADD "PROVISIONS\\skull_take\\skull_take"
   INVENTORY PLAYERADD "PROVISIONS\\BONE\\BONE"
   INVENTORY PLAYERADD "PROVISIONS\\BONE\\BONE"
   INVENTORY PLAYERADD "\\magic\\powder_bone\\powder_bone"
   DESTROY SELF
   ACCEPT
 }
 ACCEPT
}