home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / finetown.dir / 00058_Script_58 < prev    next >
Text File  |  1995-11-10  |  3KB  |  66 lines

  1. global Dis,moveSPlist,wari2
  2.  
  3. on upleftCD
  4.   set the castNum of sprite 25 to 36
  5.   set the castNum of sprite 24 to 44
  6.   if (the locH of sprite 25 < 30 and the locV of sprite 25 < 30)┬
  7. or the locH of sprite 25 < 30 or the locV of sprite 25 < 30 then
  8.     abort
  9.   else
  10.     set the locH of sprite 24 to the locH of sprite 24 - Dis / wari2
  11.     set the locV of sprite 24 to the locV of sprite 24 - Dis / wari2
  12.     set the locH of sprite 25 to the locH of sprite 25 - Dis / wari2
  13.     set the locV of sprite 25 to the locV of sprite 25 - Dis / wari2
  14.   end if
  15. end
  16.  
  17. on uprightCD
  18.   set the castNum of sprite 25 to 37
  19.   set the castNum of sprite 24 to 45
  20.   if ((the locH of sprite 25 > 400 and the locV of sprite 25 > 265) or ┬
  21. the locH of sprite 25 > 482 and the locV of sprite 25 < 30) or┬
  22.   ((the locH of sprite 25 > 400 and the locV of sprite 25 > 265) or ┬
  23. the locH of sprite 25 > 482) or the locV of sprite 25 < 30 then
  24.     abort
  25.   else
  26.     set the locH of sprite 24 to the locH of sprite 24 + Dis / wari2
  27.     set the locV of sprite 24 to the locV of sprite 24 - Dis / wari2
  28.     set the locH of sprite 25 to the locH of sprite 25 + Dis / wari2
  29.     set the locV of sprite 25 to the locV of sprite 25 - Dis / wari2
  30.   end if
  31. end
  32.  
  33. on downleftCD
  34.   set the castNum of sprite 25 to 38
  35.   set the castNum of sprite 24 to 46
  36.   if (the locH of sprite 25 < 30 and (the locV of sprite 25 > 265 and the locH of sprite 25 > 400) or ┬
  37. the locV of sprite 25 > 354) or ┬
  38. the locH of sprite 25 < 30 or ((the locV of sprite 25 > 265 and the locH of sprite 25 > 400) or ┬
  39. the locV of sprite 25 > 354) then
  40.     abort
  41.   else
  42.     set the locH of sprite 24 to the locH of sprite 24 - Dis / wari2
  43.     set the locV of sprite 24 to the locV of sprite 24 + Dis / wari2
  44.     set the locH of sprite 25 to the locH of sprite 25 - Dis / wari2
  45.     set the locV of sprite 25 to the locV of sprite 25 + Dis / wari2
  46.   end if
  47. end
  48.  
  49. on downrightCD
  50.   set the castNum of sprite 25 to 39
  51.   set the castNum of sprite 24 to 47
  52.   if (((the locH of sprite 25 > 400 and the locV of sprite 25 > 265) or ┬
  53. the locH of sprite 25 > 482) and the locV of sprite 25 > 354) or ┬
  54. ((the locH of sprite 25 > 400 and ((the locV of sprite 25 > 265 and the locH of sprite 25 > 400) or ┬
  55. the locV of sprite 25 > 354)) or ┬
  56. the locH of sprite 25 > 482) or ┬
  57. ((the locV of sprite 25 > 265 and the locH of sprite 25 > 400) or ┬
  58. the locV of sprite 25 > 354) then
  59.     abort
  60.   else
  61.     set the locH of sprite 24 to the locH of sprite 24 + Dis / wari2
  62.     set the locV of sprite 24 to the locV of sprite 24 + Dis / wari2
  63.     set the locH of sprite 25 to the locH of sprite 25 + Dis / wari2
  64.     set the locV of sprite 25 to the locV of sprite 25 + Dis / wari2
  65.   end if
  66. end