home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dan256.dir / 00385_Script_385 < prev    next >
Text File  |  1995-11-10  |  490b  |  24 lines
  1. on exitFrame
  2.   global vQ_No,DANBGM
  3.   delay 2*60
  4.   if vQ_No > 2 then 
  5.     set vQ_No = vQ_No - 1
  6.     --    set FrameNUM = label("QD" & (vQ_NO -1)) + 4
  7.     go to label("QD" & (vQ_NO -1)) + 4
  8.     if the frame > 233 then
  9.       sound stop 3
  10.       set DANBGM = 2
  11.     else
  12.       set DANBGM = 1
  13.     end if
  14.   else
  15.     if vQ_No = 2 then
  16.       set vQ_No = vQ_No - 1
  17.       set DANBGM = 1
  18.     else
  19.       if vQ_No = 1 then
  20.         set DANBGM = 1
  21.       end if
  22.     end if
  23.   end if
  24. end