Multiple sinking speeds (costs 13 bytes, now 8821)

1 files changed, 7 insertions, 4 deletions

diff --git a/taipan.c b/taipan.c
index 3d695a8..513c237 100644
--- a/taipan.c
+++ b/taipan.c
@@ -3406,11 +3406,14 @@ int main(void) {
 	POKE(559, 34);        // turn on the screen (normal playfield)
 
 #ifdef LORCHA_TEST
-	for(choice = 0; choice < 10; choice++)
-		draw_lorcha(choice);
 	while(1) {
-		for(choice = 1; choice < 10; choice++) {
-			damage_lorcha(choice);
+		gotox0y(0);
+		clrtoeol();
+		for(choice = 0; choice < 10; choice++) {
+			draw_lorcha(choice);
+			sink_lorcha(choice);
+			cprintuint(PEEK(0xda));
+			cspace();
 		}
 		agetc();
 	}