Event's

Tailss · 8 февраля, 2012

Включу нубомод. Нужны эвенты : Нюк кубик, Атака порингов (лунатиков) , Найди правильного поринга, Цветочки ну и еще что нибудь из стандарта

Обыскал все, не найти нигде, жалко что архив рус-еа не остался

Помогите, за спасибку

Kubix! · 8 февраля, 2012

by [sanasol] вроде.


-	script	Event_Kubik	-1,{
OnInit:
callfunc "Walk_Off";
disablenpc "Виходимс";
end;
OnEventStartCUB:
killmonsterall "quiz_00";
set $@KUB,1;
announce "Начался набор людей на Супер кубик Ивент !",0;
sleep 15000;
announce "Продолжается набор людей на Супер кубик Ивент.Через 3 мин начало ивента !",0;
sleep 60000;
announce "Продолжается набор людей на Супер кубик Ивент.Через 2 мин начало ивента !",0;
sleep 60000;
announce "Продолжается набор людей на Супер кубик Ивент.Через 1 мин начало ивента !",0;
sleep 30000;
announce "Набор людей на Супер кубик Ивент закончен !",0;
if ( getareausers("quiz_00",10,131,27,100) <= 1 ) goto L_LMF;
set $@KUB,0;
areaannounce "quiz_00",4,131,27,100,"До начала выкидывания кубика осталось 30 секунд.Просим занять места на кубиках с цифрами !",0;
sleep 28000;
areaannounce "quiz_00",4,131,27,100,"Приготовились !!!",0;
sleep 2000;
callfunc "Main_function1";
end;
L_LMF:
announce "Ивент Супер кубик отменяется,ибо на ивент пришел только 1 игрок !",0;
sleep 5000;
areawarp "quiz_00",4,125,27,100,"prontera",155,177;
end;
}


function	script	Main_function2	{
if ( getareausers("quiz_00",10,131,27,100) == 0 ) {
announce "Конец Ивента Супер кубик.Победителей нету !",0;
stopnpctimer "Event_Kubik";
return;
end;
} 
if ( getareausers("quiz_00",10,131,27,100) == 1 ) {
areaannounce "quiz_00",4,131,27,100,"Выпало число - "+$@random,0;
announce "Конец Ивента Супер кубик.Есть 1 победитель !",0;
callfunc "Walk_On";
mapannounce "quiz_00","Заберите свой приз, и тогда сможете выйти !",0;
stopnpctimer "Event_Kubik";
enablenpc "Виходимс";
monster "quiz_00",5,108,"Приз в студию",1360,1;
sleep 5000;
areawarp "quiz_00",4,131,8,120,"prontera",155,177;
return;
end;
} else {
if ( getareausers("quiz_00",10,131,27,100) >= 2 ) {
areaannounce "quiz_00",4,131,27,100,"Выпало число - "+$@random,0;
areaannounce "quiz_00",4,131,27,100,"У вас 10 секунд,чтоб поменять позицию",0;
sleep 10000;
callfunc "Main_function1";
return;

}
}
}
function	script	Main_function1	{
set $@random,rand(1,6);
callfunc "Enable_k"+$@random;
callfunc "Enable_other";
callfunc "Main_function2";
return;
}

quiz_00,4,106,4	script	Виходимс	71,{
mes "[ Ивент Супер кубик ]";
mes "Подравляю с победой !!!";
next;
getitem 7227,1;
warp "SavePoint",0,0;
close;
}

function	script	Enable_other	{
//Все,кроме кубиков
areawarp "quiz_00",10,131,11,124,"quiz_00",7,122;
areawarp "quiz_00",12,129,26,126,"quiz_00",7,122;
areawarp "quiz_00",22,121,27,106,"quiz_00",7,122;
areawarp "quiz_00",10,121,17,108,"quiz_00",7,122;
areawarp "quiz_00",10,107,13,100,"quiz_00",7,122;
areawarp "quiz_00",14,105,17,100,"quiz_00",7,122;
areawarp "quiz_00",16,107,17,106,"quiz_00",7,122;
areawarp "quiz_00",18,111,21,102,"quiz_00",7,122;
areawarp "quiz_00",18,101,19,100,"quiz_00",7,122;
areawarp "quiz_00",22,101,25,100,"quiz_00",7,122;
areawarp "quiz_00",24,103,26,102,"quiz_00",7,122;
areawarp "quiz_00",26,105,27,104,"quiz_00",7,122;
areawarp "quiz_00",18,125,21,116,"quiz_00",7,122;
areawarp "quiz_00",20,115,21,114,"quiz_00",7,122;
areawarp "quiz_00",14,123,17,122,"quiz_00",7,122;
areawarp "quiz_00",14,125,15,124,"quiz_00",7,122;
areawarp "quiz_00",22,125,23,122,"quiz_00",7,122;
areawarp "quiz_00",26,125,27,122,"quiz_00",7,122;
return;
}

