どこでどんな敵が出てくるかをデータとして指定し、これに従って出るように改良します。ついでに、アイテムの配置もこのデータの中に含め、やはりこれに従って出るようにします。

　今まで敵の種類、ｘ座標は乱数で決めていましたが、やめます。１度に出す敵のデータを、以下のように書きます。
　　" ,0, , ,2, ,0, , , "
　画面の横幅を３２ドットごとに区切り、左から何番目に何を出すかを指定します。この場合、左から２番目に種類０、５番目に種類２、７番目に種類０の敵を出します。左から１番目のｘ座標は０、２番目は３２、３番目は６４、……となります。半角スペースの箇所には何も出しません。画面の横幅が３２０ドットですから、１行には１０個のデータがあります。
　１度に出す敵は２匹まで、という制限もやめます。
　アイテムは、オプションを"o"、ボムを"b"で表します。
　　" ,0, , ,2, ,0, , ,o"
　と書けば、右から１番目にオプションアイテムを出す、という指定になります。
　この１行に対応して出てくる敵、アイテムは下図の通りです。
　　

　敵の配置データを書くためのファイルをenemap.asとします。
　データを入れるための配列変数enemapを宣言します。
    sdim enemap,20,3,100
　例えばステージ１のデータは以下のようになります。
    ; ステージ１のデータ
    enemap.0.64="5, , , , , , , , , "
　　　　・
　　　　・
　　　　・
    enemap.0.10=" ,1, , , , , , ,1, "
    enemap.0. 9=" , , , , , , , , , "
    enemap.0. 8=" , , , ,1, , , , , "
    enemap.0. 7=" , , , , , , , , , "
    enemap.0. 6=" , , , , , , , ,0, "
    enemap.0. 5=" , , , , , , ,0, , "
    enemap.0. 4=" , , , , , ,0, , , "
    enemap.0. 3=" , , , ,o, , , , , "
    enemap.0. 2=" ,0, , , , , , , , "
    enemap.0. 1=" , ,0, , , , , , , "
    enemap.0. 0=" , , ,0, , , , , , "
　１番目の添え字はステージ番号、２番目の添え字は行番号です。mappntが６４の倍数の時に敵を出します。０行目がmappnt=0の時、１行目がmappnt=64の時、２行目がmappnt=128の時……に出す敵のデータです。mappntは０から始まって４０９６まで増えますから、０行から６４行までのデータが必要ということになります。
　６４行目にある種類５の敵はボスです。ボスは必ず画面の中央から出すようにしましたので、左から何番目に書いても同じです。
　なお、画面中に敵は最大１０匹まで、アイテムは１個までしか出せませんから、あまりぎゅうぎゅう詰めに並べてしまうと、指定した通りに出ません。

「敵の出現」処理を修正します。

(1)全体
　mappntが６４の倍数の時、該当する行のenemapにつき、左から順に文字を見ていきます。文字は変数kに入れるものとし、kがアイテムだった場合の処理、kが敵だった場合の処理を行います。
    ; 敵の出現
    if (mappnt\64=0)&(mappnt<=4096) {
        s=stageno-1
        i=mappnt/64
        itemstr=""
        repeat 10
            k=0
            str k
            strmid k,enemap.s.i,cnt*2,1
            kがアイテムである時の処理
            kが敵である時の処理
        loop
    }

(2)kがアイテムである時の処理
　kが"o"か"b"の時、後の「アイテムの出現」処理に渡すために、その文字を変数itemstrに、文字の位置をitemposに入れます。strはstring、posはpositionの略です。
    if (k="o")|(k="b") {
        itemstr=k
        itempos=cnt
        continue
    }
　kが"o"でも"b"でもない場合、itemstrには""（文字が何もない）が入ります。

(3)kが敵である時の処理
　kが"o"でも"b"でも半角スペースでもない時、それは敵の種類ですので、敵を出します。この処理は前とだいたい同じですが、以下の点が違います。

• 敵の種類enekindは乱数で決めるのではなく、kを入れます。
• 出現時のｘ座標enemyxは、ザコと中型敵については乱数で決めていましたが、文字の位置を３２倍した値となります。ボスは前と同じで中央です。
• ザコは１度に２匹出していましたが、この処理中では１匹しか出しません。

　mappntとは関係なく、種類をitemstrに応じて、位置をitemposに応じて決めるように変えます。itemstrが""の場合何も出しません。
    ; アイテムの出現
    if (itemf=0)&(itemstr!"") {
        itemf=1
        if (itemstr="o") { ikind=0 }
        if (itemstr="b") { ikind=1 }
        itemx=itempos*32
        itemy=-32
    }