home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / saboten2.dir / 00046_Script_46 < prev    next >
Text File  |  1995-11-10  |  599b  |  30 lines
  1. on mouseDown
  2.   if pushButton() then
  3. --    sound playfile 2,":MATERIAL:BUTTON08"
  4.     if objectP(CPUwindow) then
  5.       set the visible of Window"CPU"  to TRUE
  6.       tell window "CPU"
  7.         continue
  8.       end tell
  9.       tell window "CHIE_BOX"
  10.         pause
  11.       end tell
  12.       
  13.       forget window "CHIE_BOX"
  14.     else
  15.       tell the stage
  16.         continue
  17.       end tell
  18.       tell window "CHIE_BOX"
  19.         pause
  20.       end tell
  21.       forget window "CHIE_BOX"
  22.     end if
  23.     puppetsprite 48,FALSE
  24.     puppetsprite 45,TRUE
  25.     play done
  26.     PuppetSound 0
  27.   end if
  28.   
  29. end
  30.