Secret Text Color Input

By eyiezinc on Mar 01, 2010

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

eyiezinc

Like Page Follow Author

Comments

Sign in to comment.
Korvin   -  Mar 02, 2010

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 }
 Respond  
Gemster   -  Mar 02, 2010
1

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

 Respond  
Korvin   -  Mar 01, 2010

haha agreed, if i had the least bit of an idea or an incentive i would do it.

 Respond  
Ghost-writer   -  Mar 01, 2010

Its so bloated, couldnt it be shortend? If i knew what you were using i could probobly shorten it but i dont get the point of the code.

 Respond  
eyiezinc   -  Mar 01, 2010

tq Gemster 4 ur comments...

 Respond  
Gemster   -  Mar 01, 2010

Works well but i found it a little spammy if 2 people chat in long sentances. Its not a script that i would personaly use but i thing quite a few ppl out there will enjoy this.

Neat 6/10

Thanks
Gemster

 Respond  
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.