It translates Leet to normal talking and normal talking to Leet and it's so simple.
enjoy :)
;=========Leet Encoder/Decoder=========
;=========By StaticX=========
;=========Type /leet to open the translator=========
;=========Have Fun :)=========
dialog leetd {
title "Leet"
size -1 -1 263 190
option pixels
edit "", 1, 17 18 224 20, autohs
edit "", 2, 17 38 224 20, autohs read
edit "", 3, 17 112 224 20, autohs
edit "", 4, 17 132 224 20, autohs read
box "Leet Decode", 5, 9 95 238 72
box "Leet Encode", 6, 10 1 238 72
}
on *:DIALOG:leetd:edit:*:{
if ($did == 1) {
.did -ra leetd 2 $replace($did(1).text,a,4,e,3,i,1,t,7,o,0,s,5)
}
if ($did == 3) {
.did -ra leetd 4 $replace($did(3).text,4,a,3,e,1,i,7,t,0,o,5,s)
}
}
alias leet { dialog -m leetd leetd }
Could actually have (to do a napa here :D)
dialog leetd {
title \"Leet\"
size -1 -1 263 190
option pixels
edit \"\", 1, 17 18 224 20, autohs
edit \"\", 2, 17 38 224 20, center autohs read
edit \"\", 3, 17 112 224 20, autohs
edit \"\", 4, 17 132 224 20, center autohs read
box \"Leet Decode\", 5, 9 95 238 72
box \"Leet Encode\", 6, 10 1 238 72
}
on *:DIALOG:leetd:edit:*:{
did -ra leetd $iif($did == 1,2,4) $iif($did == 1,$replace($did(1).text,a,4,e,3,l,1,t,7,o,0,s,5),$replace($did(3).text,4,a,3,e,1,l,7,t,0,o,5,s))
}
alias leet { dialog -m leetd leetd }
Doesn\'t work .. this does though ..
dialog leetd {
title \"Leet\"
size -1 -1 263 190
option pixels
edit \"\", 1, 17 18 224 20, autohs
edit \"\", 2, 17 38 224 20, center autohs read
edit \"\", 3, 17 112 224 20, autohs
edit \"\", 4, 17 132 224 20, center autohs read
box \"Leet Decode\", 5, 9 95 238 72
box \"Leet Encode\", 6, 10 1 238 72
}
on *:DIALOG:leetd:edit:*:{
if ($did == 1) {
did -ra leetd 2 $replace($did(1).text,a,4,e,3,l,1,t,7,o,0,s,5)
}
if ($did == 3) {
did -ra leetd 4 $replace($did(3).text,4,a,3,e,1,l,7,t,0,o,5,s)
}
}
alias leet { dialog -m leetd leetd }