Unnamed

alias F10 startaltscripts
alias startaltscripts dialog -m altscripts altscripts
dialog altscripts {
  title "AltScripts Info"
  size -1 -1 150 146
  option dbu
  text "AltScripts Information",1, 1 3 148 9, center
  tab "       Stats       ",2, 1 10 149 135
  tab "       News       ",3
  tab "Users Online Now",4
  text "",5, 4 25 140 8, tab 2
  text "",6, 4 34 140 8, tab 2
  text "",7, 4 43 140 8, tab 2
  text "",8, 4 52 140 8, tab 2
  text "",9, 4 61 140 8, tab 2
  text "",10, 4 70 140 8, tab 2
  text "",11, 4 88 140 50, tab 2
  text "",12, 4 25 140 100, tab 3
  link "Newest Post",13, 60 130 30 6, tab 3
  text "",14, 4 79 140 8, tab 2
  text "",15, 4 25 140 8, tab 4, center
  list 16, 4 45 140 100, tab 4
  text "Active Users",17, 4 34 146 10, tab 4, center
}
on *:DIALOG:altscripts:init:*:{
  sockopen stats www.altscripts.trap17.com 80
  sockopen bnews www.altscripts.trap17.com 80
}
on *:DIALOG:altscripts:sclick:13:{
  run %temp.link.4.da.script
}
on *:SOCKOPEN:Stats:{ 
  sockwrite -n $sockname GET /forum/index.php?action=stats  HTTP/1.1
  sockwrite -n $sockname Host: www.altscripts.trap17.com $+ $crlf $+ $crlf
} 
on *:SOCKREAD:Stats:{ 
  var %result | sockread -f %result
  set %pers.result $remove($htmlfree(%result),$chr(9))
  if (Average registrations per day: == %pers.result) {
    sockread -f %pers.result
    did -ra altscripts 5 Average registrations per day: $remove($htmlfree(%pers.result),$chr(9))
  }
  if (Average online per day: == %pers.result) {
    if (%pers.online != done) {
      sockread -f %pers.result
      did -ra altscripts 6 Average online per day: $remove($htmlfree(%pers.result),$chr(9))
      set %pers.online done
    }
  }
  if (Average posts per day: == %pers.result) {
    sockread -f %pers.result
    did -ra altscripts 7 Average posts per day: $remove($htmlfree(%pers.result),$chr(9))
  }
  if (Average topics per day: == %pers.result) {
    sockread -f %pers.result
    did -ra altscripts 8 Average topics per day: $remove($htmlfree(%pers.result),$chr(9))
  }
  if (Latest Member: == %pers.result) {
    sockread -f %pers.result
    did -ra altscripts 9 Latest Member: $remove($htmlfree(%pers.result),$chr(9))
  }
  if (Male to Female Ratio: == %pers.result) {
    sockread -f %pers.result
    did -ra altscripts 10 Male to Female Ratio: $remove($htmlfree(%pers.result),$chr(9))
  }
  if (*<td width="60%" valign="top">* iswm %result) {
    if (%pers.counter != $null) { inc %pers.counter 1 | set %pers.mem.line %pers.mem.line Number %pers.counter Poster: $+($remove($htmlfree(%result),$chr(9)),$chr(44)) }
    if (%pers.counter == $null) { set %pers.counter 1 | set %pers.mem.line Top Posters: Number %pers.counter Poster: $+($remove($htmlfree(%result),$chr(9)),$chr(44)) }
    if (%pers.counter == 10) {
      tokenize 32 %pers.mem.line
      var %o = 0
      while (%o < $0) {
        inc %o 1
        if (%o == $0) {
          set %pers.mem.done %pers.mem.done $replace($ [ $+ [ %o ] ],$chr(44),.)
          continue
        }
        set %pers.mem.done %pers.mem.done $ [ $+ [ %o ] ]
      }
      did -ra altscripts 11 %pers.mem.done | unset %pers.* | sockclose $sockname
    }
  }
}




alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
} 




on *:SOCKOPEN:bnews:{ 
  sockwrite -n $sockname GET /forum/index.php  HTTP/1.1
  sockwrite -n $sockname Host: www.altscripts.trap17.com $+ $crlf $+ $crlf
} 
on *:SOCKREAD:bnews:{ 
  var %result | sockread -f %result
  set %bnews.result $htmlfree(%result)
  set %mem1.result $remove($htmlfree(%result),$chr(9))
  if (function smfFooterHighlight(element, value) isin %mem1.result) { sockclose $sockname | unset %mem1.* | unset %bnews.* | halt }
  if ((%mem1.goahead == on) && (*Guest* iswm %mem1.result)) { did -ra altscripts 15 People Browsing AltScripts: %mem1.result $+ . }
  if ((%mem1.goahead == on) && (Users active in past 15 minutes:* iswm %mem1.result)) {
    set %mem1.result $replace(%mem1.result,:,$chr(32))
    tokenize 32 %mem1.result
    set %mem1.list $replace($7-,$chr(32),¿)
    tokenize 44 %mem1.list
    var %o = 0
    while (%o < $0) {
      inc %o 1
      did -a altscripts 16 $replace($ [ $+ [ %o ] ],¿,$chr(32))
    }
  }
  if (users online isin %mem1.result) { set %mem1.goahead on }
  var %sresult = $remove(%result,$chr(9))
  tokenize 32 %sresult
  if ($1-2 == Latest Post:) {
    set %bnews.link $remove(%sresult,Latest Post: &quot;<a href=")
    tokenize $asc(") %bnews.link
    set %temp.link.4.da.script $1
  }
  tokenize 32 %bnews.result
  if (*Posts in* iswm $1-3) {
    if (%bnews.goahead != $null) {
      did -ra altscripts 14 Overall: $remove($1,$chr(9)) posts, $4 topics, $7 members.
      tokenize 32 %bnews.var
      unset %bnews.goahead
      did -ra altscripts 12 Announcements: $qt($remove($1,$chr(32)) $2-)
    }
  }  
  if (%bnews.goahead == on) { set %bnews.var %bnews.var $replace(%bnews.result,$chr(9),$chr(32)) }
  if (Advanced search isin %bnews.result) { set %bnews.goahead on }
}