home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / winprogs / childenc / oecdemo / nucpwr.dir / 00002.ls < prev    next >
Encoding:
Text File  |  1996-07-24  |  507 b   |  17 lines
  1. on exitFrame
  2.   global genHotSpots, keyHotspots, noteData, markerlist, CR
  3.   set x to the number of lines in markerlist
  4.   repeat with n = 1 to x
  5.     if marker(0) = value(line 1 of markerlist) then
  6.       set lineNo to n
  7.       exit repeat
  8.     end if
  9.   end repeat
  10.   set theCastName to "p" & lineNo && "hotspots"
  11.   set keyHotspots to the text of cast theCastName
  12.   set noteData to line 1 of keyHotspots
  13.   delete item 1 to 6 of noteData
  14.   set keyHotspots to genHotSpots & CR & keyHotspots
  15.   puppetSprite(5, 1)
  16. end
  17.