GameStar 1998 November (Bonus)/GAMESTAR11B.ISO/ENCYC99/MM/T620272A.DCR/Scripts_22.ls

Text File | 1998-06-29 | 919 b | 29 lines

global cursorGod, KeyMaster, ScrollBar, theBrain, calcButton

on exitFrame
  set bgSprite to 3
  set upSprite to 4
  set downSprite to 5
  set grabberSprite to 6
  set scrolledSprite to 1
  set scrolledLineHeight to 18
  set ScrollBar to new(script "Class ScrollBar", "light", bgSprite, upSprite, downSprite, grabberSprite, scrolledSprite, scrolledLineHeight)
  subscribe(ScrollBar, cursorGod)
  set the cursor of sprite 20 to 1
  set the cursor of sprite 21 to 1
  set theBrain to new(script "Class InterestCalculator")
  set calcButton to new(script "Class PictButton", 7)
  set pictList to [member "CalcOn", member "CalcUp", member "CalcDown", member "CalcOff"]
  setPicts(calcButton, pictList)
  linkUp(calcButton, theBrain, #calculate)
  subscribe(calcButton, cursorGod)
  turnOff(calcButton)
  linkUp(KeyMaster, calcButton, theBrain)
  go(2)
  set the stageColor to the stageColor
end

on keyDown
  nothing()
end