DECLARE SUB kris SUB kris 'we gaan uit van freq 20 /s STATIC count AS DWORD LOCAL note AS BYTE LOCAL velo AS BYTE INCR count 'voor troms SELECT CASE count CASE <1200 'segment 1 IF RND < 0.05 THEN 'gemiddeld o/d 10 s. note = 24 + INT(RND*9) velo = task(%kris).level Play %Troms_channel, note, velo END IF CASE <2400 'segment 2 CASE <3600 'segment 3 CASE <4800 'segment 4 END SELECT 'voor thunder SELECT CASE count END SELECT END SUB