サンプルどうぞ。
画像を並べて左から右へスクロールするサンプル。
title "流れる画像"
picx=300:picy=200//表示させる画像サイズ
dimtype PicName,vartype("str"),2
repeat ,1
dialog "bmp;*.jpg;*.gif;*.png",16,"画像ファイル(キャンセルを押すと、選択を中止します)"
if stat=0:break
PicName(cnt)=refstr
buffer cnt
picload PicName(cnt)
gzoom picx,picy,cnt,0,0,ginfo_sx,ginfo_sy,1
p++
loop
if p=0:end
screen 0
cls 4
py=ginfo_winy/2-(picy/2)
my=py-20
font "MS UI Gothic",20,1
repeat ,1
px++
redraw 0
color 0:boxf:color 0
repeat p,1
pos px-(cnt*picx),py
gcopy cnt,0,0,picx,picy//画像表示
pos px-(cnt*picx),my
color 255,255,255
mes getpath(PicName(cnt),8)//ファイル名表示
loop
if px>=ginfo_winx+(picx*p):px=0
redraw 1
wait 1
loop