ＨＳＰコンテスト2007に出品したblurのソース公開

先日ＨＳＰコンテスト2007のＨＳＰＴＶ部門（ショートプログラム部門）に出品した「blur」の
ソースファイルを公開して、来年も参加するかどうかはわかりませんが
忘れない為に、私なりに思いついた容量削除のポイントなんかを書いてみたいと思います。

ソースはこちら↓
#include "hsptv.as" buffer 1 ;ウィンドウ1をバッファ画面として用意 cls 3 screen ,640,480 ;メインウインドウ0を640×480で用意 *strat ;■配列宣言 dim tx,50 ;自機弾のX座標の配列変数 dim ty,50 ;自機弾のY座標の配列変数 dim tf,50 ;自機弾が画面にあるか無いかを調べる配列変数 ;100=100;敵の弾 dim etx,100 dim ety,100 ;敵弾の位置、移動量 dim etxv,100 ; etxv 敵弾x方向運動量 dim etyv,100 ; etyv 敵弾y方向運動量 dim etf,100;敵弾のフラグ dim ename,100 DIM X,200 ;星のx軸座標 DIM Y,200 ;星のy軸座標 DIM S,200 ;星の移動速度 ;星をランダムに表示 REPEAT 200 X(CNT)=rnd(640) Y(CNT)=rnd(480) S(CNT)=rnd(4)+1 PSET X(CNT),Y(CNT) LOOP ;■変数初期化 a="msgothic" gtimer=0;ゲームタイマー px=312:py=448 ;自機の初期位置 et=0;敵発生時間 etimer=100;敵消去時間 dx=2:dy=2 ;敵弾の移動量 st=0;ショットフラグ ef=0.;敵の有無,1は有り eh=0;敵弾用の変数 sc=0;スコア用 jiki=3;自機数 move=5;自機速度 level=1.;ゲームレベル blurtime=300 play=0 ;■メインルーチン *main font a,32 redraw 0 ;仮想画面を指定 if (blur=1)&(blurtime>1) { pos 0,0 gmode 3,640,480,100 if gtimer\3=0 : gcopy 1,,,640,480;バッファ画面（ウィンドウ1）よりコピー blurtime- } else : color ,, : boxf ,,640,480 ;■星表示 REPEAT 200 color 255,255,255 Y(CNT)+=S(CNT) IF Y(CNT)>480 :Y(CNT)=0 PSET X(CNT),Y(CNT) LOOP ;■インフォ表示 pos 0,20:;color 255,255,255 mes "score "+sc;タイマー入力を表示 mes "ship "+jiki;キー入力数を表示 if play=0 { ;ランキング表示 hsptv_up -1,"" ; 最初に情報を更新しておく repeat 10 ; 上位10位のみ表示 hsptv_getrank rscore,ruser,rcomm,cnt ; 情報を取得する rank=cnt+1 mes ""+rank+":"+rscore+"("+ruser+") " loop stick ky if ky=64 : randomize : play=1 font a,32 pos 365,100 mes "-Blur-" pos 325,350 mes "Push ctrl key" } if play=1 { gtimer+;ゲームタイマー加算 if etimer>0 : etimer-;敵消去時間減算 if etimer=1 : item=0 blur=0 : waru=20 : waru1=1 if jiki>0 :if jikicnt=-1 { ;自機移動処理 stick ky,79 ;キーボードのチェック if ky&1 :px-=move if ky&4 :px+=move if ky&2 :py-=move if ky&8 :py+=move if ky&64 : if blurtime>1 : blur=1 : waru=2 : waru1=2 } if jikicnt!-1 : jikicnt-=1 if blurtime<0 : blurtime=0 ;■自機移動処理 color 65,65,65 : boxf ,470,640,476 color ,255,255 : boxf ,470,blurtime/3,476 if jiki>0 { if jikicnt=-1 { pos px,py ;自機の座標指定 color 255,100,0 : mes "▲" ;青で▲を表示 if px<0 :px=0 if px>608 :px=608 if py<0 :py=0 if py>448 :py=448 st=1 } repeat 50 ;repeat～loop間を50回繰り返す if tf(cnt)=0 : if st=1 : { ;tf(cnt)が0の時=画面に弾がない時、かつstが1の時{}内の命令を行う tf(cnt)=1 ;tf(cnt)に1を代入。画面に弾があると言う事 st=0 ;連射の為の処理 tx(cnt)=px : ty(cnt)=py : tyv(cnt)=-move*3;直進弾 } if tf(cnt)=1{ ;画面に弾があるとき、{}内の命令を行う ty(cnt)+=tyv(cnt);自機弾の移動量y color 130,130,130 pos tx(cnt),ty(cnt) ;自機弾の座標指定 mes "△" if ty(cnt)<-32 : tf(cnt)=0 : st=0 ;画面から自機弾が消えたら弾を消す } loop } ;■敵発生、移動処理 color 65,65,65 : boxf ,10,640,16 if etimer=0 { if ef<=0 : ex=20+rnd(280) : ey=0 : ef=level/2*100.: bog=ef/640 ;敵が画面にいない時は敵生成 if ef>0 {;敵が画面にいる時は{}内の命令を行う ex+=dx/waru1 ;敵座標に移動量をプラス if(ex<20)|(ex>512) :dx=-dx ;画面端で反転 ey+=dy/waru1 if(ey<0)|(ey>352) :dy=-dy ;y軸0～100ドットの間で反転 et+ pos ex,ey font a,128 color 255,, : mes "■" ;■を表示 } ;弾発生 if et=1 : tamaselect=rnd(3) if jikicnt=-1 {;敵弾種類処理 if gtimer\waru=0 { repeat 100 ;100回繰り返す if etf(cnt)>0 : continue ;画面に弾がある時はrepeatに戻る eh+=1 ;弾の数の為の計算 etf(cnt)=1 ;弾の存在を有にする etx(cnt)=double(ex+48) : ety(cnt)=double(ey+48) ;弾の座標を実数で設定 if tamaselect=0 : name=0 : dspeed=1 : tamasu=4 : r=double(r+0.6) ;弾の角度を実数で計算 if tamaselect=1 : name=1 : dspeed=3 : tamasu=1 : r=atan((py+16)-(ey+64), (px+16)-(ex+64)) ;敵と自機との角度を求める if tamaselect=2 : name=2 : dspeed=2 : tamasu=5 : r=atan(py+16-(ey+64), px+(eh*96-368)-(ex+64)) ename(cnt)=name ds=dspeed+level ;敵弾の速さ etxv(cnt)=cos(r)*ds : etyv(cnt)=sin(r)*ds ;弾の移動量を角度より計算 if eh>level*tamasu : eh=0 :break ;level発弾を撃った時点でrepeatを抜ける loop } } if et>100 : et=0 ;敵ゲージ表示 color ,255, boxf ,10,ef/bog-1,16;ゲージを減らしていく } ;■敵弾処理 ;弾移動 repeat 100 ;100回繰り返す if etf(cnt)=0 : continue if etf(cnt)=1 { ;敵弾が画面に有る時{}内の命令を行う etx(cnt)+=etxv(cnt)/waru1 ;敵弾のx軸の座標指定 ety(cnt)+=etyv(cnt)/waru1 ;敵弾のx軸の座標指定 } pos etx(cnt),ety(cnt) ;敵弾の座標指定 font a,32 if ename(cnt)=0 : color 255,255, : mes "○" ;○を表示 if ename(cnt)=1 : color ,255, : mes "Φ" ; if ename(cnt)=2 : color ,255,255 : mes "◎" ; if ename(cnt)=3 : color 255,,255 : mes "Θ" ; if (etx(cnt)>640)|(etx(cnt)<-32)|(ety(cnt)>480)|(ety(cnt)<-32) : etf(cnt)=0 ;敵弾が画面から消えたら存在をなしにする ;■敵弾当り判定 if jikicnt=-1 { if (abs((etx(cnt)+16)-(px+16))<8)&(abs((ety(cnt)+16)-(py+16))<8) { ;自機と敵との差が8ドット以下なら{}内の命令を行う if ename(cnt)=3 : etf(cnt)=0 : sc+50 : blurtime-- : else : jiki-- : jikicnt=100 : blur=0 : px=312 : py=448 : blurtime=250 } if etimer>1 : if item=1 {;アイテム発生移動処理 if etf(cnt)=0 : continue if etf(cnt)=1 { ename(cnt)=3 ds=10 r=atan((py+16)-(ety(cnt)+16),(px+16)-(etx(cnt)+16)) etxv(cnt)=cos(r)*ds : etyv(cnt)=sin(r)*ds } } } loop ;■自機弾当り処理 if etimer=0 { if jiki>0 { repeat 50 ;repeat～loop間をemx回繰り返す if tf(cnt)=0 : continue ;tf(cnt)が0（画面に自機弾がない)ならばrepeatに戻る if (abs((tx(cnt)+16)-(ex+64))<64)&(abs((ty(cnt)+16)-(ey+64))<64) { ;自機弾と敵との差が64ドット以下なら{}内の命令を行う pos ex,ey font a,128 color 255,255,255 mes "■" ;■を表示 ef- blurtime+ tf(cnt)=0 if ef=0 { sc+50: ef=0 : etimer=100 : et=0 : level+ : if level=11;敵消去 if blur=0 : item=0 if blur=1 { if blurtime>=1: item=1 } } } loop } } if jiki<=0 { dialog "SAVE SCORE?",2,"GAME OVER" if stat=6 : hsptv_up sc,"", 0 : goto *strat if stat=7 : goto *strat } font a,32,4 : pos 500,20 : color 255,255,255 : mes "LEVEL "+int(level);敵消去時間減算 } redraw 1 ;画面を更新 await 16 goto *main ;*mainに戻る
HSP3.1使用 HSPTVがインストールされていないと動きません。

