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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0423
サトシ文字のフリッカ4解決


サトシ

リンク

2008/4/23(Wed) 09:32:39|NO.15328

タイトル画面にて一定時間ごとに文字をフリッカし、ENTERキーを押したら
次の処理に移るというのをさせたいのですがどうしても
うまくいきません。どのようにすれば良いのでしょうか?


buffer 1:picload "title.jpg" screen 0,512,384 gcopy 1,0,0,512,384 repeat stick ky:if ky=32 :break count=count+1 timer=count\5 pos 120,250 gcopy 1,120,250,290,200 If timer=0{ font "MS ゴシック",40,1 pos 120,250:color 255,255,255:mes"push enter key" wait 60 } wait 40 loop



この記事に返信する


SYAM

リンク

2008/4/23(Wed) 13:24:37|NO.15334

キーで次に移るっていうのはとりあえずおいといて、
たとえば
count に 1を足す
もしcountが100なら0にする
countが50なら点滅させる文字を書く
countが99なら文字を消す
だけでもいいですよね。
countが0〜49のときは文字がなくて
50の時に書かれた文字は99の時に消されるまで残っているはずです。
あとは キーで抜ける操作を入れればokです



coin

リンク

2008/4/23(Wed) 13:28:14|NO.15335

改造してみました。

buffer 1:picload dir_exe+"\\sample\\demo\\sky_bg.jpg"
screen 0,512,384 gcopy 1,0,0,512,384 stick ky font "MS ゴシック",40,1 color 255,255,255 count=0 pos 0,0 repeat redraw 0 gcopy 1,0,0,512,384 if (cnt\60)<=30:pos 120,250:mes"push enter key":pos 0,0 stick ky,0:if (ky&32)|(ky&256):break redraw 1 wait 1 loop cls 2

 waitが60,40と指定されていたので、タイミング良く押すかずっと押すかしておかなければ
反応しなかったようです。なのでwaitを1にしました。
 あと、例として書くときには、画像はboxfで代理にするかhspのsampleフォルダにあるものを
使用すると、他の人でも再現できるのでおススメです。



SYAM

リンク

2008/4/23(Wed) 13:39:36|NO.15336


細かいですが、 redraw 0 の状態で抜けてるのでそのことに注意してないとハマります。
※以前ちょいハマったorz



サトシ

リンク

2008/4/23(Wed) 15:59:10|NO.15337

>SYAMさん
返信ありがとうございました!あっredrawも抜けてました(^^;
恥ずかしいスクリプトで申し訳ありません。(汗)

>coinさん
とても分かりやすく改造して頂いてありがとうございます(^^
repeatですもの、cntが使えるんですよね・・・(恥ずかしい(汗))
waitの方も、仰る通り、タイミング良く押すかずっと押すかしておかなければ
反応しませんでした。waitのせいだったんですね(^^;;;;
画像の件もお手数おかけしてすみません。なるほど・・・サンプルの所にある
画像を使う手があったんですね・・・・今度からは使用します。。。



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