Chip 17/Chip_17_1998.iso/S.dxr/00019_Win95.ls

Text File | 1998-07-21 | 1.7 KB | 55 lines

on mouseUp
  hide()
  if the mouseLine = 1 then
    set the visible of sprite 17 to 1
  end if
  if the mouseLine = 2 then
    set the visible of sprite 18 to 1
  end if
  if the mouseLine = 3 then
    set the visible of sprite 19 to 1
  end if
  if the mouseLine = 4 then
    set the visible of sprite 20 to 1
  end if
  if the mouseLine = 5 then
    set the visible of sprite 21 to 1
  end if
  if the mouseLine = 6 then
    set the visible of sprite 22 to 1
  end if
  if the mouseLine = 7 then
    set the visible of sprite 23 to 1
  end if
  if the mouseLine = 8 then
    set the visible of sprite 24 to 1
  end if
  if the mouseLine = 9 then
    set the visible of sprite 25 to 1
  end if
  if (the doubleClick = 1) and (the mouseLine = 1) then
    open(the pathName & "sharewar\win95\Fontspec\Setup.exe")
  end if
  if (the doubleClick = 1) and (the mouseLine = 2) then
    open(the pathName & "sharewar\win95\Canyon\Dv95.exe")
  end if
  if (the doubleClick = 1) and (the mouseLine = 3) then
    open(the pathName & "sharewar\win95\Cursoart\Setup.exe")
  end if
  if (the doubleClick = 1) and (the mouseLine = 4) then
    open(the pathName & "sharewar\win95\Assoc\Setup.exe")
  end if
  if (the doubleClick = 1) and (the mouseLine = 5) then
    open(the pathName & "sharewar\win95\Invenpro\Ffip98uk.exe")
  end if
  if (the doubleClick = 1) and (the mouseLine = 6) then
    open(the pathName & "sharewar\win95\Nc\Nc.exe")
  end if
  if (the doubleClick = 1) and (the mouseLine = 7) then
    open(the pathName & "sharewar\win95\Sym\Symmet21.exe")
  end if
  if (the doubleClick = 1) and (the mouseLine = 8) then
    open(the pathName & "sharewar\win95\Spamkill\Sk153.exe")
  end if
end