まず、このゲームは元々HPで公開していた物を改変していったものなのですが
最初の状態は、タイトルとゲーム画面で別々のループを使って動かしていました。
この方法でも問題なく動くのですが同じ記述を2回使わないといけない場所などもあり
もったいないので、一つのループで全てを終わらすように変更しました。
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
それと、スクリプトの書き方でも削減できる書き方があります。
a=a+1
と書く場合は
a+=1
と書いた方が良い

a++
よりも
a+
の方が良い

mes ""+a+""
よりも
mes""+a
の方が良い

font "ＭＳ ゴシック"
よりも
font  "msgothic"
の方が良い。
さらにfont命令等の""を使う命令を沢山使う場合は
a= "msgothic"
font  a
と書いた方が良い

と言った感じでした（間違ってるかもしれませんが）
これらの方法は、あと数バイト減らしたいと思った時に有効です。
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
あと
if a>10 : b=0
if a<10 : b=1
（aが10以上のときはbは0。aが10以下の時はbは1)
みたいな記述の場合は
if a>10 : b=0 : else : b=1
（aが10以上のときはbは0。そうでなければbは1)
という感じでelseを使うとまとめられます（elseはそうでなければという意味合いだと思います）
で、もっと言うとelseを使うんじゃなくて
b=1
if a>10 : b=0
（bは1。でもaが10以上の時はbは0）
と書けるようにスクリプトを考えるのが一番良いように思いました。
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
表示する文字は日本語よりも英語の方が容量を削れる
スコアと書くよりもSCOREと書いた方が良いです。
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
数字に置き換えれる変数は数字にする。
repeat a よりも
repeat 50 と書いた方が良い
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
省略出来る命令は、なるべく省略する。
color 0,0,0よりも
color ,,の方が良いです。
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
最後に同じような記述の部分を探してまとめる。
blurの場合で言うと、敵弾処理の部分がそうだったんですが
弾の速さや移動方向が違うだけで、移動するスクリプト自体は同じような物なので
弾発射用のスクリプトを作って、変数で分岐させるようにしてまとめました。
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
後、やっても無駄だったこと。
{}を::に置き換える。
変数の文字数を減らす。
苦労したわりに、まったく減りませんでした＾＾；

と言った感じです。色々と間違ってる可能性もあるので、間違っていたらゴメンナサイ。
しかし6000バイトってのは少ないですね。他の作品を見ると、どうやって動かしてるんだ？
と思うものばかりで、私などまだまだだな～と感じました。
でも、いかに6000バイトに収めるかってのは結構面白かったので、また来年も参加出来たら
良いな～と思っています＾＾