[Mid headgear piercing]

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

//=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;

}