[Release] A Few LUA Ingame Tools menu

User Tag List

Results 1 to 1 of 1
  1. #1
    project anthrax's Avatar Contributor
    Reputation
    180
    Join Date
    Nov 2007
    Posts
    993
    Thanks G/R
    0/0
    Trade Feedback
    0 (0%)
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    [Release] A Few LUA Ingame Tools

    Included are a Few Scripts which may be useful in your funserver.
    You may have seen them before on Theo's Insanity Repack.


    SKILL NPC-

    Code:
    --------------------------------------------------
    -------- x Elite x's Skill   LUA Trainer ---------
    --               Made By xElitex                --
    --             AkA GroundZ                      --
    --   Modifying is allowed as long as original   --
    --    credits are not removed from this lua.    --
    --------------------------------------------------
    --------------------------------------------------
    
    function matrix_main_menu(pUnit, player)
        pUnit:GossipCreateMenu(3544, player, 0)
       pUnit:GossipMenuAddItem(6, "Weapon Skills", 21, 0)
       pUnit:GossipSendMenu(player)
       end
    
    function matrix_on_gossip_talk(pUnit, event, player)
    matrix_main_menu(pUnit, player)
    end
    
     function matrix_on_gossip_select(pUnit, event, player, id, intid, code, pMisc)
     if(intid == 1) then 
     player:Teleport(0,-13271.959961,149.105515,34.464458)
     pUnit:GossipComplete(player)
     end
    
    if(intid == 21) then
    pUnit:GossipCreateMenu(3543, player, 0) 
    pUnit:GossipMenuAddItem(0, "Weapon Skills", 25, 0)
    pUnit:GossipSendMenu(player)
    end
     
    if(intid == 76) then
    pUnit:GossipCreateMenu(3543, player, 0)
    pUnit:GossipMenuAddItem(1, "Bows", 84, 0)
    pUnit:GossipMenuAddItem(1, "Crossbows", 85, 0)
    pUnit:GossipMenuAddItem(1, "Guns", 86, 0)
    pUnit:GossipMenuAddItem(1, "Thrown", 87, 0)
    pUnit:GossipMenuAddItem(1, "Wands", 88, 0)
    pUnit:GossipMenuAddItem(2, "Return", 100, 0)
    pUnit:GossipSendMenu(player)
    end
    
    if(intid == 77) then
    pUnit:GossipCreateMenu(3543, player, 0)
    pUnit:GossipMenuAddItem(1, "One-Handed Axes", 89, 0)
    pUnit:GossipMenuAddItem(1, "One-Handed Maces", 90, 0)
    pUnit:GossipMenuAddItem(1, "One-Handed Swords", 91, 0)
    pUnit:GossipMenuAddItem(1, "Daggers", 92, 0)
    pUnit:GossipMenuAddItem(1, "Fist Weapons", 93, 0)
    pUnit:GossipMenuAddItem(2, "Return", 100, 0)
    pUnit:GossipSendMenu(player)
    end
    
    if(intid == 78) then
    pUnit:GossipCreateMenu(3543, player, 0)
    pUnit:GossipMenuAddItem(1, "Two-Handed Axes", 94, 0)
    pUnit:GossipMenuAddItem(1, "Two-Handed Maces", 95, 0)
    pUnit:GossipMenuAddItem(1, "Two-Handed Swords", 96, 0)
    pUnit:GossipMenuAddItem(1, "Staves", 97, 0)
    pUnit:GossipMenuAddItem(1, "Polearms", 98, 0)
    pUnit:GossipMenuAddItem(2, "Return", 100, 0)
    pUnit:GossipSendMenu(player)
    end
    
    if(intid == 100) then
    pUnit:GossipCreateMenu(3544, player, 0)
       pUnit:GossipMenuAddItem(6, "Weapon Skills", 21, 0)
       pUnit:GossipSendMenu(player)
       endossipSendMenu(player)
       end
    
    if(intid == 25) then
    pUnit:GossipCreateMenu(3543, player, 0)
    pUnit:GossipMenuAddItem(0, "Ranged Weapons", 76, 0)
    pUnit:GossipMenuAddItem(0, "One-Handed Weapons", 77, 0)
    pUnit:GossipMenuAddItem(0, "Two-Handed Weapons", 78, 0)
    pUnit:GossipMenuAddItem(2, "Return", 100, 0)
    pUnit:GossipSendMenu(player)
    end
    
    
    if(intid == 84) then
     player:LearnSpell(264)
     end
    
    if(intid == 85) then
     player:LearnSpell(5011)
     end
    
    if(intid == 86) then
     player:LearnSpell(266)
     end
    
    if(intid == 87) then
     player:LearnSpell(2764)
     end
    
    if(intid == 88) then
     player:LearnSpell(5009)
     end
    
    if(intid == 89) then
     player:LearnSpell(196)
     end
    
    if(intid == 90) then
     player:LearnSpell(198)
     end
    
    if(intid == 91) then
     player:LearnSpell(201)
     end
    
    if(intid == 92) then
     player:LearnSpell(1180)
     end
    
    if(intid == 93) then
     player:LearnSpell(15590)
     end
    
    if(intid == 94) then
     player:LearnSpell(197)
     end
    
    if(intid == 95) then
     player:LearnSpell(199)
     end
    
    if(intid == 96) then
     player:LearnSpell(202)
     end
    
    if(intid == 97) then
     player:LearnSpell(227)
     end
    
    if(intid == 98) then
     player:LearnSpell(200)
     end
    
    end
    
    RegisterUnitGossipEvent(SPAWNID, 1, "matrix_on_gossip_talk") 
    RegisterUnitGossipEvent(SPAWNID, 2, "matrix_on_gossip_select")

    Teleporter NPC-
    Code:
    --------------------------------------------------
    -------- x Elite x's Skill   LUA PORTER  ---------
    --    Made By xElitex For Use By MMowned.com    --
    --                                              --
    --   Modifying is allowed as long as original   --
    --    credits are not removed from this lua.    --
    --------------------------------------------------
    --------------------------------------------------
    
    function On_Gossip(unit, event, player)
    unit:GossipCreateMenu(50, player, 0)
    unit:GossipMenuAddItem(0, "Horde Cities", 1, 0)
    unit:GossipMenuAddItem(0, "Alliance Cities", 2, 0)
    unit:GossipMenuAddItem(0, "Azeroth Locations", 3, 0)
    unit:GossipMenuAddItem(0, "Azeroth Instances", 5, 0)
    unit:GossipMenuAddItem(0, "Outland Locations", 6, 0)
    unit:GossipMenuAddItem(0, "Outland Instances", 7, 0)
    unit:GossipMenuAddItem(0, "Northrend Locations", 648, 0)
    unit:GossipMenuAddItem(1, "Dalaran (Mall)", 649, 0)
    unit:GossipMenuAddItem(1, "Shattrath", 8, 0)
    unit:GossipMenuAddItem(1, "Isle of Quel' Danas", 46, 0)
    unit:GossipMenuAddItem(1, "Gurubashi Arena", 45, 0)
    unit:GossipMenuAddItem(0, "Buff!", 99, 0)
    unit:GossipMenuAddItem(0, "Remove Ressurection Sickness", 900, 0)
    unit:GossipSendMenu(player)
    end
    
    function Gossip_Submenus(unit, event, player, id, intid, code)
    
    if(intid == 50) then
    unit:GossipCreateMenu(50, player, 0)
    unit:GossipMenuAddItem(0, "Horde Cities", 1, 0)
    unit:GossipMenuAddItem(0, "Alliance Cities", 2, 0)
    unit:GossipMenuAddItem(0, "Azeroth Locations", 3, 0)
    unit:GossipMenuAddItem(0, "Azeroth Instances", 5, 0)
    unit:GossipMenuAddItem(0, "Outland Locations", 6, 0)
    unit:GossipMenuAddItem(0, "Outland Instances", 7, 0)
    unit:GossipMenuAddItem(0, "Northrend Locations", 648, 0)
    unit:GossipMenuAddItem(1, "Shattrath", 8, 0)
    unit:GossipMenuAddItem(1, "Isle of Quel' Danas", 46, 0)
    unit:GossipMenuAddItem(1, "Gurubashi Arena", 45, 0)
    unit:GossipMenuAddItem(0, "Buff!", 99, 0)
    unit:GossipMenuAddItem(0, "Remove Ressurection Sickness", 900, 0)
    unit:GossipSendMenu(player)
    end
    
    
    if(intid == 1) then
    unit:GossipCreateMenu(51, player, 0)
    unit:GossipMenuAddItem(1, "Orgrimmar", 10, 0)
    unit:GossipMenuAddItem(1, "Undercity", 11, 0)
    unit:GossipMenuAddItem(1, "Thunder Bluff", 12, 0)
    unit:GossipMenuAddItem(1, "Silvermoon", 13, 0)
    unit:GossipMenuAddItem(0, "[Back]", 50, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 2) then
    unit:GossipCreateMenu(52, player, 0)
    unit:GossipMenuAddItem(1, "Stormwind", 14, 0)
    unit:GossipMenuAddItem(1, "Ironforge", 15, 0)
    unit:GossipMenuAddItem(1, "Darnassus", 16, 0)
    unit:GossipMenuAddItem(1, "Exodar", 17, 0)
    unit:GossipMenuAddItem(0, "[Back]", 50, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 3) then
    unit:GossipCreateMenu(53, player, 0)
    unit:GossipMenuAddItem(0, "Eastern Kingdoms", 40, 0)
    unit:GossipMenuAddItem(0, "Kalidamor", 41, 0)
    unit:GossipMenuAddItem(0, "[Back]", 50, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 648) then
    unit:GossipCreateMenu(70, player, 0)
    unit:GossipMenuAddItem(1, "Dragonblight", 650, 0)
    unit:GossipMenuAddItem(1, "Howling Fjord", 651, 0)
    unit:GossipMenuAddItem(1, "Grizzly Hills", 652, 0)
    unit:GossipMenuAddItem(1, "Icecrown", 653, 0)
    unit:GossipMenuAddItem(1, "Strom Peaks", 654, 0)
    unit:GossipMenuAddItem(1, "Zul'Drak", 655, 0)
    unit:GossipMenuAddItem(1, "Sholazar Basin", 656, 0)
    unit:GossipMenuAddItem(1, "Borean Tundra", 657, 0)
    unit:GossipMenuAddItem(1, "Wintergrasp", 658, 0)
    unit:GossipMenuAddItem(1, "Crystalsong", 659, 0)
    unit:GossipMenuAddItem(0, "[Back]", 3, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 40) then
    unit:GossipCreateMenu(54, player, 0)
    unit:GossipMenuAddItem(1, "Alterac Mountains", 208, 0)
    unit:GossipMenuAddItem(1, "Badlands", 214, 0)
    unit:GossipMenuAddItem(1, "Blasted Lands", 222, 0)
    unit:GossipMenuAddItem(1, "Burning Steppes", 216, 0)
    unit:GossipMenuAddItem(1, "Deadwind Pass", 221, 0)
    unit:GossipMenuAddItem(1, "Dun Morogh", 212, 0)
    unit:GossipMenuAddItem(1, "Duskwood", 220, 0)
    unit:GossipMenuAddItem(1, "Eastern Plaguelands", 206, 0)
    unit:GossipMenuAddItem(1, "Elwynn Forest", 217, 0)
    unit:GossipMenuAddItem(1, "Eversong Woods", 201, 0)
    unit:GossipMenuAddItem(1, "Ghostlands", 202, 0)
    unit:GossipMenuAddItem(1, "Hillsbrad Foothills", 210, 0)
    unit:GossipMenuAddItem(0, "--->Next Page--->", 42, 0)
    unit:GossipMenuAddItem(0, "[Back]", 3, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 41) then
    unit:GossipCreateMenu(55, player, 0)
    unit:GossipMenuAddItem(1, "Azshara", 109, 0)
    unit:GossipMenuAddItem(1, "Azuremyst Isle", 103, 0)
    unit:GossipMenuAddItem(1, "Bloodmyst Isle", 102, 0)
    unit:GossipMenuAddItem(1, "Darkshore", 105, 0)
    unit:GossipMenuAddItem(1, "Desolace", 113, 0)
    unit:GossipMenuAddItem(1, "Durotar", 111, 0)
    unit:GossipMenuAddItem(1, "Dustwallow Marsh", 117, 0)
    unit:GossipMenuAddItem(1, "Felwood", 107, 0)
    unit:GossipMenuAddItem(1, "Feralas", 116, 0)
    unit:GossipMenuAddItem(1, "Moonglade", 106, 0)
    unit:GossipMenuAddItem(1, "Mulgore", 115, 0)
    unit:GossipMenuAddItem(1, "Silithus", 120, 0)
    unit:GossipMenuAddItem(0, "--->Next Page--->", 43, 0)
    unit:GossipMenuAddItem(0, "[Back]", 3, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 42) then
    unit:GossipCreateMenu(55, player, 0)
    unit:GossipMenuAddItem(1, "Loch Modan", 213, 0)
    unit:GossipMenuAddItem(1, "Redridge Mountains", 218, 0)
    unit:GossipMenuAddItem(1, "Searing Gorge", 215, 0)
    unit:GossipMenuAddItem(1, "Silverpine Forest", 207, 0)
    unit:GossipMenuAddItem(1, "Strangethorn Vale", 223, 0)
    unit:GossipMenuAddItem(1, "Swamp Of Sorrows", 219, 0)
    unit:GossipMenuAddItem(1, "The Hinterlands", 209, 0)
    unit:GossipMenuAddItem(1, "Trisfal Glades", 205, 0)
    unit:GossipMenuAddItem(1, "Western Plaguelands", 203, 0)
    unit:GossipMenuAddItem(1, "Wetlands", 211, 0)
    unit:GossipMenuAddItem(0, "[Back]", 3, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 43) then
    unit:GossipCreateMenu(55, player, 0)
    unit:GossipMenuAddItem(1, "Stonetalon Mountains", 112, 0)
    unit:GossipMenuAddItem(1, "Tanaris", 121, 0)
    unit:GossipMenuAddItem(1, "Teldrassil", 100, 0)
    unit:GossipMenuAddItem(1, "The Barrens", 114, 0)
    unit:GossipMenuAddItem(1, "Thousand Needles", 118, 0)
    unit:GossipMenuAddItem(1, "Un'Goro Crater", 119, 0)
    unit:GossipMenuAddItem(1, "Winterspring", 108, 0)
    unit:GossipMenuAddItem(0, "[Back]", 3, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 5) then
    unit:GossipCreateMenu(56, player, 0)
    unit:GossipMenuAddItem(1, "Shadowfang Keep", 19, 0)
    unit:GossipMenuAddItem(1, "Zul'Gurub", 20, 0)
    unit:GossipMenuAddItem(1, "Scarlet Monastery", 21, 0)
    unit:GossipMenuAddItem(1, "Stratholme", 22, 0)
    unit:GossipMenuAddItem(1, "Scholomance", 23, 0)
    unit:GossipMenuAddItem(1, "Blackrock", 24, 0)
    unit:GossipMenuAddItem(1, "Onyxia's Lair", 25, 0)
    unit:GossipMenuAddItem(1, "Molten Core", 26, 0)
    unit:GossipMenuAddItem(1, "Karazhan", 27, 0)
    unit:GossipMenuAddItem(1, "Naxxramas", 28, 0)
    unit:GossipMenuAddItem(1, "Caverns Of Time", 29, 0)
    unit:GossipMenuAddItem(0, "[Back]", 50, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 6) then
    unit:GossipCreateMenu(57, player, 0)
    unit:GossipMenuAddItem(1, "Hellfire", 31, 0)
    unit:GossipMenuAddItem(1, "Zangremarsh", 30, 0)
    unit:GossipMenuAddItem(1, "Nagrand", 32, 0)
    unit:GossipMenuAddItem(1, "Blades Edge", 33, 0)
    unit:GossipMenuAddItem(1, "Netherstorm", 34, 0)
    unit:GossipMenuAddItem(1, "Terokkar Forest", 36, 0)
    unit:GossipMenuAddItem(1, "Shadowmoon Valley", 37, 0)
    unit:GossipMenuAddItem(1, "Shattrath", 38, 0)
    unit:GossipMenuAddItem(0, "[Back]", 50, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 7) then
    unit:GossipCreateMenu(58, player, 0)
    unit:GossipMenuAddItem(0, "Outland Raids", 47, 0)
    unit:GossipMenuAddItem(1, "Hellfire Ramparts", 430, 0)
    unit:GossipMenuAddItem(1, "The BloodFurnace", 431, 0)
    unit:GossipMenuAddItem(1, "Shattered Halls", 441, 0)
    unit:GossipMenuAddItem(1, "Mana-Tombs", 434, 0)
    unit:GossipMenuAddItem(1, "Sethekk Halls", 438, 0)
    unit:GossipMenuAddItem(1, "Auchenai Crypts", 435, 0)
    unit:GossipMenuAddItem(1, "Shadow Labyrinth", 440, 0)
    unit:GossipMenuAddItem(1, "Caverns of Time", 436, 0)
    unit:GossipMenuAddItem(1, "Magisters Terrace", 445, 0)
    unit:GossipMenuAddItem(0, "--->Second Page--->", 48, 0)
    unit:GossipMenuAddItem(0, "[Back]", 50, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 47) then
    unit:GossipCreateMenu(59, player, 0)
    unit:GossipMenuAddItem(1, "Gruul's Lair", 446, 0)
    unit:GossipMenuAddItem(1, "Magtheridon's Lair", 447, 0)
    unit:GossipMenuAddItem(1, "Zul'Aman", 448, 0)
    unit:GossipMenuAddItem(1, "Serpentshrine Cavern", 449, 0)
    unit:GossipMenuAddItem(1, "The Eye", 450, 0)
    unit:GossipMenuAddItem(1, "Black Temple", 451, 0)
    unit:GossipMenuAddItem(1, "Sunwell Plateau", 452, 0)
    unit:GossipMenuAddItem(0, "[Back]", 7, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 48) then
    unit:GossipCreateMenu(60, player, 0)
    unit:GossipMenuAddItem(1, "The Mechanar", 442, 0)
    unit:GossipMenuAddItem(1, "The Botanica", 443, 0)
    unit:GossipMenuAddItem(1, "The Arcatraz", 444, 0)
    unit:GossipMenuAddItem(1, "The Steamvault", 439, 0)
    unit:GossipMenuAddItem(1, "Slave Pens", 432, 0)
    unit:GossipMenuAddItem(1, "The Underbog", 433, 0)
    unit:GossipMenuAddItem(0, "[Back]", 7, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 8) then
    unit:GossipCreateMenu(50, player, 0)
    unit:GossipMenuAddItem(1, "The Great Arena", 38, 0)
    unit:GossipSendMenu(player)
    end
    
    if(intid == 99) then
    unit:FullCastSpellOnTarget(33081, player)
    unit:FullCastSpellOnTarget(33082, player)
    unit:FullCastSpellOnTarget(33080, player)
    unit:FullCastSpellOnTarget(33079, player)
    unit:FullCastSpellOnTarget(33078, player)
    unit:FullCastSpellOnTarget(33077, player)
    end
    
    if(intid == 900) then
    player:LearnSpell(15007)
    player:UnlearnSpell(15007)
    end
    
    if(intid == 10) then
    player:Teleport(1, 1484, -4417, 25)
    end
    
    if(intid == 11) then
    player:Teleport(0, 1831, 238, 60)
    end
    
    if(intid == 12) then
    player:Teleport(1, -1277, 118, 131)
    end
    
    if(intid == 13) then
    player:Teleport(530, 9413, -7277, 14)
    end
    
    if(intid == 14) then
    player:Teleport(0, -8913.23, 554.633, 94.7944)
    end
    
    
    if(intid == 15) then
    player:Teleport(0, -4921.25, -881.542, 502.66)
    end
    
    if(intid == 16) then
    player:Teleport(1, 9948, 2413, 1327)
    end
    
    if(intid == 17) then
    player:Teleport(530, -4010.9, -11891.2, -1)
    end
    
    if(intid == 19) then
    player:Teleport(0, -234.495087, 1561.946411, 76.892143)
    end
    
    if(intid == 20) then
    player:Teleport(0, -11919.073242, -1202.459374, 92.298744)
    end
    
    if(intid == 21) then
    player:Teleport(0, 2870.442627, -819.985229, 160.331085)
    end
    
    if(intid == 22) then
    player:Teleport(0, 3359.111572, -3380.8444238, 144.781860)
    end
    
    if(intid == 23) then
    player:Teleport(0, 1267.468628, -2556.651367, 94.127983)
    end
    
    if(intid == 24) then
    player:Teleport(0, -7527.129883, -1224.997437, 285.733002)
    end
    
    if(intid == 25) then
    player:Teleport(1, -4708.491699, -3727.672363, 54.535076)
    end
    
    if(intid == 26) then
    player:Teleport(0, -7515.409668, -1045.369629, 182.301208)
    end
    
    if(intid == 27) then
    player:Teleport(0, -11122.913086, -2014.498779, 47.079350)
    end
    
    if(intid == 28) then
    player:Teleport(0, 3132.915283, -3731.012939, 138.658371)
    end
    
    if(intid == 29) then
    player:Teleport(1, -8519.718750, -4297.542480, -208.441376)
    end
    
    if(intid == 30) then
    player:Teleport(530, 57.4, 6837.6, 22.9)
    end
    
    if(intid == 31) then
    player:Teleport(530, -248, 922, 84)
    end
    
    if (intid == 32) then
    player:Teleport(530, -468, 8418, 28)
    end
    
    if(intid == 33) then
    player:Teleport(530, 1546, 6829.7, 127.5)
    end
    
    if(intid == 34) then
    player:Teleport(530, 3396, 4185, 137)
    end
    
    if(intid == 35) then
    player:Teleport(530, -2276.82, 5132.03, -8.62994)
    end
    
    if(intid == 36) then
    player:Teleport(530, -1202, 5316, 33)
    end
    
    if(intid == 37) then
    player:Teleport(530, -2859, 3182, 10)
    end
    
    if(intid == 38) then
    player:Teleport(530, -1887, 5359, -12)
    end
    
    if(intid == 100) then
    player:Teleport(1, 10708.8, 762.092, 1322.37)
    end
    
    if(intid == 102) then
    player:Teleport(530, -2721.68, -12208.9, 10.0882)
    end
    
    if(intid == 45) then
    player:Teleport(0, -13243.240234, 197.949799, 32.112690)
    end
    
    if(intid == 103) then
    player:Teleport(530, -4020.48, -13783.3, 74.9001)
    end
    
    if(intid == 105) then
    player:Teleport(1, 6207.5, -152.833, 80.8185)
    end
    
    if(intid == 106) then
    player:Teleport(1, 7180, -2701, 569)
    end
    
    if(intid == 107) then
    player:Teleport(1, 5483.9, -749.881, 335.621)
    end
    
    if(intid == 108) then
    player:Teleport(1, 6107.62, -4181.6, 853.322)
    end
    
    if(intid == 109) then
    player:Teleport(1, 2717, -5968, 106)
    end
    
    if(intid == 111) then
    player:Teleport(1, 341.42, -4684.7, 31.9493)
    end
    
    if(intid == 112) then
    player:Teleport(1, 1145.85, 664.812, 143)
    end
    
    if(intid == 113) then
    player:Teleport(1, -93.1614, 1691.15, 90.0649)
    end
    
    if(intid == 114) then
    player:Teleport(1, -90.19003, -1943.44, 95)
    end
    
    if(intid == 115) then
    player:Teleport(1, -1840.75, -456.5, -7.845)
    end
    
    if(intid == 116) then
    player:Teleport(1, -4588.1, 563.2, 60)
    end
    
    if(intid == 117) then
    player:Teleport(1, -3463.26, -4123.13, 18.1043)
    end
    
    if(intid == 118) then
    player:Teleport(1, -4979, -1569.05, -46)
    end
    
    if(intid == 119) then
    player:Teleport(1, -7932.61, -2139.61, -229.728)
    end
    
    if(intid == 120) then
    player:Teleport(1, -6294, -369, 1)
    end
    
    if(intid == 121) then
    player:Teleport(1, -7135.743652, -3785.862305, -28.292633)
    end
    
    if(intid == 201) then
    player:Teleport(530, 9449.15, -6782.61, 16.6167)
    end
    
    if(intid == 202) then
    player:Teleport(530, 7880, -6193, 22)
    end
    
    if(intid == 203) then
    player:Teleport(0, 1224.36, -1151.97, 61.7327)
    end
    
    if(intid == 205) then
    player:Teleport(0, 2019.35, 1904.36, 106.144)
    end
    
    if(intid == 206) then
    player:Teleport(0, 1919.44, -4306.23, 77.838)
    end
    
    if(intid == 207) then
    player:Teleport(0, 511.536, 1638.63, 121.417)
    end
    
    if(intid == 208) then
    player:Teleport(0, 272.704, -654.514, 129.609)
    end
    
    if(intid == 209) then
    player:Teleport(0, 139.375, -1982.79, 134.043)
    end
    
    if(intid == 210) then
    player:Teleport(0, -852.854, -576.712, 21.0293)
    end
    
    if(intid == 211) then
    player:Teleport(0, -4086.36, -2610.95, 47.0143)
    end
    
    if(intid == 212) then
    player:Teleport(0, -5658.719238, -472.513367, 396.562592)
    end
    
    if(intid == 213) then
    player:Teleport(0, -4939.1, -3423.74, 306.595)
    end
    
    if(intid == 214) then
    player:Teleport(0, -6006.4, -3305.5, 264.1)
    end
    
    if(intid == 215) then
    player:Teleport(0, -7514.817383, -1045.147949, 182.300507)
    end
    
    if(intid == 216) then
    player:Teleport(0, -7907.41, -1128.66, 192.056)
    end
    
    if(intid == 217) then
    player:Teleport(0, -9465.58, 16.8472, 66.921)
    end
    
    if(intid == 218) then
    player:Teleport(0, -9219.37, -2149.94, 71.606)
    end
    
    if(intid == 219) then
    player:Teleport(0, -10264.6, -3059.9, 19.9356)
    end 
    
    if(intid == 220) then
    player:Teleport(0, -10517, -1158.39, 40.0542)
    end
    
    if(intid == 221) then
    player:Teleport(0, -10435.4, -1809.28, 101)
    end
    
    if(intid == 222) then
    player:Teleport(0, -11204.5, -2730.61, 15.8972)
    end
    
    if(intid == 223) then
    player:Teleport(0, -11634.8, -54.0697, 14.4439)
    end
    
    if(intid == 430) then
    player:Teleport(530, -360.671, 3071.9, -15.0977)
    end
    
    if(intid == 431) then
    player:Teleport(542, -3.9967, 14.6363, -44.8009)
    end
    
    if(intid == 432) then
    player:Teleport(530, 721.926, 7012.24, -73.065)
    end
    
    if(intid == 433) then
    player:Teleport(530, 779.802, 6769.33, -71.4282)
    end
    
    if(intid == 434) then
    player:Teleport(530, -3101.47, 4947.11, -101.177)
    end
    
    if(intid == 435) then
    player:Teleport(530, -3357.32, 5216.77, -101.049)
    end
    
    if(intid == 436) then
    player:Teleport(1, -8195.94, -4500.13, 9.60819)
    end
    
    if(intid == 438) then
    player:Teleport(530, -3360.13, 4667.85, -101.047)
    end
    
    if(intid == 439) then
    player:Teleport(530, 817.9, 6944.6, -80)
    end
    
    if(intid == 440) then
    player:Teleport(530, -3635.76, 4931.82, -100.034)
    end
    
    if(intid == 441) then
    player:Teleport(530, -309.83, 3080.08, -3.63538)
    end
    
    if(intid == 442) then
    player:Teleport(530, 2885.2, 1564.73, 248.874)
    end
    
    if(intid == 443) then
    player:Teleport(530, 3405.48, 1489.14, 183.838)
    end
    
    if(intid == 444) then
    player:Teleport(530, 2872, 1555.29, 253.159)
    end
    
    if(intid == 445) then
    player:Teleport(530, 4080, 12885, 5)
    end
    
    if(intid == 446) then
    player:Teleport(530, 3606.85, 5260.49, 4.1724)
    end
    
    if(intid == 447) then
    player:Teleport(530, -319.635, 3102.03, -113.937)
    end
    
    if(intid == 448) then
    player:Teleport(530, 6850, -7950, 170)
    end
    
    if(intid == 449) then
    player:Teleport(530, 742.883, 6867.19, -68.8289)
    end
    
    if(intid == 450) then
    player:Teleport(530, 3087.22, 1380.7, 184.883)
    end
    
    if(intid == 451) then
    player:Teleport(530, -3604.74, 328.252, 38.3077)
    end
    
    if(intid == 452) then
    player:Teleport(530, 12558, -6775, 15.5)
    end
    
    if(intid == 46) then
    player:Teleport(530, 12956.072266, -6943.814453, 9.968110)
    end
    
    if(intid == 650) then
    player:Teleport(571, 2981.362305, 291.108032, 84.906631)
    end
    
    if(intid == 651) then
    player:Teleport(571, 452.491608, -4010.313965, 268.903809)
    end
    
    if(intid == 652) then
    player:Teleport(571, 3730.314453, -3859.454346, 183.489944)
    end
    
    if(intid == 653) then
    player:Teleport(571, 6591.855469, 2451.750732, 467.928711)
    end
    
    if(intid == 654) then
    player:Teleport(571, 7266.094238, -1338.805542, 911.679749)
    end
    
    if(intid == 655) then
    player:Teleport(571, 5444.818848, -1746.449585, 248.347855)
    end
    
    if(intid == 656) then
    player:Teleport(571, 4872.304688, 5535.682617, -62.462074)
    end
    
    if(intid == 657) then
    player:Teleport(571, 4502.164551, 5560.019531, 51.479229)
    end
    
    if(intid == 658) then
    player:Teleport(571, 4608.474121, 2847.145020, 396.896790)
    end
    
    if(intid == 659) then
    player:Teleport(571, 5331.596191, 142.360580, 168.219833)
    end
    
    if(intid == 649) then
    player:Teleport(571, 5806.516602, 628.091370, 647.240662)
    end
    end
    
    RegisterUnitGossipEvent(ENTRYID, 1, "On_Gossip")
    RegisterUnitGossipEvent(ENTRYID, 2, "Gossip_Submenus")

    Mini Boss-

    Code:
    --------------------------------------------------
    -------- x Elite x's Skill   LUA Boss   ---------
    --               Made By xElitex                --
    --             AkA GroundZ                      --
    --   Modifying is allowed as long as original   --
    --    credits are not removed from this lua.    --
    --------------------------------------------------
    --------------------------------------------------
    function DeathGate_Guardian_OnCombat(pUnit, Event)
    pUnit:SendChatMessage(14, 0, "Haha, You think you have the power to defeat me? Let me give you a word of warning, Turn around while you still can!")
    pUnit:RegisterEvent("DeathGate_Guardian_90%", 100, 0)
    end
    
    function DeathGate_Guardian_OnLeaveCombat(pUnit, Event)
    pUnit:RemoveEvents()
    end
    
    function DeathGate_Guardian_OnKillTarget(pUnit, Event)
    pUnit:SendChatMessage(14, 0, "I warned you, now your soul is mine forever!")
    end
    
    function DeathGate_Guardian_OnDeath(pUnit, Event)
    pUnit:RemoveEvents()
    pUnit:SendChatMessage(14, 0, "No! This can't be...How did...you...manage...to...defeat...me...")
    end
    
    RegisterUnitEvent(99999, 1, "DeathGate_Guardian_OnCombat")
    RegisterUnitEvent(99999, 2, "DeathGate_Guardian_OnLeaveCombat")
    RegisterUnitEvent(99999, 3, "DeathGate_Guardian_OnKillTarget")
    RegisterUnitEvent(99999, 4, "DeathGate_Guardian_OnDeath")
    
    function DeathGate_Guardian_Enrage(pUnit, Event)
    pUnit:CastSpell(52262)
    end
    
    function DeathGate_Guardian_Gigantic_Blow(pUnit, Event)
    pUnit:FullCastSpellOnTarget(52139, pUnit:GetMainTank())
    end
    
    function DeathGate_Guardian_90%(pUnit, Event)
    if pUnit:GetHealthPct() <= 90 then
    pUnit:RemoveEvents()
    pUnit:RegisterEvent("DeathGate_Guardian_80%", 100, 0)
    pUnit:SendChatMessage(14, 0, "You shall fall like all the others!")
    end
    end
    
    function DeathGate_Guardian_80%(pUnit, Event)
    if pUnit:GetHealthPct() <= 80 then
    pUnit:RemoveEvents()
    pUnit:RegisterEvent("DeathGate_Guardian_70%", 100, 0)
    pUnit:SendChatMessage(14, 0, "Come now, accept your fate! You were destined to die by my hands!")
    end
    end
    
    function DeathGate_Guardian_70%(pUnit, Event)
    if pUnit:GetHealthPct() <= 70 then
    pUnit:RemoveEvents()
    pUnit:RegisterEvent("DeathGate_Guardian_50%", 100, 0)
    pUnit:SendChatMessage(14, 0, "Let the foul stench of death engulf you!")
    end
    end
    
    function DeathGate_Guardian_50%(pUnit, Event)
    if pUnit:GetHealthPct() <= 50 then
    pUnit:RemoveEvents()
    pUnit:RegisterEvent("DeathGate_Guardian_30%", 100, 0)
    pUnit:SendChatMessage(14, 0, "You shall suffer untill your last breath!")
    end
    end
    
    function DeathGate_Guardian_30%(pUnit, Event)
    if pUnit:GetHealthPct() <= 30 then
    pUnit:RemoveEvents()
    pUnit:RegisterEvent("DeathGate_Guardian_Enrage", math.random(50, 100), 0)
    pUnit:RegisterEvent("DeathGate_Guardian_10%", 100, 0)
    pUnit:SendChatMessage(14, 0, "You are stronger than I expected! You Shall Not Succeed!")
    end
    end
    
    function DeathGate_Guardian_10%(pUnit, Event)
    if pUnit:GetHealthPct() <= 10 then
    pUnit:RemoveEvents()
    pUnit:RegisterEvent("DeathGate_Guardian_Gigantic_Blow", 5, 0)
    pUnit:SendChatMessage(14, 0, "Now....Feel The Wrath Of A Thousand Souls!")
    end
    end
    Credits: Elitex
    removed by Unholy

    [Release] A Few LUA Ingame Tools

Similar Threads

  1. [Release-Lua] Revive Tool
    By Trle94 in forum WoW EMU General Releases
    Replies: 7
    Last Post: 11-18-2009, 05:52 PM
  2. [Release] A few lua scripts
    By Lich King in forum World of Warcraft Emulator Servers
    Replies: 1
    Last Post: 03-31-2008, 08:27 PM
  3. [Release] almost all non-ingame item display ids part:1
    By thpthpthp in forum World of Warcraft Emulator Servers
    Replies: 15
    Last Post: 02-12-2008, 08:15 PM
  4. [Release/Info] Custom LUA Bosses!
    By Gastricpenguin in forum World of Warcraft Emulator Servers
    Replies: 38
    Last Post: 02-08-2008, 12:14 PM
  5. [RELEASE] My First Lua Boss xD
    By Snailz in forum World of Warcraft Emulator Servers
    Replies: 15
    Last Post: 01-25-2008, 01:38 PM
All times are GMT -5. The time now is 05:18 PM. Powered by vBulletin® Version 4.2.3
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. User Alert System provided by Advanced User Tagging (Pro) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
Digital Point modules: Sphinx-based search