Greatest Childrens Stories Ever Told/Greatest_Stories.iso/movies/redridin/shared.dir/01009_Script_1009

Text File | 1994-11-07 | 10KB | 408 lines

--update 8/15/94 ch2/tales
--SHARING HANDLES
on holdmyplace
  global returnframe,holdreturnframe
  set holdreturnframe=returnframe
  set returnframe=500
end



on checkWhichMovie
  global nextmovie
  sound stop 1
  if marker(-1)=marker("atend") then dontpassevent
  if the soundenabled then
    if marker(0)<marker("end" ) then
      if (nextmovie=1 and (the last char of the movie contains "1")) ¼
or (nextmovie=2 and (the last char of the movie contains "2")) or ¼
(nextmovie=3 and (the last char of the movie contains "3")) then
        go marker(1)-1
        abort
      end if
    end if
  end if
end

--FOR THE FORWARD BUTTON
on goahead
  global qa,goforward,questions,returnframe,moviename
  set the timeOUtScript to empty
  if marker(-1)=marker("atend") then exit
  sound stop 1
  if questions=1 and returnframe<500 then
    checkWhichMovie
    if returnframe>the frame then
      if returnframe<marker(1)-1 or the frame>marker("end") then
        go to frame(returnframe)
        exit
      else
        if (returnframe>the frame) and (the frame<marker("end")-1) then
          go marker(1)-1
          set qa=1
          exit
        end if
      end if
    end if


    if the frame>=marker("end") and (questions=0 or qa<>0 or returnframe=500) then
      IF QA=1 AND questions=1 and RETURNFRAME=MARKER(0)+2 THEN EXIT
      unloadcast
      GO movie moviename
    else
      if questions=0  then
        UNLOADCAST
        go marker(1)-1
      else if the frame=marker(0) then
        go marker(0)+1
        EXIT
      else
        if qa=3  then
          set qa=0
          go marker(1)-1
          exit
        else if qa=0 and returnframe<=the frame then
          go marker(0)+2
          EXIT
        else if qa<>0  and (returnframe>marker(0)+2 and returnframe>=marker(1)) then
          go marker(1)-1
          EXIT
        else if returnframe=marker(0)+2 then
          go marker(0)+2
          exit
        ELSE IF( QA=1 AND RETURNFRAME<>MARKER(0)+5) THEN
          go marker(1)-1
          EXIT
        else if qa="2nd" and returnframe<marker(1) then
          go marker(0)+5
          EXIT
        end if
      end if
    END IF
  else
    if marker(0)<>label("end") then
      go marker(1) -1
      exit
    else
      UNLOADCAST
      go movie moviename
    end if
  end if




end goahead

--FOR THE BACK BUTTON
on goback
  global qa,clicked,returnframe,backmovie
  set the timeOUtScript to empty
  if  the frame<=marker("1")+1 then
    beep 1
    exit
  end if
  sound stop 1
  if (RETURNFRAME<THE FRAME) then ¼
put the frame into returnframe
  if the frame<=marker("begin")+1 then
    unloadcast
    holdmyplace
    go frame"end"  of movie backmovie
    exit
  else
    if ((qa=1 or qa=3) and returnframe>=the frame) and (marker(0)=the frame ¼
or marker(0)+1=the frame) then
      set qa=1
      go marker (-1)
    else
      if (qa=0 and (marker(0)+1=the frame or marker(0)=the frame))¼
or (qa="2nd" and returnframe>the frame) then
        go marker(-1)
      else
        go marker(0)
      end if
    end if
  end if

end goback

on texthasquestions
  -- text has questions corrected 3/30 part 1
  global qa,goforward,returnframe,questions,nextmovie,MOVIENAME
  checkWhichMovie
  if questions=1 and returnframe<500 then

    if returnframe<=the frame then
      ansques(0)
    else
      if not the soundenabled then pause
      else
        if returnframe>the frame then
          if returnframe<marker(1) or (marker(0)=marker("end")) then
            ansques(1)
            go to frame(returnframe)
            exit
          else
            if returnframe>the frame then set qa=1
            if marker(0)<>marker("end") then go marker(1)-1
          end if
        end if
      end if
    END IF


    if not the soundenabled then
      pause
    end if

    if the pauseState=false and qa<>0 then
      if qa="2nd" and returnframe<marker(1) then
        go marker(0)+5
        exit
      else
        if qa=1 and returnframe>the frame then
          if marker(0)<>label("end") then
            go marker(1) -1
            exit
          else
            UNLOADCAST
            go movie moviename
            exit
          end if
        end if
      end if
    end if
  else
    if not the soundenabled then
      pause
    else
      set qa=1
      if marker(0)<>label("end") then
        go marker(1) -1
        exit
      else
        UNLOADCAST
        go movie moviename
        exit
      end if
    end if
  end if
end texthasquestions

on textnoquestions
  global returnframe,goforward,MOVIENAME
  ansques(1)
  if returnframe<=the frame then set returnframe=the frame
  if not the soundenabled then
    pause
  else
    if marker(0)<>label("end") then
      go marker(1) -1
    else
      UNLOADCAST
      go movie moviename
    end if
  end if

end textnoquestions

