home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00035_Script_35 < prev    next >
Text File  |  1995-11-13  |  465b  |  22 lines
  1. on exitFrame
  2.   global gHuda,gCount,gMax,gLeftCT,gRightCT,gLeftMax,¼
  3. gRightMax,Ch,gMotihuda
  4.   PuppetSound 0
  5.   if Ch = 14 and not(gHuda = 7) then
  6.     Zoom 16,14,8,1
  7.   else
  8.     if Ch = 15 and not(gHuda = 7) then
  9.       Zoom 16,15,8,1
  10.     end if
  11.   end if
  12.   
  13.   set Again = 0
  14.   BaYama
  15.   
  16.   put gMotihuda  && "±ß" into field"P"
  17.   set newRect = rect( 207 , 352 , 207 + gMotihuda , 379 )
  18.   set the rect of sprite 34 to newRect
  19.   Hyoji
  20.   CountCheck
  21.   
  22. end