Ichigo64環境(IchigoJam+IchigoDot)用の、いわゆるライフゲームです。
生物シミュレーションなので操作は不要です。ライフが増えたり減ったりするのをひたすら眺めてください。
- 起動するとタイトル画面が出ます。その後、ランダムにライフがばらまかれます。
- ライフは自分の周囲8マスにいるライフの個数により、次の世代での生存が決まります。(画面の上下・左右はつながっています)
- 0〜1個→死ぬ
- 2個→そのまま
- 3個→新しく生まれる
- 4個以上→死ぬ
- ライフが絶滅した場合、あるいは変化しなくなった場合は、リセットされて新たなパターンが始まります。
- ループパターンになった場合はそのまま永久に終わらないので、ESCキーでプログラムを止めるか、IchigoJamをリセットしてください。なお計算速度を上げるために「VIDEO 0」で画面出力を止めているので、プログラムを止めた場合はF8キーを押して画面出力を戻してください。
1 'Life64
2 WAIT60:UART1:CLS:?:VIDEO0
3 CLV:?"MATLED SHOW 0097949794D400FF":PLAY"L8RGEC"
4 SRNDANA(2)+TICK()
5 '@RESTART
6 WAIT180
7 FORY=0TO7:[Y]=RND(256):NEXT
8 M=0:N=8:GSB30:BEEP
9 '@LOOP
10 L=0:K=0
11 FORY=0TO7:[N+Y]=0
12 FORX=7TO0STEP-1:C=0
13 FORE=-1TO1:FORD=-1TO1
14 U=(X+D)&7:V=(Y+E)&7
15 B=[M+V]&(1<0C=C+1
17 NEXT:NEXT
18 B=[M+Y]&(1<0B=1:C=C-1
20 Q=0
21 IFC=2Q=B
22 IFC=3Q=1
23 IFQ=1[N+Y]=[N+Y]+(1<QK=1
25 L=L+Q
26 NEXT:NEXT
27 M=8-M:N=8-N:GSB30
28 IFL>0&&K>0GOTO9
29 GOTO5
30 '@PRTMAT
31 ?"MATLED SHOW ";:FORZ=0TO7:IF[M+Z]<16?0;
32 ?HEX$([M+Z]);:NEXT:?:RTN