home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00922_Script_922 < prev    next >
Text File  |  1987-04-12  |  722b  |  30 lines
  1. on Rgioco nS, RIS
  2.   put ns+20 into nP
  3.   if the puppet of sprite nP = FALSE then
  4.     put 0 into FLAG
  5.     puppetSprite nP,1
  6.     set the locH of sprite nP = the locH of sprite nP - 9000
  7.     updatestage
  8.     repeat while rollover (ns)
  9.       CTRL
  10.       if the mousedown then
  11.         put 1 into FLAG
  12.         exit repeat
  13.       end if
  14.     end repeat
  15.     if FLAG=1 and RIS=1 then
  16.       global gF
  17.       put gF+1 into gF
  18.       put "@:spkgioco:" & "bravo" & string(gF) & ".aif" into SPK
  19.     else if FLAG=1 and RIS=0 then
  20.       puppetSprite nP,0
  21.       put "@:spkgioco:" & "errore1" into SPK
  22.     end if
  23.     if flag=1 then
  24.       sound playFile 3, SPK
  25.     else 
  26.       puppetSprite nP,0
  27.     end if
  28.   end if
  29. end
  30.