home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dan256.dir / 00440_Script_440 < prev    next >
Text File  |  1995-11-10  |  647b  |  26 lines
  1. on mousedown
  2.   global NGCt,Hposition
  3.   PushB
  4.   put the locH of sprite 18 = 194 into a
  5.   put the locV of sprite 18 = 165 into b
  6.   put the locH of sprite 17 = 374 into c
  7.   put the locV of sprite 17 = 165 into d
  8.   
  9.   if a and b and c and d then 
  10.     repeat with n = 14 to 21
  11.       puppetSprite n, False
  12.     end repeat    
  13.     puppetSprite 6, False
  14.     go to "correct" & Hposition
  15.   else        
  16.     repeat with n = 14 to 21
  17.       puppetSprite n, true 
  18.     end repeat 
  19.     puppetSprite 6, true 
  20.     tell the stage
  21.       set the visible of sprite (40+NGct) = TRUE
  22.     end tell
  23.     PUT NGct+1 INTO NGct
  24.     H_Frame
  25.   end if
  26. end