home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / multi / singing / shared.dxr / 01974_TRACEHIT.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  254 b   |  10 lines
  1. on TraceHit
  2.   global textSpr
  3.   set hit to the clickOn
  4.   if the blend of sprite hit > 0 then
  5.     set posn to hit - FirstSocketSprite() + 1
  6.     set newarticle to GoBackTo(posn)
  7.     set the castNum of sprite textSpr to phraseLookUp(newarticle)
  8.   end if
  9. end
  10.