menu channel,query,status,nicklist {
  -
  $iif($dialog(Talker),$style(2)) Talker: dialog -m Talker Talker
}

dialog Talker {
  title "Kleuren talker (V1.0) © by Goldfive"
  option dbu
  size -1 -1 150 150
  tab "Instellen",1, 2.5 2 145 145,
  button "Aan",3, 5 20 45 30, tab 1
  button "Uit",4, 5 60 45 30, tab 1
  combo 5, 75 20 50 17.5, tab 1 drop
  text "Huidige: nog niks!",6, 75 40 48 20, tab 1
  button "Oke!",7, 75 60 50 30, tab 1
  check "Eerste letter onderstreept",8, 5 90 71 15, tab 1
  check "Eerste letter vet",9, 5 105 50 15, tab 1
  check "Eerste woord onderstreept",10, 5 120 73 15, tab 1
  check "Eerste woord vet",11, 5 135 50 10, tab 1
  text "",12,120 137 25 7, tab 1
  radio "Random talker",13,80 100 50 10, tab 1
  radio "Één Kleur talker",14,80 110 50 10, tab 1
}

alias tijd { did -i talker 12 1 $time(HH:nn:ss) | .timertijd 2 1 tijd }

on *: DIALOG:talker:close:*: {
  .timertijd off
}

