home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dan256.dir / 00444_Script_444 < prev    next >
Text File  |  1995-11-10  |  654b  |  25 lines

  1. on mousedown
  2.   global NGCt,Hposition 
  3.   PushB
  4.   put the locH of sprite 18 = the locH of sprite 15 into a
  5.   put the locV of sprite 19 = the locV of sprite 14 into b
  6.   put the locH of sprite 21 = the locH of sprite 16 into c
  7.   
  8.   if a and b and c  then 
  9.     repeat with n = 14 to 22
  10.       puppetSprite n, False
  11.     end repeat    
  12.     puppetSprite 6, False
  13.     go to "correct" & Hposition
  14.   else       
  15.     repeat with n = 14 to 22
  16.       puppetSprite n, true 
  17.     end repeat 
  18.     puppetSprite 6, true 
  19.     tell the stage
  20.       set the visible of sprite (40+NGct) = TRUE
  21.     end tell
  22.     PUT NGct+1 INTO NGct
  23.     H_Frame
  24.   end if
  25. end