function	script	Enable_k1	{
//Кубики - 1
areawarp "quiz_00",12,125,13,124,"quiz_00",7,122;
areawarp "quiz_00",24,125,25,124,"quiz_00",7,122;
return;
}

function	script	Enable_k2	{
//Кубики - 2
areawarp "quiz_00",24,123,25,122,"quiz_00",7,122;
areawarp "quiz_00",20,101,21,100,"quiz_00",7,122;
return;
}

function	script	Enable_k3	{
//Кубики - 3
areawarp "quiz_00",22,105,23,104,"quiz_00",7,122;
areawarp "quiz_00",12,123,13,122,"quiz_00",7,122;
return;
}

function	script	Enable_k4	{
//Кубики - 4
areawarp "quiz_00",10,123,11,122,"quiz_00",7,122;
areawarp "quiz_00",18,113,21,112,"quiz_00",7,122;
return;
}

function	script	Enable_k5	{
//Кубики - 5
areawarp "quiz_00",18,115,19,114,"quiz_00",7,122;
areawarp "quiz_00",24,105,25,104,"quiz_00",7,122;
return;
}

function	script	Enable_k6	{
//Кубики - 6
areawarp "quiz_00",22,103,23,102,"quiz_00",7,122;
areawarp "quiz_00",14,107,15,106,"quiz_00",7,122;
areawarp "quiz_00",16,125,17,124,"quiz_00",7,122;
return;
}

function	script	Walk_Off	{
setcell "quiz_00",9,125,9,120,cell_walkable,0;
setcell "quiz_00",9,111,9,106,cell_walkable,0;
return;
}

function	script	Walk_On	{
setcell	"quiz_00",9,111,9,106,cell_walkable,1;
return;
}

Карласон · 8 февраля, 2012


//===== eAthena Script =======================================
//= Poring Event
//===== By: ==================================================
//= Wild Karrd, alexx
//===== Current Version: =====================================
//= 3.0
//===== Compatible With: =====================================
//= eAthena 12426
//===== Description: =========================================
//= Find correct poring Event
//===== Additional Comments: =================================
//= 3.0 Bug fixed and totaly modified [alexx]
//============================================================


-	script	poring_event_on	-1,{

Onclock0100:
Onclock0300:
Onclock0500:
Onclock0700:
Onclock0900:
Onclock1100:
Onclock1300:
Onclock1500:
Onclock1700:
Onclock1900:
Onclock2100:
Onclock2300:
	enablenpc "Poring Catcher";
	sleep 6000;
	announce "It's time to catch Porings!",bc_all,0xF49AC1;

}

-	script	poring_event_off	-1,{

Onclock0000:
Onclock0200:
Onclock0600:
Onclock0800:
Onclock1000:
Onclock1200:
Onclock1400:
Onclock1600:
Onclock1800:
Onclock2000:
Onclock2200:
	if ($@EventEnd == 0) {
		disablenpc "Poring Catcher";
		sleep 6000;
		announce "You're late. Catch Porings event is over...",bc_all,0xF49AC1;
	}

}

