bank.txt

制作网络游戏的一个小平台

// 卡普拉银行服务员测试脚本
prontera.gat,163,98,4	script	卡普拉银行服务员	112,{
cutin "kafra_06",2;

mes"[银行管理员]";
mes "欢迎光临卡普拉银行。";
mes "你确定要使用银行么?";
next;
menu "存款",BANK_IN,"取款",BANK_OUT,"离开",B_EXIT1;
BANK_IN:
mes"[银行管理员]";
mes "您确定要存款么?";
mes "我们是要收取手续费的哦";
mes "费用为总金额的0.1%。";
mes "存款金额必须大于1000zeny。";
next;
input @kafrabank;


if(@kafrabank>2145338308) goto BANK_Y;
if(@kafrabank<1000) goto B_EXIT;
set @kafrabank2,@kafrabank*1/1000;
if(@kafrabank+@kafrabank2>Zeny) goto BANK_F;
if(@kafrabank+@kafrabank2+#kafrabank<1) goto BANK_Y2;
set Zeny,Zeny-@kafrabank-@kafrabank2;
set #kafrabank,#kafrabank+@kafrabank;
mes "手续费为^135445" + @kafrabank2 + "z^000000。";

goto B_EXIT1;
BANK_OUT:
if(#kafrabank==0) goto BANK_F3;
mes"[银行管理员]";
mes "现在为您进行提款服务";
mes "您的总金额为^135445" + #kafrabank + "^000000Zeny。";
mes "请问您要取出多少?";
next;
input @kafrabank;


if(@kafrabank<1) goto B_EXIT1;
if(@kafrabank>2147483647) goto BANK_Y;
if(@kafrabank>#kafrabank) goto BANK_F2;
if(@kafrabank+Zeny<1) goto BANK_Y3;
set #kafrabank,#kafrabank-@kafrabank;
set Zeny,Zeny+@kafrabank;

goto B_EXIT1;

BANK_F:
mes "[银行管理员]";
mes "您没有足够的金钱哦。";
next;
menu "存款",BANK_IN,"取款",BANK_OUT,"离开",B_EXIT1;
BANK_Y:
mes "[银行管理员]";
mes "输入的金额超出受理范围";
next;
menu "存款",BANK_IN,"取款",BANK_OUT,"离开",B_EXIT1;
BANK_Y2:
mes "[银行管理员]";
mes "抱歉，每个帐户最多能存21亿Zeny";
mes "您输入的金额以超出此范围";
next;
menu "存款",BANK_IN,"取款",BANK_OUT,"离开",B_EXIT1;
BANK_Y3:
mes "[银行管理员]";
mes "抱歉，您身上最多能带21亿Zeny";
mes "您输入的金额以超出此范围";
next;
menu "存款",BANK_IN,"取款",BANK_OUT,"离开",B_EXIT1;
BANK_F2:
mes"[银行管理员]";
mes "对不起，您没有那么多存款。";
mes "我们不提供透支服务。";
next;
menu "存款",BANK_IN,"取款",BANK_OUT,"离开",B_EXIT1;
BANK_F3:
mes"[银行管理员]";
mes "对不起，您没有存款。";
mes "我们不提供透支服务。";
next;
menu "存款",BANK_IN,"取款",BANK_OUT,"离开",B_EXIT1;


B_EXIT:
mes"[银行管理员]";
mes "抱歉您输入的金额不正确";
mes "存款金额必须大于1000zeny。";
next;
menu "存款",BANK_IN,"取款",BANK_OUT,"离开",B_EXIT;
B_EXIT1:
mes"[银行管理员]";
mes "非常高兴能为您服务。";
mes "期待您的再度光临。";
cutin "kafra_06",255;
close;
}