Sound, Music & MIDI Collection 2/SMMVOL2.bin/DEMO/PRG/CIRCLES.ZIP/CI_MAIN.DIX/00018_BRW2.ls

Text File | 1995-05-01 | 9.6 KB | 321 lines

on selwin texte, textg
  global fcommand, spritecount, up_lang
  sprite_save(47)
  sprite_save(48)
  set the castNum of sprite 47 to the number of cast "WINSEL"
  set the ink of sprite 47 to 0
  sprite_show(47, 235, 250)
  if up_lang = 2 then
    put textg into field "MSGTXT"
  else
    put texte into field "MSGTXT"
  end if
  setfont("MSGTXT")
  set the castNum of sprite 48 to the number of cast "MSGTXT"
  set the ink of sprite 48 to 1
  set the editableText of sprite 48 to 0
  sprite_show(48, 110, 215)
  updateStage()
  repeat while 1
    if the mouseDown then
      set x to the mouseH
      set y to the mouseV
      set mcast to the mouseCast
      set mb to EMPTY
      set debug to 0
      if (x >= 158) and (x <= 232) and (y <= 292) and (y >= 270) then
        set answer to 0
        exit repeat
      end if
      if (x >= 269) and (x <= 343) and (y <= 293) and (y >= 270) then
        set answer to 1
        exit repeat
      end if
    end if
  end repeat
  repeat while 1
    if not (the mouseDown) then
      exit repeat
    end if
  end repeat
  updateStage()
  sprite_blank(47)
  sprite_blank(48)
  updateStage()
  sprite_rest()
  sprite_rest()
  return answer
end

on selfname what
  global ecommand, spritecount, framecnt, enterFrame, backwhat, getmix_inst, up_save, sel_name, sel_extension, acwin, up_csave, up_lang, idsw
  if length(what) = 0 then
    set what to backwhat
  end if
  but_reflash()
  if idsw then
    if the machineType = 256 then
      alertrd("IDSW not in english", "In dem folgenden Fenster bitte" & " einen " & RETURN & "kompletten Pfad- und Dateinamen ohne Extension" & " eingeben." & RETURN & "Beispiel: C:\TEST\CIRCLE")
    else
      alertrd("IDSW not in english", "In dem folgenden Fenster bitte" & " einen " & RETURN & "kompletten Ordner- und Dateinamen" & " eingeben." & RETURN & "Beispiel: MacIntosh HD:TEST:CIRCLE")
    end if
  end if
  sprite_save(45)
  sprite_save(46)
  sprite_save(47)
  set getmix_inst to 1
  set sel_name to EMPTY
  if idsw then
    set the castNum of sprite 45 to the number of cast "SELFNAID"
  else
    set the castNum of sprite 45 to the number of cast "SELFNA"
  end if
  puppetSprite(45, 1)
  set the ink of sprite 45 to 0
  set the visible of sprite 45 to 1
  sprite_show(45, 235, 250)
  puppetTransition(9, 1, 5)
  if what = "CIRCLE" then
    set up_s to up_csave
  else
    set up_s to up_save
  end if
  if up_lang = 1 then
    put "Enter a " & what & " Filename." & RETURN into field "MSGTXT"
  else
    if idsw then
      if the machineType = 256 then
        put "Einen Drive-, Pfad- und Dateinamen eingeben." & RETURN into field "MSGTXT"
      else
        put "Einen Drive-, Ordner- und Dateinamen eingeben." & RETURN into field "MSGTXT"
      end if
    else
      put "Einen " & what & " Dateinamen eingeben." & RETURN into field "MSGTXT"
    end if
  end if
  setfont("MSGTXT")
  set the castNum of sprite 46 to the number of cast "MSGTXT"
  puppetSprite(46, 1)
  set the ink of sprite 46 to 1
  sprite_show(46, 110, 210)
  set the textAlign of field "TXEDIT" to "center"
  set the textStyle of field "TXEDIT" to "bold"
  setfont("TXEDIT")
  put EMPTY into field "TXEDIT"
  set the castNum of sprite 47 to the number of cast "TXEDIT"
  puppetSprite(47, 1)
  set the ink of sprite 47 to 0
  set the editableText of sprite 47 to 1
  sprite_show(47, 150, 245)
  if what = "CIRCLE" then
    set sel_extension to ".CIR"
  end if
  if what = "SOUND" then
    if the machineType = 256 then
      set sel_extension to ".WAV"
    else
      set sel_extension to ".AIF"
    end if
  end if
  set backwhat to what
  set ecommand to "SFdo"
  set acwin to "SFNA"
end

on selfname_do
  global scommand, ecommand, ltl_len, ltl_time, ltl_scast, ltl_mix, getmix_inst, sel_extension, sel_name, up_lang
  if the mouseDown then
    set x to the mouseH
    set y to the mouseV
    set mcast to the mouseCast
    set mb to EMPTY
    set debug to 0
    if (x >= 294) and (x <= 367) and (y <= 293) and (y >= 270) then
      but_flash("CANCEL", 331, 282)
      set ecommand to "SFcl"
      set scommand to EMPTY
    end if
    if (x >= 200) and (x <= 270) and (y <= 293) and (y >= 270) then
      but_flash("OK", 236, 282)
      set vchkfn to the text of field "TXEDIT"
      if chkfn(vchkfn) then
        set vchkfn to the text of field "TXEDIT" & sel_extension
        if chkfexist(vchkfn) then
          set sel_name to the text of field "TXEDIT" & sel_extension
          set ecommand to "SFcl"
        else
          set yesno to selwin("File already exists !" & RETURN & "Overwrite.", "Die Datei ist schon vorhanden !" & RETURN & "Ueberschreiben ?")
          if up_lang = 1 then
            put "Edit a Filename without Extension." into field "MSGTXT"
          else
            put "Einen Dateinamen ohne Extension eingeben." into field "MSGTXT"
          end if
          if yesno then
            set sel_name to the text of field "TXEDIT" & sel_extension
            set ecommand to "SFcl"
          else
            set the ink of sprite 47 to 0
            set the editableText of sprite 47 to 1
            but_reflash()
          end if
        end if
      else
        alertrd("Invalid filename !", "Ungueltiger Dateiname")
        if up_lang = 1 then
          put "Edit a Filename without Extension." into field "MSGTXT"
        else
          put "Einen Dateinamen ohne Extension eingeben." into field "MSGTXT"
        end if
        set the ink of sprite 47 to 0
        set the editableText of sprite 47 to 1
        but_reflash()
      end if
    end if
    if (x >= 102) and (x <= 175) and (y <= 293) and (y >= 270) then
      but_flash("PATH", 140, 282)
      set ecommand to "SFpa"
    end if
  end if
