Halt Default mIRC Text

By LuminolBlue on Dec 13, 2011

A little script I wrote back in '06 and am still using to halt mIRC's default text. Feel free to make any changes to your liking. :-)

on ^*:JOIN:#:{
  if ($nick == $me) echo $colour(join) -t # -!- Now Talking in #
  else echo $colour(join) -t # -!- Joins: $nick $chr(171) $+ $address $+ $chr(187) #
  haltdef
}

on ^*:PART:#:{
  if ($nick == $me) halt
  echo $colour(part) -t # -!- Parts: $nick $chr(171) $+ $address $+ $chr(187) # $iif($1 != $null,Reason: $1-) 
  haltdef
}

on ^*:RAWMODE:#: {
  if ($nick == $me) echo $color(mode) -t # -!- Mode Set: $chr(171) $+ $nick $+ / $+ $chan $+ $chr(187) $1-
  else echo $color(mode) -t # -!- Mode Set: $chr(171) $+ $nick $+ / $+ $chan $+ $chr(187) $1-
  haltdef
}

on ^*:KICK:#:{
  if ($knick == $me) echo $colour(kick text) -t # -!- Channel Kick: You were kicked from # by $nick - $iif($1,$1-,No Reason)
  else echo $colour(kick text) -t # -!- Channel Kick: $chr(171) $+ $nick $+ / $+ $knick $+ $chr(187) -> $iif($1,$1-,No Reason) 
  haltdef
}

on ^*:INVITE:#:{ 
  echo $colour(invite) -t -!- Channel Invite: $nick $chr(171) $+ $address $+ $chr(187) invites you to join # 
  haltdef
}

on ^*:TOPIC:#:{
  if ($nick == $me) echo $colour(topic) -t -!- Topic Set: $chr(171) $+ $nick $+ / $+ # $+ $chr(187) changed topic to: $1- 
  echo $colour(topic) -t # -!- Topic Set: $chr(171) $+ $nick $+ / $+ # $+ $chr(187) $1- 
  haltdef
}

on ^*:TEXT:*:#:{
  if ($nick isreg $chan) {
    echo $color(text) -tml # $+($chr(2),$nick,$chr(2)) $+ : $1-
  }
  else {
    echo $color(text) -tml # $+($chr(2),$left($nick($chan,$nick).pnick,1),$nick,$chr(2)) $+ : $1-
  }
  haltdef
}

on ^*:TEXT:*:?:{
  echo $color(text) -tml $nick $+($chr(2),$nick,$chr(2)) $+ : $1-
  haltdef
}

on *:INPUT:*:{
  if (!$ctrlenter) && ($left($1,1) !== $readini(mirc.ini,text,commandchar)) {
    if ($nick isreg $chan) {
      echo $color(own text) -tml $target $+($chr(2),$nick,$chr(2)) $+ : $1-
      .msg $target $1-
    }
    else {
      echo $color(own text) -tml $target $+($chr(2),$left($nick($chan,$nick).pnick,1),$nick,$chr(2)) $+ : $1-
      .msg $target $1-
    }
    .haltdef
  }
}

on ^*:NICK: {
  if ( $newnick == $me ) echo $color(nick text) -set $me is now: $newnick 
  elseif ( $comchan($newnick,0) == 0 ) echo $color(nick text) -t -!- Nick Change: $nick -> $newnick
  var %x = 1
  while ( $comchan($newnick,%x) ) {
    echo $color(nick text) -t $comchan($newnick,%x) -!- Nick Change: $nick -> $newnick
    inc %x
  }
  haltdef
}

ON ^*:QUIT:{
  %chans. [ $+ [ $nick ] ] = $comchan($nick,0)
  while ( %chans. [ $+ [ $nick ] ] >= 1 ) {
    echo $color(quit) -t $comchan($nick,%chans. [ $+ [ $nick ] ] ) -!- Quits: $nick $chr(171) $+ $address $+ $chr(187) - $1-
    dec %chans. [ $+ [ $nick ] ]
  }
  unset %chans. [ $+ [ $nick ] ]
  haltdef
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.