Hier sind mal ein paar port .tcls. (einfach die ID's und Namen ändern)

1. (Erst wenn ihr das hier könnt solltet ihr euch mit dem Rest rumschlagen)

Das kommt in die creatures.scp
---------------------------------------------------------------------------
--------
[creature 100010]
name=Totem der Teleportation
questscript=bcteleporter // das bc steht für meine initialen
guild=Teleporter
npcflags=01
attack=5000 5001
bounding_radius=0.306
combat_reach=6.31
damage=44459 55585
faction=35
level=60
maxhealth=932766
maxmana=31124
model=2419
money=564000
speed=2.0
size=2.0
type=7
---------------------------------------------------------------------------
--------

und das kommt in den TCL ordner rein. am besten ihr erstellt noch im TCL ordner nen unterordner und nennt ihn bc !
die folgende datei heißt bcteleporter.tcl

---------------------------------------------------------------------------
--------
namespace eval bcteleporter {
proc GossipHello { npc player } {
set side [GetSide $player]
set Alliance1 { text 1 "Geheime Insel" }
set Horde1 { text 1 "Geheime Insel" }
if { $side == "Alliance" } {
SendGossip $player $npc $Alliance1
} else { SendGossip $player $npc $Horde1 }}
proc GossipSelect { npc player option } {
set side [GetSide $player]
switch $option {
0 { if { $side == "Alliance" } { Teleport $player 1 -11868 -4704 15 } else { Teleport $player 1 -11868 -4704 15 }}}}
proc GetSide { player } {
set race [GetRace $player]
switch $race {
1 {return "Alliance"}
3 {return "Alliance"}
4 {return "Alliance"}
7 {return "Alliance"}
2 {return "Horde"}
5 {return "Horde"}
6 {return "Horde"}
8 {return "Horde"}}}
}

2.

namespace eval bcteleporter {
proc GossipHello { npc player } {
set side [GetSide $player]
set Alliance1 { text 1 "NAME-1-alli" }
set Alliance2 { text 1 "Name-2-alli" }
set Alliance3 { text 1 "Name-3-alli" }
set Alliance4 { text 1 "Name-4-alli" }
set Alliance5 { text 1 "Name-5-alli" }
set Alliance6 { text 1 "Name-6-alli" }

set Horde1 { text 1 "Name-1-horde" }
set Horde2 { text 1 "Name-2-horde" }
set Horde3 { text 1 "Name-3-horde" }
set Horde4 { text 1 "Name-4-horde" }
set Horde5 { text 1 "Name-5-horde" }
set Horde6 { text 1 "Name-6-horde" }
if { $side == "Alliance" } {
SendGossip $player $npc $Alliance1 $Alliance2 $Alliance3 $Alliance4 $Alliance5 $Alliance6
} else { SendGossip $player $npc $Horde1 $Horde2 $Horde3 $Horde4 $Horde5 $Horde6 }}
proc GossipSelect { npc player option } {
set side [GetSide $player]
switch $option {

0 { if { $side == "Alliance" } { Teleport $player 1-alli-koord} else { Teleport $player 1-horde-koord }}

1 { if { $side == "Alliance" } { Teleport $player 2-alli-koord } else { Teleport $player 2-horde-koord }}

2 { if { $side == "Alliance" } { Teleport $player 3-alli-koord } else { Teleport $player 3-horde-koord }}

3 { if { $side == "Alliance" } { Teleport $player 4-alli-koord } else { Teleport $player 4-horde-koord }}

4 { if { $side == "Alliance" } { Teleport $player 5-alli-koord } else { Teleport $player 5-horde-koord }}

5 { if { $side == "Alliance" } { Teleport $player 6-alli-koord } else { Teleport $player 6-horde-koord }}

proc GetSide { player } {
set race [GetRace $player]
switch $race {
1 {return "Alliance"}
3 {return "Alliance"}
4 {return "Alliance"}
7 {return "Alliance"}
2 {return "Horde"}
5 {return "Horde"}
6 {return "Horde"}
8 {return "Horde"}}}
}

3.

Hier erstmal die Hyjalbeamer.tcl

namespace eval HyjalBeamer {
proc QueryQuest { obj player questid } {
Say $player 0 "Ab nach Hause!"
if { [ ::GetRace $player ] == 1 } { Teleport $player 0 -9112.397461 411.543488 93.075302 }
if { [ ::GetRace $player ] == 2 } { Teleport $player 1 1378.713623 -4347.669922 26.234854 }
if { [ ::GetRace $player ] == 3 } { Teleport $player 0 -9112.397461 411.543488 93.075302 }
if { [ ::GetRace $player ] == 4 } { Teleport $player 1 9982.881836 2627.910889 1318.087646 }
if { [ ::GetRace $player ] == 5 } { Teleport $player 1 1378.713623 -4347.669922 26.234854 }
if { [ ::GetRace $player ] == 6 } { Teleport $player 1 1378.713623 -4347.669922 26.234854 }
if { [ ::GetRace $player ] == 7 } { Teleport $player 1 9982.881836 2627.910889 1318.087646 }
if { [ ::GetRace $player ] == 8 } { Teleport $player 1 1378.713623 -4347.669922 26.234854 }
}
}

namespace eval NachHyjalBeamen {
proc QueryQuest { obj player questid } {
Say $player 0 "Ab nach Hyjal!"
Teleport $player 1 5246.897949 -2158.914551 1258.916382
}
}

und dann noch die passenden Beamer als GO:

[gameobj 210025]
name=Hyjal Beamer Licht
type=5
size=2
model=266

[gameobj 210029]
name=Hyjal Beamer Kugel
questscript=HyjalBeamer
sound1=75
flags=040
model=4891
size=0.3
sound2=1