Sweet Theme

By Zerg on Aug 11, 2009

It's a theme i made, its pretty well laid out, and it works.

Thanks for using.

`Zerg

post any comments you may have.

TRIGGERS:

/theme

oh and F5 and F6 do magical things.

REVISED
10/14/09
Realized when you typed /cs access #chan list it made it all different colors and hard to read
Fixed this.

UPDATES:
8/15/09: Fixed littlefont error
9/2/09: Fixed Timestamp error.
Image

alias theme {
  .tokenize 46 * 04 ~&@.* 07 % .* 09 +.* 10.on | .cnick $*
  .timestamp -f 14[04ddd14\04hh14:04nn14:04ss 14(04tt14)]  
  .timestamp on
  .timestamp -g (hh:nn:ss)
  .font -z 11 Trebuchet MS
  .color Action text 06 
  .color Ctcp text 04 
  .color Highlight text 04 
  .color Info text 12 
  .color Info2 text 12 
  .color Invite text 05 
  .color Join text 03 
  .color Kick text 03 
  .color Mode text 03 
  .color Nick text 03 
  .color Normal text 00 
  .color Notice text 05 
  .color Other text 00 
  .color Own text 00 
  .color Part text 03 
  .color Quit text 12 
  .color Topic text 03 
  .color Wallops text 00 
  .color Whois text 0 
  .color Editbox text 0 
  .color Listbox text 0 
  .color Gray text 0 
  .color Title text 0 
  .color Treebar text 0 
  .color Editbox 01 
  .color Listbox 01 
  .color Treebar 01 
  .color Inactive 01 
  .color BackGround 01 
  //echo -a $+($chr(169),$chr(90),$chr(101),$chr(114),$chr(103),$chr(44),$chr(32),$chr(48),$chr(56),$chr(47),$chr(48),$chr(50),$chr(47),$chr(48),$chr(57),$chr(26),$date(mm/dd/yy))

}
on ^*:TEXT:*:#: {
  if ($nick !ison $chan) {
    haltdef
    echo -tm $chan $+(<,$chr(3),10,$chr(2),$nick,$chr(3),$chr(2),>) $1-
  }
  else {
    var %n = $iif($nick !isreg $chan,$left($nick($chan,$nick).pnick,1),$chr(240))
    haltdef
    echo -tm $chan $+(<,$chr(2),$chr(3),$replace(%n,@,4@,%,7%,+,09+,$chr(240),10),$nick,$chr(2),$chr(3),>) $1-
  }
}
on ^*:TEXT:*:?: {
  haltdef
  echo -tm $nick $+(<,$chr(2),$chr(3),10,$nick,$chr(2),$chr(3),>) $1-
}
on ^*:RAWMODE:#: {
  haltdef
  echo $chan $+($chr(3),3,$timestamp) 03* $nick sets mode: $1-
}
on ^*:JOIN:#: {
  if ($nick != $me) {
    haltdef
    echo $chan $+($chr(3),3,$timestamp) 03* $nick ( $+ $address $+ ) has joined $chan
  }
  else {
    haltdef
    echo $chan $+($chr(3),2,$timestamp) 03* Now talking in $chan
  }
}
on ^*:PART:#: {
  if ($nick != $me) {
    haltdef
    echo $chan $+($chr(3),3,$timestamp) 03* $nick ( $+ $address $+ ) has parted $chan $iif($1 != $null,$+($chr(40),$1-,$chr(41)),$chr(32))
  }
  if ($nick == $me) {
    echo $chan $+($chr(3),3,$timestamp) 03* You have parted $chan
  }
}
on ^*:KICK:#: {
  if ($knick != $me) {
    haltdef
    echo $chan $+($chr(3),3,$timestamp) 03* $knick was kicked by $nick ( $+ $1- $+ )
  }
  if ($knick == $me) {
    haltdef
    echo -m $chan $+($chr(3),3,$timestamp) 03* You were kicked from $chan by $nick ( $+ $1- $+ )
  }
}
on ^*:NICK: { 
  haltdef 
  var %i 1 
  while ($comchan($newnick,%i)) { 
    echo $comchan($newnick,%i) $+($chr(3),3,$timestamp) 03* $nick is now known as $newnick $+  
    inc %i 
  } 
} 
on ^*:QUIT: { 
  haltdef 
  var %i $comchan($nick,0) 
  while (%i) { 
    echo $comchan($nick,%i) $+(2,$timestamp) 12* $nick ( $+ $address $+ ) has quit IRC ( $+ $1- $+ ) 
    dec %i 
  } 
} 

on ^*:NOTICE:*:?: {
  haltdef
  echo -as $+($chr(3),5,$timestamp) $+(05,-,$chr(2),$nick,$chr(2),-) $+(00,$1-)
}
on ^*:NOTICE:*:#: {
  haltdef
  echo -as $+($chr(3),5,$timestamp) $+(05,-,$chr(2),$nick,$chr(2),:,$chan,-) $+(00,$1-)
}
on ^*:SNOTICE:*: {
  haltdef
  echo -a $+($chr(3),5,$timestamp) $+(05,-,$chr(2),$nick,$chr(2),-) $+(00,$1-)
}
on ^*:ACTION:*:#: {
  if ($nick ison $chan) {
    haltdef
    var %a = $iif($nick !isreg $chan,$left($nick($chan,$nick).pnick,1),$chr(240))
    echo -m $chan $+($chr(3),6,$timestamp) 06* $replace(%a,$chr(240),$chr(32)) $+ $nick $1-
  }
  else {
    haltdef
    echo -m $chan $+($chr(3),6,$timestamp) 06*  $nick $1-
  }
}
on ^*:ACTION:*:?: {
  haltdef
  echo -m $nick $+($chr(3),6,$timestamp) 06*  $nick $1-
}
on *:INPUT:#: {
  if ($left($1,1) != /) {
    var %n = $iif($me !isreg $chan,$left($nick($chan,$me).pnick,1),$chr(240))
    haltdef
    echo -t $chan $+(<,$chr(2),$chr(3),$replace(%n,@,4@,%,7%,+,09+,$chr(240),10),$nick,$chr(2),$chr(3),>) $1-
    .msg $chan $1-
  }
  if ($1 == /notice) {
    haltdef
    .notice $2 $3-
    echo -sa $+(2,$timestamp) 05-> $+(·´¯`·.¸¸.-> ,$2,-)  $3-
  }
  if ($1 == /me) {
    haltdef
    var %a = $iif($nick !isreg $chan,$left($nick($chan,$me).pnick,1),$chr(240))
    echo -m $chan $+($chr(3),6,$timestamp) 06* $replace(%a,$chr(240),$chr(32)) $+ $me $2-
    .Describe # $2-
  }
  if ($1 == /describe) {
    haltdef
    var %a = $iif($nick !isreg $chan,$left($nick($chan,$me).pnick,1),$chr(240))
    echo -m $2 $+($chr(3),6,$timestamp) 06* $replace(%a,$chr(240),$chr(32)) $+ $me $3-
    .describe $2 $3-
  }
}
on *:INPUT:?: {
  if ($left($1,1) != /) {
    haltdef
    echo -t $+(<,$chr(2),$chr(3),10,$me,$chr(3),$chr(2),>) $1-
    .msg $active $1-
  }
  if ($1 == /notice) {
    haltdef
    .notice $2 $3-
    echo -sa $+(05,$timestamp) ->05 $+(-,$2,-)  ·´¯`·.¸¸.-> $3- /notice
  }
  if ($1 == /me) {
    haltdef
    var %a = $iif($nick !isreg $chan,$left($nick($chan,$me).pnick,1),$chr(240))
    echo -m $chan $+($chr(3),6,$timestamp) 06* $replace(%a,$chr(240),$chr(32)) $+ $me $2-
    .describe $active $2-
  }
  if ($1 == /describe) {
    haltdef
    var %a = $iif($nick !isreg $chan,$left($nick($chan,$me).pnick,1),$chr(240))
    echo -m $2 $+($chr(3),6,$timestamp) 06* $replace(%a,$chr(240),$chr(32)) $+ $me $3-
    .describe $2 $3-
  }
}
Raw *:*: {
  if ($numeric == 332) {
    haltdef
    echo -m $2 $+($chr(3),3,$timestamp) 03 *Topic is ' $+ $3- $+ '
  }
  if ($numeric == 333) {
    haltdef
    echo -m $2 $+($chr(3),3,$timestamp) 03* Topic set by $3 on $asctime($4-)
  }
}
on ^*:TOPIC:#: {
  haltdef
  echo -m $chan $+($chr(3),3,$timestamp) 03* $nick changes topic to  $+(',$1-,') 
}
alias F5 {
  set %say $$?="What would you like to /me?""
  msg $active /me %say
}
alias F6 {
  set %say $$?="What would you like to /notice?""
  msg $active /me %say
}

Comments

Sign in to comment.
Sorasyn   -  Nov 09, 2009

on your snotice, why would you have it echo in the active window instead of the status window, its part of server function and should be treated as such.

 Respond  
Cracker200   -  Nov 06, 2009

Lol @ Termz LOLOL

 Respond  
PePpEr   -  Nov 03, 2009

shit*

 Respond  
PePpEr   -  Nov 03, 2009

shit thing is... if your an ircop it notifys me all the spam msgs in active window

 Respond  
PePpEr   -  Oct 31, 2009

lol... nice theme Zerg

 Respond  
Ghost-writer   -  Oct 31, 2009

suck balls chump

 Respond  
Grant-   -  Oct 31, 2009

For example, I have something along the lines of you see, if you actually knew how to read at all, you'd know that i'm talking about the if part, which you obviously don't, why don't you go distribute more child porn, ban evade, leech, and take credit for others scripts that obviously isn't yours, Termz. And of course, it's my own alias. If you really would be interested in it, click here.

 Respond  
Ghost-writer   -  Oct 31, 2009

$levelc fails, its not an actual mirc identifier. check help folder.

 Respond  
Grant-   -  Oct 30, 2009

Hello Zerg, i have some suggestions for you to make. as you can use control+enter to send messages straight to the channel, you could use something else for your on INPUTs. For example, I have something along the lines of

on *:INPUT:#:{ 
  if (/* !iswm $1) || ($ctrlenter) {
    haltdef 
    .msg # $1- 
    echo -at [ $+ $levelc($me) $+ 14 $+ $me $+ ] $1-
  } 
}
 Respond  
Zerg   -  Oct 30, 2009

sure.

 Respond  
Sorasyn   -  Oct 30, 2009

can we get a screenie of what it looks like? :o

 Respond  
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.