Dark Bit Factory & Gravity

GENERAL => General chat => Topic started by: Hotshot on September 06, 2006

Title: C64 SID Music to MID Music CONVERT Files?
Post by: Hotshot on September 06, 2006
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:
Title: Re: C64 SID Music to MID Music CONVERT Files?
Post by: Shockwave on September 07, 2006
You should use timer to make sure that it runs the same on all PCs, yes. :)
Title: Re: C64 SID Music to MID Music CONVERT Files?
Post by: Hotshot on September 08, 2006
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:
Title: Re: C64 SID Music to MID Music CONVERT Files?
Post by: Clyde on September 08, 2006
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)
Title: Re: C64 SID Music to MID Music CONVERT Files?
Post by: Shockwave on September 09, 2006
Nice one Clyde :)