Teleport Stone

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).

Code:

---


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

Code:

---


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/e...608_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.