Dark Age Games

Metronome Posted by: Tidus 13:24:12 08-22-2004

could any of you with midis check to see if this works please?


#setimagetransparent(slider.png,0,0,128,16,255,255,255)
#savescreen()
#x!=6
#wait()
#done!=0
#while(done!=0)
{
#for(x!=6;x!<115;x!=x!+0.25)
{
#restorescreen()
#setimagetransparent(pin.png,x!,0,8,16,255,255,255)
#get(a$)
#if(a$~="")
{
#if(x!<55)
{
#bordercolor(255,0,0)
#delay(0.1)
#bordercolor(0,0,0)
}
#if(x!>55)
{
#if(x!<68)
{
#playnote()
#combo$=combo$+a$
}
}
#if(x!>68)
{
#bordercolor(255,0,0)
#delay(0.1)
#bordercolor(0,0,0)
}
}
}
#delay(0.1)
#for(x!=115;x!>6;x!=x!-0.25)
{
#restorescreen()
#setimagetransparent(pin.png,x!,0,8,16,255,255,255)
#get(a$)
#if(a$~="")
{
#if(x!<55)
{
#bordercolor(255,0,0)
#delay(0.1)
#bordercolor(0,0,0)
}
#if(x!>55)
{
#if(x!<68)
{
#playnote()
#combo$=combo$+a$
}
}
#if(x!>68)
{
#bordercolor(255,0,0)
#delay(0.1)
#bordercolor(0,0,0)
}
}
#if(combo$~="")
{
#done!=1
}
}
#delay(0.1)
}

#method playnote()
{
#if(a$~=A)
{
#if(a$~=S)
{
#if(a$~=D)
{
#if(a$~=F)
{
#end
}
}
}
}
#if(a$=A)
{
#midirest()
#midiplay(putsomethinghere$)
}
#if(a$=S)
{
#midirest()
#midiplay(putsomethinghere$)
}
#if(a$=D)
{
#midirest()
#midiplay(putsomethinghere$)
}
#if(a$=F)
{
#midirest()
#midiplay(putsomethinghere$)
}
}


I just want to know if it actually plays the notes ;o

Me>You Edit Post

• Hmmm... -- Xorlak 11:10:05 08-23-2004
• Use MP3Pause() with .wav files -nt -- Colin 16:33:38 08-22-2004
• Hmm... -- William 15:31:58 08-22-2004
  • I tested it, and it works fine -more- -- Tidus 20:49:09 08-22-2004
    • Yes but (more) -- Rueben 08:36:55 08-23-2004
      • :) -more_ -- Tidus 13:26:21 08-23-2004
        • The notes -- spitfire 17:39:03 08-23-2004
          • Thanks -- Tidus 21:03:37 08-23-2004
            • Hmmm... -- Xorlak 11:46:40 08-24-2004
              • Last problem, heh... -- Tidus 19:03:24 08-24-2004
                • Here -- Colin 20:46:30 08-24-2004
                  • I had it indented....(more) -- Tidus 21:09:01 08-24-2004
                    • Hmmm... -- Xorlak 12:00:58 08-25-2004
                      • Genius, welp Its finally flawless ;o -nt- -- Tidus 17:58:58 08-25-2004
            • Every Good Boy Deserves Fudge -nt -- Colin 22:51:46 08-23-2004