Undercover's colour script

By Plekpotje on Nov 30, 2015

This is a colour talker (made by a friend of mine 'Undercover'). Via the dialog, you can select your colour(s) for each channel, where you're in.

menu channel {
  -
  Talker: dialog $iif($dialog(talker),-v,-m) talker talker
}
alias Talker-Versie { Return Versie 1.0.0 }
dialog Talker {
  title "©BS-IRC - Talker®"
  option dbu
  size 1 -1 168 100
  tab "Algemene talker",1,1 -1 167 100,
  ;tab "????",2,
  box "Kanaal",3,4 15 60 25,
  combo 4,7 25 54 10,drop
  box "Talker Style",5,65 15 100 25,
  combo 6,68 25 94 10,drop sort

  box "[1]",7,4 40 80 55,
  text "Kleur:",8,7 50 16 10,
  combo 9,25 48 50 10,drop
  check "Hoofdletter",10,7 60 40 7,
  check "Dikgedrukt",11,7 68 40 7,
  check "Onderstreept",12,7 76 40 7,
  check "Schuingedrukt",13,7 84 40 7,

  box "[2]",14,85 40 80 55,
  text "Kleur:",15,88 50 16 10,
  combo 16,106 48 50 10,drop
  check "Hoofdletter",17,88 60 40 7,
  check "Dikgedrukt",18,88 68 40 7,
  check "Onderstreept",19,88 76 40 7,
  check "Schuingedrukt",20,88 84 40 7,

}
on *:dialog:talker:*:*: {
  if ($devent == init) {
    var %i $chan(0)
    did -i $dname 4 1 Prive
    while (%i > 0) {
      did -i $dname 4 1 $chan(%i)
      dec %i 1
    }
    did -b $dname 7-20
    did -i $dname 6 1 5: Random kleuren
    did -i $dname 6 1 4: [1] Regel [2] Regel
    did -i $dname 6 1 3: [1] Text [2] Laatste letter
    did -i $dname 6 1 2: [1] Eerste letter [2] Text
    did -i $dname 6 1 1: [1] Text
    did -i $dname 9,16 1 15: Licht Grijs
    did -i $dname 9,16 1 14: Grijs
    did -i $dname 9,16 1 13: Roze
    did -i $dname 9,16 1 12: Lichat Blauw
    did -i $dname 9,16 1 11: Licht Cyaan
    did -i $dname 9,16 1 10: Cyaan
    did -i $dname 9,16 1 09: Licht Groen
    did -i $dname 9,16 1 08: Geel
    did -i $dname 9,16 1 07: Oranje
    did -i $dname 9,16 1 06: Paars
    did -i $dname 9,16 1 05: Bruin
    did -i $dname 9,16 1 04: Rood
    did -i $dname 9,16 1 03: Groen
    did -i $dname 9,16 1 02: Donker Blauw
    did -i $dname 9,16 1 01: Zwart
    did -i $dname 9,16 1 00: Wit
  }
  if ($devent == sclick) {
    if ($did == 4) {
      if ($ini(talker.ini,$did(4))) {
        did -c $dname 6 $readini(talker.ini,$did(4),style)
        if ($readini(talker.ini,$did(4),style) >= 1) {
          if ($readini(talker.ini,$did(4),C1)) { did -c $dname 9 $calc($readini(talker.ini,$did(4),C1) + 1) }
          if ($readini(talker.ini,$did(4),H1) == 1) { did -c $dname 10 }
          if ($readini(talker.ini,$did(4),B1) == 1) { did -c $dname 11 }
          if ($readini(talker.ini,$did(4),U1) == 1) { did -c $dname 12 }
          if ($readini(talker.ini,$did(4),I1) == 1) { did -c $dname 13 }
        }
        if ($readini(talker.ini,$did(4),style) >= 2) && ($readini(talker.ini,$did(4),style) <= 5) {
          if ($readini(talker.ini,$did(4),C2)) { did -c $dname 16 $calc($readini(talker.ini,$did(4),C2) + 1) }
          if ($readini(talker.ini,$did(4),H2) == 1) { did -c $dname 17 }
          if ($readini(talker.ini,$did(4),B2) == 1) { did -c $dname 18 }
          if ($readini(talker.ini,$did(4),U2) == 1) { did -c $dname 19 }
          if ($readini(talker.ini,$did(4),I2) == 1) { did -c $dname 20 }
        }
      }
    }
    if ($did == 6 && $did(4) != $null) || ($did == 4 && $did(6) != $null) {
      if ($left($did(6),1) == 1) { did -e $dname 7-13 | did -b $dname 14-20 }
      if ($left($did(6),1) == 2) { did -e $dname 7-20 | did -b $dname 17 }
      if ($left($did(6),1) == 3) { did -e $dname 7-20 | did -b $dname 17 }
      if ($left($did(6),1) == 4) { did -e $dname 7-20 }
      if ($left($did(6),1) == 5) { did -e $dname 7-13 | did -b $dname 14-20 }
    }
    if ($did == 6) { remini talker.ini $did(4) | did -u $dname 9-14,16-20 | writeini talker.ini $did(4) style $left($did(6),1) }
    if ($did == 9) { writeini talker.ini $did(4) C1 $left($did(9),2) }
    if ($did == 10) { writeini talker.ini $did(4) H1 $did(10).state }
    if ($did == 11) { writeini talker.ini $did(4) B1 $did(11).state }
    if ($did == 12) { writeini talker.ini $did(4) U1 $did(12).state }
    if ($did == 13) { writeini talker.ini $did(4) I1 $did(13).state }
    if ($did == 16) { writeini talker.ini $did(4) C2 $left($did(16),2) }
    if ($did == 17) { writeini talker.ini $did(4) H2 $did(17).state }
    if ($did == 18) { writeini talker.ini $did(4) B2 $did(18).state }
    if ($did == 19) { writeini talker.ini $did(4) U2 $did(19).state }
    if ($did == 20) { writeini talker.ini $did(4) I2 $did(20).state }
  }
}
on *:input:*: {
  if (/* iswm $1-) || (!* iswm $1-) { return 01 }
  var %kanaal $iif(*#* iswm $target,$active,prive)
  var %1 $+($iif($readini(talker.ini,$%kanaal,B1) == 1,$chr(2)),$iif($readini(talker.ini,%kanaal,U1) == 1,$chr(31)),$iif($readini(talker.ini,%kanaal,I1) == 1,$chr(29)),$chr(3),$iif($readini(talker.ini,%kanaal,C1),$readini(talker.ini,%kanaal,C1),01))
  var %2 $+($iif($readini(talker.ini,%kanaal,B2) == 1,$chr(2),$iif($readini(talker.ini,%kanaal,B1) == 1,$chr(2))),$iif($readini(talker.ini,%kanaal,U2) == 1,$chr(31),$iif($readini(talker.ini,%kanaal,U1) == 1,$chr(31))),$iif($readini(talker.ini,%kanaal,I2) == 1,$chr(29),$iif($readini(talker.ini,%kanaal,I1) == 1,$chr(29))),$chr(3),$iif($readini(talker.ini,%kanaal,C2),$readini(talker.ini,%kanaal,C2),01))

  if ($readini(talker.ini,%kanaal,style) == 1) { msg $active $+(%1,$iif($readini(talker.ini,%kanaal,H1) == 1,$+($upper($left($1,1)),$right($1-,-1)),$1-)) | halt }
  if ($readini(talker.ini,%kanaal,style) == 2) { msg $active $+(%1,$iif($readini(talker.ini,%kanaal,H1) == 1,$upper($left($1,1)),$left($1,1)),%2,$right($1-,-1)) | halt }
  if ($readini(talker.ini,%kanaal,style) == 3) { msg $active $+(%1,$iif($readini(talker.ini,%kanaal,H1) == 1,$upper($left($1,1)),$left($1,1)),$left($right($1-,-1),-1),%2,$right($1-,1)) | halt }
  if ($readini(talker.ini,%kanaal,style) == 4) {
    inc %talker-4 1 | if (%talker-4 > 2) { set %talker-4 1 }
    if (%talker-4 == 1) { msg $active $+(%1,$iif($readini(talker.ini,%kanaal,H1) == 1,$+($upper($left($1,1)),$right($1-,-1)),$1-)) }
    if (%talker-4 == 2) { msg $active $+(%2,$iif($readini(talker.ini,%kanaal,H2) == 1,$+($upper($left($1,1)),$right($1-,-1)),$1-)) }
    halt
  }
  if ($readini(talker.ini,$%kanaal,style) == 5) { msg $active $+(%1,$chr(3),$chr(3),$rand(1,15),$iif($readini(talker.ini,%kanaal,H1) == 1,$+($upper($left($1,1)),$right($1-,-1)),$1-)) | halt }
}

Plekpotje

Like Page Follow Author

Comments

Sign in to comment.
^WeSt   -  Dec 03, 2015

@Hawkee at the end of this code the hawkee parser cannot parse correctly the code. have a look!

  3 Responses  
SReject  -  Dec 03, 2015

This is because the highlighter sees the /* and assumes a blockcomment has started.

@Hawkee To fix it, mIRC's block comments must be prefixed with whitespace to be valid

Hawkee  -  Dec 03, 2015

Let's see if we can get @FordLawnmower to update the parser. He wrote it for CodeMirror which is what we use here on Hawkee.

rebel9  -  Dec 03, 2015

Try using $ctrlenter , that'll show you if you pressed ctrl while pressing enter.

Sign in to comment

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.