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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
1105
Empeld反応が・・・3解決


Empeld

リンク

2008/11/5(Wed) 21:43:25|NO.20650

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

どうしよう・・・



メイン


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) = "終了"



この記事に返信する


SYAM

リンク

2008/11/5(Wed) 22:04:18|NO.20651

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


*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



レノス

リンク

2008/11/5(Wed) 22:17:05|NO.20652

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

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



check

リンク

2008/11/5(Wed) 22:55:05|NO.20653

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



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