char

main.hsp

@@ -16,6 +16,7 @@
 #enum global BUFFER_GOATOH_TARSO	; ゴートうの胴体
 #enum global BUFFER_NIZIKA		; ニジカ
 #enum global BUFFER_BG			; https://www.pakutaso.com/20190249044post-18819.html
+#enum global BUFFER_CHAR		; 文字セット
 
 ; サウンド
 #enum global SOUND_MUMUMUMU = 0	; ﾑﾑﾑﾑ
@@ -65,6 +66,9 @@
 	CelLoad "goatoh-tarso.png", BUFFER_GOATOH_TARSO
 	CelDiv BUFFER_GOATOH_TARSO, 0, 0, 97, 49
 
+	CelLoad "char.png", BUFFER_CHAR
+	CelDiv BUFFER_CHAR, 32, 32, 0, 0
+
 	; ゴートうインスタンス生成
 	Goatoh = New@Goatoh (960, 800, DIRECTION_LEFT)
 

modules/char.mod.hsp

@@ -1,5 +1,19 @@
 #module \
 Char
 
+#defcfunc local \
+New \
+		str	p_text
+	text.insNum = p_text
+
+	insNum++
+
+	Return insNum - 1
+
+#deffunc local \
+Put \
+		int	p_insId
+	Return
+
 #global