What PC? 1996 August/WPCAUG96.ISO/faewaug.dxr/00115_FAEDuringPreview.ls

Text File | 1996-06-14 | 823 b | 32 lines

on FAEDuringPreview
  global FAEPMouseDown, FAEPreviewCounter
  repeat with d = 10 to 12
    if rollOver(d) then
      cursor(283)
      if the mouseDown and (FAEPMouseDown = 0) then
        set FAEPreviewCounter to 1 + FAEPreviewCounter
        if FAEPreviewCounter < 5 then
          set FAEPMouseDown to 1
          repeat with t = 11 to 12
            set the castNum of sprite t to the castNum of sprite t + 1
          end repeat
          updateStage()
        else
          exit repeat
        end if
      end if
      if the mouseUp then
        set FAEPMouseDown to 0
      end if
    end if
  end repeat
  if not rollOver(10) and not rollOver(11) and not rollOver(12) then
    cursor(-1)
  end if
  if FAEPreviewCounter = 5 then
    set FAEPreviewCounter to 0
    cursor(-1)
    FAELeavePreview()
  end if
end