SHARE
TWEET

Untitled

a guest Jan 18th, 2019 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. anger,60,176,4  script  時裝附魔轉移人員    93,{
  3.  
  4.     mes .npc$;
  5.     mes "我可以幫你轉移時裝的附魔!";
  6.     mes "但是需要付給我 "+.costcash+" Cash !";
  7.     next;
  8.     switch(select(@beforehead?"轉移前時裝 [ "+getitemname(@beforehead)+" ]":"轉移前時裝 [ 未選擇 ]", @afterhead?"轉移後時裝 [ "+getitemname(@afterhead)+" ]":"轉移後時裝 [ 未選擇 ]",@beforehead&&@afterhead?"轉移時裝 [ 可使用 ]":"轉移時裝 [ 不可使用 ]")){
  9.         case 1:
  10.             if ( @beforehead ){
  11.                 mes .npc$;
  12.                 mes "你目前已經有選擇轉移前時裝";
  13.                 mes "需要重新做選擇嗎?";
  14.                 if ( select("是:否") == 2 ) end;
  15.                 mesclear;
  16.             }
  17.             mes .npc$;
  18.             mes "請選擇要轉移前的時裝!";
  19.             disable_items;
  20.             getinventorylist;
  21.             while(.@i < @inventorylist_count)
  22.             {
  23.                 if(@inventorylist_id[.@i]){
  24.                     if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 1024 ){
  25.                         set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
  26.                         set .@ItemList[set(.@j,.@j+1)],.@i;
  27.                     }
  28.                     if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 2048 ){
  29.                         set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
  30.                         set .@ItemList[set(.@j,.@j+1)],.@i;
  31.                     }
  32.                     if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 4096 ){
  33.                         set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
  34.                         set .@ItemList[set(.@j,.@j+1)],.@i;
  35.                     }
  36.                     if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 8192 ){
  37.                         set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
  38.                         set .@ItemList[set(.@j,.@j+1)],.@i;
  39.                     }
  40.                         set .@i,.@i+1;
  41.                 }
  42.             }
  43.             select(.@menu$);
  44.             @beforehead = @inventorylist_id[.@ItemList[@menu]];
  45.             @refine = @inventorylist_refine[.@ItemList[@menu]];
  46.             @card1 = @inventorylist_card1[.@ItemList[@menu]];
  47.             @card2 = @inventorylist_card2[.@ItemList[@menu]];
  48.             @card3 = @inventorylist_card3[.@ItemList[@menu]];
  49.             @card4 = @inventorylist_card4[.@ItemList[@menu]];
  50.             mesclear;
  51.             mes .npc$;
  52.             mes "選擇成功!";
  53.             end;
  54.         case 2:
  55.             if ( @Afterhead ){
  56.                 mes .npc$;
  57.                 mes "你目前已經有選擇轉後前時裝";
  58.                 mes "需要重新做選擇嗎?";
  59.                 if ( select("是:否") == 2 ) end;
  60.                 mesclear;
  61.             }
  62.             mes .npc$;
  63.             mes "請選擇要轉移後的時裝!";
  64.             disable_items;
  65.             getinventorylist;
  66.             while(.@i < @inventorylist_count)
  67.             {
  68.                 if(@inventorylist_id[.@i]){
  69.                     if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 1024 ){
  70.                         set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
  71.                         set .@ItemList[set(.@j,.@j+1)],.@i;
  72.                     }
  73.                     if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 2048 ){
  74.                         set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
  75.                         set .@ItemList[set(.@j,.@j+1)],.@i;
  76.                     }
  77.                     if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 4096 ){
  78.                         set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
  79.                         set .@ItemList[set(.@j,.@j+1)],.@i;
  80.                     }
  81.                     if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 8192 ){
  82.                         set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
  83.                         set .@ItemList[set(.@j,.@j+1)],.@i;
  84.                     }
  85.                         set .@i,.@i+1;
  86.                 }
  87.             }
  88.             select(.@menu$);
  89.             @Afterhead = @inventorylist_id[.@ItemList[@menu]];
  90.             mesclear;
  91.             mes .npc$;
  92.             mes "選擇成功!";
  93.             end;
  94.         case 3:
  95.             if ( !@beforehead || !@Afterhead ){
  96.                 mes .npc$;
  97.                 mes "你好像還沒選擇好時裝哦?";
  98.                 end;
  99.             }
  100.             if ( countitem(@beforehead) > 1 || countitem(@Afterhead) > 1){
  101.                 mes .npc$;
  102.                 mes "你身上好像有一個以上的轉移前或後時裝!";
  103.                 end;
  104.             }
  105.             if ( #CASHPOINTS < .costcash ){
  106.                 mes .npc$;
  107.                 mes "你並沒有足夠的Cash!";
  108.                 end;
  109.             }
  110.             if ( @beforhead == @Afterhead ){
  111.                 mes .npc$;
  112.                 mes "不能選擇一樣的時裝!";
  113.                 end;
  114.             }
  115.             mesclear;
  116.             mes .npc$;
  117.             mes "轉移前時裝 : "+getitemname(@beforehead)+"";
  118.             mes "轉移後時裝 : "+getitemname(@Afterhead)+"";
  119.             mes "花費 "+.costcash+" Cash ";
  120.             mes "^FF0000轉移後的所有附魔將會被蓋掉!^000000";
  121.             next;
  122.             if ( select("轉移!:取消") == 2 ) end;
  123.             if ( #CASHPOINTS < .costcash ){
  124.                 mes .npc$;
  125.                 mes "你並沒有足夠的Cash!";
  126.                 end;
  127.             }
  128.             #CASHPOINTS -= 5000;
  129.             delitem @beforehead,1;
  130.             delitem @afterhead,1;
  131.             getitem2 @afterhead,1,1,@refine,0,@card1,@card2,@card3,@card4;
  132.             getitem @beforehead,1;
  133.             @beforehead = 0;
  134.             @afterhead = 0;
  135.             @refine = 0;
  136.             @card1 = 0;
  137.             @card2 = 0;
  138.             @card3 = 0;
  139.             @card4 = 0;
  140.             end;
  141.         }
  142.         end;
  143. OnInit:
  144.     .npc$ = "["+strnpcinfo(1)+"]";
  145.     .costcash = 5000;
  146.     end;
  147. }
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