#!/usr/bin/perl print "Content-type: text/html\n\n"; open(count,"count.txt"); @total = ; $to = $total[0]; $to++; close(count); open(count2,">count.txt"); print count2 "$to"; close(count2); if((index($ENV{'HTTP_USER_AGENT'},"WebTV",0)) == -1) {print "Error: This file cannot be sourced because you suck dick!"; exit;} $back = $ENV{'HTTP_REFERER'}; $cookie = $ENV{'HTTP_COOKIE'}; $cookie .= ";"; $emb = "blank.html"; $eb = (index($cookie,"EMBED=",0)); if($eb ne -1){$ebb = (index($cookie,";",$eb)); $ebbb = $ebb - $eb - 6; $emb = (substr($cookie,$eb + 6,$ebbb));} $SS = 0; $Sx = (index($cookie,"TIMES=",0)); if($Sx ne -1){$Sxx = (index($cookie,";",$Sx)); $Sxxx = $Sxx - $Sx - 6; $SS = (substr($cookie,$Sx + 6,$Sxxx));} $MM = 0; $Mx = (index($cookie,"TIMEM=",0)); if($Mx ne -1){$Mxx = (index($cookie,";",$Mx)); $Mxxx = $Mxx - $Mx - 6; $MM = (substr($cookie,$Mx + 6,$Mxxx));} $HH = 0; $Hx = (index($cookie,"TIMEH=",0)); if($Hx ne -1){$Hxx = (index($cookie,";",$Hx)); $Hxxx = $Hxx - $Hx - 6; $HH = (substr($cookie,$Hx + 6,$Hxxx));} $text1 = "white"; $tx = (index($cookie,"TEXT1=",0)); if($tx ne -1){$txx = (index($cookie,";",$tx)); $txxx = $txx - $tx - 6; $text1 = (substr($cookie,$tx + 6,$txxx));} $text2 = "black"; $ty = (index($cookie,"TEXT2=",0)); if($ty ne -1){$tyy = (index($cookie,";",$ty)); $tyyy = $tyy - $ty - 6; $text2 = (substr($cookie,$ty + 6,$tyyy));} $table = "black"; $ta = (index($cookie,"TABLES=",0)); if($ta ne -1){$taa = (index($cookie,";",$ta)); $taaa = $taa - $ta - 7; $table = (substr($cookie,$ta + 7,$taaa));} $ig = (index($cookie,"IGNORE=",0)); if($ig ne -1){$igg = (index($cookie,";",$ig)); $iggg = $igg - $ig - 7; $ignore = (substr($cookie,$ig + 7,$iggg));} $x = (index($cookie,"SCRIPTV=",0)); if($x ne -1){$xx = (index($cookie,";",$x)); $xxx = $xx - $x - 8; $xscript = (substr($cookie,$x + 8,$xxx));} $h = (index($cookie,"HOST=",0)); if($h ne -1){$hh = (index($cookie,";",$h)); $hhh = $hh - $h - 5; $fh = (substr($cookie,$h + 5,$hhh));} $p = (index($cookie,"PORT=",0)); if($p ne -1){$pp = (index($cookie,";",$p)); $ppp = $pp - $p - 5; $fp = (substr($cookie,$p + 5,$ppp));} $r = (index($cookie,"ROOM=",0)); if($r ne -1){$rr = (index($cookie,";",$r)); $rrr = $rr - $r - 5; $fr = (substr($cookie,$r + 5,$rrr));} $bg = "black"; $cbg = "black"; $q = (index($cookie,"BGCOLOR=",0)); if($q != -1) {$qq = (index($cookie,";",$q)); $qqq = $qq - $q - 8; $bg = (substr($cookie,$q + 8,$qqq));} $qt = (index($cookie,"CHATCOLOR=",0)); if($qt != -1) {$qqt = (index($cookie,";",$qt)); $qqqt = $qqt - $qt - 10; $cbg = (substr($cookie,$qt + 10,$qqqt));} $host = "document.chatroom.server.value"; $room = "document.chatroom.channel.value"; $port = "document.chatroom.number.value"; $fo = "text=$text1 nobackground cursor=$text1 font=proportional nohighlight autoactivate border=0"; $bo = "borderimage=\"file://rom/borders/buttonborder2.bif\" text=white"; print <ScripTV IRC
Site hosted by Angelfire.com: Build your free website today!
"); document.screen.document.close(); document.cookie = "ROOM=" + room + "; expires = Monday, 04-Apr-2010 5:00:00GMT"; document.cookie = "HOST=" + host + "; expires = Monday, 04-Apr-2010 5:00:00GMT"; document.cookie = "PORT=" + port + "; expires = Monday, 04-Apr-2010 5:00:00GMT"; } keeptimer(); } var minu = 0; var seco = 0; var reason = ""; var goneat = ""; var on = ""; function afk() { on = "yes"; minu = 0; seco = 0; reason = document.chatbar.chmg.value.substring(5); Chat.addChannelMessage(reason + " AFK"); goneat = document.clock.count.value; goafk(); keeptime(); } function keeptime() { seco++; if(seco == "60"){seco = 0; minu++;} if(on == "yes"){setTimeout("keeptime()", 1000);} else{Chat.addChannelMessage("Returned from " + reason + " gone since " + goneat + " for " + minu + " minutes, " + seco + " seconds");} } function goafk() { if(on == "yes"){Chat.addChannelMessage("/me is AFK, " + reason + " since " + goneat); setTimeout("goafk()", 180000);} } function priv() { window.open("whisper.panel"); } var ignore = "$ignore"; function msg() { var talk = document.chatbar.chmg.value; var t = talk.toLowerCase(); if(talk.substring(0,1) != "/"){document.info.status.value = "Last Message: " + talk;} else{ last = "Last Command: "; stat = "Unknown Command"; if(t.substring(0,3) == "/bg"){if(t.substring(4) != "") {stat = "Change Background to " + talk.substring(4); document.bgColor = talk.substring(4); document.cookie = "BGCOLOR=" + talk.substring(4) + "; exipres = Monday, 04-Apr-2010 5:00:00GMT";} else{last = "Error-04: "; stat = "Background Color not specified";} talk = "";} if(t == "/fix"){stat = "Use Music Fixed Version (slower)"; keeptimer(); talk = ""; parent.location = "scriptv2.pl";} if(t.substring(0,7) == "/search"){stat = "Search for " + talk.substring(8); talk = "/whois *" + t.substring(8) + "*";} if(t.substring(0,4) == "/afk"){afk(); stat = "AFK Bot On, Type //afk to turn off, Reason: " + t.substring(5); talk = "";} if(t == "//afk"){on = "no"; stat = "AFK Bot Off, Welcome back!"; talk = "";} if(t.substring(0,3) == "/pm") { stat= "Perminate Private Message Mode ON, Nick: " + talk.substring(4); pn = "/msg " + talk.substring(4) + " "; talk = ""; } if(t.substring(0,4) == "//pm") { stat = "Perminate Private Message Mode OFF"; pn = ""; talk = ""; } if(t == "/list"){last = "Command List:"; stat = " /afk    //afk        /alarm        /bg  /buddy          /chatbg  /close          /edit /erasei      /fix      /join     /help /im       /loadi        /msgbox1        /msgbox2 /music          /pm       //pm            /quit /reload         /safe          /script         /snooze /table   /text1   /text2   /viewi /clone    More coming soon!"; talk = "";} if(t == "/quit") { keeptimer(); parent.location = "$back"; } if(t.substring(0,3) == "/im") {stat = "Start a conversation with " talk.substring(4); Blim.openConversation(talk.substring(4)); Blim.openMessagesPanel(); } if(t.substring(0,9) == "/chattext") {stat = "Change chat text color to " + talk.substring(10); ctex = "yes"; ctext = t.substring(10); talk = "";} if(t == "/edit") { parent.location = "script.pl"; } if(t.substring(0,6) == "/text2"){ if(t.substring(7) != "") {stat = "Change text color 2 to " + talk.substring(7); document.cookie = "TEXT2=" + talk.substring(7) + "; expires = Monday, 04-Apr-2010 5:00:00GMT"; keeptimer(); parent.location = history.go();} else{last = "Error-03: "; stat = "Color not defined";} talk = "";} if(t.substring(0,6) == "/text1"){ if(t.substring(7) != "") {stat = "Change text color 1 to " + talk.substring(7); document.cookie = "TEXT1=" + talk.substring(7) + "; expires = Monday, 04-Apr-2010 5:00:00GMT"; keeptimer(); parent.location = history.go();} else{last = "Error-03: "; stat = "Color not defined";} talk = "";} if(t.substring(0,6) == "/table"){ if(t.substring(7) != "") {stat = "Change table color to " + talk.substring(7); document.cookie = "TABLES=" + talk.substring(7) + "; expires = Monday, 04-Apr-2010 5:00:00GMT"; keeptimer(); parent.location = history.go();} else{last = "Error-03: "; stat = "Color not defined";} talk = "";} if(t == "/safe") { talk = ""; document.screen.document.open(); document.screen.document.write("You are now safe from flooders. Type /reload or click connect to restart chat"); document.screen.document.close(); stat = "Secure yourself from flooders";} if(t == "/reload") {connect(); talk = ""; stat = "Refresh the chat screen";} if(t.substring(0,6) == "/check") {document.chatbar.chmg.value = ""; if(t.substring(7) != ""){ stat = "Check for " + t.substring(7); if(find(t.substring(7)) == true) {parent.location = "file://romcache/music/Splash.mid"}} else{stat = "Error-05: Nick name not specified";} talk = "";} if(t.substring(0,6) == "/clone"){ r = t.indexOf(" ",7); q = t.indexOf(" ",r + 1); s = talk.substring(7,r); c = talk.substring(r + 1,q); x = talk.substring(r + 1); stat = "Clone " + c; talk = "/me " + s + " " + "                    " + x;} if(t.substring(0,5) == "/surf"){if(t.substring(6) != ""){stat = "Surf to " + t.substring(6); document.extra.src = t.substring(6); document.cookie = "EMBED="+t.substring(6)+"; expires = Monday, 04-Apr-2010 5:00:00GMT"; } else{stat = "Error-04:URL not defined";} talk = "";} if(t.substring(0,5) == "/join"){if(t.substring(6) != "") {stat = "Join room " + t.substring(6); $room = talk.substring(6); connect();} else{last = "Error-04: "; stat = "Room not specified";} talk = "";} if(t.substring(0,7) == "/chatbg"){if(t.substring(8) != ""){stat = "Change Chat Background Color to " + talk.substring(8); chatbg = talk.substring(8); document.screen.document.bgColor = chatbg; document.cookie = "CHATCOLOR=" + chatbg + "; expires = Monday, 04-Apr-2010 5:00:00GMT";} else{last = "Error-03: "; stat = "Color not specified";} talk = "";} if(t.substring(0,6) == "/alarm"){setalarm(); talk = ""; stat = "Set alarm to " + alarm + " Reason:" + alarmreas;} if(t == "/snooze"){stat = "Turn Alarm Off"; snooze(); talk = "";} if(t.substring(0,5) == "/help"){talk = ""; last = "Help: "; stat = "Unknown help command"; var tt = t.substring(6); if(tt == "/text2"){stat = "Changes the secondary text color of your choice and displays it everytime you come to this irc";} if(tt == "/viewi"){stat = "Views your current \\"Saved\\" ignore list";} if(tt == "/clone"){stat = "Gives the illusion of cloning someone in chat. Type a one word message for you to say, then the nick you are wanting to clone then the message the\\"cloned\\" nick will say. Example: /clone hi! ScripTV I love this IRC";} if(tt == "/list"){stat = "Gives a list of all the commands this IRC features";} if(tt == "/msgbox2"){stat = "Opens up advanced Message boxes with scroll down menu and textarea message box";} if(tt == "/msgbox1"){stat = "Opens up the message boxes with saved nicks below your screen";} if(tt == "/music"){stat = "Opens your saved Music Track feature";} if(tt == "/quit"){stat = "Ends this session of chat and takes you back to your home";} if(tt == "/reload"){stat = "Refreshes the chat screen";} if(tt == "/safe"){stat = "Ends the chat screen and takes you to a safe spot to sit and wait out the flooders";} if(tt == "/script"){stat = "Calls upon your custom script you have created from the custom script editor";} if(tt == "/snooze"){stat = "Turns off the alarm clock";} if(tt == "/table"){stat = "Changes the back ground color of the main chat area";} if(tt =="/text1"){stat = "Changes the main text color to that of your choice to display everytime you come to this IRC";} if(tt == "/afk"){stat = "Turns on the Away from keyboard bot that logs the time you are away and gives the reason you are gone. Example: /afk dinner time";} if(tt == "//afk"){stat = "Turns off the Away from keyboard bot and displays the time you were away, reason, and the time you had turned on the AFK bot";} if(tt == "/pm"){stat = "Turns the Perminate private message mode on, the nick is after the /pm. Now every message will go to the specified nick. To turn it off type //pm. Commands can still be done in this mode";} if(tt == "//pm"){stat = "Turns the Perminate private message mode off";} if(tt == "/alarm"){stat = "Turns the alarm on and displays an alert when the given time has been reached. Enter time as 9:09:09 as an example";} if(tt == "/bg"){stat = "Changes the back ground color to your choice to be displayed evertime you use the IRC. You may change it whenever you wish";} if(tt == "/buddy"){stat = "Displays the buddy list feature below you";} if(tt == "/chatbg"){stat = "Changes the back ground color of the chat screen to your choice to be displayed everytime you connect to a room. You may change it whenever you wish";} if(tt == "/close"){stat = "Closes the current tool under the chat bar";} if(tt == "/edit"){stat = "Goes to the edit/create your own custom script program. If you do not already have a script, a new file will appear an be created for you. If you do have a script, your current one will be displayed for editing";} if(tt == "/erasei"){stat = "Erases and unignores everyone on your current ingore list";} if(tt == "/fix"){stat = "Goes to the fixed and a bit slower version of ScripTV IRC to liste to music onflawlessly";} if(tt == "/help"){stat = "Gives information on a command that you are having trouble with";} if(tt == "/im"){stat = "Starts a Conversation with someone with MSN IM";} if(tt == "/loadi"){stat = "Loads your current ignore list and ignores everyone on it at once";} if(tt == "/list"){stat = "Displays all of the current commands available on this IRC";} } if(t == "/script"){if("$xscript" == ""){stat = "Error-02: You must create and save a script. Type \\"/help /script\\" for more details";} else{stat = "Open Custom Script"; document.extra.src = "scripts/$xscript\.htm";} document.cookie = "EMBED=scripts/$xscript\.html; expires = Monday, 04-Apr-2010 5:00:00GMT"; talk = "";} if(t == "/music"){stat = "Open Up Saved Music"; document.extra.src = "music.pl"; document.cookie = "EMBED=music.pl; expires = Monday, 04-Apr-2010 5:00:00GMT"; talk = "";} if(t == "/close"){stat = "Close Tools Window"; document.extra.src = "blank.htm"; document.cookie = "EMBED=blank.html; expires = Monday, 04-Apr-2010 5:00:00GMT"; talk = "";} if(t == "/buddy"){stat = "Open Buddy List"; document.extra.src = "buddy.pl"; document.cookie = "EMBED=buddy.pl; expires = Monday, 04-Apr-2010 5:00:00GMT"; talk = "";} if(t.substring(0,4) == "/who"){stat = "List of Chatters";} if(t.substring(0,5) == "/msg "){stat = "Private Message";} if(t == "/msgbox2") {talk = ""; document.extra.src = "msgbox2.pl"; stat = "Open up Advanced Message Box"; document.cookie = "EMBED=msgbox2.pl; expires = Monday, 04-Apr-2010 5:00:00GMT"; } if(t == "/msgbox1"){document.extra.src = "msgbox.pl"; stat = "Open Message Boxes"; document.cookie = "EMBED=msgbox.pl; expires = Monday, 04-Apr-2010 5:00:00GMT"; talk = "";} if(t.substring(0,3) == "/me"){stat = "Action";} if(t.substring(0,7) == "/erasei"){if(ignore == ""){stat = "Error-06:Ignore list empty";} else{ign = " " + ignore; stat = "Load ignore list "; z = 1; while(z != 0) {k = ign.indexOf(",",z); ke = ign.substring(z,k); z = k + 1; Chat.addChannelMessage("/ignore -" + ke);} document.cookie = "IGNORE=; expires = Monday, 04-Apr-2010 5:00:00GMT"; ignore = "";} talk = "";} if(t == "/viewi"){last = "View Ignore List "; last = ignore; if(ignore == ""){last = "Error-06: "; stat = "Ignore list empty";} talk = "";} if(t == "/loadi") {if(ignore == ""){last = "Error-06: "; stat = "Ignore list empty";} else{ign = " " + ignore; stat = "Load ignore list "; z = 1; while(z != 0) {k = ign.indexOf(",",z); ke = ign.substring(z,k); z = k + 1; Chat.addChannelMessage("/ignore " + ke);}} talk = "";} if(t.substring(0,7) == "/ignore"){if(t.substring(0,9) == "/ignore -"){stat = "Unignore " + talk.substring(10);} else{stat = "Ignore " + talk.substring(8); ignore = ignore + talk.substring(8) + ","; document.cookie = "IGNORE=" + ignore + "; expires = Monday, 04-Apr-2010 5:00:00GMT";}} if(t.substring(0,6) == "/whois"){stat = "Who is " + talk.substring(7);} if(t.substring(0,6) == "/topic"){stat = "Change topic to " + talk.substring(7);} document.info.status.value = last+ stat; if(stat == "Unknown Command"){talk = "";} } Chat.addChannelMessage(pn + talk); document.chatbar.chmg.value = ""; } var pn = ""; var alarmreas = ""; var alarm = ""; function setalarm() { alarmreas = document.chatbar.chmg.value.substring(7); alarm = prompt("Enter time you want alarm set to","9:00:00"); } function snooze() { alarmreas = ""; alarm = ""; } var ctex = "no"; var ctext = ""; function tictoc() { var digital = new Date(); var ho = digital.getHours(); if(ho > 12){h = ho - 12;} if(ho < 13){h = ho;} var mi = digital.getMinutes(); if(mi < 10){m = "0" + mi;} if(mi > 9){m = mi;} var se = digital.getSeconds(); if(se < 10){s = "0" + se;} if(se > 9){s = se;} document.clock.count.value = h + ":" + m + ":" + s; if(document.clock.count.value == alarm) {alert("Time to " + alarmreas);} if(ctex = "yes") {document.screen.fgColor = ctext;} setTimeout("tictoc()", 1000); } tictoc(); var urmin = $MM\; var ursec = $SS\; var urhour = $HH\; function keeptimer() { var D = new Date(); var M = D.getMonth(); var Da = D.getDate(); var Dy = D.getDay(); var T = T.getTimezoneOffset(); Dy++; if(Dy == 7){Dy = 0;} Da++; if(Dy == 0){Dy = "Sunday";} if(Dy == 1){Dy = "Monday";} if(Dy == 2){Dy = "Tuesday";} if(Dy == 3){Dy = "Wednesay";} if(Dy == 4){Dy = "Thursday";} if(Dy == 5){Dy = "Friday";} if(Dy == 6){Dy = "Saturday";} if(M == 0){M = "Jan";} if(M == 1){M = "Feb";} if(M == 2){M = "Mar";} if(M == 3){M = "Apr";} if(M == 4){M = "May";} if(M == 5){M = "Jun";} if(M == 6){M = "Jul";} if(M == 7){M = "Aug";} if(M == 8){M = "Sep";} if(M == 9){M = "Oct";} if(M == 10){M = "Nov";} if(M == 11){M = "Dec";} document.cookie = "TIMES=" + ursec + "; expires = " + Dy + ", " + Da + "-" + M + "-2000 " + T + ":00:00GMT"; document.cookie = "TIMEM=" + urmin + "; expires = " + Dy + ", " + Da + "-" + M + "-2000 " + T + ":00:00GMT"; document.cookie = "TIMEH=" + urhour + "; expires = " + Dy + ", " + Da + "-" + M + "-2000 " + T + ":00:00GMT"; } function timekeeper() { ursec++; if(ursec >= 60){ursec = 0; urmin++; if(urmin >= 60){urmin = 0; urhour++;}} if(ursec < 10){urs = "0" + ursec;} if(urmin < 10){urm = "0" + urmin;} if(urhour < 10){urh = "0" + urhour;} if(ursec > 10){urs = ursec;} if(urmin > 10){urm = urmin;} if(urhour > 10){urh = urhour;} window.status = "Chat Time for Today: " + urh + ":" + urm + ":" + urs; setTimeout("timekeeper()", 1000); } timekeeper(); document.write("");