- Feb 6, 2011
- 282
- 3
- 44
[@bank]#SAY\\\[@THegoldstuff1]#ACTMov D1 %ARG(2) Mov A3 %ARG(1)#IFEqual A3 ""#ACTFormatStr "'%s',%s" Mov A8 %A9FormatStr "FLD_NAME='%s'" Mov A2 %A9WriteValueSql "TBL_Bank" %A2 "FLD_NAME,FLD_Gold" %A8goto @menu[@menu]#SAYWelcome to the {FCOLOR/10}Athena server{FCOLOR/12} Bank\{FCOLOR/3}{FCOLOR/12} has {FCOLOR/1}{FCOLOR/12} Gold.\The total amount of gold you can store\can NOT exceed {FCOLOR/1}2Billion{FCOLOR/12}!!\\\\\\[@AddGold]#SAY{FCOLOR/3}{FCOLOR/12} has {FCOLOR/1}{FCOLOR/12} Gold.\The total amount of gold you can store\can NOT exceed {FCOLOR/1}1Billion{FCOLOR/12}!!\How Much gold would you like to donate to your bank?\\[@@goldamount]#ACTMov D6 %INPUTSTRgoto @checkgold[@checkgold]#IFcheckgold %D6#ACTInc D1 %D6FormatStr "FLD_Username='%s'" %USERNAMEMov A8 %A9FormatStr "FLD_Gold='%s'" %D1ReadValueSql "TBL_Bank" %A9 "fld_gold" @goldcheckUPDATEVALUESQL "TBL_Bank" %A8 %A9take gold %D6#SAY{FCOLOR/10}{FCOLOR/10} now has {FCOLOR/11}{FCOLOR/10} gold in the bank.\\\#elsesayYou do not have Gold.\\\\\[@getstuff1]#IF#SAY{FCOLOR/6} {FCOLOR/12} has {FCOLOR/1}{FCOLOR/12} Gold.\How Much gold would you like to take out of your bank?\\\\[@@takethegold]#ACTMov D4 %INPUTSTRgoto @goldcheck[@goldcheck]#IFELARGE D1 %D4#ACTDec D1 %D4FormatStr "FLD_Username='%s'" %USERNAMEMov A8 %A9FormatStr "FLD_Gold='%s'" %D1UPDATEVALUESQL "TBL_Bank" %A8 %A9give gold %D4#SAY{FCOLOR/5} {FCOLOR/10} now has {FCOLOR/11}{FCOLOR/10} gold in the bank.\#ELSESAYYou are taking too much gold!\\\\\[@goldcheck]#sayYou Have In Bank\#elsesaynothing in bank\
Last edited: