What PC? 1996 August/WPCAUG96.ISO/multi/singing/shared.dxr/01961_CURSORS.ls

Text File | 1996-06-12 | 4.6 KB | 285 lines

on left
  return -1
end

on right
  return -2
end

on Up
  return -3
end

on down
  return -4
end

on l
  return left()
end

on R
  return right()
end

on U
  return Up()
end

on D
  return down()
end

on LHSpageEdge
  return -99
end

on RHSpageEdge
  return -98
end

on LHStext
  return -199
end

on RHStext
  return -198
end

on PreLoadCursors
  preLoadCast("Left", "LastCursor")
end

on InitCursorNumbers
  global LeftCursorNum, RightCursorNum, UpCursorNum, DownCursorNum, ObjectCursorNum, OpenHandCursorNum, ClosedHandCursorNum, DocumentCursorNum, HoldPageCursornum, StopCursorNum, EarCursorNum
  set LeftCursorNum to the number of cast "Left"
  set RightCursorNum to the number of cast "Right"
  set UpCursorNum to the number of cast "Up"
  set DownCursorNum to the number of cast "Down"
  set ObjectCursorNum to the number of cast "hand"
  set OpenHandCursorNum to the number of cast "OpenHand"
  set ClosedHandCursorNum to the number of cast "ClosedHand"
  set DocumentCursorNum to the number of cast "document"
  set HoldPageCursornum to the number of cast "HoldPage"
  set StopCursorNum to the number of cast "Stop"
  set EarCursorNum to the number of cast "Ear"
end

on leftcursor
  global LeftCursorNum
  return LeftCursorNum
end

on rightcursor
  global RightCursorNum
  return RightCursorNum
end

on UpCursor
  global UpCursorNum
  return UpCursorNum
end

on DownCursor
  global DownCursorNum
  return DownCursorNum
end

on ObjectCursor
  global ObjectCursorNum
  return ObjectCursorNum
end

on OpenHandCursor
  global OpenHandCursorNum
  return OpenHandCursorNum
end

on ClosedHandCursor
  global ClosedHandCursorNum
  return ClosedHandCursorNum
end

on DocumentCursor
  global DocumentCursorNum
  return DocumentCursorNum
end

on HoldPageCursor
  global HoldPageCursornum
  return HoldPageCursornum
end

on StopCursor
  global StopCursorNum
  return StopCursorNum
end

on EarCursor
  global EarCursorNum
  return EarCursorNum
end

on LC
  return leftcursor()
end

on RC
  return rightcursor()
end

on UC
  return UpCursor()
end

on DC
  return DownCursor()
end

on OC
  return ObjectCursor()
end

on OH
  return OpenHandCursor()
end

on WatchCursor
  cursor(4)
end

on NoCursor
  cursor(200)
end

on SelectCursor cursCast
  cursor([cursCast, cursCast + 1])
end

on CheckLeft c
  global pointedAt
  set doit to the mouseH < 50
  if doit then
    SelectCursor(c)
    set pointedAt to left()
  end if
  return doit
end

on CheckRight c
  global pointedAt
  set doit to the mouseH > 590
  if doit then
    SelectCursor(c)
    set pointedAt to right()
  end if
  return doit
end

on CheckUp c
  global pointedAt
  set doit to the mouseV < 110
  if doit then
    SelectCursor(c)
    set pointedAt to Up()
  end if
  return doit
end

on CheckDown c
  global pointedAt
  set doit to the mouseV > 370
  if doit then
    SelectCursor(c)
    set pointedAt to down()
  end if
  return doit
end

on CheckSprite s, c
  global pointedAt
  set maybe to rollOver(s)
  set theCast to the castNum of sprite s
  if maybe then
    set doit to the mouseCast = theCast
    if doit then
      set pointedAt to s
      SelectCursor(c)
    end if
  end if
  return doit
end

on PointingAt n
  global pointedAt
  return pointedAt = n
end

on p n
  return PointingAt(n)
end

on PointAt n
  global pointedAt
  set pointedAt to n
end

on UpdateCursor patchList
  global pointedAt
  set doneCursor to 0
  repeat with patchPair in patchList
    set thePatch to getAt(patchPair, 1)
    set theCursor to getAt(patchPair, 2)
    if thePatch > 0 then
      set doneCursor to CheckSprite(thePatch, theCursor)
      if doneCursor then
        exit repeat
      end if
    end if
    if thePatch = left() then
      set doneCursor to CheckLeft(theCursor)
      if doneCursor then
        exit repeat
      end if
    end if
    if thePatch = right() then
      set doneCursor to CheckRight(theCursor)
      if doneCursor then
        exit repeat
      end if
    end if
    if thePatch = Up() then
      set doneCursor to CheckUp(theCursor)
      if doneCursor then
        exit repeat
      end if
    end if
    if thePatch = down() then
      set doneCursor to CheckDown(theCursor)
      if doneCursor then
        exit repeat
      end if
    end if
    if thePatch = LHSpageEdge() then
      set doneCursor to CheckLHSpageEdge(theCursor)
      if doneCursor then
        exit repeat
      end if
    end if
    if thePatch = RHSpageEdge() then
      set doneCursor to CheckRHSpageEdge(theCursor)
      if doneCursor then
        exit repeat
      end if
    end if
  end repeat
  if not doneCursor then
    cursor(0)
    set pointedAt to 0
  end if
end

on c l
  UpdateCursor(l)
end