home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Mare / SHAREDM.CST / 03101_Script_3101 < prev    next >
Text File  |  1997-09-15  |  505b  |  34 lines
  1.  
  2. on crea_lista mar
  3.   set lista to []
  4.   go mar
  5.   if mar<>"menu" then
  6.     set m to marker(0)
  7.     set m to m+1
  8.     go m
  9.   end if
  10.   
  11.   
  12.   set cambio to 0
  13.   repeat with x=1 to 48
  14.     set y to the castnum of sprite x
  15.     if y=0 and cambio=1 then 
  16.       add lista, x-1
  17.       set cambio to 0
  18.     else
  19.       if y>0 and cambio=0 then 
  20.         add lista, x
  21.         set cambio to 1
  22.       end if
  23.     end if
  24.   end repeat
  25.   if y>0 then
  26.     add lista, 48
  27.   end if
  28.   return lista
  29. end
  30.  
  31.  
  32.  
  33.  
  34.