xx:x5 Event

[xilence01]

Can anyone got this kind of script? Or If anyone can make some script like this?

 

xx:x5 Event Mechanics

(00:05 - 23:55)

 

• A special mob (let's say poring) (10x) will spawn in prontera (random coords)
• It will spawn every xx:x5. example : 9:05, 9:15, 9:25 until 9:55.
• When the mob spawned it will announce : 10 Special Porings have spawned in Prontera.
• Then if someone kills it. it will announce : Xilence has killed a poring. 9 special porings left
• Then if the special mob is all killed. it will announce : All Special Porings have been killed.

Hope someone will share or make some kind of this script... THANK YOU!

[Mabuhay]

I believe you mean this: (from eA, i think)

 

just change this part:

OnHour02: //CHANGE THIS TO THE HOUR YOU WOULD LIKE THIS EVENT TO LOAD!
OnHour05:
OnHour09:
OnHour14:
OnHour17:
OnHour20:
OnHour23: 

 

to this:

OnClock<hour><minute>:

Edited June 6, 2013 by MrVandalBus

[Deleted User]

Tested, it works. but it really needs to re-optimized the code, however i have found out some errors, something script2.

And debug, found.

Poring_Summonerv3.txt

Hopefully it will be re-optimized.

[Khazou]

I tryed to build it in a better way.

 

//===== eAthena Script ================================================================================================================
//= Poring Summoner
//===== Created By: ===================================================================================================================
//= MoonlightRO
//===== Current Version: ==============================================================================================================
//= 1.2
//= 2.0
//===== Compatible With: ==============================================================================================================
//= TXT & SQL
//===== Link: ==============================================================================================================
//= http://www.eathena.ws/board/index.php?showtopic=236779
//===== Credits: ==============================================================================================================
// 1.2 - Myself
// 2.0 - Khazou
//===================================================================================================================
prontera,171,126,6	script	Poring Summoner#Event	49,{
	if(getgroupid() < 50) {
		if(!.Event){
			mes .npc$;
			mes "There is no Poring Summon Event on now.";
			}
			else {
				mes .npc$;
				mes "There is a Poring Summon Event on now!";
				mes "Location: " + .Map$;
				mes "Special Porings: " + .SpecialCount;
				mes "Normal Porings: " + .NormalPorings[0];
			}
			close;
	}
	else {
		mes .npc$;
		mes "Hi master !";
		next;
		set .@loop,1;
		while(.@loop){
			next;
			mes .npc$;
			mes "Please customize the Poring Summon Event:";
			next;
			switch(select("Item [" + getitemname(.ItemID) + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event:Leave")) {
				case 1:
					mes .npc$;
					mes "Which item would you like Special Porings to drop?";
					mes "Please input the item ID:";
					input .ItemID;
				break;
				case 2:
					mes .npc$;
					mes "How many Special Porings would you like me to summon?";
					input .SpecialPorings;
				break;
				case 3:
					mes .npc$;
					mes "How many Normal Porings would you like me to summon?";
					input .NormalPorings;
				break;
				case 4:
					mes .npc$;
					mes "Starting the event now...";
					donpcevent "Poring Summoner#Event::OnPoringStart";
				close;
				case 5:
					mes .npc$;
					mes "Ending the event now...";
					donpcevent "Poring Summoner#Event::OnEndEvent";
				close;
				case 6:
					mes .npc$;
					mes "Ok, bye.";
				close;
			}
		}
	}
	OnPoringStart:
		set .@rand, rand(1,11);
		set .Map$,.maplist$[.@rand];
		set .Event,1;
		monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner#Event::OnSpecialKill";
		monster .Map$,0,0,"Poring",1002,.NormalPorings,"Poring Summoner#Event::OnNormalKill";
		set .SpecialCount,.SpecialPorings;
		set .NormalCount,.NormalPorings;
		announce "The Poring Event has begun!",bc_all;
		announce "Location: " + .Map$,bc_all;
		announce "Special Porings: " + .SpecialPorings,bc_all;
		announce "Normal Porings: " + .NormalPorings,bc_all;
		sleep2 3600000; // 1 hour to clean all area
		if(.Event){
		announce "Poring Summoner has ended. No one killed the Porings.",bc_all;
		killmonster .Map$,"All";
		set .Event,0;
		}
	end;

	OnSpecialKill:
		set .SpecialCount,.SpecialCount-1;
		mapannounce .Map$,strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_yellow;
		getitem .ItemID,1;
		mapannounce .Map$,"Special Porings: " + .SpecialCount + " || Normal Porings: " + .NormalCount,bc_yellow;
		if(!.SpecialCount) goto OnEndEvent;
	end;

	OnNormalKill:
		set .NormalCount,.NormalCount-1;
		mapannounce .Map$,"Special Porings: " + .SpecialCount + " || Normal Porings: " + .NormalCount,bc_yellow;
		if(!.SpecialCount) goto OnEndEvent;
	end;

	OnEndEvent:
		if(.Event) announce "The Poring Summon Event is now over!",bc_all;
		killmonster .Map$,"All";
		set .Event,0;
		set .SpecialCount,0;
		set .NormalCount,0;
	end;

	OnInit:
		set .npc$,"[Poring Summoner]";
		setarray .maplist$[0],"2@shrine","prontlegend","warehouse","comodo","xmas","aldebaran","izlude","payon","geffen","morocc","prontera";
	end;
}

Enjoy