Introducing the New Way to Shop from Home/Iceland.iso/pc/internetaccess.dir/00400_Script_400

Text File | 2003-03-05 | 460b | 30 lines

on startMovie
  global MacOn
  if MacOn = 1 then
    nothing
  else
    set the exitLock = true
    startQuitMsg()
    set the keyDownScript = "myNoEscape"
  end if
  set the keyDownScript = "myNoEscape"
end

on quitMsg
  go to movie "closing"
end

on myNoEscape
  if the keyCode=53 then
    go to movie "closing"
  end if
end

on stopMovie
  global MacOn
  if MacOn = 1 then
    nothing
  else
    closeQuitMsg()
  end if
end