home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Allie's Playhouse
/
allies-playhouse.bin
/
puzzle.tbk
(
.txt
)
< prev
next >
Wrap
Asymetrix ToolBook File
|
1993-05-11
|
137KB
|
1,762 lines
initialize
4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
420,1095
1965,540
3360,345
5520,750
6705,1200
435,4365
1395,5220
3420,5445
5655,5235
7155,4230
2700,2775
2310,3210
3420,2910
1770,3360
4155,2865
4005,2460
4950,1755
2835,3285
4725,2160
3435,2580
reset
6795,3750
6765,5535
2400,5685
6810,480
6615,2010
4500,5535
285,570
195,4110
225,2160
210,5370
4objList
(pos&i)
checkWin
|) = 10
sysCurtsor
playInst trumpet
"You win!"
default
setSpecialCursor(hand)
reset
initialize
checkWin
initialize
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
pos10
reset
orgPos
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
]checkWin
pos10
objList
checkWin
playInst
reset
setSpecialCursor
trumpet
sysCurtsor
objList
initialize
4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
6795,3750
6765,5535
2400,5685
6810,480
6615,2010
4500,5535
285,570
195,4110
225,2160
210,5370
2685,1710
3255,1710
4095,1710
2685,2325
3000,2055
3900,2160
2685,3255
3225,3135
4350,2970
3780,2715
reset
6795,3750
6765,5535
2400,5685
6810,480
6615,2010
4500,5535
285,570
195,4110
225,2160
210,5370
4objList
(pos&i)
checkWin
|) = 10
sysCurtsor
playInst piano
"You win!"
default
setSpecialCursor(hand)
reset
initialize
checkWin
initialize
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
pos10
reset
orgPos
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
]checkWin
pos10
objList
checkWin
playInst
reset
setSpecialCursor
piano
sysCurtsor
objList
trumpet
4Zpath
playhouse
.tbk")
default
buttonup
buttonup
playhous.tbk
default
playhouse
Zpath
:PHYSSIZE
xyoffset
item1
item2
p2 +
p2 +
buttondown
buttonup
buttondown
item2
item1
xyoffset
buttonup
item2
item1
8175,5745
8325,5745
"Help!!!"
buttonup
buttonup
Help!!!
>&"sel")
buttondown
buttonup
buttondown
buttonup
previous
:PHYSSIZE
leftsel
:PHYSSIZE
>&"sel")
buttondown
buttonup
buttondown
buttonup
right
:PHYSSIZE
rightsel
:PHYSSIZE
help
buttonUp
buttonUp
:PHYSSIZE
xyoffset
item1
item2
p2 +
p2 +
buttondown
buttonup
buttondown
item2
item1
xyoffset
buttonup
item2
item1
8325,1800
help puzzle
buttonup
buttonup
puzzle
displayKid
selectedObject
buttonUp
setSpecialCursor
setSpecialCursor
playBoing
inlist
]checkWin
playsound
inList
orgPos
pos10
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
selectedObject
objList
playSound
stop instruments
tbkMCI
stop inst
tbkMCI
stop boing
tbkMCI
play instruments from 143215 to 177263
tbkMCIchk
yieldApp
play instruments from 32495 to 65647
tbkMCIchk
yieldApp
play instruments from 0 to 32495
tbkMCIchk
yieldApp
play instruments from 73967 to 95215
tbkMCIchk
yieldApp
snare drum
play instruments from 177263 to 207616
tbkMCIchk
yieldApp
play instruments from 120431 to 143215
tbkMCIchk
yieldApp
play instruments from 95215 to 120431
tbkMCIchk
yieldApp
play instruments from 65647 to 73967
tbkMCIchk
yieldApp
xylophone
violin
trumpet
saxophone
piano
guitar
flute
sound
playInst
stop instruments
tbkMCI
stop inst
tbkMCI
stop boing
tbkMCI
play inst from 0 to 200720
tbkMCIchk
yieldApp
pianoAnim
play inst from 200720 to 286070
tbkMCIchk
yieldApp
guitarNotesAnim
play inst from 286070 to 360925
tbkMCIchk
yieldApp
trumpetNotesAnim
play inst from 360925 to 439944
tbkMCIchk
yieldApp
ZdrumNotesAnim
play inst from 439944 to 512512
tbkMCIchk
yieldApp
fluteNotesAnim
flute
trumpet
guitar
piano
playBoing
stop instruments
tbkMCI
stop inst
tbkMCI
stop boing
tbkMCI
play boing from 1 to 14659
tbkMCIchk
play boing from 14659 to 23346
tbkMCIchk
play boing from 23346 to 27029
tbkMCIchk
pianoAnim
piano
yieldApp
piano
yieldApp
yieldApp
piano3
yieldApp
yieldApp
i:to1
GuitarNotesAnim
yieldApp
notes
yieldApp
yieldApp
notes
yieldApp
i:to1
DrumNotesAnim
yieldApp
notes
yieldApp
notes
yieldApp
i:to1
fluteNotesAnim
yieldApp
notes
yieldApp
yieldApp
notes
yieldApp
i:to1
trumpetNotesAnim
yieldApp
notes
yieldApp
yieldApp
notes
yieldApp
i:to1
getPositions
myList
mylist
4zpath
"c:\toolbook\playhous\"
.sbk"
(Zpath&"
tbkMCIchk("
r&"file.wav alias count","",1)
samples","",1)
LeaveBook
\("close
enterBook
LeaveBook
enterBook
c:\toolbook\playhous\
playhous.sbk
Zpath
playhous.sbk
zpath
LeaveBook
close count
tbkMCI
Allie's Playhouse
System
4zpath
"c:\toolbook\playhous\"
.sbk"
(Zpath&"
tbkMCIchk("
r&"file.wav alias count","",1)
samples","",1)
LeaveBook
`("close
tbkBitmap("
kid")
4selectedObject
<> ""
Lstatus
displayKid
terBook
LeaveBook
enterBook
enterBook
c:\toolbook\playhous\
playhous.sbk
Zpath
playhous.sbk
zpath
LeaveBook
close count
tbkMCI
close kid
tbkBitmap
selectedObject
trumpet
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
@ :PHYSSIZE
notes
notes1
:PHYSSIZE
notes2
:PHYSSIZE
notes3
:PHYSSIZE
piano
contour
buttonUp
buttonUp
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
piano1
:PHYSSIZE
piano2
:PHYSSIZE
piano3
:PHYSSIZE
initialize
4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
675,525
510,2115
585,3690
285,5445
2325,5235
4515,5790
6330,5640
6630,3990
6645,2130
6690,480
2850,3405
4095,1785
4005,2565
3345,3240
4590,765
3585,2400
2970,3735
3420,2655
4530,765
2955,2955
reset
6795,3750
6765,5535
2400,5685
6810,480
6615,2010
4500,5535
285,570
195,4110
225,2160
210,5370
4objList
(pos&i)
checkWin
|) = 10
sysCurtsor
playInst Guitar
"You win!"
default
setSpecialCursor(hand)
reset
initialize
checkWin
initialize
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
pos10
reset
orgPos
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
]checkWin
pos10
objList
checkWin
playInst
reset
setSpecialCursor
Guitar
sysCurtsor
objList
Guitar
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
notes
notes1
:PHYSSIZE
notes2
:PHYSSIZE
notes3
:PHYSSIZE
piano
flute
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
notes
notes1
:PHYSSIZE
notes2
:PHYSSIZE
notes3
:PHYSSIZE
initialize
4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
240,1395
975,540
2700,180
5610,645
6705,1425
435,4590
1680,4995
2985,5265
5445,5115
6750,4440
3330,3045
2010,3015
4890,2895
810,2865
1950,2925
2865,3045
1485,2940
4170,2910
3705,3045
810,3030
reset
6795,3750
6765,5535
2400,5685
6810,480
6615,2010
4500,5535
285,570
195,4110
225,2160
210,5370
4objList
(pos&i)
checkWin
|) = 10
sysCurtsor
playInst flute
"You win!"
default
setSpecialCursor(hand)
reset
initialize
checkWin
initialize
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
pos10
reset
orgPos
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
]checkWin
pos10
objList
checkWin
playInst
reset
setSpecialCursor
flute
sysCurtsor
objList
Guitar
""""/
notes2
:PHYSSIZE
notes3
:PHYSSIZE
flute
initialize
4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
495,405
390,1665
570,2835
705,4545
2460,5250
5130,5175
6540,4455
6945,3150
6870,1695
6240,510
3285,2235
4080,2385
4440,2550
3135,2790
4170,2040
2910,2700
3540,2235
3690,2970
4065,2910
2250,2235
reset
6795,3750
6765,5535
2400,5685
6810,480
6615,2010
4500,5535
285,570
195,4110
225,2160
210,5370
4objList
(pos&i)
checkWin
|) = 10
sysCurtsor
playInst drum
"You win!"
default
setSpecialCursor(hand)
reset
initialize
checkWin
initialize
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
pos10
reset
orgPos
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
]checkWin
pos10
objList
checkWin
playInst
reset
setSpecialCursor
sysCurtsor
objList
snare drum
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
notes
notes1
:PHYSSIZE
notes2
:PHYSSIZE
notes3
:PHYSSIZE
snare drum
PUPU4
PUUP0U
UUP0U
PPUUP0U
UUP0U
PPUUP0U
UUP0U
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP0U
PUPU4
PUUP0U
UUP0U
PPUUP0U
UUP0U
PPUUP0U
UUP0U
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP0U
UUPUU_
PUUP__P U
PUUPUU_
PUPU4
PUUP0U
UUP0U
PPUUP0U
UUP0U
PPUUP0U
UUP0U
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP
PPUUP0U
w37wp
hplayhous.ico
4zpath
"c:\toolbook\playhous\"
.sbk"
(Zpath&"
-- OPEN ONE NOTE SOUNDS
tbkMCIchk("
&"instrmnt.wav alias instruments","",1)
samples","",1)
pLOSING
boings.
","",1)
LeaveBook
("close
M","")
tbkBitmap("
&kid")
4objlist
[objList
initialize
4selectedObject
<> ""
|status
displayKid
4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
-- CHECK FOR VALID PUZZLE PART
setSpecialCursor(
--
default
7hand)
))) > 50 \
))) > 50
-- REMOVE OBJECT FROM THE LIST IF IT IS IN
goofy wrong sound here
playBoing
(pos&
-- ADD
inList
inlist <>
checkWin
playsound (
playSound
("stop
","")
flute
71607
88631","",1)
yieldApp()
guitar
16247
32823","",1)
piano
16247","",1)
saxophone
36983
47607","",1)
"snare drum"
88631
103808","",1)
trumpet
60215
71607","",1)
violin
47607
60215","",1)
xylophone
32823
36983","",1)
playInst
","")
F cdAudio
05:00:00:15
05:00:18:50","",1)
pianoAnim
06:00:00:15
06:00:07:60","",1)
guitarNotesAnim
08:00:00:15
08:00:07:00","",1)
trumpetNotesAnim
09:00:00:15
09:00:07:35","",1)
drumNotesAnim
07:00:00:15
07:00:06:60","",1)
fluteNotesAnim
","")
14659","",1)
14659
23346","",1)
23346
27029","",1)
mode","")
"playing"
eatClicks()
=(keyleftButton)
i > 1
"&i - 1)
'"piano3"
'"piano2"
'"piano1"
","")
GuitarNotesAnim
("notes"&i)
","")
DrumNotesAnim
","")
","")
","")
getPositions
4mylist
[myList
Sound
enterBook
playInst
enterPage
playBoing
pianoAnim
GuitarNotesAnim
LeaveBook
DrumNotesAnim
buttonUp
fluteNotesAnim
trumpetNotesAnim
playSound
getPositions
enterBook
c:\toolbook\playhous\
playhous.sbk
Zpath
playhous.sbk
open
instrmnt.wav alias instruments
tbkMCIchk
set instruments time format samples
tbkMCIchk
open
Zpath
boings.wav alias boing
tbkMCIchk
set boing time format samples
tbkMCIchk
zpath
LeaveBook
close instruments
tbkMCI
close boing
tbkMCI
close kid
tbkBitmap
enterPage
objList
initialize
objlist
status kid window
tbkBitmap
displayKid
selectedObject
buttonUp
setSpecialCursor
setSpecialCursor
playBoing
inlist
]checkWin
playsound
inList
orgPos
pos10
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
selectedObject
objList
playSound
stop instruments
tbkMCI
stop boing
tbkMCI
play instruments from 71607 to 88631
tbkMCIchk
yieldApp
play instruments from 16247 to 32823
tbkMCIchk
yieldApp
play instruments from 0 to 16247
tbkMCIchk
yieldApp
play instruments from 36983 to 47607
tbkMCIchk
yieldApp
snare drum
play instruments from 88631 to 103808
tbkMCIchk
yieldApp
play instruments from 60215 to 71607
tbkMCIchk
yieldApp
play instruments from 47607 to 60215
tbkMCIchk
yieldApp
play instruments from 32823 to 36983
tbkMCIchk
yieldApp
xylophone
violin
trumpet
saxophone
piano
guitar
flute
sound
playInst
stop instruments
tbkMCI
stop boing
tbkMCI
play cdAudio from 05:00:00:15 to 05:00:18:50
tbkMCIchk
pianoAnim
play cdAudio from 06:00:00:15 to 06:00:07:60
tbkMCIchk
guitarNotesAnim
play cdAudio from 08:00:00:15 to 08:00:07:00
tbkMCIchk
trumpetNotesAnim
play cdAudio from 09:00:00:15 to 09:00:07:35
tbkMCIchk
ZdrumNotesAnim
play cdAudio from 07:00:00:15 to 07:00:06:60
tbkMCIchk
fluteNotesAnim
flute
trumpet
guitar
piano
playBoing
stop instruments
tbkMCI
stop boing
tbkMCI
play boing from 1 to 14659
tbkMCIchk
play boing from 14659 to 23346
tbkMCIchk
play boing from 23346 to 27029
tbkMCIchk
pianoAnim
status cdAudio mode
tbkMCI
playing
piano
eatClicks
piano
eatClicks
eatClicks
piano3
eatClicks
eatClicks
piano3
piano2
piano1
stop cdAudio
tbkMCI
default
i:to1
GuitarNotesAnim
status cdAudio mode
tbkMCI
playing
notes
eatClicks
eatClicks
notes
eatClicks
notes
stop cdAudio
tbkMCI
default
i:to1
DrumNotesAnim
status cdAudio mode
tbkMCI
playing
notes
eatClicks
eatClicks
notes
eatClicks
notes
stop cdAudio
tbkMCI
default
i:to1
fluteNotesAnim
status cdAudio mode
tbkMCI
playing
notes
eatClicks
eatClicks
notes
eatClicks
notes
stop cdAudio
tbkMCI
default
i:to1
trumpetNotesAnim
status cdAudio mode
tbkMCI
playing
notes
eatClicks
eatClicks
notes
eatClicks
notes
stop cdAudio
tbkMCI
default
i:to1
getPositions
myList
mylist
guitar
16247
32823","",1)
piano
16247","",1)
saxophone
36983
47607","",1)
"snare drum"
88631
103808","",1)
trumpet
60215
71607","",1)
violin
47607
60215","",1)
xylophone
32823
36983","",1)
playInst
","")
F cdAudio
05:00:00:15
05:00:18:50","",1)
pianoAnim
06:00:00:15
06:00:07:60","",1)
guitarNotesAnim
08:00:00:15
08:00:07:00","",1)
trumpetNotesAnim
09:00:00:15
09:00:07:35","",1)
drumNotesAnim
07:00:00:15
07:00:06:60","",1)
fluteNotesAnim
resetLaps
","")
14659","",1)
14659
23346","",1)
23346
27029","",1)
mode","")
"playing"
eatClicks()
=(keyleftButton)
i > 1
"&i - 1)
'"piano3"
'"piano2"
'"piano1"
","")
GuitarNotesAnim
notes
2730,2370
4"&i)
^"&i)
DrumNotesAnim
5100,3450
4935,2205
2925,495
getPositions
4mylist
[myList
Sound
enterBook
playInst
enterPage
playBoing
pianoAnim
GuitarNotesAnim
LeaveBook
DrumNotesAnim
buttonUp
fluteNotesAnim
trumpetNotesAnim
playSound
getPositions
enterBook
c:\toolbook\playhous\
playhous.sbk
Zpath
playhous.sbk
open
instrmnt.wav alias instruments
tbkMCIchk
set instruments time format samples
tbkMCIchk
open
Zpath
boings.wav alias boing
tbkMCIchk
set boing time format samples
tbkMCIchk
zpath
LeaveBook
close instruments
tbkMCI
close boing
tbkMCI
close kid
tbkBitmap
enterPage
objList
initialize
objlist
status kid window
tbkBitmap
displayKid
selectedObject
buttonUp
setSpecialCursor
setSpecialCursor
playBoing
inlist
]checkWin
playsound
inList
orgPos
pos10
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
selectedObject
objList
playSound
stop instruments
tbkMCI
stop boing
tbkMCI
play instruments from 71607 to 88631
tbkMCIchk
yieldApp
play instruments from 16247 to 32823
tbkMCIchk
yieldApp
play instruments from 0 to 16247
tbkMCIchk
yieldApp
play instruments from 36983 to 47607
tbkMCIchk
yieldApp
snare drum
play instruments from 88631 to 103808
tbkMCIchk
yieldApp
play instruments from 60215 to 71607
tbkMCIchk
yieldApp
play instruments from 47607 to 60215
tbkMCIchk
yieldApp
play instruments from 32823 to 36983
tbkMCIchk
yieldApp
xylophone
violin
trumpet
saxophone
piano
guitar
flute
sound
playInst
stop instruments
tbkMCI
stop boing
tbkMCI
play cdAudio from 05:00:00:15 to 05:00:18:50
tbkMCIchk
pianoAnim
play cdAudio from 06:00:00:15 to 06:00:07:60
tbkMCIchk
guitarNotesAnim
play cdAudio from 08:00:00:15 to 08:00:07:00
tbkMCIchk
trumpetNotesAnim
play cdAudio from 09:00:00:15 to 09:00:07:35
tbkMCIchk
ZdrumNotesAnim
play cdAudio from 07:00:00:15 to 07:00:06:60
tbkMCIchk
fluteNotesAnim
resetLaps
flute
trumpet
guitar
piano
playBoing
stop instruments
tbkMCI
stop boing
tbkMCI
play boing from 1 to 14659
tbkMCIchk
play boing from 14659 to 23346
tbkMCIchk
play boing from 23346 to 27029
tbkMCIchk
pianoAnim
status cdAudio mode
tbkMCI
playing
piano
eatClicks
piano
eatClicks
eatClicks
piano3
eatClicks
eatClicks
piano3
piano2
piano1
stop cdAudio
tbkMCI
default
i:to1
GuitarNotesAnim
yieldApp
notes
yieldApp
yieldApp
notes
yieldApp
i:to1
DrumNotesAnim
yieldApp
notes
yieldApp
notes
yieldApp
i:to1
fluteNotesAnim
yieldApp
notes
yieldApp
yieldApp
notes
yieldApp
i:to1
trumpetNotesAnim
yieldApp
notes
yieldApp
yieldApp
notes
yieldApp
i:to1
getPositions
myList
mylist
4zpath
"c:\toolbook\playhous\"
.sbk"
(Zpath&"
-- OPEN ONE NOTE SOUNDS
tbkMCIchk("
&"instrmnt.wav alias instruments","",1)
samples","",1)
pLOSING
boings.
","",1)
LeaveBook
("close
M","")
tbkBitmap("
&kid")
4objlist
[objList
initialize
4selectedObject
<> ""
|status
displayKid
4orgPos1,orgPos2,orgPos3,orgPos4,orgPos5,orgPos6,orgPos7,orgPos8,orgPos9,orgPos10
4pos1,pos2,pos3,pos4,pos5,pos6,pos7,pos8,pos9,pos10
-- CHECK FOR VALID PUZZLE PART
setSpecialCursor(
--
default
7hand)
))) > 50 \
))) > 50
-- REMOVE OBJECT FROM THE LIST IF IT IS IN
goofy wrong sound here
playBoing
(pos&
-- ADD
inList
inlist <>
checkWin
playsound (
playSound
("stop
","")
flute
71607
88631","",1)
yieldApp()
guitar
16247
32823","",1)
piano
16247","",1)
saxophone
36983
47607","",1)
"snare drum"
88631
103808","",1)
trumpet
60215
71607","",1)
violin
47607
60215","",1)
xylophone
32823
36983","",1)
playInst
","")
F cdAudio
05:00:00:15
05:00:18:50","",1)
pianoAnim
06:00:00:15
06:00:07:60","",1)
guitarNotesAnim
08:00:00:15
08:00:07:00","",1)
trumpetNotesAnim
09:00:00:15
09:00:07:35","",1)
drumNotesAnim
07:00:00:15
07:00:06:60","",1)
fluteNotesAnim
resetLaps
","")
14659","",1)
14659
23346","",1)
23346
27029","",1)
mode","")
"playing"
eatClicks()
=(keyleftButton)
i > 1
"&i - 1)
'"piano3"
'"piano2"
'"piano1"
","")
GuitarNotesAnim
("notes"&i)
","")
DrumNotesAnim
","")
","")
","")
getPositions
4mylist
[myList
Sound
enterBook
playInst
enterPage
playBoing
pianoAnim
GuitarNotesAnim
LeaveBook
DrumNotesAnim
buttonUp
fluteNotesAnim
trumpetNotesAnim
playSound
getPositions
enterBook
c:\toolbook\playhous\
playhous.sbk
Zpath
playhous.sbk
open
instrmnt.wav alias instruments
tbkMCIchk
set instruments time format samples
tbkMCIchk
open
Zpath
boings.wav alias boing
tbkMCIchk
set boing time format samples
tbkMCIchk
zpath
LeaveBook
close instruments
tbkMCI
close boing
tbkMCI
close kid
tbkBitmap
enterPage
objList
initialize
objlist
status kid window
tbkBitmap
displayKid
selectedObject
buttonUp
setSpecialCursor
setSpecialCursor
playBoing
inlist
]checkWin
playsound
inList
orgPos
pos10
orgPos1
orgPos2
orgPos3
orgPos4
orgPos5
orgPos6
orgPos7
orgPos8
orgPos9
orgPos10
selectedObject
objList
playSound
stop instruments
tbkMCI
stop boing
tbkMCI
play instruments from 71607 to 88631
tbkMCIchk
yieldApp
play instruments from 16247 to 32823
tbkMCIchk
yieldApp
play instruments from 0 to 16247
tbkMCIchk
yieldApp
play instruments from 36983 to 47607
tbkMCIchk
yieldApp
snare drum
play instruments from 88631 to 103808
tbkMCIchk
yieldApp
play instruments from 60215 to 71607
tbkMCIchk
yieldApp
play instruments from 47607 to 60215
tbkMCIchk
yieldApp
play instruments from 32823 to 36983
tbkMCIchk
yieldApp
xylophone
violin
trumpet
saxophone
piano
guitar
flute
sound
playInst
stop instruments
tbkMCI
stop boing
tbkMCI
play cdAudio from 05:00:00:15 to 05:00:18:50
tbkMCIchk
pianoAnim
play cdAudio from 06:00:00:15 to 06:00:07:60
tbkMCIchk
guitarNotesAnim
play cdAudio from 08:00:00:15 to 08:00:07:00
tbkMCIchk
trumpetNotesAnim
play cdAudio from 09:00:00:15 to 09:00:07:35
tbkMCIchk
ZdrumNotesAnim
play cdAudio from 07:00:00:15 to 07:00:06:60
tbkMCIchk
fluteNotesAnim
resetLaps
flute
trumpet
guitar
piano
playBoing
stop instruments
tbkMCI
stop boing
tbkMCI
play boing from 1 to 14659
tbkMCIchk
play boing from 14659 to 23346
tbkMCIchk
play boing from 23346 to 27029
tbkMCIchk
pianoAnim
status cdAudio mode
tbkMCI
playing
piano
eatClicks
piano
eatClicks
eatClicks
piano3
eatClicks
eatClicks
piano3
piano2
piano1
stop cdAudio
tbkMCI
default
i:to1
GuitarNotesAnim
status cdAudio mode
tbkMCI
playing
notes
eatClicks
eatClicks
notes
eatClicks
notes
stop cdAudio
tbkMCI
default
i:to1
DrumNotesAnim
status cdAudio mode
tbkMCI
playing
notes
eatClicks
eatClicks
notes
eatClicks
notes
stop cdAudio
tbkMCI
default
i:to1
fluteNotesAnim
status cdAudio mode
tbkMCI
playing
notes
eatClicks
eatClicks
notes
eatClicks
notes
stop cdAudio
tbkMCI
default
i:to1
trumpetNotesAnim
status cdAudio mode
tbkMCI
playing
notes
eatClicks
eatClicks
notes
eatClicks
notes
stop cdAudio
tbkMCI
default
i:to1
getPositions
myList
mylist