$include $lib/gary'smufutils-lists
$include $lib/gary'smufutils-misc
$include $lib/alynna
$include $lib/www_utils
$include $lib/rp
$include $muf/Scrp/registry
  $def .tell descr @ swap notify_descriptor
  $def .tell2 descr2 @ swap notify_descriptor
  $def VERSION prog "_version" getpropstr 
  $def }chunk }array "" array_join descr @ swap notify_descriptor
  
var cookies
var player
(-----------------------------------)  
(-------------VARIBLES=-------------)  
(-----------------------------------)  
lvar descr  
lvar user  
lvar host  
lvar params
(-----------------------------------)  
(------------ACTUAL CODE------------)  
(-----------------------------------)
 
  : load_info
     "|" explode pop atoi descr ! host ! user ! params !
  ;
 
 
: exitfixup[ str:input -- str:output ]
input @ "`EXITS`" 
instr 25 = not if input @ exit then
0 var! x
input @ "" "`EXITS`" subst input !
"" var! output
input @ "[\[[1;33m" explode_array foreach var! val pop
   x @ not if val @ output ! x @ ++ x ! continue then
   val @ "]" split swap { over "<A Href=\"play?message=" swap "&Submit=Submit\"  target=\"commandframe\">" }cat swap strcat "</a>]" strcat swap strcat "[" swap strcat 
   output @ swap strcat output !
repeat
output @
;
 
: webnotify[ int:descr str:text -- ]
{ "^normal^" text @ strcat dup "<" instring 9 = not 
            if 
               fixup exitfixup
            else
               "" "^normal^" subst
            then
               "<br>" }cat .tell 
               "<SCRIPT LANGUAGE=\"javascript\">" .tell
               "window.scrollBy(0,50);" .tell
               "</SCRIPT>" .tell
;
 
: main (s -- ) 
command @ "listen" instring if
   var! text
   systime trigger @ "Last Web Presence" getstatint - 60 > if exit then
   trigger @ "Web Descr" getstatint dup descr? not if pop trigger @ "Web Descr" 0 setstat exit then var! descr2
   descr2 @ text @ webnotify
   trigger @ 
   trigger @ "Web Listen#/101" text @ setprop
   trigger @ "Web Listen#/101/Timestamp" systime_precise setprop
   90 var! x
   begin
    trigger @ "Web Listen#/" x @ 1 + intostr strcat getpropstr
    trigger @ "Web Listen#/" x @ intostr strcat rot setprop
    trigger @ "Web Listen#/" x @ 1 + intostr strcat "/Timestamp" strcat getprop tofloat
    trigger @ "Web Listen#/" x @ intostr strcat "/Timestamp" strcat rot setprop
    trigger @ "Web Listen#/" x @ 1 + intostr strcat "/Displayed?" strcat getprop toint
    trigger @ "Web Listen#/" x @ intostr strcat "/Displayed?" strcat rot setprop
    x @ 1 + x !
    x @ 101 =
   until
   exit
then
load_info
   event_wait pop dup var! data "data" array_getitem "HeaderData" array_getitem "Cookie" array_getitem dup string? not if pop { }dict else "; " explode_array { swap foreach swap pop "=" split repeat }dict then cookies !
   params @ "Update" instring not if
    "<SCRIPT LANGUAGE=\"javascript\">" .tell
    cookies @ "Session" array_getitem dup string? not if pop
       { "document.cookie = \"Session=" { systime_precise random }list "." array_join md5hash dup var! hash "\"" }cat .tell
       rpsys { "Web Logins/" hash @ "/Last Connect" }cat systime setprop
    else hash ! then
    rpsys { "Web Logins/" hash @ "/Last Connect" }cat getprop toint systime swap - 2 days > if
       { "document.cookie = \"Session=" { systime_precise random }list "." array_join md5hash dup hash ! "\"" }cat .tell
    then
    "</SCRIPT>" .tell
   else
   {
    "<SCRIPT LANGUAGE=\"javascript\">" 
    cookies @ "Session" array_getitem dup string? not if pop
       { "document.cookie = \"Session=" { systime_precise random }list "." array_join md5hash dup var! hash "\"" }cat
       rpsys { "Web Logins/" hash @ "/Last Connect" }cat systime setprop
    else hash ! then
    rpsys { "Web Logins/" hash @ "/Last Connect" }cat getprop toint systime swap - 2 days > if
       { "document.cookie = \"Session=" { systime_precise random }list "." array_join md5hash dup hash ! "\"" }cat
    then
    "</SCRIPT>"
   }chunk
   then
   hash @ not if
      cookies @ "Session" array_getitem hash !
   then
   rpsys { "Web Logins/" hash @ "/Last Connect" }cat systime setprop
   rpsys { "Web Logins/" hash @ "/Player" }cat getprop toint dup 0 = swap dbref dup player ! player? not or if "You should login to play." .tell 
                  "<A Href=\"http://sc.scworlds.net:8765/index\">Click Here</A>" .tell ( exit )
                  random 5 % case
                     0 = when #7887 end
                     1 = when #7559 end
                     2 = when #7610 end
                     3 = when #7616 end
                     4 = when #7631 end
                  endcase
                  player !
                  rpsys { "Web Logins/" hash @ "/Player" }cat player @ setprop
then
params @ "BackLog" instring 1 = if
   "<Body>" .tell
   "<SCRIPT LANGUAGE=\"javascript\">" .tell
   { "parent.document.form2.message.value = '" 
   player @ "Web Command Log#/" player @ "Command Recall" getstatstr strcat getpropstr
   "';" }cat .tell
   "parent.document.form2.message.focus();" .tell
   "</script>" .tell
   "</Body>" .tell
   player @ "Command Recall" getstatint 1 - 1 greater player @ "Command Recall" rot setstat
   exit
then
params @ "NextLog" instring 1 = if
   player @ "Command Recall" getstatint 1 + 10 lesser player @ "Command Recall" rot setstat
   "<Body>" .tell
   "<SCRIPT LANGUAGE=\"javascript\">" .tell
   { "parent.document.form2.message.value = '" 
   player @ "Web Command Log#/" player @ "Command Recall" getstatstr strcat getpropstr
   "';" }cat .tell
   "parent.document.form2.message.focus();" .tell
   "</script>" .tell
   "</Body>" .tell
   exit
then
params @ "Who" instring 1 = if
   "<Head>" .tell
   "<META HTTP-EQUIV=\"refresh\" CONTENT=\"5\">" .tell
"<link rel=\"stylesheet\" href=\"http://scross.homeip.net/example.css\" TYPE=\"text/css\" MEDIA=\"screen\">" .tell
"<link rel=\"stylesheet\" href=\"http://scross.homeip.net/example-print.css\" TYPE=\"text/css\" MEDIA=\"print\">" .tell
 
#0 "Web/Cookie Tabs#" array_get_proplist foreach .tell pop repeat
"<script type=\"text/javascript\">" .tell
#0 "Web/Tabber#" array_get_proplist foreach .tell pop repeat
"</script>" .tell
   "</Head>" .tell
   "<Body bgcolor=\"black\" style=\"color: white\">" .tell 
"<div class=\"tabber\" id=\"mytabber1\">" .tell
 
 "    <div class=\"tabbertab\">" .tell
 
 "  <h2>Room</h2>" .tell
   online_array dup array_union foreach var! cur pop
      cur @ location player @ location dbcmp not if continue then
      { cur @ name "<br>" }cat .tell
   repeat
     "</div>" .tell
 
 
     "<div class=\"tabbertab\">" .tell
   "<h2>Online</h2>" .tell
   online_array dup array_union foreach var! cur pop
      cur @ descrleastidle dup -1 = if pop else descridle 600 > if continue then then
      { cur @ name "<br>" }cat .tell
   repeat
 
     "</div>" .tell
 
 
"</div>" .tell
"</body>" .tell
   exit
then
params @ "Update" instring if 
   player @ "@alisten/Web" prog tostr setprop
   {
   "<Head>" "<META HTTP-EQUIV=\"refresh\" CONTENT=\"5\">" "</Head>"
   "<Body bgcolor=\"black\">" 
player @ "Web Descr" descr @ setstat
( Alynna: )   "<code style=\"word-wrap: break-word; white-space: pre-wrap; color: white\" width=\"100%\">"
              "<font color=\"white\">"
   }chunk
   90 100 1 for var! x
      { "^normal^" player @ "Web Listen#/" x @ intostr strcat getpropstr strcat dup "<" instring 9 = not 
      if fixup exitfixup
      else
         "" "^normal^" subst
      then
      "<br>" }chunk
   repeat systime_precise var! time
   begin
(
      systime_precise player @ "Web Listen#/100/timestamp" getprop tofloat - 1.0 > not if continue then
)
      0 var! found 1 100 1 for var! x
(         Player @ "Web Listen#/" x @ intostr strcat "/Displayed?" strcat getprop not if 
         Player @ "Web Listen#/" x @ intostr strcat "/Timestamp" strcat getprop tofloat dup time @ > if
            1 found ! time !
            { "^normal^" player @ "Web Listen#/" x @ intostr strcat getprop tostr strcat dup "<" instring 9 = not 
            if 
               fixup exitfixup
            else
               "" "^normal^" subst
            then
               "<br>" }chunk
                           {
                "<SCRIPT LANGUAGE=\"javascript\">"
                "window.scrollBy(0,50);"
                "</SCRIPT>"
                           }chunk
               Player @ "Web Listen#/" x @ intostr strcat "/Displayed?" strcat 1 setprop
         else pop then
)
         player @ "Last Web Presence" systime setstat
      repeat
      ( found @ if systime_precise time ! then )
      1 sleep
   repeat
   {
   "</font></code>"
   "</Body>" 
   }chunk
   { "" }chunk
   exit
