Disney Interactive Software Sampler 1998 to 1999/DISNEY99.ISO/Media/SSaver/INSTALL.EXE/INSTALL.dxr/00056.ls

Text File | 1998-11-04 | 354 b | 25 lines

global gExitList, gTrueList

on startMovie
  set gExitList to []
  set gTrueList to [3, 46, 13, 17, 34]
end

on keyDown
  if the keyCode = 49 then
    set gExitList to []
  else
    set x to the keyCode
    append(gExitList, x)
    compareLists()
  end if
end

on compareLists
  if gExitList = gTrueList then
    quit()
  else
    nothing()
  end if
end