Hawkee Product Search

mIRC Code

+ 1 likes

Please Register to submit score.

Average Score	9.0
Scores Submitted	3
Date Added	Mar 17, 2008
Last Updated	May 09, 2008
Tags	comparison hawkee price product regex search sockets

Introduction

This is just a quick snippet I made that searches through the Price Comparison here on Hawkee. It returns the Product name, Brand, Price, and URL.

Syntax: [/product|!product] [product search]

Examples:

/product Nintendo Wii
!product Plasma TV

Screens:

Right now, it returns the top 3 results. If you want to change that, simply change "if (%N == 3)" to "if (%N == NUMBER)"

Enjoy

Grab the Code

;~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
;           Hawkee Product Search                *
;            Made by MountainDew                 ~ 
; IRC.DeltaAnime.Net ? #Lindrian #mIRC-Scripting *
;  US.UnderNet.Org ? #Hawkee.com #mircscripting  ~
;*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*

on $*:TEXT:/^[.!@](prod(uct)?)/Si:#:{
  set %p.chan $chan
  product $2-
}
alias product {
  if ($sock(product)) {
    %pmsg Please wait until the current search is finished.
    halt
  }
  set %pmsg $iif(%p.chan,msg %p.chan,echo -a)
  if (!$1) {
    %pmsg Syntax: $iif(%p.chan,!,/) $+ product [product name]
    halt
  }
  set %p.search $1-
  $iif(%p.chan,describe %p.chan searches,echo -a Searching) for $qt(%p.search) in Hawkee Price Comparison...
  sockopen product www.hawkee.com 80
}
on *:sockopen:product:{
  sockwrite -nt $sockname GET /shop/search/ $+ $replace(%p.search,$chr(32),+) $+ / HTTP/1.1
  sockwrite -nt $sockname Host: www.hawkee.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:product:{
  var %x
  sockread %x
  if (no products found isin %x) {
    %pmsg No products found for $qt(%p.search) $+ .
    sockclose $sockname
    unset %p.* %pmsg
  }
  if ($regex(%x,/<a href="(\/shop\/prod\/\d+\/)" class='large'>(.+)<\/a><br>/i)) {
    set %p.url http://www.hawkee.com $+ $regml(1)
    set %p.prod $regml(2)
  }
  if (<div style='height: 37px;'> isin %x) {
    sockread %x
    set %p.brand $remove(%x,$chr(9))
  }
  if ($regex(%x,/<img src='\/shop\/images\/rating_set\.gif'>/i)) inc %p.rating
  if ($regex(%x,/<a href="\/shop\/prod\/\d+\/" class="large">(\$.+)<\/font>/i)) {
    %pmsg 9• 4Product: %p.prod 4Brand: %p.brand 4Price: $regml(1) 4Rating: $iif(%p.rating,$v1,0) $+ /5 4URL: %p.url
    inc %N
    if (%N == 3) {
      sockclose $sockname
      unset %p.* %N %pmsg
    }
    unset %p.*
  }
}
alias products product $1-

Comments

(7) RSS

Go to Bottom

mountaindew

Comments: 1,645

mIRC Snippet: Hawkee Product Search
Posted on Mar 17, 2008 8:13 pm

Enjoy

Eugenio

Comments: 1,097

mIRC Snippet: Hawkee Product Search
Posted on Mar 17, 2008 9:00 pm

Looks amazing

mountaindew

Comments: 1,645

mIRC Snippet: Hawkee Product Search
Posted on Mar 17, 2008 9:16 pm

ty Eugenio

Hawkee

Comments: 566

mIRC Snippet: Hawkee Product Search
Posted on Mar 22, 2008 4:14 pm

Awesome mountaindew, I love it!

Hawkee

Comments: 566

mIRC Snippet: Hawkee Product Search
Posted on Mar 22, 2008 4:15 pm

Anybody up for making this into a TCL snippet?

mountaindew

Comments: 1,645

mIRC Snippet: Hawkee Product Search
Posted on Mar 22, 2008 4:16 pm

I have no clue how to script TCL, so not me

mountaindew

Comments: 1,645

mIRC Snippet: Hawkee Product Search
Posted on May 9, 2008 7:09 pm

Updated to work with the new site layout, and it now includes ratings.

Hawkee Product Search

Introduction

Grab the Code

Comments

mountaindew

My Snippet Tags

Contact

Friends (49)

Sponsors

		United States
Last seen: Oct 10, 2008 Profile \| Website Likes (75) Friends (49) Snippets (32) Images (22) Products (7) Reviews (12) Comments Received (869) Comments Submitted (1645) Forum Posts (922)