Big Ass Sockbot
Posted by w.e
Wednesday, August 09, 2006
Description: Hell I never thought I would release this
Okay, so you want something completely useless, but cool. Here it is. This long ass code has some cool features, but some might not even work anymore, I made this thing back in 2005. I was pretty bored, and I saw some cool things done with socks, back at the time.. there was only a couple sockbots tossed around, and I decided to take the challenge of making my own.
Lets start off on how to use the damn thing.
1. Connect to an IRC Server
2. Join a channel
3. Type /bot
4. Type `join
5. Type `cmds
Now, for the "Levels" on this bot, it starts at 0 (no access) and goes up to 50 (everything). Let me explain.. 0 has no access to any commands except `lastfm, `myspace, `translate, `weather, and `winamp. 15 has 'simple access' which are the no access commands and `asc, `chr, `me, `join, and `part. 50 access has access to everything mentioned and `clvl, `adduser, `mode, `nick, `quit, `hop, `winamp <cmd>, `say, `msg.
One more thing. You need AMIP to use the `winamp command. I got completely lazy hehe.
Heres the code:
Oh btw, im banned from #script anyone wanna let me back? [=
Okay, so you want something completely useless, but cool. Here it is. This long ass code has some cool features, but some might not even work anymore, I made this thing back in 2005. I was pretty bored, and I saw some cool things done with socks, back at the time.. there was only a couple sockbots tossed around, and I decided to take the challenge of making my own.
Lets start off on how to use the damn thing.
1. Connect to an IRC Server
2. Join a channel
3. Type /bot
4. Type `join
5. Type `cmds
Now, for the "Levels" on this bot, it starts at 0 (no access) and goes up to 50 (everything). Let me explain.. 0 has no access to any commands except `lastfm, `myspace, `translate, `weather, and `winamp. 15 has 'simple access' which are the no access commands and `asc, `chr, `me, `join, and `part. 50 access has access to everything mentioned and `clvl, `adduser, `mode, `nick, `quit, `hop, `winamp <cmd>, `say, `msg.
One more thing. You need AMIP to use the `winamp command. I got completely lazy hehe.
Heres the code:
on *:input:#: {
if ($1 == `join) {
haltdef
sockwrite -n bot* join $chan
}
}
on *:connect: {
bot
}
alias bot {
if (!$1) {
sockopen bot-omgwtfbbq $server $port
writeini mirc.ini bot uptime $gmt
}
else {
sockopen $1 $server $port
writeini mirc.ini bot uptime $gmy
}
}
on *:SOCKOPEN:bot-*:{
sockwrite -n $sockname USER omgwtfbbq SockServ SockServ * $ip
sockwrite -n $sockname NICK omgwtfbbq
sockwrite -n $sockname PING :makingmybotstayalive
}
alias mp3 {
if ($1 = next) {
dde mPlug control >
}
elseif ($1 = prev) {
dde mPlug control <
}
elseif ($1 = play) {
dde mPlug control play
}
elseif ($1 = stop) {
dde mPlug control stop
}
elseif ($1 = pause) {
dde mPlug control pause
}
elseif ($1 = vol) {
if ($2 == up) {
dde mPlug control vup
}
if ($2 == down) {
dde mPlug control vdwn
}
elseif ($2 == mute) {
dde mPlug control vol 0
}
elseif (($2 >= 0) && ($2 <= 100)) {
%chvol = $2 / 100
%chvol = 255 * %chvol
dde mPlug control vol %chvol
unset %chvol
}
}
}
alias NFL {
set %nfl.team $1-
sockclose nfl
sockopen nfl sports.espn.go.com 80
}
on *:sockopen:nfl: {
sockwrite -n $sockname GET /nfl/standings HTTP/1.1
sockwrite -n $sockname Host: sports.espn.go.com
sockwrite -n $sockname $crlf
}
on *:sockread:nfl: {
var %temp
sockread %temp
if (%nfl.x == 7) {
set %nfl.msg %nfl.msg Streak: $remove(%temp,<td>,</td>)
sockwrite -n %nfl.sockn PRIVMSG %nfl.chan :[^B] $+ %nfl.team $+ :[^B] %nfl.msg
unset %nfl*
}
if (%nfl.x == 4) || (%nfl.x == 5) || (%nfl.x == 6) {
inc %nfl.x
}
if (%nfl.x == 3) {
set %nfl.msg %nfl.msg Ties: $remove(%temp,<td>,</td>)
inc %nfl.x
}
if (%nfl.x == 2) {
set %nfl.msg %nfl.msg Losses: $remove(%temp,<td>,</td>)
inc %nfl.x
}
if (%nfl.x == 1) {
set %nfl.msg Wins: $remove(%temp,<td>,</td>)
inc %nfl.x
}
if (%nfl.team isin %temp) {
set %nfl.x 1
}
}
alias translate {
sockclose translate
sockopen translate ultralingua.net 80
unset %sed
set %thing $replace($1-,$chr(44),$chr(58))
set %text $gettok(%thing,1,58)
set %from $remove($gettok(%thing,2,58),$chr(32))
set %to $remove($gettok(%thing,3,58),$chr(32))
}
on *:SOCKOPEN:translate:{
sockwrite -n $sockname GET /yd/ydindex.html?text= $+ $replace(%text,$chr(32),$chr(37) $+ 20) $+ &service= $+ %from $+ 2 $+ %to HTTP/1.1
sockwrite -n $sockname Host: ultralingua.net
sockwrite -n $sockname Connection: close
sockwrite -n $sockname User-Agent: Mozilla/3.0 (compatible)
sockwrite -n $sockname Authorization: Basic <uu-encoded>
sockwrite -n $sockname $crlf
}
alias nohtml { var %tmp, %ignore = $regsub($1-,/(<[^>]+>)/g,$chr(32),%tmp) | return %tmp }
on *:sockread:translate: {
sockread %temp
if (%text isin %temp) && (headword isin %temp) && (1 isin %temp) && (!%sed) {
set %sed 1
sockwrite -n bot* PRIVMSG %channel : $+ $remove($nohtml(%temp),adj.,adv.,v.,expr.,n.,s.f,pro,s.m.)
}
}
alias -l nick { return $gettok($remove(%asx,:),2,33) }
alias winam {
var %current $dde(mPlug,format,"%pm:%ps")
var %end $dde(mPlug,format,"%min:%sec")
var %pos $dde(mPlug,format,"%pos")
var %total $dde(mPlug,format,"%ll")
sockwrite -n %win.sock privmsg %win.chan : $+ $replace($replace($replace($me is listening to <b> $+ %pos $+ .+ $+ $dde(mPlug,format,"%name") $+ <b>,$chr(32),+) $+ + $+ $replace(currently<b> %current </b>of<b> %end </b>on a playlist of %total $iif(%total == 1,song,songs) $+ ,$chr(32),+),+,$chr(32)),<b>,[^B],</b>,[^B])
unset %win.*
}
on *:sockread:bot-*: {
sockread %temp
set %asx %temp
tokenize 32 %temp
if (VERSION isin $1-) {
sockwrite -n $sockname PRIVMSG $gettok($remove($1,:),1,33) :VERSION reply: im an mIRC sockbot created by TiM in #wetnoseradio on irc.gamesurge.net.
}
if (End of /MOTD command. isin $1-) { sockwrite -n $sockname as AUTH PASS }
if ($1 == PING) {
sockwrite -n $sockname PONG $2
halt
}
if ($2 == PRIVMSG) {
writeini stats.ini $gettok($remove($1,:),1,33) lines $calc($readini(stats.ini,$gettok($remove($1,:),1,33),lines) + 1)
writeini stats.ini $gettok($remove($1,:),1,33) words $calc($readini(stats.ini,$gettok($remove($1,:),1,33),lines) + $calc($gettok($4-,0,32) - 1))
}
if ($2 == PRIVMSG) && ($remove($4,:) == @bots) {
set -u5 %spam $calc(%spam + 1)
if (%spam <= 2) {
if ($5 == $remove($sockname,bot-)) {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Bot[^B] $remove($sockname,bot-) [^B]here owned by[^B] $me $+ [^B].
halt
}
if ($5 == $me) {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Bot[^B] $remove($sockname,bot-) [^B]here owned by[^B] $me $+ [^B].
halt
}
if ($5) halt
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Bot[^B] $remove($sockname,bot-) [^B]here owned by[^B] $me $+ [^B].
}
}
if ($2 == PRIVMSG) && ($remove($4,:) == `translate) {
if ($chr(44) isin $1-) {
set %channel $3
translate $5-
}
}
if ($access($gettok($remove($1,:),1,33)) >= 20) || ($gettok($remove($1,:),1,33) == $me) {
if ($2 == PRIVMSG) && ($remove($4,:) == `msg) {
sockwrite -n $sockname PRIVMSG $5 : $+ $6-
}
if ($2 == PRIVMSG) && ($remove($4,:) == `say) {
if ($count($5-,\) >= 2) {
var %varmsg $chr($left($gettok($5-,1,92),3))
var %varmsg %varmsg $+ $remove($5-,\ $+ $left($gettok($5-,$gettok($5-,0,92),92),3),\ $+ $left($gettok($5-,1,92),3))
var %varmsg %varmsg $+ $chr($left($gettok($5-,$gettok($5-,0,92),92),3))
}
else {
var %varmsg $5-
}
sockwrite -n $sockname PRIVMSG $3 : $+ %varmsg
}
if ($2 == PRIVMSG) && ($remove($4,:) == `eval) {
var %a $5-
sockwrite -n $sockname PRIVMSG $3 $eval(%a,2)
}
if ($2 == PRIVMSG) && ($remove($4,:) == `winamp) {
set %win.chan $3
set %win.sock $sockname
if ($5 == play) { mp3 play | timer 1 1 winam | halt }
if ($5 == next) { mp3 next | timer 1 1 winam | halt }
if ($5 == previous) || ($5 == prev) { mp3 prev | timer 1 1 winam | halt }
if ($5 == stop) { mp3 stop | unset %win.* | halt }
var %current $dde(mPlug,format,"%pm:%ps")
var %end $dde(mPlug,format,"%min:%sec")
var %pos $dde(mPlug,format,"%pos")
var %total $dde(mPlug,format,"%ll")
sockwrite -n $sockname privmsg $3 : $+ $replace($replace($replace($me is listening to <b> $+ %pos $+ .+ $+ $dde(mPlug,format,"%name") $+ <b>,$chr(32),+) $+ + $+ $replace(currently<b> %current </b>of<b> %end </b>on a playlist of %total $iif(%total == 1,song,songs) $+ ,$chr(32),+),+,$chr(32)),<b>,[^B],</b>,[^B])
halt
}
if ($2 == PRIVMSG) && ($remove($4,:) == `quit) {
sockwrite -n $sockname quit
}
if ($2 == PRIVMSG) && ($remove($4,:) == `nick) {
sockwrite -n $sockname NICK $5
sockrename $sockname bot- $+ $5
}
if ($2 == PRIVMSG) && ($remove($4,:) == `mode) {
sockwrite -n $sockname mode $remove($sockname,bot-) $5-
sockwrite -n $sockname as auth ifyouwant typeyourauthshithere
}
if ($2 == PRIVMSG) && ($remove($4,:) == `raw) {
sockwrite -n $sockname $5-
}
if ($2 == PRIVMSG) && ($remove($4,:) == `reconnect) {
sockwrite -n $sockname quit Reconnecting
timer 1 5 bot $sockname
timer 1 6 sockwrite -n $sockname join $5
}
}
if ($access($gettok($remove($1,:),1,33)) > 14) {
if ($2 == PRIVMSG) && ($remove($4,:) == `join) {
sockwrite -n $sockname join $5
}
if ($2 == PRIVMSG) && ($remove($4,:) == `part) {
sockwrite -n $sockname part $iif($5,$5,$3)
}
if ($2 == PRIVMSG) && ($remove($4,:) == `winamp) {
set %win.chan $3
set %win.sock $sockname
winam
}
if ($2 == PRIVMSG) && ($remove($4,:) == `hop) {
sockwrite -n $sockname PART $3
sockwrite -n $sockname JOIN $3
}
if ($2 == PRIVMSG) && ($remove($4,:) == `me) {
var %varmsg $5-
sockwrite -n $sockname PRIVMSG $3 :ACTION %varmsg $+
}
}
if ($2 == PRIVMSG) && ($remove($4,:) == `lastfm) {
if ($5) {
unset %last*
set %last.sockname $sockname
set %last.chan $3
lastfm $5-
}
}
if ($2 == PRIVMSG) && ($remove($4,:) == `lastfmfight) {
if ($5) {
unset %last*
set %last.sockname $sockname
set %last.chan $3
lastfmx $5-
}
else sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Invaild format; `lastfm <user>
}
if ($2 == PRIVMSG) && ($remove($4,:) == `nfl) {
if ($5) {
set %nfl.chan $3
set %nfl.sockn $sockname
nfl $5
}
else sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Invaild format; `nfl <team>
}
if ($2 == PRIVMSG) && ($remove($4,:) == `myspace) {
if ($5) {
set %my.chan $3
myspace $5-
}
else sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Invaild format; `myspace <user>
}
if ($2 == PRIVMSG) && ($remove($4,:) == `status) {
sockwrite -n $sockname PRIVMSG $3 : $+ [^B]System uptime:[^B] $uptime(system,2) [^B]mIRC uptime:[^B] $uptime(mIRC,2) [^B]Bot uptime:[^B] $bupt
}
if ($2 == PRIVMSG) && ($remove($4,:) == `weather) {
if ($5) {
set %we.chan $3
weather $5-
}
else sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Invaild format; `weather <zip>
}
if ($2 == PRIVMSG) && ($remove($4,:) == `asc) {
if ($5) {
sockwrite -n $sockname PRIVMSG $3 : $+ ASC for $5 is[^B] $asc($5)
}
else sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Invaild format; asc for space is "32"
}
if ($2 == PRIVMSG) && ($remove($4,:) == `chr) {
if ($5) {
sockwrite -n $sockname PRIVMSG $3 : $+ CHR $5 is[^B] $chr($5)
}
else sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Invaild format
}
if ($access($gettok($remove($1,:),1,33)) >= 1) || ($gettok($remove($1,:),1,33) == $me) {
if ($2 == PRIVMSG) && ($remove($4,:) == `cmds) || ($remove($4,:) == `help) || ($remove($4,:) == `commands) {
if ($access($gettok($remove($1,:),1,33)) == 50) || ($gettok($remove($1,:),1,33) == $me) {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) : $+ $access($gettok($remove($1,:),1,33)) level axes cmds
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :`clvl, `adduser, `a, `weather, `lastfm, `join, `part, `asc, `chr, `me, `mode, `nick, `quit, `hop, `winamp, `winamp <cmd>, `eval, `say, `msg, `translate, `myspace, `nfl
halt
}
if ($access($gettok($remove($1,:),1,33)) >= 15) || ($gettok($remove($1,:),1,33) == $me) {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) : $+ $access($gettok($remove($1,:),1,33)) level axes cmds
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :`a, `weather, `lastfm, `asc, `chr, `me, `join, `part, `winamp, `translate, `myspace, `nfl
}
if ($access($gettok($remove($1,:),1,33)) < 15) || ($gettok($remove($1,:),1,33) == $me) {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) : $+ $access($gettok($remove($1,:),1,33)) level axes cmds
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :`a, `weather, `lastfm, `asc, `chr, `translate, `myspace, `nfl
}
}
if ($2 == PRIVMSG) || ($gettok($remove($1,:),1,33) == $me) && ($remove($4,:) == `access) || ($remove($4,:) == `a) {
if (!$5) {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :You have access[^B] $iif($gettok($remove($1,:),1,33) == $me,50,$access($gettok($remove($1,:),1,33))) [^B]to $remove($sockname,bot-) $+ .
}
else {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) : $+ $5 has access[^B] $iif($access($5),$access($5),0) [^B]to $remove($sockname,bot-) $+ .
}
}
}
if ($access($gettok($remove($1,:),1,33)) == 50) || ($gettok($remove($1,:),1,33) == $me) {
if ($2 == PRIVMSG) && ($remove($4,:) == `clvl) {
if ($6 < 50) {
if ($5 ison $3) {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Changed $5 $+ 's access to $6 $+ .
writeini b-access.ini access $address($5,2) $6
}
else {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) : $+ $5 needs to be on $3
}
}
else {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Your access is 50, you can not make a user with equal or greater access.
}
}
}
if ($access($gettok($remove($1,:),1,33)) == 50) || ($gettok($remove($1,:),1,33) == $me) {
if ($2 == PRIVMSG) && ($remove($4,:) == `adduser) {
if ($6 < 50) {
if ($5 ison $3) {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Added $5 to the userlist with $6 access.
writeini b-access.ini access $address($5,2) $6
}
else {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) : $+ $5 needs to be on $3
}
}
else {
sockwrite -n $sockname NOTICE $gettok($remove($1,:),1,33) :Your access is 50, you can not make a user with equal or greater access.
}
}
}
}
alias access {
return $readini(b-access.ini,access,$address($1,2))
}
alias weather {
sockclose weather- $+ $replace($1-,$chr(32),+)
sockopen weather- $+ $replace($1-,$chr(32),+) www.weather.com 80
}
on *:SOCKOPEN:weather*:{
sockwrite -n $sockname GET /weather/local/ $+ $gettok($sockname,2-,45) $+ ?lswe= $+ $gettok($sockname,2-,45) $+ &lwsa=WeatherLocalUndeclared&from=whatwhere HTTP/1.1
sockwrite -n $sockname Host: www.weather.com
sockwrite -n $sockname Connection: close
sockwrite -n $sockname User-Agent: Mozilla/3.0 (compatible)
sockwrite -n $sockname Authorization: Basic <uu-encoded>
sockwrite -n $sockname $crlf
}
on *:sockread:weather*: {
var %temp
sockread %temp
if (<title isin %temp) {
set %we.town $gettok($gettok(%temp,4-,114),1,45)
}
if (</B></TD> isin %temp) {
set %we.condi $lower($gettok($gettok(%temp,5,62),1,60))
}
if (Feels Like isin %temp) {
set %we.deg $gettok($gettok(%temp,4,62),1,60)
set %we.feels $replace($gettok($gettok(%temp,8,62),1,60),°F,ºF)
sockwrite -n bot* privmsg %we.chan : $+ It is currently $replace(%we.deg,°F,ºF) (Feels like %we.feels $+ ) with %we.condi conditions in %we.town $+ .
unset %we.*
}
}
alias lastfmx {
sockclose lastfmx- $+ $replace($1,$chr(32),+)
sockopen lastfmx- $+ $replace($1,$chr(32),+) www.last.fm 80
sockclose lastfmx- $+ $replace($2,$chr(32),+)
sockopen lastfmx- $+ $replace($2,$chr(32),+) www.last.fm 80
}
alias lastfm {
sockclose lastfm- $+ $replace($1-,$chr(32),+)
sockopen lastfm- $+ $replace($1-,$chr(32),+) www.last.fm 80
}
on *:SOCKOPEN:lastfm*:{
sockwrite -n $sockname GET /user/ $+ $gettok($sockname,2-,45) HTTP/1.1
sockwrite -n $sockname Host: www.last.fm
sockwrite -n $sockname Connection: close
sockwrite -n $sockname User-Agent: Mozilla/3.0 (compatible)
sockwrite -n $sockname Authorization: Basic <uu-encoded>
sockwrite -n $sockname $crlf
}
on *:sockread:lastfmx*: {
var %temp
sockread %temp
if (played: isin %temp) {
set %last.msg %last.msg [^B] $+ $gettok($sockname,2-,45) $+ :[^B] $gettok($gettok(%temp,4,62),1,60)
if ($gettok(%last.msg,0,32) == 4) {
if ($gettok(%last.msg,2,32) > $gettok(%last.msg,4,32)) {
echo 2 wtf
sockwrite -n %last.sockname privmsg %last.chan : $+ %last.msg $left($gettok(%last.msg,1,32),-2) [^B]Wins!
}
else {
echo wtf
sockwrite -n %last.sockname privmsg %last.chan : $+ %last.msg $left($gettok(%last.msg,3,32),-2) [^B]Wins!
}
}
}
}
on *:sockread:lastfm*: {
if ($gettok($sockname,2-,45) == lastfm) {
var %temp
sockread %temp
if (/body isin %temp) { sockwrite -n %last.sockname privmsg %last.chan : $+ $iif(%last.msg,%last.msg,Invaild user.) [^B]Site:[^B] http://last.fm/user/ $+ $gettok($sockname,2-,45) | unset %last.* }
if (%last.track == 2) {
set %last.title $gettok($gettok(%temp,2,62),1,60)
set %last.msg %last.msg [^B]Last played:[^B] %last.title
unset %last.track
halt
}
if (%last.track == 1) {
set %last.track 2
halt
}
if (%last.artist == 1) {
if ($count($gettok(%temp,4,34),/) == 2) && (!%last.weekartist) {
set %last.weekartist 1
set %last.msg %last.msg [^B]Weekly Artist:[^B] $gettok($gettok(%temp,2,62),1,60)
halt
}
if ($count($gettok(%temp,4,34),/) == 2) && (%last.weekartist == 1) {
set %last.weekartist 2
set %last.msg %last.msg [^B]Top Artist:[^B] $gettok($gettok(%temp,2,62),1,60)
halt
}
if ($count($gettok(%temp,4,34),/) == 4) {
set %last.msg %last.msg [^B]Top Track:[^B] $gettok($gettok(%temp,2,62),1,60)
}
unset %last.artist
halt
}
if (>1< isin %temp) && (<div> isin %temp) {
set %last.artist 1
}
if (>1< isin %temp) && (width="55" isin %temp) {
set %last.track 1
}
if (played: isin %temp) {
set %last.msg %last.msg [^B]Total tracks:[^B] $gettok($gettok(%temp,4,62),1,60)
}
}
}
alias bupt {
var %time $readini(mirc.ini,bot,uptime)
var %ntime $gmt
var %elapsetime $duration($calc(%ntime - %time))
return %elapsetime
}
alias myspace {
sockclose myspace- $+ $replace($1-,$chr(32),+)
sockopen myspace- $+ $replace($1-,$chr(32),+) myspace.com 80
}
on *:SOCKOPEN:myspace*:{
sockwrite -n $sockname GET / $+ $gettok($sockname,2-,45) HTTP/1.1
sockwrite -n $sockname Host: myspace.com
sockwrite -n $sockname Connection: close
sockwrite -n $sockname User-Agent: Mozilla/3.0 (compatible)
sockwrite -n $sockname Authorization: Basic <uu-encoded>
sockwrite -n $sockname $crlf
}
on *:sockread:myspace*: {
var %temp
sockread %temp
if (%temp) {
if (maintenance isin %temp) && ($remove($gettok($gettok(%temp,1,62),1,60), )) {
msg $active $remove($gettok($gettok(%temp,1,62),1,60), )
}
if (%my.x == 3) {
set %my.link %temp
unset %my.x
}
if (%my.x == 2) {
set %my.quote $remove(%temp, )
set %my.x 3
}
if (%my.x == 1) {
set %my.x 2
}
if (<title> isin %temp) {
set %my.x 1
}
if (MySpace Profile isin %temp) {
set %my.loc $gettok($gettok(%temp,8,34),2-4,44)
}
if (id="ctl00_Main isin %temp) && ( isin %temp) && (!%my.t) {
set %my.1 $gettok($gettok(%temp,2,62),1,60)
set %my.t 1
}
if (%my.y == 2) {
set %my.lastcr %temp
unset %my.y
set %my.fc 1
}
if (%my.y == 1) {
set %my.y 2
}
if (FF9933 isin %temp) && (%my.fc != 1) && (center isin %temp) {
set %my.y 1
}
if (%my.cm == 4) {
set %my.lastc $nohtml($iif($len(%temp) < 300,%temp,$left(%temp,300) $+ ...))
unset %my.cm
set %my.fcc 1
}
if (%my.cm == 3) set %my.cm 4
if (%my.cm == 2) set %my.cm 3
if (%my.cm == 1) set %my.cm 2
if (*/*/* * PM iswm %temp) || (*/*/* * AM iswm %temp) && (!%my.fcc) {
set %my.cm 1
}
if (displaying isin %temp) && (of isin %temp) { set %my.com $gettok($gettok(%temp,5,62),1,60) | set %my.zx 1 }
if (friends isin %temp) && (has isin %temp) { set %my.friends $gettok($gettok(%temp,2,62),1,60) }
if (<td width="193" isin %temp) { set %my.x 1 }
if (</html> isin %temp) {
if (%my.loc) sockwrite -n bot* privmsg %my.chan : $+ [^B] Link:[^B] www.myspace.com/ $+ $gettok($sockname,2-,45) [^B]Top Friend:[^B] $&re(%my.1) [^B]Location:[^B] %my.loc [^B]Quote:[^B] %my.quote [^B]Total friends:[^B] %my.friends [^B]Total comments:[^B] %my.com | if (%my.loc) && (%my.com) sockwrite -n bot* privmsg %my.chan : $+ [^B]Last comment posted by:[^B] $&re(%my.lastcr $+ ; %my.lastc) | if (!%my.loc) sockwrite -n bot* privmsg %my.chan :No vaild information available
unset %my.*
}
}
}
alias &re {
var %x = $replace($1,♥,<3,",",&,&,<,<,>,>,€,€, ,)
var %x = $replacecs(%x,á,á,Á,Á)
return %x
}
Oh btw, im banned from #script anyone wanna let me back? [=