What PC? 1996 August/WPCAUG96.ISO/gtswaug.dxr/00016_GTSDuringPreview.ls

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

on GTSDuringPreview
  global GTSPMouseDown, GTSPreviewCounter
  repeat with d = 10 to 12
    if rollOver(d) then
      cursor(283)
      if the mouseDown and (GTSPMouseDown = 0) then
        set GTSPreviewCounter to 1 + GTSPreviewCounter
        if GTSPreviewCounter < 5 then
          set GTSPMouseDown 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 GTSPMouseDown 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 GTSPreviewCounter = 5 then
    set GTSPreviewCounter to 0
    cursor(-1)
    GTSLeavePreview()
  end if
end