Mid headgear piercing

[Darkelfen]

File Name: Midgear Piercing NPC

File Submitter: Darkelfen

File Submitted: 10 Aug 2014

File Category: Utilities

Content Author: Darkelfen


Hello everyone, this custom NPC can create the slotted version of some mid headgears (Similar to the one on pRo) also it can create the Spiritual Auger.

This is my first time posting here so any problems let me now ASAP.

(IDK if this is the correct forum to post this >__>)

 

Midgear Piercing.txt

 

Hope it helps.

Edited August 11, 2014 by Darkelfen

[Hyrican-RO]

Many Many Script Errors !!! Bad Scribing !

[Radian]

Many Many Script Errors !!! Bad Scribing !

 

At least report what are the errors that showing on your map-server.

[GloomyBungot]

//===========================

//=Custom Midgear Slotter====

//===========================

//V1.0

//English standarized

//By Darkelfen

prt_in.gat,94,66,5 script Piercing Expert 106,{

if (checkweight(1201,1) == 0) {

mes "You are carrying too much objects put some of them in Kafra storage.";

close;

}

if (MaxWeight - Weight < 10000) {

mes "You are carrying too much weigh, come when you have reduced it.";

close;

}

mes "[Piercing Expert]";

mes "Hello adventurer. Years of development and hard work";

mes "made possible to add slots to mid headgears"; 

mes "Not all mid headgears can be slotted, just a few resist the spiritual auger puncture.";

next;

mes "By the way, the following headgears can be slotted:";

mes "Angel Wing Ears";

mes "Black Devil's Mask";

mes "Black Frame Glasses";

mes "Blush";

mes "Dark Blinder";

mes "Elven Ears";

mes "Evil Wing Ears";

mes "Glasses";

mes "and Small Ribbons";

next;

mes "What you want to do?"; 

switch(select("Slot my gear:I've changed my mind")){

case 1:

mes "Remember slotting a headgear is a very complicated process in which you could lose the hat and the auger";

mes "so would you like to continue?";

if(select("Go for it:No way")==2){close;}

mes "Add slot to...";

switch (select("Angel Wing Ears:Black Devil's Mask:Black Frame Glasses:Blush:Dark Blinder:Elven Ears:Evil Wing Ears:Glasses:Small Ribbons:Nothing")){

case 1: //Evil Wing Ears

mes "Are you completely sure about adding the slot?";

 

if (select("Shut up and do it!:Not really")==2){close;}

if (countitem(6396)>=1 && countitem(5074)>=1){

if ((rand(1,100))>10){

delitem 6396,1;

delitem 5074,1;

goto L_sorry;

}

delitem 6396,1;

delitem 5074,1;

set zeny,zeny-100000;

getitem 18518,1;

mes "Enjoy yours Angel Wing Ears [1]";

close;

 

}

goto L_norew;

break;

case 2: //Black Devil's Mask *Add it to quest or cash shop

mes "Are you completely sure about adding the slot?";

if (select("Shut up and do it!:Not really")==2){close;}

if (countitem(6396)>=1 && countitem(18599)>=1){

if (rand(1,100)>10){

delitem 6396,1;

delitem 18599,1;

goto L_sorry;

}

delitem 6396,1;

delitem 18599,1;

set zeny,zeny-100000;

getitem 18603,1;

mes "Enjoy yours Black Devil's Mask [1]";

close;

}

 

goto L_norew;

break;

case 3: //Black Frame Glasses

mes "Are you completely sure about adding the slot?";

if (select("Shut up and do it!:Not really")==2){close;}

if (countitem(6396)>=1 && countitem(5401)>=1){

if (rand(1,100)>10){

delitem 6396,1;

delitem 5401,1;

goto L_sorry;

}

delitem 6396,1;

delitem 5401,1;

set zeny,zeny-100000;

getitem 18611,1;

mes "Enjoy yours Black Frame Glasses [1]";

close;

}

 

goto L_norew;

break;

case 4: //Blush

mes "Are you completely sure about adding the slot?";

if (select("Shut up and do it!:Not really")==2){close;}

if (countitem(6396)>=1 && countitem(5040)>=1){

if (rand(1,100)>10){

delitem 6396,1;

delitem 5040,1;

goto L_sorry;

}

delitem 6396,1;

delitem 5040,1;

set zeny,zeny-100000;

getitem 18607,1;

mes "Enjoy yours Blush [1]";

close;

}

 

goto L_norew;

break;

case 5: //Dark Blinder

mes "Are you completely sure about adding the slot?";

if (select("Shut up and do it!:Not really")==2){close;}

if (countitem(6396)>=1 && countitem(5104)>=1){

if (rand(1,100)>10){

delitem 6396,1;

delitem 5104,1;

goto L_sorry;

}

delitem 6396,1;

delitem 5104,1;

set zeny,zeny-100000;

getitem 18609,1;

mes "Enjoy yours Dark Blinder [1]";

close;

 

}

goto L_norew;

break;

case 6: //Elven Ears

mes "Are you completely sure about adding the slot?";

if (select("Shut up and do it!:Not really")==2){close;}

if (countitem(6396)>=1 && countitem(2286)>=1){

if (rand(1,100)>10){

delitem 6396,1;

delitem 2286,1;

goto L_sorry;

}

delitem 6396,1;

delitem 2286,1;

set zeny,zeny-100000;

getitem 18507,1;

mes "Enjoy yours Elven Ears [1]";

close;

}

 

goto L_norew;

break;

case 7: //Evil Wing Ears

mes "Are you completely sure about adding the slot?";

if (select("Shut up and do it:Not really")==2){goto L_exit;}

if (countitem(6396)>=1 && countitem(5068)>=1){

if (rand(1,100)>10){

delitem 6396,1;

delitem 5068,1;

goto L_sorry;

}

delitem 6396,1;

delitem 5068,1;

set zeny,zeny-100000;

getitem 18519,1;

mes "Enjoy yours Evil Wing Ears [1]";

close;

}

 

goto L_norew;

break;

case 8: //Glasses

mes "Are you completely sure about adding the slot?";

if (select("Shut up and do it:Not really")==2){goto L_exit;}

if (countitem(6396)>=1 && countitem(2203)>=1){

if (rand(1,100)>10){

delitem 6396,1;

delitem 2203,1;

goto L_sorry;

}

delitem 6396,1;

delitem 2203,1;

set zeny,zeny-100000;

getitem 2204,1;

 

mes "Enjoy yours Glasses [1]";

close;

 

}

goto L_norew;

break;

case 9: //Small Ribbons

mes "Are you completely sure about adding the slot?";

if (select("Shut up and do it:Not really")==2){goto L_exit;}

if (countitem(6396)>=1 && countitem(5085)>=1){

if (rand(1,100)>10){

delitem 6396,1;

delitem 5085,1;

goto L_sorry;

}

delitem 6396,1;

delitem 5085,1;

set zeny,zeny-100000;

getitem 18608,1;

mes "Enjoy yours Small Ribbons [1]";

close;

}

goto L_norew;

break;

case 10: goto L_exit;

break;

}

break; 

 

}

L_exit:

mes "See you then, take care";

close;

L_norew:

mes "It's OK to be enthusiastic but you don't have the items and nothing can be done.";

mes "Come back when you gather all the materials, don't forget the fee.";

close;

L_sorry:

specialeffect EF_SUI_EXPLOSION;

mes "Something went wrong and I...";

mes "Well.. uhmm your...";

mes "Im very sorry, hope see you again.";

close;

}