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

#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)="　","／","｜","＼","　"

#cmpopt varinit 1

#const global dispX 640
#const global dispY 480
#const global keyLeft 37

; ラッパーモジュール
; Variant.as
#ifndef Variant
#ifndef VariantAliasOff
	#define global vDim dim@Variant