home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / CarribeanPoker.dxr / Objects_3_score.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  265 b   |  17 lines
  1. property pScore, pDisplay
  2.  
  3. on new me, theScore, theDisplay
  4.   me.pScore = theScore
  5.   me.pDisplay = theDisplay
  6.   return me
  7. end
  8.  
  9. on mAdjustScore me, aValue
  10.   pScore = pScore + aValue
  11.   me._updateDisplay()
  12. end
  13.  
  14. on _updateDisplay me
  15.   pDisplay.text = string(pScore)
  16. end
  17.