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