home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Devil's Doorknob BBS Capture (1996-2003)
/
devilsdoorknobbbscapture1996-2003.iso
/
Dloads
/
PROGRAMM
/
LADYBUG.ZIP
/
SOUNDS.BUG
< prev
next >
Wrap
Text File
|
1984-01-18
|
2KB
|
85 lines
make "description [Examples of the PLAY statement]
to "ship1
play "'L64 T255'
repeat 10 [PLAY "'N40 N42 N44 N46 N48 N50 N48 N46 N44 N42 N40']
end
to "ship2
play "'L64 T255'
repeat 10 [play "'N50 N52 N54 N56 N58 N60 N58 N56 N54 N52 N50']
end
to "ship3
play "'L64 T255'
repeat 10 [play "'N50 N60 N51 N61 N52 N62 N53 N63 N54 N64 N55 N65 N56 N66']
end
to "clicks
play "'L64 MB MS T255'
repeat 40 [play "'N1 P64 N2 P64']
end
to "clock :tics
play "'L50 MB MS T255'
repeat :tics [play "'N1 P1 N2 P1']
end
to "bird1
play "'L64 MB ML T255 O4'
play "'N64 N66 N68 N70 P64'
play "'N66 N68 N70 N72 N74 N76 N78 P64'
play "'N66 N68 N70 N72 P64'
play "'N64 N66 N68 N70 P64'
play "'N70 N72 N74 N76 N78 N80 P64'
play "'N66 N68 N70 N72 P64'
play "'N70 N72 N74 N76 N78 N80 P64'
play "'N66 N68 N70 N72 P64'
end
to "bird2
play "'L64 MB ML T255 O4'
play "'N64 N66 N68 N70 P64'
play "'N66 N68 N70 N72 N74 N76 N78 P64'
play "'N64 N66 N68 N70 P64'
play "'N70 N72 N74 N76 N78 N80 P64'
play "'N64 N66 N68 N70 P64'
play "'N66 N68 N70 N72 N74 N76 N78 P64'
play "'N64 N66 N68 N70 P64'
play "'N70 N72 N74 N76 N78 N80 P64'
play "'N66 N70 N66 N70 N66 N70 N74 N74'
play "'N66 N70 N66 N70 N66 N70 N74 N74'
play "'N66 N70 N66 N70 N66 N70 N74 N74'
play "'N66 N70 N66 N70 N66 N70 N74 N74'
end
to "bird3
play "'L50 MB ML T255 O5'
play "'f#g f#g P64 f#g f#g P64 '
play "'f#g f#g P64 f#g f#g P64 '
play "'aa#b a# aa#b a#a'
play "'P32 bbbbbb P64'
play "'f#g P64 f#g P64 f#g P64 f#g P64 f#g'
end
to "bird4
play "'L64 MB ML T255 O4'
play "'g+g+a g+g+a g+g+a g+g+a'
play "'g+g+a g+g+a g+g+a g+g+a P32'
play "'b-b-b b-b-b b-b-b'
play "'b-b-b b-b-b b-b-b P32'
play "'a+a+a a+a a+ aa a- g+ g+g g-g'
play "'f+f+ ff f+ ff f+ f P64'
end
to "birds
make "which integer random * 4
print :which
if :which = 0 then bird1
if :which = 1 then bird2
if :which = 2 then bird3
if :which = 3 then bird4
repeat integer random * 10 [play "p1]
birds
end