l33t translator

By blackvenomm666 on Feb 25, 2011

simple l33t translator just turn it on and you start speaking in l33t. finally broke away from dialogs to do something real simple haha. ok so now it not only translates what you say to l33t it will also translate incoming text either from l33t to english or from english to l33t.

Menu Nicklist, {
  .l33t
  ..on: set %l33ttalk on
  ..off: set %l33ttalk off
  .Translation
  ..transtoengon: .set %tr4nstoeng on
  ..transtoengoff: .set %tr4nstoeng off
  ..transtol33ton: .set %transtol33t on
  ..transtol33toff: .set %transtol33t off
}
on *:Input:#: {
  if (%l33ttalk == on) { 
    msg $active $replace($1-,t,+,a,4,e,3,s,z,i,1,o,0,H,|-|,K,|<,A,@,M,|\/|) | halt
  }
}
on ^*:TEXT:*:*:{
  if (%transtol33t == on) { 
    echo $active $nick $replace($1-,t,+,a,4,e,3,s,z,i,1,o,0,H,|-|,K,|<,A,@,M,|\/|)
    haltdef
  }
  elseif (%tr4nstoeng == on) {
    echo  $active $nick $replace($1-,+,t,4,a,3,e,z,s,1,i,0,o,|-|,h,|<,k,@,A,|\/|,M)
    haltdef
  }
}
on ^*:ACTION:*:*:{
  if (%transtol33t == on) { 
    echo $active $nick $replace($1-,t,+,a,4,e,3,s,z,i,1,o,0,H,|-|,K,|<,A,@,M,|\/|)
    haltdef
  }
  elseif (%tr4nstoeng == on) {
    echo  $active $nick $replace($1-,+,t,4,a,3,e,z,s,1,i,0,o,|-|,h,|<,k,@,A,|\/|,M)
    haltdef
  }
}

Like Page Follow Author

Comments

blackvenomm666 - Apr 14, 2011

haha yea thanks for clearin that up for me napa.

Respond

napa182 - Apr 10, 2011

um Conscious blackvenomm666 was testing something an forgot to delete his comments he made while testing. thats all.

Respond

Conscious - Apr 10, 2011

What ARE you doing?

Respond

blackvenomm666 - Apr 09, 2011

such a low score haha

Respond

xdesoto - Feb 28, 2011

All I have to say is > Jethro_ Did you test it to make sure it works with the command character, or you posted just for the hell with it?

Did Jethro_ Just cuss :O

Respond

Conscious - Feb 25, 2011

echo %3 $iif(%transtol33t = on,%1,$iif(%tr4nstoeng = on,%2)) $1- should be echo -t %3 $iif(%transtol33t = on,%1,$iif(%tr4nstoeng = on,%2)) $1-

Respond

Conscious - Feb 25, 2011

That messes up with timestamp settings.

Respond

Jethro - Feb 25, 2011

I removed this because it was for demonstration purposes. :P

Respond

Conscious - Feb 25, 2011

[13:23] Now talking in #roar
[13:23] <@Onions> z1g|-|
[13:23] <@Onions> >.<
[13:23] <@Onions> |<33p1ng 1+ 0n b+w
[13:23] Attempting to rejoin channel #roar
[13:23] Rejoined channel #roar
[13:23] <@Onions> z33?
[13:23] <@Onions> and now with it off..
[13:23] Attempting to rejoin channel #roar
[13:23] * Rejoined channel #roar

Respond

Jethro - Feb 25, 2011

I tested it for you, and it's working that way. Good job.

Respond

Jethro - Feb 25, 2011

Did you test it to make sure it works with the command character, or you posted just for the hell with it?

Respond

Conscious - Feb 25, 2011

Menu Nicklist, {
  .l33t
  ..on: set %l33ttalk on
  ..off: set %l33ttalk off
  .Translation
  ..transtoengon: .set %tr4nstoeng on
  ..transtoengoff: .set %tr4nstoeng off
  ..transtol33ton: .set %transtol33t on
  ..transtol33toff: .set %transtol33t off
}
on *:Input:#: {
  if (%l33ttalk == on) && (($ctrlenter == $true) || (($left($1,1) != /) && ($ctrlenter == $false))) {
    msg $active $replace($1-,t,+,a,4,e,3,s,z,i,1,o,0,H,|-|,K,|<,A,@,M,|\/|) | halt
  }
}
on ^*:TEXT:*:*:{
  if (%transtol33t == on) { 
    echo $active $nick $replace($1-,t,+,a,4,e,3,s,z,i,1,o,0,H,|-|,K,|<,A,@,M,|\/|)
    haltdef
  }
  elseif (%tr4nstoeng == on) {
    echo  $active $nick $replace($1-,+,t,4,a,3,e,z,s,1,i,0,o,|-|,h,|<,k,@,A,|\/|,M)
    haltdef
  }
}
on ^*:ACTION:*:*:{
  if (%transtol33t == on) { 
    echo $active $nick $replace($1-,t,+,a,4,e,3,s,z,i,1,o,0,H,|-|,K,|<,A,@,M,|\/|)
    haltdef
  }
  elseif (%tr4nstoeng == on) {
    echo  $active $nick $replace($1-,+,t,4,a,3,e,z,s,1,i,0,o,|-|,h,|<,k,@,A,|\/|,M)
    haltdef
  }
}

Respond

Conscious - Feb 25, 2011

Also note the function of $ctrlenter - so it would still work with saying /lol and pressing control + enter.

Respond

Jethro - Feb 25, 2011

Why don't you apply that to blackvenomm666 script and see if it works. The only way to find out for yourself is to experience the matter at hand.

Respond

Known - Feb 25, 2011

so even if he did

on *:Input:#: {
if ($left($1,1) != /) && (%l33ttalk == on) { 
dostuffhere

It wouldn't stop anything that has a / in-front of it from working? I've used that before for other things and it seemed to work just fine with me by not replacing anything. O.o

Respond

Jethro - Feb 25, 2011

That won't work because the command character followed by the command name will be interpreted as l33t

Respond

Known - Feb 25, 2011

unless he puts

if ($left($1,1) != /) {

in the input section to make sure that doesn't happen.

Respond

Jethro - Feb 25, 2011

One downside is that if you enter a command via the input event, such as /hop or any other commands, it'll be interfered and you can't trigger a command while the l33t translator is on.

Respond