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

// モジュール開始
#module waithack
#uselib "user32.dll"
#func PeekMessageA "PeekMessageA" sptr,sptr,int,int,int
#func GetMessageA "GetMessageA" sptr,int,int,int

#uselib "user32.dll"
#func SetTimer  "SetTimer"  int,int,int,int

#define WM_TIMER    0x0113
#define TIMER_ID    1    ; タイマーID

#module
//{ 配列a - 配列b : return 引いた後の配列aのサイズ } ( aもbも破壊します)
#defcfunc 配列引き算 array a, array b, int sizeA, int sizeB
	lpoke ln
	bn = sizeB

#module
#deffunc うなぎ屋さんの設定 str 入力１
	s = 入力１
	split s, " ", table_max, group_max
	table_max = int(table_max)

#runtime "hsp3cl"
s="sdfはghききgh"
#module
#defcfunc getBytes str _txt
	txt=_txt

#runtime "hsp3cl"
#cmpopt varinit 1

#module @dir
	#const fileOnly 1

#include "hscallbk.as"
#include "var_assoc.as"

#module
	#uselib ""

#module @cc2rgb
	#deffunc local cc2rgb array RGB,str _cc
		cc=_cc
		ccLen=strlen(cc)
		cci=int("$"+strmid(cc,1,ccLen-1))

#include "hspinet.as"

title"文字化けちゃう"

text=""

sdim longRange@Chess,,5,5
longRange@Chess(0,0)="＼","　","｜","　","／"
longRange@Chess(0,1)="　","＼","｜","／","　"
longRange@Chess(0,2)="―","―","＊","―","―"
longRange@Chess(0,3)="　","／","｜","＼","　"