[MISC] Master Excel

1
Sub FireFlag()
2

3
    Dim ws As Worksheet
4
    Set ws = ActiveSheet
5

6
    Dim requiredShapes As Variant
7
    requiredShapes = Array(Chr(71) & Chr(117) & Chr(110) & "Body", "Gun" & Chr(66) & Chr(97) & Chr(114) & Chr(114) & Chr(101) & Chr(108), _
8
    "Gun" & Chr(72) & Chr(97) & Chr(110) & Chr(100) & Chr(108) & Chr(101), "Gun" & Chr(84) & Chr(97) & Chr(110) & Chr(107), "Water" & Chr(74) & Chr(101) & Chr(116), _
9
    Chr(66) & Chr(105) & Chr(103) & Chr(66) & Chr(111) & Chr(119) & Chr(108))
10

11
    Dim i As Integer
12
    Dim shp As Shape
13
    Dim found As Boolean
14

15
    For i = LBound(requiredShapes) To UBound(requiredShapes)
16

17
        found = False
18

19
        For Each shp In ws.Shapes
20
            If shp.Name = requiredShapes(i) Then
21
                found = True
22
                Exit For
23
            End If
24
        Next shp
25

26
        If Not found Then
27
            MsgBox "Missing shape: " & requiredShapes(i), vbCritical
28
            Exit Sub
29
        End If
30

31
    Next i
32

33
    If LCase(Trim(ws.Range("WL13").Value)) <> "hello wanlai ctf" Then
34
        MsgBox "Wrong input", vbExclamation
35
        Exit Sub
36
    End If
37
    L = Sheets("D2222").Range("A2").Value
38

39
    Dim hasF As Boolean
40
    hasF = False
41

42
    For Each shp In ws.Shapes
43
        If shp.Name = "Head" Or _
44
           shp.Name = "Hair" Or _
45
           shp.Name = "Body" Or _
46
           shp.Name = "Leg" Then
47

48
           hasF = True
49
           Exit For
50
        End If
51
    Next shp
52

53
    Call ShootWater
54

55
    On Error Resume Next
56
    ws.Shapes("AG").Delete
57
    On Error GoTo 0
58
    k = Sheets("D2222").Cells(1, 1).Value
59
    Dim ag As Shape
60
    Set ag = ws.Shapes.AddTextbox( _
61
        msoTextOrientationHorizontal, _
62
        ws.Range("J2").Left, _
63
        ws.Range("J2").Top, _
64
        320, 50)
65

66
    ag.Name = "AG"
67

68
    If hasF Then
69
        ag.TextFrame.Characters.Text = k
70
        ag.Fill.ForeColor.RGB = RGB(120, 0, 0)
71
        ag.TextFrame.Characters.Font.Color = RGB(255, 200, 200)
72

73
    Else
74
        ag.TextFrame.Characters.Text = L
75

76
        ag.Fill.ForeColor.RGB = RGB(0, 0, 0)
77
        ag.TextFrame.Characters.Font.Color = RGB(0, 255, 0)
78
    End If
79

80
    ag.TextFrame.Characters.Font.Size = 16
81

82
    Dim stepY As Integer
83
    For stepY = 1 To 2
84
        ag.Top = ag.Top - 5
85
        DoEvents
86
        Application.Wait Now + TimeValue("00:00:01")
87
    Next stepY
88

89
End Sub

1
If LCase(Trim(ws.Range("WL13").Value)) <> "hello wanlai ctf" Then

1
L = Sheets("D2222").Range("A2").Value

1
WANLAI{EXCEL_SANOOK_MAI_JA_NONG_NONG2)