すくすくゴートうちゃん Android 版(黒歴史)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

72 lines
2.1 KiB

  1. #include "hsp3dish.as"
  2. ; バッファ
  3. #enum global BUFFER_GOATOH_FACE_CC = 1 ; ゴートうの顔(閉眼,閉口)
  4. #enum global BUFFER_GOATOH_FACE_CO ;       (閉眼,開口)
  5. #enum global BUFFER_GOATOH_FACE_OC ;       (開眼,閉口)
  6. #enum global BUFFER_GOATOH_FACE_OO ;       (開眼,開口)
  7. #enum global BUFFER_GOATOH_HEAD ; ゴートうの頭
  8. #enum global BUFFER_GOATOH_LEG ; ゴートうの脚
  9. #enum global BUFFER_GOATOH_TAIL ; ゴートうのしっぽ
  10. #enum global BUFFER_GOATOH_TARSO ; ゴートうの胴体
  11. #enum global BUFFER_NIZIKA ; ニジカ
  12. #enum global BUFFER_BG ; https://www.pakutaso.com/20190249044post-18819.html
  13. ; サウンド
  14. #enum global SOUND_MUMUMUMU = 0 ; ムムムム
  15. #enum global SOUND_BGM ; 夕餉の街並み(Copyright: Musmus)
  16. #enum global SOUND_EATING_KUSA ; クサタベテル!!!
  17. ; 向き
  18. #enum global DIRECTION_LEFT = 1
  19. #enum global DIRECTION_RIGHT
  20. #const global FPS 30
  21. #const global LOOP_INTERVAL 1000 / FPS
  22. #include "./modules/goatoh.mod.hsp"
  23. #ifdef _DEBUG
  24. ; デバッグ時は assets ディレクトリを参照する.
  25. ChDir "assets"
  26. #endif ; not _DEBUG
  27. ; 背景
  28. CelLoad "bg.jpg", BUFFER_BG
  29. ; ゴートうバッファ
  30. CelLoad "goatoh-face-closed-closed.png", BUFFER_GOATOH_FACE_CC
  31. CelLoad "goatoh-face-closed-open.png", BUFFER_GOATOH_FACE_CO
  32. CelLoad "goatoh-face-open-closed.png", BUFFER_GOATOH_FACE_OC
  33. CelLoad "goatoh-face-open-open.png", BUFFER_GOATOH_FACE_OO
  34. CelLoad "goatoh-head.png", BUFFER_GOATOH_HEAD
  35. CelLoad "goatoh-leg.png", BUFFER_GOATOH_LEG
  36. CelLoad "goatoh-tail.png", BUFFER_GOATOH_TAIL
  37. CelLoad "goatoh-tarso.png", BUFFER_GOATOH_TARSO
  38. ; ゴートうインスタンス生成
  39. Goatoh = New@Goatoh (0., 0., DIRECTION_LEFT)
  40. ; サウンド読込み
  41. MMLoad "mumumumu.wav", SOUND_MUMUMUMU
  42. MMLoad "MusMus-BGM-097.mp3", SOUND_BGM, MM_REPEAT
  43. MMLoad "eating-kusa.wav", SOUND_EATING_KUSA
  44. ; BGM 再生
  45. MMPlay SOUND_BGM
  46. GMode GMODE_RGB0 ; アルファあり
  47. Repeat
  48. ReDraw False
  49. Pos 0, 0
  50. CelPut BUFFER_BG
  51. Draw@Goatoh Goatoh
  52. ReDraw True
  53. Await LOOP_INTERVAL
  54. Loop