Sign in to follow this  
Followers 0
jazo10

Yet another pointless Script! Morse it baby!

6 posts in this topic

#1 ·  Posted (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 fun

;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 by jazo10

Share this post


Link to post
Share on other sites



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.

Share this post


Link to post
Share on other sites

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


Writing AutoIt scripts since
_DateAdd("d", -2, _NowCalcDate())

Share this post


Link to post
Share on other sites

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

<{POST_SNAPBACK}>

what the?

lol

Share this post


Link to post
Share on other sites

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.


[u]Old Projects:[/u]A3MORGB2Hex[u]Old Functions:[/u]_TimeAdd/_TimeSub_AddComma_BubbleSort _RippleSort "He who does not understand your silence will probably not understand your words." - Elbert Hubbard.

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0