What PC? 1998 July/WPCJUL98.ISO/DXRS/BUYERS07.DXR/Internal_4.ls

Text File | 1998-05-11 | 1.1 KB | 26 lines

on drawHighLight s
  global SpriteHighlight
  set t to the top of sprite s
  set B to the bottom of sprite s
  set r to the right of sprite s
  set l to the left of sprite s
  set the rect of sprite SpriteHighlight to rect(l, t, r, t + 1)
  set the rect of sprite (SpriteHighlight + 1) to rect(r - 1, t, r, B)
  set the rect of sprite (SpriteHighlight + 2) to rect(l, B, r, B - 1)
  set the rect of sprite (SpriteHighlight + 3) to rect(l, t, l + 1, B)
  set the rect of sprite (SpriteHighlight + 4) to rect(r, t + 2, r + 2, B + 2)
  set the rect of sprite (SpriteHighlight + 5) to rect(l + 2, B, r + 2, B + 2)
  updateStage()
end

on HideHighLight
  global SpriteHighlight
  set the rect of sprite (SpriteHighlight + 0) to rect(0, 0, 0, 0)
  set the rect of sprite (SpriteHighlight + 1) to rect(0, 0, 0, 0)
  set the rect of sprite (SpriteHighlight + 2) to rect(0, 0, 0, 0)
  set the rect of sprite (SpriteHighlight + 3) to rect(0, 0, 0, 0)
  set the rect of sprite (SpriteHighlight + 4) to rect(0, 0, 0, 0)
  set the rect of sprite (SpriteHighlight + 5) to rect(0, 0, 0, 0)
  updateStage()
end