on GetOut
  global questions,scoremovie,menumovie,RETURNFRAME,HOLDRETURNFRAME,QA,wpath
  sound stop 1
  when keydown then nothing
  SET RETURNFRAME=0
  SET HOLDRETURNFRAME=0
  SET QA=0
  if questions=1 then go movie SCOREMOVIE
  if questions=0 then go  frame wpath of movie menumovie
end GetOut


--FOR THE SOUND ON AN OFF BUTTON
on changesound x
  if x then set the soundenabled=not the soundenabled
  PUPPETSPRITE 21,TRUE
  if the soundenabled=false then
    set the castnum of sprite 23 to ¼
the number of cast "nomusica"
  else
    set the castnum of sprite 23 to the number of cast "musica"
  end if
  if the frame=marker(0)+1 then
    go marker(0)
  end if
  updatestage
end changesound

--FOR THE TEXT ON AN OFF BUTTON
on changetext
  global textoff
  puppetsprite 21,true
  if textoff=1 then
    set the castnum of sprite 21 to the number of cast "Text Off"
    puppetsprite 2, true
    puppetsprite 18,true
    set the locV of sprite 2 to -500
    set the locV of sprite 18 to -500
  else
    set the castnum of sprite 21 to ¼
  the number of cast "Text On"
    puppetsprite 2, false
    puppetsprite 18,false
    if the frame=marker(0)+1 then go the frame
    updatestage
  end if
  updatestage
end changetext



-- make sure you put when keydown then nothing in getout handler
on hideallbuttons state
  repeat with buttons=19 to 24
    puppetsprite buttons,true
    set the type of sprite buttons to state
  end repeat
  if not the soundenabled then go the frame
  updatestage
end hideallbuttons

-- else if (the keycode=49 or the key=" ") and (THE FRAME<MARKER("END")-1) then  --lastmovie
--else if the keycode=124 AND THE FRAME<MARKER("END") then goahead --LAST MOVIE

on checkkey --**
  global spacehit,textoff,OK

  if the key="s" or the key="S" then DOBUTTON 21, "changesound 1",1
  else if the keycode=124 then DOBUTTON 24,"GOAHEAD",1
  else if the keycode=123 then DOBUTTON 19,"GOBACK",1
  else if the key>="1" and the key <="7" then set the soundlevel=value(the key)
  else if the key="t" or the key="T" then
    set textoff= not textoff
    DOBUTTON 20,"CHANGETEXT",1
  else if (the keycode=49 or the key=" ") and (the frame >= marker("1")) then
    if spacehit=0 then
      hideallbuttons 0
      set spacehit=spacehit+1
    else
      if spacehit=1 then
        hideallbuttons 1
        set spacehit=0
      end if
    end if
  end if

  dontpassevent

end checkkey


on fixpuppets
  changetext
  changesound 0
  when keydown then checkkey
end fixpuppets

on texit
  puppetsprite 20,true
  set the castnum of sprite 20 to ¼
the number of cast "Text Off"
  puppetsprite 2, true
  puppetsprite 18,true
  set the loch of sprite 2 to -500
  set the loch of sprite 18 to -500
end texit



on setpuppets state
  repeat with buttons=19 to 24
    puppetsprite buttons,state
  end repeat
end setpuppets

on normpause
  global returnframe
  if the frame=returnframe then  SET QA=0
  pause
end normpause


on ansques i
  global qa,returnframe
  set qa=i
  if returnframe<the frame then set returnframe=the frame
  WHEN MOUSEDOWN THEN NOTHING
  When keydown then checkkey
end ansques

on clearvariables all
  global clicked,goforward
  if all then
    put 0 into clicked
    put 0 into goforward
  else
    put 0 into clicked
    put 1 into goforward
  end if
end clearvariables

on wrongans a
  --wrong answer expl normal
  global wrong,goforward,returnframe
  starttimer
  set the timeoutLength to 30*60
  set the timeOUtScript to "goahead"
  if returnframe< the frame then put wrong+1.0 into wrong
  else clearvariables(0)
  if a=2 then ansques ("2nd")
  else ansques (1)
  pause
end wrongans

on correctans a
  --correct answer normal
  global numr,goforward,returnframe
  starttimer
  set the timeoutLength to 30*60
  set the timeOUtScript to "goahead"
  if returnframe< the frame then put numr+1.0 into numr
  else clearvariables(0)
  if a=2 then ansques ("2nd")
  else ansques (1)
  pause
end correctans

on wrong2follow
  --wrong answer expl with passage question to follow
  global wrong,goforward,returnframe
  starttimer
  set the timeoutLength to 30*60
  set the timeOUtScript to "goahead"
  if returnframe< the frame then
    put wrong+1.0 into wrong
  else
    clearvariables(1)
  end if
  ansques(3)
  pause
end wrong2follow

on corr2follow
  global numr,goforward,returnframe
  starttimer
  set the timeoutLength to 30*60
  set the timeOUtScript to "goahead"
  if returnframe< the frame then put numr+1.0 into numr
  else clearvariables(1)
  ansques (3)
  pause
end corr2follow


--END MOVIE SCRIPT 11/6/93, Part 2, 3, or 4 of movie