jazo10 Posted May 12, 2005 Share Posted May 12, 2005 (edited) well after the great success of my pointless keylogger...I had to make another pointless script!!Forget talk-it! Forget windows dictator!Here is the ultimate in Text to sound Conversions!The Morse Code Generator!LoL. have funexpandcollapse popup;Name: Morse it! ;Author: Jazo! <jazo10@gmail.com> ;Date|Time: 12/5/05 3:10 PM ;Dev Tool: AutoIt v3.1.0 ;Requirements: Kernel32.dll ;Description: This program will take a text input and transfer it into morse beeps! $beep=DllOpen("kernel32.dll") $input=inputbox("Morse-coder","please enter your code","morse it baby!"," M",100,100) $input=stringreplace($input,".","period") $input=stringreplace($input,"-","hyphen") $input=stringreplace($input,"hyphen","-....-") $input=stringreplace($input,"period",".-.-.-") $input=stringreplace($input,"a",".-") $input=stringreplace($input,"b","-...") $input=stringreplace($input,"c","-.-.") $input=stringreplace($input,"d","-..") $input=stringreplace($input,"e",".") $input=stringreplace($input,"f","..-.") $input=stringreplace($input,"g","--.") $input=stringreplace($input,"h","....") $input=stringreplace($input,"i","..") $input=stringreplace($input,"j",".---") $input=stringreplace($input,"k","-.-") $input=stringreplace($input,"l",".-..") $input=stringreplace($input,"m","--") $input=stringreplace($input,"n","-.") $input=stringreplace($input,"o","---") $input=stringreplace($input,"p",".--.") $input=stringreplace($input,"q","--.-") $input=stringreplace($input,"r",".-.") $input=stringreplace($input,"s","...") $input=stringreplace($input,"t","-") $input=stringreplace($input,"u","..-") $input=stringreplace($input,"v","...-") $input=stringreplace($input,"w",".--") $input=stringreplace($input,"x","-..-") $input=stringreplace($input,"y","-.--") $input=stringreplace($input,"z","--..") $input=stringreplace($input,"0","-----") $input=stringreplace($input,"1",".----") $input=stringreplace($input,"2","..---") $input=stringreplace($input,"3","...--") $input=stringreplace($input,"4","....-") $input=stringreplace($input,"5",".....") $input=stringreplace($input,"6","-....") $input=stringreplace($input,"7","--...") $input=stringreplace($input,"8","---..") $input=stringreplace($input,"9","----.") $code=$input for $nchar=1 to StringLen ($code) step 1 $char=stringLeft($code, 1) Select case $char="." _beep(400,50) sleep(100) case $char="-" _beep(400,200) sleep(100) case $char=" " sleep(600) EndSelect $code=StringTrimLeft($code, 1) Next func _beep($p,$t) DllCall($beep, "int", "Beep", "long", $p, "long", $t) EndFuncEDIT: Wouldnt it be great if IPB had a spell check? Edited May 12, 2005 by jazo10 Link to comment Share on other sites More sharing options...
Insolence Posted May 12, 2005 Share Posted May 12, 2005 very cool "I thoroughly disapprove of duels. If a man should challenge me, I would take him kindly and forgivingly by the hand and lead him to a quiet place and kill him." - Mark TwainPatient: "It hurts when I do $var_"Doctor: "Don't do $var_" - Lar. Link to comment Share on other sites More sharing options...
buzz44 Posted May 12, 2005 Share Posted May 12, 2005 Don't want to poop your party but...http://www.autoitscript.com/forum/index.ph...wtopic=8136&hl=Nice job but! qq Link to comment Share on other sites More sharing options...
MSLx Fanboy Posted May 12, 2005 Share Posted May 12, 2005 Hum...Is it just me...or is it *.27? Writing AutoIt scripts since _DateAdd("d", -2, _NowCalcDate()) Link to comment Share on other sites More sharing options...
jazo10 Posted May 18, 2005 Author Share Posted May 18, 2005 Hum...Is it just me...or is it *.27? <{POST_SNAPBACK}> what the?lol Link to comment Share on other sites More sharing options...
buzz44 Posted May 18, 2005 Share Posted May 18, 2005 I think he means AutoIt v3.1.1.27 and most probably not. Its probably because you don't have a speaker on your mother board. qq Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now