Bankers

[Harroghty]

There is more to making a banker than setting ACT_BANK. The exchange programs were peculiar to Waterdeep. Here they are for future use elsewhere; they must be used in this order (largest to smallest) for them to function as intended.

Code: Select all

>greet_prog 100~
sayto $n Welcome to the bank!
sayto $n You can deposit or withdraw coins.
sayto $n I can also change copper, silver, electrum,
sayto $n or gold coins into platinum coins if you give
sayto $n an amount of coins equivalent to 2, 5, or 10
sayto $n platinum. Alternatively, if you give me 1
sayto $n platinum, gold, electrum, or silver coin,
sayto $n I will change it into smaller coins.
mpjunk all
~
>bribe_prog 5001~
shake $n
drop all
sayto $n You must give me an amount of coins
sayto $n equivalent to 2, 5, or 10 platinum
sayto $n coins or only one coin. Not more, not less.
~
>bribe_prog 5000~
mpjunk all
mpmakecash 10 platinum
give 10 platinum $n
drop platinum
~
>bribe_prog 2501~
shake $n
drop all
sayto $n You must give me an amount of coins
sayto $n equivalent to 2, 5, or 10 platinum
sayto $n coins or only one coin. Not more, not less.
~
>bribe_prog 2500~
mpjunk all
mpmakecash 5 platinum
give 5 platinum $n
drop platinum
~
>bribe_prog 1001~
shake $n
drop all
sayto $n You must give me an amount of coins
sayto $n equivalent to 2, 5, or 10 platinum
sayto $n coins or only one coin. Not more, not less.
~
>bribe_prog 1000~
mpjunk all
mpmakecash 2 platinum
give 2 platinum $n
drop platinum
~
>bribe_prog 501~
shake $n
drop all
sayto $n You must give me an amount of coins
sayto $n equivalent to 2, 5, or 10 platinum
sayto $n coins or only one coin. Not more, not less.
~
>bribe_prog 500~
mpjunk all
mpmakecash 5 gold
give 5 gold $n
drop gold
~
>bribe_prog 101~
shake $n
drop all
sayto $n You must give me an amount of coins
sayto $n equivalent to 2, 5, or 10 platinum
sayto $n coins or only one coin. Not more, not less.
~
>bribe_prog 100~
mpjunk all
mpmakecash 10 silver
give 10 silver $n
drop silver
~
>bribe_prog 51~
shake $n
drop all
sayto $n You must give me an amount of coins
sayto $n equivalent to 2, 5, or 10 platinum
sayto $n coins or only one coin. Not more, not less.
~
>bribe_prog 50~
mpjunk all
mpmakecash 5 silver
give 5 silver $n
drop silver
~
>bribe_prog 11~
shake $n
drop all
sayto $n You must give me an amount of coins
sayto $n equivalent to 2, 5, or 10 platinum
sayto $n coins or only one coin. Not more, not less.
~
>bribe_prog 10~
mpjunk all
mpmakecash 10 copper
give 10 copper $n
drop copper
~
>bribe_prog 1~
shake $n
drop all
sayto $n You must give me an amount of coins
sayto $n equivalent to 2, 5, or 10 platinum
sayto $n coins or only one coin. Not more, not less.
~