home *** CD-ROM | disk | FTP | other *** search
/ InterNet Essentials for Pharmacists / InterNet Essentials for Pharmacists.iso / InterNet.exe / InterNet.dxr / 00024_setRes.ls < prev    next >
Encoding:
Text File  |  2000-11-16  |  358 b   |  17 lines
  1. property spriteNum
  2.  
  3. on mouseUp me
  4.   nameOfSprite = (the member of sprite spriteNum).name
  5.   if chars(nameOfSprite, 1, 3) = "640" then
  6.     setVidButton("640")
  7.   else
  8.     if chars(nameOfSprite, 1, 3) = "400" then
  9.       setVidButton("400")
  10.     else
  11.       if chars(nameOfSprite, 1, 3) = "320" then
  12.         setVidButton("320")
  13.       end if
  14.     end if
  15.   end if
  16. end
  17.