ここまでのプログラムをまとめると以下 ⇒ 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>…

step3の３番目は設計したクラスのインスタンスの生成 ship ⇒ *image0* の0番目のデータをｘ:224、y:416の位置にstate（alive）で生成すると、以下のような形になる (defun Common-shooter () "main routine" ･･････ ; step 3 (let ((ship (make-instance 'en…

step3の２番目はクラスの設計 objectクラス ⇒ イメージデータのID番号 Imageid イメージデータ内のキャラクタデータのID番号 id キャラクタオブジェクトの位置 x キャラクタオブジェクトの位置 y キャラクタオブジェクトの長さ width キャラクタオブジェクト…

step3の最初はイメージデータの読み込みとID番号の付与 ３つのイメージデータを読み込んでそのデータそれぞれにidを付与し、またそのデータの中のキャラクタ個々にもidを付与する たとえば *image0* の中のキャラクタへidの付与は(0 0 32 32) ⇒ id 0, (32 0 …

Step２はサウンド関係のプログラムを追加 ここを参照 https://github.com/skypher/lispbuilder/blob/master/lispbuilder-sdl-mixer/examples/mixer.lisp http://lispbuilder.sourceforge.net/lispbuilder-sdl-mixer.html Emacs+Slime上からSBCL、CCL、ECLを…

ボケ予防にCommon Lispで簡単なゲームを作ってみることにした 分かりやすいサンプルゲームを見つけたので、作者に了承を得て移植してみる http://mclass13.web.fc2.com/hspstudy/shooter1.htm 但し、分かりやすさを重視してマクロは使用せず、後の楽しみに取…