home *** CD-ROM | disk | FTP | other *** search
/ Passport / passport.iso / pc / passport / dialog.dxr / Internal_22.ls < prev    next >
Encoding:
Text File  |  1998-01-27  |  1.5 KB  |  41 lines
  1. on mouseDown me, Arg, Arg2
  2.   global DlgPath, Language, myMode, DlgRec, myClicked, HDDir
  3.   set Locs to [point(126, 86), point(243, 86), point(360, 86), point(477, 86), point(126, 173), point(243, 173), point(360, 173), point(477, 173), point(126, 260), point(243, 260), point(360, 260), point(477, 260)]
  4.   if not voidp(Arg) then
  5.     set Clk to Arg
  6.     set M to Arg2
  7.   else
  8.     set Clk to the clickOn
  9.   end if
  10.   set Cod to getAt(DlgPath, ((Clk - 24) * 2) - 1)
  11.   set Cod to GetValue(Cod)
  12.   set myClicked to GetCode(Cod)
  13.   puppetSprite(23, 1)
  14.   set L to getAt(Locs, Clk - 24)
  15.   set the locH of sprite 23 to getAt(L, 1) - 5
  16.   set the locV of sprite 23 to getAt(L, 2) - 5
  17.   updateStage()
  18.   set the visible of sprite 23 to 1
  19.   set the visible of sprite 24 to 0
  20.   set the text of field "ComicTXT" to FindLine(myClicked & Modechar(M))
  21.   set the textSize of field "ComicTxt" to 14
  22.   repeat while the lineCount of member "ComicTxt" > 3
  23.     set the textSize of field "ComicTxt" to the textSize of field "ComicTxt" - 1
  24.   end repeat
  25.   set the visible of sprite 24 to 1
  26.   if the visible of window "Record" then
  27.     do("tell window " & QUOTE & "record" & QUOTE & " to put " & QUOTE & "Rec" & string(Clk - 24) & QUOTE && "into field " & QUOTE & "File" & QUOTE)
  28.   end if
  29.   if myMode <> "PlayBack" then
  30.     doSound(GetCode(Cod & Language))
  31.   else
  32.     if getAt(DlgRec, Clk - 24) then
  33.       if the machineType = 256 then
  34.         sound playFile 1, HDDir & "Rec" & string(Clk - 24) & ".WAV"
  35.       else
  36.         sound playFile 1, HDDir & "Rec" & string(Clk - 24) & ".AIFF"
  37.       end if
  38.     end if
  39.   end if
  40. end
  41.