home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00934_Script_Rver < prev    next >
Text File  |  1987-04-12  |  362b  |  16 lines
  1. on Rver R, EXC, B,H,V
  2.   cursore
  3.   put R-12 into A
  4.   set the castNum of sprite EXC = the castNum of sprite A
  5.   set the castNum of sprite A = the number of cast "000.pic"
  6.   set the locH of sprite B = H
  7.   set the locV of sprite B = V
  8.   updatestage  
  9.   repeat while rollover(R)
  10.     if the mousedown then
  11.       exit repeat
  12.     end if
  13.   end repeat
  14. end
  15.  
  16.