Mountajn glitch fixed

2026-05-21 14:49:38 +02:00 · 2024-08-12 22:20:45 +02:00
parent 16a5352f43
commit 892589ae8d
2 changed files with 4 additions and 2 deletions
@@ -85,7 +85,7 @@ lhiscorel=status_line_l+28
 ;---------------------------------------------------
 ; World table without dino
 WorldTable
-    :WORLD_LENGTH .byte 0 ; ground
+    :WORLD_LENGTH+1 .byte 0 ; ground
 ;---------------------------------------------------
 FirstSTART
    jsr GenerateCharsets
@@ -265,7 +265,7 @@ SwapLoop
 .endp
 ;-----------------------------------------------
 .proc ClearWorld
-    ldy #WORLD_LENGTH-1 ; world size
+    ldy #WORLD_LENGTH ; world size
    lda #0  ; ground
@   sta WorldTable,y
    dey
@@ -338,6 +338,8 @@ Shift
    lda #0  ;ground
    sta WorldTable,y
    ; or sometimes mountain :)
+    lda WorldTable-1,y
+    bne no_mountain
    lda RANDOM
    and #%00011111  ; 32:1
    bne no_mountain