home *** CD-ROM | disk | FTP | other *** search
/ L'Encyclopedie Des Jeux Video 8 / EJV8_CD2.ISO / ejv8-cd2 / viewer.dxr / 00039.ls < prev    next >
Encoding:
Text File  |  2003-10-24  |  2.0 KB  |  74 lines
  1. global line_select2, line_select, oldline, oldline2, forchoix2, rollchoix2, selectchoix2, theme, soustheme1, soustheme2, entreListe2, imporjpg, total_teme, n, entreListe
  2.  
  3. on mouseDown
  4.   if line_select2 <> VOID then
  5.     set the foreColor of line line_select2 of member the memberNum of sprite the currentSpriteNum to forchoix2
  6.   end if
  7.   if the mouseLine = -1 then
  8.     nothing()
  9.   else
  10.     line_select2 = the mouseLine
  11.     soustheme1 = member(the memberNum of sprite the currentSpriteNum).line[line_select2]
  12.     member("choix2").foreColor = forchoix2
  13.     entreListe = 0
  14.     line_select = VOID
  15.     oldline = 0
  16.   end if
  17.   cursor(-1)
  18. end
  19.  
  20. on mouseLeave me
  21.   entreListe = 0
  22.   set the foreColor of line oldline2 of member the memberNum of sprite the currentSpriteNum to forchoix2
  23.   cursor(-1)
  24. end
  25.  
  26. on mouseWithin
  27.   entreListe = entreListe + 1
  28.   if the mouseLine <> -1 then
  29.     leNom = the mouseLine
  30.     mouse_sur_line(leNom)
  31.     if entreListe = 1 then
  32.       oldline2 = leNom
  33.     end if
  34.     oldline2 = leNom
  35.   end if
  36.   cursor(280)
  37. end
  38.  
  39. on prepareFrame me
  40.   line_choisie()
  41. end
  42.  
  43. on mouse_sur_line X
  44.   if X <> oldline2 then
  45.     if oldline2 = line_select2 then
  46.       nothing()
  47.     else
  48.       set the foreColor of line oldline2 of field the memberNum of sprite the currentSpriteNum to forchoix2
  49.     end if
  50.     if X = line_select2 then
  51.       nothing()
  52.     else
  53.       set the foreColor of line X of member the memberNum of sprite the currentSpriteNum to rollchoix2
  54.     end if
  55.   else
  56.     if X = line_select2 then
  57.       nothing()
  58.     else
  59.       set the foreColor of line X of member the memberNum of sprite the currentSpriteNum to rollchoix2
  60.     end if
  61.   end if
  62. end
  63.  
  64. on line_choisie
  65.   global line_select2
  66.   if line_select2 <> VOID then
  67.     set the foreColor of line line_select2 of member the memberNum of sprite the currentSpriteNum to selectchoix2
  68.   else
  69.     if line_select2 <> VOID then
  70.       set the foreColor of line line_select2 of member the memberNum of sprite the currentSpriteNum to forchoix2
  71.     end if
  72.   end if
  73. end
  74.