es_test8.hsp

sample\sprite\es_test8.hsp » Plain Format

#include "hsp3dish.as"

	;
	;	HSP3Dish sprite sample8
	;		BGマップ表示のテスト
	;		英文字のフォントを表示します
	;		[ESC]キーで終了
	;
	;------------------------------------------------------------------

	randomize
	wx=640:wy=480				; 画面サイズ
	fontsx=16:fontsy=16			; フォントのX,Yサイズ

	screen 0,wx,wy				; スクリーン初期化
	es_ini					; スプライト初期化

*start
	celload "fontchr.png",3			; フォント画像の読み込み
	celdiv 3,fontsx,fontsy			; マップのセル設定
	texsx=wx/fontsx:texsy=wy/fontsy		; テキストのマップサイズ
	dim textbg,texsx*texsy			; マップデータ変数
	es_bgmap 0,textbg,texsx,texsy,texsx,texsy,3	; マップ登録

	count=0
	es_bgmes 0,1,1,"TEXT PRINT TEST"
*main
	es_bgmes 0,1,3,"COUNT..."+count

	stick ky,$1f				; カーソルキーの情報を取得
	if ky&$80 : goto *owari

	redraw 0
	rgbcolor $404040:boxf			; 背景をクリア

	es_putbg 0				; マップを描画
	es_draw					; スプライト描画

	redraw 1
	await 1000/60				; タスク更新

	count++
	goto *main

*owari
	es_bye
	end