The Code Pool

MASS INVITE

Alias:
MassInvite {
 set %invite.var 1 
 :next 
 if ($nick(%invite.var,$$1) == $null) { goto done } 
 invite $nick(%invite.var,$$1) $$2 
 inc %invite.var 1 
 goto next 
 :done 
}
Now you just type /massinvite {channel to invite from} {channel to invite to}
Note: You will have to be in the channel.


OP NOTICE

Alias:
Ops {
  if ($me isop $$1) { onotice $$1 [Op-Wide Notice]: $+ $$1 $+ : *2 }
  else {
    set %notice.var 1
    :next
    if ($opnick(%notice.var,$$1) == $null) { goto done }
    .notice $opnick(%notice.var,$$1) [Op-Wide Notice]: $+ $$1 $+ : *2
    inc %notice.var 1
    goto next
    :done
  }
}
Just type /ops {channel} {msg} and if you are an op it will /onotice, if not
it will still send the same notice to all ops.


RAINBOW

Alias:
rainbow {
  set %rainbow.msg $$?="Enter Your Rainbow Msg:"
  if ($len(%rainbow.msg) >= 52) { echo 2 Your msg was to long. Max 52 characters. | halt }
  else { set %length $len(%rainbow.msg) }
  set %cycles 1
  :next
  if ($mid(%cycles,1,%rainbow.msg) == $null) { goto done }
  if ($mid(%cycles,1,%rainbow.msg) == $chr(32)) { set %rainbow.str $chr(3) $+ $r(1,9) $+ $chr(160) $+ $chr(3) }
  else { set %rainbow.str $chr(3) $+ $r(1,9) $+ $mid(%cycles,1,%rainbow.msg) $+ $chr(3) }
  set %rainbow %rainbow %rainbow.str
  inc %cycles 1
  goto next
  :done
  %rainbow = $remove(%rainbow,$chr(32))
  msg $$1 %rainbow
  unset %rainbow
}
Then all you have to do is type /rainbow #mirc {msg} or
/rainbow TiAMaT {msg} and every letter will be a random
color.


GLOBAL NOTICE

Alias:
global {
 set %gnotice *1
 set %glob.var 1
 set %global On
 /who
}
Remote, Raw:
352:*: {
 if (%global == On) {
  if ($parm6 == $me) { halt }
  if ($chr(42) isin $parm7) { halt }
  .timer 1 %glob.var /notice $parm6 [Net-Wide Notice] %gnotice (Replies will be burnt.)
  inc %glob.var 1
 }
}
315:*: {
 if (%global == On) { set %global Off }
}
Notes: 
1.Take the Number of users on the network times the
inc %glob.var # and thats how long it will take. if you
set it at inc %glob.var 2 and there are 300 users on a
network it will take 600 seconds or 10 minutes to notice
everyone.
2. I've never tested this on a really big Network, so 
who knows what will happen if the # of users is in the
thousands.
3. Mass Messages are considered offensive etc etc and on
some networks you may get killed/klined so use this at 
your own risk.


LONG IP CONVERTER

Alias:
longip { echo 2 Converted $$1 to $longip($$1) }
Pop-up:
Long IP:/longip $$?="Enter IP To Convert:"

Itz to easy.


$atime IDENTIFIER

Alias:
atime { 
  set %atime $gettok($time,1,58)
  if (%atime >= 13) { %atime = %atime - 12 | return %atime $+ : $+ $gettok($time,2,58) $+ pm }
  else if (%atime == 12) { return %atime $+ : $+ $gettok($time,2,58) $+ pm }
  else if (%atime == 0) { %atime = %atime + 12 | return %atime $+ : $+ $gettok($time,2,58) $+ am }
  else { return %atime $+ : $+ $gettok($time,2,58) $+ am }
}
With that in alias you can use $atime anywhere and it won't return that
damn military time. Example: //say It is currently $atime


FILTER KICK

Alias:
fk {
  set %filter.kick.address $$2
  set %filter.kick On
  who $$1
}
Remote, Raw:
315:*: { 
  if (%filter.kick == On) {
    set %filter.kick Off
    unset %filter.kick.address  
    halt
  }
}
352:*: {
  if (%filter.kick == On) {
    if ($parm6 == $me) { halt }
    if (%filter.kick.address isin $parm4) {
      kick $parm2 $parm6 $chr(3) $+ 6Filter Kick of $+ $chr(3) $chr(3) $+ 4 $+ $chr(42) $+ %filter.kick.address $+ $chr(42) $+ $chr(3) $chr(3) $+ 6from $parm2 $+ $chr(3)
    }
    halt
  } 
}
With those in place you can /fk #channel .com and watch it kick everyone with
.com in their address or /fk #anotherchannel aol and watch all the aol users
go bye bye.

GLOBAL KICK

Alias:
GlobalKick { 
 set %kick.var 1 
 if ($2 != $null) { 
   set %global.kick.msg *2
   goto next
 }
 set %global.kick.msg Global Kick
 :next 
 set %channel $channel(%kick.var) 
 if (%channel == $null) { goto done }  
 if (($$1 ison %channel) && ($me isop %channel)) {
   ban %channel $$1 3 
   kick %channel $$1 %global.kick.msg 
 } 
 inc %kick.var 
 goto next 
 :done 
}
Now all you have to do is type one of the following:
/globalkick 
/globalkick  
And it will kick/ban them from all channels where you 
have ops.

