Allie's Playhouse System Allie's Playhouse System Times New Roman :PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8175,5745 "Help!!!" buttonup buttonup Help!!! 30,50,100 0,100,0 buttonDown buttonUp buttonDown buttonUp Kkeydown 30,50,100 0,100,0 buttonDown buttonUp buttonDown buttonUp Kkeydown 30,50,100 0,100,0 buttonDown buttonUp buttonDown buttonUp Kkeydown 30,50,100 0,100,0 keyDownArrow buttonDown buttonUp buttonDown buttonUp Kkeydown >&"sel") buttondown buttonup buttondown buttonup previous previous :PHYSSIZE leftsel :PHYSSIZE >&"sel") buttondown buttonup buttondown buttonup right :PHYSSIZE rightsel :PHYSSIZE 8242,5745 @ : l maze2 4mousePosition, catTime getTickCount() > + 600 "5550,4095" "5550,2970" "gotcha!" playsound playSound ohno yieldApp() 543,535 "cat" "5550,4095" tbkMMNotify "maze2" tbkMCIchk(" music tbkMMNotify getTickCount 5550,4095 5550,2970 mouse playsound playSound yieldApp mouse mouse 5550,4095 getTickCount mousePosition catTime tbkMMNotify maze2 play music from 0 maze2 tbkMCIchk !4"X#|$ a1Top a1bottom a1right a1left b1top b1bottom b1right b1left c1top c1bottom c1right c1left d1top d1bottom d1right d1left e1top e1bottom e1right e1left f1top f1bottom f1right f1left a2top a2bottom a2right a2left c2top c2bottom c2right c2left d2top d2bottom d2right d2left e2top e2bottom e2right e2left f2top f2bottom f2right f2left a3top a3bottom a3right a3left b3top b3bottom b3right b3left c3top c3bottom c3right c3left d3top d3bottom d3right d3left e3top e3bottom e3right e3left f3top f3bottom f3right f3left a4top a4bottom a4right a4left b4top b4bottom b4right b4left c4top c4bottom c4right c4left d4top d4bottom d4right d4left e4top e4bottom e4right e4left f4top f4bottom f4right f4left a5top a5bottom a5right a5left b5top b5bottom b5right b5left c5top c5bottom c5right c5left d5top d5bottom d5right d5left e5top e5bottom e5right e5left f5top f5bottom f5right f5left b2top b2bottom b2right b2left cheese *:PHYSSIZE mouse +:PHYSSIZE x,:PHYSSIZE 4zpath "c:\toolbook\playhous\" .sbk" (Zpath&" tbkMCIchk(" p&"maze.wav alias ","",1) samples","",1) LeaveBook [("close R","") tbkBitmap(" kid") status displayKid buttonDoubleclick -- Used rename lines 4mousePosition, catTime 543,535 getTickCount() music","",1) "level" checkWallLeft getNewPosLeft playSound spring H-1220,0 CheckWallRight getNewPosRight H1220,0 checkWallUp getNewPosUp H0,-1200 keyDownArrow checkWallDown getNewPosDown H0,1200 checkWin "maze1" -- Winning sequence here "You '"cheese" "yum" yieldApp() 543,535 default "maze2" 543,535 "maze3" 543,535 checkWallRight bounce checkWallleft &"Top") &"Bottom") getNewPosleft MousePosition playsound sfx ("stop ","") "cat" 8019 wait","",1) 8019 29624 29624 39471","",1) 39471 43441","",1) "ohno" 43441 50129","",1) checkWin checkWallRight enterPage checkWallleft checkWallUp LeaveBook checkWallDown leavePage getNewPosRight getNewPosleft keyDown getNewPosUp enterBook getNewPosDown playsound enterBook c:\toolbook\playhous\ playhous.sbk Zpath playhous.sbk open maze.wav alias maze tbkMCIchk set maze time format samples tbkMCIchk zpath LeaveBook close maze tbkMCI close kid tbkBitmap status kid window tbkBitmap displayKid enterPage mouse getTickCount open .mid alias music tbkMCIchk play music from 0 tbkMCIchk level level Zpath mousePosition catTime leavePage close music tbkMCI keyDown 35checkWallLeft [getNewPosLeft playSound mouse hCheckWallRight getNewPosRight playSound mouse checkWallUp getNewPosUp playSound mouse \@checkWallDown fgetNewPosDown playSound mouse ]checkWin spring checkWin maze1 cheese playSound yieldApp mouse cheese maze2 cheese playSound yieldApp mouse cheese maze3 cheese playSound yieldApp mouse cheese default mousePosition checkWallRight right playSound mouse mouse bounce mousePosition checkWallleft playSound mouse mouse bounce mousePosition checkWallUp playSound mouse mouse bounce mousePosition checkWallDown Bottom playSound mouse mouse bounce mousePosition getNewPosRight mousePosition getNewPosleft mousePosition getNewPosUp MousePosition mousePosition getNewPosDown MousePosition mousePosition playsound stop maze tbkMCI play maze from 0 to 8019 wait tbkMCIchk play maze from 8019 to 29624 wait tbkMCIchk spring play maze from 29624 to 39471 tbkMCIchk bounce play maze from 39471 to 43441 tbkMCIchk play maze from 43441 to 50129 tbkMCIchk 4zpath "c:\toolbook\playhous\" .sbk" (Zpath&" tbkMCIchk(" p&"maze.wav alias ","",1) samples","",1) LeaveBook [("close R","") tbkBitmap(" kid") status displayKid buttonDoubleclick -- Used rename lines 4mousePosition, catTime 543,535 getTickCount() music","",1) "level" checkWallLeft getNewPosLeft playSound spring H-1220,0 CheckWallRight getNewPosRight H1220,0 checkWallUp getNewPosUp H0,-1200 keyDownArrow checkWallDown getNewPosDown H0,1200 checkWin "maze1" -- Winning sequence here "You '"cheese" "yum" yieldApp() 543,535 default "maze2" 543,535 "maze3" 543,535 checkWallRight bounce checkWallleft &"Top") &"Bottom") getNewPosleft MousePosition playsound sfx ("stop ","") "cat" 8019 wait","",1) 8019 29624 29624 39471","",1) 39471 43441","",1) "ohno" 43441 50129","",1) checkWin checkWallRight enterPage checkWallleft checkWallUp LeaveBook checkWallDown leavePage getNewPosRight getNewPosleft keyDown getNewPosUp enterBook getNewPosDown playsound enterBook c:\toolbook\playhous\ playhous.sbk Zpath playhous.sbk open maze.wav alias maze tbkMCIchk set maze time format samples tbkMCIchk zpath LeaveBook close maze tbkMCI close kid tbkBitmap status kid window tbkBitmap displayKid enterPage mouse getTickCount open .mid alias music tbkMCIchk play music from 0 tbkMCIchk level level Zpath mousePosition catTime leavePage close music tbkMCI keyDown 35checkWallLeft [getNewPosLeft playSound mouse hCheckWallRight getNewPosRight playSound mouse checkWallUp getNewPosUp playSound mouse \@checkWallDown fgetNewPosDown playSound mouse ]checkWin spring checkWin maze1 cheese playSound yieldApp mouse cheese maze2 cheese playSound yieldApp mouse cheese maze3 cheese playSound yieldApp mouse cheese default mousePosition checkWallRight right playSound mouse mouse bounce mousePosition checkWallleft playSound mouse mouse bounce mousePosition checkWallUp playSound mouse mouse bounce mousePosition checkWallDown Bottom playSound mouse mouse bounce mousePosition getNewPosRight mousePosition getNewPosleft mousePosition getNewPosUp MousePosition mousePosition getNewPosDown MousePosition mousePosition playsound stop maze tbkMCI play maze from 0 to 8019 wait tbkMCIchk play maze from 8019 to 29624 wait tbkMCIchk spring play maze from 29624 to 39471 tbkMCIchk bounce play maze from 39471 to 43441 tbkMCIchk play maze from 43441 to 50129 tbkMCIchk 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 8242,5745 help maze buttonup buttonup :PHYSSIZE 30,50,100 0,100,0 buttonDown buttonUp buttonDown buttonUp Kkeydown 30,50,100 0,100,0 buttonDown buttonUp buttonDown buttonUp Kkeydown 30,50,100 0,100,0 buttonDown buttonUp buttonDown buttonUp Kkeydown 30,50,100 0,100,0 keyDownArrow buttonDown buttonUp buttonDown buttonUp Kkeydown level 4level default buttonUp buttonUp default level pscript to handle buttonUp set invert of self to false set invert of target to true pobjects button id 26 of background id 0,button id 27 of background id 0,button id 28 of background id 0 level1 level3 level2 4level eatClicks() default buttonUp buttonUp eatClicks default level play maze from 8019 to 29624 wait tbkMCIchk spring play maze from 29624 to 39471 tbkMCIchk bounce play maze from 39471 to 43441 tbkMCIchk play maze from 43441 to 50129 tbkMCIchk maze1 Maze3 4mousePosition, catTime getTickCount() > + 400 "4245,5220" "4245,4005" "gotcha!" playsound playSound ohno yieldApp() 543,535 "cat" "4245,5220" tbkMMNotify "maze3" tbkMCIchk(" music tbkMMNotify getTickCount 4245,5220 4245,4005 mouse playsound playSound yieldApp mouse mouse 4245,5220 getTickCount mousePosition catTime tbkMMNotify maze3 play music from 0 maze3 tbkMCIchk &!J"n# '")F* a1Top a1bottom a1right a1left b1top b1bottom b1right b1left c1top c1bottom c1right c1left d1top d1bottom d1right d1left e1top e1bottom e1right e1left f1top f1bottom f1right f1left a2top a2bottom a2right a2left c2top c2bottom c2right c2left d2top d2bottom d2right d2left e2top e2bottom e2right e2left f2top f2bottom f2right f2left a3top a3bottom a3right a3left b3top b3bottom b3right b3left c3top c3bottom c3right c3left d3top d3bottom d3right d3left e3top e3bottom e3right e3left f3top f3bottom f3right f3left a4top a4bottom a4right a4left b4top b4bottom b4right b4left c4top c4bottom c4right c4left d4top d4bottom d4right d4left e4top e4bottom e4right e4left f4top f4bottom f4right f4left a5top a5bottom a5right a5left b5top b5bottom b5right b5left c5top c5bottom c5right c5left d5top d5bottom d5right d5left e5top e5bottom e5right e5left f5top f5bottom f5right f5left b2top b2bottom b2right b2left cheese +:PHYSSIZE mouse +:PHYSSIZE ,:PHYSSIZE maze2 enterpage enterpage a1Top a1bottom a1right a1left b1top b1bottom b1right b1left c1top c1bottom c1right c1left d1top d1bottom d1right d1left e1top e1bottom e1right e1left f1top f1bottom f1right f1left a2top a2bottom a2right a2left c2top c2bottom c2right c2left d2top d2bottom d2right d2left e2top e2bottom e2right e2left f2top f2bottom f2right f2left a3top a3bottom a3right a3left b3top b3bottom b3right b3left c3top c3bottom c3right c3left d3top d3bottom d3right d3left e3top e3bottom e3right e3left f3top f3bottom f3right f3left a4top a4bottom a4right a4left b4top b4bottom b4right b4left c4top c4bottom c4right c4left d4top d4bottom d4right d4left e4top e4bottom e4right e4left f4top f4bottom f4right f4left a5top a5bottom a5right a5left b5top b5bottom b5right b5left c5top c5bottom c5right c5left d5top d5bottom d5right d5left e5top e5bottom e5right e5left f5top f5bottom f5right f5left b2top b2bottom b2right b2left mouse x,:PHYSSIZE 4-:PHYSSIZE Maze3 (""( " "*""* *"( " hplayhous.ico 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 8242,5745 help maze buttonup buttonup :PHYSSIZE 30,50,100 0,100,0 buttonDown buttonUp buttonDown buttonUp Kkeydown 30,50,100 0,100,0 buttonDown buttonUp buttonDown buttonUp Kkeydown 30,50,100 0,100,0 buttonDown buttonUp buttonDown buttonUp Kkeydown 30,50,100 0,100,0 keyDownArrow buttonDown buttonUp buttonDown buttonUp Kkeydown level 4level default buttonUp buttonUp default level pscript to handle buttonUp set invert of self to false set invert of target to true pobjects button id 26 of background id 0,button id 27 of background id 0,button id 28 of background id 0 level1 level3 level2 maze1 4mousePosition, catTime getTickCount() > + 900 "4275,4140" "4275,2895" "gotcha!" playsound playSound ohno yieldApp() 543,535 "cat" "4275,4140" tbkMMNotify "maze1" tbkMCIchk(" music tbkMMNotify getTickCount 4275,4140 4275,2895 mouse playsound playSound yieldApp mouse mouse 4275,4140 getTickCount mousePosition catTime tbkMMNotify maze1 play music from 0 maze1 tbkMCIchk .!R"v# (*)N* a1Top a1bottom a1right a1left b1top b1bottom b1right b1left c1top c1bottom c1right c1left d1top d1bottom d1right d1left e1top e1bottom e1right e1left f1top f1bottom f1right f1left a2top a2bottom a2right a2left c2top c2bottom c2right c2left d2top d2bottom d2right d2left e2top e2bottom e2right e2left f2top f2bottom f2right f2left a3top a3bottom a3right a3left b3top b3bottom b3right b3left c3top c3bottom c3right c3left d3top d3bottom d3right d3left e3top e3bottom e3right e3left f3top f3bottom f3right f3left a4top a4bottom a4right a4left b4top b4bottom b4right b4left c4top c4bottom c4right c4left d4top d4bottom d4right d4left e4top e4bottom e4right e4left f4top f4bottom f4right f4left a5top a5bottom a5right a5left b5top b5bottom b5right b5left c5top c5bottom c5right c5left d5top d5bottom d5right d5left e5top e5bottom e5right e5left f5top f5bottom f5right f5left b2top b2bottom b2right b2left cheese +:PHYSSIZE mouse +:PHYSSIZE ,:PHYSSIZE 4zpath "c:\toolbook\playhous\" .sbk" (Zpath&" tbkMCIchk(" p&"maze.wav alias ","",1) samples","",1) LeaveBook [("close R","") tbkBitmap(" kid") status displayKid buttonDoubleclick -- Used rename lines 4mousePosition, catTime 543,535 getTickCount() music","",1) checkWallLeft getNewPosLeft playSound spring H-1220,0 CheckWallRight getNewPosRight H1220,0 checkWallUp getNewPosUp H0,-1200 keyDownArrow checkWallDown getNewPosDown H0,1200 checkWin "maze1" -- Winning sequence here "You '"cheese" "yum" yieldApp() 543,535 default "maze2" 543,535 "maze3" 543,535 checkWallRight bounce checkWallleft &"Top") &"Bottom") getNewPosleft MousePosition playsound sfx ("stop ","") "cat" 8019 wait","",1) 8019 29624 29624 39471","",1) 39471 43441","",1) "ohno" 43441 50129","",1) checkWin checkWallRight enterPage checkWallleft checkWallUp LeaveBook checkWallDown leavePage getNewPosRight getNewPosleft keyDown getNewPosUp enterBook getNewPosDown playsound enterBook c:\toolbook\playhous\ playhous.sbk Zpath playhous.sbk open maze.wav alias maze tbkMCIchk set maze time format samples tbkMCIchk zpath LeaveBook close maze tbkMCI close kid tbkBitmap status kid window tbkBitmap displayKid enterPage mouse getTickCount open .mid alias music tbkMCIchk play music from 0 tbkMCIchk Zpath mousePosition catTime leavePage close music tbkMCI keyDown 35checkWallLeft [getNewPosLeft playSound mouse hCheckWallRight getNewPosRight playSound mouse checkWallUp getNewPosUp playSound mouse \@checkWallDown fgetNewPosDown playSound mouse ]checkWin spring checkWin maze1 cheese playSound yieldApp mouse cheese maze2 cheese playSound yieldApp mouse cheese maze3 cheese playSound yieldApp mouse cheese default mousePosition checkWallRight right playSound mouse mouse bounce mousePosition checkWallleft playSound mouse mouse bounce mousePosition checkWallUp playSound mouse mouse bounce mousePosition checkWallDown Bottom playSound mouse mouse bounce mousePosition getNewPosRight mousePosition getNewPosleft mousePosition getNewPosUp MousePosition mousePosition getNewPosDown MousePosition mousePosition playsound stop maze tbkMCI play maze from 0 to 8019 wait tbkMCIchk play maze from 8019 to 29624 wait tbkMCIchk spring play maze from 29624 to 39471 tbkMCIchk bounce play maze from 39471 to 43441 tbkMCIchk play maze from 43441 to 50129 tbkMCIchk