;これ単体では機能しません。
	;配布ファイルに含まれているradio.plから呼び出して使用します。
#include"ehttp_mod.as"
#include"hspext.as"
	title"ねとラジListMaker"; : width 100,20

	exist"radio.txt"
	sdim txt,strsize
	bload"radio.txt",txt,strsize

	exist"winamp.txt"
	sdim winamp,strsize
	bload"winamp.txt",winamp,strsize
	notesel winamp : noteget winamp,0

	notesel txt : notemax max : max=max/4
	sdim title_list,64000
	font"ＭＳ ゴシック",12
	sdim r_title,320,max : sdim url,320,max : sdim com,320,max : sdim url2,320,max
	sdim buf,64000
	cls : width 480,125

	repeat max

	noteget tmp,cnt*4 : r_title.cnt=tmp
	title_list+=""+tmp+"\n"
	noteget tmp,cnt*4+1 : com.cnt=tmp
	noteget tmp,cnt*4+2 : url2.cnt=tmp
	noteget tmp,cnt*4+3 : url.cnt=tmp

	loop
	objsize 480,13 : objmode 2,1
	sel=-1 : now=0
	combox now,400,title_list
	objsize 370,20 : pos 60,68 : sdim main_url,320 : input main_url
	objsize 40,20 : pos 435,68 : button"再生",*post_winamp
	objsize 120,20 : pos 110,100 : button "放送URLを取得",*get_url
	pos 250,100 : button "詳細を別画面で表示",*view
	sdim w_url,256 : gsel 0,1
*main
	if now!=sel : gosub *write
	wait 1
	goto *main
*write
	color 255,255,255 : boxf 0,13,480,67
	color 0,0,0 : pos 0,20
	mes"タイトル："+r_title.now
	mes"ＵＲＬ　："+url.now
	mes"コメント："+com.now
	mes"関連URL ："+url2.now
	mes"放送URL ："
	sel=now
	return
*get_url
	w_url="http://"+url.now
	ehttp_seturl w_url
	ehttp_get buf : tmp=""
	notesel buf : notemax max2
	if max2=3 : noteget tmp,1 : else : noteget tmp,0
	objprm 1,tmp

	goto *main
*view
	screen 2,480,320,10 : title"詳細表示"
	objsize 100,20 : objmode 2 : font"ＭＳ ゴシック",10
	pos 0,0 : button "タイトルコピー",*copy1
	pos 100,0 : button "ＵＲＬコピー",*copy2
	pos 200,0 : button "コメントコピー",*copy3
	pos 300,0 : button "関連ＵＲＬコピー",*copy4
	objsize 80,20 : pos 400,0 : button "閉じる",*close_win2

	sdim view_text,6400 : font"ＭＳ ゴシック",12
	view_text="【ラジオタイトル】\n"+r_title.now+"\n\n"+"【mu3ＵＲＬ】\n"+url.now+"\n\n"
	view_text+="【コメント】\n"+com.now+"\n\n"+"【関連ＵＲＬ】\n"+url2.now
	pos 0,20 : mesbox view_text,winx,winy-20,1
	gsel 2,1
	gsel 0,0 : goto *main
*copy1
	copy_strings=r_title.now
	goto *copy_main
*copy2
	copy_strings=url.now
	goto *copy_main
*copy3
	copy_strings=com.now
	goto *copy_main
*copy4
	copy_strings=url2.now
	goto *copy_main
*copy_main
	clipset copy_strings
	goto *main
*close_win2
	gsel 2,-1 : gsel 0,0
	goto *main
*post_winamp
	if main_url="" : goto *main
	exec ""+winamp+" "+main_url
	goto *main