alias Jcfc { 
  dialog -m Jcfc Jcfc 
} 
dialog Jcfc {
  title "JcDialog"
  size -1 -1 235 210
  option dbu
  icon C:\Documents and Settings\Owner\My Documents\My Pictures\kyl3.bmp, 0
  icon 1, 175 0 60 51,  C:\Documents and Settings\Owner\My Documents\My Pictures\Signatures\Jcfc1.jpg, 0
  icon 16, 0 0 60 51,  C:\Documents and Settings\Owner\My Documents\My Pictures\Signatures\Jcfc1.jpg, 0
  icon 17, 63 8 108 37,  C:\Documents and Settings\Owner\My Documents\My Pictures\Signatures\12ic3.png, 0
  tab "General", 21, 78 196 70 13
  button "OK", 5, 29 179 37 12, tab 21 ok
  button "Cancel", 6, 159 179 37 12, tab 21 cancel
  text "Channels", 4, 192 69 25 8, tab 21
  button "#k-chat", 7, 183 80 37 12, tab 21
  button "#Jcfc", 8, 183 95 37 12, tab 21
  button "#Redbladehunters", 9, 175 110 54 12, tab 21
  button "#FishingGuild", 10, 183 125 37 12, tab 21
  text "Links", 3, 15 69 25 8, tab 21
  button "RBH forum", 14, 9 125 37 12, tab 21
  button "Add Note", 2, 96 53 37 12, tab 21
  edit "Monkfish Count", 18, 68 181 70 10, tab 21 center
  button "Add", 19, 138 180 18 12, tab 21
  text "Monkfish Count", 20, 84 173 52 8, tab 21
  combo 15, 54 66 118 98, tab 21 size
  button "RuneScape", 11, 9 80 37 12, tab 21
  button "Tip.it", 12, 9 95 37 12, tab 21
  button "Tip.it forum", 13, 9 110 37 12, tab 21
  tab "Price", 22
  text "Price script", 23, 93 47 32 8
  text "Item you want to lookup:", 24, 15 3 62 8 
  list 25, 15 19 187 124, size 
  edit "", 26, 95 3 50 9 
  button "Lookup", 27, 165 3 37 9 
  button "Close", 28, 90 146 37 12, cancel
}


on *:dialog:Jcfc:sclick:*: {
  if ($did == 7) { join #k-chat }
  if ($did == 8) { join #jcfc }
  if ($did == 9) { join #redbladehunters }
  if ($did == 10) { join #FishingGuild }
  if ($did == 11) { /run http://runescape.co.uk }
  if ($did == 12) { /run http://tip.it/runescape }
  if ($did == 13) { /run http://forum.tip.it }
  if ($did == 14) { /run http://z12.invisionfree.com/redbladehunters }
  if ($did == 2) { /did -a $dname 15 $did(15) }
  if ($did == 5) {
    if ($numtok(%data,64) == $did(15).lines) { /dialog -x Jcfc Jcfc }
    unset %data
    var %lines = $did(15).lines
    var %it = 1
    while (%it <= %lines) {
      set %data %data @ $did(15,%it)
      inc %it
    }
  }
  if ($did == 19) {
    set %monkfishcount $did(18)
    /did -r Jcfc 18
    /did -a Jcfc 18 %monkfishcount
  }
}

on *:dialog:Jcfc:init:0: {
  /did -r Jcfc 18
  /did -a Jcfc 18 %monkfishcount
  var %toks = $numtok(%data,64)
  var %it = 1
  while (%it <= %toks) {
    /did -a $dname 15 $gettok(%data,%it,64)
    inc %it
  }
}
menu * { 
  Price Dialog:/dialog -md price price 
} 
alias price { 
  dialog -md price price 
  did -a price 2 $1- 
} 
dialog price { 
  title "Price Dialog" 
  size -1 -1 218 162 
  option dbu 

  text "Item you want to lookup:", 1, 15 3 62 8 
  list 4, 15 19 187 124, size 
  edit "", 2, 95 3 50 9 

  button "Lookup", 3, 165 3 37 9 
  button "Close", 5, 90 146 37 12, cancel 

} 
On *:dialog:price:sclick:3: { 
  if (!$did(2)) { did -a price 4 Please specify the name of an item you want to look up. } 
  else { 
    if ($sock(price)) sockclose price 
    set %priceitem $replace($did(2),$chr(32),$chr(43)) 
    sockopen zybez-price www.zybez.net 80 
  } 
} 
On *:sockopen:zybez-price: { 
  sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ %priceitem $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1 
  sockwrite -nt $sockname Host: www.zybez.net 
  sockwrite -nt $sockname $crlf 
} 
On *:sockread:zybez-price: { 
  if ($sockerr) { 
    did -a price 4 Socket Error: $sockname $+ . 
    halt 
  } 
  else { 
    var %read 
    sockread %read 
    if (*<!--name--><td class='tablebottom'>* iswm %read) set %price1 $htmlfree(%read) 
    if (*<!--price--><td class="tablebottom">* iswm %read) set %price2 $htmlfree(%read) 
    if (*<td class="tablebottom"><a href="/priceguide.php?category=* iswm %read) { 
      set %price3 $htmlfree(%read) 
      did -a price 4 [Price] You searched for: %price1 $chr(124) Price: %price2 $chr(124) 
      did -a price 4 Category: $gettok(%price3,1,124) 
      sockclose $sockname 
      unsetall 
    } 
  } 
} 
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,amp;) | return %x }