MMO Base News - World of Warcraft

Sprut for DOos

Set — Sat, 10 Dec 2011 22:40:53 GMT

Сылка - [blink]http://depositfiles.com/ru/files/exjx1dr94[blink]

Внимание! DDoS это уголовно наказуемое преступление!!! Так что не доставайте крупные сайты, типа www.yandex.ru или www.mail.ru (всё равно вы им ничего не сделаете), а вот маленький сайтик на бесплатном хостинге упадет через 10 секунд, лично проверял на своем сайте на .narod.ru (сайт был недоступен 5 минут!!! это за 10 секунд DDos

Вывод текста

Shoop — Sun, 30 Oct 2011 09:40:15 GMT

На предыдущих уроках Вы познакомились с основами программирования под Windows. Был приведен пример простейшей программы, которая просто выводит текст на экран. Может быть Вы уже заметили, что у каждого окна Windows есть рабочая область - часть окна, в которой обычно происходит рисование и вывод текста. Обратите внимание, что в Windows-программе рабочая область окна очень часто не имеет фиксированного размера. Ваша прогамма должна учитывать размер окна при выводе данных в него.
Может оказаться, что размеры рабочей области окна недостаточны даже для отображения единственного слова. С другой стороны, рабочая область может быть и очень большой (например, для полностью развернутого окна при использовании дисплея с высоким разрешением). Вы должны предусмотреть заранее эти два случая.
Следует также учесть, что в Windows-программе можно выводить текст с использованием различных шрифтов и размеров символов. Далее будет рассказано, как это делается.

Еще раз о WM_PAINT

При программировании в DOS Вам не нужно беспокоиться, что информация, выведенная однажды на экран, куда-то денется. Под DOS можно запустить только одну программу, и ей выделяется все экранное пространство. Под Windows это не так. Пользователь может полностью свернуть окно Вашей программы, и когда оно будет развернуто вновь, Вы должны позаботиться о том, чтобы данные, которые были раньше отображены в окне, были выведены заново. Это необходимо потому, что Windows не сохраняет содержимое окна при его перекрытии или сворачивании (т.к. при этом пришлось бы сохранять очень много данных).
Как Вы уже знаете, оконная процедура получает сообщение WM_PAINT каждый раз, когда рабочая область окна становится недействительной (требует перерисовки). Вы должны стремиться к тому, чтобы весь вывод в окно осуществлялся только при получении сообщения WM_PAINT. Структура программы от этого только выиграет.
В некоторых случаях Windows все же сохраняет часть рабочей области, когда она временно закрывается. Происходит это обычно в следующих случаях:
Windows удаляет диалоговое окно или окно сообщения, которое перекрывало часть окна программы;
Раскрывается/закрывается пункт меню;
Курсор мыши перемещается по рабочей области окна;
Иконка перемещается по рабочей области.

В этих случаях сообщение WM_PAINT не будет посылаться окну, и дополнительной перерисовки не потребуется.
Хотя Ваша оконная процедура может каждый раз полностью перерисовывать окно при поступлении сообщения WM_PAINT, очень часто достаточно перерисовать только его небольшую часть. Эту часть называют недействительным регионом (invalid region) или обновляемым регионом.
В Windows для каждого созданного окна есть структура, в которой содержится информация о рисовании (paint information structure), такая как координаты недействительного прямоугольника (invalid rectangle) или региона (invalid region). Если несколько регионов рабочей области окна становятся недействительными и оконная процедура не успевает обработать несколько сообщений WM_PAINT (точнее говоря Windows не успевает много раз вызвать оконную процедуру), то эти несколько регионов объединяются в один, и множество сообщений WM_PAINT заменяются одним сообщением.
Оконная процедура при обработке сообщения WM_PAINT может получить координаты недействительного прямоугольника и, естественно, перерисовывать только эту область. Хотя Вам никто не мешает всегда перерисовывать всю рабочую область окна (в этом случае, конечно, окно может перерисовываться значительно медленнее).

GDI - графический интерфейс

Графический интерфейс устройства (GDI) - подсистема Windows, которая отвечает за отображение графики (в том числе и текста, т.к. текст также прорисовывается) на устройствах отображения (дисплеях и принтерах).
Когда нам нужно было вывести текст в окно, мы пользовались функцией DrawText. Есть еще одна часто применяемая функция вывода текста - TextOut:

TextOut(hdc, x, y, pString, iLen);

Сейчас нас интересует прежде всего первый параметр этой функции - hdc. Это так называемый описатель контекста устройства (handle to a device context). Практически каждая функция GDI использует этот параметр. Он указывает, куда именно будет направлен вывод графических данных. Фактически этот описатель - просто число, которое является уникальным для каждого окна.
Как получить параметр hdc? Проще всего так:
...

HDC hdc;

PAINTSTRUCT ps;

...

switch(msg)

{

case WM_PAINT: hdc=BeginPaint(hwnd, &ps);

//использование функций GDI

// .

// .

// .

EndPaint(hwnd, &ps);

return 0;

...

}

//все остальные сообщения обрабатываются функцией DefWindowProc

return DefWindowProc(hwnd,msg,wParam,lParam);

Как видим параметр hdc возвращает функция BeginPaint, которая вызывается в самом начале обработки сообщения WM_PAINT. После того, как параметр hdc получен, можно вызывать любые функции GDI, использующие его. Как только дескриптор контекста устройства становится не нужен, следует (обязательно!) вызвать функцию EndPaint. Если сообщение WM_PAINT не обрабатывается в Вашей программе (это бывает редко), то оно должно обязательно обрабатываться функцией DefWindowProc. Ни в коем случае нельзя делать следующее:
...

switch(msg)

{

case WM_PAINT: return 0;

...

}

В этом случае сообщение WM_PAINT вообще не обрабатывается, недействительная область (требующая перерисовки) не становится действительной, что заставляет Windows снова и снова слать сообщение WM_PAINT. И так до бесконечности...
Как видим функция BeginPaint возвращает (точнее заполняет) еще одну переменную - структуру ps с типом PAINTSTRUCT. Этот тип определяется так:
typedef struct tagPAINTSTRUCT {

HDC hdc;

BOOL fErase;

RECT rcPaint;

BOOL fRestore;

BOOL fIncUpdate;

BYTE rgbReserved[32];

} PAINTSTRUCT;

Нас будут интересовать только первые 3 поля этой структуры (остальные используются самой Windows):
hdc - описатель контекста устройства (то же, что и возвращаемое значение функции BeginPaint).
fErase - если равно TRUE, то это значит, что Windows сама перерисует фон, используя кисть hbrBackground, которая указывалась при регистрации класса окна в структуре WNDCLASS (или WNDCLASSEX). Значение FALSE указывает, что фон обновляться не будет.
rcPaint - структура типа RECT, в которой определяется недействительный прямоугольник (с координатами left (x0), top (y0), right (x1), bottom (y1)). Используя данное значение hdc, Вы не сможете рисовать вне этого прямоугольника. Значения координат недействительного прямоугольника даются относительно левого верхнего угла рабочей области окна.

Если Вы хотите рисовать не при обработке сообщения WM_PAINT, а при поступлении других сообщений, Вы можете получить hdc следующим образом:
hdc=GetDC(hwnd);

//здесь могут вызываться функции GDI

ReleaseDC(hwnd, hdc); //освобождение hdc

Также как BeginPaint и EndPaint, функции GetDC и ReleaseDC обязательно вызываются парой. В отличие от функции BeginPaint, которая делает действительной ранее недействительную область, функция GetDC этого не делает. Есть еще одно отличие между этими двумя функциями: при получении дескриптора hdc с помощью GetDC Вы получаете возможность рисовать во всей рабочей области окна, а не только в недействительном регионе.

Функция TextOut

Вот ее вызов:
TextOut(hdc, x, y, pString, iLen);

Первые три параметра этой функции уже должны быть понятны (контекст устройства и координаты вывода текста). Поговорим об остальных параметрах.
pString - указатель на строку, которая должна быть выведена. Если она оканчивается нулевым байтом, удобно заранее подсчитать длину строки так: iLen=lstrlen(pString). Функция TextOut сама не вычисляет длину строки, именно поэтому и нужен параметр iLen.
Как задаются координаты?
Существует несколько так называемых режимов отображения. Задаваемый по умолчанию режим отображения - MM_TEXT. В этом режиме координаты задаются пикселами относительно левого верхнего угла рабочей области окна. Значения по координате X увеличиваются при движении вправо, а по координате Y - вниз. Обратите внимание, что в структуре PAINTSTRUCT координаты недействительного прямоугольника всегда задаются в режиме MM_TEXT (т.е. пикселами). Как Вы уже наверное догадались, функция TextOut при выводе текста использует текущий режим отображения, шрифт и размер шрифта, текущие цвета фона и символов.

Шрифт

По умолчанию всегда используется так называемый системный шрифт (SYSTEM_FONT). Это шрифт, который используется Windows для текста заголовков, меню и окон диалога. Вы можете изменить шрифт, пользуясь функцией EzCreateFont. Вот пример программы.
#include

#include

//описание оконной процедуры

LRESULT CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM);

//Это главная функция программы.

int WINAPI WinMain(HINSTANCE hInst,

HINSTANCE hPrevInst,

PSTR szCmdLine,

int iCmdShow)

{

HWND hwnd;

MSG msg;

WNDCLASSEX w;

static CHAR *szAppName={"MoveMouse"};

w.cbSize=sizeof(w);

w.style=CS_HREDRAW|CS_VREDRAW;

w.lpfnWndProc=WndProc;

w.cbClsExtra=0;

w.cbWndExtra=0;

w.hInstance=hInst;

w.hIcon=LoadIcon(NULL,IDI_APPLICATION);

w.hCursor=LoadCursor(NULL,IDC_ARROW);

w.hbrBackground=(HBRUSH)GetStockObject(WHITE_BRUSH);

w.lpszMenuName=NULL;

w.lpszClassName=szAppName;

w.hIconSm=w.hIcon;

RegisterClassEx(&w);

hwnd=CreateWindow(

szAppName,

"TextOut...",

WS_OVERLAPPEDWINDOW,

CW_USEDEFAULT, CW_USEDEFAULT,

CW_USEDEFAULT, CW_USEDEFAULT,

NULL,

NULL,

hInst,

NULL);

ShowWindow(hwnd,iCmdShow);

UpdateWindow(hwnd);

while(GetMessage(&msg,NULL,0,0))

{

TranslateMessage(&msg);

DispatchMessage(&msg);

}

return msg.wParam;

}

//-----------------------------------------------------

//выбор шрифта

#define EZ_ATTR_BOLD 1

#define EZ_ATTR_ITALIC 2

#define EZ_ATTR_UNDERLINE 4

#define EZ_ATTR_STRIKEOUT 8

//szFaceName - имя шрифта:

// "Courier New"

// "Courier New Bold"

// "Courier New Italic"

// "Courier New Bold Italic"

// "Times New Roman"

// "Times New Roman Bold"

// "Times New Roman Italic"

// "Times New Roman Bold Italic"

