Semi-random ship damageHEADmaster

1 files changed, 9 insertions, 10 deletions

diff --git a/taipan.c b/taipan.c
index a7518e6..7dbb0d3 100644
--- a/taipan.c
+++ b/taipan.c
@@ -1005,7 +1005,8 @@ unsigned int gunamt(void) {
 void new_ship(void) {
    unsigned long amount;
 
-   amount = gunamt() * (capacity / 50) + 1000;
+	/* TODO: check against applesoft, line 1060 */
+	amount = gunamt() * (capacity / 50) + 1000;
 
    if(cash < amount) {
       return;
@@ -3405,16 +3406,14 @@ int main(void) {
 #endif
 
 #ifdef LORCHA_TEST
+	gotox0y(0);
+	clrtoeol();
+	for(choice = 0; choice < 10; choice++) {
+		draw_lorcha(choice);
+	}
 	while(1) {
-		gotox0y(0);
-		clrtoeol();
-		for(choice = 0; choice < 10; choice++) {
-			draw_lorcha(choice);
-			sink_lorcha(choice);
-			cprintuint(PEEK(0xda));
-			cspace();
-		}
-		agetc();
+		choice = agetc() % 10;
+		damage_lorcha(choice);
 	}
 #endif