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

Text File | 1997-10-14 | 2KB | 55 lines

------------- PARAMETRI
------------- CONDIZIONE: mettere in fila le zone sensibili e poi gli hilite

------------- dacast = primo cast dove sono posizionate le zone sensibili
------------- quanti = numero degli hilite presenti sul cast
------------- primocan = primo canale su cui sono posizionate le zone sensibili
------------- primascritta = primo canale su cui sono posizionate le scritte degli hilite
-------------------------------------------------------------------------------------------------------------------

on ATT_HILITEC dacast, quanti, primocan, primascritta
  global bloc,attore,men,MENUBAR
  set elewin to string (the windowlist)
  if offset ("popup",elewin) > 0 then
    if the visible of window "popup" = true then exit
  end if

  if the visible of MENUBAR then exit

  if bloc = false then


    repeat while the mousecast >=dacast and the mousecast <= dacast + quanti - 1
      set miohilite = the mousecast
      if miohilite >=dacast and miohilite <= dacast + quanti - 1 then
        repeat with mm = 1 to quanti
          set the castnum of sprite (primocan + mm - 1) to (dacast + mm -1)
          if not voidp (primascritta) then
            set the visible of sprite (primascritta+mm-1) to false
          end if

        end repeat
        set the castnum of sprite (miohilite-dacast+primocan) to (miohilite+quanti)
        if not voidp (primascritta) then
          set the visible of sprite (miohilite-dacast+primascritta) to true
        end if

        updatestage
      end if
    end repeat


    if the mousecast < dacast or the mousecast >= dacast + 2*quanti then
      repeat with mm = 1 to quanti
        set the castnum of sprite (primocan + mm - 1) to (dacast + mm -1)
        if not voidp (primascritta) then
          set the visible of sprite (primascritta+mm-1) to false
        end if
      end repeat
    end if
  end if
end