// "Arial"

// "Arial Bold"

// "Arial Italic"

// "Arial Bold Italic"

// "Symbol"

//iDeciPtHeight - высота шрифта в пунктах*10

//iDeciPtWidth - ширина шрифта или 0

//iAttributes - EZ_ATTR_BOLD, EZ_ATTR_ITALIC,

// EZ_ATTR_UNDERLINE, EZ_ATTR_STRIKEOUT

//fLogRes - TRUE-логическое разрешение

// FALSE-действительное разрешение

//-----------------------------------------------------

HFONT EzCreateFont(HDC hdc, char * szFaceName, int iDeciPtHeight,

int iDeciPtWidth, int iAttributes, BOOL fLogRes)

{

FLOAT cxDpi, cyDpi;

HFONT hFont;

LOGFONT lf;

POINT pt;

TEXTMETRIC tm;

SaveDC(hdc);

SetGraphicsMode(hdc, GM_ADVANCED);

ModifyWorldTransform (hdc, NULL, MWT_IDENTITY);

SetViewportOrgEx(hdc, 0, 0, NULL);

SetWindowOrgEx(hdc, 0, 0, NULL);

if(fLogRes)

{

cxDpi = (FLOAT)GetDeviceCaps(hdc, LOGPIXELSX);

cyDpi = (FLOAT)GetDeviceCaps(hdc, LOGPIXELSY);

}

else

{

cxDpi = (FLOAT)(25.4 * GetDeviceCaps(hdc, HORZRES) /

GetDeviceCaps(hdc, HORZSIZE));

cyDpi = (FLOAT)(25.4 * GetDeviceCaps(hdc, VERTRES) /

GetDeviceCaps(hdc, VERTSIZE));

}

pt.x = (int)(iDeciPtWidth * cxDpi / 72);

pt.y = (int)(iDeciPtHeight * cyDpi / 72);

DPtoLP(hdc, &pt, 1);

lf.lfHeight = - (int)(fabs (pt.y) / 10.0 + 0.5);

lf.lfWidth = 0;

lf.lfEscapement = 0;

lf.lfOrientation = 0;

lf.lfWeight = iAttributes & EZ_ATTR_BOLD ? 700 : 0;

lf.lfItalic = iAttributes & EZ_ATTR_ITALIC ? 1 : 0;

lf.lfUnderline = iAttributes & EZ_ATTR_UNDERLINE ? 1 : 0;

lf.lfStrikeOut = iAttributes & EZ_ATTR_STRIKEOUT ? 1 : 0;

lf.lfCharSet = 0;

lf.lfOutPrecision = 0;

lf.lfClipPrecision = 0;

lf.lfQuality = 0;

lf.lfPitchAndFamily = 0;

strcpy(lf.lfFaceName, szFaceName);

hFont = CreateFontIndirect(&lf);

if(iDeciPtWidth != 0)

{

hFont = (HFONT)SelectObject(hdc, hFont);

GetTextMetrics(hdc, &tm);

DeleteObject(SelectObject(hdc, hFont));

lf.lfWidth = (int)(tm.tmAveCharWidth *

fabs (pt.x) / fabs (pt.y) + 0.5);

hFont = CreateFontIndirect(&lf);

}

RestoreDC(hdc, -1);

return hFont;

}

//Оконная процедура

LRESULT CALLBACK WndProc(HWND hwnd, UINT imsg,

WPARAM wParam, LPARAM lParam)

{

PAINTSTRUCT ps;

static HFONT hFont=NULL;

switch(imsg)

{

case WM_CREATE:

if(hFont==NULL)

hFont=EzCreateFont(ps.hdc,

(char*)"Courier New Bold",

100,//высота шрифта=10 пунктов

0,0,TRUE);

return 0;

case WM_PAINT:

BeginPaint(hwnd, &ps);

TextOut(ps.hdc,100,100,"Системный шрифт",15);

SelectObject(ps.hdc,hFont);

TextOut(ps.hdc,100,120,"Courier New Bold",16);

EndPaint(hwnd, &ps);

return 0;

case WM_DESTROY:

DeleteObject(hFont);

hFont=NULL;

PostQuitMessage(0);

return 0;

}

return DefWindowProc(hwnd,imsg,wParam,lParam);

}

Функция EzCreateFont не будет обсуждаться сейчас, т.к. она довольно сложна для понимания на данном этапе. В дальнейшем Вы все поймете.
Как видим, изменить шрифт не так уж и просто. Хотя в большинстве случаев Вам будет не важно, каким шрифтом будет выводиться текст (системный шрифт вполне подойдет). С другой стороны, нужно внимательно подходить к смене шрифта. Во-первых, у пользователя Вашей программы может не оказаться требуемого шрифта (значит такой шрифт должен поставляться вместе с программой). Во-вторых, если Вы явно задаете высоту символов, следует проверить, как будет смотреться текст при различном разрешении экрана.
Сейчас нам гораздо полезнее научиться определять размер текущего шрифта.

Размер символов

Следующие друг за другом строки текста нужно выводить с учетом высоты символа. Ширину строки приблизительно можно оценить исходя из усредненной ширины символа. Итак, как определить размеры символа?
Примерно так:
TEXTMETRIC tm;

...

GetTextMetrics(hdc, &tm);

Естественно, сначала нужно получить контекст устройства hdc. Вы уже знаете, как это делается (через вызов BeginPaint при обработке сообщения WM_PAINT или вызовом GetDC при обработке других сообщений).
После вызова функции GetTextMetrics заполняется структура tm.

На следующем уроке мы поговорим о полях структуры TEXTMETRIC.

[LUA] Teleporter W/ Everything for 3.3!

Administrator — Thu, 29 Apr 2010 13:28:47 GMT

- Horde Cities
- Alliance Cities
- Azeroth Locations
- Azeroth Instances
- Outland Locations
- Outland Instances
- Northrend Locations
- Northrend Instances
- Dalarn
- Shattrath
- Isle of Quel' Danas
- Gurubashi Arena
- Buff Button

http://www.mediafire.com/?1wmytmmejx2

Here is the Fix Boss script

Administrator — Thu, 29 Apr 2010 13:28:26 GMT

Форум: LUA Скрипты
Автор темы: Administrator
Автор последнего сообщения: TKach
Количество ответов: 0

Event system

Administrator — Thu, 29 Apr 2010 13:28:00 GMT

#event activate - сделает игроков способными присоединиться к случаю(GM only)
#event deactivate - 3акроет случай, Вы больше не можете присоединиться(GM only)
#event join - оманда, чтобы присоединиться к случаю.
#revive - команда, чтобы восстановить себя.
#event leave - команда, чтобы оставить случай.
#event commands - Показы список команд.
#event remind - Посылает сообщение всем игрокам, чтобы напомнить им, что есть продолжающийся случай.(GM only)
#revive activate -Активизирует восстановить команду. (GM only)
#revive deactivate - Дезактивирует восстановить команду. (GM only)

I made it possible to deactivate the revive command so players wont be able to revive in PvP events.

http://pastebin.com/f3f8cf11b

[Ultra Release] Lua Stone Spawning Mall Vendors

Administrator — Thu, 29 Apr 2010 13:27:22 GMT

Hy guys i have managed to finished another personal project .
This is a Lua Item Stone that sspawn 45 Npc Vendors and trainers.
After a player is spawning a vendor for him the Vendor is scripted to stay spawned 30 second's so it couldn't crash your server.
If you want this script to work you must execute this sql files in your DB:

http://filebeam.com/fdac7b13540a36c102641390142c4bc0

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('88888','15','0','-1','Vendor's 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','Warn ing: May cause your molecules to split! USE WITH CAUTION!','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');

http://filebeam.com/4c992f6fb6e5452aa8f4ba71055ae254[Ultra Release] Lua Stone Spawning Mall Vendors

Epic Release LUA Boss LUA and SQL

Administrator — Thu, 29 Apr 2010 13:27:00 GMT

This is Both the LUA Files and SQL Tested and Fully working for both NPC's.

Added a Space in 1 part so the damm smiles dont show up

If you want you may Edit some of the stuff that best fits you.

I will try and Update them here and there.

Download here.
http://pastebin.com/AicdnBbX Boss LUA Updated......Ver 1
http://pastebin.com/ZtVbLLLB Add LUA Valkyr Updated......Ver 1
http://pastebin.com/XrULWgQ5 Add Spawn Fix SQL ......Ver 1
http://pastebin.com/UMN1Mqji Boss Spawn SQL ......Ver 1

function Valkyr_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "I Will die for my Master!")
Unit:RegisterEvent("Valkyr_DeathandDecay", 15000, 500)
Unit:RegisterEvent("Valkyr_ShadowBolt", 4500, 500)

function Sloff_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "Face now your tragic end!")
Unit: PlaySoundToSet(17365) <----Fix the space here i did it because of the Smiles
Unit:RegisterEvent("Sloff_ShadowCleave", 6530, 500)
Unit:RegisterEvent("Sloff_PainandSuffering", 17500, 500)
Unit:RegisterEvent("Sloff_Sleep", 89950, 500)
Unit:RegisterEvent("Sloff_Banish", 43596, 500)
Unit:RegisterEvent("Sloff_ShadowLance", 12500, 500)
Unit:RegisterEvent("Sloff_EmeraldVigor", 38000, 500)
Unit:RegisterEvent("Sloff_Berserk", 300000, 1)
Unit:RegisterEvent("Sloff_SummonValkyr", 40500, 500)

1 SQL is a Fix for the http://www.wowhead.com/spell=69037
Summon Val'kyr
Instant 3 sec cooldown
Summons a Val'kyr Shadowguard.

[Epic Release] The Lich King

Administrator — Thu, 29 Apr 2010 13:26:43 GMT

I took Stoneharry's Lich King script and remade it. All visuals are working, Tirion jumps to destroy frostmourne, Lich King channels players so he can raise them from the dead, the Intro has been redone.

TODO: Frostmourne Chamber (I need description of this thing, no idea what should happen there)

