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