Add payment costume npc

kalabasa · February 13, 2021

Hi, rAthena. can someone add payment on this costume converter?

payment = costume ticket

// -------------------------------------------------------------------------------
// 	Script Name : Headgear to Costume converter >> Costume to Headgear converter
// -------------------------------------------------------------------------------
// Description :
// - Allows a user to convert the equipped headgear (on Top, Mid or Low) into a
//   costume item. It will remove any card and refine of the Item.
// - Allows a user to restore the equipped costume headgear (on Top, Mid or Low)
//   into its original form. It will not return any card or refine of the item.
// -------------------------------------------------------------------------------
function	script	costume	{
	[email protected]_name$ = getarg(0);
	disable_items;
	mes "["+ [email protected]_name$ +"]";
	mes "Here you can convert your headgears into a Costume Headgear or restore to its Original form.";
	next;

	switch(select("I want to convert.:I want to restore.:No thanks.")) {
	case 1:
		setarray [email protected][1], EQI_HEAD_TOP, EQI_HEAD_MID, EQI_HEAD_LOW;
		for ([email protected] = 1; [email protected]<=3; [email protected]) {
			if (getequipisequiped([email protected][[email protected]])) {
				[email protected]$ = [email protected]$ + F_getpositionname([email protected][[email protected]]) + "-[" + getequipname([email protected][[email protected]]) + "]";
				[email protected] = 1;
			}
			[email protected]$ = [email protected]$ + ":";
		}

		if ([email protected] == 0) {
			mes "["+ [email protected]_name$ +"]";
			mes "You need to wear headgears that I can costume...";
			close;
		}

		mes "["+ [email protected]_name$ +"]";
		mes "Please select what to convert.";
		mes "Remember, cards and refine will be removed.";
		next;

		[email protected] = [email protected][ select([email protected]$) ];
		if (!getequipisequiped([email protected])) {
			mes "["+ [email protected]_name$ +"]";
			mes "You're not wearing anything there...";
			close;
		}

		mes "["+ [email protected]_name$ +"]";
		mes "You want to Costume your " + getitemname(getequipid([email protected])) + "?";
		next;

		if (select("Yes, proceed:No, sorry.") == 2) {
			mes "["+ [email protected]_name$ + "]";
			mes "Need some time to think about it, huh?";
			mes "Alright, I can understand.";
			close;
		}

		costume [email protected]; // Convert the Headgear

		mes "["+ [email protected]_name$ +"]";
		mes "Done, enjoy your costume headgear.";
		close;
	case 2:
		setarray [email protected][1], EQI_COSTUME_HEAD_TOP, EQI_COSTUME_HEAD_MID, EQI_COSTUME_HEAD_LOW;
		for ([email protected] = 1; [email protected]<=3; [email protected]) {
			if (getequipisequiped([email protected][[email protected]])) {
				[email protected]$ = [email protected]$ + F_getpositionname([email protected]$[[email protected]]) + "-[" + getequipname([email protected][[email protected]]) + "]";
				[email protected] = 1;
			}
			[email protected]$ = [email protected]$ + ":";
		}

		if ([email protected] == 0) {
			mes "["+ [email protected]_name$ +"]";
			mes "You need to wear costumed headgears that I can restore...";
			close;
		}

		mes "["+ [email protected]_name$ +"]";
		mes "Please select what to restore.";
		mes "Remember, I will only restore it back without refine and cards.";
		next;

		[email protected] = [email protected][ select([email protected]$) ];
		if (!getequipisequiped([email protected])) {
			mes "["+ [email protected]_name$ +"]";
			mes "You're not wearing anything there...";
			close;
		}

		if (isequippedcnt(getequipid([email protected])) > 1) {
			mes "["+ [email protected]_name$ +"]";
			mes "You're wearing too many of the same headgear!";
			mes "How am I supposed to know which one to restore?";
			mes "See me when you have one equipped.";
			close;
		}

		if (countitem(getequipid([email protected])) > 1) {
			mes "["+ [email protected]_name$ +"]";
			mes "You have another " + getitemname(getequipid([email protected])) + " with you.";
			mes "Put it away before restoring.";
			close;
		}

		mes "[" + [email protected]_name$ + "]";
		mes "You want to restore your " + getitemname(getequipid([email protected])) + "?";
		next;

		if (select("Yes, proceed:No, sorry.") == 2) {
			mes "["+ [email protected]_name$ +"]";
			mes "Need some time to think about it, huh?";
			mes "Alright, I can understand.";
			close;
		}

		// Restore headgear by recreating
		a = getequipid([email protected]);
		delitem a,1;
		getitem a,1;

		mes "["+ [email protected]_name$ +"]";
		mes "Done, enjoy your restored headgear.";
		close;
	case 3:
		mes "["+ [email protected]_name$ +"]";
		mes "Very well. Return at once if you seek my services.";
		close;
	}
}

// ---------------------------------------------------------------------------
// Add more lines to put your npc on different cities (adjust name if desired)
// ---------------------------------------------------------------------------
ph_in,129,75,6	script	Costume Clown#1	715,{ callfunc "costume","Costume Clown",0; end; }

mR L · February 13, 2021

Try this :

