QeynosHarbor.lua 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129
  1. --[[
  2. Script Name : QeynosHarbor Zonescript
  3. Script Purpose : Facilitate Qeynos Harbor
  4. Script Author : Dorbin
  5. Script Date : 10/9/2019
  6. Script Notes :
  7. --]]
  8. dofile("SpawnScripts/NorthQeynos/QueenAntoniaBayle.lua")
  9. -- for AQ mail until we devise a better system
  10. local WARRIOR =2
  11. local GUARDIAN= 3
  12. local BERSERKER = 4
  13. local CRUSADER = 8
  14. local SHADOWKNIGHT = 9
  15. local PALADIN = 10
  16. local CLERIC = 12
  17. local TEMPLAR = 13
  18. local INQUISITOR = 14
  19. local SHAMAN = 18
  20. local MYSTIC = 19
  21. local DEFILER = 20
  22. local ROGUE = 32
  23. local SWASHBUCKLER = 33
  24. local BRIGAND = 34
  25. local BARD = 35
  26. local TROUBADOR = 36
  27. local DIRGE = 37
  28. local PREDATOR = 38
  29. local RANGER = 39
  30. local ASSASSIN = 40
  31. function init_zone_script(zone)
  32. end
  33. function player_entry(Zone, Spawn)
  34. SendPopUpMessage(Spawn, "Qeynos Harbor", 230, 230, 230)
  35. if GetFactionAmount(Spawn, 11) >0 and not HasQuest (Spawn,5588) and not HasCompletedQuest(Spawn,5588) and GetLevel(Spawn)>=20 then
  36. if GetClass(Spawn)== WARRIOR or GetClass(Spawn)== GUARDIAN or GetClass(Spawn)== BERSERKER or GetClass(Spawn)== CRUSADER or GetClass(Spawn)== SHADOWKNIGHT or GetClass(Spawn)== PALADIN or GetClass(Spawn)== CLERIC or GetClass(Spawn)== TEMPLAR or GetClass(Spawn)== INQUISITOR or GetClass(Spawn)== SHAMAN or GetClass(Spawn)== MYSTIC or GetClass(Spawn)== DEFILER or GetClass(Spawn)==ROGUE or GetClass(Spawn)==SWASHBUCKLER or GetClass(Spawn)==BRIGAND or GetClass(Spawn)==BARD or GetClass(Spawn)==TROUBADOR or GetClass(Spawn)==DIRGE or GetClass(Spawn)==PREDATOR or GetClass(Spawn)==RANGER or GetClass(Spawn)==ASSASSIN then
  37. AddPlayerMail(Spawn, "Ian Cathlan", "HELP WANTED: Finding Family Heirlooms", "Looking for adventurous folks to find some lost family heirlooms. My family can't seem to hold onto any of their valuables and have left me barely the clothes on my back! Can exchange services provided with various knicknacks or old armor pieces I've got stashed in storage. If interested, please find me in near the Ak'anon Clock Square in Qeynos Harbor. I await assistance! -Ian Cathlan", 0)
  38. end
  39. end
  40. end
  41. function enter_location(zone, spawn, grid)
  42. end
  43. function leave_location(zone, spawn, grid)
  44. end
  45. function dawn(Zone)
  46. local Antonia = GetSpawnByLocationID(Zone,379022)
  47. if Antonia ~=nil then
  48. local choice = MakeRandomInt(1,5) -- Atonia's Speechs - #5 represents a skipped speech
  49. if choice == 1 then
  50. PlayAnimation(Antonia, 10756)
  51. AddTimer(Antonia, 2000, "visage01")
  52. PlayFlavor(Antonia, "voiceover/english/queen_antonia_bayle/qey_north/eco_200_statue_queen_antonia_bayle_propaganda_1_a_c81e36af.mp3", "Good people of Qeynos, we gather today in honor of our city. We citizens have great reason to be proud, for Qeynos has proven its worth through times of struggle and adversity. It has risen from the chaos and darkness of the Age of Cataclysms to become first among all the cities of Norrath. Qeynos- city of valor and defender of the meek. These are not empty words; even those far beyond our borders speak of our accomplishments! Everyone, look around you. The beautiful towers and spires, the gardens, buildings and bustling market places- we live in a paradise without equal. It is hard to believe there was once a time when Qeynos lay in ruins, its streets mired. But our city has returned to life with even greater splendor.", "", 724319904, 1189766476)
  53. AddTimer(Antonia, 55000, "PropB",1)
  54. AddTimer(Antonia, 87000, "PropD",1)
  55. AddTimer(Antonia, 137000,"PropE",1)
  56. AddTimer(Antonia, 177000, "EndLoop",1)
  57. elseif choice == 2 then
  58. PlayAnimation(Antonia, 10756)
  59. AddTimer(Antonia, 2000, "visage01")
  60. PlayFlavor(Antonia, "voiceover/english/queen_antonia_bayle/qey_north/eco_200_statue_queen_antonia_bayle_speech_newdawn_a_c02fffe6.mp3", "Good people of Qeynos, I declare this to be a day of festivities. Welcome everyone to our New Dawn Day celebration! The old year has passed; we stand at the threshold of a new year, full of promise and opportunity. May this be a time to reflect upon our past while looking ahead to a glorious future! One may ask, \"Why do we call the start of the new year 'New Dawn Day'?\" I believe it is because Qeynos is like the sun in early morning. We already shine with an unmatched brilliance, but our full power has yet to come forth into the world. We have only seen a sliver of our city's golden destiny!", "", 3189486571, 2780192347)
  61. AddTimer(Antonia, 47000, "NewDawnB",1)
  62. AddTimer(Antonia, 97000, "NewDawnC",1)
  63. AddTimer(Antonia, 133000, "EndLoop",1)
  64. elseif choice ==3 then
  65. PlayAnimation(Antonia, 10756)
  66. AddTimer(Antonia, 2000, "visage01")
  67. local check = MakeRandomInt(1,2)
  68. if check ==1 then
  69. PlayFlavor(Antonia, "voiceover/english/queen_antonia_bayle/qey_north/eco_200_statue_queen_antonia_bayle_denouncement_freeport_3_a_92172058.mp3", "Fellow Qeynosians, gather around and listen closely. If my voice sounds strained, it is because of the grave and morbid subject of which I speak. I had prayed that such disturbing words need never be spoken in Qeynos. But these are times of great danger, and you must be warned. Our enemy, Lucan D'Lere, the tyrant of Freeport, is no ordinary, mortal foe. He is no mere renegade General who has allowed his personal ambition to usurp his proper loyalties. What I am about to say will horrify you.", "", 3011381199, 3373600464)
  70. AddTimer(Antonia, 39500, "FreeportB",1)
  71. AddTimer(Antonia, 86000, "FreeportC",1)
  72. AddTimer(Antonia, 124000, "EndLoop",1)
  73. elseif check ==2 then
  74. PlayFlavor(Antonia, "voiceover/english/queen_antonia_bayle/qey_north/eco_200_statue_queen_antonia_bayle_denouncement_freeport_2_a_70f7471b.mp3", "Good people of Qeynos, hear me! There is more you must know about our enemy, Freeport. Our trusted Qeynosian agents have observed the enemy closely keeping a vigilant watch they have brought us news so we may arm and fortify ourselves. If we are to stand up for our city and protect her virture from the forces of evil, we must be wise to the ways of evil. We must have knowledge of Freeport's true nature, lest anyone here be lead astray by its propoganda. Listen carefully fellow citizens!", "", 4187125073, 1375449316)
  75. AddTimer(Antonia, 36000, "FreeportB",1)
  76. AddTimer(Antonia, 83000, "FreeportC",1)
  77. AddTimer(Antonia, 117000, "EndLoop",1)
  78. end
  79. elseif choice ==4 then
  80. PlayAnimation(Antonia, 10756)
  81. AddTimer(Antonia, 2000, "visage01")
  82. PlayFlavor(Antonia, "voiceover/english/queen_antonia_bayle/qey_north/eco_200_statue_queen_antonia_bayle_denouncement_freeport_2_a_70f7471b.mp3", "Good people of Qeynos, hear me! There is more you must know about our enemy, Freeport. Our trusted Qeynosian agents have observed the enemy closely keeping a vigilant watch they have brought us news so we may arm and fortify ourselves. If we are to stand up for our city and protect her virture from the forces of evil, we must be wise to the ways of evil. We must have knowledge of Freeport's true nature, lest anyone here be lead astray by its propoganda. Listen carefully fellow citizens!", "", 4187125073, 1375449316)
  83. AddTimer(Antonia, 36000, "PropC",1)
  84. AddTimer(Antonia, 106000,"PropE",1)
  85. AddTimer(Antonia, 144000, "EndLoop",1)
  86. elseif choice ==5 then
  87. RandomGreeting(Antonia)
  88. end
  89. end
  90. end
  91. function dusk(Zone)
  92. local Antonia = GetSpawnByLocationID(Zone,379022)
  93. if Antonia ~=nil then
  94. RandomGreeting(Antonia)
  95. end
  96. end
  97. function ProbA(Antonia)
  98. PlayFlavor(Antonia, "voiceover/english/queen_antonia_bayle/qey_north/eco_200_statue_queen_antonia_bayle_propaganda_1_a_c81e36af.mp3", "Good people of Qeynos, we gather today in honor of our city. We citizens have great reason to be proud, for Qeynos has proven its worth through times of struggle and adversity. It has risen from the chaos and darkness of the Age of Cataclysms to become first among all the cities of Norrath. Qeynos- city of valor and defender of the meek. These are not empty words; even those far beyond our borders speak of our accomplishments! Everyone, look around you. The beautiful towers and spires, the gardens, buildings and bustling market places- we live in a paradise without equal. It is hard to believe there was once a time when Qeynos lay in ruins, its streets mired. But our city has returned to life with even greater splendor.", "converse_female02", 724319904, 1189766476)
  99. end
  100. function NewDawnA(Antonia)
  101. PlayFlavor(Antonia, "voiceover/english/queen_antonia_bayle/qey_north/eco_200_statue_queen_antonia_bayle_speech_newdawn_a_c02fffe6.mp3", "Good people of Qeynos, I declare this to be a day of festivities. Welcome everyone to our New Dawn Day celebration! The old year has passed; we stand at the threshold of a new year, full of promise and opportunity. May this be a time to reflect upon our past while looking ahead to a glorious future! One may ask, \"Why do we call the start of the new year 'New Dawn Day'?\" I believe it is because Qeynos is like the sun in early morning. We already shine with an unmatched brilliance, but our full power has yet to come forth into the world. We have only seen a sliver of our city's golden destiny!", "", 3189486571, 2780192347)
  102. end
  103. function FreeportA(Antonia)
  104. PlayFlavor(Antonia, "voiceover/english/queen_antonia_bayle/qey_north/eco_200_statue_queen_antonia_bayle_denouncement_freeport_3_a_92172058.mp3", "Fellow Qeynosians, gather around and listen closely. If my voice sounds strained, it is because of the grave and morbid subject of which I speak. I had prayed that such disturbing words need never be spoken in Qeynos. But these are times of great danger, and you must be warned. Our enemy, Lucan D'Lere, the tyrant of Freeport, is no ordinary, mortal foe. He is no mere renegade General who has allowed his personal ambition to usurp his proper loyalties. What I am about to say will horrify you.", "", 3011381199, 3373600464)
  105. end
  106. function FreeportA2(Antonia)
  107. PlayFlavor(Antonia, "voiceover/english/queen_antonia_bayle/qey_north/eco_200_statue_queen_antonia_bayle_denouncement_freeport_2_a_70f7471b.mp3", "Good people of Qeynos, hear me! There is more you must know about our enemy, Freeport. Our trusted Qeynosian agents have observed the enemy closely keeping a vigilant watch they have brought us news so we may arm and fortify ourselves. If we are to stand up for our city and protect her virture from the forces of evil, we must be wise to the ways of evil. We must have knowledge of Freeport's true nature, lest anyone here be lead astray by its propoganda. Listen carefully fellow citizens!", "", 4187125073, 1375449316)
  108. end