TODO: Defile ( doesn't work on ArcEmu)

TODO: The correct visual for raise dead

THE LICH KING SCRIPT:

http://pastebin.com/gTdzME5d

SQL FILES:

http://pastebin.com/05Z9UfdN

THE FROZEN THRONE RECALL:

Code
INSERT INTO `recall` (`id`, `name`, `MapId`, `positionX`, `positionY`, `positionZ`, `Orientation`) VALUES ('867', 'Frozen Throne', '631', '431.038', '-2124.07', '1596.06', '0.0986058');

THE FROZEN THRONE GAMEOBJECT SPAWNS:

# HeidiSQL Dump 
 Code
# 
 # -------------------------------------------------------- 
 # Host:                         127.0.0.1 
 # Database:                     world 
 # Server version:               5.1.36-community-log 
 # Server OS:                    Win32 
 # Target compatibility:         ANSI SQL 
 # HeidiSQL version:             4.0 
 # Date/time:                    2010-04-06 08:17:58 
 # -------------------------------------------------------- 

 /*!40101 SET @OLD_SQL_MODE=@@SQL_MODE, SQL_MODE='ANSI,NO_BACKSLASH_ESCAPES';*/ 
 /*!40014 SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS, FOREIGN_KEY_CHECKS=0;*/ 

 # 
 # Database structure for database 'world' 
 # 

 CREATE DATABASE /*!32312 IF NOT EXISTS*/ "world" /*!40100 DEFAULT CHARACTER SET latin1 */; 

 USE "world"; 

 # 
 # Table structure for table 'gameobject_spawns' 
 # 

 CREATE TABLE /*!32312 IF NOT EXISTS*/ "gameobject_spawns" ( 
    "id" int(11) unsigned NOT NULL AUTO_INCREMENT, 
    "Entry" int(10) unsigned NOT NULL DEFAULT '0', 
    "map" int(10) unsigned NOT NULL DEFAULT '0', 
    "position_x" float NOT NULL DEFAULT '0', 
    "position_y" float NOT NULL DEFAULT '0', 
    "position_z" float NOT NULL DEFAULT '0', 
    "Facing" float NOT NULL DEFAULT '0', 
    "orientation1" float NOT NULL DEFAULT '0', 
    "orientation2" float NOT NULL DEFAULT '0', 
    "orientation3" float NOT NULL DEFAULT '0', 
    "orientation4" float NOT NULL DEFAULT '0', 
    "State" int(10) unsigned NOT NULL DEFAULT '0', 
    "Flags" int(10) unsigned NOT NULL DEFAULT '0', 
    "Faction" int(10) unsigned NOT NULL DEFAULT '0', 
    "Scale" float NOT NULL DEFAULT '0', 
    "stateNpcLink" int(10) unsigned NOT NULL DEFAULT '0', 
    "phase" int(10) unsigned NOT NULL DEFAULT '1', 
    "overrides" int(10) unsigned NOT NULL DEFAULT '0', 
    PRIMARY KEY ("id") 
 ) AUTO_INCREMENT=5125130 COMMENT='Spawn System'; 

 # 
 # Dumping data for table 'gameobject_spawns' 
 # 

 LOCK TABLES "gameobject_spawns" WRITE; 
 /*!40000 ALTER TABLE "gameobject_spawns" DISABLE KEYS;*/ 
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('58324','2957197','631','507.006','-2122.61','1567.79','3.17301','0','0','0.999877','-0.0157075','8449','0','0','1','0','1','0');  
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('58322','15081081','631','519.289','-2118.19','1564.97','3.3348','0','0','0.995337','-0.0964536','8449','0','0','1','0','1','0');  
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('58323','15078109','631','519.289','-2118.19','1564.97','3.3348','0','0','0.995337','-0.0964536','8449','0','0','1','0','1','0');  
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('58325','1515081','631','507.006','-2122.61','1567.65','3.17301','0','0','0.999877','-0.0157075','8449','0','0','1','0','1','0');  
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('58326','2620862','631','507.006','-2122.61','1567.65','3.17301','0','0','0.999877','-0.0157075','8449','0','0','1','0','1','0');  
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('58327','19571971','631','507.006','-2122.61','1567.65','3.17301','0','0','0.999877','-0.0157075','8449','0','0','1','0','1','0') ;   
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('58328','15081081','631','507.006','-2122.61','1567.65','3.17301','0','0','0.999877','-0.0157075','8449','0','0','1','0','1','0') ;   
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('58329','15078109','631','507.006','-2122.61','1567.65','3.17301','0','0','0.999877','-0.0157075','8449','0','0','1','0','1','0') ;   
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('58330','1560725','631','507.006','-2122.61','1567.65','3.17301','0','0','0.999877','-0.0157075','1281','0','0','1','0','1','0');  
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('58335','95781057','631','477.985','-2150.19','1572.04','4.02613','0','0','0.903782','-0.427993','1281','0','0','1','0','1','0');  
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('5125127','95781057','631','476.01','-2094.78','1572.04','3.17779','0','0','0.999836','-0.0180988','1281','0','0','1','0','1','0' ) ; 
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('58344','2508221','631','428.758','-2124.4','1594.69','0.00392532','0','0','0.00196266','0.999998','1281','0','0','1','0','1','0' ) ; 
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('5125128','188415','580','1652.95','636.461','28.091','5.95309','0','0','0.1643','-0.98641','257','0','0','1','0','1','0'); 
 REPLACE INTO "gameobject_spawns" ("id", "Entry", "map", "position_x", "position_y", "position_z", "Facing", "orientation1", "orientation2", "orientation3", "orientation4", "State", "Flags", "Faction", "Scale", "stateNpcLink", "phase", "overrides") VALUES 
   ('5125123','500003','631','500.988','-2126.01','951.008','0.0732412','0','0','0.0366124','0.99933','3585','0','0','1','0','1','0') ;   
 /*!40000 ALTER TABLE "gameobject_spawns" ENABLE KEYS;*/ 
 UNLOCK TABLES; 
 /*!40101 SET SQL_MODE=@OLD_SQL_MODE;*/ 
 /*!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS;*/

DBC EXTRACTER: (YOU MUST USE THIS ONE OR THE SCRIPT WONT WORK)

http://filebeam.com/a0b87c47fe0792684b0a87a20eb0e82d

(Ignore the maps folder that will be created, just delete it.)

Credits:

Hydroxis

Kjanko (for helping me with the channel part)

Stoneharry

Neglected(for helping me with some Lua commands)

ENJOY!

Some Screenshots:

[Lua Script] Illidan Boss Battle by Nadskap2

Administrator — Thu, 29 Apr 2010 13:26:14 GMT

No pictures. But some info:

Name: Illidan Stormrage

Level: ?? (Boss)
Race: Demon
Display id: 21135
Scale: 1
HP: 4,249,280
Mana: 6,774

If u dont wanna download then copy this:

LUA Script:

Code

-- Start function --

function Illidan Stormrage
_OnEnterCombat(pUnit,Event)
   pUnit:SetModel(22917)
   pUnit:PlaySoundToSet(22917)
   pUnit:SetScale(2)
   pUnit:SetCombatCapabl e(1)
   pUnit:SetFaction(35)
   pUnit:SendChatMessage(0, 0, "")
   pUnit:RegisterEvent("NPCNAME_TalkStart1", 5000, 0)
end

     -- Phase one --

     function Illidan Stormrage
_SpellpUnitShear,Event)
   pUnit:CastSpellOnTarget(41032,pUnit:GetRandomPlayer(0))
   pUnit:CastSpellOnTarget(41032,pUnit:GetRand om Player(0))

end

function Illidan Stormrage
_SpellFlameCrash(pUnit,Event)
   pUnit:CastSpellOnTarget(40832,pUnit:GetRandomPlayer(0))
   pUnit:CastSpellOnTarget(40832,pUnit:G et RandomPlayer(0))

end

function Illidan Stormrage
_Phaseone(pUnit,Event)
   Choice=math.random(1, 2, 3, 4)
   if Choice==1 then
           pUnit:CastSpellOnTarget(41117,pUnit:GetRandomPlayer(0))
   end
   if Choice==2 then
    pUnit:CastSpellOnTarget(40904,pUnit:GetRandomPlayer(0))
   end
   if Choice==3 then
          pUnit:CastSpellOnTarget(41032,pUnit:GetRandomPlayer(0))
      end
      if Choice==4 then
          pUnit:CastSpellOnTarget(40832,pUnit:GetRandomPlayer(0))

