| 2005/02/18(Fri) 13:34:39 編集(投稿者)
編集 見にくかったのでスペース入れました
はじめての皆様にははじめまして、それ以外の皆様にはこんにちわ、ＭＲです。
今回は、自作インクルードにおいて想定したものが出来ないため、皆様からアドバイスやミスの指摘などをいただきたいと思い、こちらに書き込ませていただいています。
現在製作しているインクルードは、サウンドノベルのように文字を表示するものです。それに伴い、文字表示速度をプレイヤーが選択できるようにしたいと思い、以下のようなものを作りました。
その際、具体的に表示速度がわかるように、画面に表示した速度を表す文字(速い、遅いなど)上にマウスカーソルが乗ると、その真下に、それぞれの速度で文章が表示されるという機能を付けたいと思い、いろいろ試してはみたのですが、
PaintString - 20 表示速度を選択してください
Font 14pt ゴシック Reguler
Font RGB(255,255,255)
PaintString 40 60 一括
PaintString 40 100 速い
PaintString 40 140 普通
PaintString 40 180 遅い
HotPoint 一括 40 60 32 16
HotPoint 速い 40 100 32 16
HotPoint 普通 40 140 32 16
HotPoint 遅い 40 180 32 16
Refresh
この処理で、一括以下の文字が表示されません。ホットポイントは作られているようなのですが…
また、マウスカーソルが指定の位置に来てもその下に文章が表示されません。
以下にテストファイルとインクルードを掲示いたしますので、原因がわかる方や、はっきりとわからないまでも「ここが怪しい」と思った方、もしくは「うちのＳＲＣだと表示されますが」という方、ぜひともご指摘お願いいたします。
↓↓ここから下がテスト用ファイルtest.eve内部です↓↓
<Include.eve>
プロローグ:
Show
表示速度決定
Exit
スタート:
Continue -.eve
エピローグ:
Exit
↑↑ここまで↑↑
↓↓ここから下がInclude.eve内部です↓↓
表示速度決定:
Font 16pt ゴシック Regular
Font RGB(255,255,255)
PaintString - 20 表示速度を選択してください
Font 14pt ゴシック Reguler
Font RGB(255,255,255)
PaintString 40 60 一括
PaintString 40 100 速い
PaintString 40 140 普通
PaintString 40 180 遅い
HotPoint 一括 40 60 32 16
HotPoint 速い 40 100 32 16
HotPoint 普通 40 140 32 16
HotPoint 遅い 40 180 32 16
Refresh
Switch MouseX
Case < 40
Case <= 72
Switch MouseY
Case < 60
Case <= 76
Font 14pt ゴシック
PaintString 18 80 このくらいのスピードで表示されます
Refresh
Case < 100
Case <= 116
For j = 1 To Len(このくらいのスピードで表示されます)
Font 14pt ゴシック Regular
Font RGB(255,255,255)
If j = 1 Then
PaintString 10 10 Left(このくらいのスピードで表示されます,1)
Else
PaintString (j * 18) 10 Mid(このくらいのスピードで表示されます,j,1)
EndIf
Refresh
Wait 1
Next
Case < 140
Case <= 156
For j = 1 To Len(このくらいのスピードで表示されます)
For i = 1 To 2
Font 14pt ゴシック Regular
Font RGB(127 * i,127 * i,127 * i)
If j = 1 Then
PaintString 10 10 Left(このくらいのスピードで表示されます,1)
Else
PaintString (j * 18) 10 Mid(このくらいのスピードで表示されます,j,1)
EndIf
Refresh
Wait 1
Next
Next
Case < 180
Case <= 196
For j = 1 To Len(このくらいのスピードで表示されます)
For i = 1 To 3
Font 14pt ゴシック Regular
Font RGB(127 * i,127 * i,127 * i)
If j = 1 Then
PaintString 10 10 Left(このくらいのスピードで表示されます,1)
Else
PaintString (j * 18) 10 Mid(このくらいのスピードで表示されます,j,1)
EndIf
Refresh
Wait 1
Next
Next
Case Else
ClearPicture 18 60 480 100
ClearPicture 18 100 480 140
ClearPicture 18 140 480 180
ClearPicture 18 180 480 220
Refresh
EndSw
Case Else
ClearPicture 18 60 480 100
ClearPicture 18 100 480 140
ClearPicture 18 140 480 180
ClearPicture 18 180 480 220
Refresh
EndSw
Do
Wait Click
Loop While (選択 = "")
Global 速度
Switch 選択
Case 一括
速度 = 0
Case 速い
速度 = 1
Case 普通
速度 = 2
Case 遅い
速度 = 3
EndSw
Return
↑↑ここまで↑↑
他に文章修飾系のインクルードが入っていますが、影響はないと思います。
それでは、よろしくお願いいたします。
|
新着情報