KLoWnX — File Browser
klownX / klownX / KLoWnXc-talk.mrc
KLoWnXc-talk.mrc — 17.61 KB — Download this file
on 1:load:{
set %ctalkc.version $chr(3) $+ 04 $+ ( $+ $chr(3) $+ 12 $+ KLøWñ× C-Talk $+ $chr(3) $+ 04 $+ ) $+ $chr(3)
if ($version < 5.51) { echo -a %ctalkc.version This script requires mIRC version 5.51. Script aborted! | set %ctalk.conf $$?!="Download newest mIRC?" | if (%ctalk.conf == $true) { run Http://www.mirc.co.uk/get.html }
else { unset %ctalk* | unload -rs c-talk.mrc }
}
echo -a %ctalkc.version Successfully Loaded!
echo -a %ctalkc.version Options under channel menu and menubar
}
#color off
on 1:input:*:{
if (/me == $1) || (/action == $1) { me $chr(3) $+ %ctalkc.c $+ $2- | halt }
if (/ame == $1) { ame $chr(3) $+ %ctalkc.c $+ $2- | halt }
if (/amsg == $1) { amsg $chr(3) $+ %ctalkc.c $+ $2- | halt }
if (/describe == $1) { describe $2 $chr(3) $+ %ctalkc.c $+ $3- | halt }
if (/notice == $1) { notice $chr(3) $+ %ctalkc.c $+ $3- | halt }
elseif ($chr(47) == $left($1,1)) { return | halt }
msg $target $chr(3) $+ %ctalkc.c $+ $1- | halt
}
#color end
#line off
on 1:input:*:{
if (/me == $1) || (/action == $1) { me $randline($2-) | halt }
if (/ame == $1) { ame $randline($2-) | halt }
if (/amsg == $1) { amsg $randline($2-) | halt }
if (/describe == $1) { describe $2 $randline($3-) | halt }
if (/notice == $1) { notice $2 $randline($3-) | halt }
if (/msg == $1) || (/query == $1) { msg $2 $randline($3-) | halt }
elseif ($chr(47) == $left($1,1)) { return | halt }
msg $target $randline($1-) | halt
}
#line end
#word off
on 1:input:*:{
if (/me == $1) || (/action == $1) { me $word($2-) | halt }
if (/ame == $1) { ame $word($2-) | halt }
if (/amsg == $1) { amsg $word($2-) | halt }
if (/describe == $1) { describe $2 $word($3-) | halt }
if (/notice == $1) { notice $2 $word($3-) | halt }
if (/msg == $1) || (/query == $1) { msg $2 $word($3-) | halt }
elseif ($chr(47) == $left($1,1)) { return | halt }
msg $target $word($1-) | halt
}
#word end
#letter off
on 1:input:*:{
if (/me == $1) || (/action == $1) { me $letter($2-) | halt }
if (/ame == $1) { ame $letter($2-) | halt }
if (/amsg == $1) { amsg $letter($2-) | halt }
if (/describe == $1) { describe $2 $letter($3-) | halt }
if (/notice == $1) { notice $2 $letter($3-) | halt }
if (/msg == $1) || (/query == $1) { msg $2 $letter($3-) | halt }
elseif ($chr(47) == $left($1,1)) { return | halt }
msg $target $letter($1-) | halt
}
#letter end
alias checkcin { if ($group(#cinput) == on) { disable #cinput } }
alias randline {
unset %ctalk.*
set %ctalk.c $gettok(2&3&4&5&6&7&10&12&13,$rand(1,9),38)
if ($len(%ctalk.c) < 2) { set %ctalk.c $chr(48) $+ %ctalk.c }
return $chr(3) $+ %ctalk.c $+ $1- | unset %ctalk.c
}
alias word {
if ($chr(47) == $left($1,1)) { return | halt }
unset %ctalk.*
set %ctalk.inc 0 | :loop | inc %ctalk.inc
if ($gettok($1-,%ctalk.inc,32) == $null) { return %ctalk.talk }
set %ctalk.rand $gettok(2&3&4&5&6&7&10&12&13,$rand(1,9),38)
if ($len(%ctalk.rand) < 2) { set %ctalk.rand $chr(48) $+ %ctalk.rand }
set %ctalk.color $chr(3) $+ %ctalk.rand $+ $gettok($1-,%ctalk.inc,32)
set %ctalk.talk $addtok(%ctalk.talk,%ctalk.color,32) | goto loop
}
alias letter {
unset %ctalk.* | unset %w | set %ctalk.word $1- | set %w 0 | :loop | inc %w
if (%w > $len($1-)) { return $mid(%ctalk.word,$calc($len($1-) + 1),500) }
if ($asc($mid($1-,%w,1)) == 32) { set %ctalk.space $true | goto loop }
set %ctalk.f $gettok(2&3&4&5&6&7&10&12&13,$rand(1,9),38)
if ($len(%ctalk.f) < 2) { set %ctalk.c $chr(3) $+ $chr(48) $+ %ctalk.f }
else { set %ctalk.c $chr(3) $+ %ctalk.f }
if (%ctalk.space != $null) { set %ctalk.word.w %ctalk.word %ctalk.c $+ $mid($1-,%w,1) | unset %ctalk.space | goto loop2 }
set %ctalk.word.w %ctalk.word $+ %ctalk.c $+ $mid($1-,%w,1)
:loop2 | set %ctalk.word $replace(%ctalk.word,%ctalk.word,%ctalk.word.w) | goto loop
}
alias options {
set %ctalk.rcolor $gettok(12&4,$rand(1,2),38)
window -pd +tf @Color 300 100 247 260 | titlebar @Color Options | drawfill @Color 1 1 0 0
drawtext -pboc @Color 0 1 Roman 14 75 40 300 350 $chr(3) $+ $chr(3) $+ 12 $+ KLøWñ× C-Talk $+ $chr(3)
drawline @Color 0 1 46 67 193 67
drawtext -bc @Color 0 1 Roman 14 60 80 200 300 Static Lines | drawtext -bc @Color 0 1 Roman 14 60 100 200 300 Random Letters
drawtext -bc @Color 0 1 Roman 14 60 120 200 300 Random Lines | drawtext -bc @Color 0 1 Roman 14 60 140 200 300 Random Words
drawrect -f @Color 0 1 42 80 10 10 | drawrect -f @Color 0 1 42 100 10 10 | drawrect -f @Color 0 1 42 120 10 10 | drawrect -f @Color 0 1 42 140 10 10
drawline @Color 1 1 42 80 52 80 | drawline @Color 1 1 42 80 42 90
drawline @Color 1 1 42 100 52 100 | drawline @Color 1 1 42 100 42 110
drawline @Color 1 1 42 120 52 120 | drawline @Color 1 1 42 120 42 130
drawline @Color 1 1 42 140 52 140 | drawline @Color 1 1 42 140 42 150
drawrect -f @Color %ctalk.rcolor 15 100 180 50 20
drawline @Color 0 1 97 177 97 203 | drawline @Color 0 1 97 177 153 177
drawline @Color 0 1 153 177 153 203 | drawline @Color 0 1 153 203 97 203
drawtext -bc @Color 0 %ctalk.rcolor Roman 14 118 183 250 400 OK | drawrect -f @Color 1 1 56 223 17 8
drawtext -bpc @Color 0 1 Roman 12 5 220 200 300 Written by $chr(3) $+ 12 $+ $chr(31) $+ $chr(2) $+ KLoWnDJearl
if ($group(#color) == on) { drawtext -bc @Color 1 0 symbol 11 43 80 100 100 $chr(214) | drawline @Color 1 1 42 80 52 80 }
if ($group(#letter) == on) { drawtext -bc @Color 1 0 symbol 11 43 100 100 100 $chr(214) | drawline @Color 1 1 42 100 52 100 }
if ($group(#line) == on) { drawtext -bc @Color 1 0 symbol 11 43 120 100 100 $chr(214) | drawline @Color 1 1 42 120 52 120 }
if ($group(#word) == on) { drawtext -bc @Color 1 0 symbol 11 43 140 100 100 $chr(214) | drawline @Color 1 1 42 140 52 140 }
}
alias colorscroll {
if (%ctalk.rcolor == $null) { set %ctalk.rcolor $gettok(12&4,$rand(1,2),38) }
window -ped +bf @Choose 540 140 140 120
drawfill @Choose 1 1 0 0 | colorw
drawrect -f @Choose %ctalk.rcolor 15 20 48 40 15
drawrect -f @Choose %ctalk.rcolor 15 75 48 40 15
drawtext -bc @Choose 0 %ctalk.rcolor roman 14 26 48 40 15 Done
drawtext -bc @Choose 0 %ctalk.rcolor roman 14 85 48 40 15 Edit
drawline @Choose 0 1 17 45 17 67 | drawline @Choose 0 1 63 45 63 67
drawline @Choose 0 1 72 45 72 67 | drawline @Choose 0 1 118 45 118 67
drawline @Choose 0 1 17 45 63 45 | drawline @Choose 0 1 17 67 63 67
drawline @Choose 0 1 72 45 118 45 | drawline @Choose 0 1 72 67 118 67
}
alias colorw {
drawrect -f @Choose 0 15 0 0 17 17 | drawrect -f @Choose 1 15 17 0 17 17
drawrect -f @Choose 2 15 34 0 17 17 | drawrect -f @Choose 3 15 51 0 17 17
drawrect -f @Choose 4 15 68 0 17 17 | drawrect -f @Choose 5 15 85 0 17 17
drawrect -f @Choose 6 15 102 0 17 17 | drawrect -f @Choose 7 15 119 0 17 17
drawrect -f @Choose 8 15 0 17 17 17 | drawrect -f @Choose 9 15 17 17 17 17
drawrect -f @Choose 10 15 34 17 17 17 | drawrect -f @Choose 11 15 51 17 17 17
drawrect -f @Choose 12 15 68 17 17 17 | drawrect -f @Choose 13 15 85 17 17 17
drawrect -f @Choose 14 15 102 17 17 17 | drawrect -f @Choose 15 15 119 17 17 17
drawline @Choose 14 1 0 0 0 34 | drawline @Choose 15 2 1 0 1 34
drawline @Choose 14 1 17 0 17 34 | drawline @Choose 15 1 18 0 18 34
drawline @Choose 14 1 34 0 34 34 | drawline @Choose 15 1 35 0 35 34
drawline @Choose 14 1 51 0 51 34 | drawline @Choose 15 1 52 0 52 34
drawline @Choose 14 1 68 0 68 34 | drawline @Choose 15 1 69 0 69 34
drawline @Choose 14 1 85 0 85 34 | drawline @Choose 15 1 86 0 86 34
drawline @Choose 14 1 102 0 102 34 | drawline @Choose 15 1 103 0 103 34
drawline @Choose 14 1 119 0 119 34 | drawline @Choose 15 1 120 0 120 34
drawline @Choose 14 1 136 0 136 34 | drawline @Choose 15 1 137 0 137 34
drawline @Choose 15 1 0 0 140 0 | drawline @Choose 14 1 0 1 140 1
drawline @Choose 15 1 0 17 140 17 | drawline @Choose 14 1 0 18 140 18
drawline @Choose 15 1 0 34 140 34 | drawline @Choose 14 1 0 35 140 35
}
menu @Choose {
sclick {
if ($inrect($mouse.x,$mouse.y,0,0,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 0 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 0 | set %ctalkc.c 00 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 0 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 00 }
}
if ($inrect($mouse.x,$mouse.y,17,0,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 1 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 1 | set %ctalkc.c 01 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 1 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 01 }
}
if ($inrect($mouse.x,$mouse.y,34,0,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 2 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 2 | set %ctalkc.c 02 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 2 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 02 }
}
if ($inrect($mouse.x,$mouse.y,51,0,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 3 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 3 | set %ctalkc.c 03 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 3 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 03 }
}
if ($inrect($mouse.x,$mouse.y,68,0,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 4 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 4 | set %ctalkc.c 04 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 4 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 04 }
}
if ($inrect($mouse.x,$mouse.y,85,0,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 5 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 5 | set %ctalkc.c 05 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 5 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 05 }
}
if ($inrect($mouse.x,$mouse.y,102,0,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 6 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 6 | set %ctalkc.c 06 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 6 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 06 }
}
if ($inrect($mouse.x,$mouse.y,119,0,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 7 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 7 | set %ctalkc.c 07 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 7 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 07 }
}
if ($inrect($mouse.x,$mouse.y,0,17,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 8 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 8 | set %ctalkc.c 08 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 8 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 08 }
}
if ($inrect($mouse.x,$mouse.y,17,17,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 9 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 9 | set %ctalkc.c 09 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 9 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 09 }
}
if ($inrect($mouse.x,$mouse.y,34,17,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 10 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 10 | set %ctalkc.c 10 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 6 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 10 }
}
if ($inrect($mouse.x,$mouse.y,51,17,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 11 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 11 | set %ctalkc.c 11 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 11 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 11 }
}
if ($inrect($mouse.x,$mouse.y,68,17,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 12 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 12 | set %ctalkc.c 12 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 12 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 12 }
}
if ($inrect($mouse.x,$mouse.y,85,17,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 13 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 13 | set %ctalkc.c 13 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 13 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 13 }
}
if ($inrect($mouse.x,$mouse.y,102,17,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 14 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 14 | set %ctalkc.c 14 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 14 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 14 }
}
if ($inrect($mouse.x,$mouse.y,119,17,17,17)) {
if (%ctalk.choose == $null) { set %ctalk.first 15 | set %ctalk.choose $true | editbox @Choose $chr(1) $+ 15 | set %ctalkc.c 15 | colorscroll }
elseif (%ctalk.choose == $false) { halt }
else { set %ctalk.choose $false | editbox @Choose $chr(1) $+ %ctalk.first $+ $chr(44) $+ 15 | set %ctalkc.c %ctalkc.c $+ $chr(44) $+ 15 }
}
if ($inrect($mouse.x,$mouse.y,20,48,40,15)) { window -c @Choose | window -c @Color }
if ($inrect($mouse.x,$mouse.y,75,48,40,15)) { window -ped +bf @Choose 540 140 140 80 | colorw | unset %ctalk.* | editbox -c }
}
}
menu channel {
KLøWñ× C-Talk :options
}
menu @Color {
sclick {
if ($inrect($mouse.x,$mouse.y,56,223,17,8)) { run Http://gwis.com/~dtc/addons | halt }
if ($inrect($mouse.x,$mouse.y,42,80,10,10)) {
if ($group(#color) == off) {
.enable #color | .disable #letter | .disable #line | .disable #word | unset %ctalk.* | window -ped +bf @Choose 540 140 140 80 | colorw
drawtext -bc @Color 1 0 symbol 11 43 80 100 100 $chr(214) | drawline @Color 1 1 42 80 52 80
drawtext -bc @Color 0 0 symbol 11 43 100 100 100 $chr(214) | drawline @Color 1 1 42 100 52 100
drawtext -bc @Color 0 0 symbol 11 43 120 100 100 $chr(214) | drawline @Color 1 1 42 120 52 120
drawtext -bc @Color 0 0 symbol 11 43 140 100 100 $chr(214) | drawline @Color 1 1 42 140 52 140
}
else { if ($window(@Choose) == @Choose) { window -c @Choose } | unset %ctalkc.c | .disable #color | drawtext -bc @Color 0 0 symbol 11 43 80 100 100 $chr(214) | drawline @Color 1 1 42 80 52 80 }
}
if ($inrect($mouse.x,$mouse.y,42,100,10,10)) {
if ($group(#letter) == off) {
.enable #letter | .disable #color | .disable #line | .disable #word
drawtext -bc @Color 1 0 symbol 11 43 100 100 100 $chr(214) | drawline @Color 1 1 42 100 52 100
drawtext -bc @Color 0 0 symbol 11 43 80 100 100 $chr(214) | drawline @Color 1 1 42 80 52 80
drawtext -bc @Color 0 0 symbol 11 43 120 100 100 $chr(214) | drawline @Color 1 1 42 120 52 120
drawtext -bc @Color 0 0 symbol 11 43 140 100 100 $chr(214) | drawline @Color 1 1 42 140 52 140
}
else { .disable #letter | drawtext -bc @Color 0 0 symbol 11 43 100 100 100 $chr(214) | drawline @Color 1 1 42 100 52 100 }
}
if ($inrect($mouse.x,$mouse.y,42,120,10,10)) {
if ($group(#line) == off) {
.enable #line | .disable #color | .disable #letter | .disable #word
drawtext -bc @Color 1 0 symbol 11 43 120 100 100 $chr(214) | drawline @Color 1 1 42 120 52 120
drawtext -bc @Color 0 0 symbol 11 43 140 100 100 $chr(214) | drawline @Color 1 1 42 140 52 140
drawtext -bc @Color 0 0 symbol 11 43 100 100 100 $chr(214) | drawline @Color 1 1 42 100 52 100
drawtext -bc @Color 0 0 symbol 11 43 80 100 100 $chr(214) | drawline @Color 1 1 42 80 52 80
}
else { .disable #line | drawtext -bc @Color 0 0 symbol 11 43 120 100 100 $chr(214) | drawline @Color 1 1 42 120 52 120 }
}
if ($inrect($mouse.x,$mouse.y,42,140,10,10)) {
if ($group(#word) == off) {
.enable #word | .disable #color | .disable #letter | .disable #line
drawtext -bc @Color 1 0 symbol 11 43 140 100 100 $chr(214) | drawline @Color 1 1 42 140 52 140
drawtext -bc @Color 0 0 symbol 11 43 100 100 100 $chr(214) | drawline @Color 1 1 42 100 52 100
drawtext -bc @Color 0 0 symbol 11 43 80 100 100 $chr(214) | drawline @Color 1 1 42 80 52 80
drawtext -bc @Color 0 0 symbol 11 43 120 100 100 $chr(214) | drawline @Color 1 1 42 120 52 120
}
else { .disable #word | drawtext -bc @Color 0 0 symbol 11 43 140 100 100 $chr(214) | drawline @Color 1 1 42 140 52 140 } }
if ($inrect($mouse.x,$mouse.y,100,180,50,20)) { window -c @Color }
}
}