prontera,142,230,4	script	Poring Catcher	756,{

OnTouch:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Hellooo, "+strcharinfo(0)+"! I like to catch porings very much. Is is so fun!";
	next;
	menu "I wanna too!",L_enter,"Tell me more?",L_info,"I have some coins.",N_Shop,"I'm leaving... Bye.",L_bye;
	close;

L_enter:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Have fun!";
	next;
	if ($@PoringsSummoned == 0) {
		initnpctimer;
		donpcevent "Poringsummoner::OnSummon";
		set $@PoringsSummoned,1;
	}
	warp "poring_w01",100,100;
	end;

OnTimer600000:
	stopnpctimer;
	disablenpc "Poring Catcher";
	killmonster "poring_w01","All";
	set $@PoringsSummoned,0;
	mapwarp "poring_w01","prontera",137,234;
	announce "You're late. Catch Porings event is over...",bc_all,0xF49AC1;
	set $@EventEnd,1;
	end;

L_info:
	mes "[^2E3192Poring Catcher^000000]";
	mes "There are 100 different porings at the field.";
	mes "But only one of them is real, you have to find him.";
	mes "You will be rewarded with the coin and some present if be lucky.";
	mes "Goood luuck!";
	close;

L_coin:
	callsub S_BonusReward;
	end;

L_bye:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Bye-bye!";
	close;

OnInit:
	disablenpc "Poring Catcher";
	set $@PoringsSummoned,0;
	end;

OnWarp:
	initnpctimer;
	enablenpc "Poring Catcher";
	donpcevent "Poringsummoner::OnSummon";
	end;

N_Shop:
	mes "[^2E3192Poring Catcher^000000]";
	mes "That do you want to exchenge your coins on?";
	next;
	menu "Exchange on headgears",-,"Nothing",N_NVM;

	mes "[^2E3192Poring Catcher^000000]";
	mes "Headgears? Here is all i have...";
	next;
	menu "^000090Guild Recruiting Hat^000000 - 50PC",-,
	     "^000090Party Hat^000000 - 50PC",N_Hat2,
	     "^000090Boyfriend Hat^000000 - 50PC",N_Hat3,
	     "^000090Friend Hat^000000 - 50PC",N_Hat4,
	     "^000090Girlfriend Hat^000000 - 50PCs",N_Hat5,
	     "^000090Note Headphones^000000 - 100PC",N_Hat6,
		 "Ie?aai",N_NVM;

	mes "[^2E3192Poring Catcher^000000]";
	mes "Do you wanna exchange 50 Poring Coins on Guild Recruiting Hat?";
	next;
	menu "Yes",-,"No",N_NVM;
	if (countitem(7539) < 50) goto N_NeedCoins;
	mes "[^2E3192Poring Catcher^000000]";
	mes "Here, get yourGuild Recruiting Hat!";
	delitem 7539,50;
	getitem 5336,1;
	logmes "Chatch the Poring: Guild Recruiting Hat";
	close;
N_Hat2:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Do you wanna exchange 50 Poring Coins on Party Hat?";
	next;
	menu "Yes",-,"No",N_NVM;
	if (countitem(7539) < 50) goto N_NeedCoins;
	mes "[^2E3192Poring Catcher^000000]";
	mes "Here, get yourParty Hat!";
	delitem 7539,50;
	getitem 5337,1;
	logmes "Chatch the Poring: Party Hat";
	close;
N_Hat3:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Do you wanna exchange 50 Poring Coins on Boyfriend Hat?";
	next;
	menu "Yes",-,"No",N_NVM;
	if (countitem(7539) < 50) goto N_NeedCoins;
	mes "[^2E3192Poring Catcher^000000]";
	mes "Here, get yourBoyfriend Hat!";
	delitem 7539,50;
	getitem 5338,1;
	logmes "Chatch the Poring: Boyfriend Hat";
	close;
N_Hat4:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Do you wanna exchange 50 Poring Coins on Friend Hat?";
	next;
	menu "Yes",-,"No",N_NVM;
	if (countitem(7539) < 50) goto N_NeedCoins;
	mes "[^2E3192Poring Catcher^000000]";
	mes "Here, get yourFriend Hat!";
	delitem 7539,50;
	getitem 5339,1;
	logmes "Chatch the Poring: Friend Hat";
	close;
N_Hat5:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Do you wanna exchange 50 Poring Coins on Girlfriend Hat?";
	next;
	menu "Yes",-,"No",N_NVM;
	if (countitem(7539) < 50) goto N_NeedCoins;
	mes "[^2E3192Poring Catcher^000000]";
	mes "Here, get yourGirlfriend Hat!";
	delitem 7539,50;
	getitem 5346,1;
	logmes "Chatch the Poring: Girlfriend Hat";
	close;
N_Hat6:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Do you wanna exchange 100 Poring Coins on Note Headphones?";
	next;
	menu "Yes",-,"No",N_NVM;
	if (countitem(7539) < 100) goto N_NeedCoins;
	mes "[^2E3192Poring Catcher^000000]";
	mes "Here, get your Note Headphones!";
	delitem 7539,100;
	getitem 5151,1;
	logmes "Chatch the Poring: Note Headphones";
	close;

N_NeedCoins:
	mes "[^2E3192Poring Catcher^000000]";
	mes "You demand additional coins. Go and get some.";
	close;

N_NVM:
	mes "[^2E3192Poring Catcher^000000]";
	mes "As you wish...";
	close;

}

