すくすくゴートうちゃん 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.

main.hsp 2.8 KiB

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