//---------------------------------------------------------------------------------------
//カード販売NPC							by Plala
//BOSSカードリスト
//1.ゴーストリングカード	2.黄金蟲カード			3.フリオニカード
//4.エドガカード		5.月夜花カード			6.ミストレスカード
//7.ドラキュラカード		8.オークロードカード		9.ドレイクカード
//10.アヌビスカード		11.ドッペルゲンガーカード	12.エンジェリングカード
//13.オークヒーローカード	14.オシリスカード		15.ヴェルゼブブカード
//16.マヤーカード		17.バフォメットカード		18.ファラオカード
//---------------------------------------------------------------------------------------
//機能説明
//
//BOSSカード獲得時キャラ名が全体に流れます。
//./save/athena.txtに誰がどのカードを手に入れたか記録されます。
//BOSSカードの出る確率は1/1000です。
//
//注意事項
//
//くれぐれも使用されている変数名を確認してから使用してください。
//現存変数と被る可能性がありますのでご注意ください。
//---------------------------------------------------------------------------------------
prt_in.gat,111,73,5	script	カード屋	725,{
	mes "[カード屋]";
	mes "いらっしゃいませー";
	mes "こちらでは、カードが購入できます。";
	mes "BOSSカードと中BOSSカードは極低確率で出ます。";
	mes "どうなさいますか？";
	next;
	menu "買いたいです",L_card,"やめます",L_EXIT;
L_card:
	mes "[カード屋]";
	mes "1枚100kzで、";
	mes "最高10枚まで購入できます。";
	mes "何枚購入しますか？";
	next;
	input @cardnum;
	if (@cardnum > 10) goto L_Error;
	if (@cardnum <= 0) goto L_EXIT;
	set @cardzeny,@cardnum*100000;
	if (Zeny < @cardzeny) goto L_Error2;
		set Zeny,Zeny-@cardzeny;
		goto Lcard;
Lcard:
		set @cardnum,@cardnum-1;
		set @HoR,rand(18000);//カードの確立設定
		if(@HoR == 17000) goto Lcard1;
		if(@HoR == 16000) goto Lcard1_1;
		if(@HoR == 15000) goto Lcard1_2;
		if(@HoR == 14000) goto Lcard1_3;
		if(@HoR == 13000) goto Lcard1_4;
		if(@HoR == 12000) goto Lcard1_5;
		if(@HoR == 11000) goto Lcard1_6;
		if(@HoR == 10000) goto Lcard1_7;
		if(@HoR == 9000) goto Lcard1_8;
		if(@HoR == 8000) goto Lcard1_9;
		if(@HoR == 7000) goto Lcard1_10;
		if(@HoR == 6000) goto Lcard2;
		if(@HoR == 5000) goto Lcard2_1;
		if(@HoR == 4000) goto Lcard2_2;
		if(@HoR == 3000) goto Lcard2_3;
		if(@HoR == 2000) goto Lcard2_4;
		if(@HoR == 1000) goto Lcard2_5;
		if(@HoR == 500) goto Lcard2_6;
		if((@HoR <= 499) && (@HoR >= 17001)) goto Lcard3;
		if((@HoR >= 15001) && (@HoR <= 16999)) goto Lcard4;
		if((@HoR >= 13001) && (@HoR <= 14599)) goto Lcard5;
		if((@HoR >= 11001) && (@HoR <= 11799)) goto Lcard6;
		if((@HoR >= 10001) && (@HoR <= 10599)) goto Lcard7;
		if((@HoR >= 501) && (@HoR <= 999)) goto Lcard8;
		set CardOut,rand(4001,4046);
		goto Lcard_out;
Lcard1:
	set CardOut,4047;
	Announce strcharinfo(0) + "さんゴーストリングカードおめでとうございます。",0;
	set boss1,boss1+1;
	goto Lcard_out;
Lcard1_1:
	set CardOut,4128;
	Announce strcharinfo(0) + "さん黄金蟲カードおめでとうございます。",0;
	set boss2,boss2+1;
	goto Lcard_out;
Lcard1_2:
	set CardOut,4121;
	Announce strcharinfo(0) + "さんフリオニカードおめでとうございます。",0;
	set boss3,boss3+1;
	goto Lcard_out;
Lcard1_3:
	set CardOut,4123;
	Announce strcharinfo(0) + "さんエドガカードおめでとうございます。",0;
	set boss4,boss4+1;
	goto Lcard_out;
Lcard1_4:
	set CardOut,4131;
	Announce strcharinfo(0) + "さん月夜花カードおめでとうございます。",0;
	set boss5,boss5+1;
	goto Lcard_out;
Lcard1_5:
	set CardOut,4132;
	Announce strcharinfo(0) + "さんミストレスカードおめでとうございます。",0;
	set boss6,boss6+1;
	goto Lcard_out;
Lcard1_6:
	set CardOut,4134;
	Announce strcharinfo(0) + "さんドラキュラカードおめでとうございます。",0;
	set boss7,boss7+1;
	goto Lcard_out;
Lcard1_7:
	set CardOut,4135;
	Announce strcharinfo(0) + "さんオークロードカードおめでとうございます。",0;
	set boss8,boss8+1;
	goto Lcard_out;
Lcard1_8:
	set CardOut,4137;
	Announce strcharinfo(0) + "さんドレイクカードおめでとうございます。",0;
	set boss9,boss9+1;
	goto Lcard_out;
Lcard1_9:
	set CardOut,4138;
	Announce strcharinfo(0) + "さんアヌビスカードおめでとうございます。",0;
	set boss10,boss10+1;
	goto Lcard_out;
Lcard1_10:
	set CardOut,4142;
	Announce strcharinfo(0) + "さんドッペルゲンガーカードおめでとうございます。",0;
	set boss11,boss11+1;
	goto Lcard_out;
Lcard2:
	set CardOut,4054;
	Announce strcharinfo(0) + "さんエンジェリングカードおめでとうございます。",0;
	set boss12,boss12+1;
	goto Lcard_out;
Lcard2_1:
	set CardOut,4143;
	Announce strcharinfo(0) + "さんオークヒーローカードおめでとうございます。",0;
	set boss13,boss13+1;
	goto Lcard_out;
Lcard2_2:
	set CardOut,4144;
	Announce strcharinfo(0) + "さんオシリスカードおめでとうございます。",0;
	set boss14,boss14+1;
	goto Lcard_out;
Lcard2_3:
	set CardOut,4145;
	Announce strcharinfo(0) + "さんヴェルゼブブカードおめでとうございます。",0;
	set boss15,boss15+1;
	goto Lcard_out;
Lcard2_4:
	set CardOut,4146;
	Announce strcharinfo(0) + "さんマヤーカードおめでとうございます。",0;
	set boss16,boss16+1;
	goto Lcard_out;
Lcard2_5:
	set CardOut,4147;
	Announce strcharinfo(0) + "さんバフォメットカードおめでとうございます。",0;
	set boss17,boss17+1;
	goto Lcard_out;
Lcard2_6:
	set CardOut,4148;
	Announce strcharinfo(0) + "さんファラオカードおめでとうございます。",0;
	set boss18,boss18+1;
	goto Lcard_out;
Lcard3:
	set CardOut,rand(4048,4053);
	goto Lcard_out;
Lcard4:
	set CardOut,rand(4055,4068);
	goto Lcard_out;
Lcard5:
	set CardOut,rand(4069,4080);
	goto Lcard_out;
Lcard6:
	set CardOut,rand(4081,4100);
	goto Lcard_out;
Lcard7:
	set CardOut,rand(4101,4120);
	goto Lcard_out;
Lcard8:
	set CardOut,rand(4124,4127);
	goto Lcard_out;
Lcard_out:
	getitem CardOut,1;
	if(@cardnum >= 1) goto Lcard;
	mes "[カード屋]";
	mes "またのご来店をお待ちしてます。";
	close;
L_Error:
	mes "[カード屋]";
	mes "最高10枚までしか";
	mes "買えません。";
	mes "もう一度お確かめください";
	next;
	goto L_card;
L_Error2:
	mes "[カード屋]";
	mes "所持金が足りないようです";
	mes "お金を確かめてください。";
	next;
	goto L_card;
L_EXIT:
	mes "[カード屋]";
	mes "そうですか、";
	mes "またのご来店をお待ちしております。";
	close;
}