久しぶりのプチコンmkII

プチコン - 言葉は力なり
プチコン(作りかけのソースコード) - 言葉は力なり
プチコン(ランダム移動) - 言葉は力なり
これら3つの記事の続きというか、ゼル伝もどきの開発記事の続きみたいな何か。
もしこれ今のペースで作りつづけたら何年後に完成するんだろう*1_(:3」∠)_
他の人がゼル伝もどきのゲーム作ってくれたらいいなーとは思ってたりする。

メモって事でコード書く。
変数名とかは適当

CLEAR:CLS:ACLS
S=8
CHR=99
FOR I=0 TO CHR
SPSET I,10,0,0,0,0,S,S
NEXT
DIM TXY(200)
WAIT 60
------------------------
@MAIN
TT=0
FOR O=0 TO CHR
TKI=0:TXYI=TT:GOSUB @TKM
TT=TT+2
NEXT
VSYNC 1
GOTO @MAIN
------------------------
@TKM
RX=RND(2)
RY=RND(2)
XY=RND(2)
IF (XY==0) AND (RX==0) THEN TXY(TXYI+0)=TXY(TXYI+0)-S:GOTO @SKIP
IF (XY==0) AND (RX==1) THEN TXY(TXYI+0)=TXY(TXYI+0)+S:GOTO @SKIP
IF (XY==1) AND (RY==0) THEN TXY(TXYI+1)=TXY(TXYI+1)-S:GOTO @SKIP
IF (XY==1) AND (RY==1) THEN TXY(TXYI+1)=TXY(TXYI+1)+S:GOTO @SKIP
@SKIP
IF TXY(TXYI+0)>=237 THEN TXY(TXYI+0)=TXY(TXYI+0)-S
IF TXY(TXYI+0)<=-1  THEN TXY(TXYI+0)=TXY(TXYI+0)+S
IF TXY(TXYI+1)>=173 THEN TXY(TXYI+0)=TXY(TXYI+1)-S
IF TXY(TXYI+1)<=-1  THEN TXY(TXYI+0)=TXY(TXYI+1)+S
SPOFS TKI,TXY(TXYI+0),TXY(TXYI+1)
RETURN

そういえば、
プチコン3号(仮称)がいつでるのか楽しみ
800円かそれ以下だったら嬉しい

*1:今くらいのペースだとさすがに月単位どころか年単位です、はい