Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/finetown.dir/00057_Script_57

Text File | 1995-11-10 | 1KB | 49 lines

global Dis,moveSPlist,wari2

on leftCD
  set the castNum of sprite 25 to 32
  set the castNum of sprite 24 to 40
  if the locH of sprite 25 < 30 then
    abort
  else
    set the locH of sprite 24 to the locH of sprite 24 - Dis / wari2
    set the locH of sprite 25 to the locH of sprite 25 - Dis / wari2
  end if
end

on rightCD
  set the castNum of sprite 25 to 34
  set the castNum of sprite 24 to 42
  if (the locH of sprite 25 > 400 and the locV of sprite 25 > 265) or ┬
the locH of sprite 25 > 482 then
    abort
  else
    set the locH of sprite 24 to the locH of sprite 24 + Dis / wari2
    set the locH of sprite 25 to the locH of sprite 25 + Dis / wari2
  end if
end

on upCD
  set the castNum of sprite 25 to 33
  set the castNum of sprite 24 to 41
  if the locV of sprite 25 < 30 then
    abort
  else
    set the locV of sprite 24 to the locV of sprite 24 - Dis / wari2
    set the locV of sprite 25 to the locV of sprite 25 - Dis / wari2
  end if
end

on downCD
  set the castNum of sprite 25 to 35
  set the castNum of sprite 24 to 43
  if (the locV of sprite 25 > 265 and the locH of sprite 25 > 400) or ┬
the locV of sprite 25 > 354 then
    abort
  else
    set the locV of sprite 24 to the locV of sprite 24 + Dis / wari2
    set the locV of sprite 25 to the locV of sprite 25 + Dis / wari2
  end if
end