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

#runtime "hsp3cl"

/*
input p1,p2,p3 標準入力を取得
p1=変数名  : 情報を格納する変数名

#module sgetbit
#const FULL 0xFF
#const NULL 0x00
#deffunc setbit var map, int ptr, int bit
	if (bit!=0) && (bit!=1) : return -1

	screen 0,400,250
	title "title"
	
	gradf 0,0,400,35,1,$8ae8ff,$FFFFFF
	font"Meiryo",32

#uselib "MediaInfo.dll"
#func MediaInfo_New "MediaInfo_New"
#func MediaInfo_New_Quick "MediaInfo_New_Quick" wptr,wptr
#func MediaInfo_Delete "MediaInfo_Delete" wptr
#func MediaInfo_Open "MediaInfo_Open" wptr,wptr

;
	title"sample"
;
	screen 0,400,200
	repeat

#uselib "Shlwapi.dll"
#func PathRelativePathToA "PathRelativePathToA" var,str,int,str,int
#func PathRelativePathToW "PathRelativePathToW" var,wptr,int,wptr,int
#define FILE_ATTRIBUTE_DIRECTORY 0x10
#define FILE_ATTRIBUTE_NORMAL 0x80

#module _FileNameCheck_
#uselib "Shlwapi.dll"
#func PathGetCharTypeA "PathGetCharTypeA" int
#func PathGetCharTypeW "PathGetCharTypeW" int
#define GCT_INVALID 0	// この文字はパスに使用できない。

	;Java
	screen 0,500,400
	color 0,0,0
	boxf
	pos 0,0

	;Java
	screen 0,500,400
	color 0,0,0
	boxf
	pos 0,0

#runtime "hsp3cl"
repeat 100,1
c=str(cnt):if cnt\3=0|instr(c,0,"3")!=-1:mes "アホ":else:mes cnt
loop