Вход для пользователей

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
[Lua] Starter System
Дата: Четверг, 29.04.2010, 17:24 | Сообщение # 1
Аватар

VIP Статус:
Группа: Администратор
Сообщений: 3088
Награды: 48
Репутация: 215  
 
Hey guys heres a simple system for when a player of a certain level enters your server he or she is given a Book and 5 Starter Tokens.

The book gives you some helpful info. Also it gives details about the server when you first enter the game.

http://pastebin.com/hRduvC33

Code
--[[
Made by DeniDov
]]--

--[[Configs]]--
local StarterBook = 1234
local ServerName = Server
local ServerType = Fun
local StarterToken = 2345
local Emu = Arcemu
local Rev = 3890
local Owner = Denidov
local Co-Owner = Denidov
local Admins = Denidov, Denidov, Denidov
local Devs = Denidov, Denidov, Denidov
local GMS = Denidov, Denidov, Denidov
local Website = www.test.com
local Email = test@live.com
local itemid = 12345

function OnEnterWorld(event, player, unit)
   if (player:GetPlayerLevel(1) == true) then
    player:SendBroadcastMessage("Welcome to "..ServerName.." We are a "..ServerType.." Server. We Hope you Enjoy Your Stay")
     player:AddItem(StarterBook, 1)
      player:SendBroadcastMessage("Here is Your Starter Book for "..ServerName.."")
     player:AddItem(StarterToken, 5)
      player:SendBroadcastMessage("These are your Tokens, You can Sell Them for Some Starting Money!")
end
end

function Item_OnGossip(event, player, unit)
    if (player:IsInCombat() == true) then
   player:SendBroadcastMessage("Get out of Combat!")
    else
     unit:GossipCreateMenu(3543, player, 0)
     unit:GossipMenuAddItem(0, "Server Info", 1, 0)
     unit:GossipMenuAddItem(0, "Server Staff", 2, 0)
     unit:GossipMenuAddItem(0, "Other Notes", 3, 0)
end
end

function Item_Select(event, player, unit)
   if (intid == 1) then
    player:SendBroadcastMessage("This is a "..ServerType.." server, We run on "..Emu.." core at Rev "..Rev.."")
end

   if (intid == 2) then
    player:SendBroadcastMessage("The Server Owner is "..Owner..", The Co-Owner is "..Co-Owner..", Our Admin Team Consists of "..Admins..", Our Developer Team is "..Devs..", And Our Support Team is "..GMS.."")
end
   if (intid == 3) then
    player:SendBroadcastMessage("If you need any help please contact us on "..Website.." or you can e-mail us at "..Email.."")   
end
end
end
RegisterServerHook(4, "OnEnterWorld")
RegisterUnitGossipEvent(itemid, 1, "Item_OnGossip")
RegisterUnitGossipEvent(itemid, 2, "Item_Select")
 
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума

  • [05:43 Готовый сервер 4.0.6 ... 11.12.2023]

  • [23:30 Arcanum Core (3.3.5а)... 16.11.2023]

  • [12:37 delete 02.03.2020]

  • [12:37 Ищу пост ГМ-а 02.03.2020]

  • [12:37 RastaWoW 3.3.5a (Набо... 02.03.2020]

  • [12:37 Набор команды 02.03.2020]

  • [00:34 AMD FUN SERVER - Worl... 03.07.2019]

  • [00:34 Продам private сборку... 03.07.2019]

  • [00:34 НПС для покупки опыта... 03.07.2019]

  • [00:34 WoW-TRONE 03.07.2019]

  • [12:21 Набор спидхаков (spee... 12.10.2018]

  • [21:00 [Продам] Фуловые чары... 13.03.2015]

  • [18:47 Продам приват сборку ... 04.03.2015]

  • [20:54 ВСЕ приват сборки от ... 01.03.2015]

  • [20:52 QuantumCore Server 3.... 04.02.2015]

  • [21:07 GAMESV STUDIO | ... 02.01.2015]

  • [16:36 Готовый сервер wow 4.... 04.10.2014]

  • [16:51 Скупаю чаров! 30.08.2014]

  • [19:18 Готовый сервер 4.0.6 17.08.2013]

  • [18:47 [HELP]Квесты 16.08.2013]


  • Карта Сайта ||||| Карта Форума|||