home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Jargonb.dxr / 00115.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  1.7 KB  |  48 lines
  1. global LorR, linecount1, linecount2, listline1, listline2
  2.  
  3. on mouseUp
  4.   if LorR = "def1" then
  5.     if listline1 = the lineCount of member "blanklist1" then
  6.       exit
  7.     end if
  8.     set listline1 to listline1 + 1
  9.     set nextdef1 to line listline1 of the text of member "blanklist1"
  10.     put nextdef1 into field "defHeading"
  11.     if line 1 of the text of member nextdef1 of castLib "glossary" = ("$" & nextdef1) then
  12.       set picTempText to the text of member nextdef1 of castLib "glossary"
  13.       delete line 1 of picTempText
  14.       put picTempText into field "defTextpic"
  15.       set the locV of sprite 23 to 246
  16.       go(15)
  17.       puppetSprite(20, 1)
  18.       set the member of sprite 20 to member nextdef1 of castLib "image"
  19.     else
  20.       set the member of sprite 20 to "blankPic"
  21.       put the text of member nextdef1 of castLib "glossary" into field "defText"
  22.       set the locV of sprite 23 to 151
  23.       go(10)
  24.     end if
  25.   else
  26.     if listline2 = the lineCount of member "blanklist2" then
  27.       exit
  28.     end if
  29.     set listline2 to listline2 + 1
  30.     set Nextdef2 to line listline2 of the text of member "blanklist2"
  31.     put Nextdef2 into field "defHeading"
  32.     if line 1 of the text of member Nextdef2 of castLib "glossary" = ("$" & Nextdef2) then
  33.       set picTempText to the text of member Nextdef2 of castLib "glossary"
  34.       delete line 1 of picTempText
  35.       put picTempText into field "defTextPic"
  36.       set the locV of sprite 23 to 246
  37.       go(15)
  38.       puppetSprite(20, 1)
  39.       set the member of sprite 20 to member Nextdef2 of castLib "image"
  40.     else
  41.       set the member of sprite 20 to "blankPic"
  42.       put the text of member Nextdef2 of castLib "glossary" into field "defText"
  43.       set the locV of sprite 23 to 151
  44.       go(10)
  45.     end if
  46.   end if
  47. end
  48.