プログラムコンテスト結果発表
大賞
だるま屋空気職人
田口賞
たけのこにょきにょき
特別賞
こわーい橋
こたぐち賞
Jump Up!!
最終選考ノミネート作品
タシザンマン
オシバト
ボルショット
ピリオメモリーズ
Rabbit's in Tank GHOST BUSTER
Updated: 2003.12.03
JPN SOFT（愛知県）
ダウンロード → BRIDGE.BAS
高速モード推奨
■プログラムの遊び方
|
|
■授賞理由 プログラムリストも１画面（40字×24行）の中に収まり、まさにシンプル・イズ・ベストの作品です。意外性やランダム要素がないため単調だという意見もありましたが、こちらは「特別賞」とし、同じ作者のもう１本（Jump Up!!）とあわせてダブル授賞となりました。 |
■プログラムリスト（40字×20行）
10 COLOR,0,0:SCREEN 5:DEFINT A-Y:C=1:D=0
:E=7:K=1:X=20:COLOR=(0,0,1,0)
20 A=180\10:Z=ATN(1)*4/180:DIM SX(A),SY(
A):FOR I=0 TO A:SX(I)=COS(Z*I*10)*7:SY(I
)=SIN(Z*I*10)*7:NEXT:M=1
30 V=VDP(19):ON STOP GOSUB 120:STOP ON
40 FOR Y=0 TO 211:LINE(128-X,Y)-(128+X,Y
),C:LINE(134-X,Y)-(138-X,Y),15:LINE(118+
X,Y)-(122+X,Y),15:C=CMOD14+1:X=Y\8+20:NE
XT
50 LINE(90,0)-(50,211),15:LINE(166,0)-(2
06,211),15:COLOR=(15,2,1,1)
60 '
70 COLOR=(K+D,3,2,1):COLOR=(K+E,0,1,0)
80 K=K+1:SETADJUST(SX(L),SY(L)):IF K=8 T
HEN K=1:SWAP D,E
90 L=L+M:IF L<1ORL>17 THEN M=-M
100 IF L=9 THEN FOR I=0 TO 300:NEXT
110 GOTO 70
120 VDP(19)=V:END
|