on *: DIALOG:talker:*:*: {
  if ($devent == init) {
    $tijd
    did -b $dname %aanofuit
    if ($exists(colorcombo.dll) == $false) {
      did -i $dname 5 1 16 Licht grijs
      did -i $dname 5 1 15 Grijs
      did -i $dname 5 1 14 Roze
      did -i $dname 5 1 13 Blauw
      did -i $dname 5 1 12 Lichtblauw
      did -i $dname 5 1 11 Turquoise
      did -i $dname 5 1 10 Lichtgroen
      did -i $dname 5 1 9 Geel
      did -i $dname 5 1 8 Oranje
      did -i $dname 5 1 7 Paars
      did -i $dname 5 1 6 Bruin
      did -i $dname 5 1 5 Rood
      did -i $dname 5 1 4 Groen
      did -i $dname 5 1 3 Donkerblauw
      did -i $dname 5 1 2 Zwart
      did -i $dname 5 1 1 Wit
      did -i $dname 5 1 0 Random
      did -i 5 1 Huidige: %kleurtje
    }
    else { dll colorcombo.dll COMBO $dname 5 }
  }
  if ($devent == sclick) {
    if ($did == 5) {
      if ($did(5).sel == 1) { did -i $dname 6 1 Huidige: Random | set %kleurdingetje Random | set %listdid 100 }
      if ($did(5).sel == 2) { did -i $dname 6 1 Huidige: wit | set %kleurdingetje wit | set %listdid 0 }
      if ($did(5).sel == 3) { did -i $dname 6 1 Huidige: zwart | set %kleurdingetje zwart | set %listdid 1 }
      if ($did(5).sel == 4) { did -i $dname 6 1 Huidige: donkerblauw | set %kleurdingetje donkerblauw | set %listdid 2 }
      if ($did(5).sel == 5) { did -i $dname 6 1 Huidige: groen | set %kleurdingetje groen | set %listdid 3 }
      if ($did(5).sel == 6) { did -i $dname 6 1 Huidige: rood | set %kleurdingetje rood | set %listdid 4 }
      if ($did(5).sel == 7) { did -i $dname 6 1 Huidige: bruin | set %kleurdingetje bruin | set %listdid 5 }
      if ($did(5).sel == 8) { did -i $dname 6 1 Huidige: paars | set %kleurdingetje paars | set %listdid 6 }
      if ($did(5).sel == 9) { did -i $dname 6 1 Huidige: oranje | set %kleurdingetje oranje | set %listdid 7 }
      if ($did(5).sel == 10) { did -i $dname 6 1 Huidige: geel | set %kleurdingetje geel | set %listdid 8 }
      if ($did(5).sel == 11) { did -i $dname 6 1 Huidige: lichtgroen | set %kleurdingetje lichtgroen | set %listdid 9 }
      if ($did(5).sel == 12) { did -i $dname 6 1 Huidige: turquoise | set %kleurdingetje turquoise | set %listdid 10 }
      if ($did(5).sel == 13) { did -i $dname 6 1 Huidige: lichtblauw | set %kleurdingetje lichtblauw | set %listdid 11 }
      if ($did(5).sel == 14) { did -i $dname 6 1 Huidige: blauw | set %kleurdingetje blauw | set %listdid 12 }
      if ($did(5).sel == 15) { did -i $dname 6 1 Huidige: roze | set %kleurdingetje roze | set %listdid 13 }
      if ($did(5).sel == 16) { did -i $dname 6 1 Huidige: grijs | set %kleurdingetje grijs | set %listdid 14 }
      if ($did(5).sel == 17) { did -i $dname 6 1 Huidige: lichtgrijs | set %kleurdingetje lichtgrijs | set %listdid 15 }
    }
    if ($did == 13) {
      if ($did(13).state == 1) { did -h $dname 5 }
    }
    if ($did == 14) {
      if ($did(14).state == 1) { did -v $dname 5 }
    }
    if ($did == 3) {
      did -b $dname 3
      did -e $dname 4
      set %aanofuit 3
      set %talkerstatus on
    }
    if ($did == 4) {
      did -b $dname 4
      did -e $dname 3
      set %aanofuit 4
      set %talkerstatus off
    }
    if ($did == 8) || ($did == 9) {
      if ($did(8).state == 1) || ($did(9).state == 1) { did -b $dname 10,11 }
      if ($did(8).state == 0) && ($did(9).state == 0) { did -e $dname 10,11 }
    }
    if ($did == 10) || ($did == 11) {
      if ($did(10).state == 1) || ($did(11).state == 1) { did -b $dname 8,9 }
      if ($did(10).state == 0) && ($did(11).state == 0) { did -e $dname 8,9 }
    }
    if ($did == 7) {
      set %kleurtje %listdid
      if ($did(8).state == 1) && ($did(9).state == 1) { set %didjeuv true | set %didniks false }
      if ($did(8).state == 0) && ($did(9).state == 0) { set %didjeuv false | set %didniks false }
      if ($did(8).state != 1) { set %didjeuv false }
      if ($did(9).state != 1) { set %didjeuv false }
      if ($did(8).state != 1) && (did(9).state != 1) && ($did(10).state != 1) && ($did(11).state != 1) { set %didniks true }
      if ($did(8).state == 1) { set %didjeu true | set %didniks false }
      if ($did(8).state == 0) { set %didjeu false }
      if ($did(9).state == 1) { set %didjev true | set %didniks false }
      if ($did(9).state == 0) { set %didjev false }
      if ($did(10).state == 1) { set %didjeuu true | set %didniks false }
      if ($did(10).state == 0) { set %didjeuu false }
      if ($did(11).state == 1) { set %didjevv true | set %didniks false }
      if ($did(11).state == 0) { set %didjevv false }
      if ($did(10).state == 1) && ($did(11).state == 1) { set %didjeuuvv true }
      if ($did(10).state == 0) && ($did(11).state == 0) { set %didjeuuvv false }
      if ($did(13).state == 1) { set %kleurtje 100 }
      var %i $input(De kleur %kleurdingetje is nu ingesteld!,ot,Kleuren talker (V1.0) © by Goldfive)
    }
  }
}
on *:INPUT:*: {
  if ($1 == !kick) {
    if ($2 ison $active) {
      kick $active $2 2 $+ $3- 8| 7Kicked 9- 4Talker (V1.0) © by Goldfive
      halt
    }
    halt
  }
  if ($1 == !ban) {
    mode $active +b $address($2,2)
    kick $active $2 2 $+ $3- 8| 7Kicked 9- 4Talker (V1.0) © by Goldfive
    halt
  }
  if (%talkerstatus == on) {
    if (/* iswm $1) || ($active == status window) || (!* iswm $1) { return l }
    if ($left($1,1) == !) { msg $active $1- | halt }
    if ($left($1,1) isnum) { msg $active $chr(3) $+ 4 $1- | halt }
    if (%kleurtje == 100) { goto randomkleur }
    if (%didniks == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+ $+($right($1,-1)) $2- | halt }
    if (%didjeuv == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+  $+ $+($right($1,-1)) $2- | halt }
    if (%didjeuuvv == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+ $+($right($1,-1), ) $2- | halt }
    if (%didjeu == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+  $+ $+($right($1,-1)) $2- | halt }
    if (%didjev == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+  $+ $+($right($1,-1)) $2- | halt }
    if (%didjeuu == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+ $+($right($1,-1), ) $2- | halt }
    if (%didjevv == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+ $+($right($1,-1), ) $2- | halt }
    :randomkleur
    var %kleurrand $rand(3,15)
    if (%kleurrand == 8 || %kleurrand == 11 || %kleurrand == 13 || %kleurrand == 15 || %kleurcheckerr == %kleurrand) { goto randomkleur }
    if (%didniks == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+ $+($right($1,-1)) $2- | set %kleurcheckerr %kleurrand | halt }
    if (%didjeuv == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+  $+ $+($right($1,-1)) $2- | set %kleurcheckerr %kleurrand | halt }
    if (%didjeuuvv == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+ $+($right($1,-1), ) $2- | set %kleurcheckerr %kleurrand | halt }
    if (%didjeu == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+  $+ $+($right($1,-1)) $2- | set %kleurcheckerr %kleurrand | halt }
    if (%didjev == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+  $+ $+($right($1,-1)) $2- | set %kleurcheckerr %kleurrand | halt }
    if (%didjeuu == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+ $+($right($1,-1), ) $2- | set %kleurcheckerr %kleurrand | halt }
    if (%didjevv == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+ $+($right($1,-1), ) $2- | set %kleurcheckerr %kleurrand | halt }
    halt
  }
}