home *** CD-ROM | disk | FTP | other *** search
/ Enter 2003: The Beautiful Scenery / enter-parhaat-2003.iso / files / frendz.exe / frendz.dcr / Scripts_44_p_MessageBox.ls < prev    next >
Encoding:
Text File  |  2002-12-31  |  633 b   |  23 lines
  1. property mb_BoxSprite, mb_BorderSprite, mb_TextSprite
  2.  
  3. on new me, box, border, text
  4.   mb_BoxSprite = box
  5.   mb_BorderSprite = border
  6.   mb_TextSprite = text
  7.   return me
  8. end
  9.  
  10. on mb_BoxSize me, mb_BoxReg, mb_BorderReg, mb_TextReg, mb_BoxW, mb_BoxH, mb_BorderW, mb_BorderH
  11.   sprite(mb_BoxSprite).loc = mb_BoxReg
  12.   sprite(mb_BorderSprite).loc = mb_BorderReg
  13.   sprite(mb_TextSprite).loc = mb_TextReg
  14.   sprite(mb_BoxSprite).width = mb_BoxW
  15.   sprite(mb_BoxSprite).height = mb_BoxH
  16.   sprite(mb_BorderSprite).width = mb_BorderW
  17.   sprite(mb_BorderSprite).height = mb_BorderH
  18. end
  19.  
  20. on mb_text me, text
  21.   member("t_MessageBoxText").text = text
  22. end
  23.