-	script	Poringsummoner	-1,{

OnSummon:
	initnpctimer;
OnTimer1000:
	mapannounce "poring_w01","5    ...",1;
	end;
OnTimer2000:
	mapannounce "poring_w01","4    ...",1;
	end;
OnTimer3000:
	mapannounce "poring_w01","3    ...",1;
	end;
OnTimer4000:
	mapannounce "poring_w01","2    ...",1;
	end;
OnTimer5000:
	mapannounce "poring_w01","1    ...",1;
	end;
OnTimer6000:
	stopnpctimer;
	mapannounce "poring_w01","LET'S GO!",1;
	areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"poringwin::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Pouring",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Proing",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Poiring",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Poing",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"I am not Poring",1002,5,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Gniriop",1002,1,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Poring",1113,1,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Poring",1062,1,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Poriiing",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"PoriNg",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Porong",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"poringlose::OnMobKilled";
	end;

}

-	script	poringwin	-1,{

OnMobKilled:
	dispbottom "Congradulations. You've got me.";
	set .@PoringItemVar,rand(10);
	if (.@PoringItemVar == 9) {
		getitem 617,1;
	}
	if (.@PoringItemVar >= 4 && .@PoringItemVar < 9) {
		getitem 603,1;
	}
	getitem 7539,1;
	killmonster "poring_w01","All";
	donpcevent "Poringsummoner::OnSummon";
	end;

}

-	script	poringlose	-1,{

OnMobKilled:
	dispbottom "Wahaha, you are looser!";
	percentheal -100,-100;
	sleep 1000;
	warp "prontera",137,234;
	end;

}

poring_w01	mapflag	nopenalty
poring_w01	mapflag	noloot
poring_w01	mapflag	noskill
poring_w01	mapflag	nowarpto
poring_w01	mapflag	nowarp
poring_w01	mapflag	noteleport
poring_w01	mapflag	nomemo
poring_w01	mapflag	nosave	SavePoint
poring_w01	mapflag	nobranch


-       script  mobevent        -1,{

OnClock1500:
        monster "prontera.gat",0,0,"Поринг",1002,144,"mobevent::OnPoriDeath"; // спавним простых порингов 144 штуки
        monster "prontera.gat",0,0,"Поринг",1063,5,"mobevent::OnPorinDeath"; // спавним 5 порингов из которых будет лететь Zeny
        monster "prontera.gat",0,0,"Поринг",1063,1,"mobevent::OnPoringDeath";// спавним поринга из которого будет падать TCG
        end;

OnPoriDeath:
        dispbottom "Вы убили поринга";
        close;

OnPorinDeath:
        announce "Поздравляем игрока "+strcharinfo(0)+"!Он убил призового поринга и получает в награду 500000 Zeny!",bc_all;
        set Zeny,Zeny + 500000;
        close;

OnPoringDeath:
        killmonsterall "prontera";
        announce "Поздравляем игрока "+strcharinfo(0)+"!Он убил главного поринга и получает в награду 1 TCG!",bc_all;
        getitem 7227,1;
        close;

}


-	script	poring_event_on	-1,{

Onclock0100:
Onclock0300:
Onclock0500:
Onclock0700:
Onclock0900:
Onclock1100:
Onclock1300:
Onclock1500:
Onclock1700:
Onclock1900:
Onclock2100:
Onclock2300:
	enablenpc "Poring Catcher";
	sleep 6000;
	announce "It's time to catch Porings!",bc_all,0xF49AC1;

}

-	script	poring_event_off	-1,{

Onclock0000:
Onclock0200:
Onclock0600:
Onclock0800:
Onclock1000:
Onclock1200:
Onclock1400:
Onclock1600:
Onclock1800:
Onclock2000:
Onclock2200:
	if ($@EventEnd == 0) {
		disablenpc "Poring Catcher";
		sleep 6000;
		announce "You're late. Catch Porings event is over...",bc_all,0xF49AC1;
	}

}

