GR.OPEN 0,0,0,0,0 GR.ORIENTATION 1 pause 800 GR.SCREEN w,h !w=400 !h=800 GR.SET.ANTIALIAS 1 GR.SET.STROKE 1 GR.TEXT.BOLD 1 GR.TEXT.ALIGN 1 path$= "/../../Music/" jstr=w/10 jstx=w/2 jsty=h-jstr-10 pley$="Pley" sled$=">>" index=1 barymin=h/2 barymax=h/2+50 Gr.text.width npl,pley$ Gr.text.width nsl,sled$ ARRAY.DELETE d1$[] FILE.DIR path$, d1$[] ARRAY.LENGTH lengt, d1$[] gr.color 255,255,255,25,1 gr.circle jst,jstx,jsty,jstr gr.oval jst1,jstx+jstr,jsty,jstx+jstr*3,jsty-jstr gr.oval jst1,jstx-jstr*3,jsty,jstx-jstr,jsty-jstr gr.rect trec_bar,0,barymin,0,barymax gr.text.size 30 gr.color 255,255,0,0,1 gr.text.draw pley,jstx-npl-5,jsty+10,pley$ gr.text.draw stop,jstx-npl-5,jsty+10,"Stop" gr.text.size 40 gr.text.draw sled,jstx+jstr*2-nsl-5,jsty-jstr/2+10,sled$ gr.text.draw pred,jstx-jstr*2-nsl-10,jsty-jstr/2+10,"<<" gr.text.draw mp3,w/2-100,40,"Mp3Pleer" gr.text.draw trec_shot,w/2-40,h/2," " gr.text.draw trec_info,0,40*2," " gr.text.draw trec_info1,8,40*2," " gr.text.draw ham,w/2-40,h/2-40," " gr.hide pley sl=index+1 gosub loadtrec stop_pausa=1 a=0 do !авто следующий трек if trec_stop=1&tf1>=0 %&stop_pausa=1 index=index+1 sl=index+1 if trec_stop=1&index>lengt index=1 sl=index+1 gosub loadtrec endif gosub loadtrec endif gosub touched dvig=dvig-3 dvig1=dvig1-3 if dvig<=-inf_o dvig=inf_o1 elseif dvig1<=-inf_o1 dvig1=inf_o endif gr.modify ham,"text",str$(barcloc/100000) gr.modify trec_bar,"right",bar gr.modify trec_shot,"text",str$(shot/100000) gr.modify trec_info,"text",info$,"x",dvig gr.modify trec_info1,"text",info1$,"x",dvig1 !gr.modify trec_info,"x",dvig !gr.modify trec_info1,"x",dvig1 gr.render until 0 touched: gr.touch tf1, xt,yt gr.touch2 tf2,xt2,yt2 if a=0 Audio.isdone trec_stop %играе или не играет endif !если нет косания if tf1=0 b=a go=1 endif if a=0 Audio.position.current shot bar=shot/100/barx endif if tf1&a=0&yt>barymin&ytjstx-jstr&xtjsty-jstr&ytjstx-jstr&xtjsty-jstr&ytjstx+jstr&xtjsty-jstr&ytlengt index=1 sl=index+1 endif gosub loadtrec endif !кнопка предыдущий трек if go=1&tf1&xt>jstx-jstr*3&xtjsty-jstr&ytw-jstr*2&xt2h-jstr*2&yt2