いろいろ

This commit is contained in:
2023-06-26 00:36:52 +09:00
parent e06b289df6
commit 15e6b994f8
4 changed files with 109 additions and 27 deletions
+2
View File
@@ -2,4 +2,6 @@
/main.ax /main.ax
/main.cpp /main.cpp
/obj /obj
/modules/obj
/modules/hscl.ini
Binary file not shown.

After

Width:  |  Height:  |  Size: 135 KiB

+45 -16
View File
@@ -1,40 +1,69 @@
#include "hsp3dish.as" #include "hsp3dish.as"
; バッファ ; バッファ
#enum global BUFFER_GOATOH = 1 #enum global BUFFER_GOATOH_FACE_CC = 1 ; ゴートうの顔(閉眼,閉口)
#enum global BUFFER_NIZIKA #enum global BUFFER_GOATOH_FACE_CO ;       (閉眼,開口)
#enum global BUFFER_KUSA #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_MUMUMUMU = 0 ; ムムムム
#enum global SOUND_BGM ; 夕餉の街並み(Copyright: Musmus #enum global SOUND_BGM ; 夕餉の街並み(Copyright: Musmus
#enum global SOUND_EATING_KUSA ; クサタベテル!!! #enum global SOUND_EATING_KUSA ; クサタベテル!!!
; 向き
#enum global DIRECTION_LEFT = 1
#enum global DIRECTION_RIGHT
#const global FPS 30 #const global FPS 30
#const global LOOP_INTERVAL 1000 / FPS #const global LOOP_INTERVAL 1000 / FPS
#include "./modules/goatoh.mod.hsp"
#ifdef _DEBUG #ifdef _DEBUG
MmLoad "assets/mumumumu.wav", SOUND_MUMUMUMU ; デバッグ時は assets ディレクトリを参照する.
MmLoad "assets/MusMus-BGM-097.mp3", SOUND_BGM, MM_REPEAT ChDir "assets"
MmLoad "assets/eating-kusa.wav", SOUND_EATING_KUSA
#else ; not _DEBUG
MmLoad "mumumumu.wav", SOUND_MUMUMUMU
MmLoad "MusMus-BGM-097.mp3", SOUND_BGM, MM_REPEAT
MmLoad "eating-kusa.wav", SOUND_EATING_KUSA
#endif ; not _DEBUG #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 再生 ; BGM 再生
MmPlay SOUND_BGM MMPlay SOUND_BGM
GMode GMODE_RGB0 ; アルファあり
Repeat Repeat
ReDraw False ReDraw False
Color 255, 255, 255
BoxF
Pos 0, 0 Pos 0, 0
Color 0, 0, 0 CelPut BUFFER_BG
Print "Hello, world!!"
Draw@Goatoh Goatoh
ReDraw True ReDraw True
Await LOOP_INTERVAL Await LOOP_INTERVAL
+62 -11
View File
@@ -1,17 +1,68 @@
#module \ #module \
Goatoh bufferId, posX, posY, walking, eating, openingEyes, frame Goatoh
#modinit \ #defcfunc local \
int p_bufferId,\ New \
double p_initPosX,\ double p_initPosX,\
double p_initPosY double p_initPosY,\
bufferId = p_bufferId int p_initDirection
posX = p_initPosX posX.insNum = p_initPosX
posY = p_initPosY posY.insNum = p_initPosY
walking = False
eating = False ; 角度
openingEyes = False arg.insNum = 0.
frame = 0
; 首の角度
neckArg.insNum = 0.
walkVel.insNum = 3.
walkAcl.insNum = 0.
runVel.insNum = 5.
runVel.insNum = 0.
direction.insNum = p_initDirection
walking.insNum = False
eating.insNum = False
openingEyes.insNum = False
openingMouth.insNum = False
frame.insNum = 0
insNum++
Return insNum - 1
#deffunc local \
Walk \
int p_insId
If direction.p_insId = DIRECTION_LEFT {
posX.p_insId -= walkVel.p_insId * Cos (arg.p_insId)
posY.p_insId -= walkVel.p_insId * Sin (arg.p_insId)
}
Else {
posX.p_insId += walkVel.p_insId * Cos (arg.p_insId)
posY.p_insId += walkVel.p_insId * Sin (arg.p_insId)
}
Return
#deffunc local \
DoRun \
int p_insId
Return
#deffunc local \
Eat \
int p_insId
Return
#deffunc local \
Draw \
int p_insId
Pos posX.p_insId, posY.p_insId
CelPut BUFFER_GOATOH_TARSO
Return Return