Release Bank script using variables

[Gezza]

Banking script allowing you to have almost unlimited gold, this is for heroes but should work just the same on 2.3 .

Npc

[@main]
#IF
CHECK [100] 1
#ACT
GOTO @main1

#ELSEACT
SET [100] 1
Var Integer Human goldstore
goto @main1

[@main1]
Welcome to bank of Forsaken, here you may store your gold\ 
Your current ballance is <$HUMAN(goldstore)> Million in credit.\ \
<Store Gold/@store> \ 
<Withdraw Gold/@withdraw>\ 
<Withdraw Check/@withdrawcheck>

[@store]
How much would you like to store ? \ \ 
<10 mill/@10mill> - <50 mill/@50mill> - <100 mill/@100mill> - <500 mill/@500mill>

[@10mill]
#IF
CHECKGOLD 10000000
#ACT
TAKE GOLD 10000000
CalcVar Human goldstore + 10
SaveVar Human goldstore ..\QuestDiary\Variables\Integral.txt
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."
CLOSE
#ELSESAY
You seem to be short on funds..


[@50mill]
#IF
CHECKGOLD 50000000
#ACT
TAKE GOLD 50000000
CalcVar Human goldstore + 50
SaveVar Human goldstore ..\QuestDiary\Variables\Integral.txt
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."
CLOSE
#ELSESAY
You seem to be short on funds..

[@100mill]
#IF
CHECKGOLD 100000000
#ACT
TAKE GOLD 100000000
CalcVar Human goldstore + 100
SaveVar Human goldstore ..\QuestDiary\Variables\Integral.txt
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."
CLOSE
#ELSESAY
You seem to be short on funds..

[@500mill]
#IF
CHECKGOLD 500000000
#ACT
TAKE GOLD 500000000
CalcVar Human goldstore + 500
SaveVar Human goldstore ..\QuestDiary\Variables\Integral.txt
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."
CLOSE
#ELSESAY
You seem to be short on funds..

[@withdraw]
How much would you like to withdraw ? \ \ 
<10 mill/@10millw> - <50 mill/@50millw> - <100 mill/@100millw> - <500 mill/@500millw>

[@10millw]
#IF
CHECKGOLD 990000000
#SAY
You have to much gold on you already.
#ELSEACT
GOTO @10millw1

[@10millw1]
#IF
CheckVar Human goldstore > 9
#ACT
CalcVar Human goldstore - 10
GIVE GOLD 10000000
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."
CLOSE
#ELSESAY
You seem to be short on funds..

[@50millw]
#IF
CHECKGOLD 950000000
#SAY
You have to much gold on you already.
#ELSEACT
GOTO @50millw1

[@50millw1]
#IF
CheckVar Human goldstore > 49
#ACT
CalcVar Human goldstore - 50
GIVE GOLD 50000000
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."
CLOSE
#ELSESAY
You seem to be short on funds..

[@100millw]
#IF
CHECKGOLD 900000000
#SAY
You have to much gold on you already.
#ELSEACT
GOTO @100millw1

[@100millw1]
#IF
CheckVar Human goldstore > 99
#ACT
CalcVar Human goldstore - 100
GIVE GOLD 100000000
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."
CLOSE
#ELSESAY
You seem to be short on funds..


[@500millw]
#IF
CHECKGOLD 500000000
#SAY
You have to much gold on you already.
#ELSEACT
GOTO @500millw1


[@500millw1]
#IF
CheckVar Human goldstore > 499
#ACT
CalcVar Human goldstore - 500
GIVE GOLD 500000000
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."
CLOSE
#ELSESAY
You seem to be short on funds..




[@withdrawcheck]
Make sure you have room in your bag before proceeding.\
<100MillCheck/@100millc>  -  <500MillCheck/@500millc>  -  <1BillCheck/@1billc> \ \ \ \ \ \
<Back/@main>  -  <Exit/@exit>


[@100millc]
#IF
CheckVar Human goldstore > 99
#ACT
CalcVar Human goldstore - 100
GIVE 100MillCheck 1
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."
CLOSE
#ELSESAY
You seem to be short on funds..


[@500millc]
#IF
CheckVar Human goldstore > 499
#ACT
CalcVar Human goldstore - 500
GIVE 500MillCheck 1
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."
CLOSE
#ELSESAY
You seem to be short on funds..


[@1billc]
#IF
CheckVar Human goldstore > 999
#ACT
CalcVar Human goldstore - 1000
GIVE 1BillCheck 1
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."
CLOSE
#ELSESAY
You seem to be short on funds..

qmanage

[@login]
#ACT
Var Integer Human goldstore

qfuntion

[@StdModeFunc4]
#ACT
CalcVar Human goldstore + 100
SaveVar Human goldstore ..\QuestDiary\Variables\Integral.txt
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."


[@StdModeFunc5]
#ACT
CalcVar Human goldstore + 500
SaveVar Human goldstore ..\QuestDiary\Variables\Integral.txt
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."


[@StdModeFunc6]
#ACT
CalcVar Human goldstore + 1000
SaveVar Human goldstore ..\QuestDiary\Variables\Integral.txt
SENDMSG 6 " You now have <$HUMAN(goldstore)> Million gold stored."

database

481    100MillCheck    31    0    1    4    0    0    2374    1    0    0    0    0    0    0    0    0    0    0    0    0    100000    5    
482    500MillCheck    31    0    1    5    0    0    2375    1    0    0    0    0    0    0    0    0    0    0    0    0    100000    5    
483    1BillCheck    31    0    1    6    0    0    2376    1    0    0    0    0    0    0    0    0    0    0    0    0    100000    5

 

[Shank]

didnt someone else release this? gj anyway

 

[Gezza]

didnt someone else release this? gj anyway

I think someone released one using name lists, not variables.

 

[iJam]

yeah theres one out there using variables i used it as a base nice work though gez

 

[Gezza]

Ahh yeh just found it, doh.

 

[Tai]

Pointless imo but a good release nonetheless :P Thanks gezza

 

[neo16uk]

Banking script allowing you to have almost unlimited gold, this is for heroes but should work just the same on 2.3 .

Npc

[@login]
#ACT
Var Integer Human goldstore
[COLOR=#ff0000]LoadVar HUMAN goldstore ../QuestDiary/Variables/Integral.txt[/COLOR]

is it not ment to have this in the qmanage?

 

[oO~Unknown~Oo]

Var Integer Human goldstore
LoadVar Human goldstore ../QuestDiary/Variables/Integral.txt

that's meant to go in the qmanage