home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / HANPCW09.Dxr / 00003_HANChooseSoftware.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  1.6 KB  |  49 lines
  1. on HANChooseSoftware
  2.   global HANTextSprite, HANSoftwareList, HANSoftWareSelected, HANCopyButton, DriveLtr, HANIconSprite
  3.   if rollOver(HANTextSprite) then
  4.     if the member of sprite HANIconSprite = member "HANICONTWO" then
  5.       set the member of sprite HANIconSprite to member "HANICONONE"
  6.       updateStage()
  7.     end if
  8.     if the mouseDown then
  9.       set Whichsoft to 0
  10.       set WhichLine to the mouseLine
  11.       repeat with t = 1 to count(HANSoftwareList)
  12.         if getAt(getAt(HANSoftwareList, t), 1) = WhichLine then
  13.           set Whichsoft to getAt(getAt(HANSoftwareList, t), 2)
  14.           exit repeat
  15.         end if
  16.       end repeat
  17.       if Whichsoft <> 0 then
  18.         set HANSoftWareSelected to Whichsoft
  19.         hilite line the mouseLine of field "HANTEXT"
  20.       end if
  21.       repeat while the mouseDown
  22.       end repeat
  23.     end if
  24.   end if
  25.   if HANSoftWareSelected <> 0 then
  26.     if rollOver(HANCopyButton) then
  27.       set the member of sprite HANCopyButton to member "HanRdCopy"
  28.       updateStage()
  29.       repeat while rollOver(HANCopyButton)
  30.         if the mouseDown then
  31.           set the member of sprite HANCopyButton to member "HanRdCopyIn"
  32.           updateStage()
  33.           put "HANSoftWareSelected", HANSoftWareSelected
  34.           set a to DriveLtr & "HANDSON\SOFTWARE\" & HANSoftWareSelected
  35.           set b to the pathName & "COPY.EXE"
  36.           open(a, b)
  37.           set HANSoftWareSelected to 0
  38.           set the hilite of member "HANTEXT" to 0
  39.           repeat while the mouseDown
  40.           end repeat
  41.           exit repeat
  42.         end if
  43.       end repeat
  44.       set the member of sprite HANCopyButton to member "HanBlCopy"
  45.       updateStage()
  46.     end if
  47.   end if
  48. end
  49.