home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / csinke6.dir / 00403_Script_403 < prev    next >
Text File  |  1995-11-13  |  803b  |  35 lines
  1. --on HandUpT T1,T2
  2. --  set HanUpT = [1, 2, 3, 2, 1]
  3. --  repeat with i in HanUpT
  4. --    set the castNum of sprite 40 = i + 500
  5. --    updateStage
  6. --    wait T1
  7. --  end repeat
  8. --  wait T2
  9. --  set the castNum of sprite 40 = 1 + 500
  10. --  updateStage
  11. --end 
  12. --
  13. --on HandUpH T1,T2
  14. --  set HanUpH = [41, 42, 43, 42, 41]
  15. --  repeat with i in HanUpH
  16. --    set the castNum of sprite 40 = i + 500
  17. --    updateStage
  18. --    wait T1
  19. --  end repeat
  20. --  wait T2
  21. --  set the castNum of sprite 40 = 41 + 500
  22. --  updateStage
  23. --end 
  24. --
  25. --on HandUpB T1,T2
  26. --  set HanUpB = [81, 82, 83, 82, 81]
  27. --  repeat with i in HanUpB
  28. --    set the castNum of sprite 40 = i + 500
  29. --    updateStage
  30. --    wait T1
  31. --  end repeat
  32. --  wait T2
  33. --  set the castNum of sprite 40 = 81 + 500
  34. --  updateStage
  35. --end