Family Forum 256/DR_BRAIN.BIN/Somc/SNEAK.dir/00001_Script_1

Text File | 1998-10-12 | 8KB | 243 lines

on startMovie

  global whichsneak
  set whichsneak to "FAMILY"


  --* This declares the variables for the finger cursor. *
  global SPFINGER, SPFINGERMASK
  set SPFINGER to the memberNum of member "Finger1"
  set SPFINGERMASK to the memberNum of member "Finger2"

  glowClear()

end


on showpuppets TRUEFALSE
  repeat with x = 2 to 6
    set the visible of sprite x to TRUEFALSE
  end repeat
end


on puppetsneaks sneakONOFF
  repeat with x = 2 to 6
    puppetSprite x,sneakONOFF
  end repeat
  repeat with x = 52 to 56
    puppetSprite x,sneakONOFF
  end repeat
end

on sneakswap WHICHSNEAK
  global FAMG,GAMEG,KIDSG,MACG,PRODG,EDUG
  puppetsneaks (FALSE)
  showpuppets (FALSE)
  case WHICHSNEAK of
    "EDU":
      set the memberNum of sprite 2 to the memberNum of member "Snk FAM"
      set FAMG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk GAME"
      set GAMEG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk KIDS"
      set KIDSG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk MAC"
      set MACG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 53 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 54 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 55 to the memberNum of member "Snk MACG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"

    "FAMILY":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"
      set EDUG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk GAME"
      set GAMEG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk KIDS"
      set KIDSG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk MAC"
      set MACG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk EDUG"
      set the memberNum of sprite 53 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 54 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 55 to the memberNum of member "Snk MACG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"


    "GAME":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"
      set EDUG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk FAM"
      set FAMG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk KIDS"
      set KIDSG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk MAC"
      set MACG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk eduG"
      set the memberNum of sprite 53 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 54 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 55 to the memberNum of member "Snk MACG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"



    "KIDS":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"
      set EDUG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk FAM"
      set FAMG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk GAME"
      set GAMEG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk MAC"
      set MACG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56
      set the memberNum of sprite 52 to the memberNum of member "Snk EDUG"
      set the memberNum of sprite 53 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 54 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 55 to the memberNum of member "Snk MACG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"


    "MAC":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"

      set the memberNum of sprite 3 to the memberNum of member "Snk FAM"
      set FAMG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk GAME"
      set GAMEG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk KIDS"
      set KIDSG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk PROD"
      set PRODG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 53 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 54 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 55 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 56 to the memberNum of member "Snk PRODG"

    "PROD":
      set the memberNum of sprite 2 to the memberNum of member "Snk EDU"
      set EDUG to 52
      set the memberNum of sprite 3 to the memberNum of member "Snk FAM"
      set FAMG to 53
      set the memberNum of sprite 4 to the memberNum of member "Snk GAME"
      set GAMEG to 54
      set the memberNum of sprite 5 to the memberNum of member "Snk KIDS"
      set KIDSG to 55
      set the memberNum of sprite 6 to the memberNum of member "Snk MAC"
      set MACG to 56

      set the memberNum of sprite 52 to the memberNum of member "Snk EDUG"
      set the memberNum of sprite 53 to the memberNum of member "Snk FAMG"
      set the memberNum of sprite 54 to the memberNum of member "Snk GAMEG"
      set the memberNum of sprite 55 to the memberNum of member "Snk KIDSG"
      set the memberNum of sprite 56 to the memberNum of member "Snk MACG"


  end case

  puppetsneaks (TRUE)
  UpdateStage
  showpuppets (TRUE)

end


--* This handler hides/shows the glow images. eg: glow(5,TRUE) *

on glow WHICHSPRITE, TRUEORFALSE
  set the visible of sprite WHICHSPRITE to TRUEORFALSE
end glow

--* TURN OF ALL GLOWS ON START
on glowClear
  repeat with i = 50 to 65
    glow(i)
  end repeat
end

--* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*

on textglow WHICHMEMBER, COLORNUMBER
  set the foreColor of member WHICHMEMBER to COLORNUMBER
end textglow


--* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *

on openMIAW MYWINDOW
  set myRect=the rect of window MYWINDOW
  set myStage=the rect of the Stage
  set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  set the rect of window MYWINDOW=myNewRect
  set the windowType of window MYWINDOW to 2
  open window MYWINDOW
end openMIAW


--* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *

on doRollover numsprite,SOUNDNUM
  glow(numsprite,TRUE)
  global SPfinger,SPfingermask
  cursor[SPfinger,SPfingermask]
  updatestage
  case SOUNDNUM of
    1:
      puppetsound 1, "rollsound"
      --  repeat while soundbusy(1)
      --  end repeat
    2:
      puppetsound 1, "rollsound2"
      --  repeat while soundbusy(1)
      --  end repeat
  end case
end



--* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR

on doRollout numsprite
  glow(numsprite,FALSE)
  cursor 0
end

--* PLAYS A CLICK SOUND

on doClick
  puppetsound 1,"clicksound"
  updateStage
end



-- Delays for x number of seconds
on timedelay SECONDS
  startTimer
  repeat while the timer < SECONDS * 60
    nothing
  end repeat
end