dialog price { 
  title "Price Lookup" 
  size -1 -1 204 142 
  option dbu 
  text "Price lookup By JYANG", 1, 159 8 31 14 
  button "Ok", 2, 169 127 32 12, ok cancel 
  text "Item to look up:", 3, 7 13 40 8 
  edit "", 4, 51 12 76 9, center 
  button "Search", 5, 132 11 21 11 
  list 6, 5 24 194 88, size 
  radio "Lookup Prices", 7, 6 3 50 8 
  radio "Track Prices", 8, 104 3 50 8 
  text "Track Item:", 9, 19 13 28 8 
  button "Track First Item", 10, 6 113 42 12 
  button "Clear Tracking", 11, 51 127 37 12 
  button "Stop Tracking", 12, 6 127 42 12, multi 
  button "List Tracked", 13, 51 113 37 12 
  button "Refresh All", 14, 90 113 38 12 
  button "Settings", 15, 130 113 37 12 
  button "Help", 16, 130 127 37 12 
  button "Clear - Confirm", 17, 90 127 38 12 
} 
dialog pricesettings { 
  title "Price - Settings" 
  size -1 -1 84 123 
  option dbu 
  box "Refresh the Results", 1, 4 8 74 40 
  check "On Startup of the dialog", 2, 7 17 69 10 
  check "Refresh All button", 4, 7 27 64 10, disable 
  button "Ok", 5, 42 107 37 12, ok cancel 
  box "Start the dialog", 6, 4 50 74 22 
  check "On Startup of mIRC", 7, 7 58 64 10 
  box "Start on", 8, 4 74 74 31 
  radio "Lookup Prices", 9, 7 81 50 10, group 
  radio "Track Prices", 10, 7 91 50 10, group 
  check "Selected Track Prices", 3, 7 37 66 10 
} 
on *:start: { 
  if (!$exists(pricetrack.ini)) { 
    writeini pricetrack.ini settings start lookup 
    writeini pricetrack.ini settings startmirc off 
    writeini pricetrack.ini settings startresults off 
  } 
  if ($readini(pricetrack.ini,settings,startmirc) == on) { 
    pricedialog 
  } 
} 
on *:dialog:pricesettings:init:0: { 
  did -c pricesettings 4 
  if ($readini(pricetrack.ini,settings,starttrack) == on) { 
    did -c pricesettings 3 
  } 
  if ($readini(pricetrack.ini,settings,startmirc) == on) { 
    did -c pricesettings 7 
  } 
  if ($readini(pricetrack.ini,settings,start) == lookup) { 
    did -c pricesettings 9 
  } 
  if ($readini(pricetrack.ini,settings,start) == track) { 
    did -c pricesettings 10 
  } 
  if ($readini(pricetrack.ini,settings,startresults) == on) { 
    did -c pricesettings 2 
  } 
} 
on *:dialog:pricesettings:sclick:*: { 
  if ($did == 3) { 
    if ($did(3).state) { 
      writeini pricetrack.ini settings starttrack on 
    } 
    else { writeini pricetrack.ini settings starttrack off } 
  } 
  if ($did == 9) { 
    writeini pricetrack.ini settings start lookup 
  } 
  if ($did == 10) { 
    writeini pricetrack.ini settings start track 
  } 
  if ($did == 7) { 
    if ($did(7).state) { 
      writeini pricetrack.ini settings startmirc on 
    } 
    else { writeini pricetrack.ini settings startmirc off } 
  } 
  if ($did == 2) { 
    if ($did(2).state) { 
      writeini pricetrack.ini settings startresults on 
    } 
    else { writeini pricetrack.ini settings startresults off } 
  } 
} 
on *:dialog:price:sclick:*: { 
  if ($did == 16) { 
    did -b price 6,7,8 
    did -m price 4 
    did -r price 6 
    if ($sock(price.help)) { sockclose price.help } 
    sockopen price.help x.jooldesigns.net 80 
  } 
  if ($did == 15) { 
    dialog -ma pricesettings pricesettings 
  } 
  if ($did == 6) { 
    if (*2P* iswm $did(6).seltext) { 
      did -ra price 4 $replace($gettok($remove($did(6).seltext,[F2P],[P2P],:),1,32),$chr(95),$chr(32)) 
    } 
    elseif (*_* iswm $did(6).seltext) && (Unable != $gettok($did(6,3).seltext,1,32)) && (Searching != $gettok($did(6,3).seltext,1,32)) && (The != $gettok($did(6,3).seltext,1,32)) && ([ != $gettok($did(6,3).seltext,1,32)) { 
      did -ra price 4 $replace($gettok($remove($did(6).seltext,[F2P],[P2P],:),1,32),$chr(95),$chr(32)) 
    } 
  } 
  if ($did == 5) && ($did(7).state) { 
    if ($did(4)) && ($did(4) != No Item Specified) { 
      did -b price 6,7,8 
      if ($sock(price.dialog)) { sockclose price.dialog } 
      set %sent 0 
      set %total 0 
      did -ra price 4 $upper($did(4)) 
      did -m price 4 
      did -r price 6 
      did -a price 6 Searching for the item: $chr(91) $+ $did(4) $+ $chr(93) in the Zybez Price Database. 
      sockopen price.dialog zybez.net 80 
    } 
    else { did -ra price 4 No Item Specified } 
  } 
  if ($did == 5) && ($did(8).state) { 
    if ($did(4)) && ($did(4) != No Item Specified) { 
      did -b price 6,7,8 
      if ($sock(price.dialog)) { sockclose price.dialog } 
      set %sent 0 
      set %total 0 
      did -ra price 4 $upper($did(4)) 
      did -m price 4 
      did -r price 6 
      did -a price 6 Searching for the item: $chr(91) $+ $did(4) $+ $chr(93) in the Zybez Price Database. 
      sockopen price.dialog zybez.net 80 
    } 
    else { did -ra price 4 No Item Specified } 
  } 
  if ($did == 7) { 
    did -ra price 6 You currently selected Price Lookup. 
    did -b price 10,11,12,13,14 
    did -v price 3 
    did -h price 9 
    did -r price 4 
  } 
  if ($did == 8) { 
    did -r price 4 
    did -h price 3 
    did -v price 9 
    did -e price 10,11,12,13,14 
    if ($readini(pricetrack.ini,settings,starttrack) == on) { 
      did -ra price 6 Looking up all the tracked items... 
      did -m price 4 
      var %s = 1 
      while ($readini(pricetrack.ini,list,$+(n,%s))) { 
        if ($readini(pricetrack.ini,list,$+(n,%s)) != None) { 
          did -ra price 4 $replace($gettok($readini(pricetrack.ini,list,$+(n,%s)),1,32),_,$chr(32)) 
          did -b price 6,7,8 
          set %sent 0 
          if ($sock(price.dialog)) { sockclose price.dialog } 
          sockopen price.dialog zybez.net 80 
          break 
          halt 
        } 
        else { inc %s } 
      } 
      if (!$readini(pricetrack.ini,list,$+(n,%s))) { 
        did -a price 6 You are currently not tracking any items. 
        did -n price 4 
      } 
    } 
    else { 
      did -ra price 6 You currently selected Price Tracking. 
    } 
  } 
  if ($did == 10) { 
    if (*2P* iswm $did(price,6,3)) { 
      if ($readini(pricetrack.ini,track,$gettok($remove($did(price,6,3),[F2P],[P2P]),1,58))) { 
        halt 
      } 
      var %s = 1 
      while ($readini(pricetrack.ini,list,$+(n,%s))) { 
        inc %s 
      } 
      writeini pricetrack.ini list $+(n,%s) $remove($did(price,6,3),[F2P],[P2P],:) ( $+ $fulldate $+ ) 
      writeini pricetrack.ini track $remove($did(price,6,3),[F2P],[P2P],:) ( $+ $fulldate $+ ) 
      did -i price 6 1 Started to track: $did(price,6,3) 
    } 
  } 
  if ($did == 11) { 
    did -v price 17 
    did -ra price 6 Click the button Clear-Confirm to delete all the tracked items. 
  } 
  if ($did == 17) { 
    did -h price 17 
    remini pricetrack.ini track 
    remini pricetrack.ini list 
    did -r price 6 
    did -a price 6 All tracked items are deleted. 
  } 
  if ($did == 12) { 
    if (*2P* !iswm $did(price,6,3)) { halt } 
    var %s = 1 
    while ($readini(pricetrack.ini,list,$+(n,%s))) { 
      if ($gettok($remove($did(price,6,3),[F2P],[P2P],:),1,32) == $gettok($readini(pricetrack.ini,list,$+(n,%s)),1,32)) { 
        writeini pricetrack.ini list $+(n,%s) NONE 
        break 
      } 
      else { inc %s } 
    } 
    remini pricetrack.ini track $remove($did(price,6,3),[F2P],[P2P],:) 
  } 
  if ($did == 13) { 
    did -r price 6 
    if ($readini(pricetrack.ini,list,n1)) { 
      did -a price 6 Listing tracked items: 
      var %s = 1 
      while ($readini(pricetrack.ini,list,$+(n,%s))) { 
        if ($readini(pricetrack.ini,list,$+(n,%s)) == None) { inc %s } 
        else { 
          did -a price 6 $readini(pricetrack.ini,list,$+(n,%s)) 
          inc %s 
        } 
      } 
    } 
    else { did -a price 6 You are currently not tracked any items. } 
  } 
  if ($did == 14) { 
    did -ra price 6 Looking up all the tracked items... 
    did -m price 4 
    var %s = 1 
    while ($readini(pricetrack.ini,list,$+(n,%s))) { 
      if ($readini(pricetrack.ini,list,$+(n,%s)) != None) { 
        did -ra price 4 $replace($gettok($readini(pricetrack.ini,list,$+(n,%s)),1,32),_,$chr(32)) 
        did -b price 6,7,8 
        set %sent 0 
        if ($sock(price.dialog)) { sockclose price.dialog } 
        sockopen price.dialog zybez.net 80 
        break 
        halt 
      } 
      else { inc %s } 
    } 
    if (!$readini(pricetrack.ini,list,$+(n,%s))) { 
      did -a price 6 You are currently not tracking any items. 
      did -n price 4 
    } 
  } 
} 
on *:dialog:price:init:0: { 
  did -h price 17 
  if ($readini(pricetrack.ini,settings,start) == track) { 
    did -c price 8 
    did -a price 6 Welcome! 
    did -a price 6 This price script was made by Jyang. 
    did -ra price 6 You currently selected Price Tracking. 
    did -r price 4 
    did -h price 3 
    did -e price 10,11,12,13,14 
    did -v price 9 
  } 
  elseif ($readini(pricetrack.ini,settings,start) == lookup) { 
    did -c price 7 
    did -a price 6 Welcome! 
    did -a price 6 This price script was made by Jyang. 
    did -a price 6 You currently selected Price Lookup. 
    did -b price 10,11,12,13,14 
    did -t price 5 
    did -h price 9 
  } 
  if ($readini(pricetrack.ini,settings,startresults) == on) { 
    did -r price 4 
    did -h price 3 
    did -u price 7 
    did -c price 8 
    did -e price 10,11,12,13,14 
    did -v price 9 
    did -ra price 6 Looking up all the tracked items... 
    did -m price 4 
    var %s = 1 
    while ($readini(pricetrack.ini,list,$+(n,%s))) { 
      if ($readini(pricetrack.ini,list,$+(n,%s)) != None) { 
        did -ra price 4 $replace($gettok($readini(pricetrack.ini,list,$+(n,%s)),1,32),_,$chr(32)) 
        did -b price 6,7,8 
        set %sent 0 
        if ($sock(price.dialog)) { sockclose price.dialog } 
        sockopen price.dialog zybez.net 80 
        halt 
        break 
      } 
      else { inc %s } 
    } 
    if (!$readini(pricetrack.ini,list,$+(n,%s))) { 
      did -a price 6 You are currently not tracking any items. 
      did -n price 4 
    } 
  } 
} 
on *:dialog:price:close:0: { 
  sockclose price.dialog 
} 
on *:sockopen:price.help: { 
  did -r price 6 
  sockwrite -nt $sockname GET /files/47/Price-Readme.txt HTTP/1.1 
  sockwrite -nt $sockname Host: x.jooldesigns.net $+ $crlf $+ $crlf 
} 
on *:sockread:price.help: { 
  if ($sockerr) { did -ra price 6 Error } 
  else { 
    var %price.help 
    sockread %price.help 
    if (%price.read == 1) { 
      did -a price 6 %price.help 
    } 
    if (::start:: == %price.help) { set %price.read 1 | halt } 
  } 
} 
on *:sockclose:price.help: { 
  did -n price 4 
  did -e price 6,7,8 
  unset %price.read 
} 
on *:sockopen:price.dialog: { 
  sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ $replace($did(price,4),$chr(32),$chr(43)) $+ &search_area=1&price_low=&price_high=&member=1&all_prices=1&sortby=name&sort=ASC&ppage=0 HTTP/1.1 
  sockwrite -nt $sockname Host: zybez.net $+ $crlf $+ $crlf 
} 
on *:sockread:price.dialog: { 
  if ($sockerr) { did -a price 6 An error occured while searching for $did(price,4) } 
  else { 
    var %priceread 
    sockread %priceread 
    if (%read == 2) { 
      inc %read 
      var %sockprice $htmlstrip(%priceread) 
      var %send %sockitem $+ : %sockprice 
      if (%sent < 50) { 
        if ($did(price,7).state) || (($did(price,8).state) && (!$readini(pricetrack.ini,track,$replace(%sockitem,$chr(32),_)))) { 
          did -a price 6 $iif(%m,%m,[F2P]) %send 
        } 
        else { 
          did -a price 6 Current Price: 
          did -a price 6 $iif(%m,%m,[F2P]) %send 
          did -a price 6 Previous Price: 
          did -a price 6 %sockitem $readini(pricetrack.ini,n,track,$replace(%sockitem,$Chr(32),_)) 
          var %newprice1 = $remove($gettok(%sockprice,1,32),gp,$chr(44)) 
          var %newprice2 = $remove($gettok(%sockprice,3,32),gp,$chr(44)) 
          var %oldprice1 = $remove($gettok($readini(pricetrack.ini,n,track,$replace(%sockitem,$Chr(32),_)),1,32),gp,$chr(44)) 
          var %oldprice2 = $remove($gettok($readini(pricetrack.ini,n,track,$replace(%sockitem,$Chr(32),_)),3,32),gp,$chr(44)) 
          var %oldtotal = $calc($eval(%oldprice1) + $eval(%oldprice2)) 
          var %newtotal = $calc($eval(%newprice1) + $eval(%newprice2)) 
          if ($eval(%oldtotal) > $eval(%newtotal)) { 
            var %price1 = $comma($calc($eval(%oldprice1 - $eval(%newprice1)))) 
            var %price2 = $comma($calc($eval(%oldprice2 - $eval(%newprice2)))) 
            did -a price 6 The item: $chr(91) $+ %sockitem $+ $chr(93) dropped by $iif(%price1 == %price2,%price1,$iif(%price1 < %price2,%price1 - %price2,%price2 - %price1)) $+ . 
            writeini pricetrack.ini track $replace(%sockitem,$chr(32),_) %sockprice ( $+ $fulldate $+ ) 
          } 
          if ($eval(%oldtotal) < $eval(%newtotal)) { 
            var %price1 = $comma($calc($eval(%newprice1 - $eval(%oldprice1)))) 
            var %price2 = $comma($calc($eval(%newprice2 - $eval(%oldprice2)))) 
            did -a price 6 The item: $chr(91) $+ %sockitem $+ $chr(93) rose by $iif(%price1 == %price2,%price1,$iif(%price1 < %price2,%price1 - %price2,%price2 - %price1)) $+ . 
            writeini pricetrack.ini track $replace(%sockitem,$chr(32),_) %sockprice ( $+ $fulldate $+ ) 
          } 
          if ($eval(%oldtotal) == $eval(%newtotal)) { 
            did -a price 6 The item: $chr(91) $+ %sockitem $+ $chr(93) did not rise or drop. 
          } 
          var %s = 1 
          while ($readini(pricetrack.ini,list,$+(n,%s))) { 
            if ($gettok($replace($did(price,4),$chr(32),_),1,32) == $gettok($readini(pricetrack.ini,list,$+(n,%s)),1,32)) { 
              if ($eval(%oldtotal) != $eval(%newtotal)) { 
                set %change %change $+ $iif(%change,$chr(44),$chr(32)) %sockitem 
                writeini pricetrack.ini list $+(n,%s) $replace($did(price,4),$chr(32),_) %sockprice ( $+ $fulldate $+ ) 
              } 
              break 
            } 
            else { 
              inc %s 
              continue 
            } 
          } 
          if (tracked items isin $did(price,6,1)) { 
            inc %s 
            if ($readini(pricetrack.ini,list,$+(n,%s))) { 
              did -a price 6 ---------------------------------------------------------------------------------------------- 
              did -ra price 4 $replace($gettok($readini(pricetrack.ini,list,$+(n,%s)),1,32),_,$chr(32)) 
              did -b price 6,7,8 
              sockclose $sockname 
              sockopen price.dialog zybez.net 80 
              halt 
            } 
            else { 
              if (%change) { 
                did -i price 6 2 ************************************************************************************** 
                did -i price 6 2 $chr(91) $+ $iif($len(%change) <= 65,%change,Too many items. Look below for the changed items) $+ $chr(93) 
                did -i price 6 2 The items below changed prices: 
                did -i price 6 2 ************************************************************************************** 
              } 
              else { 
                did -i price 6 2 The prices for all the items did not change. 
              } 
              did -a price 6 --- END --- 
              did -n price 4 
              did -e price 6,7,8 
              unset %m 
              unset %sent 
              unset %read 
              unset %sent 
              unset %change 
              unset %total 
              unset %sockitem 
              sockclose $sockname 
              halt 
            } 
          } 
          did -n price 4 
          did -e price 6,7,8 
          unset %m 
          unset %sent 
          unset %read 
          unset %sent 
          unset %total 
          unset %sockitem 
          sockclose $sockname 
        } 
        inc %sent 
      } 
      unset %m 
    } 
    if (%read == 1) { set %sockitem $replace($htmlstrip(%priceread),$chr(32),_) | set %read 2 | inc %total } 
    if ( *<img src="/img/member.gif"* iswm %priceread) { set %read 1 | set %m [P2P] } 
    if (<td class="tablebottom"><!-- Blank --></td> isin %priceread) { set %read 1 } 
    if (*Your search did not* iswm %priceread) { 
      did -a price 6 Unable to find $chr(91) $+ $did(price,4) $+ $chr(93) in the Zybez database. 
    } 
    if (<!-- Search Results: End --> iswm %priceread) { 
      did -i price 6 2 Displayed %sent out of %total $iif(%total iswm 1,item.,items.) 
      did -a price 6 --- END --- 
    } 
  } 
} 
on *:sockclose:price.dialog: { 
  did -n price 4 
  did -e price 6,7,8 
  unset %m 
  unset %sent 
  unset %read 
  unset %sent 
  unset %total 
  unset %sockitem 
} 

alias htmlstrip { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x } 
alias comma { 
  if ($1- isnum) { 
    var %x = 1 
    var %y = $ceil($eval($calc($len($1-) / 3))) 
    while (%x <= %y) { 
      var %comma = $+($chr(44),$right($1-,3),%comma) 
      tokenize 32 $left($1-,-3) 
      inc %x 
    } 
    while ($left(%comma,1) iswm $chr(44)) { var %comma $right(%comma,-1) } 
    return %comma 
  } 
  else { return 0 } 
}