Stuff

dialog ColorOutline {
  title "Input Modifier Dialog v1.2 By UnbOrN"
  size -1 -1 259 12
  option dbu
  button "Red", 1, 0 0 37 12
  button "Blue", 2, 37 0 37 12
  button "Green", 3, 74 0 37 12
  button "Gray", 4, 111 0 37 12
  button "Done", 5, 222 0 37 12, ok
  button "Pink", 6, 148 0 37 12
  button "Rainbow", 7, 185 0 37 12
}

#blueinput off
on *:INPUT:*:{ if ($left($1,1) != / && $left($1,1) != @ && $left($1,1) != !) { msg $active 12»11] $1- 11[12« | halt } }
#blueinput end
#redinput off
on *:INPUT:*:{ if ($left($1,1) != / && $left($1,1) != @ && $left($1,1) != !) { msg $active 04»07] $1- 07[04« | halt } }
#redinput end
#greeninput off
on *:INPUT:*:{ if ($left($1,1) != / && $left($1,1) != @ && $left($1,1) != !) { msg $active 03»09] $1- 09[03« | halt } }
#greeninput end
#grayinput off
on *:INPUT:*:{ if ($left($1,1) != / && $left($1,1) != @ && $left($1,1) != !) { msg $active 14»15] $1- 15[14« | halt } }
#grayinput end
#pinkinput off
on *:INPUT:*:{ if ($left($1,1) != / && $left($1,1) != @ && $left($1,1) != !) { msg $active 06»13] $1- 13[06« | halt } }
#pinkinput end
#raininput on
on *:INPUT:*:{ if ($left($1,1) != / && $left($1,1) != @ && $left($1,1) != !) { msg $active $rainbow(»] $1- [«) | halt } }
#raininput end
menu channel {
  Input Colors:/dialog -m ColorOutline ColorOutline 
}
on *:DIALOG:ColorOutline:sclick:1:{ .disable #greeninput | .enable #redinput | .disable #blueinput | .disable #grayinput | .disable #pinkinput | .disable #raininput | .notice $me Color Outline Settings Changed to: 04Red }
on *:DIALOG:ColorOutline:sclick:2:{ .disable #greeninput | .disable #redinput | .enable #blueinput | .disable #grayinput | .disable #pinkinput | .disable #raininput | .notice $me Color Outline Settings Changed to: 12Blue }
on *:DIALOG:ColorOutline:sclick:3:{ .enable #greeninput | .disable #redinput | .disable #blueinput | .disable #grayinput | .disable #pinkinput | .disable #raininput | .notice $me Color Outline Settings Changed to: 3Green }
on *:DIALOG:ColorOutline:sclick:4:{ .disable #greeninput | .disable #redinput | .disable #blueinput | .enable #grayinput | .disable #pinkinput | .disable #raininput | .notice $me Color Outline Settings Changed to: 14Gray }
on *:DIALOG:ColorOutline:sclick:5:{ .disable #greeninput | .disable #redinput | .disable #blueinput | .disable #grayinput | .disable #pinkinput | .disable #raininput | .notice $me Color Outline Settings Changed to: None }
on *:DIALOG:ColorOutline:sclick:6:{ .disable #greeninput | .disable #redinput | .disable #blueinput | .disable #grayinput | .enable #pinkinput | .disable #raininput | .notice $me Color Outline Settings Changed to: 13Pink }
on *:DIALOG:ColorOutline:sclick:7:{ .disable #greeninput | .disable #redinput | .disable #blueinput | .disable #grayinput | .disable #pinkinput | .enable #raininput | .notice $me Color Outline Settings Changed to: 04R07a08i03n02b06o04w }




on ^*:PART:#pest-hq:{
  .enable #partcheck
  set %whoisnick $nick
  whois $nick
  haltdef
}
#partcheck on
raw 319:*:{
  echo #pest-hq 11 $+ $timestamp * %whoisnick has Left #Pest-HQ. %whoisnick is still on $remove($3-,@,%,+) $+ .
}
#partcheck end
alias rainbow {
  var %text = $1-
  var %text = $replace(%text,$chr(32),$chr(95))
  var %len = $len($1-)
  var %color.pos = 1
  var %pos = 1
  while (%len != 0) {
    if (%color.pos == 7) { var %color.pos = 1 }
    if (%color.pos == 1) { var %color = 4 }
    if (%color.pos == 2) { var %color = 7 }
    if (%color.pos == 3) { var %color = 8 }
    if (%color.pos == 4) { var %color = 3 }
    if (%color.pos == 5) { var %color = 2 }
    if (%color.pos == 6) { var %color = 6 }
    var %return = %return $+  $+ %color $+ $mid($1-,%pos,1) $+ 
    inc %color.pos 1 | dec %len 1 | inc %pos 1 | var %color $null
  }
  var %return = $replace(%return,$chr(95),$chr(32))
  var %return =  $+ %return $+ 
  return %return
  ;echo $active %return 
  ;msg $active %return
}