home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00903_Script_Raut < prev    next >
Text File  |  1987-04-12  |  957b  |  43 lines
  1. on Raut R
  2.   Cursore
  3.   put 0 into flag
  4.   put R-12 into A
  5.   put R-6 into B
  6.   put the locH of sprite A into hA
  7.   put the locH of sprite B into hB
  8.   puppetSprite A,1
  9.   puppetSprite B,1
  10.   repeat with k = 1 to 5
  11.     set the locH of sprite A =hA-k*10
  12.     set the locH of sprite B =hB+k*10
  13.     updatestage
  14.     if the mousedown then 
  15.       put 1 into Flag
  16.       EXIT REPEAT
  17.     END IF
  18.   end repeat 
  19.   if flag<>1 then
  20.     repeat while rollover(R)
  21.       if the mousedown then
  22.         put 1 into Flag
  23.         exit repeat
  24.       end if
  25.     end repeat
  26.     repeat with k = 3 down to 1
  27.       set the locH of sprite A = hA-k*15
  28.       set the locH of sprite B = hB+k*15
  29.       updatestage
  30.     end repeat 
  31.     puppetSprite A,0
  32.     puppetSprite B,0
  33.    else
  34.     suonainterruttore
  35.     repeat with k = 10 down to 1
  36.       set the blend of sprite B = k*10
  37.       set the blend of sprite A = k*10
  38.       updatestage
  39.     end repeat
  40.   end if
  41. end
  42.  
  43.