HSPTV!掲示板

buffer 1
picload "ground.bmp"
screen 0,1600,1600,2,5,5,640,480
dim map,50,50
gmode 2
*main
redraw 0
color 0,0,0:boxf 0,0,1600,1600
x=ginfo(8):y=ginfo(9)
if mousex>607&x<1600:groll x+32,y
if mousex<33&x>0:groll x-32,y
if mousey>458&y<1600:groll x,y+32
if mousey<33&y>0:groll x,y-32
x=ginfo(8):y=ginfo(9)
moux=(mousex+x)/32:mouy=(mousey+y)/32
repeat 50
rcnt=cnt
repeat 50
if map.cnt.rcnt=0:pos cnt*32,rcnt*32:grotate 1,0,0,0.5*3.14,32,32
loop
loop
color 0,0,255:pos moux*32,mouy*32:boxf moux*32,mouy*32,moux*32+31,mouy*32+31;ポインタ作成
gsel 0,1
redraw 1
wait 1
goto *main

上のスプリクトを実行すると、「システムエラーが発生しました。　ilne　19」となってしまいます。
どうすればいいのか教えて下さい。

とりあえず、特にエラーは起こらないのだが。

見難いのでいじった。

	buffer 1

	//picload "ground.bmp"
	screen 0 , 1600 , 1600 , 2 , 5 , 5 , 640 , 480
	dim map , 50 , 50
	gmode 2
*main
	redraw 0
	color   0 ,   0 ,   0
	boxf 0 , 0 , 1600 , 1600

	x = ginfo( 8 )
	y = ginfo( 9 )
	if mousex > 607 & x < 1600 : groll x + 32 , y
	if mousex <  33 & x >    0 : groll x - 32 , y
	if mousey > 458 & y < 1600 : groll x      , y + 32
	if mousey <  33 & y >    0 : groll x      , y - 32

	repeat 50
		rcnt = cnt
		repeat 50
			if map( cnt , rcnt ) = 0 {
				pos cnt * 32 , rcnt * 32 
				grotate 1 , 0 , 0 , 0.5 * 3.14 , 32 , 32
			}
		loop
	loop

	;ポインタ作成
	x = ginfo( 8 )
	y = ginfo( 9 )
	title "X=" + X + " Y= " + Y
	moux = ( mousex + x ) / 32
	mouy = ( mousey + y ) / 32
	color   0 ,   0 , 255
	pos  moux * 32 , mouy * 32
	boxf moux * 32 , mouy * 32 , moux * 32 + 31 , mouy * 32 + 31

	gsel 0 , 1
	redraw 1

	wait 1
	goto *main

念の為、HSPのバージョンを教えてもらえるかのう・・・。
自分は3.1RC1で動作確認したが。

hsp31b5.txtの更新履歴に
> 2006/07/18 3.1b5
> 画面の初期化Yサイズがデスクトップ領域より大きい場合にgrotate、gsquare、grect命令が失敗する不具合を修正。

ってある

>どうすればいいのか教えて下さい。
デスクトップ領域を越えないようにするか、バグ修正された3.1b5以降のバージョンを使用する
このどちらかになると思う

3.1RC1にすると解決しました。
ありがとうございます。