About Costume Enchanter

[Eros]

i made a script for my server about adding orbs on costume but the problem is i need to put all the costumes manually on the script. Can someone help me to make this npc that they will be choosing Top Headgear Costume , Middle Headgear Costume , Lower Headgear for example they choose Top Headgear Costume the one that they are wearing will be having a orb they like. Here's my script. TIA for those who will help.
 

amatsu,196,101,5 script Donation Orb Costume Enchanter 582,{
mes "Which Costume you want to Enchant ?";
mes "Make sure You have the Orb needed.";
next;
setarray .EquipID[0],18508,18543,18579,18580,18595,18529,18631,18637,18639,18693,18577,18647,18649,18657,18664,18690,18712,18737,18743,18747,18546,18627,18644,18643,18665,18670,18677,18683,18698,18746;
for( set .@i,0; .@i < getarraysize( .EquipID ); set .@i,.@i + 1 ){
set .@EquipMenu$,.@EquipMenu$ + getitemname( .EquipID[.@i] )+( !getitemslots(.EquipID[.@i])?"":"["+getitemslots(.EquipID[.@i])+"]" )+":";
}
set .@Equip,select( .@EquipMenu$ ) - 1;
if( !countitem( .EquipID[.@Equip] ) ){
mes "You didnt have this Costume Equipment with you.";
close;
}
mes "Equipment : ^FF0000"+getitemname( .EquipID[.@Equip] )+"^000000";
switch( select( "Creator Orb:Whitesmith Orb:Sniper Orb:Clown and Gypsy Orb:High Wizard and Scholar Orb:Assassin Cross Orb" )){
Case 1: setarray .RuneID[0],4743; delitem 4743,1; break;
Case 2: setarray .RuneID[0],4744; delitem 4744,1; break;
Case 3: setarray .RuneID[0],4745; delitem 4745,1; break;
Case 4: setarray .RuneID[0],4746; delitem 4746,1; break;
Case 5: setarray .RuneID[0],4747; delitem 4747,1; break;
Case 6: setarray .RuneID[0],4748; delitem 4748,1; break;
}
for( set .@i,0; .@i < getarraysize( .RuneID ); set .@i,.@i + 1 ){
set .@RuneMenu$,.@RuneMenu$ + getitemname( .RuneID[.@i] )+":";
}
set .@Rune,select( .@RuneMenu$ ) - 1;
mes "Rune : ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000";
next;
if( select("Confirm:Cancel") == 1 ){
delitem .EquipID[.@Equip],1;
getitem2 .EquipID[.@Equip],1,1,0,0,.RuneID[.@Rune],0,0,0;
mes "Done.";
mes "^0000FF"+getitemname( .EquipID[.@Equip] )+"^000000";
mes "Enchanted with ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000";
}
close;
}

Edited November 22, 2015 by Skorm
added code bracket.

[Eros]

bump

[Eros]

help pls.

[badneko]

This may works with headgear?

[Eros]

Yes it is.

[Eros]

Any help please?

[Skorm]

Any help please?

 

 

Please remember to use code bracket button next time.

amatsu,196,101,5	script	Donation Orb Costume Enchanter	582,{
	mes "Which Costume you want to Enchant?";
	mes "Make sure You have the Orb needed.";
	set .@menu$, callsub( MenuSub, getequipid(.Equips[1]) ) +":"+ callsub( MenuSub, getequipid(.Equips[2]) ) +":"+ callsub( MenuSub, getequipid(.Equips[3]) ) +":Cancel";
	next;
	
	if( .@menu$ == ":::Cancel" ) {
		mes "I'm sorry but you don't have any enchant-able costumes equipped.";
		close;
	}
	
	select(.@menu$);
	
	if( @menu >= getarraysize(.Equips) ) {
		mes "Thank you please come again!";
		close;
	}
	
	set .@EquipID, getequipid(.Equips[@menu]);
	
	if( !countitem(.@EquipID) || @menu <= 0 ) {
		mes "You don't have this Costume Equipment with you.";
		close;
	}
	
	mes "Equipment: ^FF0000"+getitemname( .@EquipID )+"^000000";
	switch( select( "-Creator Orb:-Whitesmith Orb:-Sniper Orb:-Clown and Gypsy Orb:-High Wizard and Scholar Orb:-Assassin Cross Orb" )) {
		case 1: setarray .RuneID[0],4743; delitem 4743,1; break;
		case 2: setarray .RuneID[0],4744; delitem 4744,1; break;
		case 3: setarray .RuneID[0],4745; delitem 4745,1; break;
		case 4: setarray .RuneID[0],4746; delitem 4746,1; break;
		case 5: setarray .RuneID[0],4747; delitem 4747,1; break;
		default: setarray .RuneID[0],4748; delitem 4748,1; break;
	}
	
	for( set .@i, 0; .@i < getarraysize( .RuneID ); set .@i, .@i + 1 ) {
		set .@RuneMenu$, .@RuneMenu$ + getitemname (.RuneID[.@i]) +":";
	}
	
	if( .@RuneMenu$ == "" ) {
		mes "I'm sorry but you don't have any orbs to enchant with.";
		close;
	}
	
	set .@Rune,select( .@RuneMenu$ ) - 1;
	mes "Rune : ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000";
	next;
	if( select("Confirm:Cancel") == 1 ) {
		delitem .@EquipID,1;
		getitem2 .@EquipID,1,1,0,0,.RuneID[.@Rune],0,0,0;
		mes "Done.";
		mes "^0000FF"+getitemname( .EquipID[.@Equip] )+"^000000";
		mes "Enchanted with ^FF0000"+getitemname( .RuneID[.@Rune] )+"^000000";
	}
	close;
	
MenuSub:
	set .@sub, .@sub+1;
	for( set .@i, 0; .@i < .len; set .@i, .@i + 1 ) {
		if( getarg(0) == .EquipID[.@i] )
			return getitemname (getarg(0)) + ( !getitemslots(getarg(0)) ? "" : "["+getitemslots(getarg(0))+"]" );
	}
	return "";
	
OnInit:
	setarray .Equips[1], EQI_HEAD_TOP, EQI_HEAD_MID, EQI_HEAD_LOW;
	setarray .EquipID, 18508, 18543, 18579, 18580, 18595, 18529,
	                   18631, 18637, 18639, 18693, 18577, 18647,
	                   18649, 18657, 18664, 18690, 18712, 18737,
	                   18743, 18747, 18546, 18627, 18644, 18643,
	                   18665, 18670, 18677, 18683, 18698, 18746;
	set .len, getarraysize(.EquipID);
}

[Eros]

Sir skorm is there a script that you can put orb on what costume that you are wearing for example the npc auto detect what costume top mid or lower you are wearing. so i dont need to put a ID 

[Skorm]

Sir skorm is there a script that you can put orb on what costume that you are wearing for example the npc auto detect what costume top mid or lower you are wearing. so i dont need to put a ID 

 

If it has enough slots? I don't get what the requirements are for you to be able to equip the orb.

[Eros]

What i mean is a want a npc that doesn't need to put all ID numbers of costume in my server it's just when they wear a Top Mid or Lower Costume the npc auto detect it and put orbs on what they are wearing.

[Eros]

Anyone pls