Program post site for everyone
■説明
まんまとお宝を手に入れたあなた。
しかし、目撃者がいたようです。
今回は目撃者になって警察に協力しましょう。
ゲームを始めると最初に犯人の顔が5秒くらい表示されます。ここでしっかり顔を覚えてください。
犯人の顔はランダムで作成されるため、実行する度に変わります。
次にモンタージュ作成画面になるので、犯人の顔を作ってください。
顔のパーツは頭、眉、目、鼻、口の5種類で各12種類あり、作成出来るパターンは約25万通りになります。
間違えても何度でもやり直せますが、間違えた回数はカウントされます。
■操作
選択する部位変更：↑↓
変更：←→
顔が完成したら：スペース
■変数
A WORK
B 間違いの数
C チェックカウント
D 変位
I FOR
J FOR
K INKEY
M 画面作成時：パーツ番号
N 画面作成時：パーツの数（各12個）
Y カーソルY（0～4）
Z 画面表示するY
[0]-[4] 各パーツ（頭眉目鼻口）の表示パターン
[5]-[16] パーツのキャラクターパターン（頭）
[17]-[28] パーツのキャラクターパターン（眉）
[28]-[40] パーツのキャラクターパターン（鼻）
[40]-[52] パーツのキャラクターパターン（口）
[52]-[64] パーツのキャラクターパターン（口）
[85]-[89] 犯人の顔データ
[90]-[94] 現在作成中の顔データ
■プログラム
10-30 変数クリア、各種初期化、犯人顔表示、初期モンタージュ表示
40-50 カーソル上下移動、左右が押された場合の処理
60 スペースが押された時の処理
70 40へ
80 サブルーチン：モンタージュ作成画面初期表示
90 サブルーチン：左右のスクロール
100 表示用Y座標（Z)の計算
■運営殿
mix juiceのダウンロードを利用すると文字化けするみたいなんですが何かご存じでしょうか。
10 CLP:CLV:VIDEO3:LET[0],255,231,66,24,60,35,239,64,255,156,157,158,159,134,137,135,139,25,26,60,61,62,94,152,153,154,155,205,201,36,63,79,111,112,113,42,43,239,232,233,235,85,86,98,100,232,233 20 N=12:LET[47],219,244,228,229,230,231,87,119,77,109,86,118,1,2,3,4,180,170:CLS:FORI=85TO89:[I]=RND(N):NEXT:FORY=0TO4:GSB@Z:FORJ=0TO8:LCJ+4,Z:?CHR$([Y]>>J&1*[5+N*Y+[85+Y]]):NEXT:NEXT 30 WAIT300:FORI=0TO10:?:WAIT20:NEXT:FORJ=5TO8:M=N+4:GSB@S:NEXT:M=5:FORJ=0TO8:GSB@S:NEXT:M=6:FORJ=0TO2:GSB@S:NEXT 40 @A:GSB@Z:LC3,Z:?" ":LC12,Z:?" ":K=INKEY():Y=(Y+(K=31)-(K=30)+5)%5:GSB@Z:LC3,Z:?CHR$(225):LC12,Z:?CHR$(224):D=(K=29)-(K=28) 50 IFD[90+Y]=([90+Y]-D+N)%N:A=[90+Y]:FORJ=3TO8:GSB@T:NEXT:A=(A-D+N)%N:FORJ=0TO2:GSB@T:NEXT 60 IFK=32C=0:FORI=85TO89:C=C+([I]=[I+5]):NEXT:LC0:IFC=5?"セイカイ":ENDELSEB=B+1:?"マチカ゛イ";B 70 GOTO@A 80 @S:SCROLL3:FORY=0TO4:GSB@Z:LC15,Z:?CHR$([Y]>>J&1*[N*Y+M]):NEXT:RTN 90 @T:GSB@Z:COPY#900+Z*16+(D=1)*15,#901+Z*16+(D=1)*13,-15*D:LC(D=-1)*15,Z:?CHR$([Y]>>J&1*[5+N*Y+A]):RTN 100 @Z:Z=1+Y+(Y=3)+(Y=4)*2:RTN
