home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00932_Script_Rsec < prev    next >
Text File  |  1987-04-12  |  455b  |  21 lines
  1. on nRsec MW, NS, CN, FS
  2.   cursore
  3.   put 0 into FLAG
  4.   puppetSprite NS,1
  5.   set the castNum of sprite NS = the number of cast CN
  6.   if FS=1 then
  7.     Cursor [(the number of cast "Kvai"),(the number of cast "Kvaim")]
  8.   end if
  9.   updatestage
  10.   repeat while the mouseWord=MW
  11.     if the mousedown and FS=1 then
  12.       put 1 into FLAG
  13.       exit repeat
  14.     end if
  15.   end repeat
  16.   if FLAG=0 then 
  17.     puppetSprite NS,0
  18.     updatestage
  19.   end if
  20. end
  21.