home *** CD-ROM | disk | FTP | other *** search
/ Innerspace / Innerspace.iso / INNERPRJ.EXE / INNERPRJ.DXR / 00133.ls < prev    next >
Encoding:
Text File  |  1994-12-14  |  353 b   |  16 lines
  1. on mouseDown
  2.   global idxCatName, theCast
  3.   button(EMPTY)
  4.   makePuppet(2, 31, 0)
  5.   set temp to the clickOn
  6.   set suff to temp - 12
  7.   if suff < 10 then
  8.     set idxCatName to "Hshold0" & suff & ".pct"
  9.     set theCast to "Hshold0" & suff
  10.   else
  11.     set idxCatName to "Hshold" & suff & ".pct"
  12.     set theCast to "Hshold" & suff
  13.   end if
  14.   go("idxDisp")
  15. end
  16.