Greatest Childrens Stories Ever Told/Greatest_Stories.iso/movies/magic/pot2.dir/00513_Script_513

Text File | 1994-11-02 | 5KB | 206 lines

--MOVIE SCRIPT PART II-1/20, DELETE SET QUESTIONS IN FINAL VERSION
-- movie script for hidebuttons in last movie
-- for all non-language movies 6/17/93
-- add when keydown then nothing to getout
on startmovie
  global nextmovie,theRECT
  set theRECT=rect(the StageLeft+120,theStageTop+140,the StageLeft+408,the StageTop+218)
  fixpuppets
  set nextmovie=2
  when keydown then checkkey
end startmovie

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

on fixsprite state
  repeat with buttons=19 to 23
    set the type of sprite buttons to state
  end repeat
  set the type of sprite 20 to 1
  set the type of sprite 24 to 1
end fixsprite

on hideallbuttons state
  repeat with buttons=19 to 24
    puppetsprite buttons,true
    set the type of sprite buttons to state
  end repeat
  updatestage
end hideallbuttons

on checkkey
  global spacehit
  if (the keycode=49 or the key=" ") and the frame<marker("end") then
    if spacehit=0 then
      hideallbuttons 0
      set spacehit=spacehit+1
      --pause
    else

      if spacehit=1 then
        hideallbuttons 1
        set spacehit=0
      end if
    end if
  end if
end checkkey


on fixpuppets
  global textoff
  setpuppets true
  if the soundenabled=false then
    set the castnum of sprite 23 to ¼
the number of cast "nomusica"
  end if
  if textoff=1 then
    texit()
  end if
  updatestage
  PRELOAD MARKER (0)
end fixpuppets

on texit
  --puppetsprite 21,true
  set the castnum of sprite 21 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



--REPLACE OLD ANSQUES WITH THIS NEW SCRIPT IN MOVIE SCRIPT
-- GREATEST CHILD
on ansques i
  global qa,done
  set qa=i
  WHEN MOUSEDOWN THEN NOTHING
end ansques

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

--place this in the movie script 12/10
on messageWindow
  global loadWindow,PopWindow
  when mousedown then whilewindowopen
  set loadWindow=PopWindow(mNew)
  if loadWindow=0 then
    alert"Error:  Window will not load"
    exit
  end if
end messageWindow

on whilewindowopen
  --185,170,310,100

  if the mouseH>310 or the mouseH<185 then
    beep 1
    dontpassevent
  else
    if the mouseV<170 or the mouseV>100 then
      beep 1
      dontpassevent
    else
      when mousedown then nothing
    end if
  end if
end whilewindowopen

on setWindowObj windowPart,left,top,width,height
  windowPart(mMove,left,top)
  windowpart(mSize,width,height)
  windowPart(mShow)
end setWindowObj


on GetOut
  global questions,mpath
  when keydown then nothing
  if questions=1 then go movie mpath & "MENUS\SCOREStr.dir"
  if questions=0 then  go movie mpath & "MENUS\StorySub.dir"
end GetOut


factory PopWindow
method mNew
  global Windowhandler,windowNum
  set theWindow=Window(mNew,#altDialog,"")
  theWindow(mSetHandler,WindowHandler(mNew,theWindow))
  me(mPut,1,theWindow)

  --ò replace this in movie script
  --setWindowObj(theWindow,185,170,310,100)
  setWindowObj(theWindow,the stageLeft+110,the stageTop+120,310,100)

  set part=Panel(mNew,#castBitmap,"",#Text,theWindow)
  part(mSetValue,the number of cast "Are you sure")
  setWindowObj(part,20,10,250,15)
  set part=Panel(mNew,#pushButton,"Yes",#Yes,theWindow)
  setWindowObj(part,20,50,115,25)

  set part=Panel(mNew,#pushButton,"No",#No,theWindow)
  setWindowObj(part,170,50,115,25)

  theWindow(mShow)

factory WindowHandler

method mNew Window
  instance myWindow, state, WindowID
  set myWindow = Window
  set WindowID = 1


method mMouseUP part, h, v
  if part <>0 then me(mPerform, part)


method No
  global exit
  set exit=0
  when mousedown then nothing
  myWindow(mDispose)

method Yes
  global exit
  sound stop 1
  set exit=0
  when mousedown then nothing
  myWindow(mDispose)
  GetOut()

method Text
  set panelObject=myWindow(mGetPanel,#Text)
  --me(mSetCast,d38)
  panelObject(mSetValue,H71)
  panelObject(mUpdate)


method Nothing
  exit


method mMouseDown part, h,v
  return false

  -- Update message is sent when the window is in need of repair.

method mUpdate