Greatest Childrens Stories Ever Told/Greatest_Stories.iso/movies/pinochio/shared.dir/01011_Script_miaw

Text File | 1994-11-07 | 1KB | 68 lines

--update 10/11/94 ch2/tales
--exit and help movie
ON SHOWMyWindow
  GLOBAL myWindow,helpmovie,mainDir
  sound stop 1
  pause
  set whichmovie="win"
  set horz = the stageleft + 110
  set vert = the stagetop + 83
  set horzT=horz+288
  set vertB=vert+188
  if objectP(myWindow) then forget(myWindow)
  set windowbx to rect(horz,vert,horzT,vertB)
  set myWindow to window whichmovie
  set the rect of myWindow to windowbx
  set the filename of myWindow to"win.dir"
  set the titleVisible of myWindow to FALSE
  set the modal of window whichmovie to true
  when mousedown then whilewindowopen horz,vert,horzT,vertB
  open myWindow
end

--user cannot click beyon the exit or name box
on whilewindowopen horz,vert,horzT,vertB
  if the mouseH>horz or the mouseH<horzT then
    beep 1
    dontpassevent
  else
    if the mouseV<vert or the mouseV>vertB then
      beep 1
      dontpassevent
    else
      when mousedown then nothing
    end if
  end if
end whilewindowopen

on finishWindow
  global myWindow
  if objectP(myWindow) then forget myWindow
  when mousedown then nothing
end

--corrects the problem of the dragon window staying on screen
on No
  finishwindow
  when KEYDOWN then CHECKKEY
  GO THE FRAME
end


on backfromHelp

  set the VISIBLE of window "help.screen" to FALSE
  finishwindow
  go the frame
end


on Yes
  global mywindow
  set the VISIBLE of window "win" to FALSE
  SETPUPPETS FALSE
      GetOut()
end