HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2013
0930
EFGHクリックの反応が鈍すぎる1解決


EFGH

リンク

2013/9/30(Mon) 20:44:09|NO.57480

クリックの反応が鈍すぎます。
改善策はありますか?
自分にはどこが悪いのかが分かりません

title"sample"
;
screen 0,400,200
repeat

redraw 0
gradf 0,0,400,200,1,$333333,$111111
;
gradf 10,10,160,35,1,$007700,$004400
gradf 11,11,158,33,1,$333333,$222222

gradf 11,11,158,33,1,$333333,$222233
//メニューの項目
stick key,0
;if key=256:if mousex>200:if mousey>20:if mousex<380:if mousey<55: dialog
gradf 200,20,180,35,1,$333333,$333333
pos 220,30:mes"1番"

gradf 200,60,180,35,1,$333333,$333333
pos 220,70:mes"2番"
;
gradf 200,100,180,35,1,$333333,$333333
pos 220,110:mes"3番"
;
gradf 200,140,180,35,1,$333333,$333333
pos 220,150:mes"4番"
;}
stick key,0
if key=256:if mousex>200:if mousey>20:if mousex<380:if mousey<55: dialog "1番"
if key=256: if mousex>200:if mousey>60:if mousex<380:if mousey<95 : dialog "2番"
if key=256: if mousex>200:if mousey>100:if mousex<380:if mousey<135: dialog "3番"
if key=256: if mousex>200:if mousey>140:if mousex<380:if mousey<175: dialog "4番"
font"Meiryo",13
color 255,255,255
pos -1000,-1000:mes"メニュー>>"
pos (160-ginfo_mesx)/2+10,(35-ginfo_mesy)/2+10:mes"メニュー>>"
pos 10,50
redraw 1
await 1
loop
stop



この記事に返信する


EFGH

リンク

2013/9/30(Mon) 20:52:28|NO.57481

すみません自己解決しました。
stick key,0を2回も定義してました。



ONION software Copyright 1997-2023(c) All rights reserved.