Allie's Playhouse

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

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

Wrap

Asymetrix ToolBook File | 1993-09-19 | 73KB | 677 lines

Printed with Allie's Playhouse 4currentColor, paintTool, currentPattern, Zpath zpath "c:\toolbook\playhous\" .sbk" 240,50,100 -- Set the default color ( 254 -- "pattern1" B"magic" 0,75.3125,0 "roller" setSpecialCursor(brush) -- Load sounds tbkMCIchk(" &"colors.wav alias ","",1) samples","",1) -- Painting routine , waitTime 4prevTarget,prevColor,prevPattern -- STORE DATA FOR UNDO playSound ("status mode","") playing yieldApp() (360), (100), (100) eatClicks() -- -- -- (360), (100), (100) -- -- -- -- -- -- -- fill playOops ReDO redoColor redoPattern -- Undo -- Reset 4fromCD, authoring hand) ("close ","") -- Save paintings on user on CD a <> " g <> tbkBitmap(" pkid") saveAs ("stop ","") 262154 292064","",1) "darkGray" 54364 70777","",1) "lightGray" 70777 82371","",1) 82371 87328","",1) "lightCyan" 87328 90167","",1) 90167 94843","",1) 94843 96109","",1) "purple" 96109 97399","",1) 97399 109384","",1) "lightYellow" 109384 117904","",1) "lightBlue" 117904 126831","",1) 126831 145804","",1) 145804 155734","",1) "darkBlue" 155734 163842","",1) "darkCyan" 163842 177154","",1) "darkGreen" 177154 179359","",1) "orange" 179359 205385","",1) "darkPurple" 205385 220250","",1) "darkRed" 220250 232562","",1) "pink" 232562 258672","",1) "lightPurple" 258672 262154","",1) 292064 304190","",1) -- THIS NEEDS TO BE FIXED c"signature" type 0","") displayKid eBook buttonup enterbook saveAs playSound playOops leaveBook enterbook zpath zpath c:\toolbook\playhous\ playhous.sbk zpath playhous.sbk buttonup pattern1 buttonup setSpecialCursor open colors.wav alias colors tbkMCIchk set colors time format samples tbkMCIchk brush currentColor paintTool currentPattern Zpath buttonup playSound solidFill buttonup pattern1 status colors mode tbkMCI yieldApp yieldApp yieldApp yieldApp eatClicks playSound playing magic prevTarget prevColor prevPattern currentColor currentPattern sound waitTime playOops yieldApp yieldApp yieldApp redoPattern redoColor prevTarget prevColor prevPattern leaveBook setSpecialCursor close colors tbkMCI close kid tbkBitmap fromCD authoring default saveAs default playSound stop colors tbkMCI magic play colors from 262154 to 292064 tbkMCIchk darkGray play colors from 54364 to 70777 tbkMCIchk lightGray play colors from 70777 to 82371 tbkMCIchk play colors from 82371 to 87328 tbkMCIchk lightCyan play colors from 87328 to 90167 tbkMCIchk green play colors from 90167 to 94843 tbkMCIchk yellow play colors from 94843 to 96109 tbkMCIchk purple play colors from 96109 to 97399 tbkMCIchk play colors from 97399 to 109384 tbkMCIchk lightYellow play colors from 109384 to 117904 tbkMCIchk lightBlue play colors from 117904 to 126831 tbkMCIchk black play colors from 126831 to 145804 tbkMCIchk white play colors from 145804 to 155734 tbkMCIchk darkBlue play colors from 155734 to 163842 tbkMCIchk darkCyan play colors from 163842 to 177154 tbkMCIchk darkGreen play colors from 177154 to 179359 tbkMCIchk orange play colors from 179359 to 205385 tbkMCIchk darkPurple play colors from 205385 to 220250 tbkMCIchk darkRed play colors from 220250 to 232562 tbkMCIchk play colors from 232562 to 258672 tbkMCIchk lightPurple play colors from 258672 to 262154 tbkMCIchk sound playOops play colors from 292064 to 304190 tbkMCIchk status kid window tbkBitmap displayKid Times New Roman ayhouse 0,945 50,2820 System :PRINTLAYOUT Allie's Playhouse saveAs tbkMCI(" c:\toolbook\playroom\samples\cow.wav alias mysound","") 0 wait","") ^close playhous.sbk buttonup buttonup roller currentColor paintTool currentPattern buttonup roller currentColor currentPattern paintTool author default leaveBook default default saveAs default * Allie's Playhouse colorBook J!$#b( border outline2 >&"sel") tbkMCI("stop colors","") tbkMCIchk("play 22097 39616","") yieldApp() buttondown buttonup buttondown buttonup stop colors tbkMCI play colors from 22097 to 39616 tbkMCIchk yieldApp previous :PHYSSIZE Leftsel :PHYSSIZE >&"sel") tbkMCI("stop colors","") tbkMCIchk("play 22097 39616","") yieldApp() buttondown buttonup buttondown buttonup stop colors tbkMCI play colors from 22097 to 39616 tbkMCIchk yieldApp right :PHYSSIZE rightsel :PHYSSIZE outline pattern1 4currentPattern, currentColor syslockScreen "outline2" H- 45, -45 buttonup buttonup outline2 outline2 currentPattern currentColor pattern2 4currentPattern, currentColor, sound "magic" syslockScreen "outline2" H- 45, -45 buttonup buttonup magic outline2 outline2 currentPattern currentColor sound pattern3 4currentPattern, currentColor, sound "magic" syslockScreen "outline2" H- 45, -45 buttonup buttonup magic outline2 outline2 currentPattern currentColor sound pattern4 4currentPattern, currentColor, sound "magic" syslockScreen "outline2" H- 45, -45 buttonup buttonup magic outline2 outline2 currentPattern currentColor sound pattern5 4currentPattern, currentColor, sound "magic" syslockScreen "outline2" H- 45, -45 buttonup buttonup magic outline2 outline2 currentPattern currentColor sound pattern6 4currentPattern, currentColor, sound "magic" syslockScreen "outline2" H- 45, -45 buttonup buttonup magic outline2 outline2 currentPattern currentColor sound pattern7 4currentPattern, currentColor, sound "magic" syslockScreen "outline2" H- 45, -45 buttonup buttonup magic outline2 outline2 currentPattern currentColor sound pattern8 4currentPattern, currentColor, sound "magic" syslockScreen "outline2" H- 45, -45 buttonup buttonup magic outline2 outline2 currentPattern currentColor sound 4currentColor, sound syslockScreen "&i) "outline" H- 45, -45 setSpecialCursor(brush) buttonup buttonup pattern outline outline setSpecialCursor brush currentColor sound white darkCyan darkGreen darkRed Purple black Orange lightgray darkBlue LightCyan Green darkPurple darkGray yellow lightYellow lightPurple lightBlue pattern9 -6G% 4currentPattern, currentColor, sound "magic" syslockScreen "outline2" H- 45, -45 buttonup buttonup magic outline2 outline2 currentPattern currentColor sound pattern10 4currentPattern, currentColor, sound "magic" syslockScreen "outline2" H- 45, -45 buttonup buttonup magic outline2 outline2 currentPattern currentColor sound 4Zpath playhouse .tbk") default buttonup buttonup playhous.tbk default playhouse Zpath 4%:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8400,4170 4currentColor, CurrentPattern, sound "pattern1" magic setSpecialCursor(wand) buttonup buttonup buttonup pattern1 setSpecialCursor magic currentColor CurrentPattern sound Magic *:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8400,3015 help colorbook buttonup buttonup colorbook buttonUp buttonUp P0:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8400,1860 tbkMCI("stop colors","") tbkMCIchk("play 22097","") yieldApp() 0, 0 7830, 5280 0,100,0 buttonup buttonup stop colors tbkMCI play colors from 1 to 22097 tbkMCIchk yieldApp yieldApp yieldApp yieldApp Z6:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 135,5340 tbkMCI("stop colors","") tbkMCIchk("play 39616 52975","") mask 1440, 1440, 1440, 1440 r<> 0 "Printer xavailable, please configure your printer Windows." 360, 360 printerPageBitmap "Printed fAllie's Playhouse ~D" buttonup buttonup stop colors tbkMCI play colors from 39616 to 52975 tbkMCIchk =:PHYSSIZE xyoffset item1 item2 p2 + p2 + buttondown buttonup buttondown item2 item1 xyoffset buttonup item2 item1 8385,5745 8385,5745 Dinos1 $ ~ B 3 Dinos2 colorBook Dinos3 clown time format curre Dinos1 Dinos2 Dinos3 clown pK\*w playhous.ico