Notes

$data = Sqlite("sql","Drop table if exists chart")
$data = Sqlite("sql","Create table if not exists Chart ('order' 'number'(1),'Name' 'Text' , 'HTML' 'text', 'Bronze' 'number(7)', 'Silver' 'number(7)', 'Gold' 'number(7)', 'Platinum' 'number(7)', 'Ruby' 'number(7)', 'Sapphire' 'number(7)', 'Emerald' 'number(7)', 'Diamond' 'number(7)', 'CurrentCount' 'number(7)', 'Left' 'number(7)', 'sort' 'number(2)')")
$data = Sqlite("sql","insert into chart values('1','CacheName','Code','Bronze','Silver','Gold','Platinum','Ruby','Sapphire','Emerald','Diamond','$hh','$nn', '99')")
$data = Sqlite("close","")
SHOWSTATUS msg="" display=off
ENDSUB #InitializeSQLiteDatabase
#$unitsshort = "m"
#$unitsshortbig = "km"
$database = $BadgeGenFolder + "BadgeGenData.db3"
$data = Sqlite("open",$database)
$data = Sqlite("sql","insert into chart values('','$GeocName','$GeocCodeAlt','$GeocB1', '$GeocS1', '$GeocG1', '$GeocP1', '$GeocR1', '$GeocSa1', '$GeocE1', '$GeocD', '$Geoc', '$Geocleft', '0')")
$data = Sqlite("sql","insert into chart values('','$tradName','$TradCodeAlt','$TradB1', '$TradS1', '$TradG1', '$TradP1', '$TradR1', '$TradSa1', '$TradE1', '$TradD', '$Trad', '$tradleft', '0')")
$data = Sqlite("sql","insert into chart values('','$MultName','$MultCodeAlt','$MultB1', '$MultS1', '$MultG1', '$MultP1', '$MultR1', '$MultSa1', '$MultE1', '$MultD', '$Mult', '$Multleft', '0')")
$data = Sqlite("sql","insert into chart values('','$MystName','$MystCodeAlt','$MystB1', '$MystS1', '$MystG1', '$MystP1', '$MystR1', '$MystSa1', '$MystE1', '$MystD', '$Myst', '$Mystleft', '0')")
$data = Sqlite("sql","insert into chart values('','$VirtName','$VirtCodeAlt','$VirtB1', '$VirtS1', '$VirtG1', '$VirtP1', '$VirtR1', '$VirtSa1', '$VirtE1', '$VirtD', '$Virt', '$Virtleft', '0')")
$data = Sqlite("sql","insert into chart values('','$EartName','$EartCodeAlt','$EartB1', '$EartS1', '$EartG1', '$EartP1', '$EartR1', '$EartSa1', '$EartE1', '$EartD', '$Eart', '$Eartleft', '0')")
$data = Sqlite("sql","insert into chart values('','$LettName','$LettCodeAlt','$LettB1', '$LettS1', '$LettG1', '$LettP1', '$LettR1', '$LettSa1', '$LettE1', '$LettD', '$Lett', '$Lettleft', '0')")
$data = Sqlite("sql","insert into chart values('','$WherName','$WherCodeAlt','$WherB1', '$WherS1', '$WherG1', '$WherP1', '$WherR1', '$WherSa1', '$WherE1', '$WherD', '$Wher', '$Wherleft', '0')")
$data = Sqlite("sql","insert into chart values('','$MegaName','$MegaCodeAlt','$MegaB1', '$MegaS1', '$MegaG1', '$MegaP1', '$MegaR1', '$MegaSa1', '$MegaE1', '$MegaD', '$Mega', '$Megaleft', '0')")
$data = Sqlite("sql","insert into chart values('','$EvenName','$EvenCodeAlt','$EvenB1', '$EvenS1', '$EvenG1', '$EvenP1', '$EvenR1', '$EvenSa1', '$EvenE1', '$EvenD', '$Even', '$Evenleft', '0')")
$data = Sqlite("sql","insert into chart values('','$CitoName','$CitoCodeAlt','$CitoB1', '$CitoS1', '$CitoG1', '$CitoP1', '$CitoR1', '$CitoSa1', '$CitoE1', '$CitoD', '$Cito', '$Citoleft', '0')")
$data = Sqlite("sql","insert into chart values('','$TenyName','$TenyCodeAlt','$TenyB1', '$TenyS1', '$TenyG1', '$TenyP1', '$TenyR1', '$TenySa1', '$TenyE1', '$TenyD', '$Teny', '$Tenyleft', '0')")
$data = Sqlite("sql","insert into chart values('','$BencName','$BencCodeAlt','$BencB1', '$BencS1', '$BencG1', '$BencP1', '$BencR1', '$BencSa1', '$BencE1', '$BencD', '$Benc', '$Bencleft', '0')")
$data = Sqlite("sql","insert into chart values('','$WaymName','$WaymCodeAlt','$WaymB1', '$WaymS1', '$WaymG1', '$WaymP1', '$WaymR1', '$WaymSa1', '$WaymE1', '$WaymD', '$Waym', '$Waymleft', '0')")
$data = Sqlite("sql","insert into chart values('','$WebcName','$WebcCodeAlt','$WebcB1', '$WebcS1', '$WebcG1', '$WebcP1', '$WebcR1', '$WebcSa1', '$WebcE1', '$WebcD', '$Webc', '$Webcleft', '0')")
IF $Apec > 0
$data = Sqlite("sql","insert into chart values('','$ApecName','$ApecCodeAlt','$ApecB1', '$ApecS1', '$ApecG1', '$ApecP1', '$ApecR1', '$ApecSa1', '$ApecE1', '$ApecD', '$Apec', '$Apecleft', '0')")
ELSE
$TotalNumberofBadges = $TotalNumberofBadges -1
ENDIF
#!~!~!
$data = Sqlite("sql","insert into chart values('','$TypeName','$TypeCodeAlt','$TypeB1', '$TypeS1', '$TypeG1', '$TypeP1', '$TypeR1', '$TypeSa1', '$TypeE1', '$TypeD', '$Type', '$Typeleft', '0')")
#!~!~!
$data = Sqlite("sql","insert into chart values('','$MicrName','$MicrCodeAlt','$MicrB1', '$MicrS1', '$MicrG1', '$MicrP1', '$MicrR1', '$MicrSa1', '$MicrE1', '$MicrD', '$Micr', '$Micrleft', '0')")
$data = Sqlite("sql","insert into chart values('','$SmalName','$SmalCodeAlt','$SmalB1', '$SmalS1', '$SmalG1', '$SmalP1', '$SmalR1', '$SmalSa1', '$SmalE1', '$SmalD', '$Smal', '$Smalleft', '0')")
$data = Sqlite("sql","insert into chart values('','$ReguName','$ReguCodeAlt','$ReguB1', '$ReguS1', '$ReguG1', '$ReguP1', '$ReguR1', '$ReguSa1', '$ReguE1', '$ReguD', '$Regu', '$Reguleft', '0')")
$data = Sqlite("sql","insert into chart values('','$LargName','$LargCodeAlt','$LargB1', '$LargS1', '$LargG1', '$LargP1', '$LargR1', '$LargSa1', '$LargE1', '$LargD', '$Larg', '$Largleft', '0')")
$data = Sqlite("sql","insert into chart values('','$FiveName','$FiveCodeAlt','$FiveB1', '$FiveS1', '$FiveG1', '$FiveP1', '$FiveR1', '$FiveSa1', '$FiveE1', '$FiveD', '$Five', '$Fiveleft', '0')")
$data = Sqlite("sql","insert into chart values('','$DifiName','$DifiCodeAlt','$DifiB1', '$DifiS1', '$DifiG1', '$DifiP1', '$DifiR1', '$DifiSa1', '$DifiE1', '$DifiD', '$Difi', '$Difileft', '0')")
$data = Sqlite("sql","insert into chart values('','$TerrName','$TerrCodeAlt','$TerrB1', '$TerrS1', '$TerrG1', '$TerrP1', '$TerrR1', '$TerrSa1', '$TerrE1', '$TerrD', '$Terr', '$Terrleft', '0')")
$data = Sqlite("sql","insert into chart values('','$FTFName','$FTFCodeAlt','$FTFB1', '$FTFS1', '$FTFG1', '$FTFP1', '$FTFR1', '$FTFSa1', '$FTFE1', '$FTFD', '$FTF', '$FTFleft', '0')")
$data = Sqlite("sql","insert into chart values('','$CounName','$CounCodeAlt','$CounB1', '$CounS1', '$CounG1', '$CounP1', '$CounR1', '$CounSa1', '$CounE1', '$CounD', '$Coun', '$Counleft', '0')")
$data = Sqlite("sql","insert into chart values('','$HiddName','$HiddCodeAlt','$HiddB1', '$HiddS1', '$HiddG1', '$HiddP1', '$HiddR1', '$HiddSa1', '$HiddE1', '$HiddD', '$Hidd', '$Hiddleft', '0')")
$data = Sqlite("sql","insert into chart values('','$FavoName','$FavoCodeAlt','$FavoB1', '$FavoS1', '$FavoG1', '$FavoP1', '$FavoR1', '$FavoSa1', '$FavoE1', '$FavoD', '$Favo', '$Favoleft', '0')")
$data = Sqlite("sql","insert into chart values('','$ElevName','$ElevCodeAlt','$ElevB1$unitsshort', '$ElevS1$unitsshort', '$ElevG1$unitsshort', '$ElevP1$unitsshort', '$ElevR1$unitsshort', '$ElevSa1$unitsshort', '$ElevE1$unitsshort', '$ElevD$unitsshort', '$Elev$unitsshort', '$Elevleft$unitsshort', '0')")
$data = Sqlite("sql","insert into chart values('','$LoweName','$LoweCodeAlt','$LoweB1$unitsshort', '$LoweS1$unitsshort', '$LoweG1$unitsshort', '$LoweP1$unitsshort', '$LoweR1$unitsshort', '$LoweSa1$unitsshort', '$LoweE1$unitsshort', '$LoweD$unitsshort', '$Lowe$unitsshort', '$Loweleft$unitsshort', '0')")
$data = Sqlite("sql","insert into chart values('','$TwenName','$TwenCodeAlt','$TwenB1', '$TwenS1', '$TwenG1', '$TwenP1', '$TwenR1', '$TwenSa1', '$TwenE1', '$TwenD', '$Twen', '$Twenleft', '0')")
$data = Sqlite("sql","insert into chart values('','$ConsName','$ConsCodeAlt','$ConsB1', '$ConsS1', '$ConsG1', '$ConsP1', '$ConsR1', '$ConsSa1', '$ConsE1', '$ConsD', '$Cons', '$Consleft', '0')")
$data = Sqlite("sql","insert into chart values('','$CaleName','$CaleCodeAlt','$CaleB1', '$CaleS1', '$CaleG1', '$CaleP1', '$CaleR1', '$CaleSa1', '$CaleE1', '$CaleD', '$Cale', '$Caleleft', '0')")
$data = Sqlite("sql","insert into chart values('','$VeteName','$VeteCodeAlt','$VeteB1', '$VeteS1', '$VeteG1', '$VeteP1', '$VeteR1', '$VeteSa1', '$VeteE1', '$VeteD', '$Vete', '$Veteleft', '0')")
$data = Sqlite("sql","insert into chart values('','$UndeName','$UndeCodeAlt','$UndeB1', '$UndeS1', '$UndeG1', '$UndeP1', '$UndeR1', '$UndeSa1', '$UndeE1', '$UndeD', '$Unde', '$Undeleft', '0')")
$data = Sqlite("sql","insert into chart values('','$NighName','$NighCodeAlt','$NighB1', '$NighS1', '$NighG1', '$NighP1', '$NighR1', '$NighSa1', '$NighE1', '$NighD', '$Nigh', '$Nighleft', '0')")
$data = Sqlite("sql","insert into chart values('','$HostName','$HostCodeAlt','$HostB1', '$HostS1', '$HostG1', '$HostP1', '$HostR1', '$HostSa1', '$HostE1', '$HostD', '$Host', '$Hostleft', '0')")
$data = Sqlite("sql","insert into chart values('','$WritName','$WritCodeAlt','$WritB1', '$WritS1', '$WritG1', '$WritP1', '$WritR1', '$WritSa1', '$WritE1', '$WritD', '$Writ', '$Writleft', '0')")
$data = Sqlite("sql","insert into chart values('','$PhotName','$PhotCodeAlt','$PhotB1', '$PhotS1', '$PhotG1', '$PhotP1', '$PhotR1', '$PhotSa1', '$PhotE1', '$PhotD', '$Phot', '$Photleft', '0')")
$data = Sqlite("sql","insert into chart values('','$DistName','$DistCodeAlt','$DistB1$unitsshortbig', '$DistS1$unitsshortbig', '$DistG1$unitsshortbig', '$DistP1$unitsshortbig', '$DistR1$unitsshortbig', '$DistSa1$unitsshortbig', '$DistE1$unitsshortbig', '$DistD$unitsshortbig', '$Dist$unitsshortbig', '$Distleft$unitsshortbig', '0')")
$data = Sqlite("sql","insert into chart values('','$MatrName','$MatrCodeAlt','$MatrB1', '$MatrS1', '$MatrG1', '$MatrP1', '$MatrR1', '$MatrSa1', '$MatrE1', '$MatrD', '$Matr', '$Matrleft', '0')")
$data = Sqlite("sql","insert into chart values('','$TravName','$TravCodeAlt','$TravB1', '$TravS1', '$TravG1', '$TravP1', '$TravR1', '$TravSa1', '$TravE1', '$TravD', '$Trav', '$Travleft', '0')")
$data = Sqlite("sql","insert into chart values('','$CoinName','$CoinCodeAlt','$CoinB1', '$CoinS1', '$CoinG1', '$CoinP1', '$CoinR1', '$CoinSa1', '$CoinE1', '$CoinD', '$Coin', '$Coinleft', '0')")

