Miscellany

Alias nickstyle {
  if ($regex($1,/^[~&@%+#](.*)$/Si)) { 
    var %sign = $left($1,1)
    tokenize 32 $remove($1,$left($1,1))
  }
  if (%sign =+ $chr(35)) {
    return $+(%sign,$iif($left($1,1) isalpha,),$left($1,1),$iif($left($1,1) isalpha,),$right($1,$calc($len($1) - 1)))
  }
  else {
    return $+(15,%sign,$iif($left($1,1) isalpha,),$left($1,1),$iif($left($1,1) isalpha,),$right($1,$calc($len($1) - 1)),14)
  }
}
ON ^*:TEXT:*:#:{
  haltdef
  var %nick $iif($nick !isreg $chan,$+($left($nick($chan,$nick).pnick,1),$nick),$nick)
  echo -t $chan $replace($+(05,$chr(40),,14,$nickstyle(%nick),05,$chr(41),14),@,04@15,%,07%15,+,03+15,01,14) $1-
}
ON ^*:TEXT:*:?:{
  haltdef
  echo -t $nick $+(05,$chr(40),,14,$nickstyle($nick),05,$chr(41),14) $1-
}
ON ^*:NOTICE:*:*:{
  haltdef
  echo -t $+ $iif($chan,$chr(32) $chan,a) $+(05,-,14,$nickstyle($nick),$iif($chan,$+(:,$nickstyle($chan))),05-) $1-
  echo -s $+(05,-,14,$nickstyle($nick),$iif($chan,$+(:,$nickstyle($chan))),05-) $1-
}
ON ^*:ACTION:*:#:{
  haltdef
  echo -t $chan * $+(14,$nickstyle($nick)) $1-
}
ON ^*:ACTION:*:?:{
  haltdef
  echo -t $nick * $+(14,$nickstyle($nick)) $1-
}
ON ^*:MODE:#:{
  haltdef
  echo -t $chan * $+(14,$nickstyle($nick)) sets mode: $1-
}
ON ^*:OWNER:#:{
  haltdef
  echo -t $chan $+(14,$nickstyle($nick)) has given $nickstyle($opnick) owner status
}
ON ^*:DEOWNER:#:{
  haltdef
  echo -t $chan $+(14,$nickstyle($nick)) has removed $nickstyle($opnick) owner status
}
ON ^*:OP:#:{
  haltdef
  echo -t $chan $+(14,$nickstyle($nick)) has given $nickstyle($opnick) oper status
}
Alias quit {
  raw quit $iif($1,$1- $chr(183)) mIRC Theme: Gray Shadow - Coded by Jdawg140
}
ON *:EXIT:{
  set %theme.time $ctime
}
ON ^*:DEOP:#:{
  haltdef
  echo -t $chan $+(14,$nickstyle($nick)) has removed $nickstyle($opnick) oper status
}
ON ^*:HELP:#:{
  haltdef
  echo -t $chan $+(14,$nickstyle($nick)) has given $nickstyle($hnick) halfop status
}
ON ^*:DEHELP:#:{
  haltdef
  echo -t $chan $+(14,$nickstyle($nick)) has removed $nickstyle($vnick) halfop status
}
ON ^*:VOICE:#:{
  haltdef
  echo -t $chan $+(14,$nickstyle($nick)) has given $nickstyle($vnick) voice status
}
ON ^*:DEVOICE:#:{
  haltdef
  echo -t $chan $+(14,$nickstyle($nick)) has removed $nickstyle($vnick) voice status
}
ON ^*:TOPIC:#:{
  haltdef
  echo -t $chan $+(14,$nickstyle($nick)) has changed the topic to $+(',$1-,14')
}
ON *:START:{
  .timestamp -f 5(14hh:nn:ss TT5)
  .font -z 10 Verdana 
  .color listbox 1
  .color editbox 1
  .color background 1
  .color editbox text 0
  .color listbox text 0
  .color inactive 1
  .color treebar text 0
  .color treebar 1
  .color normal text 14
  .color own text 14
  .color quit text 14
  .color info text 14
  .color notify text 14
  .color notice text 14
  .color whois text 14
  echo -st Welcome to mIRC $version
  echo -st Let me adjust your current settings to fit
  echo -st your theme, you have chosen the theme Gray Shadow.
  echo -st The theme you have choosen was made by Jdawg140.
  echo -st If you have any questions please use, /themehelp
  echo -st -
  echo -st Your current uptime is $uptime(System,2) 
  echo -st You turned your comp on $asctime($uptime(system)) 
  echo -st Your current ip is: $IP - Your Operating System is: $OS
  echo -st -
  if (%theme.time) {
    echo -st I havent seen you since $asctime(%theme.time)
    echo -st That was $duration($calc($ctime - %theme.time )) ago
    echo -st -
    echo -st Enjoy your day
    unset %theme.time
  }
  else {
    echo -st Enjoy your day
  }
}
ON ^*:INVITE:#:{
  haltdef
  echo -t $chan $+(14,$nickstyle($nick)) has invited you to $nickstyle($chan)
}
ON ^*:QUIT:{
  haltdef
  var %i = 0
  while (%i < $comchan($nick,0)) {
    inc %i
    echo -t $comchan($nick,%i) $+(14,$nickstyle($nick)) has quit $network $+([,$1-,])
  }
}
ON ^*:NICK:{
  haltdef
  var %i = 0
  while (%i < $comchan($newnick,0)) {
    inc %i
    echo -t $comchan($newnick,%i) $+(14,$nickstyle($nick)) is now known as $nickstyle($newnick)
  }
}
ON *:INPUT:#:{
  if ($left($1,2) == //) {
    if (/me isin $1 || /Describe isin $1) {
      echo -t $chan * $+(14,$nickstyle($nick)) $($iif(d isin $1,$3-,$2-),2)
      .describe $chan $($iif(d isin $1,$3-,$2-),2)
      halt
    }
    else {
      $($1-,2)
      halt
    }
  }
  elseif ($left($1,1) == /) {
    if (/me isin $1 || /Describe isin $1) {
      echo -t $chan * $+(14,$nickstyle($nick)) $iif(d isin $1,$3-,$2-)
      .describe $chan $iif(d isin $1,$3-,$2-)
      halt
    }
    else {
      $1-
      halt
    }
  }
  elseif ($1 ison $chan && Terror !isin $1 && $chan != #SwiftSwitch) {
    .msg $chan $name($1) $+ $iif($2,04: $2-)
    var %nick $iif($nick !isreg $chan,$+($left($nick($chan,$nick).pnick,1),$nick),$nick)
    echo -t $chan $replace($+(05,$chr(40),,14,$nickstyle(%nick),05,$chr(41),14),@,04@15,%,07%15,+,03+15) $&
      $name($1) $+ $iif($2,04: $2-)
    halt
  }
  else {
    .msg $chan $1-
    var %nick $iif($nick !isreg $chan,$+($left($nick($chan,$nick).pnick,1),$nick),$nick)
    echo -t $chan $replace($+(05,$chr(40),,14,$nickstyle(%nick),05,$chr(41),14),@,04@15,%,07%15,+,03+15) $&
      $1-
    halt
  }
}
ON *:INPUT:?:{
  if ($left($1,2) == //) {
    if (/me isin $1 || /Describe isin $1) {
      echo -t $active * $+(14,$nickstyle($nick)) $($iif(d isin $1,$3-,$2-),2)
      .describe $active $($iif(d isin $1,$3-,$2-),2)
      halt
    }
    else {
      $($1-,2)
      halt
    }
  }
  elseif ($left($1,1) == /) {
    if (/me isin $1 || /Describe isin $1) {
      echo -t $active * $+(14,$nickstyle($nick)) $iif(d isin $1,$3-,$2-)
      .describe $active $iif(d isin $1,$3-,$2-)
      halt
    }
    else {
      $1-
      halt
    }
  }
  elseif ($1 == $active) {
    .msg $active $name($1) $+ $iif($2,04: $2-)
    var %nick $nick
    echo -t $active $replace($+(05,$chr(40),,14,$nickstyle(%nick),05,$chr(41),14),@,04@15,%,07%15,+,03+15) $&
      $name($1) $+ $iif($2,04: $2-)
    halt
  }
  else {
    .msg $active $1-
    var %nick $nick
    echo -t $active $replace($+(05,$chr(40),,14,$nickstyle(%nick),05,$chr(41),14),@,04@15,%,07%15,+,03+15) $&
      $1-
    halt
  }
}
Alias ame {
  var %i = 0
  while (%i < $chan(0)) {
    inc %i
    if ($chan(%i) != #Idle) { 
      var %chans = $iif(%chans,%chans $+ $chr(44)) $+ $chan(%i)
      echo -t $chan(%i) * $+(14,$nickstyle($nick)) $1-
    }
  }
  .describe %chans $1-
}
Alias nick {
  if ($me ison #Idle) {
    echo -ast 0Are you sure you want to change your nick? Your on #Idle. If you dont want to type, /haltnick - Else you nick will be changed shortly
    .timerNickChange69 1 15 raw nick $1
  }
  else raw nick $1
}
Alias haltnick {
  .timerNickChange69 off
  echo -ast 0Nick Changing Halted
}
Alias amsg {
  var %nick $iif($nick !isreg $chan,$+($left($nick($chan,$nick).pnick,1),$nick),$nick)
  var %i = 0
  while (%i < $chan(0)) {
    inc %i
    if ($chan(%i) != #Idle) {    
      .msg $chan(%i) $1-
      echo -t $chan(%i) $replace($+(05,$chr(40),,14,$nickstyle(%nick),05,$chr(41),14),@,04@15,%,07%15,+,02+15) $&
        $1-
    }
  }
  echo -at 14AMSG Complete
}
CTCP ^*VERSION:*:{
  haltdef
  ctcpreply $nick $1 mIRC $version - Jdawg140's Theme 'Gray Shadow'
}
ON ^*:JOIN:#:{
  haltdef
  echo -t $chan $iif($nick == $me,Now talking in $nickstyle($chan),$+(14,$nickstyle($nick)) has joined $nickstyle($chan))
  if ($nick != $me) {
    oj $chan $network $nick($chan,0)
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i
      if ($address($nick,2) iswm $address($nick($chan,%i),5)) {
        var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i)))
      }
    }
    $iif($strip(%users,cbu) != $nick && %users,echo -t $chan 14Clones: %users ) 
  }
}
ON ^*:PART:#:{
  haltdef
  echo -t $+ $iif($nick == $me,sa You have parted $nickstyle($chan),$+($chr(32),$chan,$chr(32),14,$nickstyle($nick)) has parted $&
    $nickstyle($chan)) $iif($1,$+([,$1-,]))
  if ($nick != $me) {
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i
      if ($address($nick,2) iswm $address($nick($chan,%i),5) && $nick($chan,%i) != $nick) {
        var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i)))
      }
    }
    $iif($strip(%users,cbu) != $nick  && %users,echo -t $chan 14 $+ $nick has other people in here: %users ) 
  }
}
ON ^*:KICK:#:{
  haltdef
  echo -t $+ $iif($knick == $me,sa You have been kicked from $nickstyle($chan) by $nick $&
    $+([,$1-,]),$+($chr(32),$chan,$chr(32),14,$nickstyle($knick)) was kicked by $nickstyle($nick) $+([,$1-,]))
  if ($nick != $me) {
    var %i = 0
    while (%i < $nick($chan,0)) {
      inc %i
      if ($address($knick,2) iswm $address($nick($chan,%i),5) && $nick($chan,%i) != $knick) {
        var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i)))
      }
    }
    $iif($strip(%users,cbu) != $knick && %users,echo -t $chan 14 $+ $knick has other people in here: %users ) 
  }
}
ON ^*:RAWMODE:#:{
  if (*a*,*,*,* iswmcs $chanmodes) {
    var %a = 1, %b, %c = 2
    while ($mid($1,%a,1)) {
      if ($v1 isin +-) %b = $v1
      if ($v1 === a) { haltdef | echo -t $chan $+(14,$nickstyle($nick)) has $replace(%b,+,given,-,revoked) $&
          $nickstyle($($+($,%c),2)) $+ $iif(- isin %b,'s) admin status 
      }
      if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c
      inc %a
    }
  }
  if (*e*,*,*,* iswmcs $chanmodes) {
    var %a = 1, %b, %c = 2
    while ($mid($1,%a,1)) {
      if ($v1 isin +-) %b = $v1
      if ($v1 === e) { haltdef | echo -t $chan $+(14,$nickstyle($nick)) has $replace(%b,+,given,-,revoked) $&
          $nickstyle($($+($,%c),2)) $+ $iif(- isin %b,'s) except override 
      }
      if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c
      inc %a
    }
  }
  if (*I*,*,*,* iswmcs $chanmodes) {
    var %a = 1, %b, %c = 2
    while ($mid($1,%a,1)) {
      if ($v1 isin +-) %b = $v1
      if ($v1 === I) { haltdef | echo -t $chan $+(14,$nickstyle($nick)) has $replace(%b,+,given,-,revoked) $&
          $nickstyle($($+($,%c),2)) $+ $iif(- isin %b,'s) invite override 
      }
      if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c
      inc %a
    }
  }
}
Alias name {
  return $+($chr(3),$chr(49),$chr(48),$chr(2),$chr(91),$chr(2),$chr(3),$chr(3),$chr(52),$chr(187),$chr(3),$chr(3),$chr(49),$chr(50)) $+ $&
    $+ $iif($left($1,1) === i,$chr(31) $+ $left($1,1),$iif($left($1,1) isalpha,$chr(31) $+ $upper($left($1,1)),$upper($left($1,1)))) $+ $&
    $iif($left($1,1) isalpha || $left($1,1) === i,$chr(31),$null) $+ $replace($remove($right($1,$calc($len($1) - 1)),$chr(44),:),_,$chr(32)) $+ $&
    $+($chr(3),$chr(3),$chr(48),$chr(52),$chr(171),$chr(3),$chr(3),$chr(49),$chr(48),$chr(2),$chr(93),$chr(2),$chr(3),$chr(3),$chr(48),$chr(52))
}
ON ^*:BAN:#:{
  haltdef
  echo -t $chan $+(14,$nickstyle($nick)) has banned $banmask
  var %i = 0
  while (%i < $nick($chan,0)) {
    inc %i
    if ($banmask iswm $address($nick($chan,%i),5)) {
      var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i)))
    }
  }
  $iif(%users,echo -t $chan 14This ban effects: %users )
}
ON ^*:UNBAN:#:{
  haltdef
  echo -t $chan $+(14,$nickstyle($nick)) has unbanned $banmask
  var %i = 0
  while (%i < $nick($chan,0)) {
    inc %i
    if ($banmask iswm $address($nick($chan,%i),5)) {
      var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i)))
    }
  }
  $iif(%users,echo -t $chan 14This unban effects: %users )
}
Raw 332:*:{
  haltdef
  echo -t $2 14Topic is $+('03,$3-,14')
}
Raw 333:*:{
  haltdef
  echo -t $2 14Set by $3 on $asctime($4-)
}
Alias oj {
  if ($readini(ChanStats.ini,$2,$chan) == $null) {
    writeini ChanStats.ini $2 $chan $3
  }
  elseif ($readini(ChanStats.ini,$2,$chan) < $3) {
    writeini ChanStats.ini $2 $chan $3
  }
}