Categories
mIRC scripts

Re-action or Reslapper script for

This one works automattically.

;Re-action
on *:ACTION:$(* $+ $me $+ *):*: {
if (!%action. [ $+ [ $address($nick,2) ] ]) {
/describe $target $replace($1-,$me,$nick)
/set -u5 %action. [ $+ [ $address($nick,2) ] ] $nick
}
}

Categories
mIRC scripts

Server Notices in a new window

This script places the server notices in a separate window.
Works only using mIRC.

on ^*:snotice:*:{
haltdef
if ($window(@snotice) == $null) { window -ek[0] @snotice }
echo -t @snotice $1-
write snotice.log [[ $date / $time ]] $1-
}

Categories
mIRC scripts

Quakenet Bot messages in a new window

This script places the Quakenet bots in a separate window.
Works only for the Q, L, O and S bots and using mIRC.

n ^*:notice:*:?:{
if ($nick == o) {
if (broadcast !isin $1-) { haltdef }
if ($query(o) == $null) { query O }
echo -t o <O> $1-
}
elseif ($nick == q) {
if (broadcast !isin $1-) { haltdef }
if ($query(q) == $null) { query Q }
echo -t q <Q> $1-
}
elseif ($nick == l) {
if (broadcast !isin $1-) { haltdef }
if ($query(l) == $null) { query L }
echo -t l <L> $1-
}
elseif ($nick == s) {
if (broadcast !isin $1-) { haltdef }
if ($query(s) == $null) { query S }
echo -t s <S> $1-
}
}

Categories
mIRC scripts

Emotes and extras

Just a bunch of emotes for channels along with a few extra`s.

on *:TEXT:!hug:#:/describe $chan hugs $nick
on *:TEXT:!hug *:#:/describe $chan sees: $nick hugs $2-
on *:TEXT:!slap:#:/describe $chan slaps $nick around a bit with a large trout
on *:TEXT:!slap *:#:/describe $chan sees: $nick slaps $2-
on *:TEXT:!curse:#:/describe $chan Yells at $nick : Avada Kedavra!
on *:TEXT:!curse *:#:/describe $chan sees: $nick Yells "Avada Kedavra!" at $2-
on *:TEXT:!kiss:#:/describe $chan kisses $nick cause $nick made him do it
on *:TEXT:!kiss *:#:/describe $chan sees: $nick kisses $2- !
on *:TEXT:!loveya *:#:/describe $chan sees: $nick loves $2-
on *:TEXT:!order *:#:/describe $chan gives $nick $2-
on *:TEXT:!snog *:#:/describe $chan sees: $nick snogs $2-
on *:TEXT:!g2g:#:/describe $chan waves goodbye to $nick
on *:TEXT:!bye *:#:/describe $chan sees: $nick waves goodbye to $2-
on *:TEXT:!nick:#:/msg $chan $nick : You can change your nickname by typing: /nick new nick
on *:TEXT:!register:#:/msg $chan $nick : You can register your nickname by typing: /msg nickserv register Password Email
on *:TEXT:!identify:#:/msg $chan $nick : You can identify your nickname by typing: /msg nickserv identify Nick Password
on *:TEXT:!trout:#:/describe $chan gives $nick a trout, so you can eat it, or slap with it :-P
on *:TEXT:!ignore:#:/msg $chan $nick : You can ignore user by typing: /ignore nickname
on *:TEXT:!unignore:#:/msg $chan $nick : You can unignore user by typing: /ignore -r nickname
on *:TEXT:!drop:#:/msg $chan $nick : You can drop/unregister your nickname by typing: /msg nickserv drop
on *:TEXT:!help:#:/msg $chan $nick : Help Commands: !nick !register !identify !ignore !unignore !drop
on *:mode:#:/notice $me $nick changed $chan mode to $1-
on *:TEXT:!time:#:/msg $chan $nick : The time is now $time !
on *:TEXT:!Hi5:#:/describe $chan hi-fives $nick
on *:TEXT:!Hi5 *:#:/describe $chan sees: $nick hi-fives $2-
on *:TEXT:!kill:#:/describe $chan kill $nick
on *:TEXT:!kill *:#:/describe $chan sees: $nick kills $2- "that wasn't nice $nick !" *calls 911*

on *:TEXT:$($me):#:{
/msg $chan $nick
}

Categories
mIRC scripts

Backwards typing script

To use:
/backwards channel/nick Your Text Here

/Backwards {
:start
inc %var.back 1
if (%var.back > $len($2-)) { msg $1 %var.backwards | unset %var.back* | halt }
set %var.back.right $right($2-,%var.back)
set %var.back.left $left(%var.back.right,1)
if (%var.back.left == $chr(32)) { set %var.backwards $addtok(%var.backwards,$chr(32),32) | goto start }
set %var.backwards %var.backwards $+ %var.back.left
goto start
}