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

Text File | 1995-11-10 | 4KB | 137 lines

global Dis,moveSPlist,wari

on upleft
  set the castNum of sprite 25 to 36
  set the castNum of sprite 24 to 44
  repeat with moveSP in moveSPlist
    set the locH of sprite moveSP to the locH of sprite moveSP + Dis / wari
    set the locV of sprite moveSP to the locV of sprite moveSP + Dis / wari
  end repeat
  if the locH of sprite 2 > 600 and the locV of sprite 2 > 450 then
    repeat with moveSP in moveSPlist
      set the locH of sprite moveSP = 600
      set the locV of sprite moveSP = 450
    end repeat
    upleftCD
  end if
  if the locH of sprite 2 > 600 then
    repeat with moveSP in moveSPlist
      set the locH of sprite moveSP = 600
    end repeat
    upleftCD
  end if
  if the locV of sprite 2 > 450 then
    repeat with moveSP in moveSPlist
      set the locV of sprite moveSP = 450
    end repeat
    upleftCD
  end if

  if (the locH of sprite 25 > 256 and the locV of sprite 25 > 192) or ┬
the locH of sprite 25 > 256 or the locV of sprite 25 > 192 then
    upleftCD
  end if
  updateStage
end

on upright
  set the castNum of sprite 25 to 37
  set the castNum of sprite 24 to 45
  repeat with moveSP in moveSPlist
    set the locH of sprite moveSP to the locH of sprite moveSP - Dis / wari
    set the locV of sprite moveSP to the locV of sprite moveSP + Dis / wari
  end repeat
  if the locH of sprite 2 < -88 and the locV of sprite 2 > 450 then
    repeat with moveSP in moveSPlist
      set the locH of sprite moveSP = -88
      set the locV of sprite moveSP = 450
    end repeat
    uprightCD
  end if
  if the locH of sprite 2 < -88 then
    repeat with moveSP in moveSPlist
      set the locH of sprite moveSP = -88
    end repeat
    uprightCD
  end if
  if the locV of sprite 2 > 450 then
    repeat with moveSP in moveSPlist
      set the locV of sprite moveSP = 450
    end repeat
    uprightCD
  end if

  if (the locH of sprite 25 < 256 and the locV of sprite 25 > 192) or ┬
the locH of sprite 25 < 256 or the locV of sprite 25 > 192 then
    uprightCD
  end if
  updateStage
end

on downleft
  set the castNum of sprite 25 to 38
  set the castNum of sprite 24 to 46
  repeat with moveSP in moveSPlist
    set the locH of sprite moveSP to the locH of sprite moveSP + Dis / wari
    set the locV of sprite moveSP to the locV of sprite moveSP - Dis / wari
  end repeat
  if the locH of sprite 2 > 600 and the locV of sprite 2 < -66 then
    repeat with moveSP in moveSPlist
      set the locH of sprite moveSP = 600
      set the locV of sprite moveSP = -66
    end repeat
    downleftCD
  end if
  if the locH of sprite 2 > 600 then
    repeat with moveSP in moveSPlist
      set the locH of sprite moveSP = 600
    end repeat
    downleftCD
  end if
  if the locV of sprite 2 < -66 then
    repeat with moveSP in moveSPlist
      set the locV of sprite moveSP = -66
    end repeat
    downleftCD
  end if

  if (the locH of sprite 25 > 256 and the locV of sprite 25 < 192) or ┬
the locH of sprite 25 > 256 or the locV of sprite 25 < 192 then
    downleftCD
  end if
  updateStage
end

on downright
  set the castNum of sprite 25 to 39
  set the castNum of sprite 24 to 47
  repeat with moveSP in moveSPlist
    set the locH of sprite moveSP to the locH of sprite moveSP - Dis / wari
    set the locV of sprite moveSP to the locV of sprite moveSP - Dis / wari
  end repeat
  if the locH of sprite 2 < -88 and the locV of sprite 2 < -66 then
    repeat with moveSP in moveSPlist
      set the locH of sprite moveSP = -88
      set the locV of sprite moveSP = -66
    end repeat
    downrightCD
  end if
  if the locH of sprite 2 < -88 then
    repeat with moveSP in moveSPlist
      set the locH of sprite moveSP = -88
    end repeat
    downrightCD
  end if
  if the locV of sprite 2 < -66 then
    repeat with moveSP in moveSPlist
      set the locV of sprite moveSP = -66
    end repeat
    downrightCD
  end if

  if (the locH of sprite 25 < 256 and the locV of sprite 25 < 192) or ┬
the locH of sprite 25 < 256 or the locV of sprite 25 < 192 then
    downrightCD
  end if
  updateStage
end