home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / waku.dir / 00091_Script_91 < prev    next >
Text File  |  1995-11-10  |  668b  |  33 lines
  1. on mousedown
  2.   global DANBGM ,DANSP1
  3.   if pushbutton() then
  4.     --    set the castnum of sprite 7 = the  number of cast "M_RE,DW"
  5.     set the visible of Window"Town"  to TRUE
  6.     tell window "TOWN"
  7.       if DANSP1 = 1 then
  8.         puppetSprite 1,FALSE
  9.         set DANSP1 = 0
  10.       end if
  11.       
  12.       continue
  13.       --      set the volume of sound 2 = 255
  14.       if DANBGM = -1 then
  15.         SET DANBGM = 1
  16.       else
  17.         if DANBGM = -2 then
  18.           SET DANBGM = 2
  19.         end if
  20.       end if
  21.     end tell
  22.     tell window "WAKARUTA"
  23.       pause
  24.     end tell
  25.     
  26.     forget window "WAKARUTA"
  27.     go to "toMAP_DAN"
  28.   end if
  29.   
  30. end
  31.  
  32.  
  33.