home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / WSAV / DALEKSAV.ZIP / CONTROL.DIR / 00005_Script_5 next >
Text File  |  1997-01-02  |  2KB  |  90 lines
  1.  
  2.  
  3. on mouseup
  4.   
  5.   repeat with n=17 to 22
  6.     put the text of member n of castlib "stuff" into c
  7.     put c into member n of castlib "data"
  8.   end repeat
  9.   
  10.   put the text of member 25 of castlib "stuff" into c
  11.   put c into member 25 of castlib "data"
  12.   
  13.   repeat with n=27 to 33
  14.     put the text of member n of castlib "stuff" into c
  15.     put c into member n of castlib "data"
  16.   end repeat  
  17.   
  18.   
  19.   save castlib "data"
  20. end 
  21.  
  22.  
  23. on exitFrame
  24.   if getat (k,1)=0 then
  25.     set the loch of sprite 4 to integer(the text of member 33)
  26.     
  27.     set the loch of sprite 13 to integer(the text of member 31)
  28.     set the loch of sprite 14 to integer(the text of member 30)
  29.     set the loch of sprite 15 to integer(the text of member 29)
  30.     
  31.     set the loch of sprite 29 to integer(the text of member 27)
  32.   end if
  33.   setat k,1,1
  34.   
  35.   
  36.   PUPPETSPRITE 4, TRUE
  37.   SET THE MOVEABLESPRITE OF SPRITE 4 TO TRUE
  38.   SET THE CONSTRAINT OF SPRITE 4 TO 2
  39.   SET numb TO THE LOCH OF SPRITE 4
  40.   PUT numb INTO MEMBER 33
  41.   SET numb=numb-190
  42.   set numb=integer(numb*.45)
  43.   put numb into member 18
  44.   
  45.   
  46.   PUPPETSPRITE 13, TRUE
  47.   SET THE MOVEABLESPRITE OF SPRITE 13 TO TRUE
  48.   SET THE CONSTRAINT OF SPRITE 13 TO 7
  49.   SET hide TO THE LOCH OF SPRITE 13
  50.   PUT hide INTO MEMBER 31
  51.   set hide=hide-187
  52.   set hide=100-integer(hide*1.124)
  53.   set hide to hide*200
  54.   put hide into member 20
  55.   
  56.   PUPPETSPRITE 14, TRUE
  57.   SET THE MOVEABLESPRITE OF SPRITE 14 TO TRUE
  58.   SET THE CONSTRAINT OF SPRITE 14 TO 8
  59.   SET follow TO THE LOCH OF SPRITE 14
  60.   PUT follow INTO MEMBER 30
  61.   set follow=follow-188
  62.   set follow=100-integer(follow*1.124)
  63.   set follow =follow*200+1
  64.   put follow into member 21
  65.   
  66.   PUPPETSPRITE 15, TRUE
  67.   SET THE MOVEABLESPRITE OF SPRITE 15 TO TRUE
  68.   SET THE CONSTRAINT OF SPRITE 15 TO 9
  69.   SET flock TO THE LOCH OF SPRITE 15
  70.   PUT flock INTO MEMBER 29
  71.   set flock=flock-188
  72.   set flock=100-integer(flock*1.124)
  73.   set flock =(flock)*100+10
  74.   put flock into member 22
  75.   
  76.   
  77.   PUPPETSPRITE 29, TRUE
  78.   SET THE MOVEABLESPRITE OF SPRITE 29 TO TRUE
  79.   SET THE CONSTRAINT OF SPRITE 29 TO 28
  80.   SET spread TO THE LOCH OF SPRITE 29
  81.   PUT spread INTO MEMBER 27
  82.   SET spread=spread-190
  83.   set spread=integer(spread*1.124)
  84.   PUT spread INTO MEMBER 25
  85.   
  86.   
  87.   go to the frame
  88. end
  89.  
  90.