1 files changed, 14 insertions, 0 deletions
diff --git a/taipan.c b/taipan.c
index 1dba7e1..40fc94c 100644
--- a/taipan.c
+++ b/taipan.c
@@ -46,6 +46,9 @@
 /* define this to show frames/scanlines timing for port_stats() */
 // #define PORT_STAT_TIMER
 
+/* define this to test lorcha drawing/damage */
+// #define LORCHA_TEST
+
 /**** atari-specific stuff */
 
 /* values returned by cgetc() for backspace/enter/delete keys */
@@ -3392,6 +3395,17 @@ int main(void) {
 	POKE(731, 1);    // disable keyclick on XL/XE (does nothing on 400/800)
 	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);
+		}
+		agetc();
+	}
+#endif
+
 #ifdef MCHENRY_TEST
 	{
 		while(1) {