home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / mrmore.dir / 00027.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  691 b   |  20 lines
  1. on mouseDown
  2.   global gnFirstSprite
  3.   ClosePopup()
  4.   set nTextVPos to the locV of sprite the clickOn
  5.   set nTextHeight to the textHeight of field the castNum of sprite the clickOn
  6.   set n to ((the mouseV - nTextVPos) / nTextHeight) + 1
  7.   if n < 1 then
  8.     exit
  9.   end if
  10.   set sFontName to line n of the text of field the castNum of sprite the clickOn
  11.   if sFontName = EMPTY then
  12.     exit
  13.   end if
  14.   set sFileName to "clips\font\" & MakeFontFileName(sFontName) & ".bmp"
  15.   set the puppet of sprite (gnFirstSprite + 2) to 1
  16.   set the locV of sprite (gnFirstSprite + 2) to nTextVPos + (nTextHeight * n) - (nTextHeight / 2)
  17.   updateStage()
  18.   LoadPopup("font", sFontName, sFileName, EMPTY, 0)
  19. end
  20.