sample\misc\hsptv_test3.hsp » Plain Format
#include "hsptv.as" #module #deffunc fbase int _p1 ofs=_p1 return #deffunc fprt str _p1 ; fprt "message" ; (画像を使用したフォント表示を行ないます) ; "message" : 表示するメッセージ ; 表示座標は、posで指定した位置から ; i=0:st=_p1 repeat a1=peek(st,i):i++:if a1=0 : break if a1=13 { a1=peek(st,i) if a1=10 : i++ continue ; 改行 } else { celput 1,a1+ofs } loop return #global title "HSPTV Test3" ; HSPTVブラウザ用・標準イメージを読み込む celload dir_exe+"\\hsptv\\hsptv_img.bmp",1 cls 4 ; 画面をクリア ; 終了ボタン配置 ; pos 540,450 objsize 100,24 button "END",*owari bg=0 *main redraw 0 stick key if key&128 : goto *owari ; ESCキー if key&1 : bg=limit(bg-1,0,47) ; [←]キー if key&4 : bg=limit(bg+1,0,47) ; [→]キー celdiv 1,64,64,0,0 ; タイル用のドット分割指定 gmode 0 repeat 8 y=cnt*64 repeat 10 x=cnt*64 pos x,y:celput 1,16+bg loop loop fbase 0 ; フォントの起点を設定(0=通常フォント) celdiv 1,16,16,0,0 ; フォント用のドット分割指定 gmode 2 ; 黒は透過 pos 150,100 fprt "HSPTV Common Graphics" ; フォントを描画 pos 200,130:color 255,255,255 mes "左右のキーでタイルが変わります" redraw 1 await 16 ; 時間待ち goto *main *owari end