Komputer for Alle 2003 #5/K-CD-5-2003.ISO/Layout/data1.cab/QuickTours/QT16WEB.EXE/QT16WEB.dxr/00024.ls

Text File | 2002-07-29 | 774 b | 35 lines

on enterFrame
  global anim
  if (anim = 0) and (the frame < 9) then
    put the frame into word 1 of field 23
  end if
  if the frame = 1 then
    if the memberNum of sprite 18 <> 18 then
      set the memberNum of sprite 18 to 18
      set the memberNum of sprite 17 to 19
      set the memberNum of sprite 16 to 15
    end if
  else
    set the memberNum of sprite 18 to 9
    set the memberNum of sprite 17 to 12
    if the frame = the lastFrame then
      set the memberNum of sprite 16 to 20
    else
      set the memberNum of sprite 16 to 15
    end if
  end if
  updateStage()
  if anim = 0 then
    pause()
  end if
end

on idle
  if rollOver(15) or rollOver(16) or rollOver(17) or rollOver(18) then
    cursor([84, 85])
  else
    cursor(0)
  end if
  pass()
end