##[M]ike's Script Downloader©##
##Copyright [M]ike 2007##


##Sockets
on *:SOCKOPEN:downloader.news: {
  sockwrite -nt $sockname GET /scriptdownloader/scriptdl.htm HTTP/1.1
  sockwrite -nt $sockname Host: ownagescape.co.uk
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:downloader.news: {
  if ($sockerr) {
    did -a script_dl 3 Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*<p>Updates:<br>* iswm %sockreader-1) {
      noop $regex(%sockreader,/<p>Updates:<br>(.*?)<\/body>/Si)
      set %downloader.news $nohtml($regml(1))
      unset %sockreader*
      unset %chan
      sockclose $sockname
    }
    if ($len($remove(%sockreader,$chr(9),$chr(32))) > 0) {
      var %x = 0
      while (%x > -1) {
        if ($len(%sockreader [ $+ [ $iif(%x != 0,$+(-,%x)) ] ]) <= 850) set %sockreader [ $+ [ $+(-,$calc(%x + 1)) ] ] %sockreader [ $+ [ $iif(%x != 0,$+(-,%x)) ] ]
        dec %x
      }
    }
  }
}

##Script
menu * {
  [M]ike's Script Downloader: scriptdownloader
}
alias scriptdownloader {
  dialog -md script_dl script_dl
}

dialog script_dl {
  title "[M]ike's Script Downloader"
  size -1 -1 265 205
  option dbu
  edit "Loading Script List.. Please Wait.", 1, 8 14 155 146, read multi vsbar
  button "Download Script!", 2, 36 169 84 25, disable
  edit "Loading News.. Please Wait.", 3, 179 18 77 86, read multi hsbar vsbar
  box "Script List", 4, 3 4 164 161
  box "Updates", 5, 176 7 85 101
  box "About", 6, 176 112 83 89
  edit "[M]ike's script downloader is an easy way for you to have access to all of [M]ike's published scripts, this script will display all of [M]ike's published scripts and let you download them simply.                                                        Email [M]ike: ConfusedConversation@Hotmail.com", 7, 179 119 77 76, read multi
}
on *:DIALOG:script_dl:init:0: {
  if ($sock(downloader.news)) .sockclose downloader.news
  sockopen downloader.news ownagescape.co.uk 80
  did -c script_dl 3
  did -a script_dl 3 %downloader.news
}