From fc34c33d67397bc6fd6827c88cabe643c7e9a328 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Thu, 10 Oct 2024 16:31:51 -0400
Subject: [PATCH] peasant: rebalance climbing

was too hard with good RNG
---
 games/peasant/climb/climb.s | 2 +-
 random/random8.c            | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/games/peasant/climb/climb.s b/games/peasant/climb/climb.s
index f353f5a8..95a56d7a 100644
--- a/games/peasant/climb/climb.s
+++ b/games/peasant/climb/climb.s
@@ -315,7 +315,7 @@ move_rock_waiting:
 
 	jsr	random8
 rock_freq_smc:
-	and	#$1f		; 1/32 of time start new rock
+	and	#$7f		; 1/128 of time start new rock
 	bne	rock_good
 
 start_new_rock:
diff --git a/random/random8.c b/random/random8.c
index 5e85f566..1a797ec3 100644
--- a/random/random8.c
+++ b/random/random8.c
@@ -40,7 +40,7 @@ int main(int argc, char **argv) {
 
 	for(i=0;i<1024;i++) {
 		r=rand8();
-		printf("%02X m%02X\n",r,r&0x1f);
+		printf("%d: %02X m%02X\n",i,r,r&0x1f);
 	}
 
 	return 0;