Teleport Stone

[Boxxy]

This was posted on arcemu however the script was broken and didnt work i remade it and it now works,it was remade for the new mmopro server (fundb).




local itemid = 92340
function Item_Trigger(item, event, player)
Item_menu(item, player)
end
function Item_menu(item, player)

if (player:IsInCombat() == true) then
player:SendAreaTriggerMessage("You are in combat!")
else
item:GossipCreateMenu(3543, player, 0)
item:GossipMenuAddItem(4, "GmIsland", 50, 0) ----you can change these,the numbers 50,20,21 are all connected to the teleport scripts remember to connect them to the right number.
item:GossipMenuAddItem(4, "Level Road no pvp", 20, 0)
item:GossipMenuAddItem(4, "Level Road Pvp allowed", 21, 0)
item:GossipSendMenu(player)
end
end
function OnSelect(item, event, player, id, intid, code)

if (intid == 20) then
player:Teleport(1, 4657.35, -3739.4, 1415.79) ----------these are connected to the options (gmisland level zones etc) most arent used so you can edit them and add them to the options
player:GossipComplete()
end
if (intid == 21) then
player:Teleport(1, 5137.83, -2357.04, 1418.38)
player:GossipComplete()
end
if (intid == 22) then
player:Teleport(1, -1278.849609, 126.752800, 131.329880)
player:GossipComplete()
end
if (intid == 23) then
player:Teleport(530, 9414.009766, -7278.341797, 14.201572)
player:GossipComplete()
end
if (intid == 24) then
player:Teleport(0, -8908.250000, 558.204956, 93.432388)
player:GossipComplete()
end
if (intid == 25) then
player:Teleport(1, 9952.001953, 2280.712891, 1341.393921)
player:GossipComplete()
end
if (intid == 26) then
player:Teleport(0, -4925.266602, -951.037842, 501.551971)
player:GossipComplete()
end
if (intid == 27) then
player:Teleport(530, -3992.824951, -11858.342773, 0.297733)
player:GossipComplete()
end
if (intid == 50) then
player:Teleport(1, 16222.6, 16265.9, 14.2085)
player:GossipComplete()
end

if (intid == 1000) then
local prace = player:GetPlayerRace()
item:GossipCreateMenu(3543, player, 0)
if ( race[prace] == 1 ) then
item:GossipMenuAddItem(0, "Deff", 10, 0)
end
if ( race[prace] == 2) then
item:GossipMenuAddItem(0, "Deff", 11, 0)
end
item:GossipMenuAddItem(4, "Deff", 50, 0)
item:GossipMenuAddItem(4, "Deff", 1, 0)
item:GossipSendMenu(player)
end
end

RegisterItemGossipEvent(itemid,1,"Item_Trigger")
RegisterItemGossipEvent(itemid,2,"OnSelect")


Heres the item



INSERT INTO items
(`entry`, `class`, `subclass`, `field4`, `name1`, `name2`, `name3`, `name4`, `displayid`, `quality`, `flags`, `buyprice`, `sellprice`, `inventorytype`, `allowableclass`, `allowablerace`, `itemlevel`, `requiredlevel`, `RequiredSkill`, `RequiredSkillRank`, `RequiredSkillSubRank`, `RequiredPlayerRank1`, `RequiredPlayerRank2`, `RequiredFaction`, `RequiredFactionStanding`, `Unique`, `maxcount`, `ContainerSlots`, `stat_type1`, `stat_value1`, `stat_type2`, `stat_value2`, `stat_type3`, `stat_value3`, `stat_type4`, `stat_value4`, `stat_type5`, `stat_value5`, `stat_type6`, `stat_value6`, `stat_type7`, `stat_value7`, `stat_type8`, `stat_value8`, `stat_type9`, `stat_value9`, `stat_type10`, `stat_value10`, `dmg_min1`, `dmg_max1`, `dmg_type1`, `dmg_min2`, `dmg_max2`, `dmg_type2`, `dmg_min3`, `dmg_max3`, `dmg_type3`, `dmg_min4`, `dmg_max4`, `dmg_type4`, `dmg_min5`, `dmg_max5`, `dmg_type5`, `armor`, `holy_res`, `fire_res`, `nature_res`, `frost_res`, `shadow_res`, `arcane_res`, `delay`, `ammo_type`, `range`, `spellid_1`, `spelltrigger_1`, `spellcharges_1`, `spellcooldown_1`, `spellcategory_1`, `spellcategorycooldown_1`, `spellid_2`, `spelltrigger_2`, `spellcharges_2`, `spellcooldown_2`, `spellcategory_2`, `spellcategorycooldown_2`, `spellid_3`, `spelltrigger_3`, `spellcharges_3`, `spellcooldown_3`, `spellcategory_3`, `spellcategorycooldown_3`, `spellid_4`, `spelltrigger_4`, `spellcharges_4`, `spellcooldown_4`, `spellcategory_4`, `spellcategorycooldown_4`, `spellid_5`, `spelltrigger_5`, `spellcharges_5`, `spellcooldown_5`, `spellcategory_5`, `spellcategorycooldown_5`, `bonding`, `description`, `page_id`, `page_language`, `page_material`, `quest_id`, `lock_id`, `lock_material`, `sheathID`, `randomprop`, `unk203_1`, `block`, `itemset`, `MaxDurability`, `ZoneNameID`, `mapid`, `bagfamily`, `TotemCategory`, `socket_color_1`, `unk201_3`, `socket_color_2`, `unk201_5`, `socket_color_3`, `unk201_7`, `socket_bonus`, `GemProperties`, `ReqDisenchantSkill`, `unk2`)
VALUES
(92340, 15, 0, -1, 'MMoPro Teleport Stone', '', '', '', 35133, 1, 0, 0, 0, 0, -1, -1, 100, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1500, 0, 0, 46642, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 'Noobcraft got lazy and he made this....', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, NULL, 0, NULL, 0, 0, 0, 0, 0, 0, 0, NULL, -1, 0);


Picture
http://i231.photobucket.com/albums/ee246/noobcraft45/WoWScrnShot_081608_015344.jpg

Feel free to edit it no credits needed,expect to see a update on this soon with resrection sickness and buffer addon!!!

Bugs:You will get a error for the lua in the arcemu-world cmd window but these errors do not interfere with the script its self and thier is no bug with the item so dont worry about it.