draw magic, effects etc..vb.svn-base

MirUnleashed vb.net Module modMainServer Public WithEvents Socket As New WinsockServer Pub

    Public Sub MakeFlameDisrupterMagic2(ByVal CordX As Short, ByVal CordY As Short)
        'PlaySound("M35-1.WAV")
        AddMagic(1, 141, 150, CordX, CordY, False, False, 0, 0, 2, 2)
    End Sub

    Public Sub MakeLionsRoarMagic(ByVal CordX As Short, ByVal CordY As Short)
        'PlaySound("M43-0.WAV")
        AddMagic(1, 711, 730, CordX, CordY, False, False, 0, 0, 2, 1)
    End Sub

    Public Sub MakeEntrapmentMagic1(ByVal CordX As Short, ByVal CordY As Short)
        'PlaySound("M35-1.WAV")
        AddMagic(1, 991, 1000, CordX, CordY, False, False, 0, 0, 2, 1)
    End Sub

    Public Sub MakeEntrapmentMagic2(ByVal CordX As Short, ByVal CordY As Short)
        'PlaySound("M35-1.WAV")
        AddMagic(1, 1011, 1028, CordX, CordY, False, False, 0, 0, 2, 1)
    End Sub

    Public Sub MakeTwinDrakeBladeMagic(ByVal CordX As Short, ByVal CordY As Short)
        'PlaySound("M35-1.WAV")
        AddMagic(1, 621, 630, CordX, CordY, False, False, 0, 0, 2, 1)
    End Sub

    Public Sub MakeBladeAvalanceMagic(ByVal CordX As Short, ByVal CordY As Short, ByVal Direction As Short)
        If Direction = 0 Then
            'PlaySound("M44-0.WAV")
            AddMagic(2, 741, 755, CordX, CordY, False, False, 0, 0, 2, 0)
            MagicFogColour = Color.FromArgb(1, 230, 230, 230)
        ElseIf Direction = 1 Then
            'PlaySound("M44-0.WAV")
            AddMagic(2, 761, 775, CordX, CordY, False, False, 0, 0, 2, 0)
            MagicFogColour = Color.FromArgb(1, 230, 230, 230)
        ElseIf Direction = 2 Then
            'PlaySound("M44-0.WAV")
            AddMagic(2, 781, 795, CordX, CordY, False, False, 0, 0, 2, 0)
            MagicFogColour = Color.FromArgb(1, 230, 230, 230)
        ElseIf Direction = 3 Then
            'PlaySound("M44-0.WAV")
            AddMagic(2, 801, 815, CordX, CordY, False, False, 0, 0, 2, 0)
            MagicFogColour = Color.FromArgb(1, 230, 230, 230)
        ElseIf Direction = 4 Then
            'PlaySound("M44-0.WAV")
            AddMagic(2, 821, 835, CordX, CordY, False, False, 0, 0, 2, 0)
            MagicFogColour = Color.FromArgb(1, 230, 230, 230)
        ElseIf Direction = 5 Then
            'PlaySound("M44-0.WAV")
            AddMagic(2, 841, 855, CordX, CordY, False, False, 0, 0, 2, 0)
            MagicFogColour = Color.FromArgb(1, 230, 230, 230)
        ElseIf Direction = 6 Then
            'PlaySound("M44-0.WAV")
            AddMagic(2, 861, 875, CordX, CordY, False, False, 0, 0, 2, 0)
            MagicFogColour = Color.FromArgb(1, 230, 230, 230)
        ElseIf Direction = 7 Then
            'PlaySound("M44-0.WAV")
            AddMagic(2, 881, 895, CordX, CordY, False, False, 0, 0, 2, 0)
            MagicFogColour = Color.FromArgb(1, 230, 230, 230)
        End If
    End Sub

    Public Sub MakeThrustingMagic(ByVal CordX As Short, ByVal CordY As Short, ByVal Direction As Short)
        If Direction = 0 Then
            'PlaySound("M12-1.wav")
            AddMagic(0, 2191, 2196, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 1 Then
            'PlaySound("M12-1.wav")
            AddMagic(0, 2201, 2206, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 2 Then
            'PlaySound("M12-1.wav")
            AddMagic(0, 2211, 2216, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 3 Then
            'PlaySound("M12-1.wav")
            AddMagic(0, 2221, 2226, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 4 Then
            'PlaySound("M12-1.wav")
            AddMagic(0, 2231, 2236, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 5 Then
            ' PlaySound("M12-1.wav")
            AddMagic(0, 2241, 2246, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 6 Then
            'PlaySound("M12-1.wav")
            AddMagic(0, 2251, 2256, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 7 Then
            'PlaySound("M12-1.wav")
            AddMagic(0, 2261, 2266, CordX, CordY, False, False, 0, 0, 2, 1)
        End If
    End Sub

    Public Sub MakeHalfMoonMagic(ByVal CordX As Short, ByVal CordY As Short, ByVal Direction As Short)
        If Direction = 0 Then
            ' PlaySound("M25-1.wav")
            AddMagic(0, 2561, 2566, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 1 Then
            'PlaySound("M25-1.wav")
            AddMagic(0, 2571, 2576, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 2 Then
            'PlaySound("M25-1.wav")
            AddMagic(0, 2581, 2586, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 3 Then
            'PlaySound("M25-1.wav")
            AddMagic(0, 2591, 2596, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 4 Then
            'PlaySound("M25-1.wav")
            AddMagic(0, 2601, 2606, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 5 Then
            'PlaySound("M25-1.wav")
            AddMagic(0, 2611, 2616, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 6 Then
            ' PlaySound("M25-1.wav")
            AddMagic(0, 2621, 2626, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 7 Then
            'PlaySound("M25-1.wav")
            AddMagic(0, 2631, 2636, CordX, CordY, False, False, 0, 0, 2, 1)
        End If
    End Sub

    Public Sub MakeSlayingMagic(ByVal CordX As Short, ByVal CordY As Short, ByVal Direction As Short, ByVal Sex As Short)

        If sex = 0 Then
            'PlaySound("M7-1.wav")
        Else
            'PlaySound("M7-2.wav")
        End If
        If Direction = 0 Then
            AddMagic(0, 1821, 1826, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 1 Then
            AddMagic(0, 1831, 1836, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 2 Then
            AddMagic(0, 1841, 1846, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 3 Then
            AddMagic(0, 1851, 1856, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 4 Then
            AddMagic(0, 1861, 1866, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 5 Then
            AddMagic(0, 1871, 1876, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 6 Then
            AddMagic(0, 1881, 1886, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 7 Then
            AddMagic(0, 1891, 1896, CordX, CordY, False, False, 0, 0, 2, 1)
        End If
    End Sub


    Public Sub MakeFlamingSwordMagic(ByVal CordX As Short, ByVal CordY As Short, ByVal Direction As Short)
        If Direction = 0 Then
            'PlaySound("M26-3.wav")
            AddMagic(0, 3481, 3486, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 1 Then
            'PlaySound("M26-3.wav")
            AddMagic(0, 3491, 3496, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 2 Then
            'PlaySound("M26-3.wav")
            AddMagic(0, 3501, 3506, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 3 Then
            'PlaySound("M26-3.wav")
            AddMagic(0, 3511, 3516, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 4 Then
            'PlaySound("M26-3.wav")
            AddMagic(0, 3521, 3526, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 5 Then
            'PlaySound("M26-3.wav")
            AddMagic(0, 3531, 3536, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 6 Then
            'PlaySound("M26-3.wav")
            AddMagic(0, 3541, 3546, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 7 Then
            'PlaySound("M26-3.wav")
            AddMagic(0, 3551, 3556, CordX, CordY, False, False, 0, 0, 2, 1)
        End If
    End Sub


    Public Sub MakeCrossHalfMoonMagic(ByVal CordX As Short, ByVal CordY As Short, ByVal Direction As Short)
        If Direction = 0 Then
            'PlaySound("M36-1.WAV")
            AddMagic(1, 41, 46, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 1 Then
            'PlaySound("M36-1.WAV")
            AddMagic(1, 51, 56, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 2 Then
            'PlaySound("M36-1.WAV")
            AddMagic(1, 61, 66, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 3 Then
            'PlaySound("M36-1.WAV")
            AddMagic(1, 71, 76, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 4 Then
            'PlaySound("M36-1.WAV")
            AddMagic(1, 81, 86, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 5 Then
            'PlaySound("M36-1.WAV")
            AddMagic(1, 91, 96, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 6 Then
            'PlaySound("M36-1.WAV")
            AddMagic(1, 101, 106, CordX, CordY, False, False, 0, 0, 2, 1)
        ElseIf Direction = 7 Then
            'PlaySound("M36-1.WAV")
            AddMagic(1, 111, 116, CordX, CordY, False, False, 0, 0, 2, 1)
        End If
    End Sub

End Module