;Script by Alex Sørlie
;Any problems or bugs, please email me, or contact me from irc.
;Email: ialex94wr@gmail.com
;IRC: irc.wyldryde.org #ialex
;Version 1.2
;More features will be added.

;Please do not republish this without my permission.

on *:LOAD:{
  writeini mircstyle.ini colors tstamp random
  writeini mircstyle.ini colors action blue
  writeini mircstyle.ini colors join pink
  writeini mircstyle.ini colors part Turquoise
  writeini mircstyle.ini colors quit dk-blue
  writeini mircstyle.ini colors nick dk-green
  writeini mircstyle.ini colors topic dk-green
  writeini mircstyle.ini colors mode green
  writeini mircstyle.ini colors notice dk-red
  writeini mircstyle.ini status tstamp on
  writeini mircstyle.ini status join on
  writeini mircstyle.ini status part on
  writeini mircstyle.ini status quit on
  writeini mircstyle.ini status nick on
  color -s mIRC Classic
  color background 1
  color ctcp text 4
  color info text 2
  color info2 text 3
  color invite text 7
  color join text 13
  color kick text 4
  color notice text 5
  color notify text 7
  color other text 6
  color wallops text 6
  color whois text 6
  writeini mirc.ini fchannel Verdana 412,0,0
  writeini mirc.ini fstatus Verdana 412,0,0
  remini mirc.ini cnicks 
  writeini mirc.ini cnicks n0 $chr(36) $+ me,8,,,0,0,0,0,0
  writeini mirc.ini cnicks n1 ,6,&,,0,0,0,0,0
  writeini mirc.ini cnicks n2 ,11,~,,0,0,0,0,0
  writeini mirc.ini cnicks n3 ,4,@,,0,0,0,0,0
  writeini mirc.ini cnicks n4 ,3,%,,0,0,0,0,0
  writeini mirc.ini cnicks n5 ,7,+,,0,0,0,0,0
  writeini mirc.ini cnicks n6 ,12,,,0,1,0,0,0
  echo -a 04mIRC Style is now loaded, Please restart mIRC for all changes to take effect.
}
menu menubar {
  mIRC Style:/dialog -m mirc_style mirc_style
}
alias apnick {
  if (~ isin $nick($chan,$1).pnick) { return 11 $+ * ~ $+ $1- $+  | halt }
  if (& isin $nick($chan,$1).pnick) { return 06 $+ * & $+ $1- $+   | halt }
  if (@ isin $nick($chan,$1).pnick) { return 04 $+ * @ $+ $1- $+   | halt }
  if ($chr(37) isin $nick($chan,$1).pnick) { return 03 $+ *  $+ $chr(37) $+  $+ $1- $+   | halt }
  if (+ isin $nick($chan,$1).pnick) { return 07 $+ * + $+ $1- $+   | halt }
  else { return 12 $+ * $replace($1,hannah,Miley) $+   | halt }
}
alias tstamp {
  if ($readini(mircstyle.ini, colors, tstamp) == off) { return $null }
  else { return  $+ $objcolor(tstamp) $asctime(HH:nn:ss) $+  }
} 
alias rpnick {
  if (~ isin $nick($chan,$1).pnick) { return 11 $+ (~ $+ $$1- $+ ) $+  | halt }
  if (& isin $nick($chan,$1).pnick) { return 06 $+ (& $+ $$1- $+ ) $+   | halt }
  if (@ isin $nick($chan,$1).pnick) { return 04 $+ (@ $+ $$1- $+ ) $+   | halt }
  if ($chr(37) isin $nick($chan,$1).pnick) { return 03 $+ ( $+  $+ $chr(37) $+  $+ $$1- $+ ) $+   | halt }
  if (+ isin $nick($chan,$1).pnick) { return 07 $+ (+ $+ $$1- $+   | halt }
  else { return 12 $+ ( $+ $$1- $+ ) $+   | halt }
}
alias whois {
  whois $$1 $$1
}
raw 318:*:/halt
raw 307:*:{
  echo -a -
  halt
}
raw 378:*:{
  echo -a 03(((12 $+ $2 is connecting from IP:04 $7 03)))
  halt 
}
raw 311:*:{
  /echo -a 03(((12 $+ $2 is04 $3 12using host04 *!*@ $+ $4 $+ 03)))
  /echo -a 03(((12 $+ $2 $+ 's real name is04 $6 $+ 03)))
  halt
}
raw 319:*:{
  /echo -a 03(((12 $+ $2 is on $3- $+ 03)))
  halt
}
raw 312:*:{
  /echo -a -
  /echo -a 03(((12 $+ $2 is using04 $3 03-06 $+ $4- $+ 03)))
  halt
}
raw 317:*:{
  /echo -a 03(((12 $+ $2 has been idle for04 $duration($3) $+ 03)))
  /echo -a 03(((12 $+ $2 has been online for04 $duration($calc($ctime - $4)) $+ 03)))
  halt
}
raw 401:*:{
  /echo -a 03(((04 $+ $2 is not currently online $+ 03)))
  halt
}
raw 402:*:{
  /echo -a 03(((04 $+ $2 is not currently online $+ 03)))
  halt
}
on *:JOIN:#:{
  if ($nick == $me) {
    if ($chan !isin $read(chans.txt, $scon)) { write -al $+ $scon chans.txt $chan $+ $chr(32) }
  }
}
on *:PART:#:{
  if ($nick == $me) {
    if ($chan isin $read(chans.txt, $scon)) { write -al $+ $scon chans.txt $chan $+ $chr(32) }
  }
}
on *:DISCONNECT:/write -dl $+ $scon chans.txt
on *:exit:/write -c chans.txt
alias say {
  .msg $chan $$1- | echo $chan $tstamp $mrpnick($me) $objcolor(msg) $+ $$1- | halt
}
alias msg {
  if ($chr(34) !isin $$1) {
    if ($window($$1) !== $null) { .msg $$1 $$2- | echo $$1 $tstamp $mrpnick($me) $objcolor(msg) $+ $$2- | halt }
    else { .msg $$1 $$2- | echo -a $tstamp 05- $+ $$1 $+ - $$2- | halt }
  }
  else { .msg $$1 $$2- | echo $$1 $tstamp $mrpnick($me) $objcolor(msg) $+ $$2- | halt }
}
alias me {
  /describe $active $$1-
}
alias describe {
  .describe $$1 $$2- | echo $$1 $tstamp $mapnick($me) $objcolor(action) $+ $$2- | halt
}
alias notice {
  .notice $$1 $$2- | echo -a $tstamp $objcolor(notice) $+ $me $+ - $$2- | halt
}
alias objcolor {
  if ($readini(mircstyle.ini, Colors, $$1) == None) { return  }
  if ($readini(mircstyle.ini, Colors, $$1) == Random) { return  $+ $rand(2,15) }
  else { return  $+ $mirccolor($readini(mircstyle.ini, Colors, $$1)) }
}
alias amsg {
  if ($chan(0) > 5) { halt }
  { .msg $replace($read(chans.txt, $scon),$chr(32),$chr(44)) $$1- | echo $replace($read(chans.txt, $scon),$chr(32),$chr(44)) $tstamp $mrpnick($me) $objcolor(msg) $+ $$1- }
}
on ^*:TEXT:*:*:{
  if ($chan !== $active) {
    if ($me isin $1-) { window -g2 $chan }
    else { window -g1 $chan }
  }
  if ($chan !== $null) { echo $chan $tstamp $rpnick($nick) $hlmsg($1-) | haltdef }
  else { echo $nick $tstamp $rpnick($nick) $hlmsg($1-) | haltdef }
}
on ^*:JOIN:#:{
  haltdef
  if ($readini(mircstyle.ini, colors, join) == off) { halt }
  else { echo $chan $tstamp $objcolor(join) $+ * $nick ( $+ $address $+ ) joined $chan }
}
on ^*:PART:#:{
  haltdef
  if ($readini(mircstyle.ini, colors, part) == off) { halt }
  else { echo $chan $tstamp $objcolor(part) $+ * $nick ( $+ $address $+ ) parted $chan }
}
on ^*:NICK:{
  haltdef
  if ($readini(mircstyle.ini, colors, nick) == off) { halt }
  else { echo $active $tstamp $objcolor(nick) $+ * $nick ( $+ $address $+ ) Changed nick to: $newnick }
}
on ^*:MODE:#:/haltdef
on ^*:QUIT:{
  haltdef
  if ($readini(mircstyle.ini, colors, quit) == off) { halt }
  else { echo $active $tstamp $objcolor(quit) $+ * $nick ( $+ $address $+ ) Disconnected from $network $+ . ( $+ $1- $+ ) }
}
on ^*:TOPIC:#:{
  echo $chan $tstamp $objcolor(topic) $+ * $nick ( $+ $address $+ ) Changed the channel topic to: $1-
  haltdef
}
on *:RAWMODE:#:{
  echo $chan $tstamp $objcolor(mode) $+ * $nick ( $+ $address $+ ) sets modes: $1-
}
on ^*:ACTION:*:*:{
  if ($chan !== $null) { echo $chan $tstamp $apnick($nick) $objcolor(action) $+ $hlmsg($1-) | haltdef }
  else { echo $nick $tstamp * $apnick $+ $objcolor(action) $hlmsg($1-) | haltdef }
}
on *:input:*:{
  if (/* !iswm $1 && $active == Status Window) { echo -a You can't type in the status window buddy ;) | halt }
  if (//* iswm $1) { // $+ $remove($1-,/) | halt }
  if (/* iswm $1) { $1- | halt }
  else { msg $active $1- | halt }
}
alias hlmsg {
  if ($me isin $1-) { return $replace($1-,$me,04 $+ $me $+ ) }
  else { return $1- }
}
alias mapnick {
  if (~ isin $nick($chan,$1).pnick) { return 08 $+ * ~ $+ $1 $+  | halt }
  if (& isin $nick($chan,$1).pnick) { return 08 $+ * & $+ $1 $+   | halt }
  if (@ isin $nick($chan,$1).pnick) { return 08 $+ * @ $+ $1 $+   | halt }
  if ($chr(37) isin $nick($chan,$1).pnick) { return 08 $+ *  $+ $chr(37) $+  $+ $1 $+   | halt }
  if (+ isin $nick($chan,$1).pnick) { return 08 $+ * + $+ $1 $+   | halt }
  else { return 08 $+ * $1 $+   | halt }
}
alias mrpnick {
  if (~ isin $nick($chan,$1).pnick) { return 08 $+ (~ $+ $1 $+ ) $+  | halt }
  if (& isin $nick($chan,$1).pnick) { return 08 $+ (& $+ $1 $+ ) $+   | halt }
  if (@ isin $nick($chan,$1).pnick) { return 08 $+ (@ $+ $1 $+ ) $+   | halt }
  if ($chr(37) isin $nick($chan,$1).pnick) { return 08 $+ ( $+  $+ $chr(37) $+  $+ $1 $+ ) $+   | halt }
  if (+ isin $nick($chan,$1).pnick) { return 08 $+ (+ $+ $1 $+ ) $+   | halt }
  else { return 08 $+ ( $+ $1 $+ ) $+   | halt }
}
dialog mirc_style {
  title "mIRC Style"
  size -1 -1 247 140
  option dbu
  text "Time stamp style", 2, 48 2 44 8
  text "Action Color", 3, 101 2 37 8
  text "Join color", 4, 151 2 25 8
  text "Part Color", 5, 192 2 25 8
  text "Quit Color", 6, 4 36 25 8
  text "Nick Change color", 7, 34 36 47 8
  text "Topic Change color", 8, 88 36 46 8
  text "Mode change color", 9, 140 36 49 8
  text "Notice Color", 10, 195 36 33 8
  combo 12, 49 15 37 81, size drop
  combo 13, 102 15 37 81, size drop
  combo 14, 147 15 37 81, size drop
  combo 15, 192 15 37 81, size drop
  combo 16, 2 46 37 81, size drop
  combo 17, 45 46 37 81, size drop
  combo 18, 93 46 37 81, size drop
  combo 19, 145 46 37 81, size drop
  combo 20, 193 46 37 81, size drop
  button "Cancel", 21, 194 122 37 12, cancel
  button "OK", 22, 143 121 37 12, ok
  text "Enable / Disable Events", 23, 3 59 58 8
  combo 24, 2 90 37 81, size drop
  text "Time Stamp", 25, 5 77 29 8
  text "Join Events", 26, 51 77 29 8
  text "Part Events", 27, 102 77 28 8
  text "Quit Events", 28, 149 77 28 8
  text "Nick Changes", 29, 199 77 34 8
  combo 30, 47 90 37 81, size drop
  combo 31, 99 90 37 81, size drop
  combo 32, 145 90 37 81, size drop
  combo 33, 199 90 37 81, size drop
}
alias mirccolor {
  if ($1 == Hvite) { return 00 }
  if ($1 == Black) { return 01 }
  if ($1 == Dk-Blue) { return 02 }
  if ($1 == Dk-Green) { return 03 }
  if ($1 == Red) { return 04 }
  if ($1 == Dk-Red) { return 05 }
  if ($1 == Purple) { return 06 }
  if ($1 == Orange) { return 07 }
  if ($1 == Yellow) { return 08 }
  if ($1 == Green) { return 09 }
  if ($1 == Dk-Turquoise) { return 10 }
  if ($1 == Turquoise) { return 11 }
  if ($1 == Blue) { return 12 }
  if ($1 == Pink) { return 13 }
  if ($1 == Grey) { return 14 }
  if ($1 == Silver) { return 15 }
}
on *:dialog:mirc_style:init:0:{
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Random
  did -a mirc_style 12,13,14,15,16,17,18,19,20 None
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Hvite
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Black
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Dk-Blue
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Dk-Green
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Red
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Dk-Red
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Purple
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Orange
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Yellow
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Green
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Dk-Turquoise
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Turquoise
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Blue
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Pink
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Grey
  did -a mirc_style 12,13,14,15,16,17,18,19,20 Silver
  did -a mirc_style 24,30,31,32,33 on
  did -a mirc_style 24,30,31,32,33 off
  did -c mirc_style 12 $combline($readini(mircstyle.ini, colors, tstamp))
  did -c mirc_style 13 $combline($readini(mircstyle.ini, colors, action))
  did -c mirc_style 14 $combline($readini(mircstyle.ini, colors, join))
  did -c mirc_style 15 $combline($readini(mircstyle.ini, colors, part))
  did -c mirc_style 16 $combline($readini(mircstyle.ini, colors, quit))
  did -c mirc_style 17 $combline($readini(mircstyle.ini, colors, nick))
  did -c mirc_style 18 $combline($readini(mircstyle.ini, colors, topic))
  did -c mirc_style 19 $combline($readini(mircstyle.ini, colors, mode))
  did -c mirc_style 20 $combline($readini(mircstyle.ini, colors, notice)) 
  did -c mirc_style 24 $statline($readini(mircstyle.ini, status, tstamp))
  did -c mirc_style 30 $statline($readini(mircstyle.ini, status, join))
  did -c mirc_style 31 $statline($readini(mircstyle.ini, status, part))
  did -c mirc_style 32 $statline($readini(mircstyle.ini, status, quit))
  did -c mirc_style 33 $statline($readini(mircstyle.ini, status, nick))
}
on *:dialog:mirc_style:sclick:22:{
  writeini mircstyle.ini colors tstamp $did(mIRC_style,12,1).seltext
  writeini mircstyle.ini colors action $did(mIRC_style,13,1).seltext
  writeini mircstyle.ini colors join $did(mIRC_style,14,1).seltext
  writeini mircstyle.ini colors part $did(mIRC_style,15,1).seltext
  writeini mircstyle.ini colors quit $did(mIRC_style,16,1).seltext
  writeini mircstyle.ini colors nick $did(mIRC_style,17,1).seltext
  writeini mircstyle.ini colors topic $did(mIRC_style,18,1).seltext
  writeini mircstyle.ini colors mode $did(mIRC_style,19,1).seltext
  writeini mircstyle.ini colors notice $did(mIRC_style,20,1).seltext
  writeini mircstyle.ini status tstamp $did(mIRC_style,24,1).seltext
  writeini mircstyle.ini status join $did(mIRC_style,30,1).seltext
  writeini mircstyle.ini status part $did(mIRC_style,31,1).seltext
  writeini mircstyle.ini status quit $did(mIRC_style,32,1).seltext
  writeini mircstyle.ini status nick $did(mIRC_style,33,1).seltext
}
alias statline {
  if ($1 == on) { return 1 }
  if ($1 == off) { return 2 }
}
alias combline { 
  if ($1 == random) { return 1 } 
  if ($1 == none) { return 2 } 
  if ($1 == white) { return 3 } 
  if ($1 == black) { return 4 } 
  if ($1 == dk-blue) { return 5 } 
  if ($1 == dk-green) { return 6 } 
  if ($1 == red) { return 7 } 
  if ($1 == dk-red) { return 8 } 
  if ($1 == purple) { return 9 } 
  if ($1 == orange) { return 10 } 
  if ($1 == yellow) { return 11 } 
  if ($1 == green) { return 12 } 
  if ($1 == dk-Turquoise) { return 13 } 
  if ($1 == Turquoise) { return 14 } 
  if ($1 == blue) { return 15 } 
  if ($1 == pink) { return 16 } 
  if ($1 == grey) { return 17 } 
  if ($1 == silver) { return 18 }
}