ON INIT {
 SET £type "door_metal_double"
 SET £friend "kingdom" 
 SET_GROUP £friend
 ACCEPT
}

ON LOAD {
 USE_MESH "Door_Castle_double_door\Door_Castle_double_door.teo"
 ACCEPT
}

ON RELOAD {
 IF (#KINGDOM_ENEMY == 1) SENDEVENT -g ~£friend~ PLAYER_ENEMY ""
 ACCEPT
}

ON ACTION {
  IF (#CARLO_INTRODUCED == 0) {
    PLAY "door_locked"
    REFUSE
  }
 IF (#CARLO_INTRODUCED == 1)
 TELEPORT -NAL 0 0 MARKER_0305
 ACCEPT
}

ON PLAYER_ENEMY {
 SET #KINGDOM_ENEMY 1
 ACCEPT
}