//Someone freed the faeries?
IfOrdered
  tmpx = selforder
  tmpy = [FAER]
  IfXIsEqualToY
    tmpargument = 1
    SetContent

IfTimeOut
  SetTargetToNearestLifeform
  tmpx = targetdistance
  tmpy = 128*3
  IfXIsLessThanY
    IfTargetIsAPlayer
      IfStateIs0
        tmpargument = 1
        IfContentIs

          //Beat the module!
          ClearEndMessage
          tmpargument = 3
          AddEndMessage
          tmpargument = 4
          AddEndMessage
          tmpargument = 5
          AddEndMessage
          tmpargument = 6
          AddEndMessage
          tmpargument = 7
          AddEndMessage
          tmpargument = 8
          AddEndMessage
          tmpargument = [BEAT]
          AddIDSZ
          EnableExport
          BeatModule
  
          tmpargument = 2
          SendMessageNear
          tmpargument = 1
          SetState
          tmpargument = 100
          tmpdistance = EXPQUEST
          GiveExperienceToGoodTeam
        Else
          tmpargument = 0
          SendMessageNear
          tmpargument = 1
          SendMessageNear

  tmpargument = 75
  SetTime
  // Here we go

End
