Stocks

Please Register to submit score.

Average Score	9.2
Scores Submitted	6
Date Added	Apr 15, 2008
Last Updated	Apr 28, 2008
Tags	big change dow down jones market money nasdaq new newyork stock stocks symbol system ticker up york

Introduction

This morning I was just playing around with my iPod and was just fooling around in Stocks. Then I thought "Wow, that's a great idea for a script", so here it is

And it's also, my first script using &binvars.

So this script looks up a certain stock, and it tells you the stock name, the exchange it's from, the bid, and the change (percent and number). And if it's negative, it's red, if it's positive, it's green.

Syntax:

� !stock(s) [symbol]
� /stock(s) [symbol]

Screens:

Enjoy

Grab the Code

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

on $*:text:/^[!@.]stocks?\b/Si:#:{
  set %s.chan $chan
  stocks $2-
}
alias stocks {
  if ($sock(stocks)) {
    %s.msg Please wait, there's already a search in progress.
    halt
  }
  set %s.msg $iif(%s.chan,msg %s.chan,echo -a)
  if ($1 !isalpha || $2) {
    %s.msg Syntax: $iif(%s.chan,!,/) $+ stocks [symbol]
    unset %s.*
    halt
  }
  set %s.stock $upper($1)
  $iif(%s.chan,describe $chan looks,echo -a Looking) up $qt(%s.stock) in the stock market...
  sockopen stocks moneycentral.msn.com 80
}
alias stock stocks $1-
on *:sockopen:stocks:{
  sockwrite -nt $sockname GET /detail/stock_quote?Symbol= $+ %s.stock HTTP/1.1
  sockwrite -nt $sockname Host: moneycentral.msn.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:stocks:{
  sockread &x
  if ($bfind(&x,1,Object moved to)) {
    %s.msg Sorry, but $qt(%s.stock) isn't a valid ticker symbol.
    unset %s.*
    sockclose $sockname
  }
  if ($bfind(&x,1,unch) || $bfind(&x,1,NA</span> &nbsp;na NA<)) {
    %s.msg Sorry, but there seems to be an error with this stock.
    unset %s.*
    sockclose $sockname
    halt
  }
  if ($bfind(&x,1,ticker symbol has changed)) {
    %s.msg Sorry, but this ticker symbol has changed.
    unset %s.*
    sockclose $sockname
  }
  if ($bfind(&x,1,<h1><a href=")) {
    var %y = $bvar(&x,$bfind(&x,1,<h1><a href="),$calc($bfind(&x,1,</a> <span id="tradecentral">) - $bfind(&x,1,<h1><a href="))).text
    noop $regex(%y,/<a href=".+">(.+)$/i)
    set %s.name $regml(1)
  }
  if ($bfind(&x,1,%s.stock quote</b>)) {
    set %s.ex $right($bvar(&x,$bfind(&x,1,> $chr(40)),$calc($bfind(&x,1,Exchange - quotes delayed) - $bfind(&x,1,> $chr(40)))).text,-3)
  }
  if ($bfind(&x,1,<span class="s1">)) {
    var %x = $bvar(&x,$bfind(&x,1,<span class="s1">),$calc($bfind(&x,1,$chr(37) $+ </span>) - $bfind(&x,1,<span class="s1">))).text    
    noop $regex(%x,/"s1">(\d+\.\d+)<\/span> <img src="\/inc\/images\/(up|down)\.gif.+"s\d">([+-]\d+\.\d+).+="s\d">([+-]\d+\.\d+)/i)
    %s.msg Stock: %s.name $chr(160) Exchange: %s.ex $chr(160) Bid: $regml(1) $chr(160) Change: $iif($regml(2) == up,9,4) $regml(3) $regml(4) $+ %
    sockclose $sockname
    unset %s.*
  }
}

Comments

(14) RSS

Go to Bottom

mountaindew

Comments: 1,423

mIRC Snippet: Stocks
Posted on Apr 15, 2008 4:30 pm

Enjoy

mountaindew

Comments: 1,423

mIRC Snippet: Stocks
Posted on Apr 15, 2008 7:36 pm

Updates:

� Updated the regex in the on text
� I forgot to unset %s.* after a syntax error
� Added error checking for stocks with messed up data ("unch"?)

Jamiie

Comments: 97

mIRC Snippet: Stocks
Posted on Apr 15, 2008 10:27 pm

Nice script mountaindew, works well. :)

10/10

mountaindew

Comments: 1,423

mIRC Snippet: Stocks
Posted on Apr 16, 2008 5:48 pm

Thanks Jamiie :)

Updated:

� Added error checking for if the page says "This ticker symbol has changed."

^Neptune

Comments: 155

mIRC Snippet: Stocks
Posted on Apr 16, 2008 5:57 pm

Funky, although it's not the most useful script evar. 8/10

Eugenio

Comments: 518

mIRC Snippet: Stocks
Posted on Apr 16, 2008 6:53 pm

LOL @ ^Neptune
He rated 8 so hes script would be higher than yours, dont be surprised if you scripts start loosing rating.

mountaindew

Comments: 1,423

mIRC Snippet: Stocks
Posted on Apr 16, 2008 7:08 pm

Quote:

LOL @ ^Neptune
He rated 8 so hes script would be higher than yours, dont be surprised if you scripts start loosing rating.

I don't have anything against an 8 ;)

koutrelakosn

Comments: 8

mIRC Snippet: Stocks
Posted on Apr 16, 2008 10:28 pm

Hey just a idea add a list of stock markets cause alot of ppl dont know the stock names that would be cool.

napa182

Comments: 775

mIRC Snippet: Stocks
Posted on Apr 16, 2008 11:46 pm

if you dont know the stock names then why would you be useing a stock checking script =/ anyways nice work mountaindew

Comments: 884

mIRC Snippet: Stocks
Posted on Apr 16, 2008 11:58 pm

LOL Good Question napa,Heres a possible culprit > Inbreeding maybe?

Eugenio

Comments: 518

mIRC Snippet: Stocks
Posted on Apr 17, 2008 2:02 am

Quote:

I don't have anything against an 8 ;)

lol I rated 9 =/ another nice script mate.

^Neptune

Comments: 155

mIRC Snippet: Stocks
Posted on Apr 17, 2008 4:13 am

lol it's not like that :P its just that a stocks thing isn't something everyone is interested about B)

mountaindew

Comments: 1,423

mIRC Snippet: Stocks
Posted on Apr 17, 2008 8:53 am

Hey koutrelakosn, you can view a list of ticker symbols here.

mountaindew

Comments: 1,423

mIRC Snippet: Stocks
Posted on Apr 28, 2008 5:45 pm

Updated: Some stock pages just had NA na NA on it, so I halted the script if that's the case.

Stocks

Introduction

Grab the Code

Comments

mountaindew

My Snippet Tags

Contact

Friends (43)

Sponsors

		United States
Last seen: Jul 19, 2008 Profile \| Website Friends (43) Snippets (28) Images (17) Products (8) Reviews (12) Comments Received (682) Comments Submitted (1423) Forum Posts (819)