クラスをマクロ化していく中で、工夫が必要な点がでた ;; Step13 <Stage Class> <----------- step 14 correct;; ----------------------------------------------------------------------------------------------- ;(defclass stage (); ((%stage-flag :initarg :stage</stage>…

そういえば「楽しみ」のマクロが残っていた。 step3でクラスを作ったが、もっとカッコよくするには？ ;;step3 <Character object>;; -----------------------------------------------------------------------------------------------(defclass object () ((%imageid :initar</character>…

このシューティングゲームの完成形はこんな感じ 初めてCommon Lispでプログラムを作ったため、やっつけ仕事感ありありだけど、とりあえず動けば目的達成！ common-shooter.lisp ⇒ ;;;; The Common-Shooter ;;; step1 <Game Frame>;;; step2 <Audio>;;; step3 <Sprite Sheets> <Character Object> <Draw Images> <Initialize>;;; step4 <Scroll> <Scroll Counter>;;; </scroll></scroll></initialize></draw></character></sprite></audio></game>…

Step16はスタンドアローンの実行ファイルの作成 プログラム（common-shooter.lisp)に以下を追加 ;;; step1 <Game Frame>;;; step2 <Audio>;;; step3 <Sprite Sheets> <Character Object> <Draw Images> <Initialize>;;; step4 <Scroll> <Scroll Counter>;;; step5 <Font> <Score Panel>;;; step6 <Key State>;;; step7 <Game Field>;;; step8 <Shot>;;; ste…</shot></game></key></score></font></scroll></scroll></initialize></draw></character></sprite></audio></game>

まだネタが残っていたので少々追加 Step15はパッケージ化 パッケージ化が必要かどうかはさておき、これまで作成したSTEP14までのプログラムstep14.lispをcommon-shooter.lispに変更し、common-shooter.asd、package.lispを作成する まずはpackage.lisp ⇒ ;;;…

Step14はオープニングメッセージの表示 ;; Step14 <Start Game Message>;; -----------------------------------------------------------------------------------------------(defgeneric Game-start-message (pointer stage keystate)) (defmethod Game-start-message (pointe</start>…

step13は難易度を上げるステージの設定 ;; Step13 <Stage Class>;; -----------------------------------------------------------------------------------------------(defclass stage () ((%stage-flag :initarg :stage-flag :initform t :accessor stage-flag) (%stag</stage>…

ここまでのプログラムをまとめると以下なんとかgameの形になった ⇒ step12.lisp ;;;; The Common-Shooter ;;; step1 <Game Frame>;;; step2 <Audio>;;; step3 <Sprite Sheets> <Character Object> <Draw> <Initialize>;;; step4 <Scroll> <Scroll Counter>;;; step5 <Font> <Score Panel>;;; step6 <Key State>;;; step7 <Game Field>;;; step8 <Shot>;;…</shot></game></key></score></font></scroll></scroll></initialize></draw></character></sprite></audio></game>

step12の2番目はenemyの爆発処理メインループを16回回ったら、enemyのstateを2(explosion)から0(dead)にする ;; Step12 <Explode enemy>;; -----------------------------------------------------------------------------------------------(defvar *enemybom-sound-flag*</explode>…

step12の最初はEnemyにshotがhitしたかどうかを判断するプログラム enemyのstateを2(explosion)、shotのstateを0(dead)、爆発カウンターを0にセットして起動し、scoreを+100して、もしhighscoreよりscoreが大きくなったら、highscoreにscoreをセット ;; Step…

Step11の最後はshipが全て無くなったときにメッセージを出して終了するプログラム ;; Step11 <Game Over Message>;; ----------------------------------------------------------------------------------------------- (defgeneric Game-over-message (score)) (defmethod Gam</game>…

３番目は爆発したshipの復活処理で、リバイバルカウンターが200になったら、shipのstateを1(alive)に変更する ;; Step11 <Revive Ship>;; ----------------------------------------------------------------------------------------------- (defgeneric Revive-counter </revive>…

２番目はshipの爆発処理のプログラム 爆発音を鳴らし、爆発カウンタが100になったらスコアボードのshipを１つ減らす shipが残っていたら、stateを3(revival)にしてshipを初期位置に戻し、revival-cntを0にしてリバイバルカウンターを起動する ;; Step11 <Explode Ship>;; -</explode>…

Step11の最初はshipがenemy、enemy-shotと衝突した場合の処理プログラム 互いの位置が重なったかどうかで衝突を判断しているが、重なった場合、hitフラグをonにし、enemy、enemy-shotのstateを0(dead)にして、shipのstateを2(explode)に設定しつつ、explode-…

ここまでのプログラムをまとめると以下 ⇒ step10.lisp ;;;; The Common-Shooter ;;; step1 <Game Frame>;;; step2 <Audio>;;; step3 <Sprite Sheets> <Character Object> <Draw> <Initialize>;;; step4 <Scroll> <Scroll Counter>;;; step5 <Font> <Score Panel>;;; step6 <Key State>;;; step7 <Game Field>;;; step8 <Shot>;;; step9 </shot></game></key></score></font></scroll></scroll></initialize></draw></character></sprite></audio></game>

３番目はenemy-shotのstateが0(dead)になったものをenemy-shot-listからdeleteするプログラム ;; Step10 <Remove Dead Enemy Shot>;; -----------------------------------------------------------------------------------------------(defgeneric Remove-dead-enemy-shot (foe)) (</remove>…

２番目は、enemyのstateが１(alive)で画面内に位置し(少しでもはみ出したら弾を発射しない)、出現してから64回移動したらenemy-shot(弾)を撃つプログラムshot位置はenemyの真ん中に設定し、移動方向はenemyの種類で異なる enemy1 ⇒ enemy-shotは真下に移動 e…

enemy-shot-listに格納されているenemy-shotの移動のためのプログラム stateが1（alive)の時に移動するが、画面の外にでたらstateを0に設定 ;; Step10 <Move Enemy Shot>;; -----------------------------------------------------------------------------------------------</move>…

3番目はenemyのstateが0になった場合にenemy-listからdeleteするプログラム ;; Step9 <Remove Dead Enemy>;; -----------------------------------------------------------------------------------------------(defgeneric Remove-dead-enemy (foe)) (defmethod Remove-dead-e</remove>…

２番目はenemy1、enemy2、enemy3をランダムに発生させるプログラム enemy1はランダムに設定したウィンドウ上の位置から垂直に下降enemy2はランダムに設定したウィンドウ下の位置が真ん中より右の時は左上に上昇し、左の時は右上に上昇enemy3はランダムに設定…

最初はクラスfoeを作成し、enemyの移動と種類による移動方向の設定をプログラム id2=enemy1、id3=enemy2、id4=enemy3 enemy1は下降した着地点がshipより右であれば左にー2、左であれば右に2上昇しながら移動するようにdx、dyを設定 enemy1、2、3、は画面の外…

これまでのプログラムコードをまとめると以下 step4のscroll周りで設計の変更を実施した timingクラスを作成し、<Scroll Counter>を追加 ⇒ step8.lisp なお、ブログでは((を表示するためにエスケープ文字を使用していることから、このままcopy&pasteで実行するとエラーが発生</scroll>…

shipのstateが爆発中の状態ではなく、且つshotがdeadの状態の時、ｚキーを押すとshotの発射位置を計算してshotのstateをaliveにし、shot音を出して16dotづつ移動するプログラム ;; step8 <Shot>;; --------------------------------------------------------------</shot>…

ゲームフィールドクラスをつくり、shipがゲーム画面からはみ出さないようにするメソットを追加 ;; step7 <Game Field>;; -----------------------------------------------------------------------------------------------(defclass game-field () ((%field-x :initarg</game>…

キー操作でshipを上下左右に動かすため、キーの状況を管理するクラスを作成 そして、shipを移動させるためのメソッドも作成する ↑↓→←ｚのどれかのキーが押されたら、keystateクラスのそれぞれにｔがセットされる なお、Shipが移動できるのは、shipのstateがa…

ゲームのスコアを表示させるパネルをウィンドウの右側に配置 追加するプログラムは以下 ;; step5 <Score panel>;; -----------------------------------------------------------------------------------------------(defvar *score* 0) ; score(defvar *highscore* 5000</score>…

ゲームのタイトル表示のためのFontを準備 Windows 7のFontを指定して利用 タイトルFontは72、メニューFontは16のサイズで設定 ;; step5 <Font>;; -----------------------------------------------------------------------------------------------(defparameter </font>…

64×64の大きさのmapchipを、(0,-64)の位置から横８個、縦に9個並べ、1dotずつ縦にスクロールさせていき、mapchipが96個分動いたら０にリセット 追加するプログラムは以下 ;; step 4 <Scroll>;; -------------------------------------------------------------------</scroll>…

いままでのプログラムをまとめると以下のようになる ウィンドウを開いて左下方にShipを表示し、BGMを鳴らす ⇒ step3.lisp ;;;; The Common-Shooter;;; step1 <Game Frame>;;; step2 <Audio>;;; step3 <Sprite Sheets> <Character Object> <Draw> <Initialize> ;; step2 <Audio>;; --------------------------------------------------------</audio></initialize></draw></character></sprite></audio></game>…

step3の4番目はクラスから生成したオブジェクトのイメージidからキャラクタidを指定しての描画 ;; step3 <Draw images>;; ----------------------------------------------------------------------------------------------- (defun Draw (obj) "character draw" (ecase </draw>…