Lipcot
2014-11-03 16:34:53
I have just made too much awesomeness of proggys and cant choose cause of my pr0 photoshop skills :cartman:! help choosing pl0x ("none" is NOT an option) :
1:

2:

3:

4:
1:

2:

3:

4:
2014-11-03 16:34:53



2014-11-03 17:07:43
2014-11-03 17:16:32
2014-11-03 17:22:11
2014-11-03 17:34:41
From: BMWxi
Four
From: keff
Looks like you took the cabbage part quite literally ^^
I agree with BMWxi on four!
From: Clarity
I like 3. Nice work making the paint! :)
2014-11-03 17:48:18
2014-11-03 17:55:21
From: masterBB
Added poll
2014-11-03 18:07:24
2014-11-03 18:16:17
2014-11-03 18:24:53
2014-11-03 19:17:46
From: KeepBotting
2 or 3 for sure.
This looks like it's going to be frickin' awesome, 10/10 will use!
2014-11-03 21:59:59
2014-11-04 10:46:29
2014-11-07 10:08:22
2014-11-07 10:49:21
From: Turpinator
Id swap the cabbages and the per hour position, as the cabbages is more likely to overflow onto the next than the per hour.
var StrCabbages As String;
if(cabbages< 10000) then
StrCabbages := IntToStr(cabbages)
else if(cabbages < 10000000) then
StrCabbages := IntToStr(cabbages/ 1000) + "k"
else then
StrCabbages := IntToStr(cabbages/ 1000000) + "m";
2014-11-07 11:32:31
From: Turpinator
Id swap the cabbages and the per hour position, as the cabbages is more likely to overflow onto the next than the per hour.
From: masterBB
Just a random solution:var StrCabbages As String;
if(cabbages< 10000) then
StrCabbages := IntToStr(cabbages)
else if(cabbages < 10000000) then
StrCabbages := IntToStr(cabbages/ 1000) + "k"
else then
StrCabbages := IntToStr(cabbages/ 1000000) + "m";
2014-11-07 14:04:53
From: undorak7
good thinking :P
I would do that if i had the lines to spare heheh, nice solution though!
StrCabbages := IntToStr(floor(amount / Pow(10, 3 * Min(Floor((log10(amount)-1)/3), 2)))) + TCharArray([' ', 'K', 'M'])[Min(Floor((log10(amount)-1)/3, 2))];StrCabbages := IntToStr(floor(amount / Pow(10, 3 * Min(Floor((log10(Max(amount, 1))-1)/3), 2)))) + TCharArray([' ', 'K', 'M'])[Min(Floor((log10(Max(amount, 1))-1)/3), 2)];
2014-11-07 15:12:17
2014-11-07 15:42:19
From: masterBB
Sick code ahead, not for the weak brains: <- I am exaggerating
Got you covered!StrCabbages := IntToStr(floor(amount / Pow(10, 3 * Min(Floor((log10(amount)-1)/3), 2)))) + TCharArray([' ', 'K', 'M'])[Min(Floor((log10(amount)-1)/3, 2))];
or if you want to account for 0 cabbages:StrCabbages := IntToStr(floor(amount / Pow(10, 3 * Min(Floor((log10(Max(amount, 1))-1)/3), 2)))) + TCharArray([' ', 'K', 'M'])[Min(Floor((log10(Max(amount, 1))-1)/3), 2)];
2014-11-07 16:22:26
From: undorak7
Wow. thats some sick maths right there, i suck at maths. Will try it :) thx!
IntToStr(floor(amount / Pow(10, 3 * Max(Min(Floor((log10(Max(amount, 1))-1)/3), 2),0)))) + TCharArray([' ', 'K', 'M'])[Min(Floor((log10(Max(amount, 1))-1)/3), 2)];
2014-11-08 05:22:42
From: masterBB
I just tested it myself, I made a mistake:IntToStr(floor(amount / Pow(10, 3 * Max(Min(Floor((log10(Max(amount, 1))-1)/3), 2),0)))) + TCharArray([' ', 'K', 'M'])[Min(Floor((log10(Max(amount, 1))-1)/3), 2)];
2014-11-15 12:10:29
2014-11-15 13:04:32