スクリプトの良し悪しより動作を楽しもうね。
randomize
buffer 1
picload dir_exe+"\\sample\\demo\\sky_bg.jpg"
gx = ginfo_winx: gy = ginfo_winy
buffer 2, 128,128
buffer 3, 256, 64
; 背景から前景に向かって描画する
repeat
redraw 0
gosub *create_grayscale_shadow
gsel 0: font msgothic, 64
x = rnd(ginfo_winx-256): y = ginfo_winy-90+rnd(32)
gmode gmode_gdi
pos 0, 0: gcopy 1, 0, 0, gx, gy
gmode gmode_sub,,,256
pos x, y: gcopy 3, 0 ,0, 256, 128
pos x, y: color 255
mes "炎"
redraw 1: wait 100
loop
*create_grayscale_shadow
; グレースケールの影をいくつか作成する
gsel 2: cls 4
font msgothic, 64
repeat 16
pos rnd(64), rnd(64)
c_scale = cnt*8
color c_scale, c_scale, c_scale
mes "炎"
loop
; パース付け
gsel 3: cls 4
src_x = 0, 128, 128, 0
src_y = 0, 0, 128, 128
dst_x = 192,256, 128, 0
dst_y = 0, 0, 64, 64
pos 0, 0
gsquare 2, dst_x, dst_y, src_x, src_y
return