Passport/passport.iso/pc/passport/record.dxr/00017.ls

Text File | 1998-01-26 | 923 b | 39 lines

on mouseUp
  global gRecording, DlgRec, HDDir, gSoundObj
  if gRecording then
    stop()
  end if
  sound stop 1
  sound stop 2
  if the machineType = 256 then
    set Ext to ".WAV"
  else
    set Ext to ".AIFF"
  end if
  set result to SetSoundType(gSoundObj, "file", HDDir & the text of field "File" & Ext, "record")
  if result <> 0 then
    alert("ERROR: " & result && HDDir & the text of field "File" & Ext)
  else
    updateStage()
    set the rect of sprite 4 to rect(237, 28, 359, 43)
    if objectp(gSoundObj) then
      set err to Record(gSoundObj)
      if err <> 0 then
        alert("Recording Error")
      else
        if listp(DlgRec) then
          set i to integer(char 4 to 5 of the text of field "File")
          if not voidp(i) then
            setAt(DlgRec, i, 1)
          end if
        end if
        set gRecording to 1
        startTimer()
      end if
    end if
  end if
end

on mouseDown
end