// ==================================================
// 初期設定
// ==================================================

// Irvineのパスを指定
irvinepath = "C:\Program Files\Irvine\"

// ==================================================
// スクリプト本体
// ==================================================

// クリップボードの文字列を取り出す
movid = GETSTR(0)
// ID以外が含まれている場合の例外処理
IFB  LENGTH(movid)>11
	//「v=」の登場位置より二文字後から11文字分を抽出するとIDのみになる
	movid = COPY(movid, POS("v=", movid)+2, 11)
ENDIF

// irvファイルを削除・終了を待機
DOSCMD("del <#DBL>" + irvinepath + "list.irv<#DBL>", FALSE)

// irvファイルの生成
irvinelist=FOPEN(irvinepath + "list.irv", F_WRITE)
FOR i=1 to 228
	Put2IrvFile(irvinelist, "v" + i + ".youtube.com", movid)
NEXT
FOR i=1 to 20
	Put2IrvFile(irvinelist, "sjl-casing" + i + ".sjl.youtube.com", movid)
NEXT
FOR i=1 to 152
	Put2IrvFile(irvinelist, "sjl-v" + i + ".sjl.youtube.com", movid)
NEXT
FOR i=1 to 80
	Put2IrvFile(irvinelist, "lax-v" + i + ".lax.youtube.com", movid)
NEXT
FCLOSE(irvinelist)

// 生成されたリストをIrvineに渡して起動
EXEC("<#DBL>" + irvinepath + "irvine.exe<#DBL> <#DBL>" + irvinepath + "list.irv<#DBL>", FALSE)

EXITEXIT

// ==================================================
// 関数
// ==================================================

// irvファイルへの出力
Procedure Put2IrvFile(irvinelist, server, movid)
	FPUT(irvinelist, "http://" + server + "/get_video?video_id=" + movid + "<#TAB><#TAB>" + movid + "(" + server + ").flv<#TAB><#TAB><#TAB><#TAB><#TAB><#TAB><#TAB><#TAB><#TAB><#TAB>not found<#TAB><#TAB><#TAB><#TAB><#TAB><#TAB><#TAB><#TAB><#TAB>")
Fend