prontera,142,230,4	script	Poring Catcher	756,{

OnTouch:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Hellooo, "+strcharinfo(0)+"! I like to catch porings very much. Is is so fun!";
	next;
	menu "I wanna too!",L_enter,"Tell me more?",L_info,"I have some coins.",N_Shop,"I'm leaving... Bye.",L_bye;
	close;

L_enter:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Have fun!";
	next;
	if ($@PoringsSummoned == 0) {
		initnpctimer;
		donpcevent "Poringsummoner::OnSummon";
		set $@PoringsSummoned,1;
	}
	warp "poring_w01",100,100;
	end;

OnTimer600000:
	stopnpctimer;
	disablenpc "Poring Catcher";
	killmonster "poring_w01","All";
	set $@PoringsSummoned,0;
	mapwarp "poring_w01","prontera",137,234;
	announce "You're late. Catch Porings event is over...",bc_all,0xF49AC1;
	set $@EventEnd,1;
	end;

L_info:
	mes "[^2E3192Poring Catcher^000000]";
	mes "There are 100 different porings at the field.";
	mes "But only one of them is real, you have to find him.";
	mes "You will be rewarded with the coin and some present if be lucky.";
	mes "Goood luuck!";
	close;

L_coin:
	callsub S_BonusReward;
	end;

L_bye:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Bye-bye!";
	close;

OnInit:
	disablenpc "Poring Catcher";
	set $@PoringsSummoned,0;
	end;

OnWarp:
	initnpctimer;
	enablenpc "Poring Catcher";
	donpcevent "Poringsummoner::OnSummon";
	end;

N_Shop:
	mes "[^2E3192Poring Catcher^000000]";
	mes "That do you want to exchenge your coins on?";
	next;
	menu "Exchange on headgears",-,"Nothing",N_NVM;

	mes "[^2E3192Poring Catcher^000000]";
	mes "Headgears? Here is all i have...";
	next;
	menu "^000090Guild Recruiting Hat^000000 - 50PC",-,
	     "^000090Party Hat^000000 - 50PC",N_Hat2,
	     "^000090Boyfriend Hat^000000 - 50PC",N_Hat3,
	     "^000090Friend Hat^000000 - 50PC",N_Hat4,
	     "^000090Girlfriend Hat^000000 - 50PCs",N_Hat5,
	     "^000090Note Headphones^000000 - 100PC",N_Hat6,
		 "Ie?aai",N_NVM;

	mes "[^2E3192Poring Catcher^000000]";
	mes "Do you wanna exchange 50 Poring Coins on Guild Recruiting Hat?";
	next;
	menu "Yes",-,"No",N_NVM;
	if (countitem(7539) < 50) goto N_NeedCoins;
	mes "[^2E3192Poring Catcher^000000]";
	mes "Here, get yourGuild Recruiting Hat!";
	delitem 7539,50;
	getitem 5336,1;
	logmes "Chatch the Poring: Guild Recruiting Hat";
	close;
N_Hat2:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Do you wanna exchange 50 Poring Coins on Party Hat?";
	next;
	menu "Yes",-,"No",N_NVM;
	if (countitem(7539) < 50) goto N_NeedCoins;
	mes "[^2E3192Poring Catcher^000000]";
	mes "Here, get yourParty Hat!";
	delitem 7539,50;
	getitem 5337,1;
	logmes "Chatch the Poring: Party Hat";
	close;
N_Hat3:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Do you wanna exchange 50 Poring Coins on Boyfriend Hat?";
	next;
	menu "Yes",-,"No",N_NVM;
	if (countitem(7539) < 50) goto N_NeedCoins;
	mes "[^2E3192Poring Catcher^000000]";
	mes "Here, get yourBoyfriend Hat!";
	delitem 7539,50;
	getitem 5338,1;
	logmes "Chatch the Poring: Boyfriend Hat";
	close;
N_Hat4:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Do you wanna exchange 50 Poring Coins on Friend Hat?";
	next;
	menu "Yes",-,"No",N_NVM;
	if (countitem(7539) < 50) goto N_NeedCoins;
	mes "[^2E3192Poring Catcher^000000]";
	mes "Here, get yourFriend Hat!";
	delitem 7539,50;
	getitem 5339,1;
	logmes "Chatch the Poring: Friend Hat";
	close;
N_Hat5:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Do you wanna exchange 50 Poring Coins on Girlfriend Hat?";
	next;
	menu "Yes",-,"No",N_NVM;
	if (countitem(7539) < 50) goto N_NeedCoins;
	mes "[^2E3192Poring Catcher^000000]";
	mes "Here, get yourGirlfriend Hat!";
	delitem 7539,50;
	getitem 5346,1;
	logmes "Chatch the Poring: Girlfriend Hat";
	close;
N_Hat6:
	mes "[^2E3192Poring Catcher^000000]";
	mes "Do you wanna exchange 100 Poring Coins on Note Headphones?";
	next;
	menu "Yes",-,"No",N_NVM;
	if (countitem(7539) < 100) goto N_NeedCoins;
	mes "[^2E3192Poring Catcher^000000]";
	mes "Here, get your Note Headphones!";
	delitem 7539,100;
	getitem 5151,1;
	logmes "Chatch the Poring: Note Headphones";
	close;

N_NeedCoins:
	mes "[^2E3192Poring Catcher^000000]";
	mes "You demand additional coins. Go and get some.";
	close;

N_NVM:
	mes "[^2E3192Poring Catcher^000000]";
	mes "As you wish...";
	close;

}

