home *** CD-ROM | disk | FTP | other *** search
- on mouseDown
- global gHighLightPos, gCurrentPos
- set refresh to 0
- set topWin to getAt(the rect of sprite 17, 2)
- set bottomWin to getAt(the rect of sprite 17, 4)
- if getAt(gHighLightPos, 1) <> 0 then
- ActiveField(2)
- CheckSelection2()
- repeat while the mouseDown and not (the mouseUp)
- if (the mouseV < (bottomWin + 8)) and (the mouseV > bottomWin) then
- SetWindow1(2, 6)
- set refresh to 1
- next repeat
- end if
- if (the mouseV > (topWin - 8)) and (the mouseV < topWin) then
- SetWindow1(2, 5)
- set refresh to 1
- next repeat
- end if
- CheckSelection2()
- end repeat
- if refresh then
- FindPics(getAt(gHighLightPos, 2))
- setAt(gCurrentPos, 3, 1)
- setAt(gHighLightPos, 3, 0)
- SetWindow1(3, 3)
- end if
- end if
- end
-