// 矢筒NPC応用版　　弾薬箱NPC    by陽麗


ayothaya.gat,137,149,5	script	モグラさん	1628,{
}
ayothaya.gat,137,149,5	script	モグラさん#npc	111,{
	if(Weight*100/MaxWeight >= 90) {
		mes "[モグラさん]";
		mes "人間!";
		mes "随分と物を持っているね？";
		mes "持ち物を減らして来たら";
		mes "いい話、してあげようかー";
		close;
	}
	mes "[モグラさん]";
	mes "ボクはモグラさん!";
	mes "銃が大好きなんだけど弾が重いよね･･";
	mes "ってことで発明したの!";
	mes "その名も^FF0000魔法の弾薬箱^000000!!";
	next;
	mes "[モグラさん]";
	mes "え･･･フェイヨンでも";
	mes "似たような話聞いたって?";
	mes "だれだパクったやつは･･･";
	mes "著作権的に問題だよね!";
	mes "取り合えず置いといて^0000FF魔法の弾薬箱^000000を";
	mes "見てみたい?欲しい?";
	next;
	emotion 21;
	mes "[モグラさん]";
	mes "これこそ、銃を使う人たちにとって";
	mes "喉から手が出るほど欲しかった";
	mes "ものだよね!";
	mes "ぃぇーーぃ!";
	mes "ボクこそ銃愛好家のモグラさん!";
	next;
	mes "[モグラさん]";
	mes "さて、欲しい弾薬箱はあるかな？";
	mes "君の心をわしづかみにすること";
	mes "間違いなしさ!";
	next;
	switch (select("弾薬箱","弾薬箱ブラッド","弾薬箱シルバー","ライトニングスフィアパック","ブラインドスフィアパック","ポイズンスフィアパック","フリージングスフィアパック",
						"フレアスフィアパック")) {
		case 1:
			set '@Bul,13200;
			set '@Bulquiv,12149;
			break;
		case 2:
			set '@Bul,13202;
			set '@Bulquiv,12150;
			break;
		case 3:
			set '@Bul,13201;
			set '@Bulquiv,12151;
			break;
		case 4:
			set '@Bul,13204;
			set '@Bulquiv,12144;
			break;
		case 5:
			set '@Bul,13206;
			set '@Bulquiv,12145;
			break;
		case 6:
			set '@Bul,13205;
			set '@Bulquiv,12146;
			break;
		case 7:
			set '@Bul,13207;
			set '@Bulquiv,12147;
			break;
		case 8:
			set '@Bul,13203;
			set '@Bulquiv,12148;
			break;
	}
	if(countitem('@Bul)<500 || Zeny<500) {
		mes "[モグラさん]";
		mes "これは" +getitemname('@Bul)+ "を";
		mes "500弾入れることができる弾薬箱だよ。";
		mes "ボクだけにできる特別な加工をしていて";
		mes "500弾そのまま持つより、これに";
		mes "入れた方が軽くなるという優れもの";
		mes "なんだ。";
		next;
		mes "[モグラさん]";
		mes "どう？ 驚いた？";
		mes "まるで輝く宝石のような神秘の";
		mes "アイテム！ 僕の宝物さ！";
		mes "弾薬箱が要るなら" +getitemname('@Bul)+ "500弾と";
		mes "500Zenyを持ってきて。";
		mes "弾薬箱に入れてあげるよ。";
		close;
	}
	mes "[モグラさん]";
	mes "おお、ちゃんと必要な弾数を";
	mes "持っているね。";
	mes "これに入れて使ってみる？";
	mes "^FF0000500Zeny^000000で";
	mes getitemname('@Bul)+ "500弾を";
	mes "この弾薬箱に入れてあげるよ。";
	next;
	switch (select("組み合わせ可能なだけ入れてもらう","弾薬箱1個分だけ入れてもらう","やめる")) {
	case 1:
		set '@have,countitem('@Bul);	//弾所持数
		set '@max,'@have/500;		//最大交換数
		set '@price,'@max*500;		//料金
		mes "[モグラさん]";
		mes "所持している" +getitemname('@Bul)+ " :";
		mes "^0000FF" +'@have+ " 弾^000000";
		mes "組み合わせ可能な" +getitemname('@Bulquiv)+ " :";
		mes "^0000FF" +'@max+ " 個^000000";
		mes "組み合わせに必要なZeny :";
		mes "^0000FF" +'@price+ " Zeny^000000";
		next;
		mes "交換しますか？";
		next;
		if(select("交換する","交換しない")==2) {
			mes "[モグラさん]";
			mes "なんだ……";
			mes "これだから人間は……";
			close;
		}
		break;
	case 2:
		set '@max,1;
		set '@price,500;
		break;
	case 3:
		mes "[モグラさん]";
		mes "なんだ……";
		mes "これだから人間は……";
		close;
	}
	delitem '@Bul,'@max*500;
	set Zeny,Zeny-'@price;
	getitem '@Bulquiv,'@max;
	mes "[モグラさん]";
	mes "ほら、これこれ！";
	mes "そこで、^0000FF注意点^000000が一つだけ";
	mes "あるからよく覚えておいてね。";
	mes "^FF0000重量が90%を超えると、この弾薬箱は";
	mes "使えなくなるから気をつけてね^000000";
	close;
}