home *** CD-ROM | disk | FTP | other *** search
/ cyber.net 2 / cybernet2.ISO / dkdemo / rev.dir / 00003_Script_3 < prev    next >
Text File  |  1995-04-04  |  369b  |  17 lines
  1. on exitFrame
  2.   global AorR
  3.   global x, y
  4.   repeat while the mousecast < 53 and the mousecast > 46
  5.     if x <> y then
  6.       put x into y
  7.       puppetsound "click"
  8.     end if
  9.     put the mousecast into x
  10.     puppetsprite 1, 0
  11.     puppetsprite 13, 0
  12.     if x < 53 and x > 46 then go string(the name of cast x&AorR)
  13.       
  14.   end repeat
  15.   go the frame
  16.   
  17. end