Invenzioni E Inventori 1: Lavoro E Vita Quotidiana/invenzioni-inventori-1.iso/mac/Invenzio/Indart.cst/00058_Script_58

Text File | 1997-10-14 | 1KB | 38 lines

on controlla_alberi num
  repeat with a = 1 to 48
    set b to the castnum of sprite a
    if b <> 0 then
      if the   casttype of member b =#shape then
        if char 1 of the name of member b= "m" then
          --          puppetsprite a, 1
          if char 2 of the name of member b = "p" then
            set the forecolor of sprite a to 159
            updatestage
          else
            set nome to item 1 of the name of member b
            if char 2 of the name of member b = "i" then
              set tr to trova_cd (nome,num)
              if tr = 0 then
                set the forecolor of sprite a to 35
                updatestage
              else
                set the forecolor of sprite a to 159
                updatestage
              end if
            else
              if char 2 of the name of member b = "s" then
                if trova_sottoinv (nome) = 0 then
                  set the forecolor of sprite a to 35
                  updatestage
                else
                  set the forecolor of sprite a to 159
                  updatestage
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end repeat
end