CALLEK: Update the script to work in current DR

2021-06-12T19:36:20Z

Update the script to work in current DR

← Older revision		Revision as of 14:36, 12 June 2021
Line 1:		Line 1:
	{{User:Callek/Navigation}}		{{User:Callek/Navigation}}

			'''NOTE''' This script is no longer useful with current {{tt\|WEALTH}} changes.

	Requires Stormfront		Requires Stormfront
Line 10:		Line 12:
	>wealth		>wealth
	>yes		>yes
			Wealth:
	You have:
	243 platinum, 535 gold, 590 silver, 587 bronze, and 539 copper Kronars.		243 platinum, 535 gold, 590 silver, 587 bronze, and 539 copper Kronars (3030409 copper Kronars).
	4 silver, and 60 copper Lirums.		4 silver, and 60 copper Lirums (460 copper Lirums).
	5 silver, 1 bronze, and 1 copper Dokoras.		5 silver, 1 bronze, and 1 copper Dokoras (511 copper Dokoras).
	>		>
	A good positive attitude never hurts.		A good positive attitude never hurts.
Line 26:		Line 28:
	Actual Script:		Actual Script:
	<pre>		<pre>
		⚫	debug off

⚫	debug ~~OFF~~

	setvariable CoinTypeDone None		setvariable CoinTypeDone None
Line 41:		Line 42:
	setvariable bronzeCoins 0		setvariable bronzeCoins 0
	setvariable copperCoins 0		setvariable copperCoins 0
	matchre startWealthCheck /^ (?=\d* .*(?:Kronar\|Dokora\|Lirum))/		matchre startWealthCheck /^ (?=\d .*(?:Kronar\|Dokora\|Lirum))/
	matchre exitme /^A good positive attitude never hurts/		matchre exitme /^A good positive attitude never hurts/
	matchwait		matchwait
Line 81:		Line 82:
	goto DoneCoinType%CoinTypeDone%		goto DoneCoinType%CoinTypeDone%
	DoneCoinTypeNone:		DoneCoinTypeNone:
	matchre Kronar /^ Kronars./		matchre Kronar /^ Kronars.*\./
	DoneCoinTypeKronars:		DoneCoinTypeKronars:
	matchre Lirum /^ Lirums./		matchre Lirum /^ Lirums.*\./
	DoneCoinTypeLirum:		DoneCoinTypeLirum:
	matchre Dokora /^ Dokoras./		matchre Dokora /^ Dokoras.*\./
	matchwait		matchwait

Line 251:		Line 252:
	setvariable wealthNum %c%		setvariable wealthNum %c%
	goto loopWealthCheck		goto loopWealthCheck


	</pre>		</pre>

CARAAMON: CARAAMON moved page User:Callek/Scripts/Wealth to User:CALLEK/Scripts/Wealth

2015-04-24T05:01:21Z

CARAAMON moved page User:Callek/Scripts/Wealth to User:CALLEK/Scripts/Wealth

← Older revision	Revision as of 00:01, 24 April 2015
(No difference)

CALLEK at 19:36, 1 January 2009

2009-01-01T19:36:18Z

← Older revision		Revision as of 14:36, 1 January 2009
Line 1:		Line 1:
			{{User:Callek/Navigation}}

	Requires Stormfront		Requires Stormfront

CALLEK: New page: Requires Stormfront This script will perform a basic WEALTH command and tally all your coins, useful when you end up having many varying types of coin on you. This is a good indication o...

2009-01-01T19:35:40Z

New page: Requires Stormfront This script will perform a basic WEALTH command and tally all your coins, useful when you end up having many varying types of coin on you. This is a good indication o...

New page

Requires Stormfront

This script will perform a basic WEALTH command and tally all your coins, useful when you end up having many varying types of coin on you. This is a good indication of the power of Stormfront Scripting.

Example:
<pre>
[Script wealth is running, Esc to cancel, Shift-Esc to pause]
>wealth
>yes
You have:
243 platinum, 535 gold, 590 silver, 587 bronze, and 539 copper Kronars.
4 silver, and 60 copper Lirums.
5 silver, 1 bronze, and 1 copper Dokoras.
>
A good positive attitude never hurts.

Total Kronars: 3030409
Total Lirums: 460
Total Dokoras: 511

[script done]
</pre>

Actual Script:
<pre>

debug OFF

setvariable CoinTypeDone None
setvariable totalKronars 0
setvariable totalLirums 0
setvariable totalDokoras 0
put wealth
put yes
loopy:
setvariable platCoins 0
setvariable goldCoins 0
setvariable silverCoins 0
setvariable bronzeCoins 0
setvariable copperCoins 0
matchre startWealthCheck /^ (?=\d* .*(?:Kronar|Dokora|Lirum))/
matchre exitme /^A good positive attitude never hurts/
matchwait

exitme:
echo
echo Total Kronars: %totalKronars%
echo Total Lirums: %totalLirums%
echo Total Dokoras: %totalDokoras%
echo
exit

