Searches PeopleOfWalmart.com for funny images/stories from walmart.
It's actually pretty funny stuff.
This script was requested by Dark|
Credit for the idea goes to Dark|

Using the script::

• Copy this code, paste it to a new remote and save it with a unique file name.
  
• Type +Walmart in the channels you want to run the script (requires ops)
  
• Notice trigger: !walmart search words. (notices results to user)
  
• Message trigger: @walmart search words. (voices or higher. Messages the channel)
  
• There is a master on/off switch on the right click menu.
  
• See the comments at the top of the script for color/logo changes.
  Screen Shot:
  
  

;PeopleOfWalmart search script by Ford_Lawnmower irc.abjects.net #mIRC
;Script Idea and Request by Dark|
;;;;;Edit the 3 alias's below to adjust the logo, text color and link color ;;;;;;;
alias -l w.logo return 04W07a06l09m13a04r07t06 
alias -l w.textcolor return 04
alias -l w.linkcolor return 
;;;;;End of edit area;;;;;;;;
menu Channel,Status {
.$iif($group(#Walmart) == On,$style(1)) Walmart Trigger
..$iif($group(#Walmart) == On,$style(2)) On: .enable #Walmart
..$iif($group(#Walmart) == Off,$style(2)) Off: .disable #Walmart
}
#Walmart on
On $*:Text:/^(\+|-|!|@)Walmart.*/Si:#: {
var %action $regml(1)
if (%action isin +-) && ($regex($nick($chan,$nick).pnick,/(!|~|&|@)/)) {
if (%action == +) {
if ($istok(%WalmartChanList,$+($network,$chan),32)) { .msg $chan $nick $chan is already running the Walmart script }
else {
.enable #Walmart
Set %WalmartChanList $addtok(%WalmartChanList,$+($network,$chan),32)
.msg $chan $nick has activated the Walmart script for $chan .
}
}
else {
if (!$istok(%WalmartChanList,$+($network,$chan),32)) { .msg $chan $nick $chan is not running the Walmart script }
else {
Set %WalmartChanList $remtok(%WalmartChanList,$+($network,$chan),1,32)
.msg $chan $nick has deactivated the Walmart script for $chan .
}
}
}
elseif (!$timer($+(Walmart,$network,$nick))) && ($istok(%WalmartChanList,$+($network,$chan),32)) {
.timer $+ $+(Walmart,$network,$nick) 1 6 noop
var %method $iif(%action == !,.notice $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%|\+)/),.msg $chan,.notice $nick))
GetWalmart %method $2-
}
}
#Walmart end
alias Walmart { GetWalmart echo -a $1- }
alias -l GetWalmart {
$1-2 Searching........
var %sockname $+(Walmart,$network,$2,$ticks)
sockopen %sockname www.peopleofwalmart.com 80
sockmark %sockname $1-2 $+(/?s=,$replace($strip($3-),$chr(32),+)) 0
}
On *:sockopen:Walmart*: {
if (!$sockerr) {
sockwrite -nt $sockname GET $gettok($sock($sockname).mark,3,32) HTTP/1.0
sockwrite -n $sockname Host: www.peopleofwalmart.com
sockwrite -n $sockname $crlf
}
else { sockclose $sockname | return }
}
On *:sockread:Walmart*: {
if ($sockerr) { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
else {
var %Walmart | sockread %Walmart
if ($regex(wal,%Walmart,/<h2><a href="(.*?)">(.*?)<\/a><\/h2>/i)) {
tokenize 32 $sock($sockname).mark
put $1-2 $w.logo $w.textcolor $utf8fix($regml(wal,2)) $+($w.linkcolor,$regml(wal,1))
}
elseif (<h2>Not Found</h2> isin %Walmart) {
put $gettok($sock($sockname).mark,1-2,32) $w.logo $w.textcolor Nothing found! Please refine your search and try again!
sockclose $sockname
}
elseif (</html> isin %Walmart) sockclose $sockname
}
}
alias Put {
if (!$regex($1,/(\.|^)(msg|notice)$/Si)) || (!$3) { echo -st **Put error** Syntax /Put msg #channel text - or - /Put notice nickname text | return }
tokenize 32 $regsubex($1-,/([$\|%\[\]\}\{][^\s]*)/g,$+($chr(2),$chr(2),\t))
var %tokens $0, %Tstart 3, %Dtimer 1500
if ($timer($+(Put,$2,$network)).secs) { %Dtimer = $calc($v1 * 1000) }
while ($len($($+($,%Tstart,-,%tokens),2)) > 430) {
dec %tokens
if ($len($($+($,%Tstart,-,%tokens),2)) <= 430) {
.timer -m 1 %Dtimer $1-2 $($+($,%Tstart,-,%tokens),2))
inc %Dtimer 1500
%Tstart = $calc(%tokens + 1)
%tokens = $0
}
}
.timer -m 1 %Dtimer $1-2 $($+($,%Tstart,-,%tokens),2))
.timer $+ $+(Put,$2,$network) -m 1 $calc(%Dtimer + 1500) noop
}
alias -l utf8fix return $replace($regsubex($1-,/&#([\d]{2,4});/g,$utf8(\t)),&amp;,&)
alias -l UTF8 {
if ($version >= 7) return $chr($1)
else {
var %x $base($1,10,2),%y $len(%x)
if ($1 < 161) { return $chr($1) }
elseif (%y < 12) { return $+($shift(11000000,$left(%x,-6)),$shift(10000000,$right(%x,6))) }
elseif (%y < 17) { return $+($shift(11100000,$left(%x,-12)),$shift(10000000,$mid(%x,-12,6)),$shift(10000000,$right(%x,6))) }
elseif (%y < 22) {
return $+($shift(11110000,$left(%x,-18)),$shift(10000000,$mid(%x,$iif(%y < 18,$+(-,%y),-18),6)),$shift(10000000,$mid(%x,-12,6)),$shift(10000000,$right(%x,6)))
}
}
}
alias -l shift {
if ($2) { return $chr($base($+($left($1,$+(-,$len($2))),$2),2,10)) }
else { return $chr($base($1,2,10)) }
}