home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00928_Script_Rmain < prev    next >
Text File  |  1987-04-12  |  235b  |  13 lines
  1. on nRmain R
  2.   cursore
  3.   put R-20 into P
  4.   pupmov P
  5.   updatestage  
  6.   repeat while rollover(R)
  7.     if the mousedown then
  8.       put 1 into flag
  9.       exit repeat
  10.     end if
  11.   end repeat
  12.   if flag <>1 then puppetSprite P,0
  13. end