AutoHotkey Homepage AutoHotkey Community
Let's help each other out
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Typing made fun: (song typing)

 
Post new topic   Reply to topic    AutoHotkey Community Forum Index -> Scripts & Functions
View previous topic :: View next topic  
Author Message
CraSH23000



Joined: 22 Jun 2007
Posts: 38
PostPosted: Sat Apr 05, 2008 2:50 am    Post subject: Typing made fun: (song typing) Reply with quote
I made a script for fun because I was bored. The higher the letter is the higher the frequency it beeps and typing is still functional. Its kind of interesting.

Code:

; AutoHotkey Version: 1.x
; Language:       English
; Platform:       Win9x/NT
; Author:         CraSH23000
;
; Script Function:
;   Template script (you can customize this template by editing
;"ShellNew\Template.ahk" in your Windows folder)
;

#NoEnv
SendMode Input 
SetWorkingDir %A_ScriptDir%


original :=        "abcdefghijklmnopqrstuvwxyz0123456789.,/[]\;!@#$%^&*()<>?{}|:"
original_capped := "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Loop % StrLen(original)
{
  c1 := SubStr(original, A_Index, 1)
  Hotkey ~%c1%, DoHotkey

  c2 := SubStr(original, A_Index, 1)
  Hotkey ~+%c2%, DoHotkey_capped

}

return


DoHotkey:
   
   StringRight ThisKey, A_ThisHotkey, 1

   i2 := InStr(original, ThisKey)

   ;msgbox: i2 is %i2%

   i3 := (i2*100)

   SoundBeep, %i3%,100

return

DoHotkey_capped:
   
   StringRight ThisKey, A_ThisHotkey, 1

   i2 := InStr(original_capped, ThisKey)

   ;msgbox: i2 is %i2%

   i3 := (i2*50)

   SoundBeep, %i3%,100

return


~Space::SoundBeep, 37,100

~BackSpace::SoundBeep, 5000,100
~tab::SoundBeep, 8000,100



_________________
What is real in our infinitely alternating perception of reality?
Back to top
View user's profile Send private message
Purloinedheart"
Guest
PostPosted: Tue Apr 08, 2008 1:05 am    Post subject: Reply with quote
This is a great script, typing seems really dull without it!
Back to top
imapow



Joined: 13 Mar 2008
Posts: 162
Location: Trøndelag, Norway
PostPosted: Tue Apr 08, 2008 10:55 am    Post subject: Reply with quote
how fun.
instoled it on my brothers pc, drove him crasy Twisted Evil
_________________
-._.-¨¯¨-._.-IM@PΩW-._.-¨¯¨-._.-
Back to top
View user's profile Send private message
happytodd



Joined: 12 Nov 2007
Posts: 81
Location: South Australia
PostPosted: Wed Apr 09, 2008 11:37 am    Post subject: Nice Reply with quote
I love it rofl, Imma modify it a little to make it work on certain keys Wink nicely done
_________________
Back to top
View user's profile Send private message Visit poster's website
imapow



Joined: 13 Mar 2008
Posts: 162
Location: Trøndelag, Norway
PostPosted: Wed Apr 09, 2008 7:39 pm    Post subject: Reply with quote
how about the norwegian letters: "æ" "ø" and "å"
_________________
-._.-¨¯¨-._.-IM@PΩW-._.-¨¯¨-._.-
Back to top
View user's profile Send private message
ProfessorY91



Joined: 03 Mar 2008
Posts: 8
Location: Inside your mind.
PostPosted: Wed Apr 09, 2008 9:40 pm    Post subject: Reply with quote
Oh holy lord this could be so perfect for a prank!!!!!!!!!!!!

Bless you!
_________________
If you dont follow your instincts then your instincts will follow you.

www.alamalhaloteam.webs.com
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    AutoHotkey Community Forum Index -> Scripts & Functions All times are GMT
Page 1 of 1

 
Jump to:  
You can post new topics in this forum
You can reply to topics in this forum


Powered by phpBB © 2001, 2005 phpBB Group