LAUNCH 2/LAUNCH.BIN/mac/SONY/HIGHDES.DIR/00021_Script_21

Text File | 1995-06-07 | 1KB | 41 lines

--rollover snake main

on enterframe
  SNAKEROLL
end

on exitframe
  go the frame
end

--------

on SNAKEROLL
  if rollover(11) then --rollover the rectangular sprite area
    if the mouseCast = the castNum of sprite 11 then --rollover the matted sprite area
      set the locV of sprite(11) to (the locV of sprite(11) + 5)
      updatestage
      set the locV of sprite(11) to (the locV of sprite(11) - 5)
      updatestage
      exit
    end if
  else if rollover(12) then
    if the mouseCast = the castNum of sprite 12 then
      set the locH of sprite(12) to (the locH of sprite(12) + 5)
      updatestage
      set the locH of sprite(12) to (the locH of sprite(12) - 5)
      updatestage
      exit
    end if
  else if rollover(13) then
    if the mouseCast = the castNum of sprite 13 then
      set the locV of sprite(13) to (the locV of sprite(13) + 5)
      updatestage
      set the locV of sprite(13) to (the locV of sprite(13) - 5)
      updatestage
      exit
    end if
  end if
end