George of the Jungle Press Kit/GEORGE.iso/pc/george.dxr/Internal_890_btnParentScript.ls

Text File | 1997-06-23 | 3.3 KB | 139 lines

property myUpState, myRollState, myDnState, myS, myHandler
global gFlashState

on new me, s
  set myS to s
  set myHandler to the name of member the memberNum of sprite s
  delete word 1 of myHandler
  set myUpState to the memberNum of sprite s
  set myRollState to myUpState + 1
  set myDnState to myRollState + 1
  return me
end

on doRoll me
  if the mouseCast = myUpState then
    set the memberNum of sprite myS to myRollState
  else
    if the mouseCast = myRollState then
    else
      set the memberNum of sprite myS to myUpState
    end if
  end if
end

on doRollAnim me
  global gFlashState
  if the mouseCast = myUpState then
    set the memberNum of sprite myS to myRollState
    set gFlashState to 1
  else
    if the mouseCast = myRollState then
    else
      set the memberNum of sprite myS to myUpState
    end if
  end if
end

on button me
  set whichSprite to myS
  set actNow to 0
  set dnClick to "click1"
  set upClick to "click2"
  set playedClick to 1
  set gFlashState to 1
  repeat while the stillDown
    if rollOver(whichSprite) then
      if playedClick = 1 then
        puppetSound(1, dnClick)
        set playedClick to 0
        set the memberNum of sprite whichSprite to myDnState
        set actNow to 1
      end if
    else
      if playedClick = 0 then
        puppetSound(1, upClick)
        set playedClick to 1
        set the memberNum of sprite whichSprite to myUpState
        set actNow to 0
      end if
    end if
    updateStage()
  end repeat
  if the memberNum of sprite whichSprite = myDnState then
    set the memberNum of sprite whichSprite to myUpState
    puppetSound(1, upClick)
    updateStage()
  end if
  repeat while soundBusy(1)
  end repeat
  sound stop 1
  if actNow = 1 then
    do(myHandler)
  end if
end

on goFrame whichFrame
  global gCurrentFrame
  if the memberNum of sprite 6 > 0 then
    if the type of member the memberNum of sprite 6 = #digitalVideo then
      if not (the puppet of sprite 6) then
        puppetSprite(6, 1)
      end if
      put gCurrentFrame
      if (gCurrentFrame = "MC") or (gCurrentFrame = "Making of") or (gCurrentFrame = "Movie clips") then
        set the memberNum of sprite 6 to the number of member "matte left"
      else
        set the memberNum of sprite 6 to the number of member "matte center"
      end if
      set the loc of sprite 6 to point(320, 240)
      updateStage()
    end if
  end if
  init(1, 48, 0, 0)
  go(whichFrame)
end

on goSubFrame whichFrame
  global gCurrentFrame
  if (whichFrame = "Pic") or (whichFrame = "Bio") then
    if not (the puppet of sprite 6) then
      puppetSprite(6, 1)
    end if
    set the memberNum of sprite 6 to the number of member "matte"
    set the loc of sprite 6 to point(320, 240)
  end if
  init(1, 48, 0, 0)
  go(gCurrentFrame && whichFrame)
end

on goBack
  global gCurrentFrame
  init(1, 48, 0, 0)
  go("CastAnimDone")
end

on goBackInt
  global gCurrentFrame
  if not (the puppet of sprite 6) then
    puppetSprite(6, 1)
  end if
  set the memberNum of sprite 6 to the number of member "matte"
  set the loc of sprite 6 to point(320, 240)
  updateStage()
  init(1, 48, 0, 0)
  go(gCurrentFrame && "Int")
end

on goBackPro
  global gCurrentFrame
  init(1, 48, 0, 0)
  go("ProAnimDone")
end

on goBackPrint
  global gCurrentFrame
  init(1, 48, 0, 0)
  go(gCurrentFrame && "Pic")
end