Tailss

Event's

Автор Tailss,

10 сообщений в этой теме

Опубликовано: · Жалоба

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

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

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

0

Поделиться сообщением

Ссылка на сообщение
Поделиться на других сайтах

Опубликовано: · Жалоба

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;
}

2

Поделиться сообщением

Ссылка на сообщение
Поделиться на других сайтах

Опубликовано: (изменено) · Жалоба 


//===== 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;
}

Изменено пользователем Shader
спойлер
2

Поделиться сообщением

Ссылка на сообщение
Поделиться на других сайтах

Опубликовано: · Жалоба

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

0

Поделиться сообщением

Ссылка на сообщение
Поделиться на других сайтах

Опубликовано: · Жалоба 


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.

2

Поделиться сообщением

Ссылка на сообщение
Поделиться на других сайтах

Опубликовано: · Жалоба 


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)

0

Поделиться сообщением

Ссылка на сообщение
Поделиться на других сайтах

Опубликовано: · Жалоба

А он не рабочий) Во певых 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");
..................................

0

Поделиться сообщением

Ссылка на сообщение
Поделиться на других сайтах

Опубликовано: · Жалоба

А он не рабочий) Во певых 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!

0

Поделиться сообщением

Ссылка на сообщение
Поделиться на других сайтах

Опубликовано: · Жалоба 


getmapmobs("guild_vs5");

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


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

1

Поделиться сообщением

Ссылка на сообщение
Поделиться на других сайтах

Опубликовано: · Жалоба 


getmapmobs("guild_vs5");

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


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

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

0

Поделиться сообщением

Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас
Перейти к списку тем Скрипты