Yet another pointless Script! Morse it baby!

[jazo10]

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 fun

expandcollapse 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)
EndFunc

EDIT: Wouldnt it be great if IPB had a spell check?

Edited May 12, 2005 by jazo10

[Insolence]

very cool

[buzz44]

Don't want to poop your party but...

http://www.autoitscript.com/forum/index.ph...wtopic=8136&hl=

Nice job but!

[MSLx Fanboy]

Hum...Is it just me...or is it *.27?

[jazo10]

Hum...Is it just me...or is it *.27?

<{POST_SNAPBACK}>

what the?

lol

[buzz44]

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.