Upgrading Challenge Event

[Boom]

Hi! Just want to share something for the community! I've been helped a lot by others and by know, I am able to make my own scripts.

 

This is an Upgrading Challenge script, which is based on the Philippine ROs official event.

 

Basically, you need to upgrade a specific headgear and you can exchange it for a reward depending on the rate of refinement.

I've added an optional headgear reward in arrayed form which can be disabled if commented out.

 

Default headgear needed to be upgraded is the Ph.D Hat.

 

Changelogs

//= 1.0    Initial Script [boom]
//= 1.1 Used functions instead of labels
//= 1.2 Item rewarding and deletion of catalyst have been grouped (Player abuse)
//= 2.0 Used arrays for better item ID passing.
//= 2.1 Update NPC Name
//= 2.2 Deleted the Labels, used arrays instead [Euphy]

 

 

Please comment if there are bugs of any kind and if there are other suggestions, so I can update the script. Don't forget to say thanks! XD

event_uchallenge.txt

Edited October 20, 2013 by Boom

[Euphy]

There's no need to duplicate the labels "NINE", "EIGHT", and "SEVEN" (or use labels at all):

		mes "You can trade PH.D hats with the following quantity and refinement";
		next;

		set .@refine, 6 + select("5x +7 Ph.D Hats","4x +8 Ph.D Hats","3x +9 Ph.D Hats");
		setarray .@amount[7],5,4,3; // required number of hats

		if(countitem2(5012,1,.@refine,0,0,0,0,0) >= .@amount[.@refine]){
			mes .npcname$;
			mes "Thank you for bringing them! I have some super cool rewards for you!";
			next;
			mes .npcname$;
			mes "Which of the following headgear would you like to have?";
			next;
			for( set .@i,0; .@i < getarraysize(@HGLists); set .@i,.@i + 1 )
			set .@Menu$,.@Menu$ + getitemname(@HGLists[.@i])+ ":";

			set .@ChosenHG, select( .@Menu$ );
			set .@HG, .@ChosenHG - 1 ;
			set .@refine, 9;
			callfunc("uchallengehg", @HGLists[.@HG], .@refine); end;

		}
		mes .npcname$;
		mes "Sorry, but you haven't brought the complete set of PH.D Hats";
		close;

Also, not sure why you have @HGLists as a character array when everything else is scope.

Otherwise, nice job, keep scripting! c:

[Boom]

Hi Euphy! Thanks, I sure will continue on sharing scripts that I'll make. The comment you gave made the script more short. I don't usually dig in more to arrays because I usually mess it up. XD

 

Also, not sure why you have @HGLists as a character array when everything else is scope.

 

I didn't quite get this? Hmm.. Did i made a wrong type of array?

 

 

[Boom]

Updated the script. Cleaned some lines

Edited October 20, 2013 by Boom

[Cookie]

There's no need to duplicate the labels "NINE", "EIGHT", and "SEVEN" (or use labels at all):

		mes "You can trade PH.D hats with the following quantity and refinement";
		next;

		set .@refine, 6 + select("5x +7 Ph.D Hats","4x +8 Ph.D Hats","3x +9 Ph.D Hats");
		setarray .@amount[7],5,4,3; // required number of hats

		if(countitem2(5012,1,.@refine,0,0,0,0,0) >= .@amount[.@refine]){
			mes .npcname$;
			mes "Thank you for bringing them! I have some super cool rewards for you!";
			next;
			mes .npcname$;
			mes "Which of the following headgear would you like to have?";
			next;
			for( set .@i,0; .@i < getarraysize(@HGLists); set .@i,.@i + 1 )
			set .@Menu$,.@Menu$ + getitemname(@HGLists[.@i])+ ":";

			set .@ChosenHG, select( .@Menu$ );
			set .@HG, .@ChosenHG - 1 ;
			set .@refine, 9;
			callfunc("uchallengehg", @HGLists[.@HG], .@refine); end;

		}
		mes .npcname$;
		mes "Sorry, but you haven't brought the complete set of PH.D Hats";
		close;

Also, not sure why you have @HGLists as a character array when everything else is scope.

Otherwise, nice job, keep scripting! c:

Delete this post please. Didn't want to grave-dig.