dialog raw {
  title "Raw Finder"
  size -1 -1 149 73
  option dbu
  box "Raw look up", 1, 2 2 145 69
  combo 2, 4 11 34 50, size drop
  list 4, 4 24 141 45, size hsbar
  button "Find", 5, 39 11 35 10, flat
  button "Echo Active", 6, 74 11 35 10, flat
  button "Clear", 7, 109 11 35 10, flat
}
menu menubar,channel {
  .Raw Look Up:{ dialog $iif($dialog(raw),-v,-mied) raw raw }
}
alias -l afree { var %b,%p | %p = $regsub($1-,/[^<]*>|<[^>]*>|<[^>]*/g,$chr(32),%b) | %b = $remove(%b,&nbsp;,&lt;,&gt;) | return %b }
alias -l r.spam { did -za raw 4 $+($chr(160),———=={Welcome to Napa182's Raw Finder}==———) | did -a raw 4 $+($str($chr(160),8),———=={A Script0rs Inc. Production}==———) | did -a raw 4 $+($str($chr(160),8),———=={Powered By Quakenet.org}==———) | did -za raw 4 $str($chr(160),20) $+($chr(40),$chr(31),$str($chr(175),3),$chr(176),$chr(32),$chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187),$chr(32),$chr(176),$str($chr(175),3),$chr(31),$chr(41),$chr(153)) }
on *:DIALOG:raw:init:0:{
  if (!%rawlook) { set %rawlook 001,002,003,004,005,008,211,212,213,214,215,216,217,218,219,221,223,243,244,247,248,249,250,251,252,253,254,255,256,257,258,259,263,265,266,271,272,280,281,284,285,286,287,288,289,290,291,301,302,303,305,306,311,312,313,314,315,317,318,319,321,322,323,324,329,330,331,332,333,338,340,341,346,347,351,352,353,354,355,364,365,366,367,368,369,371,372,374,375,376,381,382,384,385,391,396,401,402,403,404,405,406,407,408,409,411,412,413,414,416,421,422,423,431,432,433,436,437,438,439,441,442,443,451,461,462,464,465,467,471,472,473,474,475,477,478,479,481,482,483,485,489,491,501,502,511,512,ERROR,JOIN,KICK,MODE,NICK,NOTICE,PART,PING,PRIVMSG,QUIT,TOPIC }
  didtok $dname 2 44 %rawlook
  $r.spam
} 
on *:DIALOG:raw:sclick:*:{
  if ($did == 2) { did -e $dname 5 }
  if ($did == 7) { did -r $dname 4,2 | didtok $dname 2 44 %rawlook | $r.spam | did -b $dname 5 }
  if ($did == 6) { var %^ = $did(4).lines, %@ = 1 | while (%@ <= %^) { | echo 12 -a $did(4,%@).text | inc %@ } }
  if ($did == 5) { did -ra $dname 4 Looking up $iif($did(2).seltext isnum,[Numeric Raw $did(2).seltext $+ ],[Non Numeric Raw $did(2).seltext $+ ]) | unset %raw.* | if ($sock(rawlook)) .sockclose rawlook | set %raw.num $did(2).seltext | sockopen rawlook script.quakenet.org 80  } 
}
on *:SOCKOPEN:rawlook: {
  sockwrite -nt $sockname GET $+(/index.php?p=raws&a=,%raw.num) HTTP/1.1
  sockwrite -nt $sockname Host: script.quakenet.org
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rawlook: {
  if ($sockerr) { did -zra raw 4 Socket Error: $sockerr }
  else {
    var %z
    sockread %z
    if (*<tr><td class="RawsHeader1">* iswm %z) { set %raw.find $afree(%z) }
    if (*Format:* iswm %z) { set %raw.Format $afree(%z) }
    if (*Info:* iswm %z) { set %raw.info $afree(%z) }
    if (*Example:* iswm %z) { set %raw.examp $afree(%z) | did -zra raw 4 $iif($gettok(%raw.find,1,32) isnum, $+($chr(91),Numeric Raw,$chr(32),$gettok(%raw.find,1,32),$chr(93)), $+($chr(91),Non Numeric Raw,$chr(32),$gettok(%raw.find,1,32),$chr(93))) | did -za raw 4 $gettok(%raw.find,2,32) | did -za raw 4 %raw.Format | did -za raw 4 %raw.info | did -za raw 4 %raw.examp | unset %raw.* | sockclose rawlook }
  }
}