はじめまして。
掲示板への書きこみは2003年以来となります。
５年ぶりにＨＳＰを再開したのですが、ＨＳＰ３については初心者で
すので、ここで勉強させて頂きたいと思いますので、今後ともよろしく
お願い致します。
自作ゲーム用に開発したHSP2.6でのスクリプトエンジンのソースを
元にして、HSP2.XからHSP3への移行を進めているのですが、画像読み
込みに関するモジュールの作り方が上手くできずに困っています。
■HSP2.6用のソース
===========================================================
title "「画像読み込みテスト」"
screen 0,640,480,0
;----------------------------------------------------------
#module
#deffunc img str
mref fname,32
exist fname
if strsize>0:goto *img_red
exist ""+fname+".jpg"
if strsize>0:fname=fname+".jpg":goto *img_red
exist ""+fname+".bmp"
if strsize>0:fname=fname+".bmp":goto *img_red
gsel 0:dialog "読み込みエラー"+fname+"がみつかりません",1
return
;--------------
*img_red
picload ""+fname+"",1,0,0
return
#global
;----------------------------------------------------------
fn_img="data\\image\\"
gsel 0:img ""+fn_img+"cg01"
stop
===========================================================
★内容の説明
"data\\image\\"のフォルダ内にある"cg01"のファイル名の
jpgとbmpの画像を順に調べます。
画像があれば表示、無ければエラーメッセージを表示します。
■HSP3.3にてエラーが出るソースです。
===========================================================
title "「画像読み込みテスト」"
screen 0,640,480,0
;----------------------------------------------------------
#module
#deffunc img str fname
exist fname
if strsize>0:goto *img_red
exist ""+fname+".jpg"
if strsize>0:fname=fname+".jpg":goto *img_red
exist ""+fname+".bmp"
if strsize>0:fname=fname+".bmp":goto *img_red
gsel 0:dialog "読み込みエラー"+fname+"がみつかりません",1
return
;--------------
*img_red
picload ""+fname+"",1,0,0
return
#global
;----------------------------------------------------------
fn_img="data\\image\\"
gsel 0:img ""+fn_img+"cg01"
stop
===========================================================
★説明
if strsize>0:fname=fname+" の行にて
#Error23 変数名が指定されていません
のエラーメッセージが表示されます。
#deffunc img str fnameの指定の仕方に問題がある様に
思うのですが、試行錯誤してみましたが上手くいきませんでした。
以上よろしくお願い致します。
■上記のｄａｔａです。（７日間で消えるらしいです。）
http://firestorage.jp/download/fe7d74f41494496778e1e668e8df4757cd88274a
画像読み込みに関するモジュール（2.XからHSP3への変換について）
