home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 November / chip_special1.iso / _word / Inter.dxr / 01645_Field_1645.txt < prev    next >
Text File  |  1998-10-18  |  1KB  |  44 lines
  1. on mouseUp
  2.   global bSceny     
  3.   set rzad=70
  4.   repeat with x=1 to 10
  5.     setAt bSceny,x,0
  6.   end repeat
  7.   repeat with x=1 to 57
  8.     setAt bFajki,x,0
  9.   end repeat  
  10.   repeat with b=1 to 10
  11.     repeat with a=1 to 5
  12.       set the blend of sprite rzad+a to 10
  13.     end repeat
  14.     set rzad=rzad+5
  15.   end repeat
  16.   --  set the locH of sprite (8) to (the locH of sprite (8))-8
  17.   --  set the locV of sprite (8) to (the locH of sprite (8))-8    
  18.   
  19.   -- set the locV of sprite (15) to the mouseV
  20.   set the locH of sprite (8) to 500
  21.   set the locV of sprite (8) to 385
  22.   puppetSprite 8, FALSE
  23. end
  24.  
  25. on mouseDown
  26.   --  set the locH of sprite (8) to (the locH of sprite (8))+8
  27.   --  set the locV of sprite (8) to (the locH of sprite (8))+8 
  28.   puppetSprite 8, true
  29.   set the locH of sprite (8) to 503
  30.   set the locV of sprite (8) to 388
  31. end 
  32.  
  33. on mouseUpOutside
  34.   go to "start1_"  
  35.   set the locH of sprite (8) to 500
  36.   set the locV of sprite (8) to 385
  37. end mouseUpOutside
  38.  
  39. on mouseLEave  
  40.   set the locH of sprite (8) to 500
  41.   set the locV of sprite (8) to 385
  42.   
  43.   go to "start1_"
  44. end