home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / CYRIXO.DXR / 00007_SelectCom.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  1.7 KB  |  57 lines
  1. on SelectCom
  2.   global CyrLineList, CyrixCount, RanCyrList, CyMasList, CryWhichLogo, LineHFlag, CRYFLAGLIST, CRYSpeed
  3.   repeat while LineHFlag = 0
  4.     case CyrixCount of
  5.       CRYSpeed:
  6.         set the locH of sprite CryWhichLogo to 2000
  7.         case CryWhichLogo of
  8.           16:
  9.             set CryWhichLogo to 0
  10.         end case
  11.         set the loc of sprite (CryWhichLogo + 1) to point(100, 111)
  12.         set CyrixCount to 0
  13.         updateStage()
  14.         set CryWhichLogo to 1 + CryWhichLogo
  15.     end case
  16.     set CyrixCount to 1 + CyrixCount
  17.     if (the mouseH > 10) and (the mouseH < 189) and (the mouseV > 98) and (the mouseV < 166) then
  18.       set CRYSpeed to 150
  19.     else
  20.       if CyrixCount > 70 then
  21.         set CyrixCount to 0
  22.       end if
  23.       set CRYSpeed to 70
  24.     end if
  25.     repeat with t = 1 to count(CyrLineList)
  26.       if rollOver(getAt(getAt(CyrLineList, t), 15)) then
  27.         if the mouseDown then
  28.           repeat with g = 1 to 5
  29.             set the blend of sprite 47 to the blend of sprite 47 - 20
  30.             updateStage()
  31.           end repeat
  32.           set the locH of sprite 47 to 2000
  33.           updateStage()
  34.           set the blend of sprite 47 to 100
  35.           set the locH of sprite 48 to 2000
  36.           set the castNum of sprite 38 to the number of member "UKFLAG"
  37.           LineSetUp(getAt(getAt(CyrLineList, t), 15))
  38.           set last to count(CyMasList)
  39.           setAt(getAt(CyMasList, last), 3, 10)
  40.         end if
  41.       end if
  42.     end repeat
  43.     if rollOver(48) and the mouseDown then
  44.       repeat with d = 1 to 48
  45.         set the locH of sprite d to 2000
  46.         puppetSprite(d, 0)
  47.       end repeat
  48.       updateStage()
  49.       set the stageColor to 255
  50.       updateStage()
  51.       play done
  52.       exit repeat
  53.     end if
  54.     CYSelectthing()
  55.   end repeat
  56. end
  57.