XProfan

English

Jörg
Sellmeyer

after I understands have, that the whole Control not horizontal, separate Mouse and Sprite functions, was is not any more so heavy:
there it under older Profanversionen well not runs, have so did i The exe-File appended.

Compile Mark Separation

Proc PlayBassDrum

    Parameters Rhythmus&,bit%
    Case TestBit(Rhythmus&,bit%):play 0;0;0;36,0,0

ENDPROC

Proc PlaySnareDrum

    Parameters Rhythmus&,bit%
    Case TestBit(Rhythmus&,bit%):play 0;0;0;41,0,0

ENDPROC

Proc PlayHiHat

    Parameters Rhythmus&,bit%
    Case TestBit(Rhythmus&,bit%):play 0;0;0;43,0,0

ENDPROC

Window Title "Little Drummer"
Cls
Randomize
Declare Puls%
Puls% = 16
here comes now one plainer skirt-rhythm with leichtem Shuffle-Feeling and eingestreuten casually HiHat-Variationen
Print "HiHat 1010101010101010"
Print "Snare 1010101010101010"
Print "Bass  1010101010101010"

While 1

    WhileLoop Puls%

        Locate 5,&Loop + 5
        Print " |"
        PlayHiHat(Val("%0" + Str $(Rnd(2)) + "00000" + Str $(Rnd(2)) + "00000" + Str $(Rnd(2)) + "00"),Puls% - &Loop)
        little chance reinbringen
        PlayHiHat((%1010101010101010),Puls% - &Loop)
        PlaySnareDrum(%0000100000001000,Puls% - &Loop)
        PlayBassDrum(%1000000010100000,Puls% - &Loop)
        Sleep 120 + Rnd(6) - 10
        little Human-Touch

        Select (&Loop Mod 4)

            little Shuffle-Feeling reinbringen

            CaseOf 2

            Sleep 60
            Sleep 120 + Rnd(20) - 10 little Human-Touch
            OtherWise
            Sleep 120 + Rnd(20) - 10

        EndSelect

    Wend

    Locate 5,Puls% + 5
    Print "  "

Wend