end

on selfname_pa
  global ecommand, fl_search
  selfname_cl()
  put "selfname_pa fl_search>" & fl_search
  if fl_search = "CIRCLE" then
    set ecommand to "SFoc"
    fsel("PATHC")
  else
    set ecommand to "SFop"
    fsel("PATH")
  end if
end

on selfname_cl
  global spritecount, acwin
  but_reflash()
  set the editableText of sprite 47 to 0
  puppetTransition(10, 1, 5)
  sprite_blank(45)
  sprite_blank(46)
  sprite_blank(47)
  sprite_rest()
  sprite_rest()
  sprite_rest()
  updateStage()
  set acwin to "MAIN"
end

on sndwin texte, textg
  global ecommand, spritecount, framecnt, enterFrame, backwhat, getmix_inst, up_save, sel_name, sel_extension, acwin, up_csave, up_lang
  sprite_save(45)
  sprite_save(46)
  sprite_save(47)
  set the castNum of sprite 45 to the number of cast "WINSND"
  puppetSprite(45, 1)
  set the ink of sprite 45 to 0
  set the visible of sprite 45 to 1
  sprite_show(45, 235, 250)
  puppetTransition(9, 1, 5)
  if up_lang = 1 then
    put texte into field "MSGTXT"
  else
    put textg into field "MSGTXT"
  end if
  setfont("MSGTXT")
  set the castNum of sprite 46 to the number of cast "MSGTXT"
  puppetSprite(46, 1)
  set the ink of sprite 46 to 1
  sprite_show(46, 110, 210)
  updateStage()
  repeat while 1
    if the mouseDown then
      set x to the mouseH
      set y to the mouseV
      set mcast to the mouseCast
      set mb to EMPTY
      set debug to 0
      if (x >= 294) and (x <= 367) and (y <= 293) and (y >= 270) then
        but_flash("YES", 331, 282)
        set sndwin_ret to 1
        exit repeat
      end if
      if (x >= 200) and (x <= 270) and (y <= 293) and (y >= 270) then
        but_flash("NO", 236, 282)
        set sndwin_ret to 2
        exit repeat
      end if
      if (x >= 102) and (x <= 175) and (y <= 293) and (y >= 270) then
        but_flash("CANCEL", 140, 282)
        set sndwin_ret to 0
        exit repeat
      end if
    end if
  end repeat
  but_reflash()
  set the editableText of sprite 47 to 0
  puppetTransition(10, 1, 5)
  sprite_blank(45)
  sprite_blank(46)
  sprite_blank(47)
  sprite_rest()
  sprite_rest()
  sprite_rest()
  updateStage()
  set acwin to "MAIN"
  put "sndwin_ret>" & sndwin_ret
  return sndwin_ret
end

on selfname_do_id
  global scommand, ecommand, ltl_len, ltl_time, ltl_scast, ltl_mix, getmix_inst, sel_extension, sel_name, up_lang
  if the mouseDown then
    set x to the mouseH
    set y to the mouseV
    set mcast to the mouseCast
    set mb to EMPTY
    set debug to 0
    if (x >= 243) and (x <= 317) and (y <= 293) and (y >= 270) then
      but_flash("CANCEL", 281, 282)
      set ecommand to "SFcl"
      set scommand to EMPTY
    end if
    if (x >= 147) and (x <= 222) and (y <= 293) and (y >= 270) then
      but_flash("OK", 186, 282)
      set vchkfn to the text of field "TXEDIT"
      if 1 then
        set vchkfn to the text of field "TXEDIT" & sel_extension
        if chkfexist(vchkfn) then
          set sel_name to the text of field "TXEDIT" & sel_extension
          set ecommand to "SFcl"
        else
          set yesno to selwin("File already exists !" & RETURN & "Overwrite.", "Die Datei ist schon vorhanden !" & RETURN & "Ueberschreiben ?")
          if up_lang = 1 then
            put "Edit a Filename without Extension." into field "MSGTXT"
          else
            put "Einen Dateinamen ohne Extension eingeben." into field "MSGTXT"
          end if
          if yesno then
            set sel_name to the text of field "TXEDIT" & sel_extension
            set ecommand to "SFcl"
          else
            set the ink of sprite 47 to 0
            set the editableText of sprite 47 to 1
            but_reflash()
          end if
        end if
      else
        alertrd("Invalid filename !", "Ungueltiger Dateiname")
        if up_lang = 1 then
          put "Edit a Filename without Extension." into field "MSGTXT"
        else
          put "Einen Dateinamen ohne Extension eingeben." into field "MSGTXT"
        end if
        set the ink of sprite 47 to 0
        set the editableText of sprite 47 to 1
        but_reflash()
      end if
    end if
  end if
end