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 03
  .color listbox text 03
  .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 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
  }
}
CTCP ^*:VERSION:*:{
  haltdef
  ctcpreply $nick $1 mIRC $version - Jdawg140's 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) {
      .msg $active $($2-,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-,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 $+(10,$nickstyle($nick)) has given03 $nickstyle($opnick) 10owner status
}
ON ^*:DEOWNER:#:{
  haltdef
  echo -t $chan $+(10,$nickstyle($nick)) has removed03 $nickstyle($opnick) 10owner status
}
ON ^*:OP:#:{
  haltdef
  echo -t $chan $+(10,$nickstyle($nick)) has given03 $nickstyle($opnick) 10oper status
}
ON ^*:DEOP:#:{
  haltdef
  echo -t $chan $+(10,$nickstyle($nick)) has removed03 $nickstyle($opnick) 10oper status
}
ON ^*:HELP:#:{
  haltdef
  echo -t $chan $+(10,$nickstyle($nick)) has given03 $nickstyle($hnick) 10halfop status
}
ON ^*:DEHELP:#:{
  haltdef
  echo -t $chan $+(10,$nickstyle($nick)) has removed03 $nickstyle($hnick) 10halfop status
}
ON ^*:VOICE:#:{
  haltdef
  echo -t $chan $+(10,$nickstyle($nick)) has given03 $nickstyle($vnick) 10voice status
}
ON ^*:DEVOICE:#:{
  haltdef
  echo -t $chan $+(10,$nickstyle($nick)) has removed03 $nickstyle($vnick) 10voice status
}
ON ^*:JOIN:#:{
  if ($nick != $me) {
    haltdef
    echo -t $chan $+(10,$nickstyle($nick)) has joined03 $nickstyle($chan)
    var %i = 1
    while ($nick($chan,%i)) {
      $iif($address($nick($chan,%i),5) == $null,.who $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
  }
}