1. Erstellt euch eine neue .tcl mit den Namen "Door" in ...\scripts\tcl\ und schreibe dies rein

namespace eval Door {
proc QueryQuest { obj player questlistid } {
if [ConsumeItem $player Itemid 1] {
AddItem $player Itemid
set PosObj [GetPos $obj]
set PosPla [GetPos $player]
set NewX [expr [lindex $PosObj 1]*2-[lindex $PosPla 1]]
set NewY [expr [lindex $PosObj 2]*2-[lindex $PosPla 2]]
Custom::TeleportPos $player "[lindex $PosPla 0] $NewX $NewY [lindex $PosPla 3]"
}
}
}

2. Das hier kommt in die Item.scp:

[item ID, die ihr in 1. genommen habt]
name=Haustürschlüssel
quality=5
buyprice=20000000
sellprice=200
model=6709

3. Das hier kommt in die gameobject.scp:

[gameobj 300000]
name=Haustüschlüssel
questscript=Door
flags=00
type=2
model=1189
sound1=361