Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/dan256.dir/00441_Script_441

Text File | 1995-11-10 | 720b | 27 lines

on mousedown
  global NGCt,Hposition
  PushB

  put the locH of sprite 21 = the locH of sprite 14 into a
  put the locV of sprite 19 = the locV of sprite 15 into b
  put the locH of sprite 22 = the locH of sprite 16 into c
  put the locV of sprite 20 = the locV of sprite 17 into d

  if a and b and c and d then
    repeat with n = 14 to 22
      puppetSprite n, False
    end repeat
    puppetSprite 6, False
    go to "correct" & Hposition
  else
    repeat with n = 14 to 22
      puppetSprite n, true
    end repeat
    puppetSprite 6, true
    tell the stage
      set the visible of sprite (40+NGct) = TRUE
    end tell
    PUT NGct+1 INTO NGct
    H_Frame
  end if
end