From cfb92b1b4bb2f28b97fbc8252d2fe0ee807da55b Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 7 Sep 2022 23:12:15 -0500 Subject: Theming --- potato.scm | 23 ++++++++++++++++++----- 1 file changed, 18 insertions(+), 5 deletions(-) (limited to 'potato.scm') diff --git a/potato.scm b/potato.scm index 68d0f2c..74ceaa3 100755 --- a/potato.scm +++ b/potato.scm @@ -36,6 +36,11 @@ exec csi -s $0 "$@" ;;; UI +(define (clear-screen) + (display #\escape) + (display "[2J") + (newline)) + (define (prln . strs) (apply string-append (append (intersperse @@ -164,6 +169,13 @@ exec csi -s $0 "$@" (set! potatoes 0) (set! orcs 0) (set! orc-cost 1) + + (clear-screen) + (display (prln " P O T A T O " + " ~ story by @deathbybadger" + " ~ game by @caseofducks")) + (newline) + (display (prln "You are a halfling, just trying to exist." "Meanwhile, the dark lord rampages across the world." "You do not care about this. You are trying to farm potatoes." @@ -181,9 +193,9 @@ exec csi -s $0 "$@" "wizard" "bard"))) (display - (prln `("An interfering " interloper " turns up at your doorstep with a quest." - "You are whisked away against your will on an adventure, where" - "you will probably be eaten by orcs."))))) + (prln `("An interfering " interloper " turns up at your doorstep with a quest.") + "You are whisked away against your will on an adventure.." + "where you will probably be eaten by orcs.")))) ('orcs (display (prln "Orcs have found your potato farm." @@ -195,8 +207,9 @@ exec csi -s $0 "$@" ((>= potatoes 10) 'potatoes) ((>= destiny 10) 'destiny) ((>= orcs 10) 'orcs) - (else (let ((desc (event))) - (display-columns (scores) desc)) + (else (clear-screen) + (let ((desc (event))) + (display-columns (scores) desc)) (newline) (when (and (> orcs 0) -- cgit 1.4.1-21-gabe81