From 620e60eebce2c1f35c5c9a82f6ca365b316587f5 Mon Sep 17 00:00:00 2001
From: Valaris <Valaris@54d463be-8e91-2dee-dedb-b68131a5f0ec>
Date: Sun, 29 Jan 2006 16:10:48 +0000
Subject: AS OF SVN REV. 5901, WE ARE NOW USING TRUNK.  ALL UNTESTED
 BUGFIXES/FEATURES GO INTO TRUNK. IF YOU HAVE A WORKING AND TESTED BUGFIX PUT
 IT INTO STABLE AS WELL AS TRUNK.  EVERYTHING ELSE GOES INTO TRUNK AND WILL BE
 MERGED INTO STABLE BY VALARIS AND WIZPUTER. -- VALARIS

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@5094 54d463be-8e91-2dee-dedb-b68131a5f0ec
---
 npc/sample/bank_test.txt | 58 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100644 npc/sample/bank_test.txt

(limited to 'npc/sample/bank_test.txt')

diff --git a/npc/sample/bank_test.txt b/npc/sample/bank_test.txt
new file mode 100644
index 000000000..cea5a1946
--- /dev/null
+++ b/npc/sample/bank_test.txt
@@ -0,0 +1,58 @@
+// Bank Test
+prontera.gat,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;
+}
-- 
cgit v1.2.3-60-g2f50