Lua script frage

    This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.

    • Lua script frage

      Moin Zusammen,

      ich möchte eine custom boss so schreiben dass er an einen zufälligen punkt einen Add spawn und diese besagte Add
      soll direket zum Boss laufen und ihn heilen oder einen Damage buff geben(wecheles von dabei ich nehme weiß ich noch nicht).
      Jetzt ist nur meine frage weiß jemand wie ich das am besten schreiben kann oder mir eine vorlage geben kann?


      Boss Script

    • ich bin gerade nicht an meinem pc aber du machst folgendes:

      Boss -> der boss
      Mob -> dein npc der den spell castet.

      Rand = math.random(5, 8)
      If (Boss:GetHealthPct() == 50 ) then
      Mob = Boss:SpawnCreature(id, Boss:GetX() + Rand , Boss:GetY() + Rand , Boss:GetZ(), Boss:GetO(), Boss:GetFaction(), 10000)

      If (Mob ~= nil)
      x = Boss:GetX() y = Boss:GetY() z = Boss:GetZ() Mob:MoveTo(x, y , z)
      Mob:CastSpellOnTarget(id, Boss)


      So in etwa sollte es aussehen ^^

      The post was edited 1 time, last by aaron02 ().

    • Ich weiß der post ist schon fast 1 Jahr alt aber hier ist mal ein alter World of Warcraft AscEmu World Boss denn ich für einen Fun Server geschrieben habe.

      C Source Code

      1. --[[Made By PassCody]]--
      2. --[[World of Warcraft Vendor Script]]--
      3. local BossID = 700000
      4. local EinSchlaefern = 20669
      5. local InsenktenSchwarm = 58852
      6. local TodUndVerfall = 71001
      7. local MordLust = 51690
      8. local BerserkerPhase = 28498
      9. local phase = 0
      11. function Deathroc_OnEinSchlaefern (pUnit, Event)
      12. pUnit:FullCastSpellOnTarget(EinSchlaefern, pUnit:GetRandomPlayer())
      13. end
      14. function Deathroc_OnInsenktenSchwarm (pUnit, event, player)
      15. pUnit:CastSpell(InsenktenSchwarm)
      16. end
      17. function Deathroc_OnTodUndVerfall (pUnit, event, player)
      18. pUnit:CastSpell(TodUndVerfall)
      19. end
      20. function Deathroc_OnMordLust (pUnit, event, player)
      21. pUnit:FullCastSpellOnTarget(MordLust, pUnit:GetRandomPlayer())
      22. end
      24. function Deathroc_OnSpawnCreature1(pUnit, event, player)
      25. pUnit:SpawnCreature(700001, -9346.664062, 177.327301, 61.558193, 5.709037, 17, 45000)
      26. pUnit:SpawnCreature(700001, -9346.664062, 171.327301, 61.558193, 5.709037, 17, 45000)
      27. pUnit:SpawnCreature(700001, -9346.664062, 171.713745, 61.558193, 5.709037, 17, 45000)
      28. pUnit:SpawnCreature(700001, -9341.453125, 186.093231, 61.557121, 4.207363, 17, 45000)
      29. pUnit:SpawnCreature(700001, -9337.453125, 186.093231, 61.557121, 4.207363, 17, 45000)
      30. pUnit:SpawnCreature(700001, -9326.453125, 186.093231, 61.557121, 4.207363, 17, 45000)
      31. end
      32. function Deathroc_OnSpawnCreature2(pUnit, event, player)
      33. pUnit:SpawnCreature(700002, pUnit:GetX()+math.random(1,6), pUnit:GetY() + math.random(1,6), pUnit:GetZ() + math.random(2,4), pUnit:GetO(), 17, 45000)
      34. pUnit:SpawnCreature(700002, pUnit:GetX()+math.random(1,6), pUnit:GetY() + math.random(1,6), pUnit:GetZ() + math.random(2,4), pUnit:GetO(), 17, 45000)
      35. pUnit:SpawnCreature(700002, pUnit:GetX()+math.random(1,6), pUnit:GetY() + math.random(1,6), pUnit:GetZ() + math.random(2,4), pUnit:GetO(), 17, 45000)
      36. pUnit:SpawnCreature(700002, pUnit:GetX()+math.random(1,6), pUnit:GetY() + math.random(1,6), pUnit:GetZ() + math.random(2,4), pUnit:GetO(), 17, 45000)
      37. pUnit:SpawnCreature(700002, pUnit:GetX()+math.random(1,6), pUnit:GetY() + math.random(1,6), pUnit:GetZ() + math.random(2,4), pUnit:GetO(), 17, 45000)
      38. pUnit:SpawnCreature(700002, pUnit:GetX()+math.random(1,6), pUnit:GetY() + math.random(1,6), pUnit:GetZ() + math.random(2,4), pUnit:GetO(), 17, 45000)
      39. end
      41. function Deathroc_OnCombat(Unit, Event)
      42. Unit:SendChatMessage(12, 0, "Wer wagt es meine Ruhe zu st\195\182ren?")
      43. Unit:RegisterEvent("Deathroc_OnPhase1", 1000, 0)
      44. end
      46. function Deathroc_OnPhase1(Unit, Event)
      47. Unit:RemoveEvents()
      48. Unit:SendChatMessage(14, 0, "Nun gut, dann Spürt meine D\195\164monische Kraft!")
      49. Unit:RegisterEvent("Deathroc_OnEinSchlaefern", 150000, 0)
      50. Unit:RegisterEvent("Deathroc_OnInsenktenSchwarm", 8000, 0)
      51. Unit:RegisterEvent("Deathroc_OnTodUndVerfall", 12000, 0)
      52. Unit:RegisterEvent("Deathroc_OnMordLust", 20000, 0)
      53. phase = 1
      54. Unit:RegisterEvent("Deathroc_OnPhase2", 20000, 0)
      55. end
      57. function Deathroc_OnPhase2(Unit, Event)
      58. if Unit:GetHealthPct() < 75 and phase == 1 then
      59. Unit:RemoveEvents()
      60. Unit:SendChatMessage(12, 0, "Ihr lebt ja immer noch... Nun Gut.")
      61. Unit:SendChatMessage(14, 0, "Kommt herbei meine Guhle!")
      62. Unit:RegisterEvent("Deathroc_OnSpawnCreature1", 45000, 0)
      63. Unit:RegisterEvent("Deathroc_OnEinSchlaefern", 150000, 0)
      64. Unit:RegisterEvent("Deathroc_OnInsenktenSchwarm", 8000, 0)
      65. Unit:RegisterEvent("Deathroc_OnTodUndVerfall", 12000, 0)
      66. Unit:RegisterEvent("Deathroc_OnMordLust", 20000, 0)
      67. phase = 2
      68. Unit:RegisterEvent("Deathroc_OnPhase3", 20000, 0)
      69. end
      70. end
      72. function Deathroc_OnPhase3(Unit, Event)
      73. if Unit:GetHealthPct() < 50 and phase == 2 then
      74. Unit:RemoveEvents()
      75. Unit:SendChatMessage(12, 0, "Ihr seit hartn\195\164ckig... Also Gut.")
      76. Unit:SendChatMessage(14, 0, "Kommt herbei Ihr Verlorene Seelen!")
      77. Unit:RegisterEvent("Deathroc_OnSpawnCreature2", 45000, 0)
      78. Unit:RegisterEvent("Deathroc_OnEinSchlaefern", 15000, 0)
      79. Unit:RegisterEvent("Deathroc_OnInsenktenSchwarm", 8000, 0)
      80. Unit:RegisterEvent("Deathroc_OnTodUndVerfall", 12000, 0)
      81. Unit:RegisterEvent("Deathroc_OnMordLust", 20000, 0)
      82. phase = 3
      83. Unit:RegisterEvent("Deathroc_OnPhase4", 20000, 0)
      84. end
      85. end
      87. function Deathroc_OnPhase4(Unit, Event)
      88. if Unit:GetHealthPct() < 25 and phase == 3 then
      89. Unit:RemoveEvents()
      90. Unit:SendChatMessage(12, 0, "Ihr seit hartn\195\164ckig... Also Gut.")
      91. Unit:SendChatMessage(14, 0, "Kommt herbei all meine Diener!")
      92. Unit:RegisterEvent("Deathroc_OnSpawnCreature1", 45000, 0)
      93. Unit:RegisterEvent("Deathroc_OnSpawnCreature2", 45000, 0)
      94. Unit:RegisterEvent("Deathroc_OnEinSchlaefern", 15000, 0)
      95. Unit:RegisterEvent("Deathroc_OnInsenktenSchwarm", 8000, 0)
      96. Unit:RegisterEvent("Deathroc_OnTodUndVerfall", 12000, 0)
      97. Unit:RegisterEvent("Deathroc_OnMordLust", 20000, 0)
      98. phase = 4
      99. Unit:RegisterEvent("Deathroc_OnPhase5", 20000, 0)
      100. end
      101. end
      103. function Deathroc_OnPhase5(Unit, Event)
      104. if Unit:GetHealthPct() < 5 and phase == 4 then
      105. Unit:RemoveEvents()
      106. Unit:SendChatMessage(12, 0, "IHR...")
      107. Unit:SendChatMessage(12, 0, "MACHT...")
      108. Unit:SendChatMessage(12, 0, "MICH....")
      109. Unit:SendChatMessage(14, 0, "W\195\156TENT!")
      110. Unit:CastSpell(BerserkerPhase)
      111. Unit:SetScale(1.7)
      112. Unit:RegisterEvent("Deathroc_OnBerserkerPhase", 20000, 0)
      113. end
      114. end
      116. function Deathroc_OnBerserkerPhase(Unit, Event)
      117. Unit:RemoveEvents()
      118. Unit:RegisterEvent("Deathroc_OnSpawnCreature1", 45000, 0)
      119. Unit:RegisterEvent("Deathroc_OnSpawnCreature2", 45000, 0)
      120. Unit:RegisterEvent("Deathroc_OnEinSchlaefern", 15000, 0)
      121. Unit:RegisterEvent("Deathroc_OnInsenktenSchwarm", 8000, 0)
      122. Unit:RegisterEvent("Deathroc_OnTodUndVerfall", 12000, 0)
      123. Unit:RegisterEvent("Deathroc_OnMordLust", 20000, 0)
      124. end
      126. function Deathroc_OnLeaveCombat(Unit, Event)
      127. Unit:RemoveEvents()
      128. end
      130. function Deathroc_OnKillTarget(Unit, Event)
      131. Unit:SendChatMessage(14, 0, "Ihr seid nichts weiter als kleine lachhafte W\195\188rmer!")
      132. Unit:RemoveEvents()
      133. end
      135. function Deathroc_OnDeath(Unit, Event)
      136. Unit:SendChatMessage(14, 0, "NEIN! DAS KANN NICHT SEIN!")
      137. end
      139. RegisterUnitEvent(BossID, 1, "Deathroc_OnCombat")
      140. RegisterUnitEvent(BossID, 2, "Deathroc_OnLeaveCombat")
      141. RegisterUnitEvent(BossID, 3, "Deathroc_OnKillTarget")
      142. RegisterUnitEvent(BossID, 4, "Deathroc_OnDeath")
      Display All
      viel Spaß und gutes Gelingen.

      Cordinaten musst man natürlich anpassen ;)

      MFG

      PassCody

      P.S.: Den Tag bitte drin lassen.