; ############################################################################# 
; ## Simple Multi-Socketed Price Guide Script                                ## 
; ## Written by CrazyMan1975                                                 ## 
; ## trulyinsane@crazyman.org                                                ## 
; ## irc.swiftirc.net - #RsPrices                                            ## 
; ##                        - NOTE -                                         ## 
; ## This script is actually NOTHING like the one that my main bot           ## 
; ## TrulyInsane1 uses. I put this together because I was asked enough       ## 
; ## times for a price guide script that worked well.                        ## 
; ## This one does the job, but if you want it fancy like Truly's then       ## 
; ## You're going to have to put in the hours. -.-                           ## 
; ############################################################################# 

; ############################################################################# 
; ## Alias/Identifier $preplace(<text>)                                      ## 
; ## This can be used to replace anything that the web site does not already ## 
; ## catch. Simply create a file called replace.txt in the main mirc         ## 
; ## directory, then add what you want to be replaced in the following       ## 
; ## Format: <text_to_replace>,<replacement_text>                            ## 
; ## Examples: drag pl8legs,Dragon Platelegs                                 ## 
; ##           potion (4),Potion                                             ## 
; ############################################################################# 
ALIAS -l PReplace { 
  VAR %pr.cnt = 1 | VAR %pr.total = $Lines(Replace.txt) | VAR %pr.text = $1- 
  WHILE (%pr.cnt <= %pr.total) { 
    VAR %pr.text = $Replace(%pr.text, [ [ $Read(Replace.txt,%pr.cnt) ] ] ) 
    INC %pr.cnt 
  } 
  RETURN %pr.text 
} 

; ############################################################################# 
; ## Remote Trigger, Allows !, @ or . to be used as the command character &  ## 
; ## price* to be used as the command.                                       ## 
; ############################################################################# 
ON $*:TEXT:/^[!@.]price/Si:#: { 
  IF (!$2) { .notice $nick *** [4Price Guide]: Please give me something to search for! | HALT } 
  ; # This sets up the Multiple Sockets, increasing the Variable %i until that socket is not in use. 
  VAR %i 1 
  WHILE ($Sock(price. $+ %i)) { INC %i } 
  ; # Store the Nickname, Where to send and how, and the item to find using our %i identifier. 
  SET %price.user. [ $+ [ %i ] ] $Nick 
  SET %price.target. [ $+ [ %i ] ] $IIF($Left($1,1) == !,.Notice $Nick ***,.Msg $Chan) [4Price Guide]: 
  SET %price.search. [ $+ [ %i ] ] $PReplace($2-) 
  ; # Open the socket - http://thexx.6te.net 
  SockOpen $+(price.,%i) thexx.6te.net 80 
} 

; ############################################################################# 
; ## SockOpen - Once our socket has been opened, This will run.              ## 
; ## This sets up our request for the web page so we can retrieve the data.  ## 
; ## Note the price.* in the on SockOpen, that is Necessary to pick up the   ## 
; ## sequential socket names.                                                ## 
; ############################################################################# 
ON *:SOCKOPEN:price.*:{ 
  SockWrite -nt $SockName GET /xxprice.php?item= [ $+ [ $Replace(%price.search. [ $+ [ $Right($SockName,-6) ] ] ,$Chr(32),$Chr(37) $+ 20) ] ] HTTP/1.1 
  SockWrite -nt $SockName Host: thexx.6te.net 
  SockWrite -nt $SockName $CRLF 
} 


; ############################################################################# 
; ## SockRead - Now we're going to find the data and return it to the user.  ## 
; ############################################################################# 
ON *:SOCKREAD:price.*:{ 
  ; # Store the socket number in %i (Local Variable) 
  VAR %i = $Right($SockName,-6) 
  ; # Read a Line from the socket. 
  SockRead -f %priceread 
  ; # If something went wrong, report it to the user and clear the variables. 
  IF ($SockErr) { 
    %price.target. [ $+ [ %i ] ] Socket error: $SockErr $+ , while looking up %price.search. [ $+ [ %i ] ] 
    UNSET %price.*. [ $+ [ %i ] ] 
  } 
  ; # If nothing happened during the initial read process, we can begin. 
  ELSE { 
    :NextRead 
    SockRead -f %priceread 
    ; # $sockbr is set if data was actually read in to the %priceread variable. 
    IF ($SockBr) { 
      ; # For this site, the price info is preceeded with "TheXX.Co.Nr" so we'll look for that. 
      IF ((TheXX.Co.Nr IsIn %priceread) && ($NumTok(%priceread,32) > 1)) { 
        ; # Output the match we found to the user. 
        %price.target. [ $+ [ %i ] ] 12 $+ $Remove(%priceread,TheXX.Co.Nr $+ $Chr(32)) 
        UNSET %price.*. [ $+ [ %i ] ] 
      } 
      ; # if the Variable contains only "TheXX.Co.Nr" then we did not find a match, report it. 
      ELSEIF (%priceread == TheXX.Co.Nr) { %price.target. [ $+ [ %i ] ] Unable to find a match for $qt(%price.search. [ $+ [ %i ] ] ) } 
      ; # Goto's as a general rule are BAD, in an on SockRead event is the ONLY time I will use them. 
      GOTO NextRead 
    } 
    ELSE SockClose $SockName 
  } 
} 

; ############################################################################# 
; ## I hope this helps you out, and possibly you can learn a little about    ## 
; ## Sockets from it. Enjoy!                                                 ## 
; ## Not too shabby for 100 lines including comments ;)                      ## 
; #############################################################################