dialog Quote {
  title "Max's Quote Dialog"
  size -1 -1 160 136
  option dbu
  box "Quote", 1, 5 5 151 72
  text , 2, 11 15 139 56, center
  button "Get Another Quote", 3, 21 80 56 11
  button "Send Quote To Channel", 4, 51 107 67 11
  edit "", 5, 21 93 56 11, autohs
  button "Send Quote To Nick", 6, 78 93 67 11
  button "Close Dialog", 7, 65 122 36 11, ok cancel
  button "Copy Quote To Clipboard", 8, 78 80 67 11
}
 
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return %x }
 
alias qdialog {
  if (!$sock(quotationspage)) {
    sockopen quotationspage www.quotationspage.com 80
  }
}
on *:sockopen:quotationspage: {
  sockwrite -n $sockname GET /random.php3 HTTP/2.0
  sockwrite -n $sockname Host: www.quotationspage.com
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}
on *:sockread:quotationspage: {
  sockread %quotationspage
  if (<dt class="quote"> isin %quotationspage) {
    set %quote %quotationspage
  }
}
on *:sockclose:quotationspage: {
  set %author $htmlfree($gettok(%quote,19-,62))
  did -a Quote 2 $qt($remove($htmlfree(%quote),%author)) - %author
}
 
on *:Dialog:Quote:init:*: {
  qdialog
}
 
on *:Dialog:Quote:sclick:*: {
  if ($did == 3) { qdialog | unset %quot* %author }
  if ($did == 4) { msg $active $did(Quote,2).text }
  if ($did == 6) { msg $did(Quote,5) $did(Quote,2).text }
  if ($did == 8) { clipboard $did(Quote,2) }
}
 
 
Menu * {
  .Max's Quote Dialog: { dialog -m Quote Quote }
}

Commenting Options