避けゲーを創る on Delphi

    titleTexture:TDGTexture;//タイトルの画像をいれます

//タイトル画像の初期化
  titletexture:=TDGTexture.Create(DG,DGFMT_ARGB);
  titletexture.BorderColor:=$00000000;             //ボーダー色は透明
  titletexture.LoadFromFile('title.bmp');
  titletexture.SetColorKey//黒（=#000000）を透過色とする
        (
            Rect(0,0,titletexture.Width,titletexture.Height),
            D3DCOLOR_ARGB(0,0,0,0)
          );

////////////////////
//
//アプリケーションが終了時呼び出される
//
/////////////////////
procedure TForm1.FormDestroy(Sender: TObject);//Form1のOnDestroyイベント
var
  tmpint:integer;//for文の作業用
begin

//以下、Freeについては、クラスの知識を習得するまでは、
//createしたものに対して行う必要があるおまじない程度に考えておいて良い。
  player.texture.Free;//自機の画像を格納していたメモリ領域を開放

  //敵弾の画像を格納していたメモリ領域を開放
  for tmpint:=0 to Maxbullet-1 do
    begin
      bullet[tmpint].Texture.Free;//
    end;
  titletexture.free;
  TimeEndPeriod(1);//TimeBeginPeriod(1)とセットで記述する。
end;

    gamemode:integer;//0ならタイトル画面、1ならゲーム画面を入れる

//ゲームモードをタイトル画面に初期化
  gamemode:=0;

////////////////////
//
//スプライト配置処理
//
/////////////////////
procedure TForm1.makegraphic;
var
  tmpint:integer;//for文の作業用
begin

  application.processmessages;//他の待機中のプログラムの処理を行わせる。

  case gamemode of//gamemodeに入っている値でモードを変える
  0://タイトル画面
    begin
      DDIDEX1.Scan(DI_KEYB);//キー入力のチェック
      if DDIDEX1.Buttons[DI_B1] then//DDIDEXでは、デフォルトで、Zキーは
                                    //DI_B1に割り振られている
        begin
          //自機と敵弾の初期化
          //自機の初期座標を決める
            player.x:=320;
            player.y:=240;

          //敵弾の状態を初期化。全てOFFに。
            for tmpint:=0 to Maxbullet-1 do
              begin
                bullet[tmpint].Flag:=false;
              end;

          //敵弾発射番号の初期化
            nextbullet:=0;



          gamemode:=1;//ゲームモードにする。
          exit;
        end;
      //画面のクリア、色は黒で
      Scene.Clear(D3DCLEAR_TARGET, $000000, 1.0, 0);

      //タイトル画像を表示
      putsprite(titletexture,0,0);

    end;

  1://ゲーム画面
    begin
    //画面のクリア、色は黒で
      Scene.Clear(D3DCLEAR_TARGET, $000000, 1.0, 0);

    //ここに各スプライトの配置処理を書く

    ////自機の座標決め


      DDIDEX1.Scan(DI_KEYB);//キー入力チェックをする

      //↑キーが入力されていれば、DDIDEX1.Stick.Y=-1
      //↓キーが入力されていれば、DDIDEX1.Stick.Y=1
      //←キーが入力されていれば、DDIDEX1.Stick.X=-1
      //→キーが入力されていれば、DDIDEX1.Stick.X=1
      //が入力されているので、以下のような条件分けが可能になる。
      //ここらへん、DDIDEXサマサマで、簡潔な記述が可能になってありがたい。

      if (DDIDEX1.Stick.X*DDIDEX1.Stick.Y=0) then//縦横どちらか入力されていない時
        begin
          player.x:=player.x+(DDIDEX1.Stick.X)*3;
          player.y:=player.y+(DDIDEX1.Stick.Y)*3;
        end
      else                 //縦横どちらも入力されている時は移動速度を遅くする。
        begin
          player.x:=player.x+(DDIDEX1.Stick.X)*2;
          player.y:=player.y+(DDIDEX1.Stick.Y)*2;
        end;


    //画面の外に行っちゃったら戻す。
      if (player.x>form1.clientWidth) then player.x:=form1.clientWidth
        else if (player.x<0) then player.x:=0;
      if (player.y>form1.clientheight) then player.y:=form1.clientheight
        else if (player.y<0) then player.y:=0;
    //

    //自機の座標に自機スプライトの中心を置きましょう
    //つまり、64の半分だけずらす。
      putsprite(player.Texture,player.x-32,player.y-32);

    //敵弾の数を数える
      BulletNum:=0;
      for tmpint:=0 to MAXBULLET-1 do
        begin
          Bulletnum:=Bulletnum+ord(bullet[tmpint].Flag);//ここのやり方幾通りもある。
        end;                                            //integerキャストでもいいし
                                                        //if文使ってもいいし



      //弾生成
        CreateBullet(338,32, (random(200) mod 200/100)-1, (random(200) mod 200)/100);
    //弾の座標決定
        for tmpint:=0  to MAXBULLET-1 do//全ての敵弾で
          begin
            if Bullet[tmpint].Flag=true then//状態がONなら
              begin
                Bullet[tmpint].x:=Bullet[tmpint].x+Bullet[tmpint].xSpeed;
                Bullet[tmpint].y:=Bullet[tmpint].y+Bullet[tmpint].yspeed;
                inc(Bullet[tmpint].Frame);//その敵弾が何フレーム画面上に存在しているか
                if (
                      (bullet[tmpint].x<0) or
                      (bullet[tmpint].y<0) or
                      (bullet[tmpint].x>form1.clientWidth) or
                      (bullet[tmpint].y>form1.clientHeight) or
                      (bullet[tmpint].Frame>1800)//1800フレーム残っているようなら消す
                      ) then bullet[tmpint].Flag:=false;
              end;
          end;

    //敵弾を描画
        for tmpint:=0 to  MAXBULLET-1 do
          begin
            if bullet[tmpint].Flag then//状態ONの敵弾だけ
              //自機同様、敵弾も半キャラ分（16）だけずらす。キャラの真ん中を座標に置く。
              putsprite(
                        bullet[tmpint].Texture,round(bullet[tmpint].x)-16,
                        round(bullet[tmpint].y-16)
                        );
          end;


       end;
   end;//case終わり

