home *** CD-ROM | disk | FTP | other *** search
/ Jurassic Jigsaws / JURASSIC.BIN / mmvdemo.dir / 00027_Script_carnyscript < prev    next >
Text File  |  1996-09-24  |  501b  |  27 lines
  1.  
  2.  
  3. property pAnimation, pAnimnum, pnamestring, 
  4.  
  5.  
  6. global carnyspotlist
  7.  
  8.  
  9. on birth me, namestring, animnum
  10.   
  11.   set pAnimNum = animnum
  12.   set pAnimation = 1
  13.   set pnamestring = namestring
  14.   
  15. end birth
  16.  
  17.  
  18. on dohotspot whichone
  19.   --  property pAnimation
  20.   set frameplay = string (pnamestring) & string(pAnimation)
  21.   alert "about to play " & frameplay
  22.   play frame frameplay
  23.   if pAnimation < pAnimNum then set pAnimation = pAnimation + 1
  24.   else set pAnimation = 1
  25.   
  26. end dohotspot
  27.