home *** CD-ROM | disk | FTP | other *** search
/ Rooie Oortjes 2 / RO2_CD.bin / taal.dxr / 00016.ls < prev    next >
Encoding:
Text File  |  1997-04-15  |  1.2 KB  |  56 lines
  1. global Language, eye_time, eye_index
  2.  
  3. on exitFrame
  4.   repeat with i = 8 to 13
  5.     set the visible of sprite i to rollOver(i + 7)
  6.   end repeat
  7.   set eye_time to eye_time + 1
  8.   if eye_time > 30 then
  9.     set eye_time to 0
  10.     set the visible of sprite eye_index to 1 - the visible of sprite eye_index
  11.     if not (the visible of sprite eye_index) then
  12.       set eye_index to random(5) + 1
  13.     end if
  14.   end if
  15.   go(the frame)
  16. end
  17.  
  18. on mouseDown
  19.   if rollOver(16) then
  20.     set Language to #Dui
  21.   end if
  22.   if rollOver(17) then
  23.     set Language to #Eng
  24.   end if
  25.   if rollOver(18) then
  26.     set Language to #Fra
  27.   end if
  28.   if rollOver(19) then
  29.     set Language to #Ita
  30.   end if
  31.   if rollOver(20) then
  32.     set Language to #Ned
  33.   end if
  34.   if rollOver(15) then
  35.     quit()
  36.   end if
  37.   if Language <> #None then
  38.     if Language = #Ned then
  39.       open("launch.exe inst.exe ned 0 1")
  40.     end if
  41.     if Language = #Eng then
  42.       open("launch.exe inst.exe eng 0 1")
  43.     end if
  44.     if Language = #Fra then
  45.       open("launch.exe inst.exe fra 0 1")
  46.     end if
  47.     if Language = #Dui then
  48.       open("launch.exe inst.exe dui 0 1")
  49.     end if
  50.     if Language = #Ita then
  51.       open("launch.exe inst.exe ita 0 1")
  52.     end if
  53.     quit()
  54.   end if
  55. end
  56.