My Remotes
My raws (under construction).
My birthday script.
My unban script.
These are only my basic remotes, of course. Still under construction.
As far as war and revenge scripts goes, I currently believe in self-defense, not offense, with exceptions (like unregistered channels). Most of these scripts are slightly modified for viewing. I do have the same events in other script sheets.
My on text event.
My own text event essentially has 3 parts: 1st being whenever someone calls my name, obviously. That's to play sound, echo the string, etc.
I also repeat text if it is said twice, by 2 different people. What it works is like this:
<Person1> same word
<Person2> same word
<Me> same word
This will be quite fun if everyone had that script. Especially if people ... you. Of course, this is only for the same channel and different person.
You know if 2 people type the same exact thing at the same time? Well with me there, it will make that 3! Especially for the case where people will repeat what is previously said.
Then, I have a calculator script, to calculate numbers if people say them, checking if they have a number and + or - in them. For example:
<Person> 2 + 2
<Neal> 4
<Person> Anyone know what 10 + (5-3) is?
<Neal> 12
Code.
#text on
on *:text:*:#: {
if (($wildtok($1-,*Neal*,0,32)) && (!$wildtok($1-,zonealarm,0,32)) && (!$wildtokcs($1-,*NEAL*,0,32))) {
if (!$istok(%ignore,$nick,44)) && ($chan != $active) {
/echo -s You have been 4called by $nick in $iif($chan,$chan,$nick) from saying, " $+ $1- $+ " at $asctime(h:nn:ss) $+ . | /splay Ding.wav
/scid $activecid /echo -s Repeat: You have been 4called by $nick in $iif($chan,$chan,$nick) on $network at $asctime(h:nn:ss) $+ .
if (% $+ $nick $+ Call <= 2) && ($nick != % $+ $nick $+ CallStop) && (] !isin $1-) {
/inc -u30 % $+ $nick $+ Call 1
}
elseif (($eval(% $+ $nick $+ Call,2) >= 2) && ($nick != $eval(% $+ $nick $+ CallStop,2))) {
if ($appstate == minimized) || (%AwayStatus == Yes) {
/notice $nick [Script] You have called my nick twice in the past 30 seconds. My away status is true, my away message is in my whois. I have been away for $replace($duration($calc($ctime($asctime) - $ctime($asctime(%AwayTime)))),sec,$+($chr(32),second),min,$+($chr(32),minute),hr,$+($chr(32),hour),day,$+($chr(32),day),wk,$+($chr(32),week)). My expected arrival time is $iif(%AwayDuration isnum,$calc(($ctime($asctime(%AwayTime)) + $calc(%AwayDuration * 60)) - $ctime($asctime)),%AwayDuration) $+ . | echo -s 1 | /set -u600 % $+ $nick $+ CallStop $nick
}
elseif (%AwayStatus != Yes) && (%Busy == $null) {
/notice $nick [Script] You have called my nick twice in the past 30 seconds. My away status is false - my mIRC detects me to be here (as of less than 5 minutes ago), your message has been relayed to me to my nearest status window. I should be able to respond to you shortly. | echo -s 1 | /set -u600 % $+ $nick $+ CallStop $nick
}
elseif (%AwayStatus != Yes) && (%Busy != $null) {
/notice $nick [Script] You have called my nick twice in the past 30 seconds. My away status is false - my mIRC detects me to be here on the computer, your message has been relayed to me to my nearest status window. However, I am busy right now, my busy reason is: %Busy | echo -s 1 | /set -u600 % $+ $nick $+ CallStop $nick
}
}
}
}
if ($wildtokcs($1-,*NEAL*,0,32)) && ($nick != $eval(% $+ $nick $+ CallStop,2)) {
if ($appstate == minimized) || (%AwayStatus == Yes) {
/notice $nick [Script] You have said my nick in all caps. My away status is true, my away message is in my whois. I have been away for $replace($duration($calc($ctime($asctime) - $ctime($asctime(%AwayTime)))),sec,$+($chr(32),second),min,$+($chr(32),minute),hr,$+($chr(32),hour),day,$+($chr(32),day),wk,$+($chr(32),week)). My expected arrival time is $iif(%AwayDuration isnum,$calc(($ctime($asctime(%AwayTime)) + $calc(%AwayDuration * 60)) - $ctime($asctime)),%AwayDuration) $+ . | /set -u600 % $+ $nick $+ CallStop $nick
}
elseif (%AwayStatus != Yes) && (%Busy == $null) {
/notice $nick [Script] You have said my nick in all caps. My away status is false - my mIRC detects me to be here (as of less than 5 minutes ago), your message has been relayed to me to my nearest status window. I should be able to respond to you shortly. | /set -u600 % $+ $nick $+ CallStop $nick
}
elseif (%AwayStatus != Yes) && (%Busy != $null) {
/notice $nick [Script] You have said my nick in all caps. My away status is false - my mIRC detects me to be here on the computer, your message has been relayed to me to my nearest status window. However, I am busy right now, my busy reason is: %Busy | /set -u600 % $+ $nick $+ CallStop $nick | /halt
}
}
if (#*chicago* !iswm $chan) && ($istok($1-,Chicago,32)) {
/echo -s Chicago: $nick in $chan said " $+ $1- " at $asctime(h:nn:ss) $+ .
}
if ((((*+* iswm $1-) || (*-* iswm $1-) || ($chr(42) isin $1-) || (*/* iswm $1-)))) && ($iif($regex($1-,/\d/),Yes,No) == Yes) && ($chr(58) !isin $1-) {
if ($calc($remove($replace($1-,x,$chr(42),$chr(44),+),a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z)) == 0) /halt
elseif ($istok(-9 -8 -7 -6 -5 -4 -3 -2 -1 1 2 3 4 5 6 7 8 9,$calc($remove($replace($1-,x,$chr(42),$chr(44),+),a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z)),32)) /halt
elseif ($calc($remove($replace($1-,x,$chr(42),$chr(44),+),a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z)) == $1-) /halt
elseif ($calc($remove($replace($1-,x,$chr(42),$chr(44),+),a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,-)) == $regsubex($1-,/[^0-9]*/g,)) /halt
elseif ($calc($remove($replace($1-,x,$chr(42),$chr(44),+),a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,-)) == %PreviousAnswer) /halt
elseif (!%calculate) && (#*mIRC* !iswm $chan) && ($chan != #Helpdesk) && ($chan != #assistance) /msg $chan $calc($remove($replace($1-,x,$chr(42),$chr(44),+),a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z)) | inc -u1 %calculate
/set %PreviousQuestion $1-
/set %PreviousAnswer $calc($remove($replace($1-,x,$chr(42),$chr(44),+),a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z))
}
/set -u600 %lastnick. $+ $chan %thisnick. [ $+ [ $chan ] ]
/set -u600 %thisnick. $+ $chan $nick
/set -u600 %lasttext. $+ $chan %thistext. [ $+ [ $chan ] ]
/set -u600 %thistext. $+ $chan $1-
if ($eval($+(%,lasttext.,$chan),2) == $eval($+(%,thistext.,$chan),2)) && ($eval($+(%,lastnick.,$chan),2) != $eval($+(%,thisnick.,$chan),2)) && ($eval($+(%,lastnick.,$chan),2) != $me) && (%StopRepeat != $1-) {
/msg $chan $1- | /set %thisnick. $+ $chan $me | /set -u600 %StopRepeat $1-
/write test.txt $network $chan $1-
}
if ($target == $chan) && ($query($nick)) {
/echo $nick $timestamp $chan < $+ $nick $+ > $1-
}
}
#text end
How did I come up with this idea, of the "calculator" script? Well, there was a bot coded in perl that relayed numbers in calculated format.
But that wasn't very noticeable to me. Then one day, in a channel, a conversation like this happened.
Me: You don't know my number!
Someone: Oh yes I do!
Me: Oh no you don't!
Someone: Oh yes I do!
Then, he said my entire house phone number. (This was before my cell phone). Because I lived in San Diego, the area code is 858.
Someone: 1 (858) ***-****
He was right, but then, the bot triggered. It probably said, 4,428. And that number was achived by adding my phone number up.
I can't remember if it had a comma in it, but most likely didn't. When that happened, I knew I liked the script. But it wasn't until years later (spring 2007) until I came up with my own version.
on *:action:*:*: {
if ($chan != $active) && ($wildtok($1-,*Neal*,0,32)) && (!$istok(%ignore,$nick,44)) {
/echo -s You have been 4mentioned by $nick in $iif($chan,$chan,$nick) from saying, " $+ $1- $+ " at $asctime(h:nn:ss) $+ . | /splay Ding.wav
}
/set -u600 %lastnickaction. $+ $chan %thisnickaction. [ $+ [ $chan ] ]
/set -u600 %thisnickaction. $+ $chan $nick
/set -u600 %lasttextaction. $+ $chan %thistextaction. [ $+ [ $chan ] ]
/set -u600 %thistextaction. $+ $chan $1-
if ($eval($+(%,lasttextaction.,$chan),2) == $eval($+(%,thistextaction.,$chan),2)) && ($eval($+(%,lastnickaction.,$chan),2) != $eval($+(%,thisnickaction.,$chan),2)) && ($eval($+(%,lastnickaction.,$chan),2) != $me) && (%StopRepeatAction != $1-) {
/describe $chan $1- | /set %thisnickaction. $+ $chan $me | /set -u600 %StopRepeatAction $1-
}
if ($target == $chan) && ($query($nick)) {
/echo $nick $timestamp $chan * $nick $1-
}
}
on *:disconnect: {
/echo -s Online for $replace($duration($calc($ctime - $eval($+(%,time,$cid),2)),3),sec,$+($chr(32),second),min,$+($chr(32),minute),hr,$+($chr(32),hour),day,$+($chr(32),day),wk,$+($chr(32),week)) $+ . | /unset %time $+ $cid
if ($1 == irc.efnet.net) /server irc.efnet.org
var %i = 1, %DisconnectedCount = 0
while ($scon(%i)) {
if ($status == $scon(%i).status) { inc %DisconnectedCount }
inc %i
}
if (%DisconnectedCount = $scon(0)) {
/unset %lastnick* | /unset %thisnick*
/unset %lasttext* | /unset %thistext*
}
}
on *:op:#: {
if (($opnick == $me) && ($nick != $me)) {
var %i = 1,%bans
while ($ibl(#,%i)) {
if ($v1 iswm $address($me,5)) {
var %bans = %bans $v1
if ($numtok(%bans,32) == $modespl) {
/mode # $+(-,$str(b,$v1)) %bans
var %bans
}
}
inc %i
}
if (%bans) /mode # $+(-,$str(b,$numtok(%bans,32))) %bans
}
if ((($opnick == $me) && ($nick != $me) && ($nick != ChanServ))) {
/echo -s You have been 12opped by $nick in $chan at $asctime(h:nn:ss) $+ .
/splay PrintComplete
if ($istok(%MassOpChannel,$chan,44)) {
/mode $chan +oooooooooooo $nick($chan,1,r) $nick($chan,2,r) $nick($chan,3,r) $nick($chan,4,r) $nick($chan,5,r) $nick($chan,6,r) $nick($chan,7,r) $nick($chan,8,r) $nick($chan,9,r) $nick($chan,10,r) $nick($chan,11,r) $nick($chan,12,r) | /halt
}
}
if ($opnick != $me) && ($nick != $me) && ($nick != ChanServ) {
if ($opnick == %DeopNick) {
/set -u15 %DeopNickFriend $nick
}
if ($opnick == %BanningMe) {
/set -u15 %BanningNickFriend $nick
}
}
if ($nick == $me) { /enable #greet | /.timergreet 1 10 /.disable #greet
}
}
on *:voice:#: {
if ((($vnick == $me) && ($nick != $me) && ($nick != ChanServ))) {
/echo -s You have been 3voiced by $nick in $chan at $asctime(h:nn:ss) $+ .
/splay Bright | /halt
}
if ($nick == $me) { /enable #greet | /.timergreet 1 10 /disable #greet
}
}
#Deop on
on *:deop:#: {
if ((($opnick == $me) && ($nick != $me) && ($nick != ChanServ))) {
/echo -s You have been 12deopped by $nick in $chan at $asctime(h:nn:ss) $+ .
/splay Chord
if (((!$istok(%UnOpChannel,$chan,44)) && (!$istok(%UnOpNick,$nick,44)) && (!$istok(%WrongNetwork,$network,44)))) {
if (%op = 1) {
/chanserv op $chan $me | inc %op
/echo -s You have been 12deopped by $nick in $chan at $asctime(h:nn:ss) $+ . 1 | /halt
}
elseif (%op = 2) {
/.disable #deop
/.timerop 1 2 /chanserv op $chan $me | inc %op
/timerDeOpEnable 1 10 /enable #deop | /.timerDeOpEnable 1 10 /set %op 1
/echo -s You have been 12deopped by $nick in $chan at $asctime(h:nn:ss) $+ . 2 | /halt
}
elseif (%op >= 4) {
/disable #deop
/.timerReOp 1 10 /chanserv op $chan $me
/.timerDeOpEnable 1 10 /enable #deop | /halt
}
}
}
if ($opnick != $me) && ($nick == ChanServ) && ($me isop $chan) && ($mode(0).deop > 2) {
if ($chan == #shroomery) {
/mode $chan +ooo $nick($chan,1,r) $nick($chan,2,r) $nick($chan,3,r)
/mode $chan +ooo $nick($chan,1,r) $nick($chan,2,r) $nick($chan,3,r)
/mode $chan +ooo $nick($chan,1,r) $nick($chan,2,r) $nick($chan,3,r)
/mode $chan +ooo $nick($chan,1,r) $nick($chan,2,r) $nick($chan,3,r)
}
}
if ($opnick != $me) && (($nick != ChanServ) && ($nick != $me)) && ($me isop $chan) && ($mode(0).deop != $modespl) {
/set -u1 %DeopNick $nick
}
if ($opnick != $me) && (($nick != ChanServ) && ($nick != $me)) && ($me isop $chan) && ($mode(0).deop == $modespl) {
/mode $chan -oo $nick %DeopNickFriend
}
if ($opnick == %DeopNick) && ($nick == $me) && (%DeopNickFriend isop $chan) {
/mode $chan -o %DeopNickFriend
}
if ($opnick != $me) && ($me isop $chan) && ($address($opnick,4) == $address($me,4)) {
/mode $chan +o-o $opnick $nick
}
}
#Deop End
on @*:deop:#: {
if ((($opnick == $me) && ($nick != $me) && ($nick != ChanServ))) {
/echo -s You have been 12deopped by $nick in $chan at $asctime(h:nn:ss) $+ . | /beep 1
}
}
on *:devoice:#: {
if ((($vnick == $me) && ($nick != $me) && ($nick != ChanServ))) {
/echo -s You have been 3devoiced by $nick in $chan at $asctime(h:nn:ss) $+ . | /beep 1
/splay Alert
}
}
My on kick event script has to do with whether the channel is registered or not. It will also trigger if someone else was doing a mass kick, and the word mass, was in the kick message.
#kick on
on *:kick:#: {
if (($knick == $me) && ($nick != $me)) {
if ($me isop $chan) {
/splay CriticalBattery
if (!$istok(%NoJoinNick,$nick,44)) && (!$istok(%NoJoinChannel,$chan,44)) {
if (%kick == 1) {
/join $chan | inc %kick | /timerunkick1 1 15 /set %kick 1 | /halt
}
elseif (%kick == 2) {
/.timerjoinkick2 1 1 /join $chan | inc %kick | /.timerunkick2 1 15 /set %kick 1 | /halt
}
elseif (%kick == 3) {
/.timerjoinkick3 1 2 /join $chan | inc %kick | /.timerunkick3 1 15 /set %kick 1 | /halt
}
elseif (%kick == 4) {
/.timerjoinkick4 1 3 /join $chan | inc %kick | /.timerunkick4 1 15 /set %kick 1 | /halt
}
elseif (%kick == 5) {
/.timerunkick 1 15 /set %kick 1 | /notice $nick [Script] /notice $me .j # in order for me to join it. | /halt
}
}
}
elseif ($me !isop $chan) {
/splay CriticalBattery
/echo -s $nick($chan,0) users
/set -u60 %KickedChannels $addtok(%KickedChannels,$chan,44)
if ($network == ShroomeryIRC) && ($chan == #Shroomery) && ($me !isop $chan) {
/timershroom 1 11 /join $chan | /notice $nick [ShroomeryIRC] Because you have in theory kicked me for 'lurking' I set a timer to rejoin the channel in '11,', yes, 11, seconds, as to not look like I run a script on kick. I just have to make my mIRC plug in artcifial intelligence and say hi when someone says hi to me now. | /halt
}
if ($nick != ChanServ) { /notice $nick [Script] /notice $me .j # in order for me to join it. }
if ($istok(%RejoinNick,$nick,44)) /.timerrejoin 1 15 /join $chan | /halt
if ($istok(%RejoinInstantlyNick,$nick,44)) /join $chan | /halt
if ($istok(%RejoinChannel,$chan,44)) /join $chan | /halt
elseif ($chan == #SPP) { /timerspp 1 305 /join #SPP }
}
}
if ($knick != $me) && ($nick != $me) && ($me isop $chan) {
if ($address($knick,4) == $address($me,4)) {
/mode $chan -o $nick | /invite $chan $knick
}
if (r !isincs $chan($chan).mode) && ($knick isop $chan) {
if ($nick($chan,0) <=3) {
/kick $chan $nick K.
}
if (%kicks $+ [ $nick ] ] == 3) && (mass isin $1-) {
/kick # $nick Kicked more than 2 people in 2 seconds, however, the word 'mass' was in the kick messages.
/unset (%kicks $+ [ $nick ] ])
}
else { inc -u1 %kicks [ $+ [ $nick ] ]
}
}
}
if ($knick != $me) && ($nick != $me) && ($nick != ChanServ) {
/set -u1 %KickedNick $knick
}
if ($knick == %KickedNick) {
/set %KickedNickFriend $nick
}
if ($knick == %KickedNick) && ($nick == $me) {
/kick $chan %KickedNickFriend Might as well kick you too..
}
if ($query($knick)) {
/echo $knick $timestamp * $knick was kicked by $nick in $chan ( $+ $1- $+ )
}
if ($query($nick)) {
/echo $nick $timestamp * $nick kicks $knick in $chan ( $+ $1- $+ )
}
}
#kick end
#notice off
on *:notice:*:?: {
if ($1 == .j) && (!$istok(%NoJoinChannel,$2,44)) {
if ($me !ison $2) {
if ($istok(%KickedChannels,$chan,44) {
if (!%NoticeFlood) /notice $nick I wasn't kicked from there. | /set -u15 %NoticeFlood
}
elseif (%join == 1) {
if ($network == Webchat) && ($comchan($me,0) < 12) { /join $remove($2,$chr(44)) | inc %join | /halt }
elseif ($network != Webchat) { /join $remove($2,$chr(44)) | inc %join | /timerunjoin1 1 15 /set %join 1 | /halt }
}
elseif (%join == 2) {
/timerjoin 1 2 /join $remove($2,$chr(44)) | inc %join | /halt
}
elseif (%join == 3) {
/timerjoin 1 3 /join $remove($2,$chr(44)) | inc %join | /halt
}
elseif (%join == 4) {
/timerjoin 1 4 /join $remove($2,$chr(44)) | inc %join | /halt
}
elseif (%join == 5) {
/timerjoin 1 5 /join $remove($2,$chr(44)) | /set %join 1 | /halt
}
}
}
elseif ($1 == .o) && ($istok(%ToOpThem,$nick,44)) && ($2) {
if ($me isop $2) { /mode $2 +o $nick }
}
elseif ($1 == unban) && ($2) && ($istok(%passwordnick,$3,32)) {
/mode $2 -b $address($nick,2)
}
elseif ($1-6 == *** You were forced to part) { /join $7 }
if ($nick != ChanServ) && ($nick != NickServ) && ($nick != MemoServ) { /splay Default }
elseif ($nick == NickServ) {
if ($1-6 == This nickname is registered and protected.) && (($network == ShroomeryIRC) || ($network == BlueHell) || ($network == darkscience)) {
/nickserv identify kcpassword | /halt
}
elseif ($1-7 == This nickname is owned by someone else.) && ($server == irc.XboxCommunity.net) {
/nickserv identify D3V1L | /halt
}
elseif ($1-4 == This nickname is registered.) && ($network == Slacked) {
/nickserv identify Ritalin | /halt
}
}
}
#notice end
on @*:notice:*:#: {
if ($1 != $me) && ($2 == invited) { /invite $3 $chan
}
}
First off, I don't do a thing ig someone bans *!*@* (everyone in the channel).
Because when that happens, I just sit back and relax, and let everyone else's script jump into action. There's no need to remove that (unless I'm the only 1 in the room).
on *:ban:#: {
if ($me isop $chan) {
if (( ($banmask != *!*@*) && ($banmask iswm $address($me,5)) && ($nick != $me) )) {
/echo -s You have been 4banned by $nick in $chan at $asctime(h:nn:ss) ( $+ $banmask $+ ) $+ .
/splay HardwareFail
if (r !isin $chan($chan).mode) {
/mode # +b-ob $address($nick,4) $nick $banmask | /halt
}
if (( (!$istok(%NoBanChannel,$chan,44)) && (!$istok(%NoBanNick,$nick,44)) && (%ban < 4))) {
if ($mode(0).ban == 1) {
/mode # -b $banmask
inc %ban | /.timerunsetban 1 15 set %ban 1
}
if ($mode(0).ban == 2) {
/mode # -bb $ibl(#,1) $ibl(#,2)
inc %ban | /.timerunsetban2 1 15 set %ban 1
}
if ($mode(0).ban == 3) { /mode # -bbb $ibl(#,1) $ibl(#,2) $ibl(#,3) | inc %ban | /timerunsetban3 1 15 set %ban 1 }
if ($mode(0).ban == 4) { /mode # -bbbb $ibl(#,1) $ibl(#,2) $ibl(#,3) $ibl(#,4) | inc %ban | /timerunsetban4 1 15 set %ban 1 }
if ($mode(0).ban == 5) { /mode # -bbbbb $ibl(#,1) $ibl(#,2) $ibl(#,3) $ibl(#,4) $ibl(#,5) | inc %ban | /timerunsetban5 1 15 set %ban 1 }
if ($mode(0).ban == 6) { /mode # -bbbbbb $ibl(#,1) $ibl(#,2) $ibl(#,3) $ibl(#,4) $ibl(#,5) $ibl(#,6) | inc %ban | /timerunsetban6 1 15 set %ban 1 }
if ($mode(0).ban == 7) { /mode # -bbbbbbb $ibl(#,1) $ibl(#,2) $ibl(#,3) $ibl(#,4) $ibl(#,5) $ibl(#,6) $ibl(#,7) | inc %ban | /timerunsetban7 1 15 set %ban 1 }
if ($mode(0).ban == 8) { /mode # -bbbbbbbb $ibl(#,1) $ibl(#,2) $ibl(#,3) $ibl(#,4) $ibl(#,5) $ibl(#,6) $ibl(#,7) $ibl(#,8) | inc %ban | /timerunsetban8 1 15 set %ban 1 }
if ($mode(0).ban == 9) { /mode # -bbbbbbbbb $ibl(#,1) $ibl(#,2) $ibl(#,3) $ibl(#,4) $ibl(#,5) $ibl(#,6) $ibl(#,7) $ibl(#,8) $ibl(#,9) | inc %ban | /timerunsetban9 1 15 set %ban 1 }
if ($mode(0).ban == 10) { /mode # -bbbbbbbbbb $ibl(#,1) $ibl(#,2) $ibl(#,3) $ibl(#,4) $ibl(#,5) $ibl(#,6) $ibl(#,7) $ibl(#,8) $ibl(#,9) $ibl(#,10) | inc %ban | /timerunsetban10 1 15 set %ban 1 }
if ($mode(0).ban == 11) { /mode # -bbbbbbbbbbb $ibl(#,1) $ibl(#,2) $ibl(#,3) $ibl(#,4) $ibl(#,5) $ibl(#,6) $ibl(#,7) $ibl(#,8) $ibl(#,9) $ibl(#,10) $ibl(#,11) | inc %ban | /timerunsetban11 1 15 set %ban 1 }
if ($mode(0).ban == 12) { /mode # -bbbbbbbbbbbb $ibl(#,1) $ibl(#,2) $ibl(#,3) $ibl(#,4) $ibl(#,5) $ibl(#,6) $ibl(#,7) $ibl(#,8) $ibl(#,9) $ibl(#,10) $ibl(#,11) $ibl(#,12) | inc %ban | /timerunsetban12 1 15 set %ban 1 }
if ($istok(%JustKickHim,$nick,44)) {
/mode # -o+b $nick $address($nick,4) | /kick # $nick $nick
}
}
if ((!$istok(%NoBanChannel,$chan,32)) && (%ban = 3)) {
/mode $chan -bo $banmask $nick
/timerunsetbanx 1 15 set %ban 1
}
if ((!$istok(%NoBanChannel,$chan,32)) && (%ban = 4)) {
/timerunsetbanx 1 15 set %ban 1
/notice $nick [Notice] I have detected that you have repeatedly banned me. Well, you may let me know why you have done it so..
}
}
}
if ($me !isop $chan) {
if ($istok(%PartChannel,$chan,44)) /part $chan
if ($istok(%PartNick,$nick,44)) /part $chan
}
}
on *:unban:#: {
if ($banmask != *!*@*) {
if (($banmask iswm $address($me,5)) && ($nick != $me)) {
/echo -s You have been 3unbanned by $nick in $chan at $asctime(h:nn:ss) ( $+ $banmask $+ ).
/splay BellChimes
}
}
}
on *:invite:#: {
if ($nick == ChanServ) {
/join $chan | /halt
}
if ($nick != ChanServ) && ($address($nick,4) != $address($me,4)) {
/splay Notify
var %x = 1,%y | while (%x <= $comchan($nick,0)) { %y = %y $comchan($nick,%x) | inc %x } | /echo -s $nick %y ( $+ $address($nick,1) $+ )
}
if ((($istok(%InviteNick,$nick,32)) || ($address($nick,4) == $address($me,4))) && (!$istok(%NoJoinInvite,$chan,32))) {
/join $chan
}
}
on *:start: {
if ($time(HH) > 06) && ($time(HH) < 18) { /daytime }
if ($time(HH) > 18) || ($time(HH) < 06) { /nighttime }
/.timeruptimesystem 0 1 /uprecordsystem
/.timeruptimeserver 0 1 /uprecordserver
/.timeruptimemirc 0 1 /uprecordmirc
/.timertime -o 0 1 /scid $!activecid $chr(124) /titlebar $!asctime(hh:nn:ss tt) $!countnicks users $!iif($line($active,0) != 0,$line($active,0) lines,$null) $!iif($ibl($active,0) != 0,$ibl($active,0) bans,$null) $!iif($globalcoloredqueries != 0,$globalcoloredqueries pms,$null)
/echo -s You are $betterduration($calc($ctime - $ctime(March 19 1988 16:16:00))) old ( $+ $calc(($ctime - $ctime(March 19 1988 16:16:00)) / 31557600) years).
}