Computer Science Canada

listnen to this song
Author:  Misha [ Fri Oct 01, 2004 7:25 pm ]
Post subject:  listnen to this song
code:

% The best song ever (jks)
%sept 28 2004

play ("4 p 8 eg+f+bg+ 6 f+e")
play ("8 f+bg+ > 6 c+ < e 8 d+ 6 bd+ 8 c+a+")
play ("4 b 8 eg+f+bg+ 6 f+e")
play ("8 f+bg+ > 6 c+ < e 8 d+ 6 bd+ 8 c+a+")
play ("4 b 8 b > 6 e < b > 8 c+ < b 6 g+b > e < b")
play (" > 8 c+ < b 6 g+b > ed+d+c+c+ < bbag+ab")
play ("4 f+ 8 bef+e 6 bg+f+e")
play ("f+d+ 8 eb 6 ef+d+ag+f+ 8 g+ 6 f+e")
play ("4 e p")
loop
exit when playdone
end loop
Author:  Paul [ Fri Oct 01, 2004 7:35 pm ]
Post subject: 
Oh, sounds good. Is it emulating anything or did you just make it up? Razz
Author:  DanShadow [ Fri Oct 01, 2004 9:18 pm ]
Post subject: 
lol, I thought I might as well post my "music" i made like a year ago. Its supposed to be like for old style 2D pixel games. If anybodys played those, this may bring back memories, lol.
code:

var cnt, maxhp : int := 30
var musik : string := "normal"

proc music
    if musik = "normal" then
        play ("zxervwanaIvhaeexsihtwmandrdnigihaz")
    elsif musik = "fight" then
        play ("6cpc+6cpc+6cpc+6cpc+6cpc+6cpc+")
    elsif musik = "cemetery" then
        play (">2fdjsqew<eijlkufjzlkaztrzeijlf")
    end if
end music

loop
    locate (1, 1)
    put "Counter: ", cnt, "/", 30
    put "Music In Condition: ", musik
    music
    cnt := cnt - 1
    if cnt = 25 then
        musik := "fight"
    elsif cnt < 20 then
        musik := "cemetery"
    end if
end loop

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy