Blaze/Blaze.iso/mac/VIVID2M.Dxr/00068.ls

Text File | 1997-08-21 | 2.4 KB | 92 lines

on enterFrame
  global gStartMov, gChMov1, gPtime, gMtype, gPress, gDVSound, gHandPTR, gHandCUR
  if rollOver(2) then
    set the cursor of sprite 2 to gHandPTR
  end if
  if rollOver(3) then
    set the cursor of sprite 3 to gHandPTR
  end if
  if rollOver(4) then
    set the cursor of sprite 4 to gHandPTR
  end if
  if rollOver(5) then
    set the cursor of sprite 5 to gHandCUR
  end if
  if rollOver(6) then
    set the cursor of sprite 6 to gHandCUR
  end if
  if rollOver(7) then
    set the cursor of sprite 7 to gHandCUR
  end if
  if gStartMov then
    set the visible of sprite 10 to 1
    if gMtype then
      set the controller of cast gChMov1 to 0
    else
      set the controller of cast gChMov1 to 1
    end if
    set the movieTime of sprite 10 to gPtime
    set the pausedAtStart of cast gChMov1 to 0
    set the movieRate of sprite 10 to 1
    set the volume of sprite 10 to gDVSound
    set gStartMov to 0
  end if
  if gMtype then
    set the controller of cast gChMov1 to 1
  end if
  if the mouseDown then
    set gPress to 1
  end if
  set gDVSound to the volume of sprite 10
end

on exitFrame
  global gChMov1, gMtype, gSec, gPtime, gEsc, gMarker, gColor, gStartMov, gKey
  if (the movieTime of sprite 10 >= the stopTime of sprite 10) or (gSec <> 1) then
    set the cursor of sprite 2 to 0
    set the cursor of sprite 3 to 0
    set the cursor of sprite 4 to 0
    set the cursor of sprite 5 to 0
    set the cursor of sprite 6 to 0
    set the cursor of sprite 7 to 0
    set the movieRate of sprite 10 to 0
    if gSec = 4 then
      set gSec to 1
      set gPtime to the movieTime of sprite 10
      set the visible of sprite 10 to 0
      go(the frame + 1)
    else
      set the movieTime of sprite 10 to 0
      set the pausedAtStart of cast gChMov1 to 1
      if (gSec = 1) or (gSec = 2) then
        set gSec to 2
        set gPtime to 0
        set gStartMov to 1
        go(the frame + 2)
      else
        if gSec = 6 then
          set gPtime to 0
          set gStartMov to 1
          go(the frame + 4)
        else
          if gSec = 3 then
            set gKey to 1
            set gMarker to "UP"
            unLoadCast(gChMov1)
            if gMtype = 0 then
              set the visible of sprite 10 to 0
            end if
            go(gEsc)
          else
            if gSec = 5 then
              gameExit()
            end if
          end if
        end if
      end if
    end if
  else
    go(the frame)
  end if
end