Skip to content

Instantly share code, notes, and snippets.

View skymonsters-Ks's full-sized avatar

K-s skymonsters-Ks

7 followers · 5 following
View GitHub Profile
@skymonsters-Ks
skymonsters-Ks / shake.hsp
Created September 20, 2021 17:49
viewcalcで画面を揺らす
#include "hsp3dish.as"
wx = 854
wy = 480
screen 0, wx, wy
es_ini
buffer 1
picload dir_tv + "ball64.png"
es_size 64, 64
@skymonsters-Ks
skymonsters-Ks / scroll.hsp
Last active April 30, 2020 01:46
ラスタースクロール的なやつ
#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
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
#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
@skymonsters-Ks
skymonsters-Ks / dispinfo.hsp
Created December 28, 2019 02:27
（マルチ）ディスプレイの解像度などの情報表示
#include "user32.as"
#include "gdi32.as"
#ifndef SetProcessDPIAware
#uselib "user32"
#func SetProcessDPIAware "SetProcessDPIAware"
#endif
#uselib "shcore"
#func SetProcessDpiAwareness "SetProcessDpiAwareness" int
@skymonsters-Ks
skymonsters-Ks / fw_test1.hsp
Last active February 8, 2020 14:57
ウィンドウとフルスクリーンの切替
; #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
@skymonsters-Ks
skymonsters-Ks / space.hsp
Last active March 31, 2019 06:37
宇宙を進む
randomize
screenW = ginfo_sx
screenH = ginfo_sy
centerX = screenW / 2
centerY = screenH / 2
num = 200
ddim posx, num
ddim posy, num
@skymonsters-Ks
skymonsters-Ks / palanime.hsp
Last active January 13, 2019 16:22
パレットモードでパレットアニメーション (tested with HSP 3.51)
#const HUE_RANGE 192
screen 0, 640, 480, 1
mes "Initializing..."
screenW = ginfo_sx
screenH = ginfo_sy
centerX = screenW / 2
centerY = screenH / 2
@skymonsters-Ks
skymonsters-Ks / hspcon_list.hsp
Last active November 2, 2019 00:56
HSPプログラムコンテストの作品をリスト&カウント
; 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
skymonsters-Ks / Mk-Synth.hsp
Created April 30, 2017 16:43
HSPプログラムコンテスト2016 HSPTV部門 応募作品「Mk-Synth」ソースコード
/*
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/)
*/
@skymonsters-Ks
skymonsters-Ks / nppcl.hsp
Last active January 2, 2019 08:04
Notepad++用ファイル実行補助ツール
/*
Notepad++用ファイル実行補助ツール
Notepad++で編集中の文書を保存し登録したファイルを実行します
主にコードのコンパイルに使用します
使い方
1. このスクリプトをコンパイルして実行ファイル(nppcl.exe)作成
2. nppcl.exe を notepad++.exe と同じフォルダにコピー
3. nppcl.ini を同じフォルダに新規作成
内容は、1行目は 0