This Addons Same Like Any Of My Secret Input Addons
But This Time In Colour Mode
But Only Allowed All Chr key below
Don't edit The Code Below Unless U Know What U Doing
;/*
;========================EYIEZINC SCRIPTERS=========================
;Addons: Secret Text Color Input
;Created By: Lestat
;Tester By: MasTer-PriNce
;Server: Webchat
;Description
;-------------
;This Addons Same Like Any Of My Secret Input Addons
;But This Time In Colour Mode
;But Only Allowed All Chr key below
;Don't edit The Code Below Unless U Know What U Doing
;P/s: sorry if my coding like this.. :p
;================================================================
;*/
menu channel {
Secret Colour
.$iif($group(#SecretColor) = on,$style(3)) ON :.enable #secretcolor
.-
.$iif($group(#SecretColor) = off,$style(3)) OFF :.disable #secretcolor
}
#SecretColor on
On *:input:#: if ($left($1-,1) != /) { msg $active $dc($1-) | halt }
alias dc {
var %x = 1
while ($mid($1-,%x,1)) || ($mid($1-,%x,1) != $null) {
var %xt = $mid($1-,%x,1),%nieza = $asc(%xt)
if (%nieza < 48) && ($asc(%xt) != 32) { msg $active $1- | halt }
if (%nieza = 32) { var %txt = $+($chr(3),1,$chr(44),1,-,) }
if (%nieza = 48) { var %t = 0 }
if (%nieza = 49) { var %t = 1 }
if (%nieza = 50) { var %t = 2 }
if (%nieza = 51) { var %t = 3 }
if (%nieza = 52) { var %t = 4 }
if (%nieza = 53) { var %t = 5 }
if (%nieza = 54) { var %t = 6 }
if (%nieza = 55) { var %t = 7 }
if (%nieza = 56) { var %t = 8 }
if (%nieza = 57) { var %t = 9 }
if (%nieza = 58) { var %t = 10 }
if (%nieza = 59) { var %t = 11 }
if (%nieza = 60) { var %t = 12 }
if (%nieza = 61) { var %t = 13 }
if (%nieza = 62) { var %t = 14 }
if (%nieza = 63) { var %t = 15 }
if (%nieza = 65) { var %t = 0 }
if (%nieza = 66) { var %t = 1 }
if (%nieza = 67) { var %t = 2 }
if (%nieza = 68) { var %t = 3 }
if (%nieza = 69) { var %t = 4 }
if (%nieza = 70) { var %t = 5 }
if (%nieza = 71) { var %t = 6 }
if (%nieza = 72) { var %t = 7 }
if (%nieza = 73) { var %t = 8 }
if (%nieza = 74) { var %t = 9 }
if (%nieza = 75) { var %t = 10 }
if (%nieza = 76) { var %t = 11 }
if (%nieza = 77) { var %t = 12 }
if (%nieza = 78) { var %t = 13 }
if (%nieza = 79) { var %t = 14 }
if (%nieza = 80) { var %t = 15 }
if (%nieza = 81) { var %t = 0 }
if (%nieza = 82) { var %t = 1 }
if (%nieza = 83) { var %t = 2 }
if (%nieza = 84) { var %t = 3 }
if (%nieza = 85) { var %t = 4 }
if (%nieza = 86) { var %t = 5 }
if (%nieza = 87) { var %t = 6 }
if (%nieza = 88) { var %t = 7 }
if (%nieza = 89) { var %t = 8 }
if (%nieza = 90) { var %t = 9 }
if (%nieza = 91) { var %t = 10 }
if (%nieza = 92) { var %t = 11 }
if (%nieza = 93) { var %t = 12 }
if (%nieza = 94) { var %t = 13 }
if (%nieza = 95) { var %t = 14 }
if (%nieza = 96) { var %t = 15 }
if (%nieza = 97) { var %t = 0 }
if (%nieza = 98) { var %t = 1 }
if (%nieza = 99) { var %t = 2 }
if (%nieza = 100) { var %t = 3 }
if (%nieza = 101) { var %t = 4 }
if (%nieza = 102) { var %t = 5 }
if (%nieza = 103) { var %t = 6 }
if (%nieza = 104) { var %t = 7 }
if (%nieza = 105) { var %t = 8 }
if (%nieza = 106) { var %t = 9 }
if (%nieza = 107) { var %t = 10 }
if (%nieza = 108) { var %t = 11 }
if (%nieza = 109) { var %t = 12 }
if (%nieza = 110) { var %t = 13 }
if (%nieza = 111) { var %t = 14 }
if (%nieza = 112) { var %t = 15 }
if (%nieza = 113) { var %t = 0 }
if (%nieza = 114) { var %t = 1 }
if (%nieza = 115) { var %t = 2 }
if (%nieza = 116) { var %t = 3 }
if (%nieza = 117) { var %t = 4 }
if (%nieza = 118) { var %t = 5 }
if (%nieza = 119) { var %t = 6 }
if (%nieza = 120) { var %t = 7 }
if (%nieza = 121) { var %t = 8 }
if (%nieza = 122) { var %t = 9 }
if (%nieza isnum 65-80) { set %k 2 | var %txt = $+($chr(3),%k,$chr(44),%t,.,) }
if (%nieza isnum 81-96) { set %k 3 | var %txt = $+($chr(3),%k,$chr(44),%t,.,) }
if (%nieza isnum 97-112) { set %k 4 | var %txt = $+($chr(3),%k,$chr(44),%t,.,) }
if (%nieza isnum 113-122) { set %k 5 | var %txt = $+($chr(3),%k,$chr(44),%t,.,) }
if (%nieza isnum 48-63) { set %k 6 | var %txt = $+($chr(3),%k,$chr(44),%t,.,) }
if (%nieza isnum 64) { set %k 7 | var %txt = $+($chr(3),%k,$chr(44),%t,.,) }
if (%txt) { var %out = $+(%out,%txt) }
inc %x
}
return %out
}
On ^*:text:*:#: { if ($chr(3) isin $1-) && ($chr(46) isin $strip($1-)) { echo -m $chan $+(<,$nick,> $1-,$str($chr(0160),5),) 4[8Break4]9: $invert($1-) | haltdef } }
alias invert {
var %t = 1,%txt = $remove($1-,$chr(3))
while ($gettok(%txt,%t,15)) {
var %c = $remove($gettok(%txt,%t,15),.,-),%nieza = $gettok(%c,1,44),%ika = $gettok(%c,2,44)
if (%nieza = 1) { if (%ika = 1) { var %tx = * } }
if (%nieza = 2) {
if (%ika = 0) { var %tx = 65 }
if (%ika = 1) { var %tx = 66 }
if (%ika = 2) { var %tx = 67 }
if (%ika = 3) { var %tx = 68 }
if (%ika = 4) { var %tx = 69 }
if (%ika = 5) { var %tx = 70 }
if (%ika = 6) { var %tx = 71 }
if (%ika = 7) { var %tx = 72 }
if (%ika = 8) { var %tx = 73 }
if (%ika = 9) { var %tx = 74 }
if (%ika = 10) { var %tx = 75 }
if (%ika = 11) { var %tx = 76 }
if (%ika = 12) { var %tx = 77 }
if (%ika = 13) { var %tx = 78 }
if (%ika = 14) { var %tx = 79 }
if (%ika = 15) { var %tx = 80 }
}
if (%nieza = 3) {
if (%ika = 0) { var %tx = 81 }
if (%ika = 1) { var %tx = 82 }
if (%ika = 2) { var %tx = 83 }
if (%ika = 3) { var %tx = 84 }
if (%ika = 4) { var %tx = 85 }
if (%ika = 5) { var %tx = 86 }
if (%ika = 6) { var %tx = 87 }
if (%ika = 7) { var %tx = 88 }
if (%ika = 8) { var %tx = 89 }
if (%ika = 9) { var %tx = 90 }
if (%ika = 10) { var %tx = 91 }
if (%ika = 11) { var %tx = 92 }
if (%ika = 12) { var %tx = 93 }
if (%ika = 13) { var %tx = 94 }
if (%ika = 14) { var %tx = 95 }
if (%ika = 15) { var %tx = 96 }
}
if (%nieza = 4) {
if (%ika = 0) { var %tx = 97 }
if (%ika = 1) { var %tx = 98 }
if (%ika = 2) { var %tx = 99 }
if (%ika = 3) { var %tx = 100 }
if (%ika = 4) { var %tx = 101 }
if (%ika = 5) { var %tx = 102 }
if (%ika = 6) { var %tx = 103 }
if (%ika = 7) { var %tx = 104 }
if (%ika = 8) { var %tx = 105 }
if (%ika = 9) { var %tx = 106 }
if (%ika = 10) { var %tx = 107 }
if (%ika = 11) { var %tx = 108 }
if (%ika = 12) { var %tx = 109 }
if (%ika = 13) { var %tx = 110 }
if (%ika = 14) { var %tx = 111 }
if (%ika = 15) { var %tx = 112 }
}
if (%nieza = 5) {
if (%ika = 0) { var %tx = 113 }
if (%ika = 1) { var %tx = 114 }
if (%ika = 2) { var %tx = 115 }
if (%ika = 3) { var %tx = 116 }
if (%ika = 4) { var %tx = 117 }
if (%ika = 5) { var %tx = 118 }
if (%ika = 6) { var %tx = 119 }
if (%ika = 7) { var %tx = 120 }
if (%ika = 8) { var %tx = 121 }
if (%ika = 9) { var %tx = 122 }
}
if (%nieza = 6) {
if (%ika = 0) { var %tx = 48 }
if (%ika = 1) { var %tx = 49 }
if (%ika = 2) { var %tx = 50 }
if (%ika = 3) { var %tx = 51 }
if (%ika = 4) { var %tx = 52 }
if (%ika = 5) { var %tx = 53 }
if (%ika = 6) { var %tx = 54 }
if (%ika = 7) { var %tx = 55 }
if (%ika = 8) { var %tx = 56 }
if (%ika = 9) { var %tx = 57 }
if (%ika = 10) { var %tx = 58 }
if (%ika = 11) { var %tx = 59 }
if (%ika = 12) { var %tx = 60 }
if (%ika = 13) { var %tx = 61 }
if (%ika = 14) { var %tx = 62 }
if (%ika = 15) { var %tx = 63 }
}
if (%nieza = 7) { if (%ika = 1) { var %tx = 64 } }
if (%tx = *) { var %txs = $+(%txs,%tx) }
else { var %txs = $replace($+(%txs,$chr(%tx)),*,$chr(32)) }
inc %t
}
return %txs
}
#SecretColor end
this is technically the same shiz
alias SecCol {
var %t = 1
tokenize 32 $remove($1-,$chr(32))
while (%t <= $len($1-)) {
var %c = $asc($mid($1-,%t,1))
while (%c > 15) { %c = $round($calc(%c / 2.6),0) }
var %f = $+(%f,,%c,$chr(44),%c,.)
inc %t
}
return %f
}
On *:input:#: if ($left($1-,1) != /) { msg $active $secCol($1-) | halt }
to test this you need to load it onto 2 mirc clients. when you turn it on and type anything it converts what you type into ..-...... with pretty colors. The other client that has this loaded will see ..-...... hello.
Basically this is a secret code where only another person with this snippet will shee what was acually said.
Gemster