then
params @ "Message" instring if
   params @ "=" debug_line split swap pop 
   dup "&Submit" instring if "&Submit=Submit" split pop then
   cleanup ( "Public " swap strcat )
   dup "*&" smatch if dup strlen 1 - strcut pop then ( "(WEB)" strcat ) 
   dup " " instring 1 = if 1 strcut swap pop "+" swap strcat then
   dup text !
   player @ toint dbref swap force
   player @ toint dbref "Last Web Action" systime setstat
   player @ toint dbref "Last Web Presence" systime setstat
   player @ "Web Command Log#/11" text @ setprop
   1 var! x
   begin
    player @ "Web Command Log#/" x @ 1 + intostr strcat getpropstr
    player @ "Web Command Log#/" x @ intostr strcat rot setprop
    x @ 1 + x !
    x @ 11 =
   until
   player @ "Command Recall" 10 setstat
   exit
then
#261
descr @ "Play" wwwUtils.displayheader
(
   #0 "_connect/" array_get_propvals foreach var! val var! cur
      player @ toint dbref me ! me @ "Queued Event." command ! "_Connect/" cur @ strcat #0 "Connect"  propqueue
   repeat
)
player @ toint dbref player !
player @ player? not if #7887 player ! then
( player @ toint dbref "look" force )
"<IFRAME name=\"commandframe\" id=\"commandframe\" src=\http://sc.scworlds.net:8765/play?message=look&Submit=Submit\" width=\"10\" height=\"10\" Frameborder=0 align=\"Right\">" .tell
"Yo</IFRAME>" .tell
 
0 sleep player @ location #-1 { "^cyan^" player @ name " has connected." }cat ansi_notify_except
player @ toint dbref "Last Web Presence" systime setstat
player @ toint dbref "Last Web Action" systime setstat
"</td></tr>" .tell 
#0 "Web/Form Without Reload Play#" array_get_proplist foreach .tell pop repeat
( "<SCRIPT LANGUAGE=\"javascript\">" "</SCRIPT>" )
"<tr><td width=\"90%\" height=\"400\">" .tell
"<IFRAME id=\"frame1\" src=\http://sc.scworlds.net:8765/play?Update\" width=\"100%\" height=\"100%\" Frameborder=1 align=\"left\" style=\"overflow-x: hidden; overflow-y: scroll\">" .tell
"</IFRAME>" .tell
"</td><td width=\"10%\" height=\"400\">" .tell
"<IFRAME id=\"frame1\" src=\http://sc.scworlds.net:8765/play?Who\" width=\"100%\" height=\"100%\" Frameborder=1 align=\"Right\">" .tell
"</IFRAME>" .tell
"</td></tr><tr>" .tell
"<td colspan='2'>" .tell 
"<form action=\"chat\" Method=\"Get\" name=\"form2\" id=\"form2\" onSubmit=\"document.getElementById('Chatsubmit').click(); return false;\">" .tell
"<table width='100%'><tr>" .tell
"<td width='10%' align='right' valign='top'>Command: </td>" .tell
"<td width='80%' align='right' valign='top'><input id='message' name=\"message\" type=\"text\" style='width:100%;' id=\"message\"><br><A Href=\"play?BackLog&Submit=Submit\"  target=\"commandframe\">Back</a> <A Href=\"play?NextLog&Submit=Submit\"  target=\"commandframe\">Next</a></td>" .tell
"<td width='10%' align='left' valign='top' width=\"10%\"><input type=\"button\" id=\"Chatsubmit\" name=\"Submit\" value=\"Submit\" onClick=\"getIDs(['message', 'Chatsubmit']); document.form2.message.value = ''; self.focus(); document.form2.message.focus();\">" .tell
"</td></tr></table></form>" .tell
"</td></tr></table>" .tell
descr @ wwwUtils.displayfooter
;
 
(
"<script type=\"text/javascript\">" .tell
"function sender()" .tell
"{" .tell 
"javascript:get(this.parentNode);" .tell
"document.form2.message.value = '';" .tell
"self.focus();" .tell
"document.form2.message.focus()" .tell
"}" .tell
"" .tell
"Event.observe(\"form2\",\"submit\", sender() )" .tell
"</script>" .tell
)
(      "<input type=\"submit\" name=\"Submit\" value=\"Submit\">" .tell )