Banking script allowing you to have almost unlimited gold, this is for heroes but should work just the same on 2.3 .
Npc
qmanage
qfuntion
database
Npc
Code:
[@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
Code:
[@login]
#ACT
Var Integer Human goldstore
qfuntion
Code:
[@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
Code:
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