Poring spawner

[mrlongshen]

//Made by Light from MoonlightRO
//Upload by uDe from NeutralRO
//Update and fix by Capuche ( http://rathena.org/board/user/5984-capuche/ )
//event,113,91,5	script	Poring Summoner	99,{
-	script	Poring Summoner	-1,{
OnInit:

  //---- NPC Config -----
  set .ItemID, 7539;
  set .SpecialPorings, 30;
  set .NormalPorings, 150;
  set .Map$, "morocc";
//setarray .Map$[0], "morocc";
//setarray .Map$[0], "lighthalzen","louyang","comodo","xmas","aldebaran","izlude","payon","geffen","morocc","prontera";
  //---------------------
  end;
  
OnWhisperGlobal:
mes "[Poring Summoner]";
if(getgmlevel() < 99) {
	if(.Event) mes "There is no Poring Summon Event on now.";
	else {
		mes "There is a Poring Summon Event on now!";
		mes "Location: " + .Map$;
		mes "Special Porings: " + .SpecialPorings[1];
		mes "Normal Porings: " + .NormalPorings[0];
	}
	close;
}
mes "Please customize the Poring Summon Event:";
Main:
next;
mes "[Poring Summoner]";
	switch(select("Item [" + getitemname(.ItemID) + "]:Location [" + .Map$ + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event")) {
		case 1:
			mes "Which item would you like Special Porings to drop?";
			mes "Please input the item ID:";
			input .ItemID;
			goto Main;
		case 2:
			mes "Which map would you like me to host this event?";
			input .Map$;
			goto Main;
		case 3:
			mes "How many Special Porings would you like me to summon?";
			input .SpecialPorings;
			goto Main;
		case 4:
			mes "How many Normal Porings would you like me to summon?";
			input .NormalPorings;
			goto Main;
		case 5:
			mes "Starting the event now...";
			donpcevent strnpcinfo(0) +"::Onstartevent";
			close;
		case 6:
			mes "Ending the event now...";
			donpcevent strnpcinfo(0) +"::Onendevent";
			close;
	}

OnMinute17:
	if ( .Event )
		donpcevent strnpcinfo(0) +"::Onendevent";// stop the event if already on
	donpcevent strnpcinfo(0) +"::Onstartevent";
	end;
Onstartevent:
	set .Event,1;
	monster .Map$,0,0,"Poring",1725,.SpecialPorings,"Poring Summoner::OnSpecialKill";
	monster .Map$,0,0,"Poring",1725,.NormalPorings,"Poring Summoner::OnNormalKill";
	set .SpecialPorings[1],.SpecialPorings;
	set .NormalPorings[1],.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;
	end;
	
OnSpecialKill:
	set .SpecialPorings[1],.SpecialPorings[1]-1;
	announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;
	getitem .ItemID,5;
	goto PoringCount;
OnNormalKill:
	set .NormalPorings[1],.NormalPorings[1]-1;
	goto PoringCount;
PoringCount:
	announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map;
	if(!.SpecialPorings[1]) goto Onendevent;
	end;
Onendevent:
	if(.Event) announce "The Poring Summon Event is now over!",bc_all;
	killmonster .Map$,"All";
	set .Event,0;
	set .SpecialPorings[1],0;
	set .NormalPorings[1],0;
	end;
}

morocc	mapflag	nowarp
morocc	mapflag	noteleport
morocc	mapflag	nomemo
morocc	mapflag	nosave	SavePoint
morocc	mapflag	nobranch
morocc	mapflag	noskill

 

how to use this script ? 

i means to configure ?

what should i type ? 

how to make its become npc and automated event ? 

[Skorm]

sir how to add an npc ? 

i means to gm configure the prize and maps ?

 

http://code.google.com/p/ea-addicts/downloads/detail?name=mvpspawner.txt&can=2&q=

[Skorm]

Before...

Onstartevent:

Add...

OnClock<hour><minute>:
	set .SpecialPorings,<MobID>;
	set .NormalPorings,<MobID>;
	set .Map$,"prontera";
	set .ItemID,<PrizeID>;

[mrlongshen]

Before...

Onstartevent:

Add...

OnClock<hour><minute>:
	set .SpecialPorings,<MobID>;
	set .NormalPorings,<MobID>;
	set .Map$,"prontera";
	set .ItemID,<PrizeID>;

 

sir how to add an npc ? 

i means to gm configure the prize and maps ?

[mrlongshen]

sir how to add an npc ? 

i means to gm configure the prize and maps ?

 

http://code.google.com/p/ea-addicts/downloads/detail?name=mvpspawner.txt&can=2&q=

 

ok thx