#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