I wanted to make costume enchant available in my server, I found the npc responsible for it. When reading the script I noticed the FCT, VCT, Double Attack, and Fatal are all commented out so I uncomment and fill the stones as well as the card which happened to be in the grf. But when I reload the script the npc disappears. Can someone tell me what's wrong?
// Costume enchant (garment)
mal_in01,20,107,3 script Lace La Zard#cos_ect 4_FROG,{
disable_items;
mes "[Lace La Zard]";
mes "Welcome to Fashion Stone!!";
mes "My name is Lace La Zard who will make your 'Power Shoulder' dream come true.";
next;
mes "[Lace La Zard]";
mes "Bring your ^ff0000Costume Garment^000000 and ^ff0000Garment Stone^000000, I will complete the perfect upgrade for you.!";
mes "I found this formula while working on my own humble body upgrading!";
next;
if (select( "Apply ability.", "End Conversation." ) == 2) {
mes "[Lace La Zard]";
mes "Yes? Your want to look more?";
close;
}
if (checkweight(1119,3) == 0) {
mes "[Lace La Zard]";
mes "Well... Your shoulder doesn't look possilbe for any more upgrade...!";
mes "Don't be cruel to your shoulder!";
next;
mes "It seems you have too many items on you.";
mes "Come back after clearing some inventory spaces.";
close;
}
.@part = EQI_COSTUME_GARMENT;
.@equip_id = getequipid(.@part);
if (.@equip_id == -1) {
mes "[Lace La Zard]";
mes "Put the garment on your shoulder.";
mes "I need to have a look at it to check for upgrading posibility..";
close;
}
// costume garment list allowed (incomplete)
switch(.@equip_id) {
case 20502: // C_Devil_Wing
case 20504: // C_Cupid_Wing_Pink
case 20505: // C_Cupid_Wing_Skyblue
case 20506: // C_Invisible_Manteau
case 20507: // C_Poring_Bag
case 20509: // C_Wings_of_Uriel
case 20510: // C_SwordWing
case 20511: // C_Blue_Fairy_Wing
case 20727: // Brilliant_Golden_Wings
case 20737: // C_Kirin_Wing
case 20746: // C_Rudra_Wing
case 20761: // C_Wing_Of_Happiness
case 20762: // C_GreatDevilWing
case 20763: // C_Amistr_Bag
case 20764: // C_Fallen_Angel_Wing
case 20765: // C_Archangel_Wing
break;
default:
mes "[Lace La Zard]";
mes "I need to have a look at it to check for upgrading posibility..";// custom
close;
}
.@equip_refine = getequiprefinerycnt(.@part);
setarray .@card[0], getequipcardid(.@part, 0), getequipcardid(.@part, 1), getequipcardid(.@part, 2), getequipcardid(.@part, 3);
mes "[Lace La Zard]";
mes "Wow ^0000FF" + getitemname(.@equip_id) + "^000000!!! You got some sense there, aren't you?";
mes "Great!! I'm fully ready for this upgrade!!";
next;
setarray .@data$[0],
6908, 4807, "ASPD+1 only", // ASPDStone_Robe Atk_Speed1
6963, 4992, "Absorption 1% of damage dealt to enemy into HP with 1% chance", // HPdrainStone_Robe HPdrain1
6964, 4993, "Absorption 1% of damage dealt to enemy into SP with 1% chance"; // SPdrainStone_Robe SPdrain1
// unknown text
25067, 29056, "Fixed Cast Time -0.5s", // CastingStone_Robe FixedCasting05
25170, 29154, "Fixed Cast Time -0.3s", // MinorCastingStone_Robe FixedCasting03
25302, 29362, "Double Attack", // DoubleAttack_Stone DoubleAttack
25303, 29361, "Critical Damage +20%", // Critical_Stone_Robe Fatal_Robe
25306, 29358, "Variable Cast Time -20%"; // CastStone_Robe Casting_Robe
.@size = getarraysize(.@data$);
for ( .@i = 0; .@i < .@size; .@i += 3 ) {
.@id = atoi(.@data$[.@i]);
.@menu$ += sprintf( "%d. %s (%d) left:", (.@j+1), getitemname(.@id), countitem(.@id) );
.@j++;
}
.@menu$ += "End Conversation.";
.@s = (select(.@menu$) - 1) * 3;
if (.@s == .@size) {
mes "[Lace La Zard]";
mes "Yes? Your want to look more?";
close;
}
.@id = atoi(.@data$[.@s]);
.@enchant = atoi(.@data$[.@s+1]);
if (getequipid(.@part) < 0 || countitem(.@id) < 1) {
mes "[Lace La Zard]";
mes "You must have both costume item and ability stone for this upgrading work.";
close;
}
mes "^FF0000 !!! Caution !!!^000000";
mes "^ff0000This upgrade can be failed.^000000";
mes "^ff0000If the item already has extra ability, we will reset item's ability and give " + .@data$[.@s+2] + ".^000000";
mes "^ff0000Are you sure about upgrading this item?^000000";
next;
if (select( "Yes.", "No." ) == 2) {
mes "[Lace La Zard]";
mes "Yes? Your want to look more?";
close;
}
// anti-hack
if (callfunc("F_IsEquipIDHack", .@part, .@equip_id) || callfunc("F_IsEquipCardHack", .@part, .@card[0], .@card[1], .@card[2], .@card[3]) || callfunc("F_IsEquipRefineHack", .@part, .@equip_refine))
close;
delitem .@id, 1;
delequip .@part;
if (rand(100) < 50) {
mes "[Lace La Zard]";
mes "Beautiful!!";
mes "Did I really made this myself!!!!";
.@card[0] = .@enchant;
}
else {
mes "[Lace La Zard]";
mes "Oh no!";
mes "Crash!!!!! I cannot show this failure to the World!!!";
.@card[0] = 0;
}
getitem2 .@equip_id,1,1,.@equip_refine,0,.@card[0],.@card[1],.@card[2],.@card[3];
close;
}
Question
Amecoeur
Hello,
I wanted to make costume enchant available in my server, I found the npc responsible for it. When reading the script I noticed the FCT, VCT, Double Attack, and Fatal are all commented out so I uncomment and fill the stones as well as the card which happened to be in the grf. But when I reload the script the npc disappears. Can someone tell me what's wrong?
// Costume enchant (garment) mal_in01,20,107,3 script Lace La Zard#cos_ect 4_FROG,{ disable_items; mes "[Lace La Zard]"; mes "Welcome to Fashion Stone!!"; mes "My name is Lace La Zard who will make your 'Power Shoulder' dream come true."; next; mes "[Lace La Zard]"; mes "Bring your ^ff0000Costume Garment^000000 and ^ff0000Garment Stone^000000, I will complete the perfect upgrade for you.!"; mes "I found this formula while working on my own humble body upgrading!"; next; if (select( "Apply ability.", "End Conversation." ) == 2) { mes "[Lace La Zard]"; mes "Yes? Your want to look more?"; close; } if (checkweight(1119,3) == 0) { mes "[Lace La Zard]"; mes "Well... Your shoulder doesn't look possilbe for any more upgrade...!"; mes "Don't be cruel to your shoulder!"; next; mes "It seems you have too many items on you."; mes "Come back after clearing some inventory spaces."; close; } .@part = EQI_COSTUME_GARMENT; .@equip_id = getequipid(.@part); if (.@equip_id == -1) { mes "[Lace La Zard]"; mes "Put the garment on your shoulder."; mes "I need to have a look at it to check for upgrading posibility.."; close; } // costume garment list allowed (incomplete) switch(.@equip_id) { case 20502: // C_Devil_Wing case 20504: // C_Cupid_Wing_Pink case 20505: // C_Cupid_Wing_Skyblue case 20506: // C_Invisible_Manteau case 20507: // C_Poring_Bag case 20509: // C_Wings_of_Uriel case 20510: // C_SwordWing case 20511: // C_Blue_Fairy_Wing case 20727: // Brilliant_Golden_Wings case 20737: // C_Kirin_Wing case 20746: // C_Rudra_Wing case 20761: // C_Wing_Of_Happiness case 20762: // C_GreatDevilWing case 20763: // C_Amistr_Bag case 20764: // C_Fallen_Angel_Wing case 20765: // C_Archangel_Wing break; default: mes "[Lace La Zard]"; mes "I need to have a look at it to check for upgrading posibility..";// custom close; } .@equip_refine = getequiprefinerycnt(.@part); setarray .@card[0], getequipcardid(.@part, 0), getequipcardid(.@part, 1), getequipcardid(.@part, 2), getequipcardid(.@part, 3); mes "[Lace La Zard]"; mes "Wow ^0000FF" + getitemname(.@equip_id) + "^000000!!! You got some sense there, aren't you?"; mes "Great!! I'm fully ready for this upgrade!!"; next; setarray .@data$[0], 6908, 4807, "ASPD+1 only", // ASPDStone_Robe Atk_Speed1 6963, 4992, "Absorption 1% of damage dealt to enemy into HP with 1% chance", // HPdrainStone_Robe HPdrain1 6964, 4993, "Absorption 1% of damage dealt to enemy into SP with 1% chance"; // SPdrainStone_Robe SPdrain1 // unknown text 25067, 29056, "Fixed Cast Time -0.5s", // CastingStone_Robe FixedCasting05 25170, 29154, "Fixed Cast Time -0.3s", // MinorCastingStone_Robe FixedCasting03 25302, 29362, "Double Attack", // DoubleAttack_Stone DoubleAttack 25303, 29361, "Critical Damage +20%", // Critical_Stone_Robe Fatal_Robe 25306, 29358, "Variable Cast Time -20%"; // CastStone_Robe Casting_Robe .@size = getarraysize(.@data$); for ( .@i = 0; .@i < .@size; .@i += 3 ) { .@id = atoi(.@data$[.@i]); .@menu$ += sprintf( "%d. %s (%d) left:", (.@j+1), getitemname(.@id), countitem(.@id) ); .@j++; } .@menu$ += "End Conversation."; .@s = (select(.@menu$) - 1) * 3; if (.@s == .@size) { mes "[Lace La Zard]"; mes "Yes? Your want to look more?"; close; } .@id = atoi(.@data$[.@s]); .@enchant = atoi(.@data$[.@s+1]); if (getequipid(.@part) < 0 || countitem(.@id) < 1) { mes "[Lace La Zard]"; mes "You must have both costume item and ability stone for this upgrading work."; close; } mes "^FF0000 !!! Caution !!!^000000"; mes "^ff0000This upgrade can be failed.^000000"; mes "^ff0000If the item already has extra ability, we will reset item's ability and give " + .@data$[.@s+2] + ".^000000"; mes "^ff0000Are you sure about upgrading this item?^000000"; next; if (select( "Yes.", "No." ) == 2) { mes "[Lace La Zard]"; mes "Yes? Your want to look more?"; close; } // anti-hack if (callfunc("F_IsEquipIDHack", .@part, .@equip_id) || callfunc("F_IsEquipCardHack", .@part, .@card[0], .@card[1], .@card[2], .@card[3]) || callfunc("F_IsEquipRefineHack", .@part, .@equip_refine)) close; delitem .@id, 1; delequip .@part; if (rand(100) < 50) { mes "[Lace La Zard]"; mes "Beautiful!!"; mes "Did I really made this myself!!!!"; .@card[0] = .@enchant; } else { mes "[Lace La Zard]"; mes "Oh no!"; mes "Crash!!!!! I cannot show this failure to the World!!!"; .@card[0] = 0; } getitem2 .@equip_id,1,1,.@equip_refine,0,.@card[0],.@card[1],.@card[2],.@card[3]; close; }
//25067, 29056, "Fixed Cast Time -0.5s", // CastingStone_Robe FixedCasting05 //25170, 29154, "Fixed Cast Time -0.3s", // MinorCastingStone_Robe FixedCasting03 //25302, 29362, "Double Attack", // DoubleAttack_Stone DoubleAttack //25303, 29361, "Critical Damage +20%", // Critical_Stone_Robe Fatal_Robe //25306, 29358, "Variable Cast Time -20%"; // CastStone_Robe Casting_Robe
Link to comment
Share on other sites
1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.