-	script	Poringsummoner	-1,{

OnSummon:
	initnpctimer;
OnTimer1000:
	mapannounce "poring_w01","5    ...",1;
	end;
OnTimer2000:
	mapannounce "poring_w01","4    ...",1;
	end;
OnTimer3000:
	mapannounce "poring_w01","3    ...",1;
	end;
OnTimer4000:
	mapannounce "poring_w01","2    ...",1;
	end;
OnTimer5000:
	mapannounce "poring_w01","1    ...",1;
	end;
OnTimer6000:
	stopnpctimer;
	mapannounce "poring_w01","LET'S GO!",1;
	areamonster "poring_w01",84,119,121,90,"Poring",1002,1,"poringwin::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Pouring",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Proing",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Poiring",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Poing",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"I am not Poring",1002,5,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Gniriop",1002,1,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Poring",1113,1,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Poring",1062,1,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Poriiing",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"PoriNg",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Porong",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"P0ring",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Por1ng",1002,10,"poringlose::OnMobKilled";
	areamonster "poring_w01",84,119,121,90,"Porng",1002,1,"poringlose::OnMobKilled";
	end;

}

-	script	poringwin	-1,{

OnMobKilled:
	dispbottom "Congradulations. You've got me.";
	set .@PoringItemVar,rand(10);
	if (.@PoringItemVar == 9) {
		getitem 617,1;
	}
	if (.@PoringItemVar >= 4 && .@PoringItemVar < 9) {
		getitem 603,1;
	}
	getitem 7539,1;
	killmonster "poring_w01","All";
	donpcevent "Poringsummoner::OnSummon";
	end;

}

-	script	poringlose	-1,{

OnMobKilled:
	dispbottom "Wahaha, you are looser!";
	percentheal -100,-100;
	sleep 1000;
	warp "prontera",137,234;
	end;

}

poring_w01	mapflag	nopenalty
poring_w01	mapflag	noloot
poring_w01	mapflag	noskill
poring_w01	mapflag	nowarpto
poring_w01	mapflag	nowarp
poring_w01	mapflag	noteleport
poring_w01	mapflag	nomemo
poring_w01	mapflag	nosave	SavePoint
poring_w01	mapflag	nobranch

Вот ещё.


