無限ループを使わなくても、再生終了を取得することはできますよ。
ただ、あまりうまくは動作しません^^;
pos 0,0
axobj wm, "{22D6F312-B0F6-11D0-94AB-0080C74C7E95}", 640,480
wm("autostart")=1
wm("ShowAudioControls")=1
wm("ShowCaptioning")=0
wm("ShowControls")=1
wm("ClickToPlay")= 1
wm("ShowTracker")=1
wm("FileName")= ""
screen 1,200,ginfo_dispy,,0,0
sysfont 17
gsel 0,1
comevent wmi, wm, , *wm_event
stop
*wm_event
comevarg we,wmi, 0, 0
if (vartype(we_old)=3)&(we=2){
mode="停止"
}else{
if (vartype(we)=3)&(we_old=2)&(comevdisp(wmi)=2){
mode="シーク"
}
if we=2{
mode="一時停止"
}
}
if mode="再開":mode=""
if mode="開始":mode=""
if mode="シーク"{
if we=0{
mode="開始"
}
if we=1{
mode="再開"
}
}
if mode="停止"{
if we=0{
mode="開始"
}
}
if (we=0)&(vartype(we_old)=3){
mode="開始"
}
if mode="一時停止"{
if 3002=comevdisp(wmi){
mode="演奏終了"
}else{
if (vartype(we_old)=3)&(we=1){
mode="停止"
}else{
if we=1{
mode="再開"
}
}
}
}
title ""+mode+" "+we
we_old=we
ce_old=comevdisp(wmi)
gsel 1
mes ""+we+"\t"+mode+"\t"+comevdisp(wmi)
gsel 0
cc+
return
//訂正