9
3

QueensColony.lua 1.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748
  1. --[[
  2. Script Name : ZoneScripts/QueensColony.lua
  3. Script Purpose : Location Pop-ups
  4. Script Author : John Adams
  5. Script Date : 2009.05.07
  6. Script Notes :
  7. --]]
  8. local WelcomeToNorrath = 133
  9. local TheArtOfCombat = 132
  10. local TheSourceOfEvil = 164
  11. function init_zone_script(Zone)
  12. SetLocationProximityFunction(Zone, -13.41, -4.94, 220.74, 20, "OfferQuestLocation", "LeaveLocation")
  13. SetLocationProximityFunction(Zone, 152.24, 3.69, -173.34, 15, "BladeMasterLocation", "LeaveLocation")
  14. end
  15. function OfferQuestLocation (Zone, Player)
  16. if not HasQuest(Player, WelcomeToNorrath) and not HasCompletedQuest(Player, WelcomeToNorrath)
  17. and not HasQuest(Player, TheArtOfCombat) and not HasCompletedQuest(Player, TheArtOfCombat) then
  18. OfferQuest(nil, Player, WelcomeToNorrath)
  19. end
  20. end
  21. function BladeMasterLocation(Zone, Player)
  22. if HasQuest(Player, TheSourceOfEvil) and GetQuestStep(Player, TheSourceOfEvil) == 4 then
  23. local blade = SpawnMob(Zone, 2530032, false, 154.12, 1.87, -175.74, 349.984)
  24. if blade ~= nil then
  25. Attack(blade, Player)
  26. end
  27. end
  28. end
  29. function LeaveLocation(Zone, Player)
  30. end
  31. function enter_location(Zone, Player, GridID)
  32. if GridID == 771354606 then
  33. SendPopUpMessage(Player, "Sunset Meadow", 255, 255, 0)
  34. end
  35. end
  36. function player_entry(Zone, Spawn)
  37. AddPlayerMail(Spawn, "EQ2EmulatorDevTeam", "Welcome", "Welcome to EQ2Emulator, this project is currently in Pre-Alpha. We appreciate feedback and bug reports for existing content, and are always looking for additional talent! Thank you for testing and enjoy your stay! -The EQ2EMU Team", 2)
  38. SendPopUpMessage(Spawn, "The Queen's Colony", 230, 230, 230)
  39. end