06/08/29 05:36:04 RhQFgP68
HSP3.xだとかなり仕様がちがうので上記の2.61のを3.x用に移植しました
白の表現が淡いバージョンなので気になるなら上記の数値のでうまいこと合わせてください
*Definition
title "ベンザ・ブロック3.x用"
sdim filebuffer,2048*2048
sdim filelist,131072:dirlist filelist,"*.img":if stat == 0{dialog "img file Not Found!!":end:}
filenumber = stat:notesel filelist
*Start
repeat stat:noteget filename,cnt:exist filename:if strsize == -1{dialog "File Not Found!!":end:}
bload filename,filebuffer:temp1 = peek(filebuffer,0):temp2 = peek(filebuffer,1):xsize = temp2 * 256 + temp1
temp1 = peek(filebuffer,2):temp2 = peek(filebuffer,3):ysize = temp2 * 256 + temp1:gsel 0:color 0,0,0
cls:print filename + "の変換中です":buffer 2,xsize,ysize:gsel 2:repeat strsize / 2
temp1 = wpeek(filebuffer,4+(cnt*2)):red = (temp1 & 0xF800) >> 8
green = (temp1 & 0x07E0) >> 3:blue = (temp1 & 0x1F) << 3
color red, green, blue:pset cnt \ xsize, cnt / xsize:loop:purename = strmid(filename,-1,16)
savename = strmid(purename,0,13) + "bmp"
bmpsave savename:loop:dialog "変換終了"