Jump to content



Photo

Musical Melodies


  • Please log in to reply
5 replies to this topic

#1 Mast3rpyr0

Mast3rpyr0

    Universalist

  • Active Members
  • PipPipPipPipPipPip
  • 419 posts

Posted 02 August 2007 - 08:49 AM

Midi FTW?

Mary Had A Little Lamb
Plain Text         
Beep(500, 400) Beep(450, 400) Beep(400, 400) Beep(450, 400) Beep(500, 400) Beep(500, 400) Beep(500, 800) Beep(450, 400) Beep(450, 400) Beep(450, 800) Beep(500, 400) Beep(600, 400) Beep(600, 800) Beep(500, 400) Beep(450, 400) Beep(400, 400) Beep(450, 400) Beep(500, 400) Beep(500, 400) Beep(500, 400) Beep(500, 400) Beep(450, 400) Beep(450, 400) Beep(500, 400) Beep(450, 400) Beep(400, 400)


More Soon!







#2 gseller

gseller

    Universalist

  • Active Members
  • PipPipPipPipPipPip
  • 1,057 posts

Posted 02 August 2007 - 04:25 PM

Cute!!

#3 Gif

Gif

    Laikon Kafekoption

  • Active Members
  • PipPipPipPipPipPip
  • 1,117 posts

Posted 02 August 2007 - 04:34 PM

Midi FTW?

Mary Had A Little Lamb

Plain Text         
Beep(500, 400) Beep(450, 400) Beep(400, 400) Beep(450, 400) Beep(500, 400) Beep(500, 400) Beep(500, 800) Beep(450, 400) Beep(450, 400) Beep(450, 800) Beep(500, 400) Beep(600, 400) Beep(600, 800) Beep(500, 400) Beep(450, 400) Beep(400, 400) Beep(450, 400) Beep(500, 400) Beep(500, 400) Beep(500, 400) Beep(500, 400) Beep(450, 400) Beep(450, 400) Beep(500, 400) Beep(450, 400) Beep(400, 400)


More Soon!


:) thats great !!!

#4 Toady

Toady

    Easy there turbo...

  • Active Members
  • PipPipPipPipPipPip
  • 698 posts

Posted 02 August 2007 - 05:30 PM

This is amazing! Keep up the good work!
www.itoady.com (Go here to download the MacroGamer installer)

#5 Gif

Gif

    Laikon Kafekoption

  • Active Members
  • PipPipPipPipPipPip
  • 1,117 posts

Posted 02 August 2007 - 06:26 PM

http://www.autoitscript.com/forum/index.ph...st&p=214778


:) Thats even better, i like the coldplay ringtone, very .. realistic

#6 crashdemons

crashdemons

    What Avatar?

  • Active Members
  • PipPipPipPipPipPip
  • 495 posts

Posted 10 December 2007 - 02:50 PM

I use my own formats for Beeps so that I can have a readable format and smaller File format
Readable "PCSA layout" Hz:Ms,Hz:Ms (eg:300:1000,400:500)

The file format actually uses the GIF-Dimension method of saving values, making each note 4 bytes long (tone 2 bytes, time 2 bytes)
Dont worry about the extra unused variables, they are partly from an old player script I had, which has been remodeled
(I have a PCSA Player and PCSA Keyboard that I will post in a separate thread soon)


AutoIt         
Func _PCSNotesToRaw($notes,$isstring=1) ;Converts PCSA layouts to File format     If $isstring=1 Then $notes=StringSplit($notes,',')     $u=UBound($notes)-1     $rawbuff=''     For $i=1 To $u         $notesa=StringSplit($notes[$i],':')         If (UBound($notesa)-1)<2 Then ContinueLoop         $notesb=_DimToGIFDim($notesa[1])         $length=_DimToGIFDim($notesa[2])         $rawbuff&=Chr($notesb[0])&Chr($notesb[1])&Chr($length[0])&Chr($length[1])     Next     Return $rawbuff EndFunc Func _PCSPlayRaw($raw=-1,$speed=1) ;Plays File-Form PCSA data         ;  37 through 32,767     ; (0x25 through 0x7FFF).     Global $_PCSLoad     ;Global $_PCSTLenL, $PCSTPosS, $_PCSTPosL     Global $_PCSPosition     Global $_PCSPlaying     If $raw=-1 Then $raw=$_PCSLoad     $_PCSLoad=$raw     Dim $speed     $e=StringLen($raw)     $len=_PCSGetLen($raw,1,$speed)     ;GUICtrlSetData($_PCSTLenL,"Track Length: "&$len&"ms")     ;_GUICtrlSlider_SetRange($PCSTPosS,0,$e)     $_PCSPlaying=1     ;ConsoleWrite(@CRLF&"PCS Playing Raw..."&@CRLF)     $_PCSPosition=0     For $i=1 To $e Step 4         If $_PCSPlaying=0 Then ExitLoop         $note=_GIFDimToDim(Asc(StringMid($raw,$i  ,1)),Asc(StringMid($raw,$i+1,1)))         $leng=_GIFDimToDim(Asc(StringMid($raw,$i+2,1)),Asc(StringMid($raw,$i+3,1)))     ;   ConsoleWrite($note&',')         If $note<37 Or $note>32767 Then             Sleep($leng*$speed)         Else             ;Sleep($speed)             Beep($note,$leng*$speed)         EndIf         ;If $_PCSPosition>0 Then         ;   $i=$_PCSPosition         ;   $_PCSPosition=0         ;EndIf         ;GUICtrlSetData($_PCSTPosL,Floor(($i/2)*$speed)&"ms")         ;_GUICtrlSlider_SetPos($PCSTPosS, $i)     Next EndFunc Func _CountSets($i,$ii)     ;counts the sets of $ii in $i and the remainder     ;$ii should be smaller than $i     Local $r[2]     $r[0]=0     $r[1]=0     If $ii>$i Then         $r[1]=$i         Return $r     EndIf     If $ii=$i Then         $r[0]=1         $r[1]=0         Return $r     EndIf     $r[0]=Int($i/$ii)     $r[1]=$i-($r[0]*$ii)     Return $r EndFunc Func _GIFDimToDim($x,$xe)     Return $x+($xe*256) EndFunc Func _DimToGIFDim($x)     $o=_CountSets($x,256)     $xx=$o[1]     $xe=$o[0]     $o[0]=$xx     $o[1]=$xe     Return $o EndFunc

Posted ImageMy Projects -WindowDarkenPosted Image (Darken except the active window)Yahsmosis Chat Client (Discontinued)StarShooter GamePosted Image (Red alert! All hands to battlestations!)YMSG Protocol Support (Discontinued)Circular Keyboard and OSK example. (aka Iris KB)Target ScreensaverDrive Toolbar ThingyRollup ProPosted Image (Minimize-to-Titlebar & More!)2D Launcher physics exampleAscii ScreenshotAutoIt3 Quine Example ("Is a Quine" is a Quine.)USB Lock (Another system keydrive - with a toast.)




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users