MP4でやってみましたが、再生されませんでした。
実は鉄道シミュレーターを作ろうと思っているのです。
よくわからないと思うので、ソースコード載せておきます。
http://hsp.tv/play/pforum.php?mode=pastwch&num=23246
の方法も試して見ましたが、できませんでした。
再度、宜しくお願いします。
*sta :mmstop :cls :picload "image/kaiku.bmp" :mmplay 2 :font "MS Pコジック" , 26 ,1 :objmode 2 :title "どれを選びますか"
pos 60,40 :objsize 500,75 :button "運転開始", *futkk
pos 60,280 :button "戻る" , *sbcgoto :stop
*futkk //映像の表示
//ここで動画を再生させます
//操作画面（ボタン配置など）
*futaa :gsel 0,1 :screen 0,320,300 :cls 1 :mmstop :font "MS Pコジック" , 26 ,1
title "操作画面" :objmode 2 :mm = "□" :if ss < -8 :pos 30,10 :ss = -9 :mes "ＥＢ" :goto *a
if ss = 0 :pos 10,10 :mes " Ｎ " :goto *a
if ss > 0 :pos 10,10 :mes "Ｐ"
if ss < 0 :pos 10,10 :mes "Ｂ"
if ss > 5 :ss = 5
if ss > 0 :pos 30,10 :mes "-" + ss :goto *a
pos 30,10 :mes ss
*a //:screen 0,640,400 :title "運転画面" :picload "image/gunbbbb.bmp" :gsel 1,0
pos 100,0 :objsize 100,100 :button "加速" , *kkakgoto
pos 100,100 :button "情行" , *gangoto
pos 100,200 :button "減速" , *gokgoto
font "MS Pコジック" , 20 ,0 :pos 0,200 :objsize 75,50 :button "終了" , *endgoto
pos 0,250 :button "戻る", *obcgoto :font "MS Pコジック" , 15 ,0
font "MS Pコジック" , 20 ,0
//ここから無限ループ（↓はメートルや一部全消し）
*c :gsel 0,1 :color 192,192,192 :boxf 100,130,0,90 :color 0,0,0
if dk > 59 :dd = dd + 1 :dk = 0
if wa > 3 :color 192,192,192 :boxf 100,65,0,30 :color 0,0,0 :pos 0,40 :mes " " + dg + ":" + dd + ":" + dk :dk = dk + 1 :wa = 0
// 速度計算
if ss > 4 :km = km + 1 :kp = kp + 5
if ss = 4 :km = km + 1 :kp = kp + 2
if ss = 3 :km = km + 1 :kp = kp + 9
if ss = 2 :km = km + 0 :kp = kp + 5
if ss = 1 :km = km + 0 :kp = kp + 1
if ss = 0 :km = km + 0 :kp = kp + 0
if ss =-1 :km = km - 0 :kp = kp - 1
if ss =-2 :km = km - 0 :kp = kp - 4
if ss =-3 :km = km - 0 :kp = kp - 7
if ss =-4 :km = km - 1 :kp = kp - 0
if ss =-5 :km = km - 1 :kp = kp - 5
if ss =-6 :km = km - 2 :kp = kp - 0
if ss =-7 :km = km - 2 :kp = kp - 5
if ss =-8 :km = km - 3 :kp = kp - 0
if ss =-9 :km = km - 3 :kp = kp - 5
if ss <-9 :km = km - 4 :kp = kp - 5
if kp > 9 :km = km + 1 :kp = kp - 10
if km < 1 :km = 0 :goto *d
if kp < 0 :km = km - 1 :kp = 0 :kp = kp + 9
*d :if kp < 1 :kp = 0
if km < 1 :km = 0
if km > 200 :km = 200
pos 0,70 :mes " " + mm + "m"
pos 0,100 :mes " " + km + "." + kp + "km"
gsel 1,0
//ここで動画を倍速します倍速する
gsel 0,1
wait 25 :gsel 0,1 :wa = wa + 1 :goto *c :stop
*kkakgoto :ss = ss + 1 :wait 10 :goto *futaa
*gangoto :ss = 0 :wait 10 :goto *futaa
*gokgoto :ss = ss - 1 :wait 10 :goto *futaa
*obcgoto :dialog "タイトルに戻ります。宜しいですか？" , 2 :if stat = 7 :stop
goto *sbcgoto
動画を早く再生
