//---サンプル　カード解除スクリプト---
//---ここから---
izlude.vhm,129,116,4 script 職員 117,{
　　　　mes "[職員]";
　　　　mes "こんにちは〜。";
　　　　mes "何いたしますか？";
　　　　next menu "カードを解除したい",L_1,"終了",-;
	close;
L_1:
　　　　mes "[職員]";
　　　　mes "カード解除するには";
　　　　mes "基本料金として^4040FF50000z^000000と";
　　　　mes "カード１枚につき^4040FF20000z^000000消費します。";
　　　　mes "よろしいですか？";
　　　　next;
　　　　menu "お願いする",-,"やめる",L_exit;
　　　　mes "[職員]";
　　　　mes "カードを解除する箇所を選択してください。";
　　　　next;
　　　　menu "やっぱやめる",-,"武器",L_w;
　　　  mes "[職員]";
　　　　mes "失敗する可能性あります。";
　　　  mes "お聞きしますが、";
　　　　mes "カードと武器どっちが大切ですか？";
　　　　next menu "カードです",C_1,"武器です",C_2,"やはりやめる",C_3;
C_1:
　　　　set @failtype,2;
　　　　goto M_1;
C_2:
　　　　set @failtype,1;
　　　　goto M_1;
C_3:
　　　　goto _exit;
L_w:
　　　　set @part,@menu-1;
　　　　check(getequipcardcnt(@part) == 0) goto M_0;
　　　　set @cardcount,getequipcardcnt(@part);
　　　　check(@cardcount > 1) goto M_1;
M_1:
　　　  mes "[職員]";
　　　　mes "この箇所には" + @cardcount + "枚カードが付いています。";
　　　　mes "解除しますか？";
　　　　menu "お願いします",-,"やめる",L_exit;
　　　　check((zeny < (50000+(@cardcount * 20000))) goto M_3;
　　　　set zeny,zeny - (50000+(@cardcount * 20000));
　　　　set @failchance,rand(100);
　　　　check(@failchance < 2) goto M_4;
　　　　check((@failchance < 6) && (@failtype == 1)) goto M_5;
　　　　check((@failchance < 6) && (@failtype == 2)) goto M_6;
　　　　check(@failchance < 10) goto M_7;
　　　　successremovecards @part;
　　　  mes "[職員]";
　　　　mes "解除に成功しました。";
　　　　goto L_exit;
M_0:
　　　　mes "[職員]";
　　　　mes "カード付いていないため、できません。";
　　　　goto L_exit;
M_3:
　 　　 mes "[職員]";
　　　　mes "お金足りません。";
	close;
M_4:
　 　　 mes "[職員]";
　　　　mes "すみません、解除に失敗しました。";
　　　　mes "カードと武器も破損しました。"
	close;
M_5:
　 　　 mes "[職員]";
　　　　mes "すみません、解除に失敗しました。";
　　　　mes "しかし、武器は無事です。";
	close;
M_6:
　 　　 mes "[職員]";
　　　　mes "すみません、武器が壊れました。";
　　　　mes "しかし、カードは無事です。";
	close;
M_7:
　 　　 mes "[職員]";
　　　　mes "すみません、解除に失敗しました。";
　　　　mes "しかし、武器とカードは無事です。";
	close;
L_exit:
	close;
}
//---ここまで---