Anonymous

Alias nickstyle { 
  if ($regex($1,/^[~&@%+#](.*)$/Si)) { 
    var %sign = $left($1,1) 
    tokenize 32 $remove($1,$left($1,1)) 
  } 
  if (%sign = $chr(35)) { 
    return $+(03,%sign,$iif($left($1,1) isalpha,),$left($1,1),$iif($left($1,1) isalpha,),$right($1,-1)) 
  } 
  else { 
    return $+(%sign,$iif($left($1,1) isalpha,),$left($1,1),$iif($left($1,1) isalpha,),$right($1,-1)) 
  } 
} 
Alias name { 
  return $+(10[04,$chr(187),03,$iif($left($1,1) isalpha,),$left($1,1),$iif($left($1,1) isalpha,03),$right($1,-1),04,$chr(171),10]) 
} 
ON *:START:{ 
  .timestamp -f 10(03hh10:03nn10:03ss TT10) 
  .font -z 10 Verdana 
  .color listbox 1 
  .color editbox 1 
  .color background 1 
  .color editbox text 04
  .color listbox text 04 
  .color inactive 1 
  .color treebar text 03 
  .color treebar 1 
  .color normal text 10 
  .color own text 10 
  .color quit text 10 
  .color info text 10 
  .color notify text 10 
  .color notice text 10 
  .color whois text 10 
  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 Green Delight. 
  echo -st The theme you have choosen was made by James. 
  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 
  } 
} 
CTCP ^*:VERSION:*:{ 
  haltdef 
  ctcpreply $nick $1 mIRC $version - James' Theme 'Green Delight' 
} 
ON ^*:TEXT:*:#:{ 
  haltdef 
  var %nick $iif($nick !isreg $chan,$+($left($nick($chan,$nick).pnick,1),$nick),$nick) 
  echo -t $chan $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $1- 
} 
Alias amsg { 
  var %i = 1 
  while ($chan(%i)) { 
    var %nick $iif($me !isreg $chan(%i),$+($left($nick($chan(%i),$me).pnick,1),$me),$me) 
    if ($chan(%i) != #Idle) { 
      echo -t $chan(%i) $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $1- 
      .msg $chan(%i) $1- 
    } 
    inc %i 
  } 
} 
Alias ame { 
  var %i = 1 
  var %nick $me 
  while ($chan(%i)) { 
    if ($chan(%i) != #Idle) { 
      echo -t $chan(%i) * $+(10,$nickstyle($me)) $+ 10 $1- 
      .describe $chan(%i) $1- 
    } 
    inc %i 
  } 
} 
ON ^*:TEXT:*:?:{ 
  haltdef 
  var %nick $nick 
  echo -t $nick $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $1- 
} 
ON ^*:ACTION:*:#:{ 
  haltdef 
  echo -t $chan * $+(10,$nickstyle($nick)) $+ 10 $1- 
} 
ON ^*:ACTION:*:?:{ 
  haltdef 
  echo -t $nick * $+(10,$nickstyle($nick)) $+ 10 $1- 
} 
ON ^*:MODE:#:{ 
  haltdef 
  echo -t $chan $+(10,$nickstyle($nick)) has sets mode:03 $1- 
} 
ON ^*:BAN:#:{ 
  haltdef 
  echo -t $chan $+(10,$nickstyle($nick)) has banned03 $banmask 
  var %i = 1 
  while ($nick($chan,%i)) { 
    if ($banmask iswm $address($nick($chan,%i),5)) { 
      var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i))) 
    } 
    inc %i 
  } 
  $iif(%users,echo -t $chan 10This ban effects:03 %users ) 
} 
ON ^*:UNBAN:#:{ 
  haltdef 
  echo -t $chan $+(10,$nickstyle($nick)) has unbanned03 $banmask 
  var %i = 1 
  while ($nick($chan,%i)) { 
    if ($banmask iswm $address($nick($chan,%i),5)) { 
      var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i))) 
    } 
    inc %i 
  } 
  $iif(%users,echo -t $chan 10This Unban effects:03 %users ) 
} 
ON ^*:KICK:#:{ 
  if ($knick != $me) { 
    haltdef 
    echo -t $chan $+(10,$nickstyle($nick)) has kicked03 $knick 10[03 $+ $1- $+ 10] 
  } 
  else { 
    echo -ts 10You were kicked from03 $nickstyle($chan) 10[03 $+ $1- $+ 10] 
  } 
} 
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 $+(10,$nickstyle($nick)) has $replace(%b,+,given,-,revoked) $+ 03 $& 
          $nickstyle($($+($,%c),2)) $+ $iif(- isin %b,'s) 10admin 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 $+(10,$nickstyle($nick)) has $replace(%b,+,given,-,revoked) $+ 03 $& 
          $nickstyle($($+($,%c),2)) $+ $iif(- isin %b,'s) 10except 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 $+(10,$nickstyle($nick)) has $replace(%b,+,given,-,revoked) $+ 03 $& 
          $nickstyle($($+($,%c),2)) $+ $iif(- isin %b,'s) 10invite override 
      } 
      if ($regex($nickmode $chanmodes,/(?:^|,)(?=.* $v1 )/gx) %b isin 3 +1 %b 2 %b) inc %c 
      inc %a 
    } 
  } 
} 
ON *:INPUT:#:{ 
  if ($left($1,2) == //) { 
    if ($1 == //say) {
      var %nick $iif($me !isreg $chan,$+($left($nick($chan,$me).pnick,1),$me),$me) 
      echo -t $chan $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $($2-,2)
      halt 
    } 
    if (/me isin $1 || /Describe isin $1) { 
      echo -t $chan * $+(10,$nickstyle($nick)) $+ 10 $($iif(d isin $1,$3-,$2-),2) 
      .describe $chan $($iif(d isin $1,$3-,$2-),2) 
      halt 
    } 
    else { 
      $($1-,2) 
      halt 
    } 
  } 
  if ($left($1,1) == /) { 
    if ($1 == /say) { 
      .msg $active $2- 
      var %nick $iif($me !isreg $chan,$+($left($nick($chan,$me).pnick,1),$me),$me) 
      echo -t $chan $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $2- 
      halt 
    } 
    if (/me isin $1 || /Describe isin $1) { 
      echo -t $chan * $+(10,$nickstyle($nick)) $+ 10 $iif(d isin $1,$3-,$2-) 
      .describe $chan $iif(d isin $1,$3-,$2-) 
      halt 
    } 
    else { 
      $1- 
      halt 
    } 
  } 
  else { 
    if ($1 ison $chan) { 
      .msg $chan $name($1) $+ $iif($2,3: $2-) 
      var %nick $iif($me !isreg $chan,$+($left($nick($chan,$me).pnick,1),$me),$me) 
      echo -t $chan $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10)  $& 
        $name($1) $+ $iif($2,3: $2-) 
      halt 
    } 
    else { 
      .msg $chan $1- 
      var %nick $iif($me !isreg $chan,$+($left($nick($chan,$me).pnick,1),$me),$me) 
      echo -t $chan $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10)  $& 
        $1- 
      halt 
    } 
  } 
} 
ON *:INPUT:?:{ 
  if ($left($1,2) == //) { 
    if ($1 == //say) { 
      .msg $active $($2-,2) 
      var %nick $iif($me !isreg $chan,$+($left($nick($chan,$me).pnick,1),$me),$me) 
      echo -t $active $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $($2-,2) 
      halt 
    } 
    if (/me isin $1 || /Describe isin $1) { 
      echo -t $active * $+(10,$nickstyle($nick)) $+ 10 $($iif(d isin $1,$3-,$2-),2) 
      .describe $active $($iif(d isin $1,$3-,$2-),2) 
      halt 
    } 
    else { 
      $($1-,2) 
      halt 
    } 
  } 
  if ($left($1,1) == /) { 
    if ($1 == /say) { 
      .msg $active $2- 
      var %nick $iif($me !isreg $chan,$+($left($nick($chan,$me).pnick,1),$me),$me) 
      echo -t $active $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10) $2- 
      halt 
    } 
    if (/me isin $1 || /Describe isin $1) { 
      echo -t $active * $+(10,$nickstyle($nick)) $+ 10 $iif(d isin $1,$3-,$2-) 
      .describe $active $iif(d isin $1,$3-,$2-) 
      halt 
    } 
    else { 
      $1- 
      halt 
    } 
  } 
  else { 
    if ($1 == $active) { 
      .msg $active  $name($1) $+ $iif($2,3: $2-) 
      var %nick $me 
      echo -t $active $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10)  $& 
        $name($1) $+ $iif($2,3: $2-) 
      halt 
    } 
    else { 
      .msg $active $1- 
      var %nick $me 
      echo -t $active $replace($+(03,$chr(40),,10,$nickstyle(%nick),03,$chr(41),10),~,04@10,&,04@10,@,04@10,%,07%10,+,02+10,01,10)  $& 
        $1- 
      halt 
    } 
  } 
} 
Raw 332:*:{ 
  haltdef 
  echo -t $2 10Topic is $+('03,$3-,10') 
} 
Raw 333:*:{ 
  haltdef 
  echo -t $2 10Set by03 $3 10on03 $asctime($4-) 
} 
ON ^*:OWNER:#:{ 
  haltdef 
  echo -t $chan $+(03,$nickstyle($nick)) 10has given03 $nickstyle($opnick) 10owner status 
} 
ON ^*:DEOWNER:#:{ 
  haltdef 
  echo -t $chan $+(03,$nickstyle($nick)) 10has removed03 $nickstyle($opnick) 10owner status 
} 
ON ^*:OP:#:{ 
  haltdef 
  echo -t $chan $+(03,$nickstyle($nick)) 10has given03 $nickstyle($opnick) 10oper status 
} 
ON ^*:DEOP:#:{ 
  haltdef 
  echo -t $chan $+(03,$nickstyle($nick)) 10has removed03 $nickstyle($opnick) 10oper status 
} 
ON ^*:HELP:#:{ 
  haltdef 
  echo -t $chan $+(03,$nickstyle($nick)) 10has given03 $nickstyle($hnick) 10halfop status 
} 
ON ^*:DEHELP:#:{ 
  haltdef 
  echo -t $chan $+(03,$nickstyle($nick)) 10has removed03 $nickstyle($hnick) 10halfop status 
} 
ON ^*:VOICE:#:{ 
  haltdef 
  echo -t $chan $+(03,$nickstyle($nick)) 10has given03 $nickstyle($vnick) 10voice status 
} 
ON ^*:DEVOICE:#:{ 
  haltdef 
  echo -t $chan $+(03,$nickstyle($nick)) 10has removed03 $nickstyle($vnick) 10voice status 
} 
ON ^*:JOIN:#:{ 
  if ($nick != $me) { 
    haltdef 
    echo -t $chan $+(03,$nickstyle($nick)) 10has joined03 $nickstyle($chan) 
    var %i = 1 
    while ($nick($chan,%i)) {  
      if ($address($nick,2) iswm $address($nick($chan,%i),5) && $nick != $nick($chan,%i)) { 
        var %users = $iif(%users,$+(%users,$chr(32),$nickstyle($nick($chan,%i))),$nickstyle($nick($chan,%i))) 
      } 
      inc %i 
    } 
    $iif(%users,echo -t $chan 10Clones:03 %users ) 
  } 
  else { 
    haltdef 
    echo -t $chan 10Now talking in03 $nickstyle($chan) 
  } 
} 
ON ^*:PART:#:{ 
  if ($nick != $me) { 
    haltdef 
    echo -t $chan $+(10,$nickstyle($nick)) has parted03 $nickstyle($chan) 
  } 
  else { 
    echo -ts 10You parted03 $nickstyle($chan) 
  } 
} 
ON ^*:INVITE:#:{ 
  haltdef 
  echo -at $+(03,$nickstyle($nick)) 10has invited you to03 $nickstyle($chan) 
} 
ON *:EXIT:{ 
  set %theme.time $ctime 
} 
ON ^*:TOPIC:#:{ 
  haltdef 
  echo -t $chan $+(03,$nickstyle($nick)) 10has changed the topic to $+(03'10,$1-,03') 
} 
ON ^*:NOTICE:*:#:{ 
  haltdef 
  echo -t $+(03-10,$nickstyle($nick),:,$chan,03-10) $1- 
  echo -st $+(03-10,$nickstyle($nick),:,$chan,03-10) $1- 
} 
ON ^*:NOTICE:*:?:{ 
  haltdef 
  $iif($active != Status Window,echo -at $+(03-10,$nickstyle($nick),03-10) $1-) 
  echo -st $+(03-10,$nickstyle($nick),03-10) $1- 
} 
ON ^*:QUIT:{ 
  if ($nick != $me) { 
    haltdef 
    var %i = 1 
    while ($comchan($nick,%i)) { 
      echo -t $comchan($nick,%i) $+(10,$nickstyle($nick)) has quit $network (03 $+ $1- $+ 10) 
      inc %i 
    } 
  } 
} 
ON ^*:NICK:{ 
  haltdef 
  var %i = 1 
  while ($comchan($newnick,%i)) { 
    echo -t $comchan($newnick,%i) $+(10,$nickstyle($nick)) is now known as03 $nickstyle($newnick) 
    inc %i 
  } 
}