Jump to content

GloomyBungot

Members
  • Posts

    1
  • Joined

  • Last visited

Profile Information

  • Gender
    Male
  • Location
    philippines
  • Server
    gloomro

GloomyBungot's Achievements

Poring

Poring (1/15)

0

Reputation

  1. //=========================== //=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; }
×
×
  • Create New...