MSX ASSOCIATION MSX
Home > 連絡・活動報告 > MSXショートプログラムコンテスト > ボルショット
Home

プログラムコンテスト結果発表

大賞
 だるま屋空気職人

田口賞
 たけのこにょきにょき

特別賞
 こわーい橋

こたぐち賞
 Jump Up!!

最終選考ノミネート作品
 タシザンマン
 オシバト
 ボルショット
 ピリオメモリーズ
 Rabbit's in Tank GHOST BUSTER

Updated: 2003.12.03

ボルショット
BSC(北海道)



ダウンロード → BALSHOT.BAS
高速モード推奨

■プログラムの遊び方
  • 灰色の玉をカーソルキーで操作します。使用できるのは左・下・左下の3方向のみです。
  • カーソルキーを離すと灰色の玉は元の位置へと戻り、白い玉を弾きます。白い玉は放物線を描いて飛んでいきます。
  • 画面には赤い玉が2つと青い玉が1つあります。白い玉が赤い玉に当たると1点。また、2つめの赤い玉にも当てると3点(計4点)がもらえます。
  • 白い玉が青い玉に当たるか、何も当たらずに画面の外へ出てしまうと「CHANCE」が1つ減ります。
  • 「CHANCE」がゼロになるとゲームオーバーです。スペースキーでリプレイとなります。

■審査委員会より

 アイデアが優れており、失敗したときの悔しさもあって夢中になれるゲームです。ショートプログラムの精神が存分に活かされた作品で、入賞作品とは紙一重の差でした。

■プログラムリスト(40字×38行)
10 CLEAR 299,&HBFFF:IF PEEK(&H2D)>=3 THE
N FORJ=0TO6:POKE&HC000+J,VAL("&H"+MID$("
23237ECD8001C9",J*2+1,2)):NEXT:DEFUSR=&H
C000:A=USR(128)
20 COLOR15,0,0:SCREEN1,2:KEYOFF:WIDTH32:
DEFSNGA-Z:R=RND(-TIME-.1):H$="071F3F7F7F
FFFFFFFFFF7F7F3F1F0700C0F0F8FCFCFEFEFEFE
FEFCFCF8F0C000":FORI=0TO31:VPOKE14336+I,
VAL("&H"+MID$(H$,I*2+1,2)):NEXT:LF=5
30 PUTSPRITE0,(48,128),15,0:PUTSPRITE1,(
40,136),14,0:FORI=1TO3
40 X(I)=INT(RND(1)*128)+64:Y(I)=INT(RND(
1)*102)+8:FL=0:FORJ=0TOI-1:IF (X(I)-X(J)
)^2+(Y(I)-Y(J))^2<900 THEN FL=1
50 NEXT:IF FL THEN 40
60 PUTSPRITEI+2,(X(I),Y(I)),6+(I=3)*2,0:
NEXT: GOSUB190:X=0:Y=0
70 S=STICK(0)+STICK(1):IFS<5ORS>7THEN70
80 S=STICK(0)+STICK(1):X=X-(S=7)*3-(S=6)
*2:Y=Y-(S=5)*3-(S=6)*2:PUTSPRITE1,(40-X,
136+Y),14,0:IF S>=5 AND S<=7 THEN 80
90 PUTSPRITE1,(40-X,136+Y),14,0
100 IF S>=5 AND S<=7 THEN 80
110 PUTSPRITE1,(40,136),14,0:PLAY"V15S1M
10000O4E8":VX=X*.1:VY=-Y*.1:X=48:Y=128
120 X=X+VX:Y=Y+VY+.05:VY=VY+.1:PUTSPRITE
0,(X,Y),15,0:I=IMOD3+1
130 IF (X(I)-X)*(X(I)-X)+(Y(I)-Y)*(Y(I)-
Y)<=196 THEN PUTSPRITEI+2,,0:X(I)=-99:IF
 I<>3 THEN SC=SC+3^F1:F1=F1+1:PLAY"O4F":
GOSUB190 ELSE PLAY"O3C":LF=LF-1:GOSUB190
140 IF X<=248 AND Y<=191 THEN 120
150 IF F1=0 THEN PLAY"O3C":LF=LF-1
160 F1=0:GOSUB190:IF LF>0 THEN 30
170 LOCATE4,8:PRINT"GAME OVER"
180 IFSTRIG(0)+STRIG(1)THENRUNELSE180
190 LOCATE2,0:PRINTUSING"SCORE#### CHANC
E##";SC;LF:RETURN
          

12345678901234567890123456789012345678901234567890123456789012345678901234567890

TOP 
Copyright 2002-08 MSX Association. All rights Reserved.