SHARE
TWEET

Untitled

a guest Sep 21st, 2019 106 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
  3. ' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  
  4. '/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
  5. '\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
  6. ' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  
  7. '/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
  8. '  UTILITY - Light Runs
  9. '\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
  10. ' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  
  11. '/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/ \/
  12. '\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\ /\
  13. ' X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  X  
  14.  
  15.     dim arcbld:arcbld=1
  16.     dim arcblu:arcblu=2
  17.     dim arcbrd:arcbrd=3
  18.     dim arcbru:arcbru=4
  19.     dim arctld:arctld=5
  20.     dim arctlu:arctlu=6
  21.     dim arctrd:arctrd=7
  22.     dim arctru:arctru=8
  23.     dim circlein:circlein=9
  24.     dim circleout:circleout=10
  25.     dim clockleft:clockleft=11
  26.     dim clockright:clockright=12
  27.     dim diagdl:diagdl=13
  28.     dim diagdr:diagdr=14
  29.     dim diagul:diagul=15
  30.     dim diagur:diagur=16
  31.     dim down:down=17
  32.  
  33.     'lightrun red,arcbld
  34.     Sub lightrun(colorduring,direction)
  35.         On Error Resume Next
  36.  
  37.         ' color setting
  38.         dim a
  39.         for each a in aLights
  40.             SetLightColor a, colorduring, -1
  41.         next
  42.  
  43.         ' set
  44.         dim time:time=1500
  45.         LightSeqAttract.UpdateInterval = 1
  46.         select case direction
  47.             Case arcbld
  48.                 LightSeqAttract.Play SeqArcBottomLeftDownOn, 90,0,1
  49.                 LightSeqAttract.Play SeqArcBottomLeftDownOff, 90,0,1
  50.             Case arcblu
  51.                 time = 1600
  52.                 LightSeqAttract.Play SeqArcBottomLeftUpOn, 90,0,1
  53.                 LightSeqAttract.Play SeqArcBottomLeftUpOff, 90,0,1
  54.             Case arcbrd
  55.                 LightSeqAttract.Play SeqArcBottomRightDownOn, 90,0,1
  56.                 LightSeqAttract.Play SeqArcBottomRightDownOff, 90,0,1
  57.             Case arcbru
  58.                 LightSeqAttract.Play SeqArcBottomRightUpOn, 90,0,1
  59.                 LightSeqAttract.Play SeqArcBottomRightUpOff, 90,0,1
  60.             Case arctld
  61.                 LightSeqAttract.Play SeqArcTopLeftDownOn, 90
  62.                 LightSeqAttract.Play SeqArcTopLeftDownOff, 90
  63.             Case arctlu
  64.                 LightSeqAttract.Play SeqArcTopLeftUpOn, 90
  65.                 LightSeqAttract.Play SeqArcTopLeftUpOff, 90
  66.             Case arctrd
  67.                 LightSeqAttract.Play SeqArcTopRightDownOn, 90
  68.                 LightSeqAttract.Play SeqArcTopRightDownOff, 90
  69.             Case arctru
  70.                 LightSeqAttract.Play SeqArcTopRightUpOn, 90
  71.                 LightSeqAttract.Play SeqArcTopRightUpOff, 90
  72.             Case circlein
  73.                 time = 1400
  74.                 LightSeqAttract.Play SeqCircleInOn,50
  75.                 LightSeqAttract.Play SeqCircleInOff,50
  76.             Case circleout
  77.                 time = 1400
  78.                 LightSeqAttract.Play SeqCircleOutOn,50
  79.                 LightSeqAttract.Play SeqCircleOutOff,50
  80.             Case clockleft
  81.                 time = 3500
  82.                 LightSeqAttract.UpdateInterval = 2
  83.                 LightSeqAttract.Play SeqClockLeftOn, 45
  84.                 LightSeqAttract.Play SeqClockLeftOff, 45
  85.             Case clockright
  86.                 time = 3500
  87.                 LightSeqAttract.Play SeqClockRightOn,45
  88.                 LightSeqAttract.Play SeqClockRightOff,45
  89.             Case diagdl
  90.                 LightSeqAttract.Play SeqDiagDownLeftOn, 25
  91.                 LightSeqAttract.Play SeqDiagDownLeftOff, 25
  92.             Case diagdr
  93.                 LightSeqAttract.Play SeqDiagDownRightOn, 25
  94.                 LightSeqAttract.Play SeqDiagDownRightOff, 25
  95.             Case diagul
  96.                 LightSeqAttract.Play SeqDiagUpLeftOn, 25
  97.                 LightSeqAttract.Play SeqDiagUpLeftOff, 25
  98.             Case diagur
  99.                 LightSeqAttract.Play SeqDiagUpRightOn, 25
  100.                 LightSeqAttract.Play SeqDiagUpRightOff, 25
  101.             Case down
  102.                 LightSeqAttract.Play SeqDownOn, 15, 1
  103.                 LightSeqAttract.Play SeqDownOff, 15, 1
  104.             Case "LeftDown"
  105.                 LightSeqAttract.Play SeqFanLeftDownOn, 30
  106.             Case "LeftDown"
  107.                 LightSeqAttract.Play SeqFanLeftUpOn, 30
  108.             Case "LeftDown"
  109.                 LightSeqAttract.Play SeqFanRightDownOn, 30
  110.             Case "LeftDown"
  111.                 LightSeqAttract.Play SeqFanRightUpOn, 30
  112.             Case "LeftDown"
  113.                 LightSeqAttract.Play SeqHatch1HorizOn, 25
  114.             Case "LeftDown"
  115.                 LightSeqAttract.Play SeqHatch1VertOn, 75
  116.             Case "LeftDown"
  117.                 LightSeqAttract.Play SeqHatch2HorizOn, 25
  118.             Case "LeftDown"
  119.                 LightSeqAttract.Play SeqHatch2VertOn, 75
  120.             Case "LeftDown"
  121.                 LightSeqAttract.Play SeqLeftOn, 50, 1
  122.             Case "LeftDown"
  123.                 LightSeqAttract.Play SeqMiddleInHorizOn, 50
  124.             Case "LeftDown"
  125.                 LightSeqAttract.Play SeqMiddleInVertOn, 50
  126.             Case "LeftDown"
  127.                 LightSeqAttract.Play SeqMiddleOutHorizOn, 50
  128.             Case "LeftDown"
  129.                 LightSeqAttract.Play SeqMiddleOutVertOn, 50
  130.             Case "LeftDown"
  131.                 LightSeqAttract.Play SeqRadarLeftOn, 45
  132.             Case "LeftDown"
  133.                 LightSeqAttract.Play SeqRadarRightOn, 45
  134.             Case "LeftDown"
  135.                 LightSeqAttract.Play SeqRandom,40,,4000
  136.             Case "LeftDown"
  137.                 LightSeqAttract.Play SeqRightOn, 50, 1
  138.             Case "LeftDown"
  139.                 LightSeqAttract.Play SeqScrewLeftOn, 25
  140.             Case "LeftDown"
  141.                 LightSeqAttract.Play SeqScrewRightOn, 25
  142.             Case "LeftDown"
  143.                 LightSeqAttract.Play SeqStripe1HorizOn, 25
  144.             Case "LeftDown"
  145.                 LightSeqAttract.Play SeqStripe1VertOn, 50,2
  146.             Case "LeftDown"
  147.                 LightSeqAttract.Play SeqStripe2HorizOn, 25
  148.             Case "LeftDown"
  149.                 LightSeqAttract.Play SeqStripe2VertOn, 25
  150.             Case "LeftDown"
  151.                 LightSeqAttract.Play SeqUpOn, 15, 1
  152.             Case "LeftDown"
  153.                 LightSeqAttract.Play SeqWiperLeftOn, 45
  154.             Case "LeftDown"
  155.                 LightSeqAttract.Play SeqWiperRightOn, 45
  156.         end Select
  157.  
  158.         If bMultiBallMode = 1 Then
  159.             colorqueue = colorafter
  160.         end If
  161.  
  162.         runninglights = 1
  163.         dim tafter:tafter = time
  164.         vpmtimer.addtimer tafter, "nolongerrun '"
  165.  
  166.     end Sub
  167.  
  168.     Sub nolongerrun
  169.         runninglights = 0
  170.         LightSeqAttract.StopPlay
  171.         if bMultiBallMode = 0 Then
  172.             relighttable
  173.         end if
  174.     end Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top