#autovoice on
on +4@:JOIN:#: {
  mode $chan +v $nick
}
#autovoice end
#autoop on
on +5@:JOIN:#: {
  mode $chan +o $nick
}
#autoop end
#blacklist on
on +33@:JOIN:#: {
  ban $chan $nick 4
  kick $chan $nick $irc 2,0You Are Blacklisted 4,0<Kick $chr(35) $+ %knum $+ >
}
#blacklist end  
#shutup on
on +30:TEXT:*:#: {
  ban -u200 $chan $nick 3
  kick $chan $nick $irc 2,0 Didn't I warned You To 4,0SHUT UP! 2,0<Kick $chr(35) $+ %knum $+ >
  .ruser 30 $nick 3


}
#shutup end
on 1:CONNECT: {
  if ( %first == YES ) { play -c $me $mircdirtxt\first.txt 0 } 
  else { play -c $me $mircdirtxt\connect.txt 0 }
}
on 1:TEXT:%me:#: {
  if ( %away.page == ON ) && ( %away.reason != $null ) && ( $away == $true ) {
    notice $nick I am 2,0AWAY 4,0 ( $+ %away.reason $+ ) Pager: ON, to page me use: !page <message> :in any private msg with me $irc
  }
  elseif ( %away.page == OFF ) && ( %away.reason != $null ) && ( $away == $true ) {
    notice $nick I am 2,0AWAY4,0 ( $+ %away.reason $+ ) Pager: OFF $irc
  }
  else { goto end }
  :end
}
on 1:ACTION:%me:#: {
  if ( %away.page == ON ) && ( %away.reason != $null ) && ( $away == $true ) {
    notice $nick I am 2,0AWAY4,0 ( $+ %away.reason $+ ) Pager: ON, to page me use: !page <message> :in any private msg with me $irc
  }
  elseif ( %away.page == OFF ) && ( %away.reason != $null ) && ( $away == $true ) {
    notice $nick I am 2,0AWAY4,0 ( $+ %away.reason $+ ) Pager: OFF $irc
  }
  else { goto end }
  :end
}
on 1:OPEN:?: {
  set %msgchan $comchan($nick,1)
  if ( $1 == !page ) && ( $away == $true ) { goto page }
  elseif (( %away.page == ON )  && ( $away == $true )) {
    msg $nick 2,0AWAY! - 2,0Reason4,0 ( $+ %away.reason $+ ) 2,0Pager: 4,0ON, (use: !page <message> :in this window to page me) $irc | /closemsg $nick
    echo -a 2,0AWAY4,0: $nick wants to msg you [2,0 $+ $strip($1-) $+ ]
    .ignore -u5 $nick
    goto end
  }
  elseif (( %away.page == OFF ) && ( $away == $true )) {
    msg $nick 2,0AWAY!- 2,0Reason 4,0 ( $+ %away.reason $+ ) 2,0Pager:4,0 OFF $irc  | /closemsg $nick
    echo -a 2,0AWAY!B4,0: $nick wants to msg you [2,0 $+ $strip($1-) $+ ]
    .ignore -u5 $nick
    goto end
  }
  elseif ($nick isvo %msgchan) || ($nick isop %msgchan) && ( %fpov == YES ) { 
    goto end2 
  }
  elseif ( %msgscreen == ON ) { 
    .msg $nick %asm  $irc  | /closemsg $nick
    echo -a 4,0 $nick 2,0wants to msg you [4,0 $strip($1-) ]
    .ignore -u5 $nick
    splay $mircdirsys\himsg.wav
    goto end
  }
  else { goto end2 }
  :page
  write $mircdirtxt\pages.txt ( $+ $atime $+ ) $nick paged you: $strip($2-)
  splay $mircdirsys\page.wav
  msg $nick 7Your msg has been Recorded. $irc
  echo -a 2,0PAGER,4: $nick just paged you 4(2,0 $+ $strip($2-) $+ 4)
  .ignore -u5 $nick
  goto end
  :end
  if ( %privmsgpro. [ $+ [ $nick ] ] == $null ) { set %privmsgpro. [ $+ [ $nick ] ] 1 | .timer 1 3 unset %privmsgpro. [ $+ [ $nick ] ] | halt }
  elseif ( %privmsgpro. [ $+ [ $nick ] ] isnum 1-3 ) { inc %privmsgpro. [ $+ [ $nick ] ] 1 | .timer 1 3 unset %privmsgpro. [ $+ [ $nick ] ] | halt }
  elseif ( %privmsgpro. [ $+ [ $nick ] ] == 4 ) { ignore -p $nick | .timer 1 60 ignore -r $nick | echo -a 2,0 $nick is being ignored, 60 secs, possible msg flood | unset %privmsgpro. [ $+ [ $nick ] ] | halt }
  else { halt }
  :end2
  /msg $nick 2,0Message Accepted From4,0 $nick $+ . $irc
  unset %msgchan
}
on +1:NOTIFY:echo -a 2,0 NOTIFY:14[4,0 $+ $nick $+ 14][2,0 $+ $address $+ 11]4,0 is now on To IRC
on +1:UNOTIFY: echo -a 2,0 NOTIFY:14 [4,0 $+ $nick $+ 14][2,0 $+ $address $+ 14]4,0has Logged off From IRC 
on 1:SNOTICE:*Highest connection count*:/echo -s 2,0Highest Connection Count:2 $parm4* | halt
on 1:SNOTICE:*: {
  if ( $10 != NickServ ) && ( $5 == KILL ) {
    echo -s 2,0Killed:4,0 $gettok($8,1,33) 2,0by4,0 $10 2,0 $+ $13-
    halt
  }
  else { goto end }
  :end
}
on 1:WALLOPS:*: { 
  if ( $nick == $me ) { echo -a 2,0Sending WALLOP4,0: $1- | halt }
  else { echo -a 2,0WALLOP from $nick $+ 4,0: $1- | halt }
}
ctcp 1:VERSION:*:/.ctcpreply $nick $ircversion
#autoping off
on 1:text:*ping me*:*:/ctcp $nick ping | /notice $nick 2,0Here Is A Thing You 4,0Want 2,0Free Ping 4,0 For YOU :) NaSSaB786 $irc
on 1:text:*ping pl*:*:/ctcp $nick ping | /notice $nick 2,0Here Is A Thing You 4,0want2,0Free Ping 4,0 For YOU :) NaSSaB786 $irc
on 1:text:*my ping*:*:/ctcp $nick ping | /notice $nick 2Here Is A Thing You Want 144F12ree44P12ing14 7 For YOU :) NaSSaB786 $irc
on 1:text:*lag*:*:/ctcp $nick ping | /notice $nick 2,0Here Is A Thing You 4,0Want 2,0Free Ping 4,0 For YOU :) NaSSaB786 $irc
on 1:action:*ping me*:*:/ctcp $nick ping | /notice $nick 2,0Here Is A Thing You 4,0Want 2,0Free Ping 4,0 For YOU :) NaSSaB786 $irc
on 1:action:*ping pl*:*:/ctcp $nick ping | /notice $nick 2,0Here Is A Thing You 4,0Want 2,0Free Ping 4,0 For YOU :) NaSSaB786 $irc
on 1:action:*my ping*:*:/ctcp $nick ping | /notice $nick 2,0Here Is A Thing You 4,0Want 2,0Free Ping 4,0 For YOU :) NaSSaB786 $irc
on 1:action:*lag*:*:/ctcp $nick ping | /notice $nick 2,0Here Is A Thing You 4,0Want 2,0Free Ping 4,0 For YOU :) NaSSaB786 $irc
#autoping end
on 1:ctcpreply:*ping*: {
  if ($2 == $null) halt
  if ( $nick == $me ) {
    %ping.reply = $ctime - $2
    if (%ping.reply < 0) set %ping.reply 0
    if (%ping.reply < 7) { echo -a 2,0 Currently Minimal Lag: %ping.reply Seconds }
    elseif (%ping.reply < 25) { echo -a 2,0 Currently Slight Lag: %ping.reply Seconds  }
    else { echo -a 2,0 Too Much Lag: %ping.reply Seconds | echo -a 2,0 You Should Change Server... }
    goto pingend
  }
  %ping.time = $ctime - $parm2 | notice $nick 2,0Your 4,0Free Ping 2,0ReplY From 14[4,0 $server 14] 2,0is 14[4,0 %ping.time 14] 2,0Seconds!  $irc | echo -a 4,0 $nick 2,0Ping Reply: %ping.time Seconds
  :pingend
  unset %ping.*
}
#banpro on
.on +100:BAN:#: {
  .msg ChanServ@services.dal.net INVITE # $me
  mode $chan -ob $nick $banmask
  kick $chan $nick 2,0Ban Protection! $irc (Kick $chr(35) $+ %knum
  echo -a 2,0 Unbanning you from4,0 $chan
  splay $mircdirsys\error.wav
}
#banpro end
#autoreop on
on 1:DEOP:#: {
  if ( $opnick == $me ) && ( $nick != $me ) && ( .dal.net isin $server ) {
    splay $mircdirsys\error.wav
    .msg nickserv@services.dal.net IDENTIFY %nspw
    .msg chanserv@services.dal.net OP $chan $opnick
    .msg chanserv@services.dal.net deop $chan $nick
    echo -a 2,0 Reop'ing you in4,0 $chan 2,0(Deop'd by $nick $+ )
  }
  else { halt }
}
#autoreop end
#autoial off
on 1:OP:#: {
  if ( $opnick == $me ) {
    echo -a 2,0 You Have Been Op'd In $chan by4,0 $nick
    echo -a 2,0 Now Updating IAL, Please Wait...
    .enable #updateial
    who $chan
  }
  else { halt }
}
on 3:SERVEROP:#: {
  if ( $opnick == $me ) {
    echo -a 2,0 You Have Been Op'd In4,0 $chan (Server Op)
    echo -a 2,0 Now Updating IAL, Please Wait...
    .enable #updateial
    who $chan
  }
  else { halt }
}
#autoial end
#ctcppro on
ctcp 1:*:*: {
  if ( $1 == SOUND ) { goto end }
  elseif ( %ctcppro. [ $+ [ $nick ] ] == $null ) { set %ctcppro. [ $+ [ $nick ] ] 1 | .timer 1 10 unset %ctcppro. [ $+ [ $nick ] ] | goto end }
  elseif ( %ctcppro. [ $+ [ $nick ] ] == 1 ) { set %ctcppro. [ $+ [ $nick ] ] 2 | .timer 1 10 unset %ctcppro. [ $+ [ $nick ] ] | goto end }
  elseif ( %ctcppro. [ $+ [ $nick ] ] == 2 ) { ignore -t $nick | .timer 1 60 ignore -r $nick | echo -a 2,0 $nick 4,0is being ignored, 60 secs, possible ctcp flood | unset %ctcppro. [ $+ [ $nick ] ] | goto end }
  else { goto end }
  :end
}
#ctcppro end
#invitepro on
on 1:INVITE:#: {
  if ( %invitepro. [ $+ [ $nick ] ] == $null ) { set %invitepro. [ $+ [ $nick ] ] 1 | .timer 1 10 unset %invitepro. [ $+ [ $nick ] ] | goto end }
  elseif ( %invitepro. [ $+ [ $nick ] ] == 1 ) { set %invitepro. [ $+ [ $nick ] ] 2 | .timer 1 10 unset %invitepro. [ $+ [ $nick ] ] | goto end }
  elseif ( %invitepro. [ $+ [ $nick ] ] == 2 ) { ignore -t $nick | .timer 1 60 ignore -r $nick | echo -a 2,0 $nick 4,0 is being ignored, 60 secs, possible invite flood | unset %invitepro. [ $+ [ $nick ] ] | goto end }
  else { goto end }
  :end
}
#invitepro end
#privmsgpro on
on 1:TEXT:*:?: {
  if ( %privmsgpro. [ $+ [ $nick ] ] == $null ) { set %privmsgpro. [ $+ [ $nick ] ] 1 | .timer 1 3 unset %privmsgpro. [ $+ [ $nick ] ] | goto end }
  elseif ( %privmsgpro. [ $+ [ $nick ] ] isnum 1-3 ) { inc %privmsgpro. [ $+ [ $nick ] ] 1 | .timer 1 3 unset %privmsgpro. [ $+ [ $nick ] ] | goto end }
  elseif ( %privmsgpro. [ $+ [ $nick ] ] == 4 ) { ignore -p $nick | .timer 1 60 ignore -r $nick | echo -a 2,0 $nick 4,0is being ignored, 60 secs, possible msg flood | unset %privmsgpro. [ $+ [ $nick ] ] | goto end }
  else { goto end }
  :end
}
#privmsgpro end
#noticepro on
on 1:NOTICE:*:?: {
  if ( $nick == ChanServ ) || ( $nick == NickServ ) || ( $nick == MemoServ ) { goto end }
  if ( %noticepro. [ $+ [ $nick ] ] == $null ) { set %noticepro. [ $+ [ $nick ] ] 1 | .timer 1 3 unset %noticepro. [ $+ [ $nick ] ] | goto end }
  elseif ( %noticepro. [ $+ [ $nick ] ] == 1 ) { set %noticepro. [ $+ [ $nick ] ] 2 | .timer 1 3 unset %noticepro. [ $+ [ $nick ] ] | goto end }
  elseif ( %noticepro. [ $+ [ $nick ] ] == 2 ) { ignore -n $nick | .timer 1 300 ignore -r $nick | echo -a 2,0 $nick 4,0is being ignored, 300 secs, possible notice flood | unset %noticepro. [ $+ [ $nick ] ] | goto end }
  else { goto end }
  :end
}
#noticepro end
on 100:NICK: {
  set %me * $+ $newnick $+ *
  set %wavs ! $+ $newnick $+ *.wav*
  set %mids ! $+ $newnick $+ *.mid*
  set %mp3s ! $+ $newnick $+ *.mp3*
}
#rekick off
on !1:kick:#: { 
  if $knick = $me { .set %kiker $nick | join $chan }
}
on !1:op:#: if ( $opnick == $me ) && ( %kiker ison $chan ) { kick $chan %kiker $irc %ak 2,0PERSONAL KICK 4,0PROTECTION! 2,0 <Kick $chr(35) $+ %knum $+ > | .unset %kiker | .ruser 18 %kiker }
on @1:join:#: if ( $opnick == $me ) && ( $nick == %kiker ) { kick $chan $nick $irc %ak 2,0PERSONAL KICK 4,0PROTECTION!  2,0 <Kick $chr(35) $+ %knum $+ > | .ruser 18 $nick }
#rekick end

#aanswer on
on !1:TEXT:*:#: {
  if ($strip($1-) == Back) { msg $chan 4,0W2,0elcome 4,0B2,0ack 4,0 $nick }
  if ($strip($1-) == Be Right Back) { msg $chan 4,0H2,0urry 4,0B2,0ack 4,0 $nick }
  if ($strip($1-) == Brb1) { msg $chan 4,0H2,0urry 4,0B2,0ack 4,0 $nick }
  if ($strip($1-) == salam) { msg $chan 4,0W2,0  4,02,0km 4,02,0m! 4,0 $nick }
}
#aanswer end

on 1:TEXT: $me :#: {
  splay $mircdirsys\croak.wav 
}
on 1:NOTICE: $me :#: {
  splay $mircdirsys\croak.wav
}
