72 行
2.1 KiB
Plaintext
72 行
2.1 KiB
Plaintext
#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
|
||
|