home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INXWDEC.DXR / 00051_CDXSelectAdvert.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  684 b   |  25 lines
  1. on CDXSelectAdvert
  2.   global ADDThisNum, REFChoosen, INXADvertNo
  3.   repeat with g = 10 to INXADvertNo + 9
  4.     set REFChoosen to 0
  5.     if rollOver(g) then
  6.       set the castNum of sprite g to the castNum of sprite g + 1
  7.       updateStage()
  8.       repeat while rollOver(g)
  9.         if the mouseDown then
  10.           set ADDThisNum to g - 9
  11.           set REFChoosen to 1
  12.           set the castNum of sprite g to the castNum of sprite g - 1
  13.           CDXLeave(2)
  14.           updateStage()
  15.         end if
  16.       end repeat
  17.       if REFChoosen = 0 then
  18.         set the castNum of sprite g to the castNum of sprite g - 1
  19.       end if
  20.       updateStage()
  21.     end if
  22.     updateStage()
  23.   end repeat
  24. end
  25.