MASS DEOP

Alias:
MassDeop { 
 %deopvar = 0 
 %deopnicks = "" 
 :next 
 inc %deopvar 1 
 if ($opnick(%deopvar,$$1) == $me) { goto next } 
 if ($opnick(%deopvar,$$1) == $null) { 
  if ($len(%deopnicks) > 0) { mode # -oooo %deopnicks }
  goto done 
  } 
 %deopnicks = %deopnicks $opnick(%deopvar,$$1) 
 if (4 // %deopvar) { mode # -oooo %deopnicks | %deopnicks = "" } 
 goto next 
 :done 
}
Then /massdeop {channel}


MASS KICK

Alias:
MassKick { 
 set %kick.var 1 
 :next 
 if ($nick(%kick.var,$$1) == $null) { goto done } 
 if ($nick(%kick.var,$$1) == $me) { inc %kick.var 1 | goto next } 
 kick $$1 $nick(%kick.var,$$1) Mass Kick of $$1 
 inc %kick.var 1 
 goto next 
 :done 
}
Then /masskick {channel}


MASS KICK BAN

Alias:
mkb { 
 set %kick.ban.var 1 
 :next 
 if ($nick(%kick.ban.var,$$1) == $null) { goto done } 
 if ($nick(%kick.ban.var,$$1) == $me) { inc %kick.ban.var 1 | goto next } 
 ban $$1 $nick(%kick.ban.var,$$1) 3 
 kick $$1 $nick(%kick.ban.var,$$1) Mass Kick/Ban of $$1 
 inc %kick.ban.var 1 
 goto next 
 :done 
}
Then /mkb {channel}


MASS MSG

Alias:
MassMsg { 
 set %msg.var 1 
 set %mass.msg $$?="Enter Your Msg:" 
 :next 
 if ($nick(%msg.var,$$1) == $null) { goto done } 
 if ($nick(%msg.var,$$1) == $me) { inc %msg.var 1 | goto next } 
 msg $nick(%msg.var,$$1) [TSG] [Mass Msg] %mass.msg (Replies will be burnt!) 
 inc %msg.var 1 
 goto next 
 :done 
}
Then /massmsg {channel} {msg}


NON OP MASS KICK
nomk { 
 set %nopkick.var 1 
 :next 
 if ($nopnick(%nopkick.var,$$1) == $null) { goto done } 
 kick $$1 $nopnick(%nopkick.var,$$1) Ops Only! 
 inc %nopkick.var 1 
 goto next 
 :done 
}
Then /nomk {channel}
Note: you may want to /mode {channel} +i so they can't get right back in.


OP MSG

Alias:
omsg { 
 if ($me isop $$1) { omsg $$1 *2 }
 else {
  set %opmsg.var 1  
  :next 
  if ($opnick(%opmsg.var,$$1) == $null) { goto done } 
  if ($opnick(%opmsg.var,$$1) == $me) { inc %opmsg.var 1 | goto next } 
  .msg $opnick(%opmsg.var,$$1) [Op-Wide Message] *2
  inc %opmsg.var 1 
  goto next 
  :done 
 }
}
Then /omsg {channel} {msg}


NON OP NOTICE

Alias:
non { 
 set %notice.var 1 
 :next 
 if ($nopnick(%notice.var,$$1) == $null) { goto done } 
 if ($nopnick(%notice.var,$$1) == $me) { inc %notice.var 1 | goto next } 
 .notice $nopnick(%notice.var,$$1) [Non-Ops Notice] *2 
 inc %notice.var 1 
 goto next 
 :done 
}
Then /non {channel} {msg}


NON OP MSG

Alias:
nom { 
 set %opmsg.var 1 
 :next 
 if ($nopnick(%opmsg.var,$$1) == $null) { goto done } 
 if ($nopnick(%opmsg.var,$$1) == $me) { inc %opmsg.var 1 | goto next } 
 .msg $nopnick(%opmsg.var,$$1) [Non-Ops Message] *2 
 inc %opmsg.var 1 
 goto next 
 :done 
}
Then /nom {channel} {msg}


RANDOM KICK

Alias:
rk { 
 :begin 
 set %kick.var $r(1,$nick(0,$$1)) 
 if ($nick(%kick.var,$$1) == $me) { goto begin } 
 kick $$1 $nick(%kick.var,$$1) Random Kick 
}
Then /rk {channel}


RANDOM OP KICK

Alias:
rok { 
 :begin 
 set %kick.var $r(1,$opnick(0,$$1)) 
 if ($opnick(%kick.var,$$1) == $me) { goto begin } 
 kick $$1 $opnick(%kick.var,$$1) Random Op Kick 
}
Then /rok {channel}


RANDOM NON OP KICK

Alias:
rnok { 
 :begin 
 set %kick.var $r(1,$nopnick(0,$$1)) 
 if ($nopnick(0,$$1) == 0) { halt } 
 kick $$1 $nopnick(%kick.var,$$1) Random Non Op Kick 
}
Then /rnok {channel}


ASCII TABLE

Alias:
ascii { 
 set %chr.var 1 
 :loop 
 if (%chr.var > 255) { goto done } 
 echo 1 Ascii %chr.var is $chr(%chr.var) 
 inc %chr.var 1 
 goto loop 
 :done 
}
Then type /ascii

This page hosted by Get your own Free Homepage

©1996 The Scripters Guild All Rights Reserved
Please send all questions and comments to TiAMaT