home *** CD-ROM | disk | FTP | other *** search
/ Samuko Hentai / samuko.iso / pc / SAMUKO / SOMM.DXR / 00007.ls < prev    next >
Encoding:
Text File  |  2002-08-06  |  575 b   |  26 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(40).visible = 0
  11.   sprite(41).visible = 0
  12.   sprite(42).visible = 0
  13.   passe = 0
  14.   soustheme1 = EMPTY
  15.   soustheme2 = EMPTY
  16.   set the text of field "total" to EMPTY
  17.   theme_text()
  18.   repeat with X = 1 to 10
  19.     if X > member(dossier, "utile").lineCount then
  20.       sprite(9 + X).visible = 0
  21.       next repeat
  22.     end if
  23.     sprite(9 + X).visible = 1
  24.   end repeat
  25. end
  26.