home *** CD-ROM | disk | FTP | other *** search
/ Samuko Hentai / samuko.iso / pc / SAMUKO / SOMM.DXR / 00011.ls < prev    next >
Encoding:
Text File  |  2002-08-06  |  2.9 KB  |  69 lines
  1. on testMedia champ_a_analyser
  2.   global sans_dos
  3.   sans_dos = 0
  4.   typeMedia = EMPTY
  5.   if offset(".", member(champ_a_analyser, "utile").text) = 0 then
  6.     if member(champ_a_analyser, "utile").text = VOID then
  7.       sans_dos = 1
  8.       if (champ_a_analyser contains ".exe") or (champ_a_analyser contains ".scr") then
  9.         typeMedia = "Logiciel"
  10.       else
  11.         if (champ_a_analyser contains ".mpg") or (champ_a_analyser contains ".mpeg") or (champ_a_analyser contains ".avi") then
  12.           typeMedia = "Video"
  13.         else
  14.           if (champ_a_analyser contains ".mov") or (champ_a_analyser contains ".qt") then
  15.             typeMedia = "Quicktime"
  16.           else
  17.             if (champ_a_analyser contains ".wav") or (champ_a_analyser contains ".aif") or (champ_a_analyser contains ".mp3") then
  18.               typeMedia = "Son"
  19.             else
  20.               if (champ_a_analyser contains ".ttf") or (champ_a_analyser contains ".fon") then
  21.                 typeMedia = "Police"
  22.               else
  23.                 if champ_a_analyser contains ".gif" then
  24.                   typeMedia = "Gif"
  25.                 else
  26.                   if (champ_a_analyser contains ".jpg") or (champ_a_analyser contains ".jpeg") or (champ_a_analyser contains ".bmp") then
  27.                     typeMedia = "Image"
  28.                   end if
  29.                 end if
  30.               end if
  31.             end if
  32.           end if
  33.         end if
  34.       end if
  35.     else
  36.       typeMedia = "Dossier"
  37.     end if
  38.   else
  39.     if (member(champ_a_analyser, "utile").text contains ".exe") or (member(champ_a_analyser, "utile").text contains ".scr") then
  40.       typeMedia = "Logiciel"
  41.     else
  42.       if (member(champ_a_analyser, "utile").text contains ".mpg") or (member(champ_a_analyser, "utile").text contains ".mpeg") or (member(champ_a_analyser, "utile").text contains ".avi") then
  43.         typeMedia = "Video"
  44.       else
  45.         if (member(champ_a_analyser, "utile").text contains ".mov") or (member(champ_a_analyser, "utile").text contains ".qt") then
  46.           typeMedia = "Quicktime"
  47.         else
  48.           if (member(champ_a_analyser, "utile").text contains ".wav") or (member(champ_a_analyser, "utile").text contains ".aif") or (member(champ_a_analyser, "utile").text contains ".mp3") then
  49.             typeMedia = "Son"
  50.           else
  51.             if (member(champ_a_analyser, "utile").text contains ".ttf") or (member(champ_a_analyser, "utile").text contains ".fon") then
  52.               typeMedia = "Police"
  53.             else
  54.               if member(champ_a_analyser, "utile").text contains ".gif" then
  55.                 typeMedia = "Gif"
  56.               else
  57.                 if (member(champ_a_analyser, "utile").text contains ".jpg") or (member(champ_a_analyser, "utile").text contains ".jpeg") or (member(champ_a_analyser, "utile").text contains ".bmp") then
  58.                   typeMedia = "Image"
  59.                 end if
  60.               end if
  61.             end if
  62.           end if
  63.         end if
  64.       end if
  65.     end if
  66.   end if
  67.   return typeMedia
  68. end
  69.