SHARE
TWEET

Untitled

a guest Apr 19th, 2019 112 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. // -------------------------------------------------------------------------------
  2. //  Script Name : Headgear to Costume converter >> Costume to Headgear converter
  3. // -------------------------------------------------------------------------------
  4. // Description :
  5. // - Allows a user to convert the equipped headgear (on Top, Mid or Low) into a
  6. //   costume item. It will remove any card and refine of the Item.
  7. // - Allows a user to restore the equipped costume headgear (on Top, Mid or Low)
  8. //     into its original form. It will not return any card or refine of the item.
  9. // -------------------------------------------------------------------------------
  10. -   script  Costume Clown   -1,{
  11.     mes "[Clown]";
  12.     mes "Here you can convert your headgears into a Costume Headgear or restore to its Original form.";
  13.     switch(select("I want to convert.:I want to restore.:No thanks.")) {
  14.     case 1:
  15.             next;
  16.             mes "Please, select what to convert.";
  17.             mes "Remember, cards and refine will be removed.";
  18.             next;
  19.                 setarray .@Position$[1],"Top","Mid","Low","Garment";
  20.                 setarray .@Position[1],     EQI_HEAD_TOP,    EQI_HEAD_MID,   EQI_HEAD_LOW, EQI_GARMENT;
  21.                 set .@Menu$,"";
  22.             for( set .@i, 1; .@i < 6; set .@i, .@i + 1 )
  23.             {
  24.                 if( getequipisequiped(.@Position[.@i]) )
  25.                 set .@Menu$, .@Menu$ + .@Position$[.@i] + "-" + "[" + getequipname(.@Position[.@i]) + "]";
  26.                 set .@Menu$, .@Menu$ + ":";
  27.             }
  28.             set .@Part, .@Position[ select(.@Menu$) ];
  29.             if( !getequipisequiped(.@Part) )
  30.             {
  31.                 mes "[Clown]";
  32.                 mes "You are not wearing anything there.";
  33.                 close;
  34.             }
  35.             mes "[Clown]";
  36.             mes "You want to Costume your " + getitemname(getequipid(.@Part)) + "?";
  37.             next;
  38.             if( select("Yes, proceed:No, I am sorry.") == 2 )
  39.             {
  40.                 mes "[Clown]";
  41.                 mes "Need some time to think about it, huh?";
  42.                 mes "Alright, I can understand.";
  43.                 close;
  44.             }
  45.             costume .@Part; // Convert the Headgear
  46.             mes "[Clown]";
  47.             mes "Done, enjoy your costume headgear.";
  48.             close;
  49.     case 2:
  50.             next;
  51.             mes "Please, select what to restore.";
  52.             mes "Remember, I will only restore it back without refine and cards.";
  53.             next;
  54.                 setarray .@Position$[1],"Top","Mid","Low", "Garment";
  55.                 setarray .@Position[1], EQI_COSTUME_HEAD_TOP, EQI_COSTUME_HEAD_MID, EQI_COSTUME_HEAD_LOW, EQI_COSTUME_GARMENT;
  56.                 set .@Menu$,"";
  57.             for( set .@i, 1; .@i < 6; set .@i, .@i + 1 )
  58.             {
  59.                 if( getequipisequiped(.@Position[.@i]) )
  60.                 set .@Menu$, .@Menu$ + .@Position$[.@i] + "-" + "[" + getequipname(.@Position[.@i]) + "]";
  61.                 set .@Menu$, .@Menu$ + ":";
  62.             }
  63.             set .@Part, .@Position[ select(.@Menu$) ];
  64.             if( !getequipisequiped(.@Part) )
  65.             {
  66.                 mes "[Clown]";
  67.                 mes "You are not wearing anything there.";
  68.                 close;
  69.             }
  70.             mes "[Clown]";
  71.             mes "You want to restore your " + getitemname(getequipid(.@Part)) + "?";
  72.             next;
  73.             if( select("Yes, proceed:No, I am sorry.") == 2 )
  74.             {
  75.                 mes "[Clown]";
  76.                 mes "Need some time to think about it, huh?";
  77.                 mes "Alright, I can understand.";
  78.                 close;
  79.             }
  80.             .@a = getequipid(.@Part);          
  81.             delitem .@a,1;
  82.             getitem .@a,1;
  83.            
  84.             mes "[Clown]";
  85.             mes "Done, enjoy your restored headgear.";
  86.             close;
  87.     case 3:
  88.         mes "[Clown]";
  89.         mes "Very well. Return at once if you seek my services.";
  90.         close;
  91.     }
  92. }
  93. // --------------------------------------------------------------------------
  94. // Use duplicates to put your npc on different cities
  95. // --------------------------------------------------------------------------
  96. prontera,155,181,4  duplicate(Costume Clown)    Costume Clown#1 715
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top