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


HSPTV!掲示板


未解決 解決 停止 削除要請

2017
0420
補給タンクmciで読み込んだ音楽が鳴らない3解決


補給タンク

リンク

2017/4/20(Thu) 18:57:14|NO.79156

こんにちは、HSP初心者のものです。
現在、ある画面で2種類以上の音を鳴らしたいと考えており、
下記のようなプログラムを組んでみました。


;タイトル画面


screen 0,640,480

;画像の読み込み
buffer 1 ; 背景画像の読み込み
picload "img/タイトル.png"
gsel 0 ; 画面「0」に描画先指定
pos 0,0 ; 背景画像の貼り付け位置指定
gcopy 1,0,0,640,480 ; 背景画像の貼り付け

;音楽ファイル読み込み
mci "open \"se/カーソル移動.mp3\" alias f0"
mci "open \"bgm/menu.wav\" alias f1"

mci "play f1"

  ;カーソル初期位置
cursor_x = 260
cursor_y = 340




*カーソル上下

redraw 0;チラツキ防止その1

gsel 0 ; 画面「0」に描画先指定
pos 0,0 ; 背景画像の貼り付け位置指定
gcopy 1,0,0,640,480 ; 背景画像の貼り付け


;メニュー一覧
pos 280,340
color 255,255,255

;フォントの設定
font "MS ゴシック", 20
mes "スタート"
mes"オプション"
mes"リプレイ"
mes"終了"

;カーソルを表示
  pos cursor_x,cursor_y
color 255,255,255
mes"▼"
stick key
if(key=2){;上入力
cursor_y = cursor_y - 20
mci "play f0"
}
if(key=8){;下入力
cursor_y = cursor_y + 20
mci "play f0"
}

;移動の行き止まりと場所入れ替え
if(cursor_y>400){
cursor_y = 340
mci "play f0"
}
if(cursor_y<340){
cursor_y = 400
mci "play f0"
}

;メニューに応じたところでZキーを押したときの反応

redraw 1 ;チラツキ防止その2
await 16
goto *カーソル上下

ところが、問題が発生しました。
カーソルを動かしたときの小さい音が一回しか鳴らないのです。
カーソルを入力する度繰り返し音を鳴らせたいのですが、
どうすればよいのでしょうか…?
分からなくて途方にくれています。



この記事に返信する


補給タンク

リンク

2017/4/20(Thu) 19:14:51|NO.79158

すみません、pre とはここに投稿するときの表示方法ですよね。
もう一度囲って投稿し直してみます。


;タイトル画面 screen 0,640,480 ;画像の読み込み buffer 1 ; 背景画像の読み込み picload "img/タイトル.png" gsel 0 ; 画面「0」に描画先指定 pos 0,0 ; 背景画像の貼り付け位置指定 gcopy 1,0,0,640,480 ; 背景画像の貼り付け ;音楽ファイル読み込み mci "open \"se/カーソル移動.mp3\" alias f0" mci "open \"bgm/menu.wav\" alias f1" mci "play f1"   ;カーソル初期位置 cursor_x = 260 cursor_y = 340 *カーソル上下 redraw 0;チラツキ防止その1 gsel 0 ; 画面「0」に描画先指定 pos 0,0 ; 背景画像の貼り付け位置指定 gcopy 1,0,0,640,480 ; 背景画像の貼り付け ;メニュー一覧 pos 280,340 color 255,255,255 ;フォントの設定 font "MS ゴシック", 20 mes "スタート" mes"オプション" mes"リプレイ" mes"終了" ;カーソルを表示   pos cursor_x,cursor_y color 255,255,255 mes"▼" stick key if(key=2){;上入力 cursor_y = cursor_y - 20 mci "play f0" } if(key=8){;下入力 cursor_y = cursor_y + 20 mci "play f0" } ;移動の行き止まりと場所入れ替え if(cursor_y>400){ cursor_y = 340 mci "play f0" } if(cursor_y<340){ cursor_y = 400 mci "play f0" }



あり(副管理人)

リンク

2017/4/20(Thu) 19:23:35|NO.79159

>Unnamedさん

preタグの使用は強制ではないので
それを注意する為だけにわざわざコメントする必要はありません。



補給タンク

リンク

2017/4/20(Thu) 21:26:32|NO.79161

すみません、別の問題が出てしまったため、
一旦こちらを締め切りとさせていただきたいと思います。
申し訳ありません。



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