home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dpokalv2.dir / 00040_Script_40 < prev    next >
Text File  |  1995-11-10  |  499b  |  33 lines
  1. on exitFrame
  2.   global Baba
  3.   
  4.   KazuCheckC
  5.   if Baba= 1 then
  6.     HanteiCB1
  7.   else
  8.     HanteiCB0
  9.   end if
  10.   repeat while soundBusy(2) = 1
  11.     nothing
  12.   end repeat
  13.   KazuCheckP
  14.   if Baba= 1 then
  15.     HanteiPB1
  16.   else
  17.     HanteiPB0
  18.   end if
  19.   
  20.   Syohai
  21.   wait 60
  22.   repeat while soundBusy(2)
  23.     nothing
  24.   end repeat
  25.   
  26.   TEIKA
  27.   wait 40
  28.   TeikaCheck
  29.   --repeat with SP = 5 to 39
  30.   --set the visible of sprite SP = 0
  31.   --end repeat
  32.   --set the visible of sprite 43 = 0
  33. end