home *** CD-ROM | disk | FTP | other *** search
/ 3D Games (Spidla) / 3dhry2.iso / InterBingo 1.0 / InterBingoSetup.exe / InstallResource.swf / scripts / DefineSprite_108 / frame_1 / DoAction.as
Encoding:
Text File  |  2002-07-25  |  380 b   |  14 lines
  1. function SetScrollPos()
  2. {
  3.    var TotalPos = int(_parent.ScrollBG._height / this._height);
  4.    ScrollInc = _parent.Text.maxscroll / TotalPos;
  5.    var SlotPos = (this._y - top) / TotalPos / 2;
  6.    newpos = SlotPos * ScrollInc;
  7.    _parent.Text.scroll = newpos;
  8.    if(_parent.Text.scroll == _parent.Text.maxscroll)
  9.    {
  10.       _level0.ActivateAccept();
  11.    }
  12. }
  13. var ScrollInc;
  14.