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

GR.COLOR 0,0,0,0,0
GR.POINT Ftouch, 1, 1

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$
gr.modify trec_info1,"text",info1$
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 tf1<>0
gr.modify Ftouch, "x", xt,"y", yt
endif
!если нет косания
if tf1=0
gr.modify Ftouch, "x", -1,"y", -1
Audio.isdone trec_stop
b=a
go=1
endif
if a=0
Audio.position.current shot
bar=shot/100/barx
endif
if tf1&a=0&yt>barymin&yt<barymax
audio.position.seek xt*100*barx
endif
!кнопка pley-pause
if b=0&tf1&xt>jstx-jstr&xt<jstx+jstr&yt>jsty-jstr&yt<jsty+jstr
gr.hide stop
gr.show pley
a=1
stop_pausa=0
audio.pause

elseif a=1&tf1&xt>jstx-jstr&xt<jstx+jstr&yt>jsty-jstr&yt<jsty+jstr
gr.hide pley
gr.show stop
a=0
stop_paosa=1
audio.play trec
endif
!кнопка следующий трек
if go=1&tf1&xt>jstx+jstr&xt<jstx+jstr*3&yt>jsty-jstr&yt<jsty
index=index+1
go=0

gr.hide pley
gr.show stop
if index>lengt
index=1
sl=index+1
endif
gosub loadtrec
endif
!кнопка предыдущий трек
if go=1&tf1&xt>jstx-jstr*3&xt<jstx-jstr&yt>jsty-jstr&yt<jsty
index=index-1
go=0
gr.hide pley
gr.show stop
if index=0
index=lengt
sl=1
endif
gosub loadtrec
endif
if tf2&xt2>w-jstr*2&xt2<w&yt2>h-jstr*2&yt2<h
endif
return

loadtrec:
audio.stop
Audio.load trec,path$+d1$[index]
audio.play trec
a=0
info$="текущий трек.:["+d1$[index]+"]:."
Gr.text.width inf_o,info$
info1$="следующий трек.:["+d1$[sl]+"]:."
gr.text.width inf_o1,info1$
dvig=w
dvig1=dvig+inf_o
Audio.length barcloc,trec
barx=barcloc/w/100
return