anger,60,176,4	script	時裝附魔轉移人員	93,{

	mes .npc$;
	mes "我可以幫你轉移時裝的附魔！";
	mes "但是需要付給我 "+.costcash+" Cash !";
	next;
	switch(select(@beforehead?"轉移前時裝 [ "+getitemname(@beforehead)+" ]":"轉移前時裝 [ 未選擇 ]", @afterhead?"轉移後時裝 [ "+getitemname(@afterhead)+" ]":"轉移後時裝 [ 未選擇 ]",@beforehead&&@afterhead?"轉移時裝 [ 可使用 ]":"轉移時裝 [ 不可使用 ]")){
		case 1:
			if ( @beforehead ){
				mes .npc$;
				mes "你目前已經有選擇轉移前時裝";
				mes "需要重新做選擇嗎？";
				if ( select("是:否") == 2 ) end;
				mesclear;
			}
			mes .npc$;
			mes "請選擇要轉移前的時裝！";
			disable_items;
			getinventorylist;
			while(.@i < @inventorylist_count)
			{
				if(@inventorylist_id[.@i]){
					if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 1024 ){
						set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
						set .@ItemList[set(.@j,.@j+1)],.@i;
					}
					if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 2048 ){
						set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
						set .@ItemList[set(.@j,.@j+1)],.@i;
					}
					if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 4096 ){
						set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
						set .@ItemList[set(.@j,.@j+1)],.@i;
					}
					if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 8192 ){
						set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
						set .@ItemList[set(.@j,.@j+1)],.@i;
					}
						set .@i,.@i+1;
				}
			}
			select(.@menu$);
			@beforehead = @inventorylist_id[.@ItemList[@menu]];
			@refine = @inventorylist_refine[.@ItemList[@menu]];
			@card1 = @inventorylist_card1[.@ItemList[@menu]];
			@card2 = @inventorylist_card2[.@ItemList[@menu]];
			@card3 = @inventorylist_card3[.@ItemList[@menu]];
			@card4 = @inventorylist_card4[.@ItemList[@menu]];
			mesclear;
			mes .npc$;
			mes "選擇成功！";
			end;
		case 2:
			if ( @Afterhead ){
				mes .npc$;
				mes "你目前已經有選擇轉後前時裝";
				mes "需要重新做選擇嗎？";
				if ( select("是:否") == 2 ) end;
				mesclear;
			}
			mes .npc$;
			mes "請選擇要轉移後的時裝！";
			disable_items;
			getinventorylist;
			while(.@i < @inventorylist_count)
			{
				if(@inventorylist_id[.@i]){
					if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 1024 ){
						set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
						set .@ItemList[set(.@j,.@j+1)],.@i;
					}
					if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 2048 ){
						set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
						set .@ItemList[set(.@j,.@j+1)],.@i;
					}
					if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 4096 ){
						set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
						set .@ItemList[set(.@j,.@j+1)],.@i;
					}
					if ( getiteminfo(@inventorylist_id[.@i],2) == 4 && getiteminfo(@inventorylist_id[.@i],5) == 8192 ){
						set .@menu$,.@menu$+("+"+@inventorylist_refine[.@i]+" "+getitemname(@inventorylist_id[.@i])+" x "+@inventorylist_amount[.@i]+"")+":";
						set .@ItemList[set(.@j,.@j+1)],.@i;
					}
						set .@i,.@i+1;
				}
			}
			select(.@menu$);
			@Afterhead = @inventorylist_id[.@ItemList[@menu]];
			mesclear;
			mes .npc$;
			mes "選擇成功！";
			end;
		case 3:
			if ( !@beforehead || !@Afterhead ){
				mes .npc$;
				mes "你好像還沒選擇好時裝哦？";
				end;
			}
			if ( countitem(@beforehead) > 1 || countitem(@Afterhead) > 1){
				mes .npc$;
				mes "你身上好像有一個以上的轉移前或後時裝！";
				end;
			}
			if ( #CASHPOINTS < .costcash ){
				mes .npc$;
				mes "你並沒有足夠的Cash!";
				end;
			}
			if ( @beforhead == @Afterhead ){
				mes .npc$;
				mes "不能選擇一樣的時裝！";
				end;
			}
			mesclear;
			mes .npc$;
			mes "轉移前時裝 : "+getitemname(@beforehead)+"";
			mes "轉移後時裝 : "+getitemname(@Afterhead)+"";
			mes "花費 "+.costcash+" Cash ";
			mes "^FF0000轉移後的所有附魔將會被蓋掉！^000000";
			next;
			if ( select("轉移!:取消") == 2 ) end;
			if ( #CASHPOINTS < .costcash ){
				mes .npc$;
				mes "你並沒有足夠的Cash!";
				end;
			}
			#CASHPOINTS -= 5000;
			delitem @beforehead,1;
			delitem @afterhead,1;
			getitem2 @afterhead,1,1,@refine,0,@card1,@card2,@card3,@card4;
			getitem @beforehead,1;
			@beforehead = 0;
			@afterhead = 0;
			@refine = 0;
			@card1 = 0;
			@card2 = 0;
			@card3 = 0;
			@card4 = 0;
			end;
		}
		end;
OnInit:
	.npc$ = "["+strnpcinfo(1)+"]";
	.costcash = 5000;
	end;
}