Code:
#comments-start
;~ By: Bartender
;~
;AUTOIT PIANO PLAYER FOR GMOD
;~
;CURRENT SCRIPT::
;~ BASIC - Zelda Dungeon | Nintendo
;~
;~
#comments-end
;~
;VARIABLES
;~
$khs = 0.210
$khsf = 0.180
$done = false
$secondstoPlayPiano = 120000 ;33hours lol
$timer = TimerInit()
$paused = false
;key press
Func _press($key, $value)
$secondsToHoldKey = $value * 1000
$KeyToPress = $key
Send ("{"&$KeyToPress&" DOWN}")
Sleep ($secondsToHoldKey)
Send ("{"&$KeyToPress&" UP}")
EndFunc
;pause
Func TogglePause()
$paused = NOT $paused
While $Paused
sleep(100)
ToolTip('Script is "Paused = SCRIPT IS NOT RUNNING = you wont get another message if you dont unpause it"',0,0)
WEnd
ToolTip("")
EndFunc
;piano controls
Func PlaySlower()
$khs = ($khs + 0.05)
$khsf = ($khsf + 0.05)
EndFunc
Func PlayFaster()
$khs = ($khs - 0.05)
$khsf = ($khsf - 0.05)
EndFunc
Func _Exit()
Exit
EndFunc
HotKeySet( "{TAB}" , "TogglePause")
HotKeySet( "{UP}" , "PlayFaster")
HotKeySet( "{DOWN}" , "PlaySlower")
HotKeySet( "{ESC}" , "_Exit")
If ProcessExists("HL2.exe") Then
While $done = false
If TimerDiff($timer) > ($secondstoPlayPiano*1000) Then $done = true
Sleep (5)
_press ("g",$khs)
Sleep (5)
_press ("u",$khsf)
Sleep (5)
_press ("l",$khs)
Sleep (5)
_press ("p",$khs) ;
Sleep (5)
_press ("g",$khsf)
Sleep (5)
_press ("u",$khs)
Sleep (5)
_press ("l",$khs)
Sleep (5)
_press ("p",$khs) ;
Sleep (5)
_press ("g",$khsf)
Sleep (5)
_press ("u",$khsf)
Sleep (5)
_press ("l",$khsf)
Sleep (5)
_press ("p",$khsf) ;
Sleep (5)
_press ("g",$khsf)
Sleep (5)
_press ("u",$khsf)
Sleep (5)
_press ("l",$khsf)
Sleep (5)
_press ("p",$khsf) ;
Sleep (5)
_press ("f",$khs)
Sleep (5)
_press ("y",$khsf)
Sleep (5)
_press ("l",$khs)
Sleep (5)
_press ("p",$khs) ;
Sleep (5)
_press ("f",$khsf)
Sleep (5)
_press ("y",$khs)
Sleep (5)
_press ("l",$khsf)
Sleep (5)
_press ("p",$khs) ;
Sleep (5)
_press ("f",$khs)
Sleep (5)
_press ("y",$khsf)
Sleep (5)
_press ("l",$khs)
Sleep (5)
_press ("p",$khs) ;
Sleep (5)
_press ("f",$khsf)
Sleep (5)
_press ("y",$khs)
Sleep (5)
_press ("l",$khsf)
Sleep (5)
_press ("p",$khs) ;
Sleep (5)
_press ("d",$khs)
Sleep (5)
_press ("g",$khsf)
Sleep (5)
_press ("l",$khs)
Sleep (5)
_press ("p",$khs) ;
Sleep (5)
_press ("d",$khsf)
Sleep (5)
_press ("g",$khs)
Sleep (5)
_press ("l",$khsf)
Sleep (5)
_press ("p",$khs) ;
Sleep (5)
_press ("d",$khs)
Sleep (5)
_press ("g",$khsf)
Sleep (5)
_press ("l",$khs)
Sleep (5)
_press ("p",$khs) ;
Sleep (5)
_press ("d",$khsf)
Sleep (5)
_press ("g",$khs)
Sleep (5)
_press ("l",$khsf)
Sleep (5)
_press ("p",$khs) ;
Sleep (5)
_press ("e",$khs)
Sleep (5)
_press ("g",$khsf)
Sleep (5)
_press ("k",$khs)
Sleep (5)
_press ("l",$khs) ;
Sleep (5)
_press ("e",$khsf)
Sleep (5)
_press ("g",$khs)
Sleep (5)
_press ("k",$khsf)
Sleep (5)
_press ("l",$khs) ;
Sleep (5)
_press ("e",$khs)
Sleep (5)
_press ("g",$khsf)
Sleep (5)
_press ("k",$khs)
Sleep (5)
_press ("l",$khs) ;
Sleep (5)
_press ("e",$khsf)
Sleep (5)
_press ("g",$khs)
Sleep (5)
_press ("k",$khsf)
Sleep (5)
_press ("l",$khs) ;
Sleep (5)
_press ("s",$khs)
Sleep (5)
_press ("g",$khsf)
Sleep (5)
_press ("k",$khs)
Sleep (5)
_press ("l",$khs) ;
Sleep (5)
_press ("s",$khsf)
Sleep (5)
_press ("g",$khs)
Sleep (5)
_press ("k",$khsf)
Sleep (5)
_press ("l",$khs) ;
Sleep (5)
_press ("s",$khs)
Sleep (5)
_press ("g",$khsf)
Sleep (5)
_press ("k",$khs)
Sleep (5)
_press ("l",$khs) ;
Sleep (5)
_press ("s",$khsf)
Sleep (5)
_press ("g",$khs)
Sleep (5)
_press ("k",$khsf)
Sleep (5)
_press ("l",$khs) ;
Sleep (5)
WEnd
Msgbox(0,"","$x is no longer equal to 0!")
Else
Exit
EndIf