• Welcome to Dark Bit Factory & Gravity.
 

C64 SID Music to MID Music CONVERT Files?

Started by Hotshot, September 06, 2006

Previous topic - Next topic

0 Members and 0 Guests are viewing this topic.

Hotshot

Hey all,

I am trying find the software that convert the SID music files to Mid music files. I do have Draconus.sid music files but it need to convert to Mid music files, so that Blitzbasic can play them.

The Draconus demo is finished but there is one questions, How do I pause the Draconus letters about 10 seconds showing Draconus letters then spin around again........I think I could used TIMER to pause that then spin around.

Correct?

:cheers:

Shockwave

You should use timer to make sure that it runs the same on all PCs, yes. :)
Shockwave ^ Codigos
Challenge Trophies Won:

Hotshot

yeah I have done the timer for 60 Frames per seconds but what I dont know how to do is pause the screen...

here the code.


While Not KeyDown(1)

      beta=beta+1
      While beta>360
          beta=beta-360
      Wend

      Cls
      oldTime=MilliSecs()

      DrawImage bk,0,0
      UpdateFlakes()
      For i=0 To 7;
          gamma=i*20+beta

          z=128*Sin(gamma)+160
          x=3*Cos(gamma)+165

          DrawImage Words3,100+z ,-50+x,i
          DrawImage Words ,100+z ,25+x ,i
          DrawImage Words2,100+z ,100+x,i

          ; To Pause the Draconus Fonts
          If oldTime + 10000  ; it will like 10 seconds pausing the screen but it doesnt...Why?
             oldTime=0
          EndIf
      Next
      Flip
      WaitTimer(frameTimer)
Wend



:cheers:

Clyde

#3
In this line:

Ã,  Ã,  Ã,  Ã,  Ã,  ; To Pause the Draconus Fonts
Ã,  Ã,  Ã,  Ã,  Ã,  If oldTime + 10000Ã,  ; it will like 10 seconds pausing the screen but it doesnt...Why?
Ã,  Ã,  Ã,  Ã,  Ã,  Ã,  Ã, oldTime=0
Ã,  Ã,  Ã,  Ã,  Ã,  EndIf


Try this:

          ; To Update stuff.
Ã,  Ã,  Ã,  Ã,  Ã,  If (oldTime + 10000) <=Millisecs() ; because you need to compare with the current running time in milliseconds "Millisecs()"
Ã,  Ã,  Ã,  Ã,  Ã,  Ã,  Ã, oldTime=Millisecs()
Ã,  Ã,  Ã,  Ã,  Ã,  Ã,  Ã, ;Perform actions
Ã,  Ã,  Ã,  Ã,  Ã,  EndIf


Also move the oldtime=millisecs to above the While Not KeyDown(1)
Still Putting The IT Into Gravy
If Only I Knew Then What I Know Now.


Challenge Trophies Won:

Shockwave

Shockwave ^ Codigos
Challenge Trophies Won: