IF
  PartyHasItem("c6lantho")
  Global("LanthornExp","GLOBAL",0)
THEN
  RESPONSE #100
    SetGlobal("LanthornExp","GLOBAL",1)
    AddXPObject(Player1,55000)
    AddXPObject(Player2,55000)
    AddXPObject(Player3,55000)
    AddXPObject(Player4,55000)
    AddXPObject(Player5,55000)
    AddXPObject(Player6,55000)
END

