//カプラ職員
-	script	highkapura	{
        cutin "kafra_01",2;

	mes "[カプラ職員]";

	mes "いらっしゃいませ";

	mes "カプラサービスは";

	mes "いつも皆様のそばにいます。";

	next;

	menu "位置セーブサービス",L1,"倉庫を利用する",L2,"ギルド倉庫を利用する",L3,"銀行を利用する",L4,"カートを利用する",L5,"ペコペコ ファルコン貸し出し",L6,"鑑定サービス",L7,"ヒールサービス",L8,"終了",L9;

L1:

        savepoint "prontera.gat",155,191;

        mes "[カプラ職員]";

        mes "セーブしました。ゆっくりお過ごしください。";

        goto L_EXIT;



L2:

	callfunc "kfstorage",40;

	goto L_EXIT;



L3:

	set @flag,guildopenstorage(0);

	cutin "kafra_01",255;

	if(@flag == 1) goto GS_EXIT1;

	if(@flag == 2) goto GS_EXIT2;

	goto GS_EXIT4;


GS_EXIT1:
	mes "ギルドメンバーが倉庫を使用中です。";
	mes "しばらく待ってから利用してください。";
	cutin "kafra_01",255;
	goto GS_EXIT4;

GS_EXIT2:
	mes "ギルドに所属してない方は利用することができません。";
	cutin "kafra_01",255;
	goto GS_EXIT4;

GS_EXIT3:
	mes "またのご利用をお待ちしています♪";
	cutin "kafra_01",255;

GS_EXIT4:
	close;
	cutin "kafra_01",255;
	goto L_EXIT;



L4:
	mes"[カプラ職員]";
	mes "カプラ銀行サービスです。";
	mes "毎度ご利用ありがとうございます♪";
	mes "1000zからでのご利用になります。";
	next;
	menu "預ける",BANK_IN,"引き出す",BANK_OUT,"やっぱやめる",B_EXIT2;
BANK_IN:
	mes"[カプラ職員]";
	mes "預ける金額を入力してください♪";
	mes "ちなみに、手数料として";
	mes "預かり金の1%頂きます。";
	next;
	input @kafrabank;

	if(@kafrabank<1000) goto B_EXIT2;
	set @kafrabank2,@kafrabank*1/100;
	if(@kafrabank+@kafrabank2>Zeny) goto BANK_F;
	set Zeny,Zeny-@kafrabank-@kafrabank2;
	set #kafrabank,#kafrabank+@kafrabank;
	mes "手数料^135445" + @kafrabank2 + "z^000000頂きますね。";

	goto B_EXIT;
BANK_OUT:
	if(#kafrabank==0) goto BANK_F2;
	mes"[カプラ職員]";
	mes "現在あなたからお預かりしているのは";
	mes "^135445" + #kafrabank + "^000000Zenyです。";
	mes "引き出す金額を入力してください♪";
	next;
	input @kafrabank;

	if(@kafrabank<1) goto B_EXIT2;
	if(@kafrabank>#kafrabank) goto BANK_F;
	set #kafrabank,#kafrabank-@kafrabank;
	set Zeny,Zeny+@kafrabank;

	goto B_EXIT;

BANK_F:
	mes"[カプラ職員]";
	mes "持ち金が足りないようですね。";
	goto B_EXIT2;
BANK_F2:
	mes"[カプラ職員]";
	mes "あなたからは、1zも";
	mes "お預かりしていないですよ？";
	goto B_EXIT2;

B_EXIT:
	mes "無事に取り引きできました。";
B_EXIT2:
	mes "またのご利用をお待ちしています♪";
	cutin "kafra_06",255;
	close;
L5:
		if(Class!=5 && Class!=10 && Class!=18) goto L_mousiwake;
		if(Cart) goto L_alcart;
		mes "[カプラ職員]";
		mes "カート利用料金は" +getarg(9)+ "Zenyです。";
		mes "また、カートを利用するには";
		mes "「プッシュカート」スキルが必要です。";
		mes "そのスキルがないとカートを利用";
		mes "できずにお金だけ消えてしまいます。";
		mes "準備はよろしいですか？";
		next;
		menu "利用する",Lcartuse,"取り消し",Lyame;
Lcartuse:
		if(Zeny<getarg(9)) goto Ltarinaimoney;
			mes "[カプラ職員]";
			mes "ありがとうございました。";
			mes "またご利用くださいませ。";
		set Zeny,Zeny-getarg(9);
		setcart;
		goto L_EXIT;

L_alcart:
			mes "[カプラ職員]";
			mes "お客様は現在カートを";
			mes "利用されています。";
			goto L_EXIT;

L_mousiwake:
			mes "[カプラ職員]";
			mes "申し訳ございません。";
			mes "カートは商人とその上位職専用の";
			mes "サービスです。";
			goto L_EXIT;
Ltarinaimoney:
			mes "[カプラ職員]";
			mes "お客様、お金が足りません。";
			mes "カート利用料金は"+getarg(9)+"Zenyです。";
			goto L_EXIT;
L6:

		mes "[カプラ職員]";

		mes "ここでは、剣士ギルドと、";

		mes "ハンターギルドから";

		mes "許可を得てペコペコと";

		mes "ファルコンの貸し出しをしています。";

		mes "何をお手伝いいたしましょう？";

		next;

		menu "ペコペコ貸し出し",Lo1,"ファルコン貸し出し",Lo2,"終了",Lo3;

	Lo1:

		if (!((Class == 7) || (Class == 13) || (Class == 14) || (Class == 21))) goto Lerroro1_1;

		mes "[カプラ職員]";

		mes "ペコペコ利用料金は 2000 Zenyです。";

		mes "また、ペコペコを利用するには";

		mes "｢ライディング｣スキルが必要です。";

		mes "そのスキルがないとペコペコを利用";

		mes "できずにお金だけ消えてしまいます。";

		mes "準備はよろしいですか？";

		next;

		menu "利用する",Lo1_1,"取り消し",-;

			mes "[オプション職員]";

			mes "ありがとうございました。";

			mes "またご利用くださいませ。";

			goto Lo_EXIT;

		Lo1_1:

			if (Zeny < 2000) goto Lerroro1_2;

			set Zeny,Zeny-2000;

			setriding;

			goto Lo_EXIT;

		Lerroro1_1:

			mes "[カプラ職員]";

			mes "申し訳ございません。";

			mes "ペコペコは騎士とクルセイダー専用の";

			mes "サービスです。";

			goto Lo_EXIT;

		Lerroro1_2:

			mes "[カプラ職員]";

			mes "お客様、お金が足りません。";

			mes "ペコペコ利用料金は 2000 Zenyです。";

			goto Lo_EXIT;

	Lo2:

		if (!((Class == 11))) goto Lerroro2_1;

		mes "[カプラ職員]";

		mes "ファルコン利用料金は 2500 Zenyです。";

		mes "また、ファルコンを利用するには";

		mes "｢ファルコンマスタリー｣スキルが必要です。";

		mes "そのスキルがないとファルコンを利用";

		mes "できずにお金だけ消えてしまいます。";

		mes "準備はよろしいですか？";

		next;

		menu "利用する",Lo2_1,"取り消し",-;

			mes "[オプション職員]";

			mes "ありがとうございました。";

			mes "またご利用くださいませ。";

			goto Lo_EXIT;

		Lo2_1:

			if (Zeny < 2500) goto Lerroro2_2;

			set Zeny,Zeny-2500;

			setfalcon;

			goto Lo_EXIT;

		Lerroro2_1:

			mes "[カプラ職員]";

			mes "申し訳ございません。";

			mes "ファルコンはハンター専用の";

			mes "サービスです。";

			goto Lo_EXIT;

		Lerroro2_2:

			mes "[カプラ職員]";

			mes "お客様、お金が足りません。";

			mes "ファルコン利用料金は 2500 Zenyです。";

			goto Lo_EXIT;

	Lo3:

		mes "[カプラ職員]";

		mes "我々カプラサービスは、より完璧な";

		mes "サービスと管理業務を目指し";

		mes "お客様が安心してご利用いただけるよう";

		mes "いつも最善を尽くしています。";

		mes "カプラサービスをご利用いただき";

		mes "ありがとうございました。";

	Lo_EXIT:

		cutin "kafra_01",255;

		close;

L7:
	mes "[カプラ職員]";
	mes "鑑定したいアイテムはありますか？";
	mes "何個でも500Zenyです。";
	mes "ただし、鑑定するものが無くても";
	mes "お代はいただきますので、";
	mes "十分確認してください。";
	next;
	menu "鑑定してください",-,"今は特に無いです",Lnaidesu;
	if (Zeny < 500) goto Lokanenai;
	set Zeny,Zeny-500;
	gmcommand itemidentify;
	mes "[鑑定師]";
	mes "OK！です。";
	mes "すべて鑑定済みになりました。";
	goto Lo_EXIT;

	Lnaidesu:
		mes "[鑑定師]";
		mes "ふむ……";
		mes "なら私にに用は無いですね";
		goto Lo_EXIT;

Lokanenai:
	mes "[鑑定師]";
	mes "お金が足りません。";
	goto Lo_EXIT;

L8:

	mes "[カプラ職員]";
	mes "こちらではHPSPの回復を有料で行っています。";
	mes "HPのみの回復で1000z";
	mes "SPのみの回復で4000z";
	mes "両方回復で5000z";
	mes "となっております。";
	next;
	menu "ヒールしてもらう",Lhealplz,"やめておきます",Lyameru;

Lhealplz:

	menu "HPのみ回復する",Lhpheal,"SPのみ回復する",Lspheal,"両方回復する",Lbothheal,"やっぱやめる",Lyameru;

Lhpheal:
	if(Zeny < 1000) goto Lmoney;
	if((MaxHp == Hp)) goto Lgenki;
	set Zeny,Zeny-1000;
	gmcommand "@misceffect 325";
	percentheal 100,0;
	mes "[カプラ職員]";
	mes "我々カプラサービスは、より完璧な";
	mes "サービスと管理業務を目指し";
	mes "お客様が安心してご利用いただけるよう";
	mes "いつも最善を尽くしています。";
	mes "カプラサービスをご利用いただき";
	mes "ありがとうございました。";
	goto Lo_EXIT;

Lspheal:
	if(Zeny < 4000) goto Lmoney;
	if((MaxSp == Sp)) goto Lgenki;
	set Zeny,Zeny-4000;
	gmcommand "@misceffect 325";
	percentheal 0,100;
	mes "[カプラ職員]";
	mes "我々カプラサービスは、より完璧な";
	mes "サービスと管理業務を目指し";
	mes "お客様が安心してご利用いただけるよう";
	mes "いつも最善を尽くしています。";
	mes "カプラサービスをご利用いただき";
	mes "ありがとうございました。";
	goto Lo_EXIT;

Lbothheal:
	if(Zeny < 5000) goto Lmoney;
	if((MaxHp == Hp) && (MaxSp == Sp)) goto Lgenki;
	set Zeny,Zeny-5000;
	gmcommand "@misceffect 325";
	percentheal 100,100;
	mes "[カプラ職員]";
	mes "我々カプラサービスは、より完璧な";
	mes "サービスと管理業務を目指し";
	mes "お客様が安心してご利用いただけるよう";
	mes "いつも最善を尽くしています。";
	mes "カプラサービスをご利用いただき";
	mes "ありがとうございました。";
	goto Lo_EXIT;

Lyameru:

	mes "[カプラ職員]";
	mes "我々カプラサービスは、より完璧な";
	mes "サービスと管理業務を目指し";
	mes "お客様が安心してご利用いただけるよう";
	mes "いつも最善を尽くしています。";
	mes "カプラサービスをご利用いただき";
	mes "ありがとうございました。";
	goto Lo_EXIT;

Lmoney:
		mes "[カプラ職員]";
		mes "お金が足りないようです。";
		goto Lo_EXIT;

Lgenki:
		mes "[カプラ職員]";
		mes "ヒールの必要は無いようです。";
		goto Lo_EXIT;

L9:

	mes "[カプラ職員]";

	mes "我々カプラサービスは、より完璧な";

	mes "サービスと管理業務を目指し";

	mes "お客様が安心してご利用いただけるよう";

	mes "いつも最善を尽くしています。";

	mes "カプラサービスをご利用いただき";

	mes "ありがとうございました。";

L_EXIT:

	close2;

	cutin "kafra_01",255;

	end;

}

alberta.gat,101,228,4	duplicate(highkapura)	カプラ職員	117,