Invenzioni E Inventori 1: Lavoro E Vita Quotidiana/invenzioni-inventori-1.iso/mac/Invenzio/Mare/SHAREDM.CST/03103_Script_3103

Text File | 1997-09-15 | 1KB | 38 lines

on spegni_su_icone
  global testo_aperto,principio_aperto,video_aperto

  if testo_aperto >0 then
    set pgm to the scripttext of cast testo_aperto
    set off1 to offset (" go",pgm)
    if off1>0 then
      set pgm to  ins_frase(char 1 to off1-1 of pgm,char off1 to length(pgm) of pgm,"spegni_canali")
    end if
    set the scripttext of cast testo_aperto to pgm
  end if



  if video_aperto >0 then
    set pgm to the scripttext of cast video_aperto
    set off1 to offset (" go",pgm)
    if off1>0 then
      set pgm to ins_frase(char 1 to off1-1 of pgm,char off1 to length(pgm) of pgm,"spegni_canali")
    end if
    set the scripttext of cast video_aperto to pgm
  end if



  if principio_aperto >0 then
    set pgm to the scripttext of cast principio_aperto
    set off1 to offset (" go",pgm)
    if off1>0 then
      set pgm to  ins_frase(char 1 to off1-1 of pgm,char off1 to length(pgm) of pgm,"spegni_canali")
    end if
    set the scripttext of cast principio_aperto to pgm
  end if


end