SHARE
TWEET

Untitled

a guest Jun 19th, 2017 45 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. menu channel,query,status,nicklist {
  2.   -
  3.   $iif($dialog(Talker),$style(2)) Talker: dialog -m Talker Talker
  4. }
  5.  
  6. dialog Talker {
  7.   title "Kleuren talker (V1.0) © by Goldfive"
  8.   option dbu
  9.   size -1 -1 150 150
  10.   tab "Instellen",1, 2.5 2 145 145,
  11.   button "Aan",3, 5 20 45 30, tab 1
  12.   button "Uit",4, 5 60 45 30, tab 1
  13.   combo 5, 75 20 50 17.5, tab 1 drop
  14.   text "Huidige: nog niks!",6, 75 40 48 20, tab 1
  15.   button "Oke!",7, 75 60 50 30, tab 1
  16.   check "Eerste letter onderstreept",8, 5 90 71 15, tab 1
  17.   check "Eerste letter vet",9, 5 105 50 15, tab 1
  18.   check "Eerste woord onderstreept",10, 5 120 73 15, tab 1
  19.   check "Eerste woord vet",11, 5 135 50 10, tab 1
  20.   text "",12,120 137 25 7, tab 1
  21.   radio "Random talker",13,80 100 50 10, tab 1
  22.   radio "Één Kleur talker",14,80 110 50 10, tab 1
  23. }
  24.  
  25. alias tijd { did -i talker 12 1 $time(HH:nn:ss) | .timertijd 2 1 tijd }
  26.  
  27. on *: DIALOG:talker:close:*: {
  28.   .timertijd off
  29. }
  30.  
  31. on *: DIALOG:talker:*:*: {
  32.   if ($devent == init) {
  33.     $tijd
  34.     did -b $dname %aanofuit
  35.     if ($exists(colorcombo.dll) == $false) {
  36.       did -i $dname 5 1 16 Licht grijs
  37.       did -i $dname 5 1 15 Grijs
  38.       did -i $dname 5 1 14 Roze
  39.       did -i $dname 5 1 13 Blauw
  40.       did -i $dname 5 1 12 Lichtblauw
  41.       did -i $dname 5 1 11 Turquoise
  42.       did -i $dname 5 1 10 Lichtgroen
  43.       did -i $dname 5 1 9 Geel
  44.       did -i $dname 5 1 8 Oranje
  45.       did -i $dname 5 1 7 Paars
  46.       did -i $dname 5 1 6 Bruin
  47.       did -i $dname 5 1 5 Rood
  48.       did -i $dname 5 1 4 Groen
  49.       did -i $dname 5 1 3 Donkerblauw
  50.       did -i $dname 5 1 2 Zwart
  51.       did -i $dname 5 1 1 Wit
  52.       did -i $dname 5 1 0 Random
  53.       did -i 5 1 Huidige: %kleurtje
  54.     }
  55.     else { dll colorcombo.dll COMBO $dname 5 }
  56.   }
  57.   if ($devent == sclick) {
  58.     if ($did == 5) {
  59.       if ($did(5).sel == 1) { did -i $dname 6 1 Huidige: Random | set %kleurdingetje Random | set %listdid 100 }
  60.       if ($did(5).sel == 2) { did -i $dname 6 1 Huidige: wit | set %kleurdingetje wit | set %listdid 0 }
  61.       if ($did(5).sel == 3) { did -i $dname 6 1 Huidige: zwart | set %kleurdingetje zwart | set %listdid 1 }
  62.       if ($did(5).sel == 4) { did -i $dname 6 1 Huidige: donkerblauw | set %kleurdingetje donkerblauw | set %listdid 2 }
  63.       if ($did(5).sel == 5) { did -i $dname 6 1 Huidige: groen | set %kleurdingetje groen | set %listdid 3 }
  64.       if ($did(5).sel == 6) { did -i $dname 6 1 Huidige: rood | set %kleurdingetje rood | set %listdid 4 }
  65.       if ($did(5).sel == 7) { did -i $dname 6 1 Huidige: bruin | set %kleurdingetje bruin | set %listdid 5 }
  66.       if ($did(5).sel == 8) { did -i $dname 6 1 Huidige: paars | set %kleurdingetje paars | set %listdid 6 }
  67.       if ($did(5).sel == 9) { did -i $dname 6 1 Huidige: oranje | set %kleurdingetje oranje | set %listdid 7 }
  68.       if ($did(5).sel == 10) { did -i $dname 6 1 Huidige: geel | set %kleurdingetje geel | set %listdid 8 }
  69.       if ($did(5).sel == 11) { did -i $dname 6 1 Huidige: lichtgroen | set %kleurdingetje lichtgroen | set %listdid 9 }
  70.       if ($did(5).sel == 12) { did -i $dname 6 1 Huidige: turquoise | set %kleurdingetje turquoise | set %listdid 10 }
  71.       if ($did(5).sel == 13) { did -i $dname 6 1 Huidige: lichtblauw | set %kleurdingetje lichtblauw | set %listdid 11 }
  72.       if ($did(5).sel == 14) { did -i $dname 6 1 Huidige: blauw | set %kleurdingetje blauw | set %listdid 12 }
  73.       if ($did(5).sel == 15) { did -i $dname 6 1 Huidige: roze | set %kleurdingetje roze | set %listdid 13 }
  74.       if ($did(5).sel == 16) { did -i $dname 6 1 Huidige: grijs | set %kleurdingetje grijs | set %listdid 14 }
  75.       if ($did(5).sel == 17) { did -i $dname 6 1 Huidige: lichtgrijs | set %kleurdingetje lichtgrijs | set %listdid 15 }
  76.     }
  77.     if ($did == 13) {
  78.       if ($did(13).state == 1) { did -h $dname 5 }
  79.     }
  80.     if ($did == 14) {
  81.       if ($did(14).state == 1) { did -v $dname 5 }
  82.     }
  83.     if ($did == 3) {
  84.       did -b $dname 3
  85.       did -e $dname 4
  86.       set %aanofuit 3
  87.       set %talkerstatus on
  88.     }
  89.     if ($did == 4) {
  90.       did -b $dname 4
  91.       did -e $dname 3
  92.       set %aanofuit 4
  93.       set %talkerstatus off
  94.     }
  95.     if ($did == 8) || ($did == 9) {
  96.       if ($did(8).state == 1) || ($did(9).state == 1) { did -b $dname 10,11 }
  97.       if ($did(8).state == 0) && ($did(9).state == 0) { did -e $dname 10,11 }
  98.     }
  99.     if ($did == 10) || ($did == 11) {
  100.       if ($did(10).state == 1) || ($did(11).state == 1) { did -b $dname 8,9 }
  101.       if ($did(10).state == 0) && ($did(11).state == 0) { did -e $dname 8,9 }
  102.     }
  103.     if ($did == 7) {
  104.       set %kleurtje %listdid
  105.       if ($did(8).state == 1) && ($did(9).state == 1) { set %didjeuv true | set %didniks false }
  106.       if ($did(8).state == 0) && ($did(9).state == 0) { set %didjeuv false | set %didniks false }
  107.       if ($did(8).state != 1) { set %didjeuv false }
  108.       if ($did(9).state != 1) { set %didjeuv false }
  109.       if ($did(8).state != 1) && (did(9).state != 1) && ($did(10).state != 1) && ($did(11).state != 1) { set %didniks true }
  110.       if ($did(8).state == 1) { set %didjeu true | set %didniks false }
  111.       if ($did(8).state == 0) { set %didjeu false }
  112.       if ($did(9).state == 1) { set %didjev true | set %didniks false }
  113.       if ($did(9).state == 0) { set %didjev false }
  114.       if ($did(10).state == 1) { set %didjeuu true | set %didniks false }
  115.       if ($did(10).state == 0) { set %didjeuu false }
  116.       if ($did(11).state == 1) { set %didjevv true | set %didniks false }
  117.       if ($did(11).state == 0) { set %didjevv false }
  118.       if ($did(10).state == 1) && ($did(11).state == 1) { set %didjeuuvv true }
  119.       if ($did(10).state == 0) && ($did(11).state == 0) { set %didjeuuvv false }
  120.       if ($did(13).state == 1) { set %kleurtje 100 }
  121.       var %i $input(De kleur %kleurdingetje is nu ingesteld!,ot,Kleuren talker (V1.0) © by Goldfive)
  122.     }
  123.   }
  124. }
  125. on *:INPUT:*: {
  126.   if ($1 == !kick) {
  127.     if ($2 ison $active) {
  128.       kick $active $2 2 $+ $3- 8| 7Kicked 9- 4Talker (V1.0) © by Goldfive
  129.       halt
  130.     }
  131.     halt
  132.   }
  133.   if ($1 == !ban) {
  134.     mode $active +b $address($2,2)
  135.     kick $active $2 2 $+ $3- 8| 7Kicked 9- 4Talker (V1.0) © by Goldfive
  136.     halt
  137.   }
  138.   if (%talkerstatus == on) {
  139.     if (/* iswm $1) || ($active == status window) || (!* iswm $1) { return l }
  140.     if ($left($1,1) == !) { msg $active $1- | halt }
  141.     if ($left($1,1) isnum) { msg $active $chr(3) $+ 4 $1- | halt }
  142.     if (%kleurtje == 100) { goto randomkleur }
  143.     if (%didniks == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+ $+($right($1,-1)) $2- | halt }
  144.     if (%didjeuv == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+  $+ $+($right($1,-1)) $2- | halt }
  145.     if (%didjeuuvv == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+ $+($right($1,-1), ) $2- | halt }
  146.     if (%didjeu == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+  $+ $+($right($1,-1)) $2- | halt }
  147.     if (%didjev == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+  $+ $+($right($1,-1)) $2- | halt }
  148.     if (%didjeuu == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+ $+($right($1,-1), ) $2- | halt }
  149.     if (%didjevv == true) { msg $active  $+ %kleurtje $+ $upper($left($1,1)) $+ $+($right($1,-1), ) $2- | halt }
  150.     :randomkleur
  151.     var %kleurrand $rand(3,15)
  152.     if (%kleurrand == 8 || %kleurrand == 11 || %kleurrand == 13 || %kleurrand == 15 || %kleurcheckerr == %kleurrand) { goto randomkleur }
  153.     if (%didniks == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+ $+($right($1,-1)) $2- | set %kleurcheckerr %kleurrand | halt }
  154.     if (%didjeuv == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+  $+ $+($right($1,-1)) $2- | set %kleurcheckerr %kleurrand | halt }
  155.     if (%didjeuuvv == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+ $+($right($1,-1), ) $2- | set %kleurcheckerr %kleurrand | halt }
  156.     if (%didjeu == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+  $+ $+($right($1,-1)) $2- | set %kleurcheckerr %kleurrand | halt }
  157.     if (%didjev == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+  $+ $+($right($1,-1)) $2- | set %kleurcheckerr %kleurrand | halt }
  158.     if (%didjeuu == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+ $+($right($1,-1), ) $2- | set %kleurcheckerr %kleurrand | halt }
  159.     if (%didjevv == true) { msg $active  $+ %kleurrand $+ $upper($left($1,1)) $+ $+($right($1,-1), ) $2- | set %kleurcheckerr %kleurrand | halt }
  160.     halt
  161.   }
  162. }
RAW Paste Data
Top