Jump to content

Yet another pointless Script! Morse it baby!


jazo10
 Share

Recommended Posts

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
Link to comment
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.
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...