# HG changeset patch
# User David Boddie <david@boddie.org.uk>
# Date 1318121068 -7200
# Node ID 66abf7c5cf63efe1c24a1a0b00e1ec618525430d
# Parent  22f3848d28c7eec6138d79f808c6d7d2281f91a4
Fixed a bug that caused too many types of enemy to be introduced
on each level.

diff -r 22f3848d28c7 -r 66abf7c5cf63 loader.oph
--- a/loader.oph	Sun Oct 09 02:13:06 2011 +0200
+++ b/loader.oph	Sun Oct 09 02:44:28 2011 +0200
@@ -117,8 +117,8 @@
 code_block: .byte <code_file_name, >code_file_name
                .byte $00, $1e, 0, 0
                .byte $00, $1e, 0, 0
-               .byte $30, $20, 0, 0
-               .byte $30, $3e, 0, 0
+               .byte $35, $20, 0, 0
+               .byte $35, $3e, 0, 0
 
 init_load_window_vdu_bytes: .byte 28,0,30,19,27
 
diff -r 22f3848d28c7 -r 66abf7c5cf63 mapcode.oph
--- a/mapcode.oph	Sun Oct 09 02:13:06 2011 +0200
+++ b/mapcode.oph	Sun Oct 09 02:44:28 2011 +0200
@@ -2304,7 +2304,12 @@
     emerge_type_ok:
     cmp $5781               ; only allow the appropriate enemies for this level
     bmi emerge_type_exit
-
+    beq emerge_type_reduce
+
+    sec
+    sbc #1
+
+    emerge_type_reduce:
     sec
     sbc $5781
     clc