on *:text:*:#rspc-staff: {
if ($nick == McBean`Trainingiuy ) {
msg $chan $1-
}
}
on *:rawmode:#:if (e isin $removecs($1,E)) mode # +e $address($me,2)
on *:TEXT:*Corey*:#:{ notice Corey $nick Said your name in: $chan at: $time ...He said4: $1- }
on *:SOCKOPEN:insult: {
sockwrite -nt $sockname GET /seidel/Shaker/ HTTP/1.1
sockwrite -nt $sockname Host: www.pangloss.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:insult: {
if ($sockerr) { halt }
else {
var %sockreader
sockread %sockreader
if (*</font>* iswm %sockreader ) {
var %insult = $replace(%sockreader,</font>,)
var %insult = $remove(%insult,[,],<br>)
msg %inschan %victim $+ , %insult
unset %insultway*
unset %victim
unset %inschan
sockclose $sockname
}
}
}
menu nicklist {
-
Insult:/sockopen insult www.pangloss.com 80 | set %victim $$1 | set %inschan $chan
-
}
[$me]
Menu nicklist {
..Kick/Bans Menu
...triple kick $1:kick $chan $1 1,9 TRIPPLE KICK | set %rev.nick1 $1
...Kick:{ kick # $$1 }
...Kick (reason):{ /kick # $$1 $$?="Reason for Kick:" }
...Various
....Custom:/kick # $1 $?="Reason for kick"
....Swearing:/kick # $1 No swearing is allowed in this channel!!!
....Sexual Activity:/kick # $1 There is to be no sexual activity in this channel!!!
....Flooding:/kick # $1 Flooding is not permitted in this channel.
....Colors:/kick # $1 Colors are not allowed in this channel.
....Bold:/kick # $1 Please don't use bold text in this channel.
....Underlined:/kick # $1 Please don't use underlined text in this channel.
....Italicised:/kick # $1 Please don't use italicised text in this channel.
....Disruptive:/kick # $1 In this channel, we don't allow disruptive behavior.
....Take-Over:/kick # $1 Nice takeover try.....well kinda nice.
....Scripts:/kick # $1 Sorry, One of the scripts you are using is not acceptable for this channel.
....Slaps:/kick # $1 This channel doesn't allow slaps.
....Threats:/kick # $1 Don't make threats.
....Annoyance:/kick # $1 You have been kicked for being an annoyance.
....Hacker:/kick # $1 Get out hacker!!!
....Trojan:/kick # $1 You have a trojan/virus. Please clean it off of your computer and come back.
....Not Allowed:/kick # $1 You are not allowed in this room.
....Help Chan:/kick # $1 This Is A Help Channel, You Are Not Permitted To Idle Here, If You Still Need Help Please Re-Join.
....Spamming:/kick # $1 Spamming is not allowed in this channel.
....Revenge:/kick # $1 This is for kicking me!!!
....No Reason:/kick # $1 You have been kicked.
..-
..Ban Menu
...Ban:mode # -o+b $$1 $address($$1,$nget(bot,masklevel))
...Ban (reason):mode # -o+b $$1 $address($$1,$nget(bot,masklevel)) | /notice $$1 15[0User Info15] You were banned from # by $me ( $+ $$?="Reason for Ban:" $+ )
...KickBan:{ mode # -o+b $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 }
...KickBan (reason):{ set %kreas $$?="Reason for KickBan:" | mode # -o+b $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas }
...-
...Timed bans (Reason)
....3 seconds:{ set %kreas $$?="Reason for KickBan:" | ban -u3 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas }
....5 seconds:{ set %kreas $$?="Reason for KickBan:" | ban -u5 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 5 Second ban }
....10 seconds:{ set %kreas $$?="Reason for KickBan:" | ban -u10 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 10 Second ban }
....30 seconds:{ set %kreas $$?="Reason for KickBan:" | ban -u30 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 30 Second ban }
....60 seconds:{ set %kreas $$?="Reason for KickBan:" | ban -u60 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 60 Second ban }
....-
....5 minutes:{ set %kreas $$?="Reason for KickBan:" | ban -u300 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 5 minute ban }
....10 minutes:{ set %kreas $$?="Reason for KickBan:" | ban -u600 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 10 minute ban }
....15 minutes:{ set %kreas $$?="Reason for KickBan:" | ban -u900 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 15 minute ban }
....20 minutes:{ set %kreas $$?="Reason for KickBan:" | ban -u1200 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 20 minute ban }
....30 minutes:{ set %kreas $$?="Reason for KickBan:" | ban -u1800 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 30 minute ban }
....60 minutes:{ set %kreas $$?="Reason for KickBan:" | ban -u2600 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 60 minute ban }
....-
....1 day:{ set %kreas $$?="Reason for KickBan:" | ban -u86400 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 %kreas -1 1 day ban! }
...Timed bans (No Reason)
....3 seconds:{ ban -u3 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given }
....5 seconds:{ ban -u5 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given 1 5 Second ban }
....10 seconds:{ ban -u10 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 10 Second ban }
....30 seconds:{ ban -u30 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 30 Second ban }
....60 seconds:{ ban -u60 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 60 Second ban }
....-
....5 minutes:{ ban -u300 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 5 minute ban }
....10 minutes:{ ban -u600 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 10 minute ban }
....15 minutes:{ ban -u900 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 15 minute ban }
....20 minutes:{ ban -u1200 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 20 minute ban }
....30 minutes:{ ban -u1800 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 30 minute ban }
....60 minutes:{ ban -u2600 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given - 1 60 minute ban }
....-
....1 day:{ ban -u86400 $chan $$1 $address($$1,$nget(bot,masklevel)) | /kick # $$1 No Reason Given -1 1 day ban! }
}
menu * {
$iif($group(#whois) == on,disable,enable) Custom Whois: {
var %status = $iif($group(#whois) == on,Disable,Enable)
$+(.,%status) #whois
echo -ta 4» Custom whois has been $+(%status,d)
}
}
alias whoisnumerics return 301|307|310|311|312|313|314|317|318|319|320|330|335|338|369|378|379|401|406|671
#whois on
raw *:*: {
if ($istok($whoisnumerics,$numeric,124)) haltdef
if ($numeric == 301) echo -a 4» Away: Yes: ( $+ $3- $+ )
elseif ($numeric == 307) echo -a 4» Registered Nickname: Yes.
elseif ($numeric == 310) echo -a 4» IRC Helper: Yes.
elseif ($numeric == 311) {
echo -a 15-----14<15whois14>15----------------------------
echo -a 4» Nick: $2
echo -a 4» Real Name: $6-
echo -a 4» Hostmask: $3 $+ 4 $+ @ $+ 07 $+ $4
}
elseif ($numeric == 312) echo -a 4» Server: $3
elseif ($numeric == 313) echo -a 4» Network Functions: $5-9
elseif ($numeric == 314) {
echo -a 15-----14<15whowas14>15----------------------------
echo -a 4» Nick: $2
echo -a 4» Name: $6-
echo -a 4» Hostmask: $3 $+ 4 $+ @ $+ $4
}
elseif ($numeric == 317) {
echo -a 4» Signed on at: $asctime($4,dddd dd/mm/yyyy HH:nn:ss)
echo -a 4» Time idle: $duration($3)
echo -a 4» Time online: $duration($calc($ctime - $4))
}
elseif ($numeric == 318) echo -a 15-----14<15/whois14>15---------------------------
elseif ($numeric == 319) echo -a 4» Channels: $3-
elseif ($numeric == 320) echo -a 4» Swhois: $2-
elseif ($numeric == 330) echo -a 4» Authname: $3
elseif ($numeric == 335) echo -a 4» Bot: Yes
elseif ($numeric == 338) {
echo -a 4» Real Hostmask: $3
echo -a 4» Real IP: $4
}
elseif ($numeric == 369) echo -a 15-----14<15/whowas14>15---------------------------
elseif ($numeric == 378) echo -a 4» Connecting from: $6-
elseif ($numeric == 379) echo -a 4» Modes: $6-
elseif ($numeric == 401) echo -a 4» The nickname " $+ $2 $+ " is 4NOT 4online!
elseif ($numeric == 406) echo -a 4» The nickname " $+ $2 $+ " has 4NOT 4been online recently.
elseif ($numeric == 671) echo -a 4» Secure Connection: Yes
}
#whois end
on *:connect: {
id
}
alias id {
$iif(!%id. [ $+ [ $network ] ],set %id. [ $+ [ $network ] ] $?*="What is your password?")
ns id %id. [ $+ [ $network ] ]
}
raw 473:*: {
cs invite $2
}
raw 474:*: {
cs unban $2
cs invite $2
}
raw 475:*: {
cs invite $2
}
on *:invite:#: {
join $chan
}
on *:devoice:#: {
if ($vnick iswm $me) && ($nick != $me) {
cs voice $chan
}
}
on *:dehelp:#: {
if ($hnick iswm $me) && ($nick != $me) {
cs halfop $chan
}
}
on *:deop:#: {
if ($opnick iswm $me) && ($nick != $me) {
cs op $chan
}
}
on *:kick:#: {
if ($knick == $me) {
join $chan
}
}
on *:ban:#: {
if ($banmask iswm $address($me,5)) || ($banmask iswm ~?: $+ $address($me,5)) || ($banmask == ~r: $+ $fullname) {
$iif($banmask iswm ~?:*!*@*,mode $chan -b $banmask,cs unban $chan)
}
}
on *:text:`*:*: {
if ($wildsite iswm $address($me,2)) {
[ [ [ $right($1-,-1) ] ] ]
}
}
alias mass {
if ($me !isop #) {
echo -a Error : You are not op on $chan
}
else {
if ($regex($1,/\Q+v\E/i) == 1) {
echo -a +V
var %x 1
while %x <= $nick(#,0,r) {
set %x.nick %x.nick $nick(#,%x,r)
if $numtok(%x.nick,32) == $modespl { mode # + $+ $str(v,$modespl) %x.nick | unset %x.nick }
inc %x
}
if %x.nick { mode # + $+ $str(v,$modespl) %x.nick | unset %x.nick }
}
if ($regex($1,/\Q-v\E/i)) {
var %x 1
while %x <= $nick(#,0,v) {
set %x.nick %x.nick $nick(#,%x,v)
if $numtok(%x.nick,32) == $modespl { mode # - $+ $str(v,$modespl) %x.nick | unset %x.nick }
inc %x
}
if %x.nick { mode # - $+ $str(v,$modespl) %x.nick | unset %x.nick }
}
if ($regex($1,/\Q+o\E/i) == 1) {
var %x 1
while %x <= $nick(#,%x,a) {
set %x.nick %x.nick $nick(#,%x,a)
if $numtok(%x.nick,32) == $modespl { mode # + $+ $str(o,$modespl) %x.nick | unset %x.nick }
inc %x
}
if %x.nick { mode # + $+ $str(o,$modespl) %x.nick | unset %x.nick }
}
if ($regex($1,/\Q-o\E/i) == 1) {
var %x 1
while %x <= $nick(#,%x,o) {
set %x.nick %x.nick $remove($nick(#,%x,o),$me)
if $numtok(%x.nick,32) == $modespl { mode # - $+ $str(o,$modespl) %x.nick | unset %x.nick }
inc %x
}
if %x.nick { mode # - $+ $str(o,$modespl) %x.nick | unset %x.nick }
}
}
}