home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / CYRIXO.DXR / 00193_CYMoveLetters.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  7.2 KB  |  142 lines
  1. on CYMoveLetters
  2.   global CyMoveXno, CYLetterList, CRSelect
  3.   repeat with t = 1 to count(CYLetterList)
  4.     if rollOver(getAt(getAt(CYLetterList, t), 1)) then
  5.       case getAt(getAt(CYLetterList, t), 2) of
  6.         0:
  7.           setAt(getAt(CYLetterList, t), 2, 1)
  8.           set CyMoveXno to 1 + CyMoveXno
  9.           puppetSound("Crpick.aif")
  10.         1:
  11.           repeat while getAt(getAt(CYLetterList, t), 2) = 1
  12.             set the loc of sprite getAt(getAt(CYLetterList, t), 1) to point(the mouseH, the mouseV)
  13.             updateStage()
  14.             if sprite getAt(getAt(CYLetterList, t), 1) intersects 1 then
  15.               set the castNum of sprite getAt(getAt(CYLetterList, t), 1) to the number of member getAt(getAt(CYLetterList, t), 3)
  16.               set the loc of sprite getAt(getAt(CYLetterList, t), 1) to point(getAt(getAt(CYLetterList, t), 4), getAt(getAt(CYLetterList, t), 5))
  17.               setAt(getAt(CYLetterList, t), 2, 2)
  18.               set the ink of sprite getAt(getAt(CYLetterList, t), 1) to 36
  19.               puppetSound(0)
  20.               puppetSound("Crmag.aif")
  21.               updateStage()
  22.               case CyMoveXno of
  23.                 6:
  24.                   set the castNum of sprite 1 to the number of member "CyFullBox"
  25.                   repeat with d = 2 to 7
  26.                     set the locH of sprite d to 2000
  27.                   end repeat
  28.                   updateStage()
  29.                   set the castNum of sprite 4 to the number of member "CrgreenDot"
  30.                   set the loc of sprite 4 to point(316, 364)
  31.                   updateStage()
  32.                   repeat while 1
  33.                     if the castNum of sprite 4 = the number of member "CrblueDot" then
  34.                       set the castNum of sprite 4 to the number of member "CrgreenDot"
  35.                     else
  36.                       set the castNum of sprite 4 to the castNum of sprite 4 + 1
  37.                     end if
  38.                     AdWait(0.10000000000000001)
  39.                     updateStage()
  40.                     if the mouseDown then
  41.                       if rollOver(4) then
  42.                         set CRSelect to 1
  43.                         set the castNum of sprite 1 to the number of member "CrOpenOne"
  44.                         set the castNum of sprite 4 to the number of member "CrgreenDot"
  45.                         updateStage()
  46.                         puppetSound(1, "dooropen")
  47.                         updateStage()
  48.                         repeat with f = 1 to 5
  49.                           set the castNum of sprite 1 to the castNum of sprite 1 + 1
  50.                           updateStage()
  51.                         end repeat
  52.                         set the castNum of sprite 5 to the number of member "CrLogodarkBox"
  53.                         set the loc of sprite 5 to point(410, 374)
  54.                         puppetSound("Crmag.aif")
  55.                         updateStage()
  56.                         repeat while soundBusy(1)
  57.                         end repeat
  58.                         set the castNum of sprite 6 to the number of member "CrTextOne"
  59.                         set the ink of sprite 6 to 36
  60.                         set the loc of sprite 6 to point(195, 63)
  61.                         puppetSound("Crpick.aif")
  62.                         updateStage()
  63.                         repeat while soundBusy(1)
  64.                         end repeat
  65.                         set the castNum of sprite 7 to the number of member "CrTextTwo"
  66.                         set the ink of sprite 7 to 36
  67.                         set the loc of sprite 7 to point(382, 63)
  68.                         puppetSound("Crpick.aif")
  69.                         updateStage()
  70.                         repeat while soundBusy(1)
  71.                         end repeat
  72.                         set the castNum of sprite 8 to the number of member "CrTextThree"
  73.                         set the ink of sprite 8 to 36
  74.                         set the loc of sprite 8 to point(313, 138)
  75.                         puppetSound("Crpick.aif")
  76.                         updateStage()
  77.                         repeat while soundBusy(1)
  78.                         end repeat
  79.                         set the castNum of sprite 9 to the number of member "CrTextFour"
  80.                         set the ink of sprite 9 to 36
  81.                         set the loc of sprite 9 to point(274, 211)
  82.                         puppetSound("Crpick.aif")
  83.                         updateStage()
  84.                         repeat while soundBusy(1)
  85.                         end repeat
  86.                         set the castNum of sprite 10 to the number of member "CrTextFive"
  87.                         set the ink of sprite 10 to 36
  88.                         set the loc of sprite 10 to point(486, 211)
  89.                         puppetSound("Crpick.aif")
  90.                         updateStage()
  91.                         repeat while soundBusy(1)
  92.                         end repeat
  93.                         set the castNum of sprite 11 to the number of member "CrTextSix"
  94.                         set the ink of sprite 11 to 36
  95.                         set the loc of sprite 11 to point(206, 283)
  96.                         puppetSound("Crpick.aif")
  97.                         updateStage()
  98.                         repeat while soundBusy(1)
  99.                         end repeat
  100.                         set the castNum of sprite 12 to the number of member "CrTextSeven"
  101.                         set the ink of sprite 12 to 36
  102.                         set the loc of sprite 12 to point(371, 283)
  103.                         puppetSound("Crpick.aif")
  104.                         updateStage()
  105.                         repeat while soundBusy(1)
  106.                         end repeat
  107.                         AdWait(1)
  108.                         set the castNum of sprite 1 to the castNum of sprite 1 + 1
  109.                         set the castNum of sprite 47 to the number of member "CrLogoTwo"
  110.                         set the loc of sprite 47 to the loc of sprite 5
  111.                         repeat with f = 5 to 12
  112.                           set the locH of sprite f to 2000
  113.                         end repeat
  114.                         set the castNum of sprite 42 to the castNum of sprite 1
  115.                         set the loc of sprite 42 to the loc of sprite 1
  116.                         updateStage()
  117.                         set the castNum of sprite 43 to the number of member "CRContentOne"
  118.                         set the loc of sprite 43 to point(200, 200)
  119.                         set the ink of sprite 43 to 36
  120.                         set the castNum of sprite 44 to the number of member "CRContentTwo"
  121.                         set the loc of sprite 44 to point(200, 200)
  122.                         set the ink of sprite 44 to 36
  123.                         set the castNum of sprite 45 to the number of member "CRContentThree"
  124.                         set the loc of sprite 45 to point(202, 317)
  125.                         set the ink of sprite 45 to 36
  126.                         set the castNum of sprite 48 to the number of member "EXITAD"
  127.                         set the loc of sprite 48 to point(10, 442)
  128.                         set the ink of sprite 48 to 36
  129.                         updateStage()
  130.                         exit repeat
  131.                       end if
  132.                     end if
  133.                   end repeat
  134.               end case
  135.               exit repeat
  136.             end if
  137.           end repeat
  138.       end case
  139.     end if
  140.   end repeat
  141. end
  142.