ON INIT {
 SETNAME [description_apparatus] 
 SET_MATERIAL METAL
 SET_SHADOW OFF
 COLLISION OFF
 ACCEPT
}

ON COMBINE {
  IF (^$PARAM1 ISCLASS "POTION2BEOIL") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 20) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_20]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION2BERUST") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 35) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_30]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION2BELIFE") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 30) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_30]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION2BEMANA") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 40) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_40]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION2BEPOISONFULL") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 40) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_40]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION2BEREALCUREFULL") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 40) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_40]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION2BERESTORATION") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 60) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_60]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION2BEWHITEFULL") {
      SPEAK -p [player_no] NOP
      ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION2BEWHITE") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 80) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_80]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION2BEBLACKFULL2") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 80) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_80]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION2BEBLACKHALF") {
   SPEAK -p [player_not_now] NOP
      HEROSAY [required_more_BlackPowder]
   ACCEPT
  }
//Aqua Vitae
  IF (^$PARAM1 ISCLASS "POTION_GREEN") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 70) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_70]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION_INVISIBLE") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 70) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_70]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION_BLESS") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 70) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_70]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION_LIFE") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 70) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_70]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION_MANA") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 70) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_70]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION_PURPLE") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 70) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_70]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION2BONEWINE") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 50) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_50]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
  IF (^$PARAM1 ISCLASS "POTION_ANTIDOTE") {
    IF (^PLAYER_SKILL_OBJECT_KNOWLEDGE < 70) {
      SPEAK -p [player_not_skilled_enough] NOP
      HEROSAY [required_obj_70]
      ACCEPT
    }
   SET_INTERACTIVITY NONE
   GOTO TRANSMUTE
   ACCEPT
  }
 SPEAK -p [player_no] NOP
 ACCEPT
}

>>TRANSMUTE
 SENDEVENT CUSTOM ^$PARAM1 "MAKE_POTION"
 PLAY "apparatus"
 TIMERbusy 1 2 GOTO POTION_DONE
 ACCEPT

>>POTION_DONE
 SET_INTERACTIVITY YES
 RANDOM 30 {
   SPEAK -p [player_here_we_go_potion] NOP
   ACCEPT
 }
 ACCEPT 