home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Indart.cst / 00068_Script_68 < prev    next >
Text File  |  1997-10-14  |  1KB  |  55 lines
  1. on controlla_TIMELINE num
  2.   
  3.   repeat with a = 1 to 48
  4.     set b to the castnum of sprite a
  5.     if b <> 0 then
  6.       if the   casttype of member b =#shape then
  7.         set nome to item 1 of the name of member b
  8.         if char 1 to 2 of the name of member b= "ms" then
  9.           if trova_sottoinv (nome) = 0 then
  10.             set the forecolor of sprite a to 35
  11.             updatestage
  12.           else
  13.             
  14.             set the forecolor of sprite a to 113
  15.             updatestage
  16.           end if
  17.         else
  18.           set tipo to ""
  19.           set tipo = cercap_contr (nome)
  20.           put tipo
  21.           if tipo = "mp" or voidp(tipo) then
  22.             set the forecolor of sprite a to 113
  23.             updatestage
  24.           else
  25.             
  26.             if trova_cd (tipo,num) = 0 then
  27.               set the forecolor of sprite a to 35
  28.               updatestage
  29.             else
  30.               set the forecolor of sprite a to 113
  31.               updatestage
  32.             end if
  33.           end if
  34.         end if
  35.         
  36.       end if
  37.     end if
  38.   end repeat
  39. end
  40.  
  41. on cercap_contr parolal
  42.   
  43.   set dove to offset (parolal,field "rimandi")
  44.   if dove > 0 then
  45.     set mov to (char dove-4 to dove-2 of field "rimandi")&".dir"
  46.     set l to char dove-6 to dove-5 of field "rimandi"
  47.     
  48.     if l="mp" then 
  49.       return l
  50.     else
  51.       return "mi"&char 1 to 3 of mov
  52.     end if
  53.   end if
  54. end
  55.