home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / pc / tutorial / jscript / yrmovie.dcr / 00107.ls < prev    next >
Encoding:
Text File  |  1996-11-14  |  357 b   |  25 lines
  1. on exitFrame
  2.   set Nmm to random(4)
  3.   if Nmm = 1 then
  4.     go("blk1")
  5.   else
  6.     if Nmm = 2 then
  7.       blnkCreeps()
  8.     else
  9.       go(marker(0))
  10.     end if
  11.   end if
  12. end
  13.  
  14. on blnkCreeps
  15.   if the castNum of sprite 13 = 76 then
  16.     go("blk2")
  17.   else
  18.     if the castNum of sprite 13 = 87 then
  19.       go("blk3")
  20.     else
  21.       go(marker(0))
  22.     end if
  23.   end if
  24. end
  25.