|
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071 |
- #include "hsp3dish.as"
-
- ; バッファ
- #enum global BUFFER_GOATOH_FACE_CC = 1 ; ゴートうの顔(閉眼,閉口)
- #enum global BUFFER_GOATOH_FACE_CO ; (閉眼,開口)
- #enum global BUFFER_GOATOH_FACE_OC ; (開眼,閉口)
- #enum global BUFFER_GOATOH_FACE_OO ; (開眼,開口)
- #enum global BUFFER_GOATOH_HEAD ; ゴートうの頭
- #enum global BUFFER_GOATOH_LEG ; ゴートうの脚
- #enum global BUFFER_GOATOH_TAIL ; ゴートうのしっぽ
- #enum global BUFFER_GOATOH_TARSO ; ゴートうの胴体
- #enum global BUFFER_NIZIKA ; ニジカ
- #enum global BUFFER_BG ; https://www.pakutaso.com/20190249044post-18819.html
-
- ; サウンド
- #enum global SOUND_MUMUMUMU = 0 ; ムムムム
- #enum global SOUND_BGM ; 夕餉の街並み(Copyright: Musmus)
- #enum global SOUND_EATING_KUSA ; クサタベテル!!!
-
- ; 向き
- #enum global DIRECTION_LEFT = 1
- #enum global DIRECTION_RIGHT
-
- #const global FPS 30
- #const global LOOP_INTERVAL 1000 / FPS
-
- #include "./modules/goatoh.mod.hsp"
-
-
- #ifdef _DEBUG
- ; デバッグ時は assets ディレクトリを参照する.
- ChDir "assets"
- #endif ; not _DEBUG
-
- ; 背景
- CelLoad "bg.jpg", BUFFER_BG
-
- ; ゴートうバッファ
- CelLoad "goatoh-face-closed-closed.png", BUFFER_GOATOH_FACE_CC
- CelLoad "goatoh-face-closed-open.png", BUFFER_GOATOH_FACE_CO
- CelLoad "goatoh-face-open-closed.png", BUFFER_GOATOH_FACE_OC
- CelLoad "goatoh-face-open-open.png", BUFFER_GOATOH_FACE_OO
- CelLoad "goatoh-head.png", BUFFER_GOATOH_HEAD
- CelLoad "goatoh-leg.png", BUFFER_GOATOH_LEG
- CelLoad "goatoh-tail.png", BUFFER_GOATOH_TAIL
- CelLoad "goatoh-tarso.png", BUFFER_GOATOH_TARSO
-
- ; ゴートうインスタンス生成
- Goatoh = New@Goatoh (0., 0., DIRECTION_LEFT)
-
- ; サウンド読込み
- MMLoad "mumumumu.wav", SOUND_MUMUMUMU
- MMLoad "MusMus-BGM-097.mp3", SOUND_BGM, MM_REPEAT
- MMLoad "eating-kusa.wav", SOUND_EATING_KUSA
-
- ; BGM 再生
- MMPlay SOUND_BGM
-
- GMode GMODE_RGB0 ; アルファあり
-
- Repeat
- ReDraw False
- Pos 0, 0
- CelPut BUFFER_BG
-
- Draw@Goatoh Goatoh
- ReDraw True
-
- Await LOOP_INTERVAL
- Loop
-
|