Recreating SWOS cash display

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|665\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Recreating SWOS cash display
Mon, 02 Feb 2009, 05:18
LostUser	I'm sure there's loads of people on here who used to play Sensible World of Soccer on the Amiga. There is one thing on that game that I've been trying to recreate for literally years, but I am still no closer to figuring out how they did it. For example, instead of outputting $1,000,000 they output $1m and instead of $1,250,000 they'd do $1.25m. And it just doesn't restrict itself to big numbers, it handles small numbers incredibly well, ie: $100k or $1k, etc. Now, I'm sure its not as simple as a big if statement, and I'm not sure if they use a cash formatter like MS excel does. Did anyone ever recreate the SWOS cash display for Blitz Basic? Many thanks
Mon, 02 Feb 2009, 05:40
Jayenkai	Nice and easy.. You DO need if's, but you don't need that many.. Print "£"+ShortCash$(99) Print "£"+ShortCash$(999) Print "£"+ShortCash$(1000) Print "£"+ShortCash$(1500) Print "£"+ShortCash$(2345) Print "£"+ShortCash$(9999) Print "£"+ShortCash$(10000) Print "£"+ShortCash$(100000) Print "£"+ShortCash$(999999) Print "£"+ShortCash$(1000000) Print "£"+ShortCash$(1234000) Print "£"+ShortCash$(1500000) Print "£"+ShortCash$(15000000) Print "£"+ShortCash$(150000000) Print "£"+ShortCash$(1500000000) WaitKey() Function ShortCash$(BigNumber) out$="" ; First, grab the length of the number L=Len(BigNumber) Letter$="" ;Next, Do a sweep of the values, and cut them down. If l<13 out$=(BigNumber/1000000000) ; For each figure, out remainder should be divided so that it leaves a 2 digit decimal number.. remainder=(BigNumber Mod 1000000000)/10000000 ; And we also want a letter to symbolise our large amounts.. Letter$="b" ; BILLION!!!! EndIf If l<10 Then out$=(BigNumber/1000000):remainder=(BigNumber Mod 1000000)/10000:Letter$="m" If l<7 Then out$=(BigNumber/1000):remainder=(BigNumber Mod 1000)/10:Letter$="k" If l<4 Then out$=BigNumber:remainder=0:Letter$="" ;Next, if remainder=0 then we're happy.. ie, £1m is fine, we need no decimal. ;But, if the remainder is >0 we'll want a nice rounded 2 decimal number, instead. If remainder>0 out$=out$+"."+Right$("00"+remainder,2) ; Last two numbers.. ; Additionally, if the rightmost figure is a 0, remove it. ; (ie, if the value is 1.50, we don't need the 0) If Right$(out$,1)="0" Then out$=Left$(out$,Len(out$)-1) EndIf ; And throw on our letter, at the end. out$=out$+letter$ Return out$ End Function --v -=-=- ''Load, Next List!''
Mon, 02 Feb 2009, 06:09
LostUser	That's brilliant! Thanks a lot!
Thu, 19 Feb 2009, 12:10
Hotshot	Are you making Swos game? I love the song # Super Star Goal Scoring Hero Hero Hero Senible Soccer
Sun, 22 Feb 2009, 03:49
LostUser	No I'm not -- I just wanted to use the code for human readable cash display, and to save on space on the screen. I can't work on my project at the moment as I'm trying to do a work related project first. Thanks