end
end
      if nit:GetHealthPct() <= 80 then
         Unit:RegisterEvent("Illidan Stormrage
_Phasetwo", 1000, 0)
      not Unit:RegisterEvent("Illidan Stormrage
_Phaseone", 1000, 0)

   end

    --Phase two--

function Illidan Stormrage
_Phasetwo(pUnit,Event)
   Choice=math.random(1, 2, 3)
   if Choice==1 then
           pUnit:CastSpellOnTarget(40018,pUnit:GetRandomPlayer(0))
   end
   if Choice==2 then
    pUnit:CastSpellOnTarget(40598,pUnit:GetRandomPlayer(0))
   end
   if Choice==3 then
          pUnit:CastSpellOnTarget(40585,pUnit:GetRandomPlayer(0))
      end

end
if nit:GetHealthPct() <= 70 then
         Unit:RegisterEvent("Illidan Stormrage
_Phasethree", 1000, 0)
      not Unit:RegisterEvent("Illidan Stormrage
_Phasetwo", 1000, 0
      end
      --Phase 3--
         function Illidan Stormrage
_SpellpUnitShear,Event)
   pUnit:CastSpellOnTarget(41032,pUnit:GetRandomPlayer(0))
   pUnit:CastSpellOnTarget(41032,pUnit:GetRand om Player(0))

end

function Illidan Stormrage
_SpellFlameCrash(pUnit,Event)
   pUnit:CastSpellOnTarget(40832,pUnit:GetRandomPlayer(0))
   pUnit:CastSpellOnTarget(40832,pUnit:G et RandomPlayer(0))

end

function Illidan Stormrage
_Phasethree(pUnit,Event)
   Choice=math.random(1, 2, 3, 4, 5)
   if Choice==1 then
           pUnit:CastSpellOnTarget(41117,pUnit:GetRandomPlayer(0))
   end
   if Choice==2 then
    pUnit:CastSpellOnTarget(40904,pUnit:GetRandomPlayer(0))
   end
   if Choice==3 then
          pUnit:CastSpellOnTarget(41032,pUnit:GetRandomPlayer(0))
      end
      if Choice==4 then
          pUnit:CastSpellOnTarget(40832,pUnit:GetRandomPlayer(0))
   end
   if Choice==5 then
       pUnit:CastSpellOnTarget(40932,pUnit:GetRandomPlayer(0))
end
      if nit:GetHealthPct() <= 50 then
         Unit:RegisterEvent("Illidan Stormrage
_Phasefour", 1000, 0)
      not Unit:RegisterEvent("Illidan Stormrage
_Phasethree", 1000, 0)
      end
   --Phase 4--

function Illidan Stormrage
_SpellR(pUnit,Event)
   Choice=math.random(1, 2, 3, 4)
   if Choice==1 then
           pUnit:CastSpellOnTarget(41078,pUnit:GetRandomPlayer(0))
   end
   if Choice==2 then
    pUnit:CastSpellOnTarget(41126,pUnit:GetRandomPlayer(0))
   end
   if Choice==3 then
          pUnit:CastSpellOnTarget(41117,pUnit:GetRandomPlayer(0))
      end
      if Choice==4 then
          pUnit:CastSpellOnTarget(41142,pUnit:GetRandomPlayer(0))

end
if nit:GetHealthPct() <= 25 then
         Unit:RegisterEvent("NPCNAME_Phasefive", 1000, 0)
      not Unit:RegisterEvent("NPCNAME_Phasefour", 1000, 0)
      end
   --Phase 5--
   function Illidan Stormrage
_SpellpUnitShear,Event)
   pUnit:CastSpellOnTarget(41032,pUnit:GetRandomPlayer(0))
   pUnit:CastSpellOnTarget(41032,pUnit:GetRand om Player(0))

end

function Illidan Stormrage
_SpellFlameCrash(pUnit,Event)
   pUnit:CastSpellOnTarget(40832,pUnit:GetRandomPlayer(0))
   pUnit:CastSpellOnTarget(40832,pUnit:G et RandomPlayer(0))

end

function Illidan Stormrage
_SpellR(pUnit,Event)
   Choice=math.random(1, 2, 3, 4, 5, 6, 7)
   if Choice==1 then
          pUnit:CastSpellOnTarget(41117,pUnit:GetMainTank(0))
   end
   if Choice==2 then
    pUnit:CastSpellOnTarget(40904,pUnit:GetMainTank(0))
   end
   if Choice==3 then
          pUnit:CastSpellOnTarget(41032,pUnit:GetMainTank(0))
      end
      if Choice==4 then
          pUnit:CastSpellOnTarget(40832,pUnit:GetMainTank(0))
   end
   if Choice==5 then
       pUnit:CastSpellOnTarget(40932,pUnit:GetRandomPlayer(0))
   end
   if Choice==6 then
       pUnit:CastSpellOnTarget(40647,pUnit:GetRandomPlayer(0))
   end
   if Choice==7 then
       pUnit:CastSpellOnTarget(40683,pUnit:GetRandomPlayer(0))
       if nit:GetHealthPct() <= o then
         Unit:RegisterEvent("Illidan Stormrage
_death", 1000, 0)
      not Unit:RegisterEvent("Illidan Stormrage
_Phasefive", 1000, 0

end
   -- Extra --

function Illidan Stormrage
_Death(pUnit)
   pUnit:SetScale(2)
   pUnit:PlaySoundToSet(22917)
   pUnit:RemoveEvents()

function Illidan Stormrage
_OnLeaveCombat(pUnit, event)
   pUnit:RemoveEvents()
   pUnit:SetModel(22917)
   pUnit:SetScale(2)
end

function Illidan Stormrage
_OnKilledTarget(pUnit)
   pUnit:PlaySoundToSet(22917)
end

   -- Start functions --

   RegisterUnitEvent(22917, 1, "Illidan Stormrage_OnEnterCombat")
   RegisterUnitEvent(22917, 2, "Illidan Stormrage_OnLeaveCombat")
   RegisterUnitEvent(22917, 3, "Illidan Stormrage_OnKilledTarget")
   RegisterUnitEvent(22917, 4, "Illidan Stormrage_Death")

Save as Illidan Stormrage.lua in your scripts folder

SQL:

Code

replace into `creature_names` (`entry`, `name`, `subname`, `info_str`, `Flags1`, `type`, `family`, `rank`, `unk4`, `spelldataid`, `male_displayid`, `female_displayid`, `male_displayid2`, `female_displayid2`, `unknown_float1`, `unknown_float2`, `civilian`, `leader`)
values ('22917', "Illidan Stormrage", "The Betrayer", '', '0', '3', '0', '3', '0', '0', '21135', '21135', '21135', '21135', '1', '1', '0', '0');

replace into `creature_proto` (`entry`, `minlevel`, `maxlevel`, `faction`, `minhealth`, `maxhealth`, `mana`, `scale`, `npcflags`, `attacktime`, `attacktype`, `mindamage`, `maxdamage`, `can_ranged`, `rangedattacktime`, `rangedmindamage`, `rangedmaxdamage`, `respawntime`, `armor`, `resistance1`, `resistance2`, `resistance3`, `resistance4`, `resistance5`, `resistance6`, `combat_reach`, `bounding_radius`, `auras`, `boss`, `money`, `invisibility_type`, `death_state`, `walk_speed`, `run_speed`, `fly_speed`, `extra_a9_flags`, `spell1`, `spell2`, `spell3`, `spell4`, `spell_flags`, `modImmunities`)
values ('22917', '72', '72', '14', '4249280', '4249280', '6774', '1', '0', '1500', '0', '13000', '16000', '0', '0', '0', '0', '600', '56000', '56', '56', '56', '56', '56', '56', '0', '0', "0", '1', '450000', '0', '0', '2.50', '8.00', '14.00', '0', '0', '0', '0', '0', '0', '0');

[RELEASE]Sindragosa

Administrator — Thu, 29 Apr 2010 13:25:57 GMT

This is one of my first scripts, so please correct me if I have any syntax errors. Also, as I have knowledge of retail, the boss is 50% Retail, and 50% Custom.

function phase_1(pUnit, Event)
if pUnit:GetHealthPct() < 70 then
pUnit:RemoveEvents();
pUnit:FullCastSpell(36853)
pUnit:FullCastSpell(19983)
pUnit:FullCastSpell(70123)
pUnit:FullCastSpell(19983)
pUnit:FullCastSpell(19983)
pUnit:FullCastSpell(36853)
pUnit:FullCastSpell(16033)
pUnit:FullCastSpell(69649)
pUnit:FullCastSpell(16033)
pUnit:FullCastSpell(70123)
pUnit:FullCastSpell(71077)
pUnit:FullCastSpell(16033)
pUnit:FullCastSpell(69649)
pUnit:RegisterEvent("phase_2",1000, 0)
end

function phase_2(pUnit, event)
if pUnit:GetHealthPct() <50 then
pUnit:FullCastSpell(70126)
pUnit:FullCastSpell(70157)
pUnit:FullCastSpell(71053)
pUnit:RegisterEvent("phase_1",1000, 0)
end

function phase_1(pUnit, event)
if pUnit:GetHealthPct() < 70 then
pUnit:RemoveEvents();
pUnit:FullCastSpell(36853)
pUnit:FullCastSpell(19983)
pUnit:FullCastSpell(70123)
pUnit:FullCastSpell(19983)
pUnit:FullCastSpell(19983)
pUnit:FullCastSpell(36853)
pUnit:FullCastSpell(16033)
pUnit:FullCastSpell(69649)
pUnit:FullCastSpell(16033)
pUnit:FullCastSpell(70123)
pUnit:FullCastSpell(71077)
pUnit:FullCastSpell(16033)
pUnit:FullCastSpell(69649)
pUnit:RegisterEvent("phase_3",1000, 0)
end

function phase_3(pUnit, event)
if pUnit:GetHealthPct() <50 then
pUnit:RemoveEvents();
pUnit:FullCastSpell(70107)
pUnit:SendChatMessage(12, 0 , "Obey my orders, mortals!")
pUnit:FullCastSpell(70123)
pUnit:FullCastSpell(70107)
pUnit:FullCastSpell(70123)
pUnit:FullCastSpell(70126)
pUnit:SendChatMe ssage(12, 0 , "Glory to the Lich King")
pUnit:FullCastSpell(70157)
pUnit:FullCastSpell(71053)
pUnit:FullCastSpell(70107)
pUnit:FullCastSpell(70123)
pUnit:SendChatMessag e(12, 0 , "You face Sindragosa fools!")
pUnit:FullCastSpell(70107)
pUnit:FullCastSpell(70123)
pUnit:FullCastSpell(70126)
pUnit:FullCastSpell(70157)
pUnit:FullCastSpel l(71053)
pUnit:FullCastSpell(70107)
pUnit:SendChatMessage(12, 0 , "Obey my orders, mortals!")
pUnit:FullCastSpell(70123)
pUnit:FullCastSpell(70107)
pUnit:FullCastSpell(70123)
pUnit:FullCastSpell(70126)
pUnit:FullCastSp ell(70157)
pUnit:FullCastSpell(71053)
pUnit:SendChatMessage(12, 0 , "Beat them my Minions!")
pUnit:RegisterEvent("phase_4",1000, 0)
end

function phase_4(pUnit, Event)
if pUnit:GetHealthPct() < 50 then
pUnit:RemoveEvents();
pUnit:FullCastSpell(70107)
pUnit:FullCastSpell(70107)

x = pUnit:GetX()
y = pUnit:GetY()
z = pUnit:GetZ()
o = pUnit:GetO()
pUnit:SpawnGameObject(177241, x, y, z, o, 600000)
end
x = pUnit:GetX()
y = pUnit:GetY()
z = pUnit:GetZ()
o = pUnit:GetO()
pUnit:SpawnGameObject(177241, x, y, z, o, 600000)
pUnit:SpawnCreature(500838, x, y, z, o, 360000);
pUnit:SpawnCreature(500838, x, y, z, o, 360000);
pUnit:SpawnCreature(500838, x, y, z, o, 360000);
pUnit:SpawnCreature(500838, x, y, z, o, 360000);
pUnit:SpawnCreature(500838, x, y, z, o, 360000);

RegisterUnitEvent (500838, 6, "BlackfreezeVoid_OnSpawn")
pUnit:SendChatMessage(12, 0 , "My master's will.")
pUnit:CastSpell(3130)
pUnit:CastSpell(3130)
pUnit:CastSpell(3130)
pUnit:CastSpell(3130)
pUnit:SendChatMessage(12, 0 , "Prepare for Freezing Experience.")
pUnit:RemoveEvents(phase_2)
pUnit:RegisterEvent("phase_3",1000, 0)
pUnit:RegisterUnitEvent (500838, 6, "FrezingOnSpawn")
end

function FrezingOnSpawn (Unit, Event)
Unitespawn (60000, 0)
RegisterUnitEvent(213378, 1, "boss_start")
end

function Boss_OnDied(pUnit)
pUnit:SendChatMessage("Master! Stop them!")
pUnit:RemoveEvents()
g = pUnit:GetTarget()
g:AddItem(50360, 1)
g:AddItem(50421, 1)
g:AddItem(50423, 1)
g:AddItem(50424, 1)
g:AddItem(50361, 1)
g:AddItem(51815, 1)
g:AddItem(51819, 1)
g:AddItem(51818, 1)

if pUnit:GetHealthPct() < 0 then
pUnit:SendChatMessage("Master! Stop them!")
pUnit:RemoveEvents()
end
end
end

There you go.

{Core Mod} Attack 0.00 Cap

Administrator — Thu, 29 Apr 2010 13:25:35 GMT

tree 0.00 attack speed cap

increased:

attack power
crit chance
hp

Code

Index: src/arcemu-world/Player.cpp
==================================
--- src/arcemu-world/Player.cpp    (revision 3250)
+++ src/arcemu-world/Player.cpp    (working copy)
@@ -390,8 +390,8 @@
    m_comboTarget = 0;
    m_comboPoints = 0;

-    SetAttackPowerMultiplier(0.0f);
-    SetRangedAttackPowerMultiplier(0.0f);
+    SetAttackPowerMultiplier(5.0f);
+    SetRangedAttackPowerMultiplier(5.0f);

    UpdateLastSpeeds();

@@ -400,7 +400,7 @@

    for(i = 0; i < 3; i++ )
    {
-  m_attack_speed[i]    = 1.0f;
+  m_attack_speed[i]    = 0.0f;
     m_castFilter[i]  = 0;
    }

http://www.megaupload.com/?d=UWKXVATE updated block fixed

[Lua]Simple Teleporter(First Script)

Administrator — Thu, 29 Apr 2010 13:25:18 GMT

my first ever Lua script,sorry that it is an teleporter though it was a good thing to start with for me.

Please share any bugs/errors you discover.

http://pastebin.com/48dDJSar

Code

--[[
My First Gossip Script!
Made by Twistelf
Thanks Neglected for the Tut.
]]

-- Variables

local NPC_ID = 40000    -- change this to your own npc entry id please!
local Mall_MapID = 0    -- change this to your mall mapID please!
local Mall_X = -6805.926270   -- change this to your mall x co-ord please!
local Mall_Y = -4163.295410   -- change this to your mall y co-ord please!
local Mall_Z = 268.132385   -- change this to your mall z co-ord please!
local mounts_1 = {48778, 60025, 43688, 16056, 66906, 63844, 67466, 66907, 61230, 60114, 60116, 61229, 59567, 40192, 41514, 51412, 58983, 71342, 22719, 59650, 35022, 16055, 59976, 26656, 17461, 64977, 470, 60118, 48027, 22718, 59785, 22720, 22721, 22717, 22723, 22724, 64658, 72808, 61996, 59568, 35020, 10969, 59996, 25953, 39803, 17463, 64656, 32244, 50869, 43899, 59569, 34406, 458, 18990, 6899, 17464, 6654, 58615, 43927, 23214, 6648, 41515, 39315, 34896, 73313, 68188, 68187, 39316, 34790, 63635, 63637, 64927, 6653, 23161, 32239, 8395, 63639, 5784, 36702, 61451, 44153, 63643, 17460, 23509, 65439, 63638, 32235, 61465, 61469, 35710, 18989, 6777, 35713, 49379, 23249, 65641}
local mounts_2 = {23248, 35712, 35714, 563723247, 18991, 17453, 61294, 26056, 39798, 17465, 32245, 48025, 59797, 72807, 17459, 72286, 63956, 63636, 17450, 65917, 61309, 60424, 44744, 63796, 16084, 66846, 41513, 69395, 63640, 16082, 32345, 472, 60021, 35711, 35018, 41516, 39801, 23246, 66090, 41252, 61997, 59570, 34795, 10873, 59961, 26054, 39800, 17462, 22722, 16080, 67336, 30174, 17481, 63963, 64731, 66087, 39802, 39317, 34898, 63642, 32240, 42276, 10789, 23510, 63232, 66847, 8394, 10793, 34769, 66088, 66091, 68057, 32242, 23241, 43900, 23238, 23229, 23250, 65646,23221, 23239, 65640, 23252, 32290, 35025, 23225, 32295, 68056, 23219, 65638, 37015, 23242, 23243, 23227}
local mounts_3 = {33660, 32292, 35027, 65644, 32297, 24242, 32289, 65639, 32246, 42777, 23338, 23251, 65643, 35028, 46628, 23223, 23240, 23228, 23222, 32296, 49322, 24252, 39318, 34899, 32243, 18992, 63641, 580, 60002, 61425, 44151, 65642, 10796, 59571, 17454, 49153, 64659, 41517, 41518, 17454, 49193, 64659, 41517, 41518, 60024, 10799, 64657, 15779, 54753, 6898, 39319, 65645, 16083, 34897, 54729, 16081, 17229, 59791, 71810, 46197, 46199, 26055}

-- On Triggers
function GossipOnTalk(Unit,Event,player)
Unit:GossipCreateMenu(100, player, 0)
Unit:GossipMenuAddItem(2, "Mall Teleport.", 1, 0)
Unit:GossipMenuAddItem(2, "Alliance and Horde Major City's.", 2, 0)
Unit:GossipMenuAddItem(2, "Neutral City's", 3, 0)
Unit:GossipMenuAddItem(3, "Buffz up!", 4, 0)
Unit:GossipMenuAddItem(4, "Taxi Vendor.", 14, 0)
Unit:GossipMenuAddItem(4, "Advance Weapon Skillz", 16, 0)
Unit:GossipMenuAddItem(4, "Learn Riding/Flying.", 15, 0)
Unit:GossipMenuAddItem(0, "Never mind.", 5, 0)
Unit:GossipSendMenu(player)
end

function GossipOnSelect(Unit, Event, player, id, intid, code, pMisc)
if (intid == 1) then
player:Teleport(Mall_MapID, Mall_X, Mall_Y, Mall_Z)
player:GossipComplete()
end
if (intid == 2) then
Unit:GossipCreateMenu(100, player, 50)
Unit:GossipMenuAddItem(2, "Stormwind", 6, 0)
Unit:GossipMenuAddItem(2, "Ironforge", 7, 0)
Unit:GossipMenuAddItem(2, "Darnassus", 8, 0)
Unit:GossipMenuAddItem(2, "Exodar", 9, 0)
Unit:GossipMenuAddItem(1, "Orgrimmar", 10, 0)
Unit:GossipMenuAddItem(1, "The Undercity", 11, 0)
Unit:GossipMenuAddItem(1, "Thunder Bluff", 12, 0)
Unit:GossipMenuAddItem(1, "Silvermoon", 13, 0)
Unit:GossipSendMenu(player)
end
if (intid == 3) then
Unit:GossipCreateMenu(100, player, 300)
Unit:GossipMenuAddItem(2, "Dalaran", 30, 0)
Unit:GossipMenuAddItem(2, "Shattrath", 31, 0)
Unit:GossipMenuAddItem(2, "Booty Bay", 32, 0)
Unit:GossipMenuAddItem(2, "Gadgetzan", 33, 0)
Unit:GossipMenuAddItem(2, "Ratchet", 34, 0)
Unit:GossipSendMenu(player)
end
if (intid == 17) then
Unit:GossipCreateMenu(100, player, 1700)
Unit:GossipMenuAddItem(2, "Fight !", 1701, 0)
Unit:GossipMenuAddItem(0, "Still under construction....", 1702, 0)
Unit:GossipSendMenu(player)
end
if (intid == 30) then
player:Teleport(571, 5811.4067, 647.7883, 647.4152)
player:GossipComplete()
end
if (intid == 31) then
player:Teleport(530, -1849.4200, 5401.4599, -12.4279)
player:GossipComplete()
end
if (intid == 32) then
player:Teleport(0, -14284.9, 557.354, 8.841)
player:GossipComplete()
end
if (intid == 33) then
player:Teleport(1, -7124.13, -3818.93, 8.4107)
player:GossipComplete()
end
if (intid == 34) then
player:Teleport(1, -994.248, -3830.1, 7)
end
if (intid == 4) then
Unit:CastSpellOnTarget(25898, player)
Unit:CastSpellOnTarget(48469, player)
Unit:CastSpellOnTarget(48073, player)
Unit:CastSpellOnTarget(58451, player)
Unit:CastSpellOnTarget(58449, player)
Unit:CastSpellOnTarget(48102, player)
Unit:CastSpellOnTarget(58453, player)
player:SendBroadcastMessage("Ye Da BuffZorZ Are Up!")
player:GossipComplete()
end
if (intid == 6) then
player:Teleport(0, -9100.480469, 406.950745, 92.594185)
player:GossipComplete()
end
if (intid == 7) then
player:Teleport(0, -5028.265137, -825.976563, 495.301575)
player:GossipComplete()
end
if (intid == 8) then
player:Teleport(1, 9985.907227, 1971.155640, 1326.815674)
player:GossipComplete()
end
if (intid == 9) then
player:Teleport(530, -4072.202393, -12014.337891, -1.277277)
player:GossipComplete()
end
if (intid == 10) then
player:Teleport(1, 1371.068970, -4370.801758, 26.052483)
player:GossipComplete()
end
if (intid == 11) then
player:Teleport(0, 2050.203125, 285.650604, 56.994549)
player:GossipComplete()
end
if (intid == 12) then
player:Teleport(1, -1304.569946, 205.285004, 68.681396)
player:GossipComplete()
end
if (intid == 13) then
player:Teleport(530, 9400.486328, -7278.376953, 14.206780)
player:GossipComplete()
end

if (intid == 14) then
Unit:VendorAddItem(52021, 1000, 0)
Unit:VendorAddItem(52020, 1000, 0)
Unit:VendorAddItem(51809, 1, 0)
Unit:VendorAddItem(21177, 100, 0)
Unit:VendorAddItem(5178, 1, 0)
Unit:VendorAddItem(17030, 10, 0)
Unit:VendorAddItem(17020, 100, 0)
Unit:VendorAddItem(17036, 10, 0)
Unit:VendorAddItem(37201, 20, 0)
Unit:VendorAddItem(16583, 5, 0)
Unit:VendorAddItem(44615, 20, 0)
Unit:VendorAddItem(5175, 1, 0)
Unit:VendorAddItem(5176, 1, 0)
Unit:VendorAddItem(17058, 20, 0)
Unit:VendorAddItem(22147, 20, 0)
Unit:VendorAddItem(17028, 20, 0)
Unit:VendorAddItem(17037, 20, 0)
Unit:VendorAddItem(5565, 5, 0)
Unit:VendorAddItem(6265, 1, 0)
Unit:VendorAddItem(21177, 100, 0)
Unit:VendorAddItem(17032, 20, 0)
Unit:VendorAddItem(17031, 20, 0)
Unit:VendorAddItem(5177, 1, 0)
Unit:VendorAddItem(44605, 20, 0)
Unit:VendorAddItem(21176, 1, 0)
Unit:VendorAddItem(33809, 1, 0)
Unit:VendorAddItem(47179, 1, 0)
Unit:VendorAddItem(47180, 1, 0)
Unit:VendorAddItem(49282, 1, 0)
Unit:VendorAddItem(50250, 1, 0)
Unit:VendorAddItem(13335, 1, 0)
Unit:VendorAddItem(30480, 1, 0)
Unit:VendorAddItem(37828, 1, 0)
Unit:VendorAddItem(49290, 1, 0)
Unit:VendorAddItem(46109, 1, 0)
Unit:VendorAddItem(33189, 1, 0)
Unit:VendorAddItem(37011, 1, 0)
Unit:VendorAddItem(32458, 1, 0)
Unit:VendorAddItem(44843, 1, 0)
Unit:VendorAddItem(25596, 1, 0)
Unit:VendorAddItem(46171, 1, 0)
player:SendVendorWindow(Unit)
player:GossipComplete()
end

if (intid == 15) then
player:CastSpell(34093)
player:CastSpell(54198)
player:LearnSpells(mounts_1)
player:LearnSpells(mounts_2)
play er:LearnSpells(mounts_3)
player:SendBroadcastMessage("All mounts and mount riding skills obtained!")
player:SendBroadcastMessage("Advanced Riding/Flying Skill.")
player:GossipComplete()
end

if (intid == 16) then
local dummyx = player:GetX()
local dummyy = player:GetY()
local dummyz = player:GetZ()
local dummyo = player:GetO()
Unit:SpawnCreature(32541, dummyx, dummyy, dummyz, dummyo, 679, 120000)
player:SendAreaTriggerMessage("ADVANCE UR PWNZORZ SKILLZ ON DUMMEHS.")
player:GossipComplete()
end
if (intid == 5) then
player:GossipComplete()
end
end

-- RegisterUnitEvents
RegisterUnitGossipEvent(NPC_ID, 1, "GossipOnTalk")
RegisterUnitGossipEvent(NPC_ID, 2, "GossipOnSelect")

[C++][SQL]Fake Online Players

Administrator — Thu, 29 Apr 2010 13:24:56 GMT

Ok this a patch I made to give players the illusion that there not the only ones online for servers just starting up so enjoy!
скачать фейк на онлайн
I have plans to port this to ManGOS, Sandshroud and Trinitycore.
Also the sql goes into the character database.

[Lua Pack] Auto-Announcer, Auto Jail System, Auto Rez/Buff

Administrator — Thu, 29 Apr 2010 13:24:39 GMT

Hey Guys just some scripts i made today, if someone would like to post them on Pastebin and send me the links ill give ya credits its just to late at night for me to do it

Code

--[[
Made by Denidov
]]--

local delay = 60000
local ServerName = "ServerName"
local ServerType = "Funserver"
local ServerWebsite = "http://www.my-server.com/"
local ServerSummary = "This server is a funserver.$B$BWe hope you enjoy your stay."
local announcetype = 2
--[[ type 1 is across the screen and type 2 is chatbox]]--

function AutoAnnouncer(event, player, unit)
   RandomAnnounce=math.random(1,4)
    if RandomAnnounce==1 then
     SendWorldMessage("Welcome to "..ServerName.."", announcetype)
end
    if RandomAnnounce==2 then
     SendWorldMessage("This is a "..ServerType.."", announcetype)
end
    if RandomAnnounce==3 then
     SendWorldMessage("Please Visit "..ServerWebsite.."", announcetype)
end
    if RandomAnnounce==4 then
     SendWorldMessage(""..ServerSummary.."", announcetype)
end
end
RegisterTimedEvent("AutoAnnouncer", delay, 0)

Code

--[[ Made by Denidov
]]--

--[[Local Ports]]--
local Map = 0
local X = -13260.228516
local Y = 160.768799
local Z = 36.332066
--[[Local Zones]]--
local zone = 33

function OnDeath(event, player)
          if (player:IsDead() == true) then
     if (player:GetZoneId() == zone) then
      player:CastSpell(24341)
       player:Teleport(Map, X, Y, Z)
        player:CastSpellOnTarget(48068, player)
        player:CastSpellOnTarget(48161, player)
        player:CastSpellOnTarget(20217, player)
        player:CastSpellOnTarget(48469, player)
        player:CastSpellOnTarget(42995, player)
        player:CastSpellOnTarget(48073, player)
   end
   end
   end
RegisterServerHook(6, "OnDeath")

Code

--[[ Made by Denidov
]]--

--[[Banned Named]]--
local name1 = Denidov
local name2 = Denidov
local name3 = Denidov
local name4 = Denidov
local name5 = Denidov
local name6 = Denidov
local name7 = Denidov
---------------------

function OnEnterWorld(event, player, unit)
if player:GetName("name1, name2, name3, name4, name5, name6, name7") == true) then
player:SetHealth(-1)
end
end
RegisterServerHook(4, "OnEnterWorld")

Code

--[[ Made by Denidov
]]--

--[[Configs]]--

local map =
local x =
local y =
local z =
local token =
---------------

function OnJail(event, player, unit)
   if (player:GetHealth() =< 25000) then
    player:SetHealth(20000)
    player:Teleport(map, x, y, z)
    player:AddItem (token, 1)
end
   if (player:GetMana() =< 30000) then
    player:SetMana(25000)
    player:Teleport(map, x, y, z)
    player:AddItem (token, 1)
end
   if (player:GetPlayerLevel() =< 81) then
    player:SetLevel(80)
    player:Teleport(map, x, y, z))
    player:AddItem (token, 1)
end
   if (unit:IsFlying(player) == true) then
    if (player:IsGM(3) == false) then
     elseif (player:IsGM(a) == false) then
      elseif (player:IsGM(az) == false) then
    player:SetFlying(0)
    player:Teleport(map, x, y, z))
    player:AddItem (token, 1)
end

   if (player:GetItemCount(token) > 5) then
    player:SoftDisconnect
end
end
RegisterServerHook(4, "OnJail")

[Lua] Starter System

Administrator — Thu, 29 Apr 2010 13:24:21 GMT

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

[Lua] Class Trainer, one click!

Administrator — Thu, 29 Apr 2010 13:22:34 GMT

So this is a class trainer I made which teaches all the spells of the character class. This is ment for level 80+ though as it teaches only the highest rank spells as I made this for an instant 80 pvp server. I have added a level 80 check if anyone plan on using it on a server were players start at level 1, but I have also uploaded a version without it if you want your players to be overpowered.

The script checks which spell talents you have learned and teaches you the highest rank of them, it also checks if you are horde or alliance for things such as Bloodlust/Heroism and mage portals.

Please let me know if I have managed to skip some spells somehow
The npc id is 80102, make a new npc with that id or change the script if you know how.

Class Trainer, 1k gold fee version:
http://pastebin.com/HWU7BFa2

Class Trainer, no fee version:
http://pastebin.com/GWcWF49W

Class Trainer, no fee or level check version:
http://pastebin.com/dUyfNnQt

I know there might be something similar to this out there, but I take 100% credit for this as I made this from scratch and added the spells manually, I diden't keep track of time but I used atleast 5-6+ hours on this.

СОЗДАННЫЙ БОСС

Administrator — Thu, 29 Apr 2010 13:22:16 GMT

http://pastebin.com/sYeMMqFA

http://filebeam.com/48f7ea21ea72244c15dc6b098e9d2035

C++ & SQL Teleporer,Buff NPC, Prof NPC, For Trinity/MaNGOS

Administrator — Thu, 29 Apr 2010 13:21:58 GMT

Heya folks, now I am releasing a custom Teleporter, Buffer NPC, Profession leveler NPC. Its C++ and SQL source you must enter to your Core and DB. I will include a guide how to add them for noobs but it will take time, I want to make it with pictures

Credits: ScriptDev2 team, AwkwardDev.

скачать

Lua Release Boss Script

Administrator — Thu, 29 Apr 2010 13:21:42 GMT

Ok i have Released another one this one is preset for you Please have fun and Enjoy.I tried really hard to make sure it was set right this time

http://pastebin.com/YknzZpzL

Suicide Teleporter! [Lua]

Administrator — Thu, 29 Apr 2010 13:21:24 GMT

This teleporter is for funservers. It gives palyer fun ways to kill themselves! (i know, i know, it's terrible)

Lua Script: http://pastebin.com/yH3Gga77

Mangos Sql NPC download: http://www.mediafire.com/?w2mlynmztmw

Ascent Sql NPC download: http://www.mediafire.com/?mzkmykmimmk

Arcemu Rev> 2976 Sql NPC download:
http://www.mediafire.com/?zknzqyye1ue

Arcemu Rev< 2976 Sql NPC download:
http://www.mediafire.com/?jhjmxygzgyy

Aspire Sql NPC download: http://www.mediafire.com/?nyzjnifnjox

Enjoy, and please give me feedback!

Lua Release

Administrator — Thu, 29 Apr 2010 13:21:05 GMT

its not much but i did do it my self i havent tested it yet so if some 1 wants to feel free please tell me if you like it i'll release some more soon.

Fixed also added 1 thing feel free to edit it to what ever for the Yell Text and Sound ID

http://pastebin.com/8RwsUUkW

[Lua]Boss First script

Administrator — Thu, 29 Apr 2010 13:20:48 GMT

Форум: LUA Скрипты
Автор темы: Administrator
Автор последнего сообщения: TKach
Количество ответов: 0

[C++] Patch to 3.3.3!

Administrator — Thu, 29 Apr 2010 13:20:27 GMT

Hey guys.

I was roaming on the arcemu forums and I found this interesting release.
I looked into the code and it has some fixes. Like the authenications
(FOR THE CHARACTERS)

DBCStores, (So it saves gameobjects, npc's and such.)
Bg, Titlesystem and much more.

This patch is NOT made by me. I only tested it

http://rapidshare.com/files/374293082/3.3.3.patch

http://www.mediafire.com/?mimemzdjoxd

http://www.megaupload.com/?d=PVYU5KYL

[Lua] All-in-One NPC Script (v2) --UPDATED--

Administrator — Thu, 29 Apr 2010 13:20:08 GMT

- Teleports you to the mall and to instances
- Maxes out all of your skills
- Resets talents
- Changes the weather
- Buffs you
- Heals you
- Removes Resurrection Sickness
- Lets you hear any sound (that you know the id of).
- Teaches you all of your class spells
- Teaches all profession with one click
- Teaches you riding and gives all mounts
- Exalts you with all factions
- Acts as an innkeeper

рев 2 http://pastebin.com/ga29ptQr
рев 1 http://filebeam.com/d1b60d42a8dba5749162482318cd8ca0

[EPIC RELEASE] L70ETC Band LUA -Noob Friendly-

Administrator — Thu, 29 Apr 2010 13:19:51 GMT

Hello and good day to everyone. this is my first release, I hope you enjoy!. The Download link is at the bottom!

just for everyone to know..this is ArcEmu capable, I made this with revision 2490

There is a VIDEO down below if u want to see the script in action

The Script is pretty simple..but VERY VERY awesome for server events.

-----What does it do?-------

Simple...the Band "L70ETC" Plays the song "The Power Of The Horde" and really does the vocals (the singer is tuned with the song and will yell out the lyrics)

and u can ACTUALLY hear the song (everyone in the area)

------Was it hard to script this?------

Kinda..I added special FX to it to make it really cool (added random spells and gameobject spawns during the show)

The Total line goes to about 1,200 Lines of LUA scripting (about 5 hours to do)

------Can we see the script in action?-----

Yes you can see the video with the link below.

>>>L70ETC LUA SCRIPTED BAND VIDEO<<<

-----Screenshots?----
$IMAGE1$

скачать

[Preview]C'thun script![.lua]

Administrator — Thu, 29 Apr 2010 13:19:28 GMT

Im try to script it like on a Blizz server, but for now i can tell you, 2 things NOT gonna work:
In phase 1 the Dark Glare
In Phase 2 The stomach event - Maybe i can do, not sure yet
Im gonna try to fill something cool encounters instead of these Check out my Video, where you can see the Summoning of C'thun (Not complete yet)
http://www.youtube.com/watch?v=gjUccyKiigA (the video is still on processing...) What show the video? There is a npc Called Vek'nilash (Random or maybe some lore?), who is controlled by C'thun. If he dies, there will be an npc spawn, called Spikwitmi (You dont know where the name come from? Try say it "Speak with me") Who gonna go tho the Altar, and summon the Old god...Unfortuanatly, the Old God kills him.
So, what do you think?:> (yea i know my english is $uck)
Update: Now the summoner npc (Spikwitmi) is untargetable, (now cant see, the spell what he casting is evocation)
Spikwitmi summon-event updated: Now after he reach the altar (Where he died in the video) only summon the portal, after that, walk down, and after that he got some epic-visual effect+spell damage visuals, and then he die
C'thun: Now not only the eye+the portal got summoned, there is the body. The body and the portal is untargetable.
C'thun first phase is almost fully scripted, he spawn in every 45 sec the eye tentacles (They use mindflay+ground rupture - only who stand too close) and in every 20 sec he spawn at a random player location a Claw tentacle (Ground rupture+harmstring). Dark glare is not in the script yet. I can't script the dark glare, because some Lua engine error (With the setOrientation or SetFacing i got instant dc). Im going to make something instead (My idea is c'thun spawn a mob, who cast in a very short range something aoe, and move around c'thun, so it will be like the Dark Glare)
Encounter update: When the raid wipes, everything got despawned, and the evil guy (Vek'nilash) who summon the summoner npc after he died now will spawn, so you can start over the whole encounter!
Update: Phase 1 fully scripted! Dark Glare added! so, how works the Dark Glare? In every 60 sec, C'thun stop casting, summon everything, and attacking. He summon an untargetable npc, who go half around c'thun. The npc select the closest target, and if he is too close, he will die instantly. After the npc reach the altar (where Spikwitmi died) he will despawn. (there is some bug, sometimes the npc is still there, but the instant-kill thing is ended, so you dont will die if you get too close Until i fix this, he change only form, so you cant see him.)
Phase 2 scripting started!
Update2: Fixed the bug with the spawned npc's, now they will attack you. Still, somewhy they dont cast some visual effect (the portal). Im trying to fix this (Im pretty sure its some Lua bug)
Flesh tentacles added, and spawned when the 2nd phase start! Still working on the rest of the event.
Some bad news: My computer died, so i have to reinstall it, with i lose my wow (I still have the scripts, so thats not problem). 1-2 day and im gonna start again the work
Update3: My computer is back, patching is done, so i started the scripting again The Giant Claw Tentacles already done. Still working on the stomach event. The portal of the stomach (what with you can port out) is done, only some effect needed (knock up when you step on it, and when you teleport to c'thun) So it will be fun!

[Lua] Jail system.

Administrator — Thu, 29 Apr 2010 13:18:59 GMT

Jail system.

I saw a lot of ppl asking for a jail system so I made one.
This will be version 1, I will make a version 2 later on when I have more time.

In this version you can jail a player by using:
#jailchar name min

Remove a char from jail by using:
#unjailchar name

And players can check their jail status (When you are jailed it will show you the time you still have to be in it.) by using:
#jailstatus

In the next version I will add the ability to jail accounts.
Adding some colors, and maybe adding a feature to jail ip's.

This script uses a DB table you can find the query at the top of the script. Remember to put it in the char DB!!

Grandelf! =]
Script: http://pastebin.com/RBkRNmva

Instant Revive!

Administrator — Thu, 29 Apr 2010 13:17:36 GMT

Alright this is my newest script, listed below are what this script does.

What is does!

When the player dies it instantly revives them. Simple as that.

http://pastebin.com/76RgjvTq

[Release] Global Chat System (UPDATED!)

Administrator — Thu, 29 Apr 2010 13:16:11 GMT

The script has now been updated ! Read below for more info!

This is for ArcEmu

The following features is now added:

Chat admins. Those can be promoted by an admin and demoted again aswell.

You can choose your own watermark for those Chat admins.

The spam filter can now be customized.

Added an instant messaging system. This is still beta and will only work as it should when the player is in a guild.

You no longer have to type ban or mute durations. They do now automatically reset to 0 if nothing else is passed.

I also added a few more nil checks.

You can always find the newest script here.

If you had V.2 you should run this query to you world database:

Code:

ALTER TABLE `global_chat` ADD `Chat_admin` TINYINT(1) UNSIGNED NOT NULL AFTER `Activated` ;

otherwice you should run this into you world database:

Code:

CREATE TABLE `global_chat` ( 
 `Account_Name` varchar(50) character set utf8 collate utf8_unicode_ci NOT NULL, 
 `Activated` tinyint(1) unsigned default '1', 
 `Warnings` tinyint(1) unsigned default '0', 
 `Banned` tinyint(1) unsigned default '0', 
 `Spam_warns` tinyint(3) unsigned default '0', 
 `Ban reason` text character set utf8 collate utf8_bin NOT NULL, 
 `Ban_Time` bigint(20) unsigned default '0' COMMENT '0 and 1 in ban for perm', 
 `GM_muted` TINYINT(1) UNSIGNED DEFAULT '0', `Mute_time` BIGINT(20) UNSIGNED DEFAULT '0', 
 `muted list` longtext character set utf8 collate utf8_unicode_ci NOT NULL, 
 `Chat_admin` TINYINT(1) UNSIGNED NOT NULL, 
 UNIQUE KEY `Account_Name` (`Account_Name`) 
 )

I hope you will find this usefull I will keep this post updated as I come up with ideas to add. If you have some feel free to post them here and I will take a look at it

COMMANDS:

Code:

#chat kick (player name) -- starts a vote-kick against the player with the name. If there is most "Yes" the player is kicked for 5 min.

#chat on/off -- Turns the global chat on/off

#chat ignore (player name) -- Ignores the player with name

#chat unignore (player name) -- unignores the player with name.

#chat ignorelist -- shows you a list of players you have ignored.

#chat instant on/off -- Turns the instant messenger system on or off. When the system is turned on you can use the global chat directly from the guild chat :)

ADMIN:

Code:

 
 ------ Server Admin and Chat Admin commands ------   
 .chat ban (acc name) (duration) -- This will ban the player with account(he cant use or see whats said in the chat). Duration is entered in seconds. 
 .chat mute (acc name) (duration) -- Same as above this will just make the player with account name unable to talk in the chat, but he can still see whats said. 
 .chat unmute (acc name) -- This will unmute the player with account 
 .chat unban (acc name) -- This will unban the player with account. 
  
 ----- Server admins only! ----- 
  
 .chat setadmin (acc name) -- this will promote the player to an admin of the chat. 
 .chat desetadmin (acc name) -- this will demote the admin back to normal player rank.

Notice that those admins only will have the ability to ban/mute/unban and unmute players from the chat! they wont have any other GM abilities.

As i've said before. All bugs and ideas should be replied to this post i will fix them as quick as i can or (for ideas) add them as quick as i can aswell

For Some Fun Servers

Administrator — Thu, 29 Apr 2010 13:15:48 GMT

For the people start with all Profesionals for 2.4.3.
ArcEmu
Download: http://www.mediafire.com/?h2jo50giocm
Have Fun!
DataBase379

[lua] Simple lifetimekills rewarder

Administrator — Thu, 29 Apr 2010 13:15:22 GMT

http://pastebin.com/1taUfqtM

Simple script and it's self explanatory, just put the npc in the top.
Screens:

[Mega Release] Trial of the Crusader blizzlike!! (incomplete

Administrator — Thu, 29 Apr 2010 13:14:33 GMT

Trial of the Crusader Blizzlike Script

Requires LuaHypArc

Code:

Fixed the Dreadscale and Acidmaw death event bug, so right now, i'm scripting the PVP events.

Hello ac-web I am working on a hmm up to 90% at least blizzlike trial of the crusader script.

Including:

The floor!

A script in the SQL to include the floor for trial of the crusader.

Worldmap_info and areatriggers fixes

So players can enter and exit the instance, for the worldmap_info fix, there is one fix, if you already have ToC in your database, run the update for it instead. See the "fix areatriggers and worldmap info" section of the SQL.

Chat Events

The Lich King spawns and break the floor so players fall down before last boss

Anub'arak yells things when players hit the water

Highlord Tirion Fordring talks before each bossfight

And everything else.

Gossip NPCs

Working to 100% for every boss. Function to check if there are horde or alliance players that is starting the boss event.

Horde/Alliance drops

On gossip npcs there is a function to check if the players is horde/alliance.

If horde - spawns a boss with horde drops

If alliance - spawns a boss with alliance drops

Boss AIs

Around 95% blizzlike, since some spells and other things doesn't work.

100% Correct Sound IDs

Think 95% or so correct texts also for chat events. If you find something incorrect, please post a reply and i will correct it.

IMPORTANT

I've forgot to add two gameobjects in the SQL. They are used for Gormok and Jaraxxus's AIs.

Code:

insert into gameobject_names (`entry`, `Type`, `DisplayID`, `Name`) values 
 ('34801', '5', '4452', 'Gormok - Fire'); 
 insert into gameobject_names (`entry`, `Type`, `DisplayID`, `Name`) values 
 ('34802', '5', '4452', 'Jaraxxus - Fire');

Downloads

Scripts pack - 2/5 bosses completed.

SQL

password: acweb

SQL Is finally done!

Download here.

Password: acweb

The SQL has been tested and it worked fine for me.

Credits:

HyperSniper for the LuaHypArc engine.

kjanko for helping out with Dreadscale and Acidmaw's deaths events.

Me for everything else.

[Epic] one click get all mounts

Administrator — Thu, 29 Apr 2010 13:14:14 GMT

hey guys i've made a lua file which will give you all mounts (as spells) with one click

Code

local Npc_Id = 500012

function MountNPC_OnGossip(Unit, Event, player)
      Unit:GossipCreateMenu(50, player, 0)
   Unit:GossipMenuAddItem(0,"Get All Mounts",1,0)
   Unit:GossipMenuAddItem(0,"Nevermind",999,0)
   Unit:GossipSendMenu(player)
end

function MountNPC_OnSelect(pUnit,event,player,id,intid,code)
if (intid == 1) then
   player:LearnSpell(61294)
   player:LearnSpell(26056)
   player:LearnSpell(39798)
   player:LearnSpell(17465)
   player:Learn Spell(32245)
   player:LearnSpell(48025)
   player:LearnSpell(59797)
   player:LearnSpell(59799)
   player:LearnSpell(17459)
   pl ayer:LearnSpell(63956)
   player:LearnSpell(63636)
   player:LearnSpell(17450)
   player:LearnSpell(65917)
   player:LearnSpell(6130 9)
   player:LearnSpell(55531)
   player:LearnSpell(60424)
   player:LearnSpell(44744)
   player:LearnSpell(63796)
   player:Learn Spell(16084)
   player:LearnSpell(66846)
   player:LearnSpell(41513)
   player:LearnSpell(69395)
   player:LearnSpell(63640)
   pl ayer:LearnSpell(16082)
   player:LearnSpell(32345)
   player:LearnSpell(472)
   player:LearnSpell(60021)
   player:LearnSpell(35711)
   player:LearnSpell(35018)
   player:LearnSpell(41516)
   player:LearnSpell(39801)
   player:LearnSpell(23246)
   player:LearnSp ell(66090)
   player:LearnSpell(41252)
   player:LearnSpell(61997)
   player:LearnSpell(59570)
   player:LearnSpell(34795)
   play er:LearnSpell(10873)
   player:LearnSpell(59961)
   player:LearnSpell(26054)
   player:LearnSpell(39800)
   player:LearnSpell(17462)
   player:LearnSpell(22722)
   player:LearnSpell(16080)
   player:LearnSpell(67336)
   player:LearnSpell(30174)
   player:LearnSp ell(17481)
   player:LearnSpell(63963)
   player:LearnSpell(64731)
   player:LearnSpell(66087)
   player:LearnSpell(39802)
   play er:LearnSpell(39317)
   player:LearnSpell(34898)
   player:LearnSpell(63642)
   player:LearnSpell(32240)
   player:LearnSpell(42776)
   player:LearnSpell(10789)
   player:LearnSpell(23510)
   player:LearnSpell(63232)
   player:LearnSpell(66847)
   player:LearnSp ell(8394)
   player:LearnSpell(10793)
   player:LearnSpell(66088)
   player:LearnSpell(66091)
   player:LearnSpell(68057)
   playe r:LearnSpell(32242)
   player:LearnSpell(23241)
   player:LearnSpell(43900)
   player:LearnSpell(23238)
   player:LearnSpell(23229)
   p layer:LearnSpell(23250)
   player:LearnSpell(65646)
   player:LearnSpell(23221)
   player:LearnSpell(23239)
   player:LearnSpell(656 40)
   player:LearnSpell(23252)
   player:LearnSpell(32290)
   player:LearnSpell(35025)
   player:LearnSpell(23225)
   player:Lear nSpell(32295)
   player:LearnSpell(68056)
   player:LearnSpell(23219)
   player:LearnSpell(65638)
   player:LearnSpell(37015)
   p layer:LearnSpell(23242)
   player:LearnSpell(23243)
   player:LearnSpell(23227)
   player:LearnSpell(33660)
   player:LearnSpell(322 92)
   player:LearnSpell(35027)
   player:LearnSpell(65644)
   player:LearnSpell(32297)
   player:LearnSpell(24242)
   player:Lear nSpell(32289)
   player:LearnSpell(65639)
   player:LearnSpell(32246)
   player:LearnSpell(42777)
   player:LearnSpell(23338)
   p layer:LearnSpell(23251)
   player:LearnSpell(65643)
   player:LearnSpell(35028)
   player:LearnSpell(46628)
   player:LearnSpell(232 23)
   player:LearnSpell(23240)
   player:LearnSpell(23228)
   player:LearnSpell(23222)
   player:LearnSpell(32296)
   player:Lear nSpell(49322)
   player:LearnSpell(24252)
   player:LearnSpell(39318)
   player:LearnSpell(34899)
   player:LearnSpell(32243)
   p layer:LearnSpell(18992)
   player:LearnSpell(63641)
   player:LearnSpell(580)
   player:LearnSpell(60002)
   player:LearnSpell(61447 )
   player:LearnSpell(61425)
   player:LearnSpell(44151)
   player:LearnSpell(65642)
   player:LearnSpell(10796)
   player:LearnS pell(59571)
   player:LearnSpell(17454)
   player:LearnSpell(49193)
   player:LearnSpell(64659)
   player:LearnSpell(41517)
   pla yer:LearnSpell(41518)
   player:LearnSpell(60024)
   player:LearnSpell(10799)
   player:LearnSpell(64657)
   player:LearnSpell(15779 )
   player:LearnSpell(54753)
   player:LearnSpell(6898)
   player:LearnSpell(39319)
   player:LearnSpell(65645)
   player:LearnSp ell(16083)
   player:LearnSpell(34897)
   player:LearnSpell(54729)
   player:LearnSpell(16081)
   player:LearnSpell(17229)
   play er:LearnSpell(59793)
   player:LearnSpell(59791)
   player:LearnSpell(46197)
   player:LearnSpell(46199)
   player:LearnSpell(26055)
   player:LearnSpell(60025)
   player:LearnSpell(43688)
   player:LearnSpell(16056)
   player:LearnSpell(66906)
   player:LearnSpell(638 44)
   pl ayer:LearnSpell(67466)
   player:LearnSpell(66907)
   player:LearnSpell(61230)
   player:LearnSpell(60114)
   player:LearnSpell(60116)
   pl ayer: LearnSpell(61229)
   player:LearnSpell(40192)
   player:LearnSpell(59567)
   player:LearnSpell(41514)
   player:LearnSpell(51412)
   player: Learn Spell(58983)
   player:LearnSpell(22719)
   player:LearnSpell(59650)
   player:LearnSpell(35022)
   player:LearnSpell(16055)
   player:Learn Spell (59976)
   player:LearnSpell(26656)
   player:LearnSpell(17461)
   player:LearnSpell(64977)
   player:LearnSpell(470)
   player:LearnSpell(6 0118)
   player:LearnSpell(60119)
   player:LearnSpell(48027)
   player:LearnSpell(22718)
   player:LearnSpell(59785)
   player:LearnSpell (59788)
   pl ayer:LearnSpell(22720)
   player:LearnSpell(22721)
   player:LearnSpell(22717)
   player:LearnSpell(22723)
   player:LearnSpell(22724)
   pl ayer: LearnSpell(64658)
   player:LearnSpell(61996)
   player:LearnSpell(59568)
   player:LearnSpell(35020)
   player:LearnSpell(10969)
   player: Learn Spell(59996)
   player:LearnSpell(25953)
   player:LearnSpell(39803)
   player:LearnSpell(17463)
   player:LearnSpell(64656)
   player:Learn Spell (32244)
   player:LearnSpell(50869)
   player:LearnSpell(43899)
   player:LearnSpell(59569)
   player:LearnSpell(34406)
   player:LearnSpell (458)
   player:LearnSpell(18990)
   player:LearnSpell(6899)
   player:LearnSpell(17464)
   player:LearnSpell(6654)
   player:LearnSpell(5 8615)
   play er:LearnSpell(6648)
   player:LearnSpell(43927)
   player:LearnSpell(41515)
   player:LearnSpell(39315)
   player:LearnSpell(34896)
   playe r:Lea rnSpell(68188)
   player:LearnSpell(68187)
   player:LearnSpell(39316)
   player:LearnSpell(34790)
   player:LearnSpell(63635)
   player:Lea rnSpe ll(63637)
   player:LearnSpell(6653)
   player:LearnSpell(32239)
   player:LearnSpell(8395)
   player:LearnSpell(63639)
   player:LearnSpell (3670 2)
   player:LearnSpell(61451)
   player:LearnSpell(44153)
   player:LearnSpell(63643)
   player:LearnSpell(17460)
   player:LearnSpell(2350 9)
   p layer:LearnSpell(65439)
   player:LearnSpell(64927)
   player:LearnSpell(63638)
   player:LearnSpell(32235)
   player:LearnSpell(61465)
   p layer :LearnSpell(61467)
   player:LearnSpell(61470)
   player:LearnSpell(61469)
   player:LearnSpell(35710)
   player:LearnSpell(18989)
   player :Lear nSpell(6777)
   player:LearnSpell(35713)
   player:LearnSpell(49379)
   player:LearnSpell(23249)
   player:LearnSpell(65641)
   player:Learn Spell (23248)
   player:LearnSpell(35712)
   player:LearnSpell(35714)
   player:LearnSpell(65637)
   player:LearnSpell(23247)
   player:LearnSpell (1899 1)
   player:LearnSpell(17453)
   player:GossipComplete()
end

if (intid == 999) then
   player:GossipComplete()
   end
end

RegisterUnitGossipEvent(500012, 1, "MountNPC_OnGossip")
RegisterUnitGossipEvent(500012, 2, "MountNPC_OnSelect")

[Lua] Starter Gear

Administrator — Thu, 29 Apr 2010 13:13:54 GMT

http://pastebin.com/f7df1acfb

I know this can be done in SQL, but I thought I'd do it in Lua.

Basically all this does is give you Tier 9.5 armor and 4 bags on your first log in on the server.

to view the script (it was too long to post on here)

Credits: Zade749

PS: The script runs. I have tested that, but didn't have the chance to test the actual script

[Basic]My First Teleporter

Administrator — Thu, 29 Apr 2010 13:13:34 GMT

This Is My First Script/Teleporter ArcEmu Only

With Only 7 Locations To Go To

Alliance Mall

Horde Mall

Stormwind

Orgiammar

Dalaran

Outlands

Gurubashi

Just perfect for starting servers and especially if their pvp so they don't go anywhere else

Enjoy

Heres The Ally Mall

Horde Mall

Heres The Script http://pastebin.com/37U0gdh9

Don't Leech Remmber It Takes 5 seconds to say thank you

[LUA] Russian Roulette NPC

Administrator — Thu, 29 Apr 2010 13:13:13 GMT

This is an NPC I just made because I was bored.
It's pretty self-explanatory

What it does:
You just talk to it and it performs one of the 4 commands.
You will either live or die.
ENJOY!

Russian Roulette NPC: http://pastebin.com/a0N9hYFv

Lich King Blizzlike [ArcEmu]

Administrator — Thu, 29 Apr 2010 13:12:53 GMT

http://rapidshare.com/files/372864646/Lich_King.zip.html
http://www.megaupload.com/?d=EVCI2NA3
http://depositfiles.com/en/files/dynlulx0a
http://www.zshare.net/download/746830945cae3150/
http://www.badongo.com/file/21870247
http://uploading.com/files/7b6dcd8d/Lich%2BKing.zip/
http://www.mediafire.com/?2ignzltlmjz

MMO Base News - World of Warcraft

Sprut for DOos

Вывод текста

[LUA] Teleporter W/ Everything for 3.3!

Here is the Fix Boss script

Event system

[Ultra Release] Lua Stone Spawning Mall Vendors

Epic Release LUA Boss LUA and SQL

[*Epic Release*] The Lich King

[Lua Script] Illidan Boss Battle by Nadskap2

[RELEASE]Sindragosa

{Core Mod} Attack 0.00 Cap

[Lua]Simple Teleporter(First Script)

[C++][SQL]Fake Online Players

[Lua Pack] Auto-Announcer, Auto Jail System, Auto Rez/Buff

[Lua] Starter System

[Lua] Class Trainer, one click!

СОЗДАННЫЙ БОСС

C++ & SQL Teleporer,Buff NPC, Prof NPC, For Trinity/MaNGOS

Lua Release Boss Script

Suicide Teleporter! [Lua]

Lua Release

[Lua]Boss First script

[C++] Patch to 3.3.3!

[Lua] All-in-One NPC Script (v2) --UPDATED--

[EPIC RELEASE] L70ETC Band LUA -Noob Friendly-

[Preview]C'thun script![.lua]

[Lua] Jail system.

Instant Revive!

[Release] Global Chat System (UPDATED!)

For Some Fun Servers

[lua] Simple lifetimekills rewarder

[Mega Release] Trial of the Crusader blizzlike!! (incomplete

[Epic] one click get all mounts

[Lua] Starter Gear

[Basic]My First Teleporter

[LUA] Russian Roulette NPC

Lich King Blizzlike [ArcEmu]

[Epic Release] The Lich King