home *** CD-ROM | disk | FTP | other *** search
/ Hacker CD 2 / HACKER_CD.iso / Hacker_CD / somm.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  2003-04-09  |  618 b   |  28 lines
  1. global dossier, passe, soustheme1, soustheme2, gversionos
  2.  
  3. on exitFrame me
  4.   if gversionos = "\" then
  5.     dosRegister(119260009)
  6.     dosCreateFolder("C:\Photos\")
  7.   else
  8.     dosRegister(41860189)
  9.   end if
  10.   sprite(4).visible = 0
  11.   sprite(40).visible = 0
  12.   sprite(41).visible = 0
  13.   sprite(42).visible = 0
  14.   sprite(38).visible = 0
  15.   passe = 0
  16.   soustheme1 = EMPTY
  17.   soustheme2 = EMPTY
  18.   set the text of field "total" to EMPTY
  19.   theme_text()
  20.   repeat with X = 1 to 10
  21.     if X > member(dossier, 4).lineCount then
  22.       sprite(9 + X).visible = 0
  23.       next repeat
  24.     end if
  25.     sprite(9 + X).visible = 1
  26.   end repeat
  27. end
  28.