8)0100001001101001011011100110000101110010011110010010000001010100011010010110110101100101
[0100010001101111011101110110111001101100011011110110000101100100]

011000010110100001101011001000000111001001110101011011000110

010001000110111101101110001001110111010000100000011010000110000101101100011001100010110101100001001010100010101000100000011010010111010000101110001011100010111000100000001110100010110101000100
http://www.thinkgeek...es/lights/59e0/
0100111101110010001011000010000001101001011001100010000001111001011011110111010100100000011100000111001001100101011001100110010101110010
http://www.thinkgeek...s/watches/6a17/


01001000 01100101 01111001 00100000 01110100 01101000 01100101 00100000 01101100 01101001 01101110 01101011 00100000 01101001 01110011 00100000 01100100 01101111 01110111 01101110 00101110 00101110 00101110 00001101 00001010 01001000 01100101 01110010 01100101 00100000 01101001 01110011 00100000 01100001 00100000 01101110 01100101 01110111 00100000 01101111 01101110 01100101 00111010 00001101 00001010

;LAWLERFACE! msgbox press esc to exit`nLAWLERSKATING IN BINARY! +A::SEND 01000001 return +B::SEND 01000010 return +C::SEND 01000011 return +D::SEND 01000100 return +E::SEND 01000101 return +F::SEND 01000110 return +G::SEND 01000111 return +H::SEND 01001000 return +I::SEND 01001001 return +J::SEND 01001010 return +K::SEND 01001011 return +L::SEND 01001100 return +M::SEND 01001101 return +N::SEND 01001110 return +O::SEND 01001111 return +P::SEND 01010000 return +Q::SEND 01010001 return +R::SEND 01010010 return +S::SEND 01010011 return +T::SEND 01010100 return +U::SEND 01010101 return +V::SEND 01010110 return +W::SEND 01010111 return +X::SEND 01011000 return +Y::SEND 01011001 return +Z::SEND 01011010 return a::SEND 01100001 RETURN b::SEND 01100010 RETURN c::SEND 01100011 RETURN d::SEND 01100100 RETURN e::SEND 01100101 RETURN f::SEND 01100110 RETURN g::SEND 01100111 RETURN h::SEND 01101000 RETURN i::SEND 01101001 RETURN j::SEND 01101010 RETURN k::SEND 01101011 RETURN l::SEND 01101100 RETURN m::SEND 01101101 RETURN n::SEND 01101110 RETURN o::SEND 01101111 RETURN p::SEND 01110000 RETURN q::SEND 01110001 RETURN r::SEND 01110010 RETURN s::SEND 01110011 RETURN t::SEND 01110100 RETURN u::SEND 01110101 RETURN v::SEND 01110110 RETURN w::SEND 01110111 RETURN x::SEND 01111000 RETURN y::SEND 01111001 RETURN z::SEND 01111010 esc::exitapp
:shock:

Loop, 26 ; 26 letters { ; lowercase offset is 96 Hotkey, % Chr(A_Index+96), MyLabel ; uppercase offset is 64 (required for MyLabel to work) Hotkey, % "+" Chr(A_Index+64), MyLabel } Return ;----------------- MyLabel: Send, % TxtToBin(SubStr(A_ThisHotkey,0)) Return ;----------------- TxtToBin(txt) { ; http://www.autohotkey.com/forum/viewtopic.php?p=51867#51867 Loop Parse, txt Loop 8 bin := bin (Asc(A_LoopField) >> (8 - A_Index) & 1) Return bin }

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Antonio França -- git.io -- github.com -- ahk4.net -- sites.google.com -- ahkscript.org
Member of the AHK community since 08/Apr/2009. Moderator since mid-2012.
a: gui, destroy SetBatchLines -1 ; here for the complete script setkeydelay 0 ; or -1 for the send speed lower_type0 = {4},13,(,1),3,f,g,|-|,|,j,1<,1,/\/\,|\|,0,p,q,12,5,7,u,\/,\/\/,x,y,2 ; ,... lower_type1 = {a},bong,cong,dong,e,fong,gong,hong,i,jong,kong,long,mong,nong,o,pong,qong,rong,song,tong,u,vong,wong,xong,yong,zong ; ,... lower_type2 = .-,-...,-.-.,-..,.,..-.,--.,....,..,.---,-.-,.-..,--,-.,---,.--.,--.-,.-.,...,-,..-,...-,.--,-..-,-.--,--.. ; ,... lower_type3 = 01100001,01100010,01100011,01100100,01100101,01100110,01100111,01101000,01101001,01101010,01101011,01101100,01101101,01101110,01101111,01110000,01110001,01110010,01110011,01110100,01110101,01110110,01110111,01111000,01111001,01111010 ; ,... lower_type4 = a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z upper_type0 = {4},13,(,1),3,f,g,|-|,|,j,1<,1,/\/\,|\|,0,p,q,12,5,7,u,\/,\/\/,x,y,2 ; ,... upper_type1 = {A},Bong,Cong,Dong,E,Fong,Gong,Hong,I,Jong,Kong,Long,Mong,Nong,O,Pong,Qong,Rong,Song,Tong,U,Vong,Wong,Xong,Yong,Zong ; ,... upper_type2 = .-,-...,-.-.,-..,.,..-.,--.,....,..,.---,-.-,.-..,--,-.,---,.--.,--.-,.-.,...,-,..-,...-,.--,-..-,-.--,--.. ; ,... upper_type3 = 01000001,01000010,01000011,01000100,01000101,01000110,01000111,01001000,01001001,01001010,01001011,01001100,01001101,01001110,01001111,01010000,01010001,01010010,01010011,01010100,01010101,01010110,01010111,01011000,01011001,01011010 ; ,... upper_type4 = A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z stringsplit, lower_t0_, lower_type0, `, stringsplit, lower_t1_, lower_type1, `, stringsplit, lower_t2_, lower_type2, `, stringsplit, lower_t3_, lower_type3, `, stringsplit, lower_t4_, lower_type4, `, stringsplit, upper_t0_, upper_type0, `, stringsplit, upper_t1_, upper_type1, `, stringsplit, upper_t2_, upper_type2, `, stringsplit, upper_t3_, upper_type3, `, stringsplit, upper_t4_, upper_type4, `, var1 = 4 Gui, Color, FF8040 Gui, Font, S8 CGreen, Papyrus Gui, Add, Text, x6 y90 w370 h90 , Welcome to TransxXx that was created by Eedis. Please select your translation language`, press = to temporarily turn the program off to go back to regular typing`, and also use - to return to the previous screen to select a new language. You can also use the edit fields to the right to translate your code the old fashion way. Thank you`, and please enjoy. :) :) Gui, Font, S12 CGreen Bold, Quick Type II Gui, Add, Text, x6 y180 w370 h30 , ___________________________________________________- Gui, Add, Text, x6 y220 w100 h30 , Leet Gui, Add, Text, x6 y270 w100 h30 , Ong Gui, Add, Text, x6 y320 w110 h30 , Morse Code Gui, Add, Text, x6 y370 w100 h30 , Binary Gui, Add, Button, x256 y220 w120 h30 , 1337 Gui, Add, Button, x256 y270 w120 h30 , Ononggong Gui, Add, Button, x256 y320 w120 h30 , .-..---.-..--.. Gui, Add, Button, x256 y370 w120 h30 , 01100101 Gui, Add, Text, x106 y270 w150 h30 , ---------------------------------------------------- Gui, Add, Text, x116 y320 w140 h30 , ---------------------------------------------------- Gui, Add, Text, x106 y370 w150 h30 , ---------------------------------------------------- Gui, Add, Button, x146 y410 w100 h30 , Exit Gui, Font, S8 CGreen, Verdana Gui, Add, Text, x106 y230 w150 h30 , ---------------------------------------------------- Gui, Font, S12 CGreen Bold, Quick Type II Gui, Add, Edit, x385 y19 w310 h150 vCodeHere, Type the sentence here... Gui, Add, Button, x386 y180 w50 h50 , Leet Gui, Add, Button, x446 y180 w70 h50 , Ong Gui, Add, Button, x526 y180 w70 h50 , Morse Code Gui, Add, Button, x606 y180 w80 h50 , Binary Gui, Add, Edit, x386 y240 w310 h190 vResults, Your results are displayed here... Gui, Font, S42 CGreen Bold Strike, curlz mt Gui, Add, Text, x46 y190 w200 h-120 , __________________________________________ Gui, Add, Text, x6 y30 w370 h60 +Center, _________________________________________________ Gui, Add, Text, x26 y10 w330 h70 +Center, Trans-XxX Gui, Show, x446 y109 w710 h448, Trans-xXx Return buttonexit: exitapp button1337: { var1 = 0 gui, hide } return buttonononggong: { var1 = 1 gui, hide } return button.-..---.-..--..: { var1 = 2 gui, hide } return button01100101: { var1 = 3 gui, hide } return ButtonLeet: ButtonOng: ButtonMorseCode: ButtonBinary: Gui, Submit, NoHide If (A_ThisLabel = "ButtonLeet") ILabel := 0 Else If (A_ThisLabel = "ButtonOng") ILabel := 1 Else If (A_ThisLabel = "ButtonMorseCode") ILabel := 2 Else If (A_ThisLabel = "ButtonBinary") ILabel := 3 Else ; Should never happen. Return Results := "" Loop, Parse, CodeHere { IChar := Asc(A_LoopField) If (IChar > 96 And IChar < 123) { ; Lower case. IChar -= 96 Results .= lower_t%ILabel%_%IChar% Continue } If (IChar > 64 And IChar < 91) { ; Upper case. IChar -= 64 Results .= upper_t%ILabel%_%IChar% Continue } Results .= A_LoopField ; Nothing to replace. } Guicontrol, , Results, %Results% ; Update gui. Return $a:: $b:: $c:: $d:: $e:: $f:: $g:: $h:: $i:: $j:: $k:: $l:: $m:: $n:: $o:: $p:: $q:: $r:: $s:: $t:: $u:: $v:: $w:: $x:: $y:: $z:: thiskey := asc(substr(a_thishotkey, 2, 1)) - 96 if var1 = 0 send % lower_t0_%thiskey% if var1 = 1 send % lower_t1_%thiskey% if var1 = 2 send % lower_t2_%thiskey% if var1 = 3 send % lower_t3_%thiskey% if var1 = 4 send % lower_t4_%thiskey% return ; upper case $+a:: $+b:: $+c:: $+d:: $+e:: $+f:: $+g:: $+h:: $+i:: $+j:: $+k:: $+l:: $+m:: $+n:: $+o:: $+p:: $+q:: $+r:: $+s:: $+t:: $+u:: $+v:: $+w:: $+x:: $+y:: $+z:: thiskey := asc(substr(a_thishotkey, 3, 1)) - 96 if var1 = 0 send % upper_t0_%thiskey% if var1 = 1 send % upper_t1_%thiskey% if var1 = 2 send % upper_t2_%thiskey% if var1 = 3 send % upper_t3_%thiskey% if var1 = 4 send % upper_t4_%thiskey% return $space:: if var1 = 0 send {space} if var1 = 1 send {space} if var1 = 2 send / if var1 = 3 send 01000000 if var1 = 4 send {space} return $=::suspend $-:: ; - awakes the script even from suspend suspend suspend off goto a return

I love my wife, my life, my atomic-match; for giving me the greatest gift a man could ask for, such a perfect and beautiful little girl.


..-.---.-./.-.-...-../--.-------../--.-.
tongo congomonge tongo tonghonge aidong
0f 7|-|3|12 (0/\/\/\/\u|\||7y!
1)0|\|3 u5||\|g 331)|5 1|7713 p120g124/\/\!!! .--.--.--/-------/-.-.------.-..!!!
Now that is wild, Eeidis!

:roll:
