Jump to content
  • 0
mrlongshen

Poring Summoner Manual to Fix Amount

Question

//===== Hercules Script =======================================//= Poring Summoner//===== Created By: ===========================================//= Mysterious//===== Current Version: ======================================//= 1.2//===== Link: =================================================//= Old - http://www.eathena.ws/board/index.php?showtopic=236779//===== Description: ==========================================//= Basically what this event does is summon a set of Normal//= and Special Porings. Normal Porings don't drop anything,//= Special Porings do.//=============================================================new_4-4,148,169,4	script	Poring Summoner	99,{mes "[Poring Summoner]";if(getgroupid() < 10) {	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) + "]: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 "How many Special Porings would you like me to summon?";			input .SpecialPorings;			goto Main;		case 3:			mes "How many Normal Porings would you like me to summon?";			input .NormalPorings;			goto Main;		case 4:			mes "Starting the event now...";OnMinute30: //Triggers at each new hour, so 1:30, 2:30, 3:30, 4:30 etc.	set $@ran, rand(1,7);	if ($@ran == 7) set .Map$,"dic_fild01";	if ($@ran == 6) set .Map$,"dic_fild02";	if ($@ran == 5) set .Map$,"izlude";	if ($@ran == 4) set .Map$,"payon";	if ($@ran == 3) set .Map$,"geffen";	if ($@ran == 2) set .Map$,"morocc";	if ($@ran == 1) set .Map$,"prontera";			set .Event,1;			monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner::OnSpecialKill";			monster .Map$,0,0,"Poring",1002,.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;			close;		case 5:			mes "Ending the event now...";			goto EndEvent;	}OnTimer216000000:	announce "Poring Summoner has ended. No one killed the Porings.",bc_all;	killmonster .Map$,"All";	set .Event,0;	stopnpctimer;	end;OnSpecialKill:	set .SpecialPorings[1],.SpecialPorings[1]-1;	announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;	getitem .ItemID,1;	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 EndEvent;	end;EndEvent:	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;	close;}

 

Hi everyone, as you can see, this script can entered manual item id, item amount, how many special poring and normal poring, my simple question is where to edit specific item id, item amount, special poring and normal poring. And the value are fix. Can someone edit it for me ? thanks

 

 
Edited by mrlongshen

Share this post


Link to post
Share on other sites

5 answers to this question

Recommended Posts

  • 0

Sorry I really don't understand what your problem is.

What do you want to do exactly? Cause the amount of monsters and the item Id can be set up by talking to the npc.

 

You want a default value?

Share this post


Link to post
Share on other sites
  • 0

Sorry I really don't understand what your problem is.

What do you want to do exactly? Cause the amount of monsters and the item Id can be set up by talking to the npc.

 

You want a default value?

 

Yeah, default value. if possible manual enter the vale and default value. If possible.. @@Alayne

Becoz every time I reload my script, the value will become null. Is that other things can make the value permanent ?

Edited by mrlongshen

Share this post


Link to post
Share on other sites
  • 0

Add:

 

OnInit:set .ItemID, 0;set .NormalPorings,10;set .SpecialPorings,5;end;

in the script.

Replace 0, 10 and 5 for the value you wanna have as default.

Share this post


Link to post
Share on other sites
  • 0

Add:

 

OnInit:set .ItemID, 0;set .NormalPorings,10;set .SpecialPorings,5;end;

in the script.

Replace 0, 10 and 5 for the value you wanna have as default.

 

can add at anywhere right ?

 

@@Alayne thanks done tested. its working.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.