[Release] Dalaran Sewer Guide Luascript by Knaur (Only Underground Sewer part)

[knaur]

Proudly Presents Dalaran Sewer Guide Luascript V.1.0
By Knaur & Norwegian Elite Team ©2008

Hello Mates

Here are a second Christmasgift from me as promised.
a Dalaran Sewer Guide luascript linked up to
all the sewerguide npc,s spawned in ncdb wotlk databases.

Instead of showing mark on minimap, this
will teleport you to your choice.

The dalaran maincity guides are not included here,
but i released them yesterday.
you can find the main Dalaran city guide lua release HERE

Here are some screenies:
As you can see on screens, lua is linked to different sewer guide npc,s

Download link of lua in zip:
http://filebeam.com/e69cd70bf8013db17138c342ccb46a2b
Put the dalaransewerguide.lua in your script folder in your core dir

report bugs here and i will fix it for next release


Code:

--------------------------------------------------
-------- Dalaran Sewer Guide Script V.1.0 --------
--  Created by Knaur@2008 Norwegian Elite Team  --
--     Our Web: http://www.chronos-wow.com      --
-- Made for ncdb, linked to Dalaran sewer guids --
--                                              --
--   Modifying is allowed as long as original   --
--    credits are not removed from this lua.    --
--------------------------------------------------
--------------------------------------------------

function On_GuideSewer(unit, event, player)
unit:GossipCreateMenu(1, player, 0)
unit:GossipMenuAddItem(0, "Arena", 2, 0)
unit:GossipMenuAddItem(0, "Bank", 3, 0)
unit:GossipMenuAddItem(0, "Inn", 4,  0)
unit:GossipMenuAddItem(0, "Sewer Exits", 5,  0)
unit:GossipMenuAddItem(0, "Vendors", 6, 0)
unit:GossipSendMenu(player)
end

function GuideSewer_Submenu(unit, event, player, id, intid, code)
if(intid == 1) then
unit:GossipCreateMenu(16, player, 0)
unit:GossipMenuAddItem(0, "Arena", 2, 0)
unit:GossipMenuAddItem(0, "Bank", 3, 0)
unit:GossipMenuAddItem(0, "Inn", 4,  0)
unit:GossipMenuAddItem(0, "Sewer Exits", 5,  0)
unit:GossipMenuAddItem(0, "Vendors", 6, 0)
unit:GossipSendMenu(player)
end

--arena
if(intid == 2) then
player:Teleport(571, 5774.95, 620.42, 565.40)
end

--Bank
if(intid == 3) then
player:Teleport(571, 5766.31, 731.66, 618.58)
end

--Inn
if(intid == 4) then
player:Teleport(571, 5761.06, 714.45, 618.54)
end

--sewer exits
if(intid == 5) then
unit:GossipCreateMenu(7, player, 0)
unit:GossipMenuAddItem(3, "There are three ways out of the Underbelly: Ramps leading up to the east and west, and the tunnel that drops out of the bottom of dalaran.", 5, 0)
unit:GossipMenuAddItem(3, "       ", 5, 0)
unit:GossipMenuAddItem(3, "Be sure you can fly before you take that tunnel, of course.", 5, 0)
unit:GossipMenuAddItem(3, "       ", 5, 0)
unit:GossipMenuAddItem(0, "Eastern Sewer Entrance", 8, 0)
unit:GossipMenuAddItem(0, "Western Sewer Entrance", 9, 0)
unit:GossipMenuAddItem(0, "Sewer Tunnel", 10, 0)
unit:GossipMenuAddItem(0, "[Back]", 1, 0)
unit:GossipSendMenu(player)
end

--vendors
if(intid == 6) then
player:Teleport(571, 5922.34, 567.34, 609.86)
end

--eastern sewer entrance
if(intid == 8) then
player:Teleport(571, 5801.77, 551.07, 649.27)
end

--western sewer entrance
if(intid == 9) then
player:Teleport(571, 5815.21, 762.65, 640.30)
end

-- sewer tunnel
if(intid == 10) then
player:Teleport(571, 5673.50, 838.33, 583.68)
end
end

RegisterUnitGossipEvent(32726, 2, "GuideSewer_Submenu")
RegisterUnitGossipEvent(32726, 1, "On_GuideSewer")
RegisterUnitGossipEvent(32727, 2, "GuideSewer_Submenu")
RegisterUnitGossipEvent(32727, 1, "On_GuideSewer")
RegisterUnitGossipEvent(32728, 2, "GuideSewer_Submenu")
RegisterUnitGossipEvent(32728, 1, "On_GuideSewer")
RegisterUnitGossipEvent(32729, 2, "GuideSewer_Submenu")
RegisterUnitGossipEvent(32729, 1, "On_GuideSewer")
RegisterUnitGossipEvent(32730, 2, "GuideSewer_Submenu")
RegisterUnitGossipEvent(32730, 1, "On_GuideSewer")
RegisterUnitGossipEvent(32731, 2, "GuideSewer_Submenu")
RegisterUnitGossipEvent(32731, 1, "On_GuideSewer")
RegisterUnitGossipEvent(32732, 2, "GuideSewer_Submenu")
RegisterUnitGossipEvent(32732, 1, "On_GuideSewer")
RegisterUnitGossipEvent(32733, 2, "GuideSewer_Submenu")
RegisterUnitGossipEvent(32733, 1, "On_GuideSewer")

[Ground Zero]

Stop Releasing Your Ubber Scriptz

[Ezio]

Good Coment X Elite X xD , Stopp stopp . Good Release , Knaur Clap Clap.

It uses for my Server. see how it goes: D

[Fireblast]

Don't stop knaur ;] !

[Ziddy1337]

Again, this is sooo epic. Cant think of any more purple things though. Awesome release mate.

[Ezio]

Well said , fireblast Don't stop knaur

[hönan]

Hehe Really nice mate !! i love this work u'r doing !!

[Appled]

Nice work man Gonna use it in my repack +Rep

[knaur]

tnx remember my main dalaran city guard lua also to make it complete

http://www.mmowned.com/forums/emulat...ipt-knaur.html

[bsod-staff14]

Damn right knaur didnt know you LUAd...

[knaur]

hehe i have been making luas for long, most luas in my last database 5.0 was own creations

[Chrispee]

good job dude like them

[knaur]

tnx =) more releases will come

[brock106]

Nice release!

Knaur do you have a svn for all your epic scriptz?

[knaur]

i have an svn but hasnt been updated since i released the norwegian elite 5.0 datbase for 2.4.3.
no scripts there atm that is useful for todays databases.

But i will update the svn as soon as i get my new internet in house.

anyway the svn is https://svn.assembla.com/svn/norwegianelite/

all of my future releases will be avaible there