9
3

QueensColony.lua 2.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556
  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 GetClass(Player)==0 and GetLevel(Player)<3 then
  17. ZoneRef = GetZone("IsleRefuge1")
  18. Zone(ZoneRef,Player)
  19. elseif not HasQuest(Player, WelcomeToNorrath) and not HasCompletedQuest(Player, WelcomeToNorrath)
  20. and not HasQuest(Player, TheArtOfCombat) and not HasCompletedQuest(Player, TheArtOfCombat) then
  21. OfferQuest(nil, Player, WelcomeToNorrath)
  22. end
  23. end
  24. function BladeMasterLocation(zone, Player)
  25. if HasQuest(Player, TheSourceOfEvil) and GetQuestStep(Player, TheSourceOfEvil) == 4 then
  26. local blade = SpawnMob(zone, 2530032, false, 154.12, 1.87, -175.74, 349.984)
  27. if blade ~= nil then
  28. Attack(blade, Player)
  29. end
  30. end
  31. end
  32. function LeaveLocation(zone, Player)
  33. end
  34. function enter_location(zone, Player, GridID)
  35. if GridID == 771354606 then
  36. SendPopUpMessage(Player, "Sunset Meadow", 255, 255, 0)
  37. end
  38. end
  39. function player_entry(zone, Player)
  40. if GetClass(Player)==0 and GetLevel(Player)<3 then
  41. ZoneRef = GetZone("IsleRefuge1")
  42. Zone(ZoneRef,Player)
  43. else
  44. AddPlayerMail(Player, "EQ2EmulatorDevTeam", "Welcome", "Welcome to EQ2Emulator, this project is currently in Pre-Alpha. The best developed content follows the Commoner towards class progression. This is experienced by talking to Captain Varlos starting on the Far Journey or using the Desert of Flames client during character creation.\n\nWe 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)
  45. SendPopUpMessage(Player, "The Queen's Colony", 230, 230, 230)
  46. end
  47. end