initial commit

1 files changed, 37 insertions, 0 deletions

diff --git a/lorchatest.c b/lorchatest.c
new file mode 100644
index 0000000..bc53d07
--- /dev/null
+++ b/lorchatest.c
@@ -0,0 +1,37 @@
+#include <peekpoke.h>
+
+extern void __fastcall__ draw_lorcha(int which, int displacement, int mask);
+
+void jsleep(int jiffies) {
+	POKE(20,0);
+	while(PEEK(20) < jiffies)
+		;
+}
+
+int main(void) {
+	int i, j;
+
+	/* draw all 10 ships in normal state */
+	for(i=0; i<10; i++) {
+		draw_lorcha(i, 0, 0);
+	}
+
+	/* explode and sink all 10 ships */
+	for(i=0; i<10; i++) {
+		/* blast effect */
+		for(j=0; j<8; j++) {
+			draw_lorcha(i, 0, 0x80);
+			jsleep(2);
+			draw_lorcha(i, 0, 0);
+			jsleep(2);
+		}
+
+		/* sinking */
+		for(j=0; j<8; j++) {
+			draw_lorcha(i, j, 0);
+			jsleep(4);
+		}
+	}
+
+hang: goto hang;
+}