startWealthCheck:
setvariable wealthNum 0
loopWealthCheck:
matchre NumMatch0 /^0/
matchre NumMatch1 /^(and )?1/
matchre NumMatch2 /^(and )?2/
matchre NumMatch3 /^(and )?3/
matchre NumMatch4 /^(and )?4/
matchre NumMatch5 /^(and )?5/
matchre NumMatch6 /^(and )?6/
matchre NumMatch7 /^(and )?7/
matchre NumMatch8 /^(and )?8/
matchre NumMatch9 /^(and )?9/
matchre CoinTypeMatch /^ /
matchwait

CoinTypeMatch:
matchre platCoin /^platinum/
matchre goldCoin /^gold/
matchre silverCoin /^silver/
matchre bronzeCoin /^bronze/
matchre copperCoin /^copper/
matchwait

DoneCoinType:
matchre startWealthCheck /^, /
goto DoneCoinType%CoinTypeDone%
DoneCoinTypeNone:
matchre Kronar /^ Kronars./
DoneCoinTypeKronars:
matchre Lirum /^ Lirums./
DoneCoinTypeLirum:
matchre Dokora /^ Dokoras./
matchwait

Kronar:
setvariable platKronar %platCoins%
setvariable goldKronar %goldCoins%
setvariable silverKronar %silverCoins%
setvariable bronzeKronar %bronzeCoins%
setvariable copperKronar %copperCoins%
deletevariable platCoins
deletevariable goldCoins
deletevariable silverCoins
deletevariable bronzeCoins
deletevariable copperCoins
counter set %platKronar%
counter multiply 10
counter add %goldKronar%
counter multiply 10
counter add %silverKronar%
counter multiply 10
counter add %bronzeKronar%
counter multiply 10
counter add %copperKronar%
setvariable totalKronars %c%
goto loopy

Lirum:
setvariable platLirum %platCoins%
setvariable goldLirum %goldCoins%
setvariable silverLirum %silverCoins%
setvariable bronzeLirum %bronzeCoins%
setvariable copperLirum %copperCoins%
deletevariable platCoins
deletevariable goldCoins
deletevariable silverCoins
deletevariable bronzeCoins
deletevariable copperCoins
counter set %platLirum%
counter multiply 10
counter add %goldLirum%
counter multiply 10
counter add %silverLirum%
counter multiply 10
counter add %bronzeLirum%
counter multiply 10
counter add %copperLirum%
setvariable totalLirums %c%
goto loopy

Dokora:
setvariable platDokora %platCoins%
setvariable goldDokora %goldCoins%
setvariable silverDokora %silverCoins%
setvariable bronzeDokora %bronzeCoins%
setvariable copperDokora %copperCoins%
deletevariable platCoins
deletevariable goldCoins
deletevariable silverCoins
deletevariable bronzeCoins
deletevariable copperCoins
counter set %platDokora%
counter multiply 10
counter add %goldDokora%
counter multiply 10
counter add %silverDokora%
counter multiply 10
counter add %bronzeDokora%
counter multiply 10
counter add %copperDokora%
setvariable totalDokoras %c%
goto loopy

platCoin:
setvariable platCoins %wealthNum%
deletevariable wealthNum
goto DoneCoinType

goldCoin:
setvariable goldCoins %wealthNum%
deletevariable wealthNum
goto DoneCoinType

silverCoin:
setvariable silverCoins %wealthNum%
deletevariable wealthNum
goto DoneCoinType

bronzeCoin:
setvariable bronzeCoins %wealthNum%
deletevariable wealthNum
goto DoneCoinType

copperCoin:
setvariable copperCoins %wealthNum%
deletevariable wealthNum
goto DoneCoinType

NumMatch0:
counter set %wealthNum%
counter multiply 10
counter add 0
setvariable wealthNum %c%
goto loopWealthCheck

NumMatch1:
counter set %wealthNum%
counter multiply 10
counter add 1
setvariable wealthNum %c%
goto loopWealthCheck

NumMatch2:
counter set %wealthNum%
counter multiply 10
counter add 2
setvariable wealthNum %c%
goto loopWealthCheck

NumMatch3:
counter set %wealthNum%
counter multiply 10
counter add 3
setvariable wealthNum %c%
goto loopWealthCheck

NumMatch4:
counter set %wealthNum%
counter multiply 10
counter add 4
setvariable wealthNum %c%
goto loopWealthCheck

NumMatch5:
counter set %wealthNum%
counter multiply 10
counter add 5
setvariable wealthNum %c%
goto loopWealthCheck

NumMatch6:
counter set %wealthNum%
counter multiply 10
counter add 6
setvariable wealthNum %c%
goto loopWealthCheck

NumMatch7:
counter set %wealthNum%
counter multiply 10
counter add 7
setvariable wealthNum %c%
goto loopWealthCheck

NumMatch8:
counter set %wealthNum%
counter multiply 10
counter add 8
setvariable wealthNum %c%
goto loopWealthCheck

NumMatch9:
counter set %wealthNum%
counter multiply 10
counter add 9
setvariable wealthNum %c%
goto loopWealthCheck

</pre>

User:CALLEK/Scripts/Wealth - Revision history

CALLEK: Update the script to work in current DR

CARAAMON: CARAAMON moved page User:Callek/Scripts/Wealth to User:CALLEK/Scripts/Wealth

CALLEK at 19:36, 1 January 2009

CALLEK: New page: Requires Stormfront This script will perform a basic WEALTH command and tally all your coins, useful when you end up having many varying types of coin on you. This is a good indication o...