home *** CD-ROM | disk | FTP | other *** search
/ L'Encyclopedie Des Jeux Video 8 / EJV8_CD1.ISO / ejv8-cd1 / somm.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  2003-10-24  |  669 b   |  28 lines
  1. global dossier, soustheme1, soustheme2, passe, forcolor
  2.  
  3. on exitFrame me
  4.   sprite(4).visible = 0
  5.   sprite(40).visible = 0
  6.   sprite(41).visible = 0
  7.   sprite(42).visible = 0
  8.   sprite(43).visible = 0
  9.   soustheme1 = EMPTY
  10.   soustheme2 = EMPTY
  11.   if passe <> 0 then
  12.     if member(the memberNum of sprite passe).type = #text then
  13.       member(the memberNum of sprite passe).foreColor = forcolor
  14.       passe = 0
  15.     else
  16.       passe = 0
  17.     end if
  18.   end if
  19.   set the text of field "total" to EMPTY
  20.   repeat with X = 1 to 12
  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.