forked from LegendsUnchained/vpx-standalone-alp4k
-
Notifications
You must be signed in to change notification settings - Fork 0
/
MF DOOM (GOILL773 2024) v1.1.vbs
executable file
·18867 lines (17277 loc) · 652 KB
/
MF DOOM (GOILL773 2024) v1.1.vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
' .-''-. .--. .-. .--------. .-''-.
' / `'''--.. || \/ ||'=====. || ..--'''` \
' | '. || . . || .---' || .' |
' | ..''` '---. || |\/|_|| '===. || .---' `''.. |
' | .`` ''''\ ||_|\/|.' |_|| /'''' ``. |
' /'.. /` / /'|_.' '._|'\ \ `\ ..'\
' | `:' ___.. \ / / \ \ / ..___ ':` |
' '____'__...---'':::::\ '-' ./ \. '-' \:::::''---...__'____'
' \::/\ \:::::::::::': ___/ \___ :':::::::::::/ /\::/
' \'| \ '-:::--'` .' / \ '. `'--:::-' / |'/
' /'| \ ....''`__/ \__`''.... / |'\
' \ | . | .-'` .------. .------..------. .-. .--. `'-. | . | /
' \/::.' | | || _ V _ || _ V \/ || | | '.::\/
' \':'_.---| | || | | | | | || | | | . . || | |---._':'/
' \\ | | || | | | '| || |' | |\/| || | | //
' \\ | | || |' .'|'. .'||'. .'|'|\/| || | | //
' \\ | | || .'.' '.'.'.' '.'.'.' '| | || | | //
' \\ | | ||.'.' '.' '.' |.|| | | //
' \\ |' |_.' '._| '| //
'
'Change Log
' 01 goill773 - repositioned sounds, minor cosmetic changes
' 02 goill773 - NF physics, rubber dampening, compressed vids/audio
' 03 goill773 - tweaked flashers
' 04 goill773 - updated DOF calls, fixed hs, updated PuP vids, tweaked lighting, added new fx, cosmetic changes
' 05 goill773 - updated more DOF calls, fixed spamming start error, added MagnaSave LUT changer, tweaked lighting, lowered drop target heights, comsmetic changes
' 06 goill773 - full Fleep implementation, rubberizer, targetbouncer, added ball options, tweaked flashers, tweaked GI, reshaped some plastics and added lights
' - made ramps easier to hit, added static and animated primitives, fixed hs error, cosmetic changes
' 07 goill773 - added dynamic ball shdow, fixed right orbit hitting slings, tweaked GI more, added flasherbloom/intensity to flupper domes, tweaked mech sounds
' 08 goill773 - added invisible walls to fix bumper2 ball jam and targetbouncer jumps , deleted dupe "cor.update", added flipper control of lane lights for skillshot
' - tweaked lightsequencer timings and colors, added rainbow/purple attract mode, added variable spin prim speeds, added Keyup/down lights to glowing hands next to flippers
' - added new "Arrow" & "?" lights under right ramp hit target for mystery missions, added mystery bonus & mission callouts, scripted some mystery alias bonus missions
' - updated PuP callout and video priorities, added level primitive, added screws on gates, added ramp entry flap primitives, added additional animated smoke cloud primitive in bong
' - added PuP "smoke cloud popups" when bumper1 hit, added PuP "smoke cloud gifs" at ball release and drain events
' - added 2 Metal Fist primitives that randomly shake when slings hit, added a spinning bumper1 cap, weed prims shake on bumper3 hit, bong shakes on bumper1 hit, masks shake when hit
' - added lots of new playfield & plastics text and graphics, added new flipper graphics, added new plunger lane plastics with lights, added graffiti images to backwall square posts
' - fixed POV for DT and updated new DT background image, added/deleted some sound fx
' 08a hauntfreaks - darkened DT background image
' 09a oqqsan - Pure Flex DMD ... things start to look good.. need to enter all gifs names/lengths
' 09b goill773 - added Flex gif lengths, added Fire font/pngs
' 09c oqqsan - added scripts for intro startup and end of game gifs, troubleshooting
' 09e oqqsan - added Flex Title at startup
' 09f oqqsan - Flex font tweaks (colors, sizes, position, alignment)
' 09g goill773 - updated Fire fx pngs
' 09h goill773 - added more Flex animation scoring effects (checkerboard, vertical/horizontal/diagonal stripes, explosion, implosion, spirals, stars)
' 10i oqqsan - fistbumps for slings
' 11 goill773 - updated pf art, added more inserts, added flipper prims, added DOOMSDAY lights, added cartoon smoke animations, added flasher lasers from mask rubies
' - added VR room, fixed positioning of ramps, outlane wire guides, blunt wrap & smoke prims
' 12 goill773 - VR tweaks, added VR mask topper, Animated plunger
' 13 iaakki - Reworking how inserts are done
' 14 iaakki - Bug fix and 17 new inserts reworked
' 15 iaakki - Added insert color mod. Some new inserts reworked
' 16 iaakki - Inserts done
' 17 iaakki - Fixed the GI bug I made and adjusted some levels
' 18 iaakki - Slings fixed, callout volume option added, something must be done for primitive25
' 19 RobbyKingPin - Updated nFozzy/Rothbauerw physics and Fleep sounds, removed JP's ball rolling codes. Removed endpoints for the flippers and added endpoints on the slingshots
' 22 MerlinRTP - Converted Pup from Orbital to pupevents, pup can be disabled to only use audio from pup, removed extraneous code and timers
' - Added sequence stopplay to the 4 long routines, converted vpmtimer to queue/tick timers
' 23 RobbyKingPin - Added Rothbauerw Targets
' - Further inspection on the entire playfield to ensure all nFozzy and Fleep implementations are working as they should
' - Added VR Hybrid codes
' 24 MerlinRTP - Added Audio Callouts that were missing, Added targets to Fleep target collection, changed how skill/lane light rotation works,
' - Fixed audio bugs where music would stop playing, Added highscore 4 to display rotation.
' - Moved Music to MFDOOM music folder for copywright issues
' - Added functions to dynamacially create the songs array based off what files are placed in music\MFDOOM folder
' - Fixed High Scores
' - Fixed Smoke clouds tied to bumpers, fixed flippers and solenoids from firing when game not started
' 25 Kemurro - Artwork for pup overlays, cabinet art, backgrounds, backglass
' RC1 MerlinRTP - Adjust ballrolling sounds, review code for release
' RC2 MerlinRTP - Changed audio file routines
' RC3 DGrimmReaper - Added VR flipper animations
' RC4 MerlinRTP - Added missing Drop_Target audio files, replaced a couple fx??? calls
' RC5 MerlinRTP - Added Scorbit
' RC6 apophis - Fixed autoplunger. Made VR flipper buttons red. Set ScorbitActive = 0. Default Day Night set to 30%. Set most VR room prims disable lighting to zero. Updated desktop and cab pov. Updated Table Info Description with current credits
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Option Explicit
Randomize
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
' This will dynamically create an array SONGS that has the mp3 files it finds in music\MFDOOM directory
'Dim re,fso,folder,files,Songs
'Songs = mp3PathArray
dim Songs(15)
Songs(1) = "MFDOOM01.mp3"
Songs(2) = "MFDOOM02.mp3"
Songs(3) = "MFDOOM03.mp3"
Songs(4) = "MFDOOM04.mp3"
Songs(5) = "MFDOOM05.mp3"
Songs(6) = "MFDOOM06.mp3"
Songs(7) = "MFDOOM07.mp3"
Songs(8) = "MFDOOM08.mp3"
Songs(9) = "MFDOOM09.mp3"
Songs(10) = "MFDOOM10.mp3"
Songs(11) = "MFDOOM11.mp3"
Songs(12) = "MFDOOM12.mp3"
Songs(13) = "MFDOOM13.mp3"
Songs(13) = "MFDOOM14.mp3"
Songs(14) = "Attract1.mp3"
Songs(15) = "Attract2.mp3"
' USER OPTIONS
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'****** PuP Variables ******
Dim UsePuPEvents: Dim cPuPPack: Dim PUPStatus: PUPStatus=false ' dont edit this line!!!
'*************************** PuP Settings for this table ********************************
UsePuPEvents = True ' enable Pinup Player functions for this table
cPuPPack = "MFDOOM" ' name of the PuP-Pack / PuPVideos folder for this table
'----- General Sound Options -----
Const VolumeDial = 0.8 ' Recommended values should be no greater than 1.
'----- Shadow Options -----
Const DynamicBallShadowsOn = 1 '0 = no dynamic ball shadow, 1 = enable dynamic ball shadow
'----- LUT Selector Using Magna Save Toggle On/Off-----
DisableLUTSelector = 0 '0 = LUT selector using magna save enabled, 1 = LUT selector using magna save disabled
'----- PUP Topper Videos Toggle On/Off -----
TopperVideo = 1 '0 = turn off, 1 = turn on PUP topper videos
'----- Smoke Animations Toggle On/Off -----
SmokeAnimation = 1 '0 = turn off, 1 = turn on cartoon bong/blunt smoke animations
'----- Callouts Toggle On/Off -----
EnableCallouts = 1 '0 = turn off, 1 = turn on
CalloutVol = 0.5 ' Recommended values should be no greater than 1.
'----- Choose Ball Options -----
Const ChooseBall = 0 'Choose Ball Settings (select 0-4)
' *** 0 = Normal Ball
' *** 1 = Purple Green Swirl Ball
' *** 2 = Purple Swirl Ball
' *** 3 = Purple Disco Ball
' *** 4 = Purple Stripes Ball
'----- Flipper Color Options -----
Const ChooseFlipper = 0 'Choose Flipper Color (select 0-1)
' *** 0 = Yellow
' *** 1 = White
Dim BallRollVolume : BallRollVolume = 0.5 ' Level of ball rolling volume. Value between 0 and 1
Dim RampRollVolume : RampRollVolume = 0.5 ' Level of ramp rolling volume. Value between 0 and 1
Dim StagedFlippers : StagedFlippers = 0 ' Staged Flippers. 0 = Disabled, 1 = Enabled
'----- Music Options -----
Const fMusicVolume = 0.5 'Music volume. 0 = no music, 1 = full volume
COnst fAttractVolume = 0.3 'Attract mode music volume. 0 = no music, 1 = full volume
' SCORBIT SETTINGS
'//////////////////////////////////////////////////////////////////////
dim ScorbitActive
ScorbitActive = 0 ' Is Scorbit Active
Const ScorbitShowClaimQR = 1 ' If Scorbit is active this will show a QR Code on ball 1 that allows player to claim the active player from the app
Const ScorbitUploadLog = 0 ' Store local log and upload after the game is over
Const ScorbitAlternateUUID = 0 ' Force Alternate UUID from Windows Machine and saves it in VPX Users directory (C:\Visual Pinball\User\ScorbitUUID.dat)
Dim bOnTheFirstBallScorbit
'/////////////////////////////////////////////////////////////////////
'*******************************************
' ZCON: Constants and Global Variables
'*******************************************
Const BallSize = 50 'Ball diameter in VPX units; must be 50
Const BallMass = 1 'Ball mass must be 1
Const tnob = 5 'Total number of balls the table can hold
Const lob = 0 'Locked balls
'----- VR Room Auto-Detect -----
Dim VRRoom, VR_Obj, VRMode
Const VRTest = 0 ' 1 = Testing VR in Live View, 0 = Do not force VR mode.
If RenderingMode = 2 or Table1.ShowFSS = True or VRTest = 1 Then
VRMode = True
DMDbackbox.visible=true ' flasher dmd
PinCab_Rails.Visible = 1
For Each VR_Obj in VRCabinet : VR_Obj.Visible = 1 : Next
For Each VR_Obj in VRMinimalRoom : VR_Obj.Visible = 1 : Next
Else
VRMode = False
For Each VR_Obj in VRCabinet : VR_Obj.Visible = 0 : Next
For Each VR_Obj in VRMinimalRoom : VR_Obj.Visible = 0 : Next
End If
Dim tablewidth
tablewidth = Table1.width
Dim tableheight
tableheight = Table1.height
Dim BIP 'Balls in play
BIP = 0
Dim BIPL 'Ball in plunger lane
BIPL = False
Dim CurrBall
Dim BallHandlingQueue : Set BallHandlingQueue = New vpwQueueManager
Dim AudioQueue : Set AudioQueue = New vpwQueueManager
Dim LightQueue : Set LightQueue = New vpwQueueManager
Dim GeneralPupQueue: Set GeneralPupQueue = New vpwQueueManager
'*************************************************
'******** FLEXDMD ********************************
'*************************************************
' FlexDMD constants
Const FlexDMD_RenderMode_DMD_GRAY = 0, _
FlexDMD_RenderMode_DMD_GRAY_4 = 1, _
FlexDMD_RenderMode_DMD_RGB = 2, _
FlexDMD_RenderMode_SEG_2x16Alpha = 3, _
FlexDMD_RenderMode_SEG_2x20Alpha = 4, _
FlexDMD_RenderMode_SEG_2x7Alpha_2x7Num = 5, _
FlexDMD_RenderMode_SEG_2x7Alpha_2x7Num_4x1Num = 6, _
FlexDMD_RenderMode_SEG_2x7Num_2x7Num_4x1Num = 7, _
FlexDMD_RenderMode_SEG_2x7Num_2x7Num_10x1Num = 8, _
FlexDMD_RenderMode_SEG_2x7Num_2x7Num_4x1Num_gen7 = 9, _
FlexDMD_RenderMode_SEG_2x7Num10_2x7Num10_4x1Num = 10, _
FlexDMD_RenderMode_SEG_2x6Num_2x6Num_4x1Num = 11, _
FlexDMD_RenderMode_SEG_2x6Num10_2x6Num10_4x1Num = 12, _
FlexDMD_RenderMode_SEG_4x7Num10 = 13, _
FlexDMD_RenderMode_SEG_6x4Num_4x1Num = 14, _
FlexDMD_RenderMode_SEG_2x7Num_4x1Num_1x16Alpha = 15, _
FlexDMD_RenderMode_SEG_1x16Alpha_1x16Num_1x7Num = 16
Const FlexDMD_Align_TopLeft = 0, _
FlexDMD_Align_Top = 1, _
FlexDMD_Align_TopRight = 2, _
FlexDMD_Align_Left = 3, _
FlexDMD_Align_Center = 4, _
FlexDMD_Align_Right = 5, _
FlexDMD_Align_BottomLeft = 6, _
FlexDMD_Align_Bottom = 7, _
FlexDMD_Align_BottomRight = 8
Dim FlexDMD
Dim Frame
Dim DMDMode
:
Sub FlexDMD_init
Dim fso,curdir
Set FlexDMD = CreateObject("FlexDMD.FlexDMD")
If FlexDMD is Nothing Then
MsgBox "No FlexDMD found. This table will NOT run without it."
Exit Sub
End If
SetLocale(1033)
With FlexDMD
.GameName = cGameName
.TableFile = Table1.Filename & ".vpx"
.Color = RGB(255, 88, 32)
.RenderMode = FlexDMD_RenderMode_DMD_GRAY_4
.Width = 128
.Height = 32
.Clear = True
.ProjectFolder = "./MFDOOMDMD/"
.Run = True
End With
CreateDMD_intro
DMDTimer.interval=17
DMDTimer.enabled=True
End Sub
Dim FontScoreActive
Dim FontScoreInactive
Dim FontFire1, FontFire2, FontFire3, FontFire4, FontFire5, FontFire6, FontFire7, FontFire8, FontFire9
Dim FontFireBG1, FontFireBG2, FontFireBG3, FontFireBG4, FontFireBG5, FontFireBG6, FontFireBG7, FontFireBG8, FontFireBG9
Dim FontCheckerboard1, FontCheckerboard2, FontCheckerboard3, FontCheckerboard4, FontCheckerboard5, FontCheckerboard6, FontCheckerboard7, FontCheckerboard8
Dim FontCheckerboardBG1, FontCheckerboardBG2, FontCheckerboardBG3, FontCheckerboardBG4, FontCheckerboardBG5, FontCheckerboardBG6, FontCheckerboardBG7, FontCheckerboardBG8
Dim FontExp1, FontExp2, FontExp3, FontExp4, FontExp5, FontExp6, FontExp7
Dim FontExpBG1, FontExpBG2, FontExpBG3, FontExpBG4, FontExpBG5, FontExpBG6, FontExpBG7
Dim FontImp1, FontImp2, FontImp3, FontImp4, FontImp5, FontImp6, FontImp7
Dim FontImpBG1, FontImpBG2, FontImpBG3, FontImpBG4, FontImpBG5, FontImpBG6, FontImpBG7
Dim FontVerticalThick1, FontVerticalThick2, FontVerticalThick3, FontVerticalThick4, FontVerticalThick5, FontVerticalThick6, FontVerticalThick7, FontVerticalThick8
Dim FontVerticalThickBG1, FontVerticalThickBG2, FontVerticalThickBG3, FontVerticalThickBG4, FontVerticalThickBG5, FontVerticalThickBG6, FontVerticalThickBG7, FontVerticalThickBG8
Dim FontHorizontalThick1, FontHorizontalThick2, FontHorizontalThick3, FontHorizontalThick4, FontHorizontalThick5, FontHorizontalThick6, FontHorizontalThick7, FontHorizontalThick8, FontHorizontalThick9, FontHorizontalThick10, FontHorizontalThick11, FontHorizontalThick12, FontHorizontalThick13, FontHorizontalThick14
Dim FontHorizontalThickBG1, FontHorizontalThickBG2, FontHorizontalThickBG3, FontHorizontalThickBG4, FontHorizontalThickBG5, FontHorizontalThickBG6, FontHorizontalThickBG7, FontHorizontalThickBG8, FontHorizontalThickBG9, FontHorizontalThickBG10, FontHorizontalThickBG11, FontHorizontalThickBG12, FontHorizontalThickBG13, FontHorizontalThickBG14
Dim FontSpiral1, FontSpiral2, FontSpiral3, FontSpiral4, FontSpiral5, FontSpiral6, FontSpiral7
Dim FontSpiralBG1, FontSpiralBG2, FontSpiralBG3, FontSpiralBG4, FontSpiralBG5, FontSpiralBG6, FontSpiralBG7
Dim FontSpiralL1, FontSpiralL2, FontSpiralL3, FontSpiralL4, FontSpiralL5, FontSpiralL6, FontSpiralL7
Dim FontSpiralLBG1, FontSpiralLBG2, FontSpiralLBG3, FontSpiralLBG4, FontSpiralLBG5, FontSpiralLBG6, FontSpiralLBG7
Dim FontStar1, FontStar2, FontStar3, FontStar4, FontStar5, FontStar6, FontStar7, FontStar8
Dim FontStarBG1, FontStarBG2, FontStarBG3, FontStarBG4, FontStarBG5, FontStarBG6, FontStarBG7, FontStarBG8
Dim FontDiag1, FontDiag2, FontDiag3, FontDiag4, FontDiag5, FontDiag6, FontDiag7, FontDiag8, FontDiag9, FontDiag10, FontDiag11, FontDiag12, FontDiag13, FontDiag14, FontDiag15, FontDiag16, FontDiag17
Dim FontDiagBG1, FontDiagBG2, FontDiagBG3, FontDiagBG4, FontDiagBG5, FontDiagBG6, FontDiagBG7, FontDiagBG8, FontDiagBG9, FontDiagBG10, FontDiagBG11, FontDiagBG12, FontDiagBG13, FontDiagBG14, FontDiagBG15, FontDiagBG16, FontDiagBG17
Dim FontDiagL1, FontDiagL2, FontDiagL3, FontDiagL4, FontDiagL5, FontDiagL6, FontDiagL7, FontDiagL8, FontDiagL9, FontDiagL10, FontDiagL11, FontDiagL12, FontDiagL13, FontDiagL14, FontDiagL15, FontDiagL16, FontDiagL17
Dim FontDiagLBG1, FontDiagLBG2, FontDiagLBG3, FontDiagLBG4, FontDiagLBG5, FontDiagLBG6, FontDiagLBG7, FontDiagLBG8, FontDiagLBG9, FontDiagLBG10, FontDiagLBG11, FontDiagLBG12, FontDiagLBG13, FontDiagLBG14, FontDiagLBG15, FontDiagLBG16, FontDiagLBG17
Dim FontMask1, FontMask2, FontMask3, FontMask4, FontMask5, FontMask6, FontMask7, FontMask8, FontMask9, FontMask10, FontMask11, FontMask12, FontMask13
Dim FontMaskBG1, FontMaskBG2, FontMaskBG3, FontMaskBG4, FontMaskBG5, FontMaskBG6, FontMaskBG7, FontMaskBG8, FontMaskBG9, FontMaskBG10, FontMaskBG11, FontMaskBG12, FontMaskBG13
Dim FontMaskCenter1, FontMaskCenter2, FontMaskCenter3, FontMaskCenter4, FontMaskCenter5, FontMaskCenter6, FontMaskCenter7, FontMaskCenter8, FontMaskCenter9, FontMaskCenter10
Dim FontMaskCenterBG1, FontMaskCenterBG2, FontMaskCenterBG3, FontMaskCenterBG4, FontMaskCenterBG5, FontMaskCenterBG6, FontMaskCenterBG7, FontMaskCenterBG8, FontMaskCenterBG9, FontMaskCenterBG10
Dim FontMaskBounce1, FontMaskBounce2, FontMaskBounce3, FontMaskBounce4, FontMaskBounce5, FontMaskBounce6, FontMaskBounce7, FontMaskBounce8, FontMaskBounce9, FontMaskBounce10, FontMaskBounce11
Dim FontMaskBounceBG1, FontMaskBounceBG2, FontMaskBounceBG3, FontMaskBounceBG4, FontMaskBounceBG5, FontMaskBounceBG6, FontMaskBounceBG7, FontMaskBounceBG8, FontMaskBounceBG9, FontMaskBounceBG10, FontMaskBounceBG11
Dim FontMaskBounceH1, FontMaskBounceH2, FontMaskBounceH3, FontMaskBounceH4, FontMaskBounceH5, FontMaskBounceH6, FontMaskBounceH7, FontMaskBounceH8, FontMaskBounceH9
Dim FontMaskBounceHBG1, FontMaskBounceHBG2, FontMaskBounceHBG3, FontMaskBounceHBG4, FontMaskBounceHBG5, FontMaskBounceHBG6, FontMaskBounceHBG7, FontMaskBounceHBG8,FontMaskBounceHBG9
Dim FontBig, FontBig2, FontBig3
Sub CreateDMD_intro
Frame = 0
Set FontFire1= FlexDMD.NewFont("udmd-f7by13-example1.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontFire2= FlexDMD.NewFont("udmd-f7by13-example2.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontFire3= FlexDMD.NewFont("udmd-f7by13-example3.fnt", RGB(255, 215, 00), vbWhite, 0) 'gold
Set FontFire4= FlexDMD.NewFont("udmd-f7by13-example4.fnt", RGB(255, 165, 0), vbWhite, 0) 'orange
Set FontFire5= FlexDMD.NewFont("udmd-f7by13-example5.fnt", RGB(255, 165, 0), vbWhite, 0) 'orange
Set FontFire6= FlexDMD.NewFont("udmd-f7by13-example6.fnt", RGB(255, 140, 0), vbWhite, 0) 'darkorange
Set FontFire7= FlexDMD.NewFont("udmd-f7by13-example7.fnt", RGB(255, 140, 0), vbWhite, 0) 'darkorange
Set FontFire8= FlexDMD.NewFont("udmd-f7by13-example8.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontFire9= FlexDMD.NewFont("udmd-f7by13-example9.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontFireBG1= FlexDMD.NewFont("udmd-f7by13-exampleBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontFireBG2= FlexDMD.NewFont("udmd-f7by13-exampleBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontFireBG3= FlexDMD.NewFont("udmd-f7by13-exampleBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontFireBG4= FlexDMD.NewFont("udmd-f7by13-exampleBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontFireBG5= FlexDMD.NewFont("udmd-f7by13-exampleBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontFireBG6= FlexDMD.NewFont("udmd-f7by13-exampleBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontFireBG7= FlexDMD.NewFont("udmd-f7by13-exampleBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontFireBG8= FlexDMD.NewFont("udmd-f7by13-exampleBG8.fnt", vbBlack, vbWhite, 0) 'black
Set FontFireBG9= FlexDMD.NewFont("udmd-f7by13-exampleBG9.fnt", vbBlack, vbWhite, 0) 'black
Set FontCheckerboard1= FlexDMD.NewFont("udmd-f7by13-checkerboard1.fnt", vbYellow, vbWhite, 0)
Set FontCheckerboard2= FlexDMD.NewFont("udmd-f7by13-checkerboard2.fnt", RGB(255, 0, 255), vbWhite, 0) 'magenta
Set FontCheckerboardBG1= FlexDMD.NewFont("udmd-f7by13-checkerboardBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontCheckerboardBG2= FlexDMD.NewFont("udmd-f7by13-checkerboardBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontExp1= FlexDMD.NewFont("udmd-f7by13-exp1.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontExp2= FlexDMD.NewFont("udmd-f7by13-exp2.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontExp3= FlexDMD.NewFont("udmd-f7by13-exp3.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontExp4= FlexDMD.NewFont("udmd-f7by13-exp4.fnt", RGB(0, 255, 127), vbWhite, 0) 'spring green
Set FontExp5= FlexDMD.NewFont("udmd-f7by13-exp5.fnt", RGB(0, 255, 127), vbWhite, 0) 'spring green
Set FontExp6= FlexDMD.NewFont("udmd-f7by13-exp6.fnt", RGB(173, 255, 47), vbWhite, 0) ' green yellow
Set FontExp7= FlexDMD.NewFont("udmd-f7by13-exp7.fnt", RGB(173, 255, 47), vbWhite, 0) ' green yellow
Set FontExpBG1= FlexDMD.NewFont("udmd-f7by13-expBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontExpBG2= FlexDMD.NewFont("udmd-f7by13-expBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontExpBG3= FlexDMD.NewFont("udmd-f7by13-expBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontExpBG4= FlexDMD.NewFont("udmd-f7by13-expBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontExpBG5= FlexDMD.NewFont("udmd-f7by13-expBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontExpBG6= FlexDMD.NewFont("udmd-f7by13-expBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontExpBG7= FlexDMD.NewFont("udmd-f7by13-expBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontImp1= FlexDMD.NewFont("udmd-f7by13-imp1.fnt", RGB(139, 0, 139), vbWhite, 0) 'dark magenta
Set FontImp2= FlexDMD.NewFont("udmd-f7by13-imp2.fnt", RGB(139, 0, 139), vbWhite, 0) 'dark magenta
Set FontImp3= FlexDMD.NewFont("udmd-f7by13-imp3.fnt", RGB(139, 0, 139), vbWhite, 0) 'dark magenta
Set FontImp4= FlexDMD.NewFont("udmd-f7by13-imp4.fnt", RGB(255, 0, 255), vbWhite, 0) 'magenta
Set FontImp5= FlexDMD.NewFont("udmd-f7by13-imp5.fnt", RGB(255, 0, 255), vbWhite, 0) 'magenta
Set FontImp6= FlexDMD.NewFont("udmd-f7by13-imp6.fnt", RGB(238, 130, 238), vbWhite, 0) 'violet
Set FontImp7= FlexDMD.NewFont("udmd-f7by13-imp7.fnt", RGB(238, 130, 238), vbWhite, 0) 'violet
Set FontImpBG1= FlexDMD.NewFont("udmd-f7by13-impBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontImpBG2= FlexDMD.NewFont("udmd-f7by13-impBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontImpBG3= FlexDMD.NewFont("udmd-f7by13-impBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontImpBG4= FlexDMD.NewFont("udmd-f7by13-impBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontImpBG5= FlexDMD.NewFont("udmd-f7by13-impBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontImpBG6= FlexDMD.NewFont("udmd-f7by13-impBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontImpBG7= FlexDMD.NewFont("udmd-f7by13-impBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontVerticalThick1= FlexDMD.NewFont("udmd-f7by13-verticalthick1.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontVerticalThick2= FlexDMD.NewFont("udmd-f7by13-verticalthick2.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontVerticalThick3= FlexDMD.NewFont("udmd-f7by13-verticalthick3.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontVerticalThick4= FlexDMD.NewFont("udmd-f7by13-verticalthick4.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontVerticalThick5= FlexDMD.NewFont("udmd-f7by13-verticalthick5.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontVerticalThick6= FlexDMD.NewFont("udmd-f7by13-verticalthick6.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontVerticalThick7= FlexDMD.NewFont("udmd-f7by13-verticalthick7.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontVerticalThick8= FlexDMD.NewFont("udmd-f7by13-verticalthick8.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontVerticalThickBG1= FlexDMD.NewFont("udmd-f7by13-verticalthickBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontVerticalThickBG2= FlexDMD.NewFont("udmd-f7by13-verticalthickBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontVerticalThickBG3= FlexDMD.NewFont("udmd-f7by13-verticalthickBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontVerticalThickBG4= FlexDMD.NewFont("udmd-f7by13-verticalthickBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontVerticalThickBG5= FlexDMD.NewFont("udmd-f7by13-verticalthickBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontVerticalThickBG6= FlexDMD.NewFont("udmd-f7by13-verticalthickBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontVerticalThickBG7= FlexDMD.NewFont("udmd-f7by13-verticalthickBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontVerticalThickBG8= FlexDMD.NewFont("udmd-f7by13-verticalthickBG8.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThick1= FlexDMD.NewFont("udmd-f7by13-horizontalthick1.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontHorizontalThick2= FlexDMD.NewFont("udmd-f7by13-horizontalthick2.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontHorizontalThick3= FlexDMD.NewFont("udmd-f7by13-horizontalthick3.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontHorizontalThick4= FlexDMD.NewFont("udmd-f7by13-horizontalthick4.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontHorizontalThick5= FlexDMD.NewFont("udmd-f7by13-horizontalthick5.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontHorizontalThick6= FlexDMD.NewFont("udmd-f7by13-horizontalthick6.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontHorizontalThick7= FlexDMD.NewFont("udmd-f7by13-horizontalthick7.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontHorizontalThick8= FlexDMD.NewFont("udmd-f7by13-horizontalthick8.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontHorizontalThick9= FlexDMD.NewFont("udmd-f7by13-horizontalthick9.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontHorizontalThick10= FlexDMD.NewFont("udmd-f7by13-horizontalthick10.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontHorizontalThick11= FlexDMD.NewFont("udmd-f7by13-horizontalthick11.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontHorizontalThick12= FlexDMD.NewFont("udmd-f7by13-horizontalthick12.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontHorizontalThick13= FlexDMD.NewFont("udmd-f7by13-horizontalthick13.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontHorizontalThick14= FlexDMD.NewFont("udmd-f7by13-horizontalthick14.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontHorizontalThickBG1= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG2= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG3= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG4= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG5= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG6= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG7= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG8= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG8.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG9= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG9.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG10= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG10.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG11= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG11.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG12= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG12.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG13= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG13.fnt", vbBlack, vbWhite, 0) 'black
Set FontHorizontalThickBG14= FlexDMD.NewFont("udmd-f7by13-horizontalthickBG14.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiral1= FlexDMD.NewFont("udmd-f7by13-spiral1.fnt", RGB(255, 192, 203), vbWhite, 0) 'pink
Set FontSpiral2= FlexDMD.NewFont("udmd-f7by13-spiral2.fnt", RGB(255, 182, 193), vbWhite, 0) 'light pink
Set FontSpiral3= FlexDMD.NewFont("udmd-f7by13-spiral3.fnt", RGB(219, 112, 147), vbWhite, 0) 'pale violet red
Set FontSpiral4= FlexDMD.NewFont("udmd-f7by13-spiral4.fnt", RGB(255, 105, 180), vbWhite, 0) 'hot pink
Set FontSpiral5= FlexDMD.NewFont("udmd-f7by13-spiral5.fnt", RGB(255, 20, 147), vbWhite, 0) 'deep pink
Set FontSpiral6= FlexDMD.NewFont("udmd-f7by13-spiral6.fnt", RGB(199, 21, 133), vbWhite, 0) 'medium violet red
Set FontSpiral7= FlexDMD.NewFont("udmd-f7by13-spiral7.fnt", RGB(255, 0, 255), vbWhite, 0) 'magenta
Set FontSpiralBG1= FlexDMD.NewFont("udmd-f7by13-spiralBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralBG2= FlexDMD.NewFont("udmd-f7by13-spiralBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralBG3= FlexDMD.NewFont("udmd-f7by13-spiralBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralBG4= FlexDMD.NewFont("udmd-f7by13-spiralBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralBG5= FlexDMD.NewFont("udmd-f7by13-spiralBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralBG6= FlexDMD.NewFont("udmd-f7by13-spiralBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralBG7= FlexDMD.NewFont("udmd-f7by13-spiralBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralL1= FlexDMD.NewFont("udmd-f7by13-spiralL1.fnt", RGB(255, 0, 255), vbWhite, 0) 'magenta
Set FontSpiralL2= FlexDMD.NewFont("udmd-f7by13-spiralL2.fnt", RGB(199, 21, 133), vbWhite, 0) 'medium violet red
Set FontSpiralL3= FlexDMD.NewFont("udmd-f7by13-spiralL3.fnt", RGB(255, 20, 147), vbWhite, 0) 'deep pink
Set FontSpiralL4= FlexDMD.NewFont("udmd-f7by13-spiralL4.fnt", RGB(255, 105, 180), vbWhite, 0) 'hot pink
Set FontSpiralL5= FlexDMD.NewFont("udmd-f7by13-spiralL5.fnt", RGB(219, 112, 147), vbWhite, 0) 'pale violet red
Set FontSpiralL6= FlexDMD.NewFont("udmd-f7by13-spiralL6.fnt", RGB(255, 182, 193), vbWhite, 0) 'light pink
Set FontSpiralL7= FlexDMD.NewFont("udmd-f7by13-spiralL7.fnt", RGB(255, 192, 203), vbWhite, 0) 'pink
Set FontSpiralLBG1= FlexDMD.NewFont("udmd-f7by13-spiralLBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralLBG2= FlexDMD.NewFont("udmd-f7by13-spiralLBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralLBG3= FlexDMD.NewFont("udmd-f7by13-spiralLBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralLBG4= FlexDMD.NewFont("udmd-f7by13-spiralLBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralLBG5= FlexDMD.NewFont("udmd-f7by13-spiralLBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralLBG6= FlexDMD.NewFont("udmd-f7by13-spiralLBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontSpiralLBG7= FlexDMD.NewFont("udmd-f7by13-spiralLBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontStar1= FlexDMD.NewFont("udmd-f7by13-star1.fnt", RGB(255, 192, 203), vbWhite, 0) 'pink
Set FontStar2= FlexDMD.NewFont("udmd-f7by13-star2.fnt", RGB(255, 182, 193), vbWhite, 0) 'light pink
Set FontStar3= FlexDMD.NewFont("udmd-f7by13-star3.fnt", RGB(219, 112, 147), vbWhite, 0) 'pale violet red
Set FontStar4= FlexDMD.NewFont("udmd-f7by13-star4.fnt", RGB(255, 105, 180), vbWhite, 0) 'hot pink
Set FontStar5= FlexDMD.NewFont("udmd-f7by13-star5.fnt", RGB(255, 20, 147), vbWhite, 0) 'deep pink
Set FontStar6= FlexDMD.NewFont("udmd-f7by13-star6.fnt", RGB(199, 21, 133), vbWhite, 0) 'medium violet red
Set FontStar7= FlexDMD.NewFont("udmd-f7by13-star7.fnt", RGB(255, 0, 255), vbWhite, 0) 'magenta
Set FontStar8= FlexDMD.NewFont("udmd-f7by13-star8.fnt", RGB(153, 50, 204), vbWhite, 0) 'dark orchid
Set FontStarBG1= FlexDMD.NewFont("udmd-f7by13-starBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontStarBG2= FlexDMD.NewFont("udmd-f7by13-starBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontStarBG3= FlexDMD.NewFont("udmd-f7by13-starBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontStarBG4= FlexDMD.NewFont("udmd-f7by13-starBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontStarBG5= FlexDMD.NewFont("udmd-f7by13-starBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontStarBG6= FlexDMD.NewFont("udmd-f7by13-starBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontStarBG7= FlexDMD.NewFont("udmd-f7by13-starBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontStarBG8= FlexDMD.NewFont("udmd-f7by13-starBG8.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiag1= FlexDMD.NewFont("udmd-f7by13-diag1.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontDiag2= FlexDMD.NewFont("udmd-f7by13-diag2.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontDiag3= FlexDMD.NewFont("udmd-f7by13-diag3.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontDiag4= FlexDMD.NewFont("udmd-f7by13-diag4.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontDiag5= FlexDMD.NewFont("udmd-f7by13-diag5.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontDiag6= FlexDMD.NewFont("udmd-f7by13-diag6.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontDiag7= FlexDMD.NewFont("udmd-f7by13-diag7.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontDiag8= FlexDMD.NewFont("udmd-f7by13-diag8.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontDiag9= FlexDMD.NewFont("udmd-f7by13-diag9.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontDiag10= FlexDMD.NewFont("udmd-f7by13-diag10.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontDiag11= FlexDMD.NewFont("udmd-f7by13-diag11.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontDiag12= FlexDMD.NewFont("udmd-f7by13-diag12.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontDiag13= FlexDMD.NewFont("udmd-f7by13-diag13.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontDiag14= FlexDMD.NewFont("udmd-f7by13-diag14.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontDiag15= FlexDMD.NewFont("udmd-f7by13-diag15.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontDiag16= FlexDMD.NewFont("udmd-f7by13-diag16.fnt", RGB(0, 100, 0), vbWhite, 0) 'dark green
Set FontDiag17= FlexDMD.NewFont("udmd-f7by13-diag17.fnt", RGB(0, 100, 0), vbWhite, 0) 'dark green
Set FontDiagBG1= FlexDMD.NewFont("udmd-f7by13-diagBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG2= FlexDMD.NewFont("udmd-f7by13-diagBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG3= FlexDMD.NewFont("udmd-f7by13-diagBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG4= FlexDMD.NewFont("udmd-f7by13-diagBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG5= FlexDMD.NewFont("udmd-f7by13-diagBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG6= FlexDMD.NewFont("udmd-f7by13-diagBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG7= FlexDMD.NewFont("udmd-f7by13-diagBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG8= FlexDMD.NewFont("udmd-f7by13-diagBG8.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG9= FlexDMD.NewFont("udmd-f7by13-diagBG9.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG10= FlexDMD.NewFont("udmd-f7by13-diagBG10.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG11= FlexDMD.NewFont("udmd-f7by13-diagBG11.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG12= FlexDMD.NewFont("udmd-f7by13-diagBG12.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG13= FlexDMD.NewFont("udmd-f7by13-diagBG13.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG14= FlexDMD.NewFont("udmd-f7by13-diagBG14.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG15= FlexDMD.NewFont("udmd-f7by13-diagBG15.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG16= FlexDMD.NewFont("udmd-f7by13-diagBG16.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagBG17= FlexDMD.NewFont("udmd-f7by13-diagBG17.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagL1= FlexDMD.NewFont("udmd-f7by13-diagL1.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontDiagL2= FlexDMD.NewFont("udmd-f7by13-diagL2.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontDiagL3= FlexDMD.NewFont("udmd-f7by13-diagL3.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontDiagL4= FlexDMD.NewFont("udmd-f7by13-diagL4.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontDiagL5= FlexDMD.NewFont("udmd-f7by13-diagL5.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontDiagL6= FlexDMD.NewFont("udmd-f7by13-diagL6.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontDiagL7= FlexDMD.NewFont("udmd-f7by13-diagL7.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontDiagL8= FlexDMD.NewFont("udmd-f7by13-diagL8.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontDiagL9= FlexDMD.NewFont("udmd-f7by13-diagL9.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontDiagL10= FlexDMD.NewFont("udmd-f7by13-diagL10.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontDiagL11= FlexDMD.NewFont("udmd-f7by13-diagL11.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontDiagL12= FlexDMD.NewFont("udmd-f7by13-diagL12.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontDiagL13= FlexDMD.NewFont("udmd-f7by13-diagL13.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontDiagL14= FlexDMD.NewFont("udmd-f7by13-diagL14.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontDiagL15= FlexDMD.NewFont("udmd-f7by13-diagL15.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontDiagL16= FlexDMD.NewFont("udmd-f7by13-diagL16.fnt", RGB(0, 100, 0), vbWhite, 0) 'dark green
Set FontDiagL17= FlexDMD.NewFont("udmd-f7by13-diagL17.fnt", RGB(0, 100, 0), vbWhite, 0) 'dark green
Set FontDiagLBG1= FlexDMD.NewFont("udmd-f7by13-diagLBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG2= FlexDMD.NewFont("udmd-f7by13-diagLBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG3= FlexDMD.NewFont("udmd-f7by13-diagLBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG4= FlexDMD.NewFont("udmd-f7by13-diagLBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG5= FlexDMD.NewFont("udmd-f7by13-diagLBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG6= FlexDMD.NewFont("udmd-f7by13-diagLBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG7= FlexDMD.NewFont("udmd-f7by13-diagLBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG8= FlexDMD.NewFont("udmd-f7by13-diagLBG8.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG9= FlexDMD.NewFont("udmd-f7by13-diagLBG9.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG10= FlexDMD.NewFont("udmd-f7by13-diagLBG10.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG11= FlexDMD.NewFont("udmd-f7by13-diagLBG11.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG12= FlexDMD.NewFont("udmd-f7by13-diagLBG12.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG13= FlexDMD.NewFont("udmd-f7by13-diagLBG13.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG14= FlexDMD.NewFont("udmd-f7by13-diagLBG14.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG15= FlexDMD.NewFont("udmd-f7by13-diagLBG15.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG16= FlexDMD.NewFont("udmd-f7by13-diagLBG16.fnt", vbBlack, vbWhite, 0) 'black
Set FontDiagLBG17= FlexDMD.NewFont("udmd-f7by13-diagLBG17.fnt", vbBlack, vbWhite, 0) 'black
Set FontMask1= FlexDMD.NewFont("udmd-f7by13-mask1.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontMask2= FlexDMD.NewFont("udmd-f7by13-mask2.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontMask3= FlexDMD.NewFont("udmd-f7by13-mask3.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontMask4= FlexDMD.NewFont("udmd-f7by13-mask4.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontMask5= FlexDMD.NewFont("udmd-f7by13-mask5.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontMask6= FlexDMD.NewFont("udmd-f7by13-mask6.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontMask7= FlexDMD.NewFont("udmd-f7by13-mask7.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontMask8= FlexDMD.NewFont("udmd-f7by13-mask8.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontMask9= FlexDMD.NewFont("udmd-f7by13-mask9.fnt", RGB(255, 0, 0), vbWhite, 0) 'red
Set FontMask10= FlexDMD.NewFont("udmd-f7by13-mask10.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontMask11= FlexDMD.NewFont("udmd-f7by13-mask11.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontMask12= FlexDMD.NewFont("udmd-f7by13-mask12.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontMask13= FlexDMD.NewFont("udmd-f7by13-mask13.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontMaskBG1= FlexDMD.NewFont("udmd-f7by13-maskBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBG2= FlexDMD.NewFont("udmd-f7by13-maskBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBG3= FlexDMD.NewFont("udmd-f7by13-maskBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBG4= FlexDMD.NewFont("udmd-f7by13-maskBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBG5= FlexDMD.NewFont("udmd-f7by13-maskBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBG6= FlexDMD.NewFont("udmd-f7by13-maskBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBG7= FlexDMD.NewFont("udmd-f7by13-maskBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBG8= FlexDMD.NewFont("udmd-f7by13-maskBG8.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBG9= FlexDMD.NewFont("udmd-f7by13-maskBG9.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBG10= FlexDMD.NewFont("udmd-f7by13-maskBG10.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBG11= FlexDMD.NewFont("udmd-f7by13-maskBG11.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBG12= FlexDMD.NewFont("udmd-f7by13-maskBG12.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBG13= FlexDMD.NewFont("udmd-f7by13-maskBG13.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskCenter1= FlexDMD.NewFont("udmd-f7by13-maskcenter1.fnt", RGB(255, 250, 205), vbWhite, 0) 'lemon chiffon
Set FontMaskCenter2= FlexDMD.NewFont("udmd-f7by13-maskcenter2.fnt", RGB(255, 250, 205), vbWhite, 0) 'lemon chiffon
Set FontMaskCenter3= FlexDMD.NewFont("udmd-f7by13-maskcenter3.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontMaskCenter4= FlexDMD.NewFont("udmd-f7by13-maskcenter4.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontMaskCenter5= FlexDMD.NewFont("udmd-f7by13-maskcenter5.fnt", RGB(255, 215, 0), vbWhite, 0) 'gold
Set FontMaskCenter6= FlexDMD.NewFont("udmd-f7by13-maskcenter6.fnt", RGB(255, 215, 0), vbWhite, 0) 'gold
Set FontMaskCenter7= FlexDMD.NewFont("udmd-f7by13-maskcenter7.fnt", RGB(255, 165, 0), vbWhite, 0) 'orange
Set FontMaskCenter8= FlexDMD.NewFont("udmd-f7by13-maskcenter8.fnt", RGB(255, 165, 0), vbWhite, 0) 'orange
Set FontMaskCenter9= FlexDMD.NewFont("udmd-f7by13-maskcenter9.fnt", RGB(255, 69, 0), vbWhite, 0) 'orange red
Set FontMaskCenter10= FlexDMD.NewFont("udmd-f7by13-maskcenter10.fnt", RGB(255, 69, 0), vbWhite, 0) 'orange red
Set FontMaskCenterBG1= FlexDMD.NewFont("udmd-f7by13-maskcenterBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskCenterBG2= FlexDMD.NewFont("udmd-f7by13-maskcenterBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskCenterBG3= FlexDMD.NewFont("udmd-f7by13-maskcenterBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskCenterBG4= FlexDMD.NewFont("udmd-f7by13-maskcenterBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskCenterBG5= FlexDMD.NewFont("udmd-f7by13-maskcenterBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskCenterBG6= FlexDMD.NewFont("udmd-f7by13-maskcenterBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskCenterBG7= FlexDMD.NewFont("udmd-f7by13-maskcenterBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskCenterBG8= FlexDMD.NewFont("udmd-f7by13-maskcenterBG8.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskCenterBG9= FlexDMD.NewFont("udmd-f7by13-maskcenterBG9.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskCenterBG10= FlexDMD.NewFont("udmd-f7by13-maskcenterBG10.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounce1= FlexDMD.NewFont("udmd-f7by13-maskbounce1.fnt", RGB(0, 95, 0), vbWhite, 0) ' dark green
Set FontMaskBounce2= FlexDMD.NewFont("udmd-f7by13-maskbounce2.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontMaskBounce3= FlexDMD.NewFont("udmd-f7by13-maskbounce3.fnt", RGB(0, 128, 0), vbWhite, 0) 'green
Set FontMaskBounce4= FlexDMD.NewFont("udmd-f7by13-maskbounce4.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontMaskBounce5= FlexDMD.NewFont("udmd-f7by13-maskbounce5.fnt", RGB(0, 255, 0), vbWhite, 0) 'lime
Set FontMaskBounce6= FlexDMD.NewFont("udmd-f7by13-maskbounce6.fnt", RGB(173, 255, 47), vbWhite, 0) 'green yellow
Set FontMaskBounce7= FlexDMD.NewFont("udmd-f7by13-maskbounce7.fnt", RGB(173, 255, 47), vbWhite, 0) 'green yellow
Set FontMaskBounce8= FlexDMD.NewFont("udmd-f7by13-maskbounce8.fnt", RGB(255, 255, 0), vbWhite, 0) 'yellow
Set FontMaskBounce9= FlexDMD.NewFont("udmd-f7by13-maskbounce9.fnt", RGB(255, 215, 0), vbWhite, 0) 'gold
Set FontMaskBounce10= FlexDMD.NewFont("udmd-f7by13-maskbounce10.fnt", RGB(255, 215, 0), vbWhite, 0) 'gold
Set FontMaskBounce11= FlexDMD.NewFont("udmd-f7by13-maskbounce11.fnt", RGB(0, 95, 0), vbWhite, 0) ' dark green
Set FontMaskBounceBG1= FlexDMD.NewFont("udmd-f7by13-maskbounceBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceBG2= FlexDMD.NewFont("udmd-f7by13-maskbounceBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceBG3= FlexDMD.NewFont("udmd-f7by13-maskbounceBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceBG4= FlexDMD.NewFont("udmd-f7by13-maskbounceBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceBG5= FlexDMD.NewFont("udmd-f7by13-maskbounceBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceBG6= FlexDMD.NewFont("udmd-f7by13-maskbounceBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceBG7= FlexDMD.NewFont("udmd-f7by13-maskbounceBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceBG8= FlexDMD.NewFont("udmd-f7by13-maskbounceBG8.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceBG9= FlexDMD.NewFont("udmd-f7by13-maskbounceBG9.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceBG10= FlexDMD.NewFont("udmd-f7by13-maskbounceBG10.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceBG11= FlexDMD.NewFont("udmd-f7by13-maskbounceBG11.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceH1= FlexDMD.NewFont("udmd-f7by13-maskbounceh1.fnt", RGB(220, 220, 220), vbWhite, 0) ' gainsboro
Set FontMaskBounceH2= FlexDMD.NewFont("udmd-f7by13-maskbounceh2.fnt", RGB(211, 211, 211), vbWhite, 0) ' light gray
Set FontMaskBounceH3= FlexDMD.NewFont("udmd-f7by13-maskbounceh3.fnt", RGB(211, 211, 211), vbWhite, 0) ' light gray
Set FontMaskBounceH4= FlexDMD.NewFont("udmd-f7by13-maskbounceh4.fnt", RGB(192, 192, 192), vbWhite, 0) ' silver
Set FontMaskBounceH5= FlexDMD.NewFont("udmd-f7by13-maskbounceh5.fnt", RGB(128, 128, 128), vbWhite, 0) ' gray
Set FontMaskBounceH6= FlexDMD.NewFont("udmd-f7by13-maskbounceh6.fnt", RGB(119, 136, 153), vbWhite, 0) ' light slate gray
Set FontMaskBounceH7= FlexDMD.NewFont("udmd-f7by13-maskbounceh7.fnt", RGB(119, 136, 153), vbWhite, 0) ' light slate gray
Set FontMaskBounceH8= FlexDMD.NewFont("udmd-f7by13-maskbounceh8.fnt", RGB(112, 128, 144), vbWhite, 0) ' slate gray
Set FontMaskBounceH9= FlexDMD.NewFont("udmd-f7by13-maskbounceh9.fnt", RGB(112, 128, 144), vbWhite, 0) ' slate gray
Set FontMaskBounceHBG1= FlexDMD.NewFont("udmd-f7by13-maskbouncehBG1.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceHBG2= FlexDMD.NewFont("udmd-f7by13-maskbouncehBG2.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceHBG3= FlexDMD.NewFont("udmd-f7by13-maskbouncehBG3.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceHBG4= FlexDMD.NewFont("udmd-f7by13-maskbouncehBG4.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceHBG5= FlexDMD.NewFont("udmd-f7by13-maskbouncehBG5.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceHBG6= FlexDMD.NewFont("udmd-f7by13-maskbouncehBG6.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceHBG7= FlexDMD.NewFont("udmd-f7by13-maskbouncehBG7.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceHBG8= FlexDMD.NewFont("udmd-f7by13-maskbouncehBG8.fnt", vbBlack, vbWhite, 0) 'black
Set FontMaskBounceHBG9= FlexDMD.NewFont("udmd-f7by13-maskbouncehBG9.fnt", vbBlack, vbWhite, 0) 'black
' Default score Display
Set FontScoreActive = FlexDMD.NewFont("FlexDMD.Resources.teeny_tiny_pixls-5.fnt", vbWhite, vbWhite, 0)
Set FontScoreInactive = FlexDMD.NewFont("FlexDMD.Resources.teeny_tiny_pixls-5.fnt", RGB(128, 128, 128), vbWhite, 0) 'fuschia
'Set FontBig = FlexDMD.NewFont("FlexDMD.Resources.udmd-f7by13.fnt", vbWhite, vbWhite, 0)
Set FontBig = FlexDMD.NewFont("udmd-f7by13-color.fnt", vbWhite, vbWhite, 0) 'replaced above line with color gradient font
Set FontBig2 = FlexDMD.NewFont("FlexDMD.Resources.udmd-f7by13.fnt", vbBlack, vbWhite , 0)
Set FontBig3 = FlexDMD.NewFont("FlexDMD.Resources.udmd-f14by26.fnt", RGB(0, 100, 0) , RGB(173, 255, 47), 1)
Dim scene : Set scene = FlexDMD.NewGroup("Score")
scene.AddActor FlexDMD.NewImage("BG1","bg1.jpg")
scene.AddActor FlexDMD.NewImage("BG2","bg2.jpg")
scene.GetImage("BG2").Visible = False
scene.AddActor FlexDMD.NewImage("BG3","bg3.jpg")
scene.GetImage("BG3").Visible = False
scene.AddActor FlexDMD.NewImage("BG4","bg4.jpg")
scene.GetImage("BG4").Visible = False
For i = 1 to 4
scene.AddActor FlexDMD.NewLabel("Score_" & i, FontScoreActive, "")
Next
scene.AddActor FlexDMD.NewGroup("Content")
scene.GetGroup("Content").Clip = True
scene.GetGroup("Content").SetBounds 47, 0, 81, 32
Dim title
Set title = FlexDMD.NewLabel("Title2", FontBig2, " ")
scene.GetGroup("Content").AddActor title
Set title = FlexDMD.NewLabel("Title", FontBig, " ")
scene.GetGroup("Content").AddActor title
scene.GetGroup("Content").AddActor FlexDMD.NewLabel("Ball", FontScoreActive, "")
scene.GetGroup("Content").AddActor FlexDMD.NewLabel("Player", FontScoreActive, "")
scene.GetGroup("Content").AddActor FlexDMD.NewLabel("Topsplash", FontScoreActive, "")
'scene.AddActor FlexDMD.NewImage("Mask1","mask1.png")
'scene.GetImage("Mask1").Visible = False
scene.AddActor FlexDMD.NewImage("Fist1","fist-facing_left.png")
scene.GetImage("Fist1").Visible = False
scene.AddActor FlexDMD.NewImage("Fist2","fist-facing_right.png")
scene.GetImage("Fist2").Visible = False
FlexDMD.LockRenderThread
FlexDMD.RenderMode = 2
FlexDMD.Stage.RemoveAll
FlexDMD.Stage.AddActor scene
FlexDMD.Show = True 'original commented out for now XXXXXXXXXXXXXXXXXX
'If VRroom > 0 Then FlexDMD.Show = False Else FlexDMD.Show = True 'XXXXXXXXXXXXXXXXX
FlexDMD.UnlockRenderThread
End Sub
Dim DMD_Video(100,2)
Dim LastVideo : LastVideo=36 ' change as needed
DMD_Video(1,1)="feta1.gif" : DMD_Video(1,2)= 6360/17
DMD_Video(2,1)="feta2.gif" : DMD_Video(2,2)= 6360/17
DMD_Video(3,1)="feta3.gif" : DMD_Video(3,2)= 6360/17
DMD_Video(4,1)="quas1.gif" : DMD_Video(4,2)= 1650/17
DMD_Video(5,1)="quas2.gif" : DMD_Video(5,2)= 1650/17
DMD_Video(6,1)="quas3.gif" : DMD_Video(6,2)= 1500/17
DMD_Video(7,1)="quas4.gif" : DMD_Video(7,2)= 1650/17
DMD_Video(8,1)="quas5.gif" : DMD_Video(8,2)= 1650/17
DMD_Video(9,1)="quas6.gif" : DMD_Video(9,2)= 1650/17
DMD_Video(10,1)="quas7.gif" : DMD_Video(10,2)= 1650/17
DMD_Video(11,1)="quas8.gif" : DMD_Video(11,2)= 1200/17
DMD_Video(12,1)="quas9.gif" : DMD_Video(12,2)= 1650/17
DMD_Video(13,1)="quas10.gif" : DMD_Video(13,2)= 1650/17
DMD_Video(14,1)="quas11.gif" : DMD_Video(14,2)= 1650/17
DMD_Video(15,1)="quas12.gif" : DMD_Video(15,2)= 1200/17
DMD_Video(16,1)="gasdrawls1.gif" : DMD_Video(16,2)= 6360/17
DMD_Video(17,1)="gasdrawls2.gif" : DMD_Video(17,2)= 6360/17
DMD_Video(18,1)="gasdrawls3.gif" : DMD_Video(18,2)= 6360/17
DMD_Video(19,1)="gasdrawls4.gif" : DMD_Video(19,2)= 6360/17
DMD_Video(20,1)="gasdrawlsjackpot1.gif" : DMD_Video(20,2)= 6360/17
DMD_Video(21,1)="gasdrawlsjackpot2.gif" : DMD_Video(21,2)= 6360/17
DMD_Video(22,1)="gasdrawlsjackpot3.gif" : DMD_Video(22,2)= 6330/17
DMD_Video(23,1)="americasmostblunted1.gif" : DMD_Video(23,2)= 6360/17
DMD_Video(24,1)="americasmostblunted2.gif" : DMD_Video(24,2)= 6360/17
DMD_Video(25,1)="americasmostblunted3.gif" : DMD_Video(25,2)= 6360/17
DMD_Video(26,1)="americasmostblunted4.gif" : DMD_Video(26,2)= 6360/17
DMD_Video(27,1)="americasmostbluntedjackpot1.gif" : DMD_Video(27,2)= 6360/17
DMD_Video(28,1)="americasmostbluntedjackpot2.gif" : DMD_Video(28,2)= 6360/17
DMD_Video(29,1)="americasmostbluntedjackpot3.gif" : DMD_Video(29,2)= 6330/17
DMD_Video(30,1)="gazzillionear1.gif" : DMD_Video(30,2)= 6360/17
DMD_Video(31,1)="gazzillionear2.gif" : DMD_Video(31,2)= 6360/17
DMD_Video(32,1)="gazzillionear3.gif" : DMD_Video(32,2)= 6360/17
DMD_Video(33,1)="gazzillionear4.gif" : DMD_Video(33,2)= 6360/17
DMD_Video(34,1)="gazzillionearsuperjackpot1.gif" : DMD_Video(34,2)= 6360/17
DMD_Video(35,1)="gazzillionearsuperjackpot2.gif" : DMD_Video(35,2)= 6360/17
DMD_Video(36,1)="gazzillionearsuperjackpot3.gif" : DMD_Video(36,2)= 6330/17
DMD_Video(37,1)="intro1.gif" : DMD_Video(37,2)= 70290/17
DMD_Video(38,1)="intro2.gif" : DMD_Video(38,2)= 42930/17
DMD_Video(39,1)="intro3.gif" : DMD_Video(39,2)= 44310/17
DMD_Video(40,1)="intro4.gif" : DMD_Video(40,2)= 42000/17
DMD_Video(41,1)="intro5.gif" : DMD_Video(41,2)= 48060/17
Dim PlayVideo, OldVideo, DMD_VideoTimer, introtexton, introspeed,introblink
Dim label,i
Dim DMDFire
Dim DMDFireBG
Dim DMDCheckerboard
Dim DMDCheckerboardBG
Dim DMDExp
Dim DMDExpBG
Dim DMDImp
Dim DMDImpBG
Dim DMDVerticalThick
Dim DMDVerticalThickBG
Dim DMDVerticalThickL
Dim DMDVerticalThickLBG
Dim DMDHorizontalThick
Dim DMDHorizontalThickBG
Dim DMDHorizontalThickUp
Dim DMDHorizontalThickUpBG
Dim DMDSpiral
Dim DMDSpiralBG
Dim DMDSpiralL
Dim DMDSpiralLBG
Dim DMDStar
Dim DMDStarBG
Dim DMDStarL
Dim DMDStarLBG
Dim DMDDiag
Dim DMDDiagBG
Dim DMDDiagTwo
Dim DMDDiagTwoBG
Dim DMDDiagL
Dim DMDDiagLBG
Dim DMDDiagLTwo
Dim DMDDiagLTwoBG
Dim DMDMask
Dim DMDMaskBG
Dim DMDMaskL
Dim DMDMaskLBG
Dim DMDMaskCenter
Dim DMDMaskCenterBG
Dim DMDMaskBounce
Dim DMDMaskBounceBG
Dim DMDMaskBounceH
Dim DMDMaskBounceHBG
Dim DMDBgBlink
Dim DMDFistLeft
Dim DMDFistRight
Dim DMDMaskLeft
Dim DMDMaskRight
Dim DMDSmoke
Dim DMDTextOnScore
Dim DMDTextDisplayTime
Dim DMDTextEffect
Sub DMDBigText ( tex,time,effect)
DMDTextOnScore=tex
DMDTextDisplayTime = Frame+ time
DMDTextEffect=effect
End Sub
Dim TopSplashText
Dim TopSplashTime
Dim TopSplashEffect
Sub DMDTopSplash ( tex,time,effect)
TopSplashText=tex
TopSplashTime=Frame+time
TopSplashEffect=effect
End Sub
' Flex on vrroom and playfield runs this one 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Sub FlexFlasher
Dim DMDp
DMDp = FlexDMD.DmdColoredPixels
If Not IsEmpty(DMDp) Then
DMDWidth = FlexDMD.Width
DMDHeight = FlexDMD.Height
DMDColoredPixels = DMDp
End If
End Sub 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Sub DMDTimer_Timer
Frame=Frame+1
FlexDMD.LockRenderThread
If VRroom>0 then FlexFlasher 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
if Not hsbModeActive Then
If PlayVideo>0 Then
If PLayvideo> OldVideo Then
If Not OldVideo=0 Then
FlexDMD.Stage.GetVideo("vidvid1").remove()
OldVideo=0
If introtexton=1 Then
introtexton=0
FlexDMD.Stage.GetLabel("introtext").remove()
End If
End If
If PlayVideo < 100 Then
OldVideo=PlayVideo
DMD_VideoTimer = Frame + DMD_Video(PlayVideo,2)
FlexDMD.Stage.Getgroup("Score").AddActor FlexDMD.NewVideo("vidvid1",DMD_Video(PlayVideo,1))
If playvideo>36 and introtexton=0 Then
introtexton=1
if introspeed=0 Then introspeed=32
FlexDMD.Stage.Getgroup("Score").AddActor FlexDMD.NewLabel("introtext", FontBig3, "MF DOOM")
FlexDMD.Stage.GetLabel("introtext").SetAlignedPosition 65, 17, FlexDMD_Align_Center
End If
Else
introspeed=0
End If
End If
PlayVideo=0
End If
If int(DMD_VideoTimer)=int(Frame) Then
If Not OldVideo=0 Then
FlexDMD.Stage.GetVideo("vidvid1").remove()
If OldVideo>36 Then
Playvideo=37+int(rnd(1)*5)
If introtexton=1 Then
introtexton=0
FlexDMD.Stage.GetLabel("introtext").remove()
End If
End If
OldVideo=0
End If
End If
If introtexton=1 Then
introblink=introblink+1 : if introblink>introspeed Then introspeed=introspeed+5 : introblink=0
If introblink=1 Then FlexDMD.Stage.GetLabel("introtext").Text = "MF DOOM"
If introblink = int(introspeed/2) Then FlexDMD.Stage.GetLabel("introtext").Text = " "
End If
' debug.print "timer" & DMD_VideoTimer & " FRAME=" & Frame & " OldVideo=" & OldVideo
' If PlayVideo>0 Then
' debug.print "vidnr"=PlayVideo
' If DMD_Video(PlayVideo,1) < Frame Then
' DMD_Video(PlayVideo,1)= Frame+DMD_Video(PlayVideo,2)
' FlexDMD.Stage.GetVideo("vidvid"&PlayVideo).Visible=True
' End If
' PlayVideo=0
' End If
' For i = 1 To LastVideo
' If DMD_Video(i,1)=Frame Then FlexDMD.Stage.GetVideo("vidvid"&i).Visible=False
' Next
End If
If (Frame Mod 2) = 0 Then
For i = 1 to 4
if i <= PlayersPlayingGame Then
Set label = FlexDMD.Stage.GetLabel("Score_" & i)
label.visible=True
If i = CurrentPlayer Then
label.Font = FontScoreActive
Else
label.Font = FontScoreInactive
End If
Else
Set label = FlexDMD.Stage.GetLabel("Score_" & i)
label.visible=False
End If
label.Text = FormatNumber(Score(i), 0, -1, 0, -1)
label.SetAlignedPosition 45, 1 + (i - 1) * 6, FlexDMD_Align_TopRight
Next
'bigscore
Set label = FlexDMD.Stage.GetLabel("Title2")
If DMDFireBG > 0 Then
DMDScoreAnimBG
Elseif DMDCheckerboardBG > 0 Then
DMDScoreAnim2BG
Elseif DMDExpBG > 0 Then
DMDScoreAnim3BG
Elseif DMDImpBg > 0 Then
DMDScoreAnim4BG
Elseif DMDVerticalThickBG > 0 Then
DMDScoreAnim5BG
Elseif DMDVerticalThickLBG > 0 Then
DMDScoreAnim6BG
Elseif DMDHorizontalThickBG > 0 Then
DMDScoreAnim7BG
Elseif DMDHorizontalThickUpBG > 0 Then
DMDScoreAnim8BG
Elseif DMDSpiralBG > 0 Then
DMDScoreAnim9BG
Elseif DMDSpiralLBG > 0 Then
DMDScoreAnim10BG
Elseif DMDStarBG > 0 Then
DMDScoreAnim11BG
Elseif DMDStarLBG > 0 Then
DMDScoreAnim12BG
Elseif DMDDiagBG > 0 Then
DMDScoreAnim13BG
Elseif DMDDiagTwoBG > 0 Then
DMDScoreAnim14BG
Elseif DMDDiagLBg > 0 Then
DMDScoreAnim15BG
Elseif DMDDiagLTwoBG > 0 Then
DMDScoreAnim16BG
Elseif DMDMaskBG > 0 Then
DMDScoreAnim17BG
Elseif DMDMaskLBG > 0 Then
DMDScoreAnim18BG
Elseif DMDMaskCenterBG > 0 Then
DMDScoreAnim19BG
Elseif DMDMaskBounceBG > 0 Then
DMDScoreAnim20BG
Elseif DMDMaskBounceHBG > 0 Then
DMDScoreAnim21BG
Else
label.Font = FontBig2
End If
If DMDTextDisplayTime>Frame Then
If DMDTextEffect=1 And (frame mod 20) >10 Then label.Text = " " Else label.Text = DMDTextOnScore
Else
label.Text = FormatNumber(Score(currentplayer), 0, -1, 0, -1)
End If
label.SetAlignedPosition 41, 17, FlexDMD_Align_Center
Set label = FlexDMD.Stage.GetLabel("Title")
If DMDFire > 0 Then
DMDScoreAnim
Elseif DMDCheckerboard > 0 Then
DMDScoreAnim2
Elseif DMDExp > 0 Then
DMDScoreAnim3
Elseif DMDImp > 0 Then
DMDScoreAnim4
Elseif DMDVerticalThick > 0 Then
DMDScoreAnim5
Elseif DMDVerticalThickL > 0 Then
DMDScoreAnim6
Elseif DMDHorizontalThick > 0 Then
DMDScoreAnim7
Elseif DMDHorizontalThickUp > 0 Then
DMDScoreAnim8
Elseif DMDSpiral > 0 Then
DMDScoreAnim9
Elseif DMDSpiralL > 0 Then
DMDScoreAnim10
Elseif DMDStar > 0 Then
DMDScoreAnim11
Elseif DMDStarL > 0 Then
DMDScoreAnim12
Elseif DMDDiag > 0 Then
DMDScoreAnim13
Elseif DMDDiagTwo > 0 Then
DMDScoreAnim14
Elseif DMDDiagL > 0 Then
DMDScoreAnim15
Elseif DMDDiagLTwo > 0 Then
DMDScoreAnim16
Elseif DMDMask > 0 Then
DMDScoreAnim17
Elseif DMDMaskL > 0 Then
DMDScoreAnim18