Allie's Playhouse

home *** CD-ROM | disk | FTP | other *** search

/ Allie's Playhouse / allies-playhouse.bin / instkit.tbk (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1993-09-16 | 80KB | 803 lines

System lie's Playhouse box,xylo,arc,Horn objNum space1 space3 Allie's Playhouse arc2,xylo3,xylo4 newposition status "Position: "& Gnewloc boombounds > 8115 >5160 default + 1 -- replaced " valid selectedobject <> terpage buttonup enterpage enterpage objNum selectedObject buttonup clear default selectedObject objNum selectedobject selectedObject HinJAi [`a&h2b toyhrn :PHYSSIZE space :PHYSSIZE slime :PHYSSIZE scream :PHYSSIZE block :PHYSSIZE guiro :PHYSSIZE :PHYSSIZE :PHYSSIZE :PHYSSIZE :PHYSSIZE gizmo :PHYSSIZE spring :PHYSSIZE 4soundList, soundName playInstrument default buttonup buttonup playInstrument default soundList soundName xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 4155,5730 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 6840,5730 help instkit buttonup buttonup instkit Trashcan buttonUp buttonUp :PHYSSIZE 'guiro 4selectedObject default buttonup buttonup background guiro foreground paste buttonup guiro default selectedObject :PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 150,5730 'toyhrn 4selectedObject default buttonup buttonup background toyhrn foreground paste buttonup toyhrn default selectedObject %:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 1485,5730 'block 4selectedObject default buttonup buttonup background block foreground paste buttonup block default selectedObject *:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8310,3270 'scream 4selectedObject default buttonup buttonup background scream foreground paste buttonup scream default selectedObject z0:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 150,4545 4selectedObject default buttonup buttonup background space foreground paste buttonup space default selectedObject 06:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 1485,4545 'slime 4selectedObject default buttonup buttonup background slime foreground paste buttonup slime default selectedObject ;:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 4155,4545 4selectedObject default buttonup buttonup background foreground paste buttonup default selectedObject A:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 5505,4545 'horn 4selectedObject default buttonup buttonup background foreground paste buttonup default selectedObject TG:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8340,5805 'xylo 4selectedObject default buttonup buttonup background foreground paste buttonup default selectedObject M:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 2820,4545 4selectedObject default buttonup buttonup background foreground paste buttonup default selectedObject R:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 2820,5730 'gizmo 4selectedObject default buttonup buttonup background gizmo foreground paste buttonup gizmo default selectedObject vX:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8340,5805 $5$' 'spring 4selectedObject default buttonup buttonup background spring foreground paste buttonup spring default selectedObject 2^:PHYSSIZE d^Da| xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8235,1635 4soundlist, selectedObject, objnum ! = "" tbkMCI("stop eraser","") Z","") tbkMCIchk("play 0","",1,1) yieldApp() 0, 0 8085, 4395 [soundList objNum default buttonUp buttonUp stop eraser tbkMCI stop sound tbkMCI play eraser from 0 tbkMCIchk yieldApp yieldApp clear yieldApp soundList objNum default soundlist selectedObject objnum d:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 5505,5730 buttonUp buttonUp :i:PHYSSIZE 6840,4545 4Zpath, soundlist, objNum zpath "c:\toolbook\playhous\" .sbk" tbkMCIchk(" &"eraser.wav alias ","",1,1) &"instkit. ","",1,1) tbkmci(" samples","") soundList selectedObject initialize objnum 4authoring, , fromCD -- SAVE INSTRUMENT AND VARIABLE > <> 1 <> ("close ","") ","") tbkBitmap(" -kid") Ztemplist -- IF AN OBJECT IS SELECTED -- IF DROPPED OUTSIDE WINDOW, TRASH IT > 8115 >4365 > 8100 > 4410 -- Remove playTrash -- default setSpecialCursor(hand) -- DETERMINE IF WAS ALREADY USED oldObject -- ADD A UNIQUE ID NUMBER AFTER THE -- y-- FIX? ","& -- -- PLAY SOUND playsound -- -- IF NOTHING PREVIOUSLY valid eatClicks() selectedobject <> eatclicks() status kid displayKid SOUNDS playSound c"gizmo" tbkmcichk(" 8375","",1,1) c"block" 8375 13559","",1,1) c"guiro" 13559 20983","",1,1) c"slime" 20983 30967","",1,1) c"box" 30967 36343","",1,1) c"toyhrn" 36343 41271","",1,1) c"horn" 41271 44855","",1,1) c"xylo" 44855 56503","",1,1) 56503 66768","",1,1) c"scream" 66768 72752","",1,1) c"spring" 72752 83088","",1,1) 83088 93008","",1,1) playInstrument , soundName 8375 wait","",1,1) 8375 13559 13559 20983 20983 30967 30967 36343 36343 41271 41271 44855 44855 56503 56503 66768 66768 72752 72752 83088 83088 93008 playtrash 93236 102406","",1,1) eaveBook buttonup initialize playSound enterbook playInstrument leaveBook playtrash enterbook zpath zpath c:\toolbook\playhous\ playhous.sbk playhous.sbk open eraser.wav alias eraser tbkMCIchk open instkit.wav alias sound tbkMCIchk set sound time format samples tbkmci soundList soundlist objNum initialize selectedObject Zpath soundlist objNum initialize soundlist objnum selectedObject soundlist objnum leaveBook soundlist objNum close eraser tbkMCI close sound tbkMCI close kid tbkBitmap authoring soundlist selectedObject objNum fromCD buttonup clear playTrash setSpecialCursor playsound setSpecialCursor eatClicks oldObject templist selectedObject objNum soundList selectedobject eatclicks setSpecialCursor status kid window tbkBitmap displayKid selectedObject playSound gizmo play sound from 0 to 8375 tbkmcichk block play sound from 8375 to 13559 tbkmcichk guiro play sound from 13559 to 20983 tbkmcichk slime play sound from 20983 to 30967 tbkmcichk play sound from 30967 to 36343 tbkmcichk toyhrn play sound from 36343 to 41271 tbkmcichk play sound from 41271 to 44855 tbkmcichk play sound from 44855 to 56503 tbkmcichk space play sound from 56503 to 66768 tbkmcichk scream play sound from 66768 to 72752 tbkmcichk spring play sound from 72752 to 83088 tbkmcichk play sound from 83088 to 93008 tbkmcichk selectedObject playInstrument gizmo play sound from 0 to 8375 wait tbkmcichk block play sound from 8375 to 13559 wait tbkmcichk guiro play sound from 13559 to 20983 wait tbkmcichk slime play sound from 20983 to 30967 wait tbkmcichk play sound from 30967 to 36343 wait tbkmcichk toyhrn play sound from 36343 to 41271 wait tbkmcichk play sound from 41271 to 44855 wait tbkmcichk play sound from 44855 to 56503 wait tbkmcichk space play sound from 56503 to 66768 wait tbkmcichk scream play sound from 66768 to 72752 wait tbkmcichk spring play sound from 72752 to 83088 wait tbkmcichk play sound from 83088 to 93008 wait tbkmcichk soundList soundName playtrash play sound from 93236 to 102406 tbkmcichk ffiff ffbff ffiff ffbff ffiff ffbff ff`ffa aginate "")"" " "" " "" wwpwwpw pwwpwwpw wpwwpwwpw wpwwpwwpw wpwwpwwpw pwwpwwp pwwpwwp wpwwpwwp pwwpwwp pwwpwwp "" wp wp"" wp p"" w wp"" p"" wp "" wp"" w "" wp"" w "" wp"" w p"" w "" ww p"" ww "" ww p"" wp p"" wp p"" wp p"" wp "" p"" (%playhous.ico