sDVD-Player — File Browser
sDVD-Playerv2.2 / sDVD-Playerv2.2 / dvd.mrc
dvd.mrc — 9.58 KB — Download this file
alias dvdstart {
var %x $+(@,sDVD,$chr(160),Player,$chr(160),2.2)
if ($window(%x)) { window -a %x }
else { window -ak0 %x $scriptdirdvd.ico | window -x %x }
dvdiniate %x
}
alias -l nhtmln { return $scriptdirnhtmln.dll }
alias -l dvdiniate {
var %y = $dll($nHTMLn,attach,$window($1).hwnd)
htmlwrite1 $1
dll $nhtmln navigate $mircdirdvd.html
}
alias -l htmlwrite1 {
write -c $mircdirdvd.html
if (%s.control == top) {
write $mircdirdvd.html <html>
write $mircdirdvd.html <BODY onload=BoxPop()>
write $mircdirdvd.html <BODY oncontextmenu="return false">
write $mircdirdvd.html <form name="dvdchap"> <div align="center">
write $mircdirdvd.html <select name="chapter" size ="1"
write $mircdirdvd.html onchange="ChapPlay(document.dvdchap.chapter.options[document.dvdchap.chapter.selectedIndex].value);">
write $mircdirdvd.html <option value= "Pick A Chapter" selected="Selected">Pick A Chapter</option>
write $mircdirdvd.html </select>
write $mircdirdvd.html </div>
write $mircdirdvd.html </form>
write $mircdirdvd.html <BUTTON onClick='PrevChapter();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >9</font></button>
write $mircdirdvd.html <BUTTON onClick='Rewind();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >7</font></button>
write $mircdirdvd.html <BUTTON onClick='Stop();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") > $+ $chr(60) $+ </font></button>
write $mircdirdvd.html <BUTTON onClick='Play();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >4</font></button>
write $mircdirdvd.html <BUTTON onClick='Pause();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >;</font></button>
write $mircdirdvd.html <BUTTON onClick='FastForward();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >8</font></button>
write $mircdirdvd.html <BUTTON onClick='NextChapter();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >:</font></button>
write $mircdirdvd.html <BUTTON onClick='Eject();'><u><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >5</u></font></button>
write $mircdirdvd.html <ALIGN="right">sDVD-Player for mIRC ©2004 Soul_Eater
write $mircdirdvd.html <SCRIPT LANGUAGE="JScript">
write $mircdirdvd.html function BoxPop(){
write $mircdirdvd.html var chapts = DVD.GetNumberOfChapters(1);
write $mircdirdvd.html var selbox = document.dvdchap.chapter;
write $mircdirdvd.html selbox.options.length = 1;
write $mircdirdvd.html while (chapts >= 0) $chr(123)
write $mircdirdvd.html selbox.options[selbox.options.length] = new Option(chapts,chapts);
write $mircdirdvd.html chapts--;
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function ChapPlay(chosen){
write $mircdirdvd.html DVD.PlayChapterInTitle(1,chosen);
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function Play(){
write $mircdirdvd.html DVD.Play();
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function Pause(){
write $mircdirdvd.html DVD.Pause();
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function Stop(){
write $mircdirdvd.html DVD.Stop();
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function Eject(){
write $mircdirdvd.html DVD.Eject();
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function Rewind(){
write $mircdirdvd.html DVD.PlayBackwards(2.0);
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function FastForward(){
write $mircdirdvd.html DVD.PlayForwards(2.0);
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function NextChapter(){
write $mircdirdvd.html DVD.PlayNextChapter();
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function PrevChapter(){
write $mircdirdvd.html DVD.PlayPrevChapter();
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html </SCRIPT>
write $mircdirdvd.html <br>
write $mircdirdvd.html <hr width=100% size=7>
write $mircdirdvd.html <br>
write $mircdirdvd.html <OBJECT CLASSID=clsid:38EE5CEE-4B62-11D3-854F-00A0C9C898E7 ID=DVD
write $mircdirdvd.html $+(STYLE="height:,$+($calc($window($1).h - 178),px,;),$chr(32),width:,$+($calc($window($1).w - 65),px">))
write $mircdirdvd.html <PARAM NAME="BackColor" VALUE="1048592">
write $mircdirdvd.html <PARAM NAME="EnableResetOnStop" VALUE="0">
write $mircdirdvd.html <PARAM NAME="ColorKey" VALUE="1048592">
write $mircdirdvd.html </OBJECT>
write $mircdirdvd.html </body>
write $mircdirdvd.html </html>
}
if (%s.control == bottom) {
write $mircdirdvd.html <html>
write $mircdirdvd.html <BODY onload=BoxPop()>
write $mircdirdvd.html <BODY oncontextmenu="return false">
write $mircdirdvd.html <OBJECT CLASSID=clsid:38EE5CEE-4B62-11D3-854F-00A0C9C898E7 ID=DVD
write $mircdirdvd.html $+(STYLE="height:,$+($calc($window($1).h - 195),px,;),$chr(32),width:,$+($calc($window($1).w - 65),px">))
write $mircdirdvd.html <PARAM NAME="BackColor" VALUE="1048592">
write $mircdirdvd.html <PARAM NAME="EnableResetOnStop" VALUE="0">
write $mircdirdvd.html <PARAM NAME="ColorKey" VALUE="1048592">
write $mircdirdvd.html </OBJECT>
write $mircdirdvd.html <br><br>
write $mircdirdvd.html <hr width=100% size=7>
write $mircdirdvd.html <form name="dvdchap"> <div align="center">
write $mircdirdvd.html <select name="chapter" size ="1"
write $mircdirdvd.html onchange="ChapPlay(document.dvdchap.chapter.options[document.dvdchap.chapter.selectedIndex].value);">
write $mircdirdvd.html <option value= "Pick A Chapter" selected="Selected">Pick A Chapter</option>
write $mircdirdvd.html </select>
write $mircdirdvd.html </div>
write $mircdirdvd.html </form>
write $mircdirdvd.html <BUTTON onClick='PrevChapter();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >9</font></button>
write $mircdirdvd.html <BUTTON onClick='Rewind();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >7</font></button>
write $mircdirdvd.html <BUTTON onClick='Stop();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") > $+ $chr(60) $+ </font></button>
write $mircdirdvd.html <BUTTON onClick='Play();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >4</font></button>
write $mircdirdvd.html <BUTTON onClick='Pause();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >;</font></button>
write $mircdirdvd.html <BUTTON onClick='FastForward();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >8</font></button>
write $mircdirdvd.html <BUTTON onClick='NextChapter();'><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >:</font></button>
write $mircdirdvd.html <BUTTON onClick='Eject();'><u><FONT FACE="WebDings" $+(SIZE,=,",%s.button,") >5</u></font></button>
write $mircdirdvd.html <ALIGN="left">sDVD-Player for mIRC ©2003 Soul_Eater
write $mircdirdvd.html <SCRIPT LANGUAGE="JScript">
write $mircdirdvd.html function BoxPop(){
write $mircdirdvd.html var chapts = DVD.GetNumberOfChapters(1);
write $mircdirdvd.html var selbox = document.dvdchap.chapter;
write $mircdirdvd.html selbox.options.length = 1;
write $mircdirdvd.html while (chapts >= 0) $chr(123)
write $mircdirdvd.html selbox.options[selbox.options.length] = new Option(chapts,chapts);
write $mircdirdvd.html chapts--;
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function ChapPlay(chosen){
write $mircdirdvd.html DVD.PlayChapterInTitle(1,chosen);
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function Play(){
write $mircdirdvd.html DVD.Play();
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function Pause(){
write $mircdirdvd.html DVD.Pause();
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function Stop(){
write $mircdirdvd.html DVD.Stop();
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function Eject(){
write $mircdirdvd.html DVD.Eject();
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function Rewind(){
write $mircdirdvd.html DVD.PlayBackwards(2.0);
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function FastForward(){
write $mircdirdvd.html DVD.PlayForwards(2.0);
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function NextChapter(){
write $mircdirdvd.html DVD.PlayNextChapter();
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html function PrevChapter(){
write $mircdirdvd.html DVD.PlayPrevChapter();
write $mircdirdvd.html $chr(125)
write $mircdirdvd.html </SCRIPT>
write $mircdirdvd.html </body>
write $mircdirdvd.html </html>
}
}
on *:close:@sDVD Player 2.2:.remove $mircdirdvd.html
on *:exit:.remove $mircdirdvd.html
on *:load:{ echo -a Thank you for downloading sDVD-Player 2.2 $cr Type /dvdstart to begin! | set %s.control top | set %s.button 5 }
dialog dvd.about {
title "About sDVD Player 2.2"
icon $scriptdirdvd.ico
size -1 1 300 100
button "",55,0 0 0 0,cancel
text "sDVD ©2003-04 Soul_Eater",1, 50 30 200 20
text "nHTMLn by Necroman",2, 50 55 200 20
text "Contact: souleata@xrs.net AIM: SoulEata",3, 50 70 300 20
}
menu status,menubar,channel {
-
sDVD Player
.Options
..Controls
...$iif(%s.control == top,$style(1)) Top:set %s.control top
...$iif(%s.control == bottom,$style(1)) Bottom:set %s.control bottom
..Buttons
...$iif(%s.button == 12,$style(1)) Big:set %s.button 12
...$iif(%s.button == 5,$style(1)) Small:set %s.button 5
.sDVD:dvdstart
.About:dialog -md dvd.about dvd.about
-
}