From 288490094a7fe9167747dc78d416940759a31197 Mon Sep 17 00:00:00 2001 From: FlavioJS Date: Tue, 5 Dec 2006 13:23:07 +0000 Subject: - Massive EOL normalization & 'svn:eol-style native' flag setting for all txt/conf/h/c files. git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@9410 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt | 350 +++++++++++------------ 1 file changed, 175 insertions(+), 175 deletions(-) (limited to 'npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt') diff --git a/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt b/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt index 9594dae47..6ad0c2d50 100644 --- a/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt +++ b/npc/custom/eAAC_Scripts/kafraExpress/ke_bank.txt @@ -1,175 +1,175 @@ -//===== eAthena Script ======================================= -//= Kafra Express - Bank Module -//===== By: ================================================== -//= Skotlex -//===== Current Version: ===================================== -//= 2.7 -//===== Compatible With: ===================================== -//= eAthena SVN R3524+ -//===== Description: ========================================= -//= Part of the Kafra Express Script Package. -//= Offers banking services with daily interests, and -//= withdrawal/deposit fees. -//===== Additional Comments: ================================= -//= See config.txt for configuration. -//============================================================ - -- script keInit_bank -1,{ -OnInit: //Load Config - donpcevent "keConfig::OnLoadBank"; - end; -} - -function script F_keBank { - - function SF_calcInterest; - SF_calcInterest(); - - do { - set @feeD,callfunc("F_keCost",$@kebk_depositCost,100); - set @maxDep,Zeny; - if (@maxDep > $@kebk_maxTransact) - set @maxDep,$@kebk_maxTransact; - if (#ke_bank + @maxDep > $@kebk_capacity) - set @maxDep,$@kebk_capacity-#ke_bank; - - set @feeW,callfunc("F_keCost",$@kebk_withdrawCost,100); - set @maxWith,#ke_bank-(#ke_bank*@feeW/100); - if (@maxWith > $@kebk_maxTransact) - set @maxWith,$@kebk_maxTransact; - - if (#ke_bank < $@kebk_capacity) { - set @kmenu, select( - "- Return (balance is "+#ke_bank+"z)", - "- Deposit (up to "+@maxDep+"z - "+@feeD+"% fee)", - "- Withdraw (up to "+@maxWith+"z + "+@feeW+"% fee)", - "- Transfer from 1st B.o.P. ("+#bankstorage+"z)", - "- Transfer from 2nd B.o.P. ("+#kafrabank+"z)" - ); - } else { - set @kmenu, select( - "- Return (balance is "+#ke_bank+"z)", - "- Withdraw (up to "+@maxWith+"z + "+@feeW+"% fee)", - "- Transfer from 1st B.o.P. ("+#bankstorage+"z)", - "- Transfer from 2nd B.o.P. ("+#kafrabank+"z)" - ); - if (@kmenu > 1) - set @kmenu, @kmenu+1; - } - switch (@kmenu) { - case 2: //Deposit - input @amount; - if (@amount < $@kebk_minTransact) { - callfunc "F_keIntro", -1, "Sorry, the minimum transaction value is "+$@kebk_minTransact+"z."; - break; - } - if (@amount > @maxDep) { - callfunc "F_keIntro", e_an, "You can't deposit that quantity!"; - break; - } - set #ke_bank,#ke_bank+@amount-(@amount*@feeD/100); - if ($@kebk_useGlobalBank) - set $ke_globalbank, $ke_globalbank +@amount*@feeD/100; - set Zeny,Zeny-@amount; - emotion e_cash; - break; - - case 3: //Withdraw - input @amount; - if (@amount < $@kebk_minTransact) { - callfunc "F_keIntro", -1, "Sorry, the minimum transaction value is "+$@kebk_minTransact+"z."; - break; - } - if (@amount > @maxWith) { - callfunc "F_keIntro", e_X, "You can't withdraw that quantity!"; - break; - } - set #ke_bank,#ke_bank-@amount-(@amount*@feeW/100); - if ($@kebk_useGlobalBank) - set $ke_globalbank, $ke_globalbank +@amount*@feeW/100; - set Zeny,Zeny+@amount; - emotion e_oh; - break; - - case 4: //1st B.o.P. - if (#bankstorage==0) { - callfunc "F_keIntro", -1, "Sorry, there is nothing left to transfer."; - break; - } - callfunc "F_keIntro", -1, #bankstorage+"z have been transferred from your account in the First Bank of Prontera."; - set #ke_bank,#ke_bank+#bankstorage; - set #bankstorage,0; - break; - - case 5: //2nd B.o.P. - if (#kafrabank==0) { - callfunc "F_keIntro", -1, "Sorry, there is nothing left to transfer."; - break; - } - callfunc "F_keIntro", -1, #kafrabank+"z have been transferred from your account in the Second Bank of Prontera."; - set #ke_bank,#ke_bank+#kafrabank; - set #kafrabank,0; - break; - } - } while (@kmenu > 1); -return; - -//Subfunction: SF_calcInterest -//Calculates the interests gained on the account. Uses 30-day months -function SF_calcInterest { - set @day,gettime(5); - if (@day>30) - set @day,30; //Use 30 day-months - set @month,gettime(6); - if (#ke_banktick == 0) { //Init bank. - set #ke_banktick,gettime(6)*30+@day; - if ($@kebk_monMaintenance < 1) return; - set #ke_bankmtick,@month; - return; - } - set @banktick,gettime(6)*30+@day; - if (@banktick == #ke_banktick) return; - if (@banktick < #ke_banktick) { //Year change. - do { - set #ke_banktick,#ke_banktick-360; - if ($@kebk_monMaintenance > 0) set #ke_bankmtick,#ke_bankmtick-12; - } while (@banktick < #ke_banktick); - } - if ($@kebk_monMaintenance > 0 && #ke_bankmtick < @month){ //Month change - set @qty,0; - do { - if (#ke_bank < $@kebk_monMaintenance) { - if (@qty>0) - mes "You've been charged "+@qty+"z for account maintenance, but it was not enough."; - if ($@kebk_useGlobalBank) - set $ke_globalbank, $ke_globalbank + @qty; - mes "You owe the Bank "+($@kebk_monMaintenance*(#ke_bankmtick-@month))+"z for maintenance costs. Until paid you won't earn interests..."; - return; - } - set @qty, @qty+$@kebk_monMaintenance; - set #ke_bankmtick,#ke_bankmtick+1; - set #ke_bank, #ke_bank-$@kebk_monMaintenance; - } while (#ke_bankmtick < @month); - mes "You've been charged "+@qty+"z for account maintenance."; - if ($@kebk_useGlobalBank) - set $ke_globalbank, $ke_globalbank + @qty; - } - set @qty,0; - if (#ke_bank > $@kebk_monMaintenance && #ke_bank < $@kebk_capacity) - set @qty,#ke_bank*$@kebk_dayInterest*(@banktick-#ke_banktick)/10000; - set #ke_banktick,@banktick; - if (@qty == 0) return; - if (@qty < 0) { - callfunc "F_keIntro", -1, "Sorry, your gained interests have been cancelled for being way too much."; - return; - } - if (#ke_bank + @qty > $@kebk_capacity) - set #ke_bank, $@kebk_capacity; - else - set #ke_bank,#ke_bank+@qty; - - callfunc "F_keIntro", -1, "Since your last visit, you've earned an interest of "+@qty+"z!"; -} //SF end - -} - +//===== eAthena Script ======================================= +//= Kafra Express - Bank Module +//===== By: ================================================== +//= Skotlex +//===== Current Version: ===================================== +//= 2.7 +//===== Compatible With: ===================================== +//= eAthena SVN R3524+ +//===== Description: ========================================= +//= Part of the Kafra Express Script Package. +//= Offers banking services with daily interests, and +//= withdrawal/deposit fees. +//===== Additional Comments: ================================= +//= See config.txt for configuration. +//============================================================ + +- script keInit_bank -1,{ +OnInit: //Load Config + donpcevent "keConfig::OnLoadBank"; + end; +} + +function script F_keBank { + + function SF_calcInterest; + SF_calcInterest(); + + do { + set @feeD,callfunc("F_keCost",$@kebk_depositCost,100); + set @maxDep,Zeny; + if (@maxDep > $@kebk_maxTransact) + set @maxDep,$@kebk_maxTransact; + if (#ke_bank + @maxDep > $@kebk_capacity) + set @maxDep,$@kebk_capacity-#ke_bank; + + set @feeW,callfunc("F_keCost",$@kebk_withdrawCost,100); + set @maxWith,#ke_bank-(#ke_bank*@feeW/100); + if (@maxWith > $@kebk_maxTransact) + set @maxWith,$@kebk_maxTransact; + + if (#ke_bank < $@kebk_capacity) { + set @kmenu, select( + "- Return (balance is "+#ke_bank+"z)", + "- Deposit (up to "+@maxDep+"z - "+@feeD+"% fee)", + "- Withdraw (up to "+@maxWith+"z + "+@feeW+"% fee)", + "- Transfer from 1st B.o.P. ("+#bankstorage+"z)", + "- Transfer from 2nd B.o.P. ("+#kafrabank+"z)" + ); + } else { + set @kmenu, select( + "- Return (balance is "+#ke_bank+"z)", + "- Withdraw (up to "+@maxWith+"z + "+@feeW+"% fee)", + "- Transfer from 1st B.o.P. ("+#bankstorage+"z)", + "- Transfer from 2nd B.o.P. ("+#kafrabank+"z)" + ); + if (@kmenu > 1) + set @kmenu, @kmenu+1; + } + switch (@kmenu) { + case 2: //Deposit + input @amount; + if (@amount < $@kebk_minTransact) { + callfunc "F_keIntro", -1, "Sorry, the minimum transaction value is "+$@kebk_minTransact+"z."; + break; + } + if (@amount > @maxDep) { + callfunc "F_keIntro", e_an, "You can't deposit that quantity!"; + break; + } + set #ke_bank,#ke_bank+@amount-(@amount*@feeD/100); + if ($@kebk_useGlobalBank) + set $ke_globalbank, $ke_globalbank +@amount*@feeD/100; + set Zeny,Zeny-@amount; + emotion e_cash; + break; + + case 3: //Withdraw + input @amount; + if (@amount < $@kebk_minTransact) { + callfunc "F_keIntro", -1, "Sorry, the minimum transaction value is "+$@kebk_minTransact+"z."; + break; + } + if (@amount > @maxWith) { + callfunc "F_keIntro", e_X, "You can't withdraw that quantity!"; + break; + } + set #ke_bank,#ke_bank-@amount-(@amount*@feeW/100); + if ($@kebk_useGlobalBank) + set $ke_globalbank, $ke_globalbank +@amount*@feeW/100; + set Zeny,Zeny+@amount; + emotion e_oh; + break; + + case 4: //1st B.o.P. + if (#bankstorage==0) { + callfunc "F_keIntro", -1, "Sorry, there is nothing left to transfer."; + break; + } + callfunc "F_keIntro", -1, #bankstorage+"z have been transferred from your account in the First Bank of Prontera."; + set #ke_bank,#ke_bank+#bankstorage; + set #bankstorage,0; + break; + + case 5: //2nd B.o.P. + if (#kafrabank==0) { + callfunc "F_keIntro", -1, "Sorry, there is nothing left to transfer."; + break; + } + callfunc "F_keIntro", -1, #kafrabank+"z have been transferred from your account in the Second Bank of Prontera."; + set #ke_bank,#ke_bank+#kafrabank; + set #kafrabank,0; + break; + } + } while (@kmenu > 1); +return; + +//Subfunction: SF_calcInterest +//Calculates the interests gained on the account. Uses 30-day months +function SF_calcInterest { + set @day,gettime(5); + if (@day>30) + set @day,30; //Use 30 day-months + set @month,gettime(6); + if (#ke_banktick == 0) { //Init bank. + set #ke_banktick,gettime(6)*30+@day; + if ($@kebk_monMaintenance < 1) return; + set #ke_bankmtick,@month; + return; + } + set @banktick,gettime(6)*30+@day; + if (@banktick == #ke_banktick) return; + if (@banktick < #ke_banktick) { //Year change. + do { + set #ke_banktick,#ke_banktick-360; + if ($@kebk_monMaintenance > 0) set #ke_bankmtick,#ke_bankmtick-12; + } while (@banktick < #ke_banktick); + } + if ($@kebk_monMaintenance > 0 && #ke_bankmtick < @month){ //Month change + set @qty,0; + do { + if (#ke_bank < $@kebk_monMaintenance) { + if (@qty>0) + mes "You've been charged "+@qty+"z for account maintenance, but it was not enough."; + if ($@kebk_useGlobalBank) + set $ke_globalbank, $ke_globalbank + @qty; + mes "You owe the Bank "+($@kebk_monMaintenance*(#ke_bankmtick-@month))+"z for maintenance costs. Until paid you won't earn interests..."; + return; + } + set @qty, @qty+$@kebk_monMaintenance; + set #ke_bankmtick,#ke_bankmtick+1; + set #ke_bank, #ke_bank-$@kebk_monMaintenance; + } while (#ke_bankmtick < @month); + mes "You've been charged "+@qty+"z for account maintenance."; + if ($@kebk_useGlobalBank) + set $ke_globalbank, $ke_globalbank + @qty; + } + set @qty,0; + if (#ke_bank > $@kebk_monMaintenance && #ke_bank < $@kebk_capacity) + set @qty,#ke_bank*$@kebk_dayInterest*(@banktick-#ke_banktick)/10000; + set #ke_banktick,@banktick; + if (@qty == 0) return; + if (@qty < 0) { + callfunc "F_keIntro", -1, "Sorry, your gained interests have been cancelled for being way too much."; + return; + } + if (#ke_bank + @qty > $@kebk_capacity) + set #ke_bank, $@kebk_capacity; + else + set #ke_bank,#ke_bank+@qty; + + callfunc "F_keIntro", -1, "Since your last visit, you've earned an interest of "+@qty+"z!"; +} //SF end + +} + -- cgit v1.2.3-60-g2f50