home *** CD-ROM | disk | FTP | other *** search
/ Hope PC Multimedia SuperPack 2 / HOMEPC.iso / TAROT / DOWNLOAD / VT1.ZIP / D1.DXR / 00139.ls < prev    next >
Encoding:
Text File  |  1995-11-01  |  6.0 KB  |  165 lines
  1. on startMovie
  2.   global TimeKeeper, FeaturesActive, DivsActive, MainRep, clickOn, Uactive, Lframe
  3.   set Lframe to label("FS1")
  4.   set TimeKeeper to 0
  5.   set Uactive to 1
  6.   set FeaturesActive to 0
  7.   set DivsActive to 0
  8.   set clickOn to 0
  9.   set MainRep to 0
  10. end
  11.  
  12. on OpenCCLite
  13.   global DemoFrame, retMovie, clickOn
  14.   set fileObj to FileIO(mnew, "read", the moviePath & "C1.dxr")
  15.   if (objectp(fileObj) = 1) and clickOn then
  16.     set clickOn to 0
  17.     fileObj(mdispose)
  18.     set retMovie to "D1.dxr"
  19.     set DemoFrame to "DemoFrame"
  20.     go(1, the moviePath & "C1.dxr")
  21.   end if
  22. end
  23.  
  24. on P s
  25.   put the locH of sprite s && the locV of sprite s
  26. end
  27.  
  28. on idle
  29.   global FeaturesActive, DivsActive
  30.   if FeaturesActive and the puppet of sprite 17 then
  31.     set S1 to 17
  32.     if (the mouseH > 40) and (the mouseH < 380) then
  33.       set MV to the mouseV
  34.       if (MV > 169) and (MV < 187) then
  35.         set the castNum of sprite S1 to cast "F1"
  36.         set the locH of sprite S1 to 215
  37.         set the locV of sprite S1 to 174
  38.       else
  39.         if (MV > 194) and (MV < 210) then
  40.           set the castNum of sprite S1 to cast "F2"
  41.           set the locH of sprite S1 to 215
  42.           set the locV of sprite S1 to 202
  43.         else
  44.           if (MV > 217) and (MV < 234) then
  45.             set the castNum of sprite S1 to cast "F3"
  46.             set the locH of sprite S1 to 213
  47.             set the locV of sprite S1 to 225
  48.           else
  49.             if (MV > 241) and (MV < 257) then
  50.               set the castNum of sprite S1 to cast "F4"
  51.               set the locH of sprite S1 to 215
  52.               set the locV of sprite S1 to 250
  53.             else
  54.               if (MV > 264) and (MV < 282) then
  55.                 set the castNum of sprite S1 to cast "F5"
  56.                 set the locH of sprite S1 to 215
  57.                 set the locV of sprite S1 to 273
  58.               else
  59.                 if (MV > 289) and (MV < 306) then
  60.                   set the castNum of sprite S1 to cast "F6"
  61.                   set the locH of sprite S1 to 215
  62.                   set the locV of sprite S1 to 293
  63.                 else
  64.                   if (MV > 313) and (MV < 329) then
  65.                     set the castNum of sprite S1 to cast "F7"
  66.                     set the locH of sprite S1 to 215
  67.                     set the locV of sprite S1 to 322
  68.                   else
  69.                     if (MV > 337) and (MV < 354) then
  70.                       set the castNum of sprite S1 to cast "F8"
  71.                       set the locH of sprite S1 to 215
  72.                       set the locV of sprite S1 to 344
  73.                     else
  74.                       if (MV > 362) and (MV < 378) then
  75.                         set the castNum of sprite S1 to cast "F9"
  76.                         set the locH of sprite S1 to 215
  77.                         set the locV of sprite S1 to 372
  78.                       else
  79.                         set the locH of sprite S1 to -500
  80.                       end if
  81.                     end if
  82.                   end if
  83.                 end if
  84.               end if
  85.             end if
  86.           end if
  87.         end if
  88.       end if
  89.     else
  90.       set the locH of sprite S1 to -500
  91.     end if
  92.   end if
  93.   if DivsActive then
  94.     if (the mouseH > 413) and (the mouseH < 535) then
  95.       set S2 to 18
  96.       set MV to the mouseV
  97.       set MH to 495
  98.       if (the mouseV > 219) and (the mouseV < 232) then
  99.         set the castNum of sprite S2 to cast "D1"
  100.         set the locH of sprite S2 to MH
  101.         set the locV of sprite S2 to 220
  102.       else
  103.         if (the mouseV > 241) and (the mouseV < 251) then
  104.           set the castNum of sprite S2 to cast "D2"
  105.           set the locH of sprite S2 to MH
  106.           set the locV of sprite S2 to 245
  107.         else
  108.           if (the mouseV > 260) and (the mouseV < 271) then
  109.             set the castNum of sprite S2 to cast "D3"
  110.             set the locH of sprite S2 to MH
  111.             set the locV of sprite S2 to 265
  112.           else
  113.             if (the mouseV > 279) and (the mouseV < 290) then
  114.               set the castNum of sprite S2 to cast "D4"
  115.               set the locH of sprite S2 to MH
  116.               set the locV of sprite S2 to 286
  117.             else
  118.               if (the mouseV > 298) and (the mouseV < 311) then
  119.                 set the castNum of sprite S2 to cast "D5"
  120.                 set the locH of sprite S2 to MH
  121.                 set the locV of sprite S2 to 306
  122.               else
  123.                 if (the mouseV > 318) and (the mouseV < 331) then
  124.                   set the castNum of sprite S2 to cast "D6"
  125.                   set the locH of sprite S2 to MH
  126.                   set the locV of sprite S2 to 327
  127.                 else
  128.                   if (the mouseV > 338) and (the mouseV < 352) then
  129.                     set the castNum of sprite S2 to cast "D7"
  130.                     set the locH of sprite S2 to MH
  131.                     set the locV of sprite S2 to 346
  132.                   else
  133.                     if (the mouseV > 359) and (the mouseV < 370) then
  134.                       set the castNum of sprite S2 to cast "D8"
  135.                       set the locH of sprite S2 to MH
  136.                       set the locV of sprite S2 to 365
  137.                     else
  138.                       if (the mouseV > 379) and (the mouseV < 391) then
  139.                         set the castNum of sprite S2 to cast "D9"
  140.                         set the locH of sprite S2 to MH
  141.                         set the locV of sprite S2 to 386
  142.                       else
  143.                         if (the mouseV > 400) and (the mouseV < 413) then
  144.                           set the castNum of sprite S2 to cast "D10"
  145.                           set the locH of sprite S2 to MH
  146.                           set the locV of sprite S2 to 410
  147.                         else
  148.                           set the locH of sprite S2 to -500
  149.                         end if
  150.                       end if
  151.                     end if
  152.                   end if
  153.                 end if
  154.               end if
  155.             end if
  156.           end if
  157.         end if
  158.       end if
  159.     else
  160.       set the locH of sprite S2 to -500
  161.     end if
  162.   end if
  163.   updateStage()
  164. end
  165.