IfTimeOut
  tmpargument = 0
  SetState

//Enable Activation of Quest
IfOrdered
  tmpargument = 5
  IfContentIs
    tmpx = selforder
    tmpy = [CRYP]
    IfXIsEqualToY
      tmpargument = 1
      SetContent

IfBumped
  SetTargetToWhoeverBumped
  IfTargetIsAPlayer
    IfStateIs0
      tmpargument = 1
      SetState
      tmpargument = 100		//2 seconds
      SetTime
      GetContent
      tmpx = tmpargument

      //Royal crypt
      tmpy = 0
      IfXIsEqualToY 
        tmpargument = 0
        SendMessageNear

      //Crypt Quest Unlock
      tmpy = 1
      IfXIsEqualToY 
        tmpargument = 1
        SendMessageNear
        tmpargument = 2
        SendMessageNear
        tmpargument = 2
        SetContent
        tmpargument = [CRYP]
        AddIDSZ
        tmpargument = 0
        PlaySound

      //Crypt Quest
      tmpy = 2
      IfXIsEqualToY
        tmpargument = 1
        SendMessageNear

      //Crypt for Developers
      tmpy = 3
      IfXIsEqualToY
        tmpargument = 3
        SendMessageNear
        tmpargument = 4
        SendMessageNear
        tmpargument = 5
        SendMessageNear

      //Vladula crypt
      tmpy = 4
      IfXIsEqualToY
        tmpargument = 6
        SendMessageNear

      //Normal crypt
      tmpy = 5
      IfXIsEqualToY
        tmpargument = 8
        SendMessageNear
End
