Bank Withdrawal (script) - Revision history

ISHARON at 00:23, 5 March 2016

2016-03-05T00:23:28Z

← Older revision		Revision as of 19:23, 4 March 2016
Line 15:		Line 15:
	==Script==		==Script==

	<pre>~~evalmath~~ ~~Total~~ %1		<pre>put #class bank off
			evalmath Total %1
	var Copper 0		var Copper 0
	var Bronze 0		var Bronze 0
Line 63:		Line 64:
	send wealth		send wealth
	waitforre ^Wealth:$		waitforre ^Wealth:$
			put #class bank on
			send balance
			waitforre ^The clerk pages through\|^The clerk flips through\|^You are\|^You find your jar with little effort, thankfully, and carefully count out the contents of it\|^Searching methodically through the shelves, you finally manage to locate the jar labeled
	put #parse SCRIPT DONE		put #parse SCRIPT DONE
	exit</pre>		exit</pre>

ISHARON at 22:25, 6 December 2014

2014-12-06T22:25:52Z

← Older revision		Revision as of 17:25, 6 December 2014
Line 61:		Line 61:

	end:		end:
	send wealth~~</pre>~~		send wealth
			waitforre ^Wealth:$
			put #parse SCRIPT DONE
			exit</pre>

ISHARON: Created page with '{{Script |cat=utility |fe=Genie |auth=Isharon }} This script withdraws an exact amount from the bank, using the fewest possible coins. (You must be at a bank te…'

2011-05-26T06:48:52Z

Created page with '{{Script |cat=utility |fe=Genie |auth=Isharon }} This script withdraws an exact amount from the bank, using the fewest possible coins. (You must be at a bank te…'

New page

{{Script
|cat=utility
|fe=Genie
|auth=[[User:Isharon|Isharon]]
}}

This script withdraws an exact amount from the bank, using the fewest possible coins. (You must be at a bank teller.)

==Syntax==

{{tt|.wd %1}}

%1 equals the number (in coppers) that you want to withdraw. For example, if you want to withdraw 103,496 Kronars, type {{tt|.wd 103496}}. The script will withdraw 10 plats, 3 gold, 4 silver, 9 bronze, and 6 coppers.

==Script==

<pre>evalmath Total %1
var Copper 0
var Bronze 0
var Silver 0
var Gold 0
var Platinum 0

evalmath Platinum floor(%Total / 10000)
evalmath Gold floor((%Total-(%Platinum*10000)) / 1000)
evalmath Silver floor((%Total-(%Platinum*10000)-(%Gold*1000)) / 100)
evalmath Bronze floor((%Total-(%Platinum*10000)-(%Gold*1000)-(%Silver*100)) / 10)
evalmath Copper %Total-(%Platinum*10000)-(%Gold*1000)-(%Silver*100)-(%Bronze*10)

if %Platinum > 0 then gosub withdrawp
if %Gold > 0 then gosub withdrawg
if %Silver > 0 then gosub withdraws
if %Bronze > 0 then gosub withdrawb
if %Copper > 0 then gosub withdrawc
goto end

withdrawp:
send withdraw %Platinum platinum
waitforre ^The clerk counts
return

withdrawg:
send withdraw %Gold gold
waitforre ^The clerk counts
return

withdraws:
send withdraw %Silver silver
waitforre ^The clerk counts
return

withdrawb:
send withdraw %Bronze bronze
waitforre ^The clerk counts
return

withdrawc:
send withdraw %Copper copper
waitforre ^The clerk counts
return

end:
send wealth</pre>