;影文字をつける font "ＭＳゴシック",45,1 color 0,0,0 pos 102,102 : mes "見栄えはどうかな？" color 255,255,255 pos 100,100 : mes "見栄えはどうかな？" stop |
;同じ場所に表示する pos 100,100 : mes "おはよう" wait 100 color 255,255,255 boxf 100,100,150,120 color 0,0,0 pos 100,100 : mes "こんにちは" stop |
;同じ場所に表示する２ screen 0,640,480 : picload "hsp2ttl.jpg",1,100,100 buffer 2,640,480 : picload "hsp2ttl.jpg",1,100,100 gsel 0 color 255,0,0 pos 150,250 : mes "おはよう" wait 100 pos 150,250 : gcopy 2,150,250,100,20 pos 150,250 : mes "こんにちは" stop |
;フェードアウト・イン（パレットモード） screen 0,,,1 ;第４パラメータは１にする事 ;（パレットモード） picload "hsp2ttl.jpg" pf = 0 ;初期値 ;-256で黒、256で白、0で元の画像 repeat 16 wait 10 palfade pf : redraw pf = pf - 16 loop repeat 16 wait 10 palfade pf : redraw pf = pf + 16 loop stop |
;縦書き表示１ f_size=20 font "ＭＳ 明朝",f_size sdim data,50,3 data.0="プ\nロ\nグ\nラ\nム" data.1="い\nつ\nか\nか\nな\nら\nず" data.2="き\nわ\nめ\nる\nぞ" repeat 3 pos 100-(f_size*cnt),50 mes data.cnt loop stop |
;縦書き表示２
f_size=20
font "ＭＳ 明朝",f_size
sdim data,200
data={"
ちょっと長めに書いてみようかと思いました
これだと記号をはさむのは大変だよね
でもこれだと記号なくても改行されるからね。
"}
pos 100,50
y0=csry ;書き始めのｙ座標を取得
strlen mojisuu,data
mojisuu=mojisuu/2
repeat mojisuu
kari=""
strmid kari,data,cnt*2,2
if kari="\n" {
pos csrx-f_size,y0
continue
}
mes kari
loop
stop
|
;桁数をそろえて表示１ #define KETA 8 a=16 repeat 20 a_str=a str a_str,KETA mes a_str a=a*2 loop stop |
;桁数をそろえて表示２
#define KETA 8
a=16
repeat 20
a_str=a
str a_str,KETA
repeat KETA
peek kari,a_str,cnt
if kari='0' {
poke a_str,cnt,' '
} else {
break
}
loop
mes a_str
a=a*2
loop
stop
|
;文字or画像を移動表示させる moji="流れる文字" f_size=20 font "ＭＳ ゴシック",f_size,1 repeat y=cnt*f_size/1 ;割り算で滑らかさ調整 pos 100,y color 0,0,0 : mes moji if y*2>=winy : break ;真ん中で終了 await 50 ;速度調整 color 255,255,255 boxf 0,y,winx,y+f_size loop stop |
;画像の反転、１８０°回転表示 buffer 2 f_size=40 font "ＭＳ ゴシック",f_size,1 color 0,0,0 : mes "？" gsel 0 ;通常 pos 0,0 gzoom f_size,f_size,2,0,0,f_size,f_size ;左右反転 pos f_size,f_size gzoom -f_size,f_size,2,0,0,f_size,f_size ;上下反転 pos 0,f_size*3 gzoom f_size,-f_size,2,0,0,f_size,f_size ;１８０度回転 pos f_size,f_size*4 gzoom -f_size,-f_size,2,0,0,f_size,f_size stop |
;ブラックorホワイトアウト（フルカラー） #include "hspext.as" picload "hsp2ttl.jpg" gfini repeat 51 gfdec 5,5,5 redraw 1 await 50 loop picload "hsp2ttl.jpg" repeat 51 gfinc 5,5,5 redraw 1 await 50 loop stop |
;ブラックorホワイトイン（フルカラー） #include "hspext.as" buffer 2,,,0 picload "hsp2ttl.jpg" screen 0,640,200,0; : cls 4 pos 0,0 : gfini 640,200 ;コピー先を指定 repeat 20,1 gsel 2 : pos 0,0 : gfcopy cnt*5 gsel 0 : redraw 1 await 200 loop stop |