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

;https://yukicoder.me/problems/no/253
#runtime "hsp3cl"

numMin=10
numMax=1000000001

;https://yukicoder.me/problems/no/246
#runtime "hsp3cl"

numMin=1
numMax=1000000001

#include "HSP3utf.as"
#include "kernel32.as"
#define WM_MOUSEMOVE                    0x0200

	screen 0, 1600, 900

#define CLSID_FileOpenDialog "{DC1C5A9C-E88A-4dde-A5A1-60F82A20AEF7}"
#define IID_IFileOpenDialog "{d57c7288-d4ad-4768-be02-9d969532d960}"
#usecom IFileOpenDialog IID_IFileOpenDialog CLSID_FileOpenDialog
#comfunc IFileOpenDialog_QueryInterface 0 int, int
#comfunc IFileOpenDialog_Show 3 int

#runtime "hsp3cl"

#define ctype Person(%1,%2,%3,%4,%5) \
	%1_name.%2=%3 :\
	%1_age.%2=%4 :\

#module
	#define global u8(%1) ToUTF8(%1)
	#uselib "kernel32.dll"
	#func MultiByteToWideChar "MultiByteToWideChar" int, int, int, int, int, int
	#func WideCharToMultiByte "WideCharToMultiByte" int, int, int, int, int, int, int, int

#runtime "hsp3cl"
#cmpopt varinit 1

#module CharaBase _name,_hp,_mp,_waza
	#modcfunc name

#cmpopt varinit 1

;トランプカードモジュール
suitStrs@TrumpCard="▲","▼","◆","■","JO"
powerStrs@TrumpCard="Ａ","２","３","４","５","６","７","８","９","10","Ｊ","Ｑ","Ｋ","KR"

#runtime "hsp3cl"
#cmpopt varinit 1

;トランプカードモジュール
suitStrs@TrumpCard="▲","▼","◆","■","JO"

#runtime "hsp3cl"
#cmpopt varinit 1

;トランプカードモジュール
suitStrs@TrumpCard="▲","▼","◆","■","JO"