home *** CD-ROM | disk | FTP | other *** search
/ Hacker CD 2 / HACKER_CD.iso / Hacker_CD / somm.dxr / 00111.ls < prev    next >
Encoding:
Text File  |  2003-04-09  |  1.5 KB  |  35 lines
  1. global theme, soustheme1, soustheme2, line_select, n, dossier
  2.  
  3. on copie_wmf
  4.   member(the memberNum of sprite the currentSpriteNum).foreColor = 255
  5.   set the text of field "converti" to n
  6.   X = the number of chars in (member "converti").word[1]
  7.   put " " before char X - 3 of word 1 of field "converti"
  8.   delete word 2 of field "converti"
  9.   conver = word 1 of field "converti"
  10.   if soustheme2 = EMPTY then
  11.     u = dosIsFileExist(the moviePath & "wmf" & "\" & theme & "\" & soustheme1 & "\" & n)
  12.     if u <> 1 then
  13.       n = conver & ".WMF"
  14.     end if
  15.     m = dosSelectFile("save", "C:\Photos\", n, ["*.*"], "O├╣ voulez-vous enregistrer?")
  16.     dosCopyFile(the moviePath & "wmf" & "\" & theme & "\" & soustheme1 & "\" & n, m)
  17.   else
  18.     if soustheme1 = EMPTY then
  19.       u = dosIsFileExist(the moviePath & "wmf" & "\" & theme & "\" & soustheme2 & "\" & n)
  20.       if u <> 1 then
  21.         n = conver & ".WMF"
  22.       end if
  23.       m = dosSelectFile("save", "C:\Photos\", n, ["*.*"], "O├╣ voulez-vous enregistrer?")
  24.       dosCopyFile(the moviePath & "wmf" & "\" & theme & "\" & soustheme2 & "\" & n, m)
  25.     else
  26.       u = dosIsFileExist(the moviePath & "wmf" & "\" & theme & "\" & soustheme1 & "\" & soustheme2 & "\" & n)
  27.       if u <> 1 then
  28.         n = conver & ".WMF"
  29.       end if
  30.       m = dosSelectFile("save", "C:\Photos\", n, ["*.*"], "O├╣ voulez-vous enregistrer?")
  31.       dosCopyFile(the moviePath & "wmf" & "\" & theme & "\" & soustheme1 & "\" & soustheme2 & "\" & n, m)
  32.     end if
  33.   end if
  34. end
  35.