Currency Converter (script)

Currency Converter (script)
Category	information
Front-end	Genie
Author	Isharon

This Genie script converts between the three Elanthian currencies. It also converts from coppers to other denominations. (For example, 12347 equals 1 Platinum, 2 Gold, 3 Silver, 4 Bronze, and 7 Copper Kronars.) This is displayed for each starting currency.

Syntax

.CURR %1

%1 equals the number (in coppers) that you are starting with. For example, if you wanted to convert from 12347 Kronars to Lirums, you would type .CURR 12347. Then a menu will prompt you to choose Kronars as your starting currency.

Script

evalmath Total %1
var Copper 0
var Bronze 0
var Silver 0
var Gold 0
var Platinum 0

echo Convert From
echo
echo 1: Kronars
echo
echo 2: Lirums
echo
echo 3: Dokoras
echo
echo Enter Number:

matchre Kronars ^1
matchre Lirums ^2
matchre Dokoras ^3
matchwait

Kronars:

evalmath CKRONARS %1
evalmath BKRONARS %1/10
evalmath SKRONARS %1/100
evalmath GKRONARS %1/1000
evalmath PKRONARS %1/10000
evalmath CLIRUMS round(%1*.8)
evalmath BLIRUMS round(%1*.8)/10
evalmath SLIRUMS round(%1*.8)/100
evalmath GLIRUMS round(%1*.8)/1000
evalmath PLIRUMS round(%1*.8)/10000
evalmath CDOKORAS round(%1*.721)
evalmath BDOKORAS round(%1*.721)/10
evalmath SDOKORAS round(%1*.721)/100
evalmath GDOKORAS round(%1*.721)/1000
evalmath PDOKORAS round(%1*.721)/10000

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)

echo %1 Kronars is equal to:
echo
echo copper Kronars: %CKRONARS
echo bronze Kronars: %BKRONARS
echo silver Kronars: %SKRONARS
echo gold Kronars: %GKRONARS
echo platinum Kronars: %PKRONARS
echo Coins: %Platinum Platinum, %Gold Gold, %Silver Silver, %Bronze Bronze, and %Copper Copper Kronars
echo
echo copper Lirums: %CLIRUMS
echo bronze Lirums: %BLIRUMS
echo silver Lirums: %SLIRUMS
echo gold Lirums: %GLIRUMS
echo platinum Lirums: %PLIRUMS
echo
echo copper Dokoras: %CDOKORAS
echo bronze Dokoras: %BDOKORAS
echo silver Dokoras: %SDOKORAS
echo gold Dokoras: %GDOKORAS
echo platinum Dokoras: %PDOKORAS

goto end

Lirums:
evalmath CLIRUMS %1
evalmath BLIRUMS %1/10
evalmath SLIRUMS %1/100
evalmath GLIRUMS %1/1000
evalmath PLIRUMS %1/10000
evalmath CKRONARS round(%1*1.25)
evalmath BKRONARS round(%1*1.25)/10
evalmath SKRONARS round(%1*1.25)/100
evalmath GKRONARS round(%1*1.25)/1000
evalmath PKRONARS round(%1*1.25)/10000
evalmath CDOKORAS round(%1*.902)
evalmath BDOKORAS round(%1*.902)/10
evalmath SDOKORAS round(%1*.902)/100
evalmath GDOKORAS round(%1*.902)/1000
evalmath PDOKORAS round(%1*.902)/10000

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)

echo %1 Lirums is equal to:
echo
echo copper Lirums: %CLIRUMS
echo bronze Lirums: %BLIRUMS
echo silver Lirums: %SLIRUMS
echo gold Lirums: %GLIRUMS
echo platinum Lirums: %PLIRUMS
echo Coins: %Platinum Platinum, %Gold Gold, %Silver Silver, %Bronze Bronze, and %Copper Copper Lirums
echo
echo copper Kronars: %CKRONARS
echo bronze Kronars: %BKRONARS
echo silver Kronars: %SKRONARS
echo gold Kronars: %GKRONARS
echo platinum Kronars: %PKRONARS
echo
echo copper Dokoras: %CDOKORAS
echo bronze Dokoras: %BDOKORAS
echo silver Dokoras: %SDOKORAS
echo gold Dokoras: %GDOKORAS
echo platinum Dokoras: %PDOKORAS

goto end

Dokoras:
evalmath CDOKORAS %1
evalmath BDOKORAS %1/10
evalmath SDOKORAS %1/100
evalmath GDOKORAS %1/1000
evalmath PDOKORAS %1/10000
evalmath CKRONARS round(%1*1.385)
evalmath BKRONARS round(%1*1.385)/10
evalmath SKRONARS round(%1*1.385)/100
evalmath GKRONARS round(%1*1.385)/1000
evalmath PKRONARS round(%1*1.385)/10000
evalmath CLIRUMS round(%1*1.108)
evalmath BLIRUMS round(%1*1.108)/10
evalmath SLIRUMS round(%1*1.108)/100
evalmath GLIRUMS round(%1*1.108)/1000
evalmath PLIRUMS round(%1*1.108)/10000

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)

echo %1 Dokoras is equal to
echo
echo copper Dokoras: %CDOKORAS
echo bronze Dokoras: %BDOKORAS
echo silver Dokoras: %SDOKORAS
echo gold Dokoras: %GDOKORAS
echo platinum Dokoras: %PDOKORAS
echo Coins: %Platinum Platinum, %Gold Gold, %Silver Silver, %Bronze Bronze, and %Copper Copper Dokoras
echo
echo copper Kronars: %CKRONARS
echo bronze Kronars: %BKRONARS
echo silver Kronars: %SKRONARS
echo gold Kronars: %GKRONARS
echo platinum Kronars: %PKRONARS
echo
echo copper Lirums: %CLIRUMS
echo bronze Lirums: %BLIRUMS
echo silver Lirums: %SLIRUMS
echo gold Lirums: %GLIRUMS
echo platinum Lirums: %PLIRUMS

goto end

end: