System :PRINTLAYOUT Allie's Playhouse s.sbk playhous.sbk Zpath lie's Playhouse 4Zpath zpath "c:\toolbook\playhous\" .sbk" tbkMCIchk(" q&"theatre.wav alias ","",1) samples","",1) U("close L","") tbkBitmap(" kid") status displayKid playsound fx 3259","",1) 3259 7230","",1) 7230 12341","",1) 12341 17190","",1) leaveBook enterBook playsound enterBook zpath zpath c:\toolbook\playhous\ playhous.sbk playhous.sbk open theatre.wav alias theatre tbkMCIchk set theatre time format samples tbkMCIchk Zpath leaveBook close theatre tbkMCI close kid tbkBitmap status kid window tbkBitmap displayKid playsound play theatre from 1 to 3259 tbkMCIchk play theatre from 3259 to 7230 tbkMCIchk play theatre from 7230 to 12341 tbkMCIchk play theatre from 12341 to 17190 tbkMCIchk F4X,?4P #l,"-y 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 8370,5745 4currentHead y -- NO ARE DISPLAYED "Head1" -- SHOW THE FIRST ONES "Head15" -- .LAST '"head15" ) +1) ) +1) playSound 2 buttonup buttonup Head1 Head1 Head15 head15 playSound currentHead :PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8475,2040 4currentEyes y -- NO EYES ARE DISPLAYED "eyes1" -- SHOW THE FIRST ONES "eyes6" -- -LAST ) +1) ) +1) playSound 4 buttonup buttonup eyes1 eyes1 eyes6 playSound currentEyes :PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8490,2730 4currentNose y -- NO ARE DISPLAYED "Nose1" -- SHOW THE FIRST ONES "Nose6" -- -LAST ) +1) ) +1) playSound 3 buttonup buttonup Nose1 Nose1 Nose6 playSound currentNose :PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8385,4815 4currentMouth y -- NO ARE DISPLAYED "Mouth1" -- SHOW THE FIRST ONES "Mouth7" -- .LAST ) +1) ) +1) playSound 1 buttonup buttonup Mouth1 Mouth1 Mouth7 Mouth Mouth playSound currentMouth :PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8475,4110 blender 4currentHead, currentEyes, currentNose, currentMouth yieldApp() tbkMCI("status theatre mode","") <> "playing" tbkMCIchk(" 0","",1) syslockScreen "head"& "eyes"& "nose"& "mouth"& -- Check here a winning face buttonUp buttonUp yieldApp status theatre mode tbkMCI playing play theatre from 0 tbkMCIchk yieldApp yieldApp yieldApp yieldApp yieldApp mouth yieldApp yieldApp yieldApp yieldApp yieldApp currentHead currentEyes currentNose currentMouth >):PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8400,4815 help theatre buttonup buttonup theatre mask 1440, 1440, 1440, 1440 r<> 0 "Printer xavailable, please configure your printer Windows." 360, 360 printerPageBitmap "Printed fAllie's Playhouse ~D" buttonup buttonup Printer not available, please configure your printer in Windows. 1:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8475,3420 8475,1350 4currentHead, currentEyes, currentNose, currentMouth "head1" "eyes1" "nose1" "mouth1" "blender" <> "" <> "" <> "" <> "" saveAs terpage enterpage saveAs enterpage head1 eyes1 nose1 mouth1 currentHead currentEyes currentNose currentMouth currentHead currentEyes currentNose currentMouth saveAs currentHead currentEyes currentNose currentMouth IxJ>K PvQ>R TZU V WrX2] ^f_"`T` head1 :PHYSSIZE head2 :PHYSSIZE head3 :PHYSSIZE head4 :PHYSSIZE head5 :PHYSSIZE head6 :PHYSSIZE head7 l%:PHYSSIZE head8 ):PHYSSIZE head9 x.:PHYSSIZE head10 3:PHYSSIZE head11 7:PHYSSIZE head12 <:PHYSSIZE head13 @:PHYSSIZE head14 E:PHYSSIZE head15 I:PHYSSIZE eyes1 nJ:PHYSSIZE eyes2 4K:PHYSSIZE eyes3 K:PHYSSIZE eyes4 L:PHYSSIZE eyes5 M:PHYSSIZE eyes6 LN:PHYSSIZE mouth1 O:PHYSSIZE mouth2 O:PHYSSIZE mouth3 P:PHYSSIZE mouth4 lQ:PHYSSIZE mouth5 4R:PHYSSIZE mouth6 R:PHYSSIZE mouth7 S:PHYSSIZE nose1 T:PHYSSIZE nose2 PU:PHYSSIZE nose3 V:PHYSSIZE nose4 V:PHYSSIZE nose5 W:PHYSSIZE nose6 hX:PHYSSIZE Dialog 4Zpath, newFace -- Get a directory face files (*.FAC) faceList getFileList( N&"*. init dlgInit setValue( ,"fileList", --DLL function retValue dialog(dlgBox getValue( ,, "listBox buttonUp buttonUp *.FAC getFileList dlgInit fileList setValue dlgBox dialog listBox fileList getValue retValue faceList Zpath newFace ZdlgInit ,g15, To Load a Face: ,s11,Select a face to load, then click OK. ,h22, listbox fileList,l23, button Cancel,b24,FALSE button OK,b25,TRUE ]~[dlgBox 524480,6,30,20,142,186,,,Load a Face,8,Helv,,7.47,6.52,130.67,38.19,15,1342177287,128, To Load a Face:,0,,11.20,22.61,123.20,15.14,11,1342177280,130,Select a face to load,0,,102.67,68.84,18.29,19.69,22,1342177283,130,question,0,fileList,7.47,52.76,67.20,114.58,23,1352728579,131,,0,Cancel,89.60,115.08,46.67,20.10,24,1342242816,128,Cancel,0,OK,89.60,139.20,46.67,20.10,25,1342242817,128,OK,0 ]ctrlID Dialog ]:PHYSSIZE ^:PHYSSIZE \_:PHYSSIZE `:PHYSSIZE a:PHYSSIZE 1381119919 11113 8111113 9398913 11113 8111113 31319919 11113 8111113 18183183 18183183 111113 11111 811913 111113 11111 11913 38311383 181333 38311383 33133 181333 88081 181333 33133 S1811 S1811 89150 01889 01811 1981# 1981# 31 #3 331893 91133 31 #3 331893 91133 331893 91133 31 #3 18113 18113 18113 1313S3 9931393 1313S3 9931393 9931393 333383 33338338 838333 8813833333 333383 33338338 3838333 8813833333 3838333 8813833333 33338338 1888113 00030138 00030138 m30138 00030138 11!!1000 1301! 00030138 00030138 1!!1000 1301! 1301! 00030138 1301! 1!!1000 1301! 1!!1000 11!!1000 v=01! 1!!1000 1301! 1!!1000 1301! 1!!1000 1301! 1!!1000 11!!1000 1!!1000 1301! 1!!1000 11181 111880 111880 111880 1111 1111 1111 1111 18101 18101 18101 18101 1!893 38918 1!893 38918 1!893 38918 10989 10989 10989 1019893 811983 1981333 11333 93183 83333383 9398993 33333 11333 93183 8333333 11333 93183 8333333 11333 93183 83333383 9398993 3333383 9398993 899199 899199 899199 899199 38333 3333833 38888 998858 38888 998858 38888 998858 !98]] 083]] 011]] 90 93 013]] 90 93 83081 90 93 18]]P 98]]P 81]]P 013]]P]] 31]]P ]]P]]P]]3 91080 ]]P]]P]] ]]P]]P]] ]]P]]P]] ]]P]]P]] ]]P]]P]] 81013 81013 81001 playhous.ico