// -------------------------------------------------------------------------------
// 	Script Name : Headgear to Costume converter >> Costume to Headgear converter
// -------------------------------------------------------------------------------
// Description :
// - Allows a user to convert the equipped headgear (on Top, Mid or Low) into a
//   costume item. It will remove any card and refine of the Item.
// - Allows a user to restore the equipped costume headgear (on Top, Mid or Low)
//   into its original form. It will not return any card or refine of the item.
// -------------------------------------------------------------------------------
function	script	costume	{
	.@npc_name$ = getarg(0);
// ======================================================================
	.@requirement = 7399;		// Item ID Requirement
// ======================================================================
	disable_items;
	mes "["+ .@npc_name$ +"]";
	mes "Here you can convert your headgears into a Costume Headgear or restore to its Original form.";
	next;

	switch(select("I want to convert.:I want to restore.:No thanks.")) {
	case 1:
		setarray .@indices[1], EQI_HEAD_TOP, EQI_HEAD_MID, EQI_HEAD_LOW;
		for (.@i = 1; .@i<=3; ++.@i) {
			if (getequipisequiped(.@indices[.@i])) {
				.@menu$ = .@menu$ + F_getpositionname(.@indices[.@i]) + "-[" + getequipname(.@indices[.@i]) + "]";
				.@equipped = 1;
			}
			.@menu$ = .@menu$ + ":";
		}

		if (.@equipped == 0) {
			mes "["+ .@npc_name$ +"]";
			mes "You need to wear headgears that I can costume...";
			close;
		}

		mes "["+ .@npc_name$ +"]";
		mes "Please select what to convert.";
		mes "Remember, cards and refine will be removed.";
		next;

		.@part = .@indices[ select(.@menu$) ];
		if (!getequipisequiped(.@part)) {
			mes "["+ .@npc_name$ +"]";
			mes "You're not wearing anything there...";
			close;
		}

		mes "["+ .@npc_name$ +"]";
		mes "You want to Costume your " + getitemname(getequipid(.@part)) + "?";
		next;

		if (select("Yes, proceed:No, sorry.") == 2) {
			mes "["+ .@npc_name$ + "]";
			mes "Need some time to think about it, huh?";
			mes "Alright, I can understand.";
			close;
		}
		if ( countitem(.@requirement) < 1 ) {
			mes "["+ .@npc_name$ + "]";
			mes "You need "+getitemname(.@requirement);
			end;
		}
		delitem .@requirement,1;
		costume .@part,1; // Convert the Headgear

		mes "["+ .@npc_name$ +"]";
		mes "Done, enjoy your costume headgear.";
		close;
	case 2:
		setarray .@indices[1], EQI_COSTUME_HEAD_TOP, EQI_COSTUME_HEAD_MID, EQI_COSTUME_HEAD_LOW;
		for (.@i = 1; .@i<=3; ++.@i) {
			if (getequipisequiped(.@indices[.@i])) {
				.@menu$ = .@menu$ + F_getpositionname(.@indices$[.@i]) + "-[" + getequipname(.@indices[.@i]) + "]";
				.@equipped = 1;
			}
			.@menu$ = .@menu$ + ":";
		}

		if (.@equipped == 0) {
			mes "["+ .@npc_name$ +"]";
			mes "You need to wear costumed headgears that I can restore...";
			close;
		}

		mes "["+ .@npc_name$ +"]";
		mes "Please select what to restore.";
		mes "Remember, I will only restore it back without refine and cards.";
		next;

		.@part = .@indices[ select(.@menu$) ];
		if (!getequipisequiped(.@part)) {
			mes "["+ .@npc_name$ +"]";
			mes "You're not wearing anything there...";
			close;
		}

		if (isequippedcnt(getequipid(.@part)) > 1) {
			mes "["+ .@npc_name$ +"]";
			mes "You're wearing too many of the same headgear!";
			mes "How am I supposed to know which one to restore?";
			mes "See me when you have one equipped.";
			close;
		}

		if (countitem(getequipid(.@part)) > 1) {
			mes "["+ .@npc_name$ +"]";
			mes "You have another " + getitemname(getequipid(.@part)) + " with you.";
			mes "Put it away before restoring.";
			close;
		}

		mes "[" + .@npc_name$ + "]";
		mes "You want to restore your " + getitemname(getequipid(.@part)) + "?";
		next;

		if (select("Yes, proceed:No, sorry.") == 2) {
			mes "["+ .@npc_name$ +"]";
			mes "Need some time to think about it, huh?";
			mes "Alright, I can understand.";
			close;
		}
		if ( countitem(.@requirement) < 1 ) {
			mes "["+ .@npc_name$ + "]";
			mes "You need "+getitemname(.@requirement);
			end;
		}
		delitem .@requirement,1;
		// Restore headgear by recreating
		a = getequipid(.@part);
		delitem a,1;
		getitem a,1;

		mes "["+ .@npc_name$ +"]";
		mes "Done, enjoy your restored headgear.";
		close;
	case 3:
		mes "["+ .@npc_name$ +"]";
		mes "Very well. Return at once if you seek my services.";
		close;
	}
}

// ---------------------------------------------------------------------------
// Add more lines to put your npc on different cities (adjust name if desired)
// ---------------------------------------------------------------------------
prontera,159,181,5	script	Costume Clown#1	715,{ callfunc "costume","Costume Clown",0; end; }

kalabasa · February 13, 2021

parse_line expected ';'

at line 65

sader1992 · February 14, 2021

you are using the function name the same as the command name

are you sure about the command name ?

don't use the command name as a function name

line 10 function script costume {

line 65 costume [email protected],1; // Convert the Headgear

kalabasa · March 11, 2021

i dont know if i understand correctly i am using costumeitem as the custom command

On 2/13/2021 at 6:52 PM, kalabasa said:

parse_line expected ';'

at line 65

solved change to this

costume [email protected]; // Convert the Headgear

Sign In

Add payment costume npc

Question

kalabasa

Link to comment

Share on other sites

4 answers to this question

Recommended Posts

mR L

Link to comment

Share on other sites

kalabasa

Link to comment

Share on other sites

sader1992

Link to comment

Share on other sites

kalabasa

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Issues

Community

Supporting rA

My Account

Important Information