Advertisement
Guest User

Untitled

a guest
May 28th, 2017
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.40 KB | None | 0 0
  1. local BOSSID = 178903
  2. local FATHERID = 127093
  3.  
  4.  
  5. function Go_OnSpawn(Unit, event, pMISC)
  6. Go = Unit
  7. end
  8.  
  9. RegisterGameObjectEvent(45879, 2, "Go_OnSpawn")
  10.  
  11. function Sarg_OnSpawn(Unit, event)
  12. Sarg = Unit
  13. end
  14.  
  15. RegisterUnitEvent(36960, 18, "Sarg_OnSpawn")
  16.  
  17. function Reaver_OnSpawn(Unit, event)
  18. Reaver = Unit
  19. end
  20.  
  21. RegisterUnitEvent(36957, 18, "Reaver_OnSpawn")
  22.  
  23. function Saurfang_OnSpawn(Unit, event)
  24. Saurfang = Unit
  25. end
  26.  
  27. RegisterUnitEvent(FATHERID, 18, "Saurfang_OnSpawn")
  28.  
  29. function JR_OnSpawn(Unit, event)
  30. Jr = Unit
  31. end
  32.  
  33. RegisterUnitEvent(BOSSID, 18, "JR_OnSpawn")
  34.  
  35. function Saurfang_OnTalk(Unit, event, player)
  36. Saurfang:GossipCreateMenu(100, player, 0)
  37. Saurfang:GossipMenuAddItem(0,"We are ready to enter the inner citadel!", 1, 0)
  38. Saurfang:GossipSendMenu(player)
  39. end
  40.  
  41. function Saurfang_OnSelect(Unit, event, player, id, intid, code)
  42. if(intid == 1) then
  43. if (Reaver ~=nil and Sarg ~=nil and Go ~=nil) then
  44. Saurfang:PlaySoundToSet(17103)
  45. Saurfang:SendChatMessage(12, 0, "Kor'kron, move out! Champions, watch your backs. The Scourge have been cr...")
  46. Saurfang:SpawnCreature(BOSSID, -471.705, 2211.423, 541.113, 3.1, 35, 0)
  47. Jr:MoveTo(-494.424, 2212.159, 541.113)
  48. Jr:ModifyWalkSpeed(8)
  49. player:GossipComplete()
  50. Saurfang:SetNPCFlags(4)
  51. Go:Activate()
  52. Saurfang:RegisterEvent("Saurfang_Start_Cin", 8000, 1)
  53. elseif(Reaver ~=nil== false and Sarg ~=nil == false and Go ~=nil == false) then
  54. SendWorldMessage("Script Err: ICC_Saurfang is un-responsive please report this to Dragon", 2)
  55. Saurfang:GossipCreateMenu(100, player, 0)
  56. Saurfang:GossipMenuAddItem(0,"Force run script", 100, 0)
  57. Saurfang:GossipSendMenu(player)
  58. end
  59. end
  60.  
  61. if(intid == 100) then
  62. local x = Saurfang:GetX();
  63. local y = saurfang:GetY();
  64. local z = Saurfang:GetZ();
  65. local o = Saurfang:GetO();
  66. Saurfang:SpawnCreature(36957, x-10, y, z, o, 35, 0)
  67. Saurfang:SpawnCreature(36960, x+10, y, z, o, 35, 0)
  68. player:GossipComplete()
  69. Saurfang:SetNPCFlags(4)
  70. Saurfang:RegisterEvent("Saurfang_Run_Force", 4000, 1)
  71. end
  72. end
  73.  
  74. RegisterUnitGossipEvent(FATHERID, 1, "Saurfang_OnTalk")
  75. RegisterUnitGossipEvent(FATHERID, 2, "Saurfang_OnSelect")
  76.  
  77. function Saurfang_Run_Force(Unit, event)
  78. Saurfang:RegisterEvent("Saurfang_Start_Cin", 1000, 1)
  79. end
  80.  
  81. function Saurfang_Start_Cin(Unit, event)
  82. Go:Activate()
  83. Jr:PlaySoundToSet(16704)
  84. Jr:SendChatMessage(14, 0, "Join me father, Join me and we will crush this world in the name of the scourge. for the glory of the lich king!")
  85. Jr:Emote(1, 3000)
  86. Saurfang:RegisterEvent("Saurfang_Talk_To_Son_One", 10000, 1)
  87. end
  88.  
  89. function Saurfang_Talk_To_Son_One(Unit, event)
  90. Saurfang:SendChatMessage(12, 0, "My boy died at the wrath gate. I am here only to collect his body!")
  91. Saurfang:PlaySoundToSet(17097)
  92. Saurfang:Emote(1, 8000)
  93. Saurfang:RegisterEvent("Saurfang_Talk_To_Son_Two", 10000, 1)
  94. end
  95.  
  96. function Saurfang_Talk_To_Son_Two(Unit, event)
  97. Jr:SendChatMessage(14, 0, "Stubern and old. What chance do you have? I am stronger and more powerful than you ever were!")
  98. Jr:PlaySoundToSet(16705)
  99. Jr:Emote(1, 10000)
  100. Saurfang:RegisterEvent("Saurfang_Talk_To_Son_Three", 10000, 1)
  101. end
  102.  
  103. function Saurfang_Talk_To_Son_Three(Unit, event)
  104. Saurfang:SendChatMessage(12, 0, "We named him Dranosh. It means Heart of Draenor in orcish. I would not let the warlocks take him. My boy would be safe, hidden away by the elders of Garadar.")
  105. Saurfang:PlaySoundToSet(17098)
  106. Saurfang:Emote(1, 12000)
  107. Saurfang:RegisterEvent("Saurfang_Talk_To_Son_Four", 15000, 1)
  108. end
  109.  
  110. function Saurfang_Talk_To_Son_Four(Unit, event)
  111. Saurfang:SendChatMessage(12, 0, "I made a promise to his mother before she died, that I would cross the Dark Portal alone whether I lived or died, my son would be safe. Untainted.")
  112. Saurfang:Emote(1, 12000)
  113. Saurfang:PlaySoundToSet(17099)
  114. Saurfang:RegisterEvent("Saurfang_Talk_To_Son_Five", 15000, 1)
  115. end
  116.  
  117. function Saurfang_Talk_To_Son_Five(Unit, event)
  118. Saurfang:SendChatMessage(12, 0, "Today, I fulfill that promise!")
  119. Saurfang:PlaySoundToSet(17100)
  120. Saurfang:Emote(29, 0)
  121. Saurfang:RegisterEvent("Saurfang_Charge", 3000, 1)
  122. end
  123.  
  124. function Saurfang_Charge(Unit, event)
  125. Saurfang:ModifyWalkSpeed(8)
  126. Saurfang:MoveTo(-505, 2211.7, 539.2, 6.2)
  127. Reaver:MoveTo(-517.347,2202.218, 539.289)
  128. Reaver:ModifyWalkSpeed(8)
  129. Sarg:MoveTo(-516.532, 2222.955, 539.289)
  130. Sarg:ModifyWalkSpeed(8)
  131. Saurfang:RegisterEvent("Saurfang_Fly_Up_To_His_Doom_Pre", 3000, 1)
  132. end
  133.  
  134. function Saurfang_Fly_Up_To_His_Doom_Pre(Unit, event)
  135. Saurfang:MoveTo(-504.149, 2210.314, 556.569)
  136. Saurfang:PlaySoundToSet(17104)
  137. Sarg:MoveTo(-505.429, 2219.8188, 555.422)
  138. Sarg:ModifyWalkSpeed(8)
  139. Reaver:MoveTo(-502.786, 2202.295, 553.395)
  140. Saurfang:RegisterEvent("Saurfang_Move_Up", 3000, 1)
  141. end
  142.  
  143. function Saurfang_Move_Up(Unit, event)
  144. Saurfang:CastSpell(43489)
  145. Sarg:CastSpell(43489)
  146. Reaver:CastSpell(43489)
  147. Jr:SendChatMessage(14, 0, "Pathetic old orc. Come then heroes. Come and face the might of the Scourge!")
  148. Jr:PlaySoundToSet(16706)
  149. Saurfang:RegisterEvent("Saurfang_Fight_Start", 1200, 1)
  150. end
  151.  
  152. function Saurfang_Fight_Start(Unit, event)
  153. Jr:SetFaction(14)
  154. Saurfang:CastSpell(43489)
  155. end
  156.  
  157. function Jr_OnDeath(Unit, event)
  158. Jr:RemoveEvents()
  159. Jr:SendChatMessage(14, 0, "I... am... released")
  160. Jr:PlaySoundToSet(16697)
  161. Jr:SpawnGameObject(202239, -497.325, 2175.1, 539.2, 300, 360000)
  162. Saurfang:MoveTo(-544, 2211, 539.2, 0)
  163. Saurfang:PlaySoundToSet(17105)
  164. Reaver:Despawn(1000, 0)
  165. Sarg:Despawn(1000, 0)
  166. Saurfang:RemoveAura(43489)
  167. Go:Activate()
  168. Go:Despawn(1000, 0)
  169. Saurfang:RegisterEvent("Saurfang_Move_To_Son", 6000, 1)
  170. end
  171.  
  172. RegisterUnitEvent(BOSSID, 4, "Jr_OnDeath")
  173.  
  174. function Saurfang_Move_To_Son(Unit, event)
  175. Saurfang:MoveTo(Jr:GetX(), Jr:GetY(), Jr:GetZ())
  176. Saurfang:ModifyWalkSpeed(4)
  177. Saurfang:RegisterEvent("Saurfang_Talk_End_Pre", 10000, 1)
  178. end
  179.  
  180. function Saurfang_Talk_End_Pre(Unit, event)
  181. Saurfang:SendChatMessage(12, 0, "You will have a proper ceremony in Nagrand next to the pyres of your mother and ancestors")
  182. Saurfang:PlaySoundToSet(17101)
  183. Saurfang:Emote(18, 4000)
  184. Jr:Despawn(3000, 0)
  185. Saurfang:MoveTo(-549.393, 2211.132, 539.290)
  186. Saurfang:RegisterEvent("Saurfang_Talk_End_Faceing", 16000, 1)
  187. end
  188.  
  189. function Saurfang_Talk_End_Faceing(Unit, event)
  190. Saurfang:SetFacing(6.2)
  191. Saurfang:RegisterEvent("Saurfang_Talk_End_Final", 2000, 1)
  192. end
  193.  
  194. function Saurfang_Talk_End_Final(Unit, event)
  195. Saurfang:SendChatMessage(12, 0, "Honor yount heros... No matter how dire the battle... Never forsake it!")
  196. Saurfang:PlaySoundToSet(17102)
  197. Saurfang:Emote(1, 3000)
  198. Saurfang:Despawn(5000, 0)
  199. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement