MMO Base News - World of Warcraft

НПС для покупки опыта (АркЕму)

Shoop — Tue, 02 Jul 2019 21:34:20 GMT

Information
• Скрипт не мой
• Ядро: ArcEmu. •
• Используйте #buy комманду для спауна НПС. •
• Тестировано и полностью работает. •
• Единственный минус: SQL нету.•

Code

local npcid = 90000 -- Entry ID of the XP Vendor
local SpawnCommand = "$xp npc spawn"
local TimeNPC = 30 -- In seconds!

local DontModify = TimeNPC * 600 -- Just don't do it!

function SpawnCommand_OnChat(event, player, message, type, language)
     local Mess = message:lower()
      if (Mess:find(SpawnCommand) == 1) then
       if (player:GetPlayerLevel() == 80) then
        player:SendBroadcastMessage("You are already level 80!")
        return 0
       else
        player:SpawnCreature(npcid, player:GetX(), player:GetY(), player:GetZ(), player:GetO(), 35, DontModify, player:GetPhase())
        player:SendBroadcastMessage("You have succesfully spawned XP Npc for: "..TimeNPC.." seconds!")
        return 0
       end
      end
end

RegisterServerHook(16, "SpawnCommand_OnChat")

function XPGossip(Unit, event, player)
     if (player:GetPlayerLevel() == 80) then
      Unit:SendChatMessageToPlayer(15, 0, "You are already level 80!", player) -- Unit will send an Whisper to Player. Only Player can see that.
      player:GossipComplete()
     else
     Unit:GossipCreateMenu(100, player, 0)
     Unit:GossipMenuAddItem(9, "1,000 XP [1 gold]", 1, 0)
     Unit:GossipMenuAddItem(9, "10,000 XP [10 gold]", 2, 0)
     Unit:GossipMenuAddItem(9, "100,000 XP [100 gold]", 3, 0)
     Unit:GossipMenuAddItem(9, "500,000 XP [500 gold]", 4, 0)
     Unit:GossipMenuAddItem(9, "1,000,000 XP [1000 gold]", 5, 0)
     Unit:GossipMenuAddItem(9, "5,000,000 XP [5000 gold]", 6, 0)
     Unit:GossipMenuAddItem(9, "Nevermind", 999, 0)
     Unit:GossipSendMenu(player)
     end
end

function XPGossip_OnSelect(Unit, event, player, code, intid, id)
     if(intid == 998) then -- Back to main menu
      Unit:GossipCreateMenu(100, player, 0)
      Unit:GossipMenuAddItem(9, "1,000 XP [1 gold]", 1, 0)
      Unit:GossipMenuAddItem(9, "10,000 XP [10 gold]", 2, 0)
      Unit:GossipMenuAddItem(9, "100,000 XP [100 gold]", 3, 0)
      Unit:GossipMenuAddItem(9, "500,000 XP [500 gold]", 4, 0)
      Unit:GossipMenuAddItem(9, "1,000,000 XP [1000 gold]", 5, 0)
      Unit:GossipMenuAddItem(9, "5,000,000 XP [5000 gold]", 6, 0)
      Unit:GossipMenuAddItem(9, "Nevermind", 999, 0)
      Unit:GossipSendMenu(player)
     end

     if(intid == 999) then -- Closing Gossip Menu
      Unit:SendChatMessage(14, 0, "Come back soon now, ya hear?")
      player:GossipComplete()
     end

     if(intid == 1) then -- Buying 1,000 XP For 1 gold
      if(player:GetCoinage() <= 10000) then
       Unit:SendChatMessage(14, 0, "You can't afford this.")
       Unit:GossipCreateMenu(100, player, 0)
       Unit:GossipMenuAddItem(9, "[Back]", 998, 0)
       Unit:GossipSendMenu(player)
      else
      player:DealGoldCost(10000) -- Taking 1 Gold
      player:GiveXp(1000) -- Giving 1,000 XP
      Unit:SendChatMessage(14, 0, "You have bought 1,000 XP for 1 gold.")
       Unit:GossipCreateMenu(100, player, 0)
       Unit:GossipMenuAddItem(9, "[Back]", 998, 0)
       Unit:GossipSendMenu(player)
     end
      end

     if(intid == 2) then -- Buying 10,000 XP for 10 gold
      if(player:GetCoinage() <= 100000) then
       Unit:SendChatMessage(14, 0, "You can't afford this.")
       Unit:GossipCreateMenu(100, player, 0)
       Unit:GossipMenuAddItem(9, "[Back]", 998, 0)
       Unit:GossipSendMenu(player)
      else
      player:DealGoldCost(100000)
      player:GiveXp(10000)
      Unit:SendChatM essage(14, 0, "You have bought 10,000 XP for 10 gold.")
       Unit:GossipCreateMenu(100, player, 0)
       Unit:GossipMenuAddItem(9, "[Back]", 998, 0)
       Unit:GossipSendMenu(player)
     end
      end

     if(intid == 3) then -- Buying 100,000 XP for 100 gold
      if(player:GetCoinage() <= 1000000) then
       Unit:SendChatMessage(14, 0, "You can't afford this.")
       Unit:GossipCreateMenu(100, player, 0)
       Unit:GossipMenuAddItem(9, "[Back]", 998, 0)
       Unit:GossipSendMenu(player)
      else
      player:DealGoldCost(1000000)
      player:GiveXp(100000)
      Unit:SendCha tMessage(14, 0, "You have bought 100,000 XP for 100 gold.")
       Unit:GossipCreateMenu(100, player, 0)
       Unit:GossipMenuAddItem(9, "[Back]", 998, 0)
       Unit:GossipSendMenu(player)
      end
     end

     if(intid == 4) then -- Buying 500,000 XP for 500 gold
      if(player:GetCoinage() <= 5000000) then
       Unit:SendChatMessage(14, 0, "You can't afford this.")
       Unit:GossipCreateMenu(100, player, 0)
       Unit:GossipMenuAddItem(9, "[Back]", 998, 0)
       Unit:GossipSendMenu(player)
      else
      player:DealGoldCost(5000000)
      player:GiveXp(500000)
      Unit:SendCha tMessage(14, 0, "You have bought 500,000 XP for 500 gold.")
       Unit:GossipCreateMenu(100, player, 0)
       Unit:GossipMenuAddItem(9, "[Back]", 998, 0)
       Unit:GossipSendMenu(player)
      end
     end

     if(intid == 5) then -- Buying 1,000,000 XP for 1,000 gold
      if(player:GetCoinage() <= 100000000) then
       Unit:SendChatMessage(14, 0, "You can't afford this.")
       Unit:GossipCreateMenu(100, player, 0)
       Unit:GossipMenuAddItem(9, "[Back]", 998, 0)
       Unit:GossipSendMenu(player)
      else
      player:DealGoldCost(100000000)
      player:GiveXp(1000000)
      Unit:Send ChatMessage(14, 0, "You have bought 1,000,000 XP for 1000 gold.")
       Unit:GossipCreateMenu(100, player, 0)
       Unit:GossipMenuAddItem(9, "[Back]", 998, 0)
       Unit:GossipSendMenu(player)
      end
     end

     if(intid == 6) then -- Buying 5,000,000 XP for 5,000 gold
      if(player:GetCoinage() <= 50000000) then
       Unit:SendChatMessage(14, 0, "You can't afford this.")
       Unit:GossipCreateMenu(100, player, 0)
       Unit:GossipMenuAddItem(9, "[Back]", 998, 0)
       Unit:GossipSendMenu(player)
      else
      player:DealGoldCost(50000000)
      player:GiveXp(5000000)
      Unit:SendC hatMessage(14, 0, "You have bought 5,000,000 XP for 5000 gold.")
       Unit:GossipCreateMenu(100, player, 0)
       Unit:GossipMenuAddItem(9, "[Back]", 998, 0)
       Unit:GossipSendMenu(player)
      end
     end
end
RegisterUnitGossipEvent(npcid, 1, "XPGossip")
RegisterUnitGossipEvent(npcid, 2, "XPGossip_OnSelect")

[ArcEmu] Дополнительные продавцы 3.3.5

Shoop — Fri, 16 Aug 2013 14:46:30 GMT

Включают в себя все новые вещи 3.3.5

ID вендоров:

Quote

800000 - ювелирные изделия
800001 - ткань и кожа Armor
800002 - Plate и Mail Armor
800003 - Плащи
800004 - Разное и Quest пунктов

Скачать

Охрана для городов,сбрасывающая стелс.

Shoop — Fri, 16 Aug 2013 14:45:19 GMT

Смысл в том что враги не могут попасть в город в режиме невидимости\стелса.
Он будет сброшен с них
Этот sql файл заливаем в базу.

Code

`invisibility_type`, `death_state`, `entry`) VALUES ('80', '80', '1054', '100000', '100000', '10000', '1', '0', '1500', '0', '0', '0', '0', '0', '1', '0', '0', '0', '0', '36000', '0', '0', '0', '50000');
INSERT INTO `creature_names` (`name`, `subname`, `info_str`, `type`, `family`, `rank`, `male_displayid`, `female_displayid`, `civilian`, `Leader`, `entry`) VALUES ('Horde Bouncer', '', '', '7', '0', '1', '18718', '0', '0', NULL, '50001');
INSERT INTO `creature_proto` (`minlevel`, `maxlevel`, `Faction`, `minhealth`, `maxhealth`, `mana`, `Scale`, `npcflags`, `attacktime`, `mindamage`, `maxdamage`, `rangedattacktime`, `rangedmindamage`, `rangedmaxdamage`, `combat_reach`, `boss`, `equipmodel1`, `equipmodel2`, `equipmodel3`, `respawntime`, `auras`, `invisibility_type`, `death_state`, `entry`) VALUES ('80', '80', '1034', '100000', '100000', '10000', '1', '0', '1500', '0', '0', '0', '0', '0', '1', '0', '0', '0', '0', '36000', '0', '0', '0', '50001');

Этот скрипт lua кидаем в папку scripts

Code

unction Bouncer_OnSpawn(unit, event)
Unit:CastSpell(18950)
end

function Bouncer_OnCombat(unit, event)
Unit:SendChatMessage(14,0,"You are not allowed here. LEAVE NOW!!")
Unit:CastSpell(36812)
end

RegisterUnitEvent(50000,1,"Bouncer_OnSpawn")
RegisterUnitEvent(50001,2,"Bouncer_OnSpawn")
R egisterU nitEvent(50000,3,"Bouncer_OnCombat")
RegisterUnitEvent(50001,4,"Bouncer_OnCombat")

Kil'Jaeden Blizzlike Encouter

Administrator — Fri, 16 Aug 2013 14:43:24 GMT

http://pastebin.com/kRNCZt9X Part1
http://pastebin.com/JvxPfmvR Part2

Скрипт на КилдеДжана (санвел)

[ArcEmu] Вендоры

Shoop — Fri, 16 Aug 2013 14:42:33 GMT

[blizz]900007 - T8 Cloth Vendor -Finished

900008 - T8 Leather Vendor -Finished

900009 - T8 Mail Vendor -Finished

900010 - T8 Plate Vendor -Finished

900011 - T8.5 Cloth Vendor-Finished

900012 - T8.5 Leather Vendor -Finished

900013 - T8.5 Mail Vendor -Finished

900014 - T8.5 Plate Vendor -Finished

900015 - Axe Weapon Vendor -Finished

900016 - Bow Weapon Vendor -Finished

900017 - Crossbow Weapon Vendor -Finished

900018 - Dagger Weapon Vendor -Finished

900019 - Fist+Weapon Weapon Vendor -Finished

900020 - Gun Weapon Vendor -Finished

900021 - Mace Weapon Vendor -Finished

900022 - Polearm Weapon Vendor -Finished

900023 - Staff Weapon Vendor -Finished

900024 - Sword Weapon Vendor -Finished

900025 - Thrown Weapon Vendor -Finished

900026 - Wand Weapon Vendor -Finished

900028 - 226+ Back armor-Finished

900029 - 226+ Chest armor-Finished

900030 - 226+ Feet armor-Finished

900031 - 226+ Finger armor-Finished

900032 - 226+ Hands armor-Finished

900033 - 226+ Head armor-Finished

900034 - 226+ Held+In+Off-hand armor-Finished

900035 - 226+ Legs armor -Finished

900036 - 226+ Neck armor -Finished

900037 - 226+ Off+Hand armor -Finished

900038 - 226+ Shirt armor -Finished

900039 - 226+ Shoulder armor -Finished

900040 - 226+ Tabard armor -Finished

900041 - 226+ Trinket armor -Finished

900042 - 226+ Waist armor -Finished

900043 - 226+ Wrist armor -Finished

900045 - Blue Gem Vendor -Finished

900046 - Meta Gem Vendor -Finished

900047 - Red Gem Vendor -Finished

900048 - Yellow Gem Vendor -Finished

900049 - Shields Vendor -Finished

900050 - Mage Glyph Vendor -Finished

900051 - Hunter Glyph Vendor -Finished

900052 - Paladin Glyph Vendor -Finished

900053 - DeathKnight Glyph Vendor -Finished

900054 - Shaman Glyph Vendor -Finished

900055 - Priest Glyph Vendor -Finished

900056 - Druid Glyph Vendor -Finished

900057 - Warlock Glyph Vendor -Finished

900058 - Totem Vendor -Finished

900059 - Sigil Vendor -Finished

900060 - Libram Vendor -Finished

900061 - Idol Vendor -Finished

900062 - Enchantment Scrolls -Finished

900063 - Consumable Vendor -Finished

900064 - Mount Vendor -Finished

900065 - Alchemy mats -Finished

900066 - Blacksmithing mats -Finished

900067 - Enchanting mats -Finished

900068 - Engineering mats -Finished

900069 - Inscription mats -Finished

900070 - Jewelcrafting mats -Finished

900071 - Leatherworking mats -Finished

900072 - Mining mats -Finished

900073 - Skinning mats -Finished

900074 - Tailoring mats -Finished

900075 - Cloth PVP Vendor -Finished

900076 - Idol PVP Vendor -Finished

900077 - Leather PVP Vendor -Finished

900078 - Libram PVP Vendor -Finished

900079 - Mail PVP Vendor -Finished

900080 - Plate PVP Vendor -Finished

900081 - Shield PVP Vendor -Finished

900082 - Sigil PVP Vendor -Finished

900083 - Totem PVP Vendor -Finished

900085 - Cooking mats -Finished

900086 - First%20Aid mats -Finished

900088 - Bag Vendor -Finished

900090 - Warrior Glyph Vendor -Finished

900091 - Reagent Vendor -Finished

900092 - Food Vendor -Finished

900093 - Head & Shoulder Enchant Vendor -Finished

900094 - Rogue Glyph Vendor -Finished

900095 - Recipe Vendor -Finished

900096 - Schematic Vendor -Finished

900097 - Plans Vendor -Finished

900098 - T7 Cloth Vendor -Finished

900099 - T7 Leather Vendor -Finished

900100 - T7 Mail Vendor -Finished

900101 - T7 Plate Vendor -Finished

P.S Решил помочь Разделу
[/blizz]

[Lua]Финальная битва с королём личом

Shoop — Fri, 16 Aug 2013 14:42:00 GMT

Буржуи уже сделали,а мы все сидим >_<

скачать lua скрипт
http://depositfiles.com/ru/files/wb0qcae5n
+обязательно скрипт для mysql
http://depositfiles.com/ru/files/ufbnswlzw

аук бот

Shoop — Fri, 16 Aug 2013 14:41:00 GMT

AHBot for ArcEmu revision 2592
http://filebeam.com/2b0bb75e85fbd902a3926f9abe7f8579

Quote

AHBot Information
Installation instructions for AHBot
===================================

1) Apply the patch to your checked out SVN; if you don't know how to do that,
then read up on your SVN client, but in TortoiseSVN it is right-click
the checkout folder and "Apply patch" and follow a few simple steps -
"Patch All" is usually what you want.

2) Recompile into your own binary file.

3) There is an AHBotItems.SQL file included as part of the patch;
it should be in the same location as this AHBotReadMe.Txt file,
but if you can't find it then use the search function in your OS to find it.

4) Execute AHBotItems.SQL in your favorite SQL tool - I prefer SQLyog.
This will create the table and default items needed to pre-populate the AH
with items you always want to be available.
This means you wouldn't have to create custom vendors, just preload the AH
with those items and they will always be refreshed on the next update cycle
if/when they are sold out.

As an alternative, I have created an AHBotItems.BAT file that will use MySQL
itself to execute the AHBotItems.sql file. Edit the SET commands at the top
of the file if you are going to use this method.

5) There is an extract of the AHBot configuration information that is needed in
your world configuration file (ie. ascent-world.conf or arcemu-world.conf)
in a file called AHBot.conf.

6) Copy and paste the contents of the AHBot.conf file into your world config file;
most people just paste it at the end. There is a commented section to describe
the available options and set them as needed.

7) The default option in the AHBot config information is to post auctions
as a user just called AHBot - create this character. The AHBot character
can be anything (Alliance or Horde) and it doesn't have to be a GM.

Please note that you can log in and play as this character if you want,
but you can NEVER, NEVER talk to an auctioneer with this character;
the WoW client only expected about 100 auctions for a character and
the thousands of auctions typically on the AH by the AHBot character
will crash the client.

8) There are in-game commands.

AHBot In-game Commands
======================

.ahbot auto - Executes the automatic startup sequence
.ahbot clear - Clears all the auctions from all auction houses
.ahbot config - Displays AHBot configuration information
.ahbot count - Counts the number of auctions
.ahbot list - Lists the Auction Houses with their ids
.ahbot loglevel - Change the AHBot log level
.ahbot load - Loads the Auction House with x items
.ahbot reload - Re-loads all auction houses from SQL
.ahbot preload - Loads the Auction House from the AHBotItems table
.ahbot refresh - Loads the Auction House from the AHBotItems table
.ahbot time - Display the current UNIXTIME used to calc expire
.ahbot settings - Reload AHBot settings from world config file
.ahbot unload - Unloads auto-loaded items from the Auction House

9) There are console commands.

AHBot Console Commands
======================

ahbot auto - triggers the automatic startup event
ahbot clear - clears ALL auctions from ALL auction houses
ahbot config - shows AHBot configuration information
ahbot count - counts the auctions on all the auction houses
ahbot help - displays this information
ahbot list - lists the available auction houses
ahbot loglevel - Change the AHBot log level
ahbot load - loads an auction house
ahbot reload - Re-loads all auction houses from SQL
ahbot preload - triggers the pre-loading of the auction houses
ahbot unload - unloads an auction house
ahbot refresh - Change the refresh interval
ahbot time - shows the current UNIXTIME
ahbot settings - Reload AHBot settings from world config file
ahbot unload - Unloads auto-loaded items from the Auction House

Npc который меняет класс игрока

Shoop — Fri, 16 Aug 2013 14:40:30 GMT

Code

// CREATED BY LAAEVIE OF MMOWNED!

#include "StdAfx.h"
#include "Setup.h"

#define CHANGE_CLASS_NPC 85004

#ifdef WIN32
#pragma warning(disable:4305)// warning C4305: 'argument' : truncation from 'double' to 'float'
#endif

class SCRIPT_DECL ClassChangerNPC : public GossipScript
{
public:
      void GossipHello(Object * pObject, Player* Plr, bool AutoSend);
      void GossipSelectOption(Object * pObject, Player* Plr, uint32 Id, uint32 IntId, const char * Code);
      void GossipEnd(Object * pObject, Player* Plr);
   void Destroy()
   {
    delete this;
   }
};
void ClassChangerNPC::GossipHello(Object * pObject, Player* Plr, bool AutoSend)
   {
          GossipMenu *Menu;
          objmgr.CreateGossipMenuForPlayer(&Menu, pObject->GetGUID(), 1, Plr);
   {
   if(Plr->getRace()== 1||Plr->getRace()== 2||Plr->getRace()== 3||Plr->getRace()== 4||Plr->getRace()== 5||Plr->getRace()== 6||Plr->getRace()== 7||Plr->getRace()== 8||Plr->getRace()== 11)
    {Menu->AddItem(0, "I want to be a Warrior!", 1);}

   if(Plr->getRace()== 1||Plr->getRace()== 3||Plr->getRace()== 10||Plr->getRace()== 11)
    {Menu->AddItem(0, "I want to be a Paladin!", 2);}

   if(Plr->getRace()== 2||Plr->getRace()== 3||Plr->getRace()== 4||Plr->getRace()== 6||Plr->getRace()== 8||Plr->getRace()== 11)
    {Menu->AddItem(0, "I want to be a Hunter!", 3);}

   if(Plr->getRace()== 1||Plr->getRace()== 2||Plr->getRace()== 3||Plr->getRace()== 4||Plr->getRace()== 5||Plr->getRace()== 7||Plr->getRace()== 8||Plr->getRace()== 10)
    {Menu->AddItem(0, "I want to be a Rogue!", 4);}

   if(Plr->getRace()== 1||Plr->getRace()== 3||Plr->getRace()== 4||Plr->getRace()== 5||Plr->getRace()== 8||Plr->getRace()== 10||Plr->getRace()== 11)
    {Menu->AddItem(0, "I want to be a Priest!", 5);}

   if(Plr->getRace()== 1||Plr->getRace()== 2||Plr->getRace()== 3||Plr->getRace()== 4||Plr->getRace()== 5||Plr->getRace()== 6||Plr->getRace()== 7||Plr->getRace()== 8||Plr->getRace()== 10||Plr->getRace()== 11)
    {Menu->AddItem(0, "I want to be a Death Knight!", 6);}

   if(Plr->getRace()== 2||Plr->getRace()== 6||Plr->getRace()== 8||Plr->getRace()== 11)
    {Menu->AddItem(0, "I want to be a Shaman!", 7);}

   if(Plr->getRace()== 1||Plr->getRace()== 5||Plr->getRace()== 6||Plr->getRace()== 8||Plr->getRace()== 10||Plr->getRace()== 11)
    {Menu->AddItem(0, "I want to be a Mage!", 8);}

   if(Plr->getRace()== 1||Plr->getRace()== 2||Plr->getRace()== 5||Plr->getRace()== 7||Plr->getRace()== 10)
    {Menu->AddItem(0, "I want to be a Warlock!", 9);}

   if(Plr->getRace()== 4||Plr->getRace()== 6)
    {Menu->AddItem(0, "I want to be a Druid!", 11);}

    Menu->AddItem(0, "I Don't want to chage class!", 50);
   }

   if(AutoSend)
    Menu->SendTo(Plr);
};

void ClassChangerNPC::GossipSelectOption(Object* pObject, Player* Plr, uint32 Id, uint32 IntId, const char * Code)
{
   switch(IntId)
   {
    case 0:
    {
     GossipHello(pObject, Plr, true);
    }break;
    case 50:
    {
     Plr->Gossip_Complete();
    }break;

    default:
    {
     if (Plr->getClass() != IntId)
     {
      Plr->setClass((uint8)IntId);
      Plr->Reset_Spells();
      Plr->_RemoveAllSkills();
      Plr->BroadcastMessage("Class change complete. Relog to see the effect.");


    if (Plr->_HasSkillLine(43))
     {Plr->_ModifySkillMaximum(43, 400);}//Swords

    if (Plr->_HasSkillLine(44))
     {Plr->_ModifySkillMaximum(44, 400);}//Axes

    if (Plr->_HasSkillLine(45))
     {Plr->_ModifySkillMaximum(45, 400);}//Bows

    if (Plr->_HasSkillLine(46))
     {Plr->_ModifySkillMaximum(46, 400);}//Guns

    if (Plr->_HasSkillLine(54))
     {Plr->_ModifySkillMaximum(54, 400);}//Maces

    if (Plr->_HasSkillLine(95))
     {Plr->_ModifySkillMaximum(95, 400);}//Defense

    if (Plr->_HasSkillLine(136))
     {Plr->_ModifySkillMaximum(136, 400);}//Staves

    if (Plr->_HasSkillLine(160))
     {Plr->_ModifySkillMaximum(160, 400);}//Two-Handed Swords

    if (Plr->_HasSkillLine(162))
     {Plr->_ModifySkillMaximum(162, 400);}//Unarmed

    if (Plr->_HasSkillLine(172))
     {Plr->_ModifySkillMaximum(172, 400);}//Two-Handed Axes

    if (Plr->_HasSkillLine(173))
     {Plr->_ModifySkillMaximum(173, 400);}//Daggers

    if (Plr->_HasSkillLine(176))
     {Plr->_ModifySkillMaximum(176, 400);}//Thrown

    if (Plr->_HasSkillLine(226))
     {Plr->_ModifySkillMaximum(226, 400);}//Crossbows

    if (Plr->_HasSkillLine(228))
     {Plr->_ModifySkillMaximum(228, 400);}//Wands

    if (Plr->_HasSkillLine(229))
     {Plr->_ModifySkillMaximum(229, 400);}//Polearms

    if (Plr->_HasSkillLine(473))
     {Plr->_ModifySkillMaximum(473, 400);}//Fist Weapons

    if (Plr->_HasSkillLine(633))
     {Plr->_ModifySkillMaximum(633, 400);}//Lockpicking
        Plr->Gossip_Complete();
}

     else if (Plr->getClass() == IntId)
     {
      Plr->BroadcastMessage("ERROR: You are already that class, please choose other class!");
      Plr->Gossip_Complete();
     }
    }break;

   }
};

void ClassChangerNPC::GossipEnd(Object * pObject, Player* Plr)
{
      GossipScript::GossipEnd(pObject, Plr);
}

void SetupClassChangerNPC(ScriptMgr * mgr)
{
   GossipScript * gs = (GossipScript*) new ClassChangerNPC();
      mgr->register_gossip_script(CHANGE_CLASS_NPC, gs);
}

[Lua] Награда за Убийство

Shoop — Fri, 16 Aug 2013 14:40:05 GMT

Награда дается если вы выше 10 уровня.

Code

print("Honor Kill Token Script Initiated...")
function OnKillPlr(event, pPlayer, pVictim)
local pLevel = pPlayer:GetPlayerLevel()
local vicLevel = pVictim:GetPlayerLevel()
local RandNum1 = math.random(1,3) --Adjust to Increase/Decrease chance of getting a token.

local modedLevel = vicLevel + 10

if(pLevel > modedLevel) then
pPlayer:SendAreaTriggerMessage("Player "..pVictim:GetName().." is too low of a level to grant a token.")
else
if(RandNum1 == 2) then
pPlayer:AddItem(, 1) --Obviously the token's itemid.
end
end

end

RegisterServerHook(2, "OnKillPlr")

Где меняем например на <100500>
В данном случае 100500 это ID Награды, дальше идет кол-во.
Чтобы изменить уровень с которой даеться награда меняем
local modedLevel = vicLevel + 10
на
local modedLevel = vicLevel + Уровень

[Lua] Все в одном NPC

Shoop — Fri, 16 Aug 2013 14:39:39 GMT

Features:
-Horde/Alliance Mall Locations
-Main Citys-
-Leveling Road-
-VIP Lounge - Requires VIP Key (Not included)-
-World Locations-
-Buff Up-
-Change the Weather (clientside)-
-Max All Skills-
-Reset Talent Points-
-Remove Rez Sickness

http://pastebin.com/z48Upfkf

SQL для Vip Key

Code

INSERT INTO `items` VALUES (70016, 13, 0, -1, 'V.I.P. Lounge Key', 22477, 5, 64, 0, 0, 0, 0, -1, -1, 1, 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, 100, 3366, 0, 0, -1, 0, -1, 0, 0, 0, -1, 0, -1, 0, 0, 0, -1, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 'Grants entrance into the V.I.P. Lounge. Don\'t get too hammered.', 0, 0, 0, 0, 0, -1, 0, 0, 0, 0, 0, 0, 0, 0, 256, 0, 0, 0, 0, 0, 0, 0, 0, 0, -1, 0, 0, 0, 0);

Декорации ГМ острова

Shoop — Fri, 16 Aug 2013 14:38:51 GMT

Всем надоел скучный и пустой остров ГМ ? Теперь у вас будет хоть сколько то разнообразия там!
Скачать

Спелы дк (фан)

Shoop — Fri, 16 Aug 2013 14:37:59 GMT

Перед вами полный руссификатор для базы мира ArcEmu.В основу пошла руссификация базы мангоса RuDB r30.
Скачать

1 - 255 lvl Npc

Shoop — Fri, 16 Aug 2013 14:36:10 GMT

Вот желаю вам представить для заселения территория прокачки нпс.
Нпс с 1 уровня по 255. Все сделано удачно.
В общем читаем описание и смотрим скрины:
Они прекрасно работают.
Для заселения инстов, все довольно отлично сделаны.

Id Нпс :

Quote

От 650000 - до 650050

Боссы : 650051 - 650053

Нпс спокойно подойдут для версий клиентов от 3.3.3a - до 4.0.0.
Cкачать

naxxramas heroic drop 80lvl 25

Shoop — Fri, 16 Aug 2013 14:35:10 GMT

Форум: Патчи и фиксы для ArcEmu
Автор темы: Shoop
Автор последнего сообщения: svitoi07
Количество ответов: 3

Руссификация базы ArcEmu

Shoop — Sun, 04 Sep 2011 01:22:22 GMT

Перед вами полный руссификатор для базы мира ArcEmu.Данный русик делал я сам.В основу пошла руссификация базы мангоса RuDB r30.
Cкачать

[Релиз]Патч на склонение русских ников by Zic

Shoop — Sun, 04 Sep 2011 01:20:18 GMT

1 ПОМЕНЯТЬ КОДИРОВКУ ТАБЛИЦЫ CHARACTERS НА UTF8
2 В КОНФИГЕ УСТАНОВИТЬ ЗНАЧЕНИЕ LIMITED NAMES НА "0"
3 ЗАЛИТЬ 2 ТАБЛИЦЫ
4 Установить ПАТЧ

Code

DROP TABLE IF EXISTS `characters_declinedname`;
CREATE TABLE `character_declinedname` (
    `guid` int(11) unsigned NOT NULL default '0' COMMENT 'Global Unique Identifier',
    `genitive` varchar(12) NOT NULL default '',
    `dative` varchar(12) NOT NULL default '',
    `accusative` varchar(12) NOT NULL default '',
    `instrumental` varchar(12) NOT NULL default '',
    `prepositional` varchar(12) NOT NULL default '',
    PRIMARY KEY  (`guid`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 ROW_FORMAT=DYNAMIC;

DROP TABLE IF EXISTS `playerpets_declinedname`;
CREATE TABLE `character_pet_declinedname` (
    `id` int(11) unsigned NOT NULL default '0',
    `owner` int(11) unsigned NOT NULL default '0',
    `genitive` varchar(12) NOT NULL default '',
    `dative` varchar(12) NOT NULL default '',
    `accusative` varchar(12) NOT NULL default '',
    `instrumental` varchar(12) NOT NULL default '',
    `prepositional` varchar(12) NOT NULL default '',
    PRIMARY KEY  (`id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 ROW_FORMAT=DYNAMIC;

патч http://filebeam.com/7b97c03ddf93ccefb75afad837aa75ce

LUA Телепортер {Releese}

Shoop — Sat, 03 Sep 2011 13:10:20 GMT

Отличный телепортер для 3.3.5
Имеется телепорт ко всем инстам и городам.
Советую.
Скачать

[Lua] Награда за Убийство

Shoop — Sat, 03 Sep 2011 13:06:01 GMT

Награда дается если вы выше 10 уровня.

Code

Ulduar Location SQL Patches + Ulduar Loot & Fix Trigger (ЗА

Administrator — Mon, 23 May 2011 14:33:31 GMT

Впрочем это то самое заселение про кторое я заикнулся в предыдущей своей теме со скриптами.

Инструкция по установке.

Заливаем Triggers.sql (исправил большинство триггеров в том числе добавил и Ульдуар)
Заливаем Loot.sql (пофиксил лут остального мира в том числе добавил лут в Ульдуар)
Заливаем Ulduar NPC Location.sql(содержит в себе как скрипты самих NPC из Ульдуара а так же их заселенность(заселенность была сведена как на базе MaNGOS YTDB r500))

http://depositfiles.com/ru/files/2hwvhkh5r Качайте вот здесь