games/Rampant
1
0
Fork 0
mirror of https://github.com/veden/Rampant.git synced 2025-01-30 04:30:52 +02:00
Code Issues Releases Activity

FACTO-169: Split display label into multiple parts due to overflow

Browse Source
This commit is contained in:
Aaron Veden 2022-06-12 21:30:04 -07:00
parent 67c7b24763
commit 9507e804d0
No known key found for this signature in database
GPG Key ID: FF5990B1C6DD3F84
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
parseState.rkt
View File

@ -119,20 +119,22 @@
"t:" (~v (Chunk-tick chunk)) "\n"
"rat:" (~v (Chunk-rating chunk)) "\n"
"ne:" (~v (Chunk-nests chunk)) "\n"
"wo:" (~v (Chunk-worms chunk)) "\n"
"ral:" (~v (Chunk-rally chunk)) "\n"
"ret:" (~v (Chunk-retreat chunk)) "\n"
"rG:" (~v (Chunk-resourceGen chunk)) "\n"
"pG:" (~v (Chunk-playerGen chunk)) "\n"))
"wo:" (~v (Chunk-worms chunk)) "\n"))
(define (chunk->string2 chunk)
(string-append "dG:" (~v (Chunk-deathGen chunk)) "\n"
(string-append "ral:" (~v (Chunk-rally chunk)) "\n"
"ret:" (~v (Chunk-retreat chunk)) "\n"
"rG:" (~v (Chunk-resourceGen chunk)) "\n"
"pG:" (~v (Chunk-playerGen chunk)) "\n"
"dG:" (~v (Chunk-deathGen chunk)) "\n"
"sA:" (~v (Chunk-scoreAttack chunk)) "\n"
"sAK:" (~v (Chunk-scoreAttackKamikaze chunk)) "\n"
"sS:" (~v (Chunk-scoreSiege chunk)) "\n"
"sSK:" (~v (Chunk-scoreSiegeKamikaze chunk)) "\n"
"sR:" (~v (Chunk-scoreResource chunk)) "\n"
"sRK:" (~v (Chunk-scoreResourceKamikaze chunk)) "\n"
"sR:" (~v (Chunk-scoreResource chunk)) "\n"))
(define (chunk->string3 chunk)
(string-append "sRK:" (~v (Chunk-scoreResourceKamikaze chunk)) "\n"
"pu:" (~v (Chunk-pollution chunk)) "\n"
"aN:" (~v (Chunk-aNe chunk)) "\n"
"aRN:" (~v (Chunk-aRNe chunk)) "\n"

8
visual.rkt
View File

@ -99,6 +99,10 @@
[parent topPanel]
[label ""]
[horiz-margin 300]))
(define siteBox3 (new message%
[parent topPanel]
[label ""]
[vert-margin 300]))
(new button%
[parent mainFrame]
@ -226,7 +230,9 @@
(send siteBox set-label
(chunk->string chunk))
(send siteBox2 set-label
(chunk->string2 chunk))))
(chunk->string2 chunk))
(send siteBox3 set-label
(chunk->string3 chunk))))
(define (displayHighlight x y)
;; (display (list (screenX->chunkX x)