$data = Sqlite("sql","update chart set sort = case when ABS(CAST(CurrentCount AS integer))>=ABS(CAST(Bronze AS integer)) AND ABS(CAST(CurrentCount AS integer))<ABS(CAST(Silver AS integer)) then 1 when ABS(CAST(CurrentCount AS integer))>=ABS(CAST(Silver AS integer)) AND ABS(CAST(CurrentCount AS integer))<ABS(CAST(Gold AS integer)) then 2 when ABS(CAST(CurrentCount AS integer))>=ABS(CAST(Gold AS integer)) AND ABS(CAST(CurrentCount AS integer))<ABS(CAST(Platinum AS integer)) then 3 when ABS(CAST(CurrentCount AS integer))>=ABS(CAST(Platinum AS integer)) AND ABS(CAST(CurrentCount AS integer))<ABS(CAST(Ruby AS integer)) then 4 when ABS(CAST(CurrentCount AS integer))>=ABS(CAST(Ruby AS integer)) AND ABS(CAST(CurrentCount AS integer))<ABS(CAST(Sapphire AS integer)) then 5 when ABS(CAST(CurrentCount AS integer))>=ABS(CAST(Sapphire AS integer)) AND ABS(CAST(CurrentCount AS integer))<ABS(CAST(Emerald AS integer)) then 6 when ABS(CAST(CurrentCount AS integer))>=ABS(CAST(Emerald AS integer)) AND ABS(CAST(CurrentCount AS integer))<ABS(CAST(Diamond AS integer)) then 7 when ABS(CAST(CurrentCount AS integer))>=ABS(CAST(Diamond AS integer)) then 8 else 0 end ")
$data = Sqlite("sql","UPDATE chart SET sort = 99 WHERE Name = 'CacheName'")
$data = Sqlite("sql","select html,bronze,silver,gold,platinum,ruby,sapphire,emerald,diamond,currentcount,left from chart order by sort desc")
$test = SqlToHtml("$data","Summary","n")

$data = Sqlite("sql","Drop table if exists temp")
$data = Sqlite("sql","CREATE TABLE temp AS SELECT * FROM chart ORDER BY sort DESC, Name")
$data = Sqlite("sql","DELETE FROM chart")
$data = Sqlite("sql","INSERT INTO chart SELECT DISTINCT * from temp WHERE CurrentCount > 0")