d2d9897606
* Deleted doc\sample\PCLoginEvent.txt, which contained outdated information. * Follow-up r16812, fixed file encoding. git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@16813 54d463be-8e91-2dee-dedb-b68131a5f0ec
67 lines
1.8 KiB
Plaintext
67 lines
1.8 KiB
Plaintext
//===== rAthena Script =======================================
|
|
//= Sample: Bank Test
|
|
//===== By: ==================================================
|
|
//= rAthena Dev Team
|
|
//===== Current Version: =====================================
|
|
//= 20070315
|
|
//===== Description: =========================================
|
|
//= Contains commands needed for a basic bank.
|
|
//============================================================
|
|
|
|
prontera,162,188,1 script Bank Test 112,{
|
|
cutin "kafra_06",2;
|
|
|
|
mes "[Bank Test]";
|
|
mes "Welcome to Prontera's Bank Test.";
|
|
mes "You can only deposit a minimal of";
|
|
mes "1000z. What do you want to do?";
|
|
next;
|
|
menu "Deposit",BANK_IN,"Withdraw",BANK_OUT,"Exit",B_EXIT2;
|
|
BANK_IN:
|
|
mes "[Bank Test]";
|
|
mes "You must deposit the same of less";
|
|
mes "amount of zeny that you carry.";
|
|
mes "How much do you want to deposit?";
|
|
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 "You now have: ^135445" + @kafrabank2 + "z^000000";
|
|
|
|
goto B_EXIT;
|
|
BANK_OUT:
|
|
if(#kafrabank==0) goto BANK_F2;
|
|
mes "[Bank Test]";
|
|
mes "You can only withdraw equally or below this quantity:";
|
|
mes "^135445" + #kafrabank + "^000000z";
|
|
mes "How much do you want to withdraw?";
|
|
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 "[Bank Test]";
|
|
mes "You can't withdraw more than ^135445"+ #kafrabank + "^000000z.";
|
|
goto B_EXIT2;
|
|
BANK_F2:
|
|
mes "[Bank Test]";
|
|
mes "Your account is empty, you may not withdraw at this time.";
|
|
goto B_EXIT2;
|
|
|
|
B_EXIT:
|
|
mes "Thanks for using depositing";
|
|
B_EXIT2:
|
|
mes "Good bye!";
|
|
cutin "kafra_06",255;
|
|
close;
|
|
} |