プレイリストに複数曲追加しても、自動的に次曲へいかず、
永久リピートになります・・・
これを自動で次曲にまわす機能をつける方法と、
次曲、前曲のButtonをつける方法を教えてほしいです。
(あと、教えてくれたら、音と同期してながれるエフェクトてきなのもほしいとおもいます)
☆:Miniぷれいやーは気にしないでください。
fullpath="":filepath=""
*player onkey *read tt="(MP3Playern v2.0β)" title tt screen 0,330,173,0 onexit goto*ss font "Webdings",25 objmode 2,0 pos 0,0 objsize 113,40 button "4",*oky pos 112,0 objsize 108,40 button ";",*oky2 pos 219,0 objsize 111,40 button "<",*s_top font "" objmode 2,0 pos 112,40 objsize 108,20 button "情報",*ver pos 0,40 objsize 113,20 button "MiniPlayern(β)",*miniplayer pos objsize 160,180 pos 219,40 objsize 113,20 button "MP3読み込み",*fl listbox list,,"" listid=stat pos objsize 160,180 stop *miniplayer screen 0,119,244,0 onexit goto*ss font "Webdings",25 objmode 2,0 pos 0,0 objsize 119,40 button "4",*okymini pos 0,40 objsize 60,40 button ";",*oky2 pos 60,40 objsize 59,40 button "<",*s_top font "" objmode 2,0 pos 0,92 objsize 119,20 button "戻す",*player pos objsize 160,180 pos 0,112 objsize 119,20 button "MP3読み込み",*fl listbox list,,"" listid=stat pos objsize stop *fl dialog "mp3;",16,"MP3File" if stat=0:stop fname=refstr notesel fullpath fullpath+=""+fname+"\n" notesel filepath filepath+=""+getpath(fname,8)+"\n" objprm listid,filepath gsel 0,0 if pflag=1:goto *mainloop stop *oky if flag=1:mci "":pflag=1:goto *mainloop file="" notesel fullpath noteget file,list mci "close all" mci "open \"" + file + "\" alias music":if stat=-1:stop mci "status music length":m_length=stat nagasa=m_length/1000 if nagasa/60>0:_fun=nagasa/60:n_byo=nagasa\60:else:n_byo=nagasa:n_fun=0 if n_byo<10:n_byoz="0"+n_byo:n_byo=n_byozn color 0,0,0 : boxf 0,330,330,0 fn = ""+getpath(file,9)+"" pos 0,70 color 255,255,255 font "MS ゴシック",12 mes "ファイル名:" pos 65,70 mes fn fn2 = ""+getpath(file,2)+"" pos 0,82 font "MS ゴシック",12 mes " 音楽形式 :" pos 65,82 mes fn2 mes "MP3Playern v2.0β" pos 0,94 font "MS ゴシック",12 mes "バージョン:" pos 65,94 mes strsize : pos 120,74 : mes"" pos mci "play music repeat":pflag=1 goto *mainloop *okymini if flag=1:mci "play music repeat":pflag=1:goto *mainloop file="" notesel fullpath noteget file,list mci "close all" mci "open \"" + file + "\" alias music":if stat=-1:stop mci "status music length":m_length=stat nagasa=m_length/1000 if nagasa/60>0:n_fun=nagasa/60:n_byo=nagasa\60:else:n_byo=nagasa:n_fun=0 if n_byo<10:n_byoz="0"+n_byo:n_byo=n_byoz color 0,0,0 : boxf 0,330,330,0 fn = ""+getpath(file,9)+"" pos 0,80 color 255,255,255 font "MS ゴシック",12 mes "ファイル:" pos 30,80 mes fn mci "":pflag=1 goto *mainloop *oky2 mci "pause music" flag=1 pflag=0 stop *s_top mci "stop f" mci "close music" flag=0 pflag=0 title tt stop *ver dialog {" MP3Playern v2.0β By.ただし\nβ版(MiniPlayern)です。 "},0, "MP3Playern情報" if pflag=1:goto *mainloop stop *ss end *read objsel -1 actobj=stat if actobj!=listid:stop if wparam=13{ goto *oky } if pflag=1:goto *mainloop stop *mainloop mci "status music position" ps=stat imano=stat/1000 if imano/60>0:{ i_fun=imano/60 i_byo=imano\60 }else{ i_byo=imano:i_fun=0 } wait 5 if i_byo<10:title tt+" "+i_fun+":0"+i_byo+"/"+n_fun+":"+n_byo:goto *mainloop title tt+" "+i_fun+":"+i_byo+"/"+n_fun+":"+n_byo goto *mainloop stop