HSPTV!掲示板

選択肢を開発してたけど反応速度が遅いんだよな・・・

どうしよう・・・



メイン

	selectmany = 6
	dim x,selectmany
	dim y,selectmany
	dim mojisizex,selectmany
	dim mojisizey,selectmany
	dim mojisitenx,selectmany
	dim mojisiteny,selectmany
	
	#include "hmany.hsp"

	repeat selectmany
	mojiendx(cnt) = mojisitenx(cnt)+mojisizex(cnt)
	mojiendy(cnt) = mojisiteny(cnt)+mojisizey(cnt)
	wait 1
	loop
	font "MS ゴシック",16

*start

	dash = 0

	color ,,
	boxf
	
	repeat
	redraw 0
	color ,,
	boxf
		repeat selectmany
		stick stk
		x(cnt) = 0
		y(cnt) = 0
		if mousex > mojisitenx(cnt) and mousex < mojiendx(cnt) { 
			x(cnt) = 1
			}
		if mousey > mojisiteny(cnt) and mousey < mojiendy(cnt) : y(cnt) = 1
		if x(cnt) = 1 and y(cnt) = 1 {
				if stk & 256 {
						onk = cnt
						dash = 1
						break
					}
				color 255,0,0
				boxf mojisitenx(cnt),mojisiteny(cnt),mojiendx(cnt),mojiendy(cnt)
				pos mojisitenx(cnt),mojisiteny(cnt)
				color 255,255,255
				mes mesage(cnt)
			}
		else {
				pos mojisitenx(cnt),mojisiteny(cnt)
				color 255,255,255
				mes mesage(cnt)
			}
		await 1
		loop
	if dash = 1 : break
	redraw 1
	await 1
	loop
*anotherworld
	if onk = 5 : goto *exit
	pos 0,0
	color ,,
	boxf
	color 255,255,255
	mes "上から" + ( onk + 1 ) + "番目を選択しました"
	redraw 1
	wait 100
	goto *start
*exit
	pos 0,0
	color ,,
	boxf
	color 255,255,255
	mes "終了を選択しました"
	redraw 1
	wait 100
	end

hmany.hsp の内容

	;mojisizex : 文字の大きさx(セルフ指定)
	;mojisizey : 文字の大きさy(セルフ指定)
	;mojisitenx : 文字の始点(セルフ指定)
	;mojisiteny : 文字の始点(セルフ指定)
	;masage : 表示する文字

	mojisizex(0) = 160
	mojisizey(0) = 16
	mojisitenx(0) = 10
	mojisiteny(0) = 10
	mesage(0) = "ああああああああああ"
	mojisizex(1) = 160
	mojisizey(1) = 16
	mojisitenx(1) = 10
	mojisiteny(1) = 30
	mesage(1) = "いいいいいいいいいい"
	mojisizex(2) = 120
	mojisizey(2) = 16
	mojisitenx(2) = 10
	mojisiteny(2) = 50
	mesage(2) = "うううううううううう"
	mojisizex(3) = 160
	mojisizey(3) = 16
	mojisitenx(3) = 10
	mojisiteny(3) = 70
	mesage(3) = "ええええええええええ"
	mojisizex(4) = 160
	mojisizey(4) = 16
	mojisitenx(4) = 50
	mojisiteny(4) = 90
	mesage(4) = "おおおおおおおおおお"
	mojisizex(5) = 32
	mojisizey(5) = 16
	mojisitenx(5) = 10
	mojisiteny(5) = 110
	mesage(5) = "終了"

実際にはもっとやりようはあると思いますが……
とりあえず、あまり変えないようにしておきました。じゅうぶん早くなってると思います。

*start

	dash = 0
	color ,,
	boxf
repeat
	redraw 0

	stick stk
	repeat selectmany
		x(cnt) = 0
		y(cnt) = 0
		if mousex > mojisitenx(cnt) and mousex < mojiendx(cnt) { 
			x(cnt) = 1
		}
		if mousey > mojisiteny(cnt) and mousey < mojiendy(cnt) : y(cnt) = 1

		if x(cnt) = 1 and y(cnt) = 1 {
			if stk & 256 {
				onk = cnt
				dash = 1
				break
			}
			color 255,0,0
			boxf mojisitenx(cnt),mojisiteny(cnt),mojiendx(cnt),mojiendy(cnt)
			pos mojisitenx(cnt),mojisiteny(cnt)
			color 255,255,255
			mes mesage(cnt)
		}else {
			color 0,0,0
			boxf mojisitenx(cnt),mojisiteny(cnt),mojiendx(cnt),mojiendy(cnt)
			pos mojisitenx(cnt),mojisiteny(cnt)
			color 255,255,255
			mes mesage(cnt)
		}
	loop
	if dash = 1 : break
	redraw 1
	await 1
loop

関係ない話ですけれど、「MS ゴシック」なんてフォントは無いですね。
まぁ一応。

	font "", 16
	mes "Hello, world! こんにちは"
	
	font "MS ゴシック", 16
	mes "Hello, world! こんにちは"
	
	font "ＭＳ ゴシック", 16 	// msgothic
	mes "Hello, world! こんにちは"
	
	font "MS Gothic", 16
	mes "Hello, world! こんにちは"
	stop

今気づいたけどこのスレ独り言だな。
（もうすでに気づいている人もいると思うけど。）