HSPのコード一覧 | Codetter（こーどったー）

#packopt name "optoregi"
#packopt version "versiondate.txt"
#packopt lang "1041"
#packopt icon "icon.ico"

#runtime "hsp3cl"
#cmpopt varinit 1
#include "XorShift.as"
;https://github.com/yosgspec/XorShift128-on-8languages/blob/master/HSP/XorShift.as

#runtime "hsp3cl"
#cmpopt varinit 1
#include "XorShift.as"
;https://github.com/yosgspec/XorShift128-on-8languages/blob/master/HSP/XorShift.as

#runtime "hsp3cl"
#cmpopt varinit 1
#include "Dictionary.as"

#ifndef CmdParser

#runtime "hsp3cl"
#cmpopt varinit 1

#module Cmder
	#define dquot "$__DoubleQuotation__$"

#include "hsp3utf.as"

#module
#defcfunc getByte_u8 int p1

//------------------------------------------------------------------------------
// デコード用のデータ作成 by 科学太郎
//==============================================================================
// @URL(https://msdn.microsoft.com/ja-jp/library/cc448053.aspx)→「MultiByteToWideChar」
// @URL(https://msdn.microsoft.com/ja-jp/library/cc448089.aspx)→「WideCharToMultiByte」

	title "月末日を表示 0.1"
	screen 0,480,640
	inx=100 : iny=20
	mes "↓最初の年の入力(西暦),半角数字"
	nen=2020

#runtime "hsp3cl"
#cmpopt varinit 1
#include "user32.as"
#include "Dictionary.as"
;Dictionary.as

#include "user32.as"
	scroll_min = 0		// 最小値
	scroll_max = 100	// 最大値
	scroll_size = 33	// バーの大きさ
	scroll_pos = 10		// バーの位置（最大値＝scroll_max-scroll_size+1）