end;

//自機のあたり判定の初期化
  player.hitx:=2;
  player.hity:=2;
//↑この場合、自機画像の中の4x4ピクセルが当たり判定となる。

//同様に敵弾にもあたり判定を与える。
  for tmpint:=0 to MaxBullet-1 do
    begin
      bullet[tmpint].hitx:=2;
      bullet[tmpint].hity:=2;
    end;

    //あたり判定を行うために、２つの四角形が 重なっているかチェックする
    //重なっていればtrueを返す
    function Collision(RectA,RectB:TRect):boolean;

////////////////////
//
//あたり判定チェック
//
/////////////////////
function TForm1.Collision(RectA, RectB: TRect): boolean;
var
  tmprect:TRect;//intersectRectの作業用としてのみ使用
begin
  //これで重なっていればtrueが返る。
  //ちなみにtmprectには重ね合わさった部分の矩形データが入るが、今回はそのデータは使わない
  Result:=IntersectRect(tmprect,RectA,RectB);
end;

            //自機と敵弾のあたり判定をチェック。
        for tmpint:=0 to MaxBullet-1 do
          begin
            if bullet[tmpint].Flag then
              begin
                if collision(//自機と敵弾それぞれのあたり判定が重なっているかチェック
                            Rect(
                                  player.x-player.hitx,
                                  player.y-player.hity,
                                  player.x+player.hitx,
                                  player.y+player.hity
                                  ),
                            Rect(
                                  round(bullet[tmpint].x-bullet[tmpint].hitx),
                                  round(bullet[tmpint].y-bullet[tmpint].hity),
                                  round(bullet[tmpint].x+bullet[tmpint].hitx),
                                  round(bullet[tmpint].y+bullet[tmpint].hity)
                                )
                            ) then
                    begin
                      gamemode:=0;//タイトル画面に戻らせて
                      exit;//今の手続きはここで処理を終了させる。
                    end;
                end;
          end;