prontera.gat,0,0,0	script	MvPrAnDoMsPawN	-1,{
OnInit:
setarray $MvPz[0],1022,1038,1039,1046,1059,1086,1087,1112,1115,1147,1150,1157,1159,1190,1251,1252,1272,1312,1373,1389,1418,1492,1511,1583,1623,1630,1685,1688,1719,1646,1647,1648,1649,1650,1651,1658,1708,1734,1751;
setarray $T0wNz$[0],"prontera,gat","alberta.gat","aldebaran.gat","amatsu.gat","comodo.gat","geffen.gat","izlude.gat","hugel.gat","lighthatzen.gat","louyang.gat","morocc.gat","payon.gat","umbala.gat","xmas.gat","yuno.gat","rachel.gat","einbech.gat","einbroch.gat","ayothaya.gat";
end;
OnClock0000:
OnClock0600:
OnClock1200:
OnClock1800:
set .@mvpsummon,$MvPz[rand(getarraysize($MvPz))];
set .@t0wn$,$T0wNz$[rand(getarraysize($T0wNz$))];
if(.@t0wn$ == "prontera.gat"){ set .@t0wn2$,"Prontera"; }
if(.@t0wn$ == "alberta.gat"){ set .@t0wn2$,"Alberta"; }
if(.@t0wn$ == "amatsu.gat"){ set .@t0wn2$,"Amatsu"; }
if(.@t0wn$ == "comodo.gat"){ set .@town2$,"Comodo"; }
if(.@t0wn$ == "geffen.gat"){ set .@t0wn2$,"Geffen"; }
if(.@t0wn$ == "izlude.gat"){ set .@t0wn2$,"Izlude"; }
if(.@t0wn$ == "hugel.gat"){ set .@t0wn2$,"Hugel"; }
if(.@t0wn$ == "lighthatzen.gat"){ set .@t0wn2$,"Lighthalzen"; }
if(.@t0wn$ == "louyang.gat"){ set .@t0wn2$,"Louyang"; }
if(.@t0wn$ == "morocc.gat"){ set .@t0wn2$,"Morocc"; }
if(.@t0wn$ == "payon.gat"){ set .@t0wn2$,"Payon"; }
if(.@t0wn$ == "umbala.gat"){ set .@t0wn2$,"Umbala"; }
if(.@t0wn$ == "xmas.gat"){ set .@t0wn2$,"Lutie"; }
if(.@t0wn$ == "yuno.gat"){ set .@t0wn2$,"Yuno"; }
if(.@t0wn$ == "rachel.gat"){ set .@t0wn2$,"Rachel"; }
if(.@t0wn$ == "einbech.gat"){ set .@t0wn2$,"Einbech"; }
if(.@t0wn$ == "einbroch.gat"){ set .@t0wn2$,"Eibroch"; }
if(.@t0wn$ == "ayothaya.gat"){ set .@t0wn2$,"Ayothaya"; }
monster ""+.@t0wn$+"",0,0,""+getmonsterinfo(.@mvpsummon,0)+"","+.@mvpsummon+",1,"MvPrAnDoMsPawN::OnThisMobDeath";
announce "FerRo: Опастность!"+getmonsterinfo(.@mvpsummon,0)+" атаковал город "+.@t0wn2$+". Нужен герой для спасения!",bc_all;
set $mvpsummon2,.mvpsummon;
end;
OnThisMobDeath:
announce "FerRo: "+strcharinfo(0)+" только что убил МВП EvilionRO!!",bc_all;
set $mvpsummon2,0;
}

Изменено 8 февраля, 2012 пользователем Shader
спойлер

Tailss · 8 февраля, 2012

Цветочки скиньте еще пожалуйста

Карласон · 8 февраля, 2012


prontera,0,0,0	script	announce	-1,{
end;
OnInit:

//Время в которое будет происходит аннонс
OnClock1230:
OnClock1430:
OnClock1630:
OnClock1830:


initnpctimer;
OnTimer0:
announce "В пронтере появился NPC - 'Event Flower'.",0,0x00ff00;
end;

OnTimer1000:
enablenpc "Event Flower";
announce "Эвент начнется через 1 минуту",0,0x00ff00;
end;

OnTimer60000:
stopnpctimer; //отключаем таймер
disablenpc "Event Flower";
monster "guild_vs5",0,0,"Event Flower",1083,150,"announce2::Onmobdead";
	end;
}
//ssss
guild_vs5,0,0,0	script	announce2	-1,{

Onmobdead:
	set $trava,getmapmobs("guild_vs5");
	set $trava, $trava - 1;
	set @z, @z + 1; // +1 моб
	if(@z == 21) {goto prize;
} // Кол-во мобов для Победы 21=20,31=30....
	if($trava < 10) {goto resp;
} // Проверка на Кол-во травы. Если мало Респим еще.
end;

resp:
monster "guild_vs5",0,0,"Event Flower",1083,150,"announce2::Onmobdead";
end;

prize:
	killmonster "guild_vs5","All";
	getitem 969,1; //12106,1
	end;
}

prontera,155,181,4	script	Event Flower	72,{
mes "Эвент начнётся после того как все участники будут зарегистрированны.";
mes "Ты хочеш принять участие?";
next;
mes "Хорошо, вы зарегистрированны";
mes "Хотите попасть в локацию эвента?";
next;
menu "Go",case1,"Информация",case2,"Забить 8)",case2;
case1:
set @z,1;
warp "guild_vs5",0,0;
close;
case2:
mes "[Евент Flower]";
mes "Я вызываю 150 Цветочков";
mes "Выиграет тот,";
mes "кто первым убьет 20 штук";
mes "Good Luck.";
close;
case3:
mes "[Event Flower]";
mes "Хорошо, приходите когда захотите.";
close;
}
guild_vs5	mapflag	noskill

Ну вот что-то типо этого

Копирайт: By Sanasol.

Fizik · 16 сентября, 2015


prontera,0,0,0	script	announce	-1,{
end;
OnInit:

//Время в которое будет происходит аннонс
OnClock1230:
OnClock1430:
OnClock1630:
OnClock1830:


initnpctimer;
OnTimer0:
announce "В пронтере появился NPC - 'Event Flower'.",0,0x00ff00;
end;

OnTimer1000:
enablenpc "Event Flower";
announce "Эвент начнется через 1 минуту",0,0x00ff00;
end;

OnTimer60000:
stopnpctimer; //отключаем таймер
disablenpc "Event Flower";
monster "guild_vs5",0,0,"Event Flower",1083,150,"announce2::Onmobdead";
	end;
}
//ssss
guild_vs5,0,0,0	script	announce2	-1,{

Onmobdead:
	set $trava,getmapmobs("guild_vs5");
	set $trava, $trava - 1;
	set @z, @z + 1; // +1 моб
	if(@z == 21) {goto prize;
} // Кол-во мобов для Победы 21=20,31=30....
	if($trava < 10) {goto resp;
} // Проверка на Кол-во травы. Если мало Респим еще.
end;

resp:
monster "guild_vs5",0,0,"Event Flower",1083,150,"announce2::Onmobdead";
end;

prize:
	killmonster "guild_vs5","All";
	getitem 969,1; //12106,1
	end;
}

prontera,155,181,4	script	Event Flower	72,{
mes "Эвент начнётся после того как все участники будут зарегистрированны.";
mes "Ты хочеш принять участие?";
next;
mes "Хорошо, вы зарегистрированны";
mes "Хотите попасть в локацию эвента?";
next;
menu "Go",case1,"Информация",case2,"Забить 8)",case2;
case1:
set @z,1;
warp "guild_vs5",0,0;
close;
case2:
mes "[Евент Flower]";
mes "Я вызываю 150 Цветочков";
mes "Выиграет тот,";
mes "кто первым убьет 20 штук";
mes "Good Luck.";
close;
case3:
mes "[Event Flower]";
mes "Хорошо, приходите когда захотите.";
close;
}
guild_vs5	mapflag	noskill

Ну вот что-то типо этого

Копирайт: By Sanasol.

|

А он не рабочий) Во певых mobcount надо, а во вторых not found announce2 on mobdead)

botka4aet · 16 сентября, 2015

А он не рабочий) Во певых mobcount надо, а во вторых not found announce2 on mobdead)

1)


..................................
monster "guild_vs5",0,0,"Event Flower",1083,150,"announce2::Onmobdead";
..................................
Onmobdead:
	    set $trava,getmapmobs("guild_vs5");
	    set $trava, $trava - 1;
	    set @z, @z + 1; // +1 моб
..................................

2)


..................................
guild_vs5,0,0,0 script  announce2	   -1,{
Onmobdead:
	    set $trava,getmapmobs("guild_vs5");
..................................

Fizik · 16 сентября, 2015

А он не рабочий) Во певых mobcount надо, а во вторых not found announce2 on mobdead)

1)


..................................
monster "guild_vs5",0,0,"Event Flower",1083,150,"announce2::Onmobdead";
..................................
Onmobdead:
	 set $trava,getmapmobs("guild_vs5");
	 set $trava, $trava - 1;
	 set @z, @z + 1; // +1 моб
..................................

2)


..................................
guild_vs5,0,0,0 script announce2	 -1,{
Onmobdead:
	 set $trava,getmapmobs("guild_vs5");
..................................

А я ещё раз говорю в РАТЕНЕ даже в доках нету команды getmapmobs!

Functor · 16 сентября, 2015


getmapmobs("guild_vs5");

нужно заменить на:


mobcount("guild_vs5", "announce2::Onmobdead");

Fizik · 16 сентября, 2015

getmapmobs("guild_vs5");
нужно заменить на:
mobcount("guild_vs5", "announce2::Onmobdead");

Воо) а я то думал чё он ругается )) а он ругался на то что я вписал алл вместо анонс2он моб дед)

Войти

Event's

Рекомендуемые сообщения

Tailss

Ссылка на комментарий

Поделиться на другие сайты

Kubix!

Ссылка на комментарий

Поделиться на другие сайты

Карласон

Ссылка на комментарий

Поделиться на другие сайты

Tailss

Ссылка на комментарий

Поделиться на другие сайты

Карласон

Ссылка на комментарий

Поделиться на другие сайты

Fizik

Ссылка на комментарий

Поделиться на другие сайты

botka4aet

Ссылка на комментарий

Поделиться на другие сайты

Fizik

Ссылка на комментарий

Поделиться на другие сайты

Functor

Ссылка на комментарий

Поделиться на другие сайты

Fizik

Ссылка на комментарий

Поделиться на другие сайты

Сайт

Активность