1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617261826192620262126222623262426252626262726282629263026312632263326342635263626372638263926402641264226432644264526462647264826492650265126522653265426552656265726582659266026612662266326642665266626672668266926702671267226732674267526762677267826792680268126822683268426852686268726882689269026912692269326942695269626972698269927002701270227032704270527062707270827092710271127122713271427152716271727182719272027212722272327242725272627272728272927302731273227332734273527362737273827392740274127422743274427452746274727482749275027512752275327542755275627572758275927602761276227632764276527662767276827692770277127722773277427752776277727782779278027812782278327842785278627872788278927902791279227932794 |
- //========================================================================================
- // -»» OmniAthena Scripts ««-
- // Copyright (c) 2004, Athena Advanced
- // http://agelessanime.com/aaforums/
- // By MC_Cameri
- // This Bank NPC doesn't need any items.
- // It is useful for servers in which you
- // lose zeny when you die.
- // Also, if you have 1,000,000,000z this
- // will be good to use.
- //========================================================================================
- //0072FF (sky blue)
- //FF7F01 (orange)
- prt_in.gat,165,141,4 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
- izlude_in.gat,57,110,4 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
- morocc_in.gat,142,64,3 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
- geffen_in.gat,77,169,2 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
- //Fixed location for new payon
- payon.gat,155,97,4 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
- alberta_in.gat,187,26,2 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
- aldebaran.gat,144,120,4 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
- xmas_in.gat,35,37,5 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
- cmd_in01.gat,115,171,7 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
- yuno_in01.gat,119,29,2 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
- amatsu.gat,189,108,6 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
- gonryun.gat,146,142,3 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
- um_in.gat,154,125,4 script Bank Manager 109,{
- set @tInterestRate, 2; //no decimals
- set @tMaxAccZeny, 1000000000; //max zeny allowed in ^FF7F01Bank Account^000000 1,000,000,000=1 billion
- set @tMaxZeny, 1000000000; //max zeny that a player can carry
- set @tMinZeny, 100; //min zeny allowed or Bank Account is closed
- set @tCreateZeny, 500; //zeny needed in order to create a Bank Account
- set @tMinDeposit,100; //min zeny to deposit
- set @tBeginningZeny, 100; //amount of zeny in Bank Account after creating
- mes "^0072FF[Bank Manager]^000000";
- mes "Welcome to this office branch of Midgard's Bank.";
- next;
- if (vBankAccActive==1) goto AccMenu;
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have a ^FF7F01Bank Account^000000 yet, you must buy one.";
- mes "It will cost you ^0000FF" + @tCreateZeny + "z^000000 to create it.";
- next;
- menu "^FF7F01Create Account.^000000",CreateAcc,"^FF7F01Information.^000000",BankInfo,"^FF7F01No thanks.^000000",NoCreateAcc;
- BankInfo:
- mes "^0072FF[Bank Manager]^000000";
- mes "Here are some points that you need to know:";
- mes "1. To create a ^FF7F01Bank Account^000000 you have to pay ^0000FF" + @tCreateZeny + "z^000000.";
- mes "2. You will be charged ^0000FF" + @tInterestRate + " percent^000000 everytime you Deposit.";
- mes "3. You must always have no less than ^0000FF" + @tMinZeny + "z^000000 on your ^FF7F01Bank Account^000000.";
- next;
- mes "4. You can save up to ^0000FF" + @tMaxAccZeny + "z^000000 in your bank account.";
- mes "5. You will be able to access your ^FF7F01Bank Account^000000 in any town with a Bank Office.";
- mes "6. You will start by having ^0000FF" + @tBeginningZeny + "z^000000 in your bank account.";
- close;
- CreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "First of all, you will have to have at least ^0000FF" + @tCreateZeny + "z^000000 with you.";
- mes "Your account will start with ^0000FF" + @tBeginningZeny +"z^000000.";
- mes "Are you sure you want to continue?";
- next;
- menu "^FF7F01Sure.^000000",CreateAccCont,"^FF7F01Nah, it's ok.^000000",NoCreateAcc;
- CreateAccCont:
- if (@tCreateZeny > Zeny) goto CreateAccNoEnoughZeny;
- set Zeny, Zeny - @tCreateZeny;
- set vBankAccActive,1;
- set vBankAccZeny, @tBeginningZeny;
- set vBankAccLastZeny, @tBeginningZeny;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Congratulations, your ^FF7F01Bank Account^000000 is now created with ^0000FF" + vBankAccZeny + "z^000000.";
- mes "You may now proceed to do any transactions.";
- next;
- goto AccMenu;
- CreateAccNoEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Didn't I tell you to make sure you had enough zeny?";
- mes "You can't create it with just ^0000FF" + Zeny + "z^000000.";
- mes "Come back when you get those ^0000FF" + @tCreateZeny + "z^000000...";
- next;
- goto EndNPC;
- NoCreateAcc:
- mes "^0072FF[Bank Manager]^000000";
- mes "Come back when you change your mind!";
- next;
- goto EndNPC;
- AccMenu:
- mes "^0072FF[Bank Manager]^000000";
- mes "Your current balance is ^0000FF" + vBankAccZeny +"z^000000.";
- mes "What would you like to do now?";
- next;
- menu "^FF7F01Deposit.^000000",AccDeposit,"^FF7F01Withdraw.^000000",AccWithdraw,"^FF7F01Bank Account Info.^000000",AccBalance,"^FF7F01Close Bank Account^000000",AccClose,"^FF7F01Cancel.^000000",EndNPC;
- AccDeposit:
- mes "^0072FF[Bank Manager]^000000";
- mes "It's always good to deposit every once in a while.";
- mes "Be noticed that we charge a ^0000FF" + @tInterestRate + " percent ^000000 of interest rate in every deposit you make.";
- mes "This means that to deposit ^0000FF100z^000000 you need to have pay us ^0000FF" + 100 * @tInterestRate / 100 + "z^000000.";
- mes "How much are you willing to deposit?";
- next;
- AccDepositInput:
- input @tDeposit;
- set @tDepositTax, @tDeposit * @tInterestRate / 100;
- set @tDepositTotal, @tDeposit - @tDepositTax;
- if (@tDeposit <= 0) goto AccDepositNoInput;
- if (@tDeposit < @tMinDeposit) goto AccDepositNotEnoughInput;
- if (@tDepositTotal > Zeny) goto AccDepositNotEnoughZeny;
- set @tBankAccZenyTemp, vBankAccZeny + @tDepositTotal;
- if (@tBankAccZenyTemp > @tMaxAccZeny) goto AccDepositOver;
- if ((@tDeposit <= Zeny) && (@tBankAccZenyTemp <= @tMaxAccZeny)) goto AccDepositCont;
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, for some weird reason I couldn't deposit your money.";
- next;
- goto AccMenu;
- AccDepositCont:
- set Zeny, Zeny - @tDeposit;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, @tBankAccZenyTemp;
- set vBankAccInterests, vBankAccInterests + @tDepositTax;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "^0000FF" + @tDeposit + "z^000000 substracted from your money (Taxes applied).";
- mes "^0000FF" + @tDepositTotal + "z^000000 successfully added to your ^FF7F01Bank Account^000000.";
- next;
- goto AccMenu;
- AccDepositOver:
- mes "^0072FF[Bank Manager]^000000";
- mes "There is a limit of ^0000FF" + @tMaxAccZeny + "z^000000 of how much zeny your ^FF7F01Bank Account^000000 can hold.";
- mes "You can't deposit more than that, please try again.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You need to put more money in order to make a deposit.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "You must enter a value higher than ^0000FF" + @tMinDeposit + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccDepositNotEnoughZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "You don't have ^0000FF" + @tDepositTotal + "z^000000.";
- mes "Remember that taxes are being applied.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccDepositInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdraw:
- mes "^0072FF[Bank Manager]^000000";
- mes "This is the only transaction I don't like... you figure out why...";
- mes "You can't withdraw leaving less than ^0000FF" + @tMinZeny +"z^000000 in your ^FF7F01Bank Account^000000.";
- mes "Your current balance is ^0000FF" + vBankAccZeny + "z^000000.";
- mes "How much are you going to widthdraw?";
- next;
- AccWithdrawInput:
- input @tWithdraw;
- set @tZenyLeft, vBankAccZeny - @tWithdraw;
- set @tZenyTemp, Zeny + @tWithdraw;
- if (@tWithdraw == 0) goto AccWithdrawNoInput;
- if (@tZenyLeft < @tMinZeny) goto AccWithdrawMinZeny;
- if (@tZenyTemp > @tMaxZeny) goto AccWithDrawOverCharZeny;
- set Zeny, Zeny + @tWithdraw;
- set vBankAccLastZeny, vBankAccZeny;
- set vBankAccZeny, vBankAccZeny - @tWithdraw;
- mes "^0072FF[Bank Manager]^000000";
- mes "Transaction completed successfully.";
- mes "Thank you for using our services.";
- next;
- goto AccMenu;
- AccWithdrawNoInput:
- mes "^0072FF[Bank Manager]^000000";
- mes "In order to withdraw from the bank, you must withdraw more than 0 zeny.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithdrawMinZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "I'm sorry...";
- mes "You can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your ^FF7F01Bank Account^000000 must have ^0000FF" + @tMinZeny + "z^000000 left or more at all times.";
- mes "In order to take all your money from the bank you must select Close Account in the Account Menu.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccWithDrawOverCharZeny:
- mes "^0072FF[Bank Manager]^000000";
- mes "Sorry, but you can't withdraw ^0000FF" + @tWithdraw + "z^000000 because your Player can't carry more than ^0000FF" + @tMaxZeny + "z^000000.";
- mes "Do you want to try again?";
- next;
- menu "^FF7F01Yes, please.^000000",AccWithdrawInput,"^FF7F01No, thanks.^000000",AccMenu;
- AccBalance:
- mes "^0072FF[Bank Manager]^000000";
- mes "Account Status:";
- //shown in blue if the same or more, show in red if less than previous balance
- if (vBankAccZeny >= vBankAccLastZeny) goto AccBalance2;
- mes "Current Balance: ^FF0000" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance2:
- mes "Current Balance: ^0000FF" + vBankAccZeny +"z^000000.";
- goto AccBalance3;
- AccBalance3:
- mes "Previous Balance: ^0000FF" + vBankAccLastZeny +"z^000000.";
- mes "Interest Rate: ^0000FF" + @tInterestRate + "%^000000.";
- mes "Interests Payed: ^0000FF" + vBankAccInterests + "z^000000.";
- next;
- goto AccMenu;
- AccClose:
- mes "^0072FF[Bank Manager]^000000";
- mes "If you close your ^FF7F01Bank Account^000000, it means you eliminate it.";
- mes "Of course, you will get all your money back.";
- mes "Are you sure you want to close your ^FF7F01Bank Account^000000?";
- next;
- menu "^FF7F01I don't want it anymore.^000000",AccCloseConfirm,"^FF7F01No, I'll keep it.^000000",AccCloseKeep;
- AccCloseConfirm:
- set vBankAccActive,0;
- set Zeny, Zeny + vBankAccZeny;
- set vBankAccZeny,0;
- set vBankAccLastZeny,0;
- set vBankAccInterests,0;
- mes "^0072FF[Bank Manager]^000000";
- mes "Thanks for using our services, we hope you come back to visit us.";
- mes "Here's your money.";
- next;
- goto EndNPC;
- AccCloseKeep:
- mes "^0072FF[Bank Manager]^000000";
- mes "Good choice, thanks for staying with us.";
- next;
- goto AccMenu;
- EndNPC:
- set @random,rand(4);
- mes "^0072FF[Bank Manager]^000000";
- if (@random == 0) mes "Have a nice day!";
- if (@random == 1) mes "See you soon!";
- if (@random == 2) mes "See you next time!";
- if (@random == 3) mes "Come back soon!";
- close;
- }
|