K-s skymonsters-Ks
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #use hsp3dish | |
| #packopt xsize 960 | |
| #packopt ysize 720 | |
| #define SCR_W 320.0 | |
| #define SCR_H 240.0 | |
| #const ZOOM_W 3 | |
| #const ZOOM_H 3 | |
| #const WIN_W SCR_W * ZOOM_W |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #include "hsp3dish.as" | |
| wx = 854 | |
| wy = 480 | |
| screen 0, wx, wy | |
| es_ini | |
| buffer 1 | |
| picload dir_tv + "ball64.png" | |
| es_size 64, 64 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #const RECT 32 | |
| #const WIN_W 16 * RECT | |
| #const WIN_H 10 * RECT | |
| screen 0, WIN_W, WIN_H | |
| buffer 1, WIN_W * 2, WIN_H * 2 | |
| repeat WIN_W * 2 / RECT : w = cnt | |
| repeat WIN_H * 2 / RECT : h = cnt | |
| x = w * RECT * 2 + h \ 2 * RECT |
skymonsters-Ks
/ rand.hsp
Created
January 25, 2020 12:52
標準HSPと線形帰還シフトレジスタによるランダム出力。参考元：https://wiki.hsp.moe/Module%EF%BC%8F%E7%B7%9A%E5%BD%A2%E5%B8%B0%E9%82%84%E3%82%B7%E3%83%95%E3%83%88%E3%83%AC%E3%82%B8%E3%82%B9%E3%82%BF.html
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #const SCALE 1 | |
| screen 0, 1600, 900 | |
| ox = double(ginfo_sx / 4), ox * 3 | |
| oy = double(ginfo_sy / 2), oy | |
| x = ox, ox.1 | |
| y = oy, oy | |
| randomize | |
| a = hwnd, a | |
| cf = 1 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #include "user32.as" | |
| #include "gdi32.as" | |
| #ifndef SetProcessDPIAware | |
| #uselib "user32" | |
| #func SetProcessDPIAware "SetProcessDPIAware" | |
| #endif | |
| #uselib "shcore" | |
| #func SetProcessDpiAwareness "SetProcessDpiAwareness" int |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; #include "hgimg4.as" ; HGIMG4 は HSP3.6b2 以降 | |
| #include "user32.as" | |
| #module | |
| #const GWL_STYLE -16 | |
| #const WS_POPUP $80000000 | |
| #const WS_VISIBLE $10000000 | |
| #const WM_KILLFOCUS $8 | |
| #const WM_GETMINMAXINFO $24 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| randomize | |
| screenW = ginfo_sx | |
| screenH = ginfo_sy | |
| centerX = screenW / 2 | |
| centerY = screenH / 2 | |
| num = 200 | |
| ddim posx, num | |
| ddim posy, num |
skymonsters-Ks
/ palanime.hsp
Last active
January 13, 2019 16:22
パレットモードでパレットアニメーション (tested with HSP 3.51)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #const HUE_RANGE 192 | |
| screen 0, 640, 480, 1 | |
| mes "Initializing..." | |
| screenW = ginfo_sx | |
| screenH = ginfo_sy | |
| centerX = screenW / 2 | |
| centerY = screenH / 2 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ; Enterキーで選択中の作品ページを開きます | |
| #include "hspinet.as" | |
| #define URL_BASE "dev.onionsoft.net/seed/info.ax?id=" | |
| #define PROTOCOL "https://" | |
| netinit | |
| if stat : dialog "connection error" : end | |
skymonsters-Ks
/ Mk-Synth.hsp
Created
April 30, 2017 16:43
HSPプログラムコンテスト2016 HSPTV部門 応募作品「Mk-Synth」ソースコード
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| /* | |
| Mk-Synth | |
| http://dev.onionsoft.net/seed/info.ax?id=1199 | |
| required Shift-JIS | |
| tested: HSP 3.5b3 | |
| license: NYSL 0.9982 (http://www.kmonos.net/nysl/) | |
| */ |
NewerOlder