home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / saboten2.dir / 00040_Script_40 < prev    next >
Text File  |  1995-11-10  |  905b  |  32 lines
  1. on mousedown
  2.   --  play frame"φmσbδï0"
  3.   global  DANBGM  
  4.   if pushButton() then
  5.     if objectP(CPUwindow) then
  6.       set the visible of Window"CPU"  to FALSE
  7.       set H to the stageLeft + 63
  8.       set V to the stageTop + 46
  9.       set the Rect of window "CHIE_BOX" to rect(H,V,H+512,V+384)
  10.       set the windowType of Window"CHIE_BOX" to 2
  11.       tell window "CPU"
  12.         pause
  13.         if DANBGM = 1 then set  DANBGM = 0
  14.       end tell
  15.       open Window"CHIE_BOX"
  16.       --      puppetsprite 45,FALSE
  17.       play "φmσbδï"
  18.     else
  19.       set H to the stageLeft + 63
  20.       set V to the stageTop + 46
  21.       set the Rect of window "CHIE_BOX" to rect(H,V,H+512,V+384)
  22.       set the windowType of Window"CHIE_BOX" to 2
  23.       open Window"CHIE_BOX"
  24.       --      puppetsprite 45,FALSE
  25.       play "φmσbδï"
  26.       tell the stage
  27.         pause
  28.       end tell
  29.     end if
  30.     
  31.   end if
  32. end