home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 July / WPCJUL98.ISO / DXRS / SOFWPC07.DXR / 00115_LeftBrowseRed.ls < prev    next >
Encoding:
Text File  |  1998-05-11  |  795 b   |  25 lines
  1. on mouseDown
  2.   global SOFtemp
  3.   if the number of member (SOFtemp & "_prev1") = -1 then
  4.     put 1 into field "numberof"
  5.   else
  6.     repeat while the mouseDown
  7.       set the member of sprite 71 to member "LeftBrowseDown"
  8.       updateStage()
  9.     end repeat
  10.     if the member of sprite 4 = member (SOFtemp & "_prev1") then
  11.       set the member of sprite 4 to member (SOFtemp & "_prev_end")
  12.       set SOFnum2 to 0
  13.       set SOFnum2 to the text of field "totalamount"
  14.       put the integer of SOFnum2 into field "numberof"
  15.       nothing()
  16.     else
  17.       set SOFnums to 0
  18.       set SOFnums to the text of field "numberof"
  19.       set SOFnums to SOFnums - 1
  20.       put the integer of SOFnums into field "numberof"
  21.       set the memberNum of sprite 4 to the memberNum of sprite 4 - 1
  22.     end if
  23.   end if
  24. end
  25.