SBloodSplatter

Public TempTile() As TempTileRec

Type BloodRec
    Active As Boolean
    x As Long
    y As Long
    Pic As Long
    Timer As Currency
End Type

Type TempMapRec
    Blood(1 To 50) As BloodRec
End Type

    ReDim MapCache(1 To MAX_MAPS) As String

    ReDim TempTile(1 To MAX_MAPS) As TempTileRec

Public Sub PlayerWarp(ByVal Index As Long, ByVal MapNum As Long, ByVal x As Long, ByVal y As Long)
Dim OldMap As Long
Dim LoopI As Long

    ' Check for subscript out of range
    If Not IsPlaying(Index) Or MapNum <= 0 Or MapNum > MAX_MAPS Then Exit Sub

'sending the blood splatter packet without any data will tell the client to clear
    SendDataTo Index, SBloodSplatter & END_CHAR
   
    For LoopI = 1 To UBound(TempMap(MapNum).Blood)
        If TempMap(MapNum).Blood(LoopI).Active Then
            With TempMap(MapNum).Blood(LoopI)
                SendDataTo Index, SBloodSplatter & SEP_CHAR & LoopI & SEP_CHAR & .Active & SEP_CHAR & .x & SEP_CHAR & .y & SEP_CHAR & .Pic & END_CHAR
            End With
        End If
    Next

Function Random(Lowerbound As Integer, Upperbound As Integer) As Integer
    Random = Int((Upperbound - Lowerbound + 1) * Rnd) + Lowerbound
End Function

Public Sub SendBlood(ByVal Map As Long, ByVal Target As Long, ByVal TargetType As Long)
Dim LoopI As Long

    ' 50% chance blood spawns
    'If Random(1, 2) = 2 Then
   
        For LoopI = 1 To UBound(TempMap(Map).Blood)
            If Not TempMap(Map).Blood(LoopI).Active Then
                With TempMap(Map).Blood(LoopI)
                    .Pic = Random(0, 5)
                   
                    If TargetType = TARGET_TYPE_NPC Then
                        If Random(1, 2) = 1 Then
                            .x = (MapNpc(Map, Target).x * 32) + Random(0, 20)
                        Else
                            .x = (MapNpc(Map, Target).x * 32) - Random(0, 20)
                        End If
                        If Random(1, 2) = 2 Then
                            .y = (MapNpc(Map, Target).y * 32) + Random(0, 20)
                        Else
                            .y = (MapNpc(Map, Target).y * 32) - Random(0, 20)
                        End If
                    ElseIf TargetType = TARGET_TYPE_PLAYER Then
                        If IsPlaying(Target) Then
                            If Random(1, 2) = 1 Then
                                .x = (GetPlayerX(Target) * 32) + Random(0, 20)
                            Else
                                .x = (GetPlayerX(Target) * 32) - Random(0, 20)
                            End If
                            If Random(1, 2) = 2 Then
                                .y = (GetPlayerY(Target) * 32) + Random(0, 20)
                            Else
                                .y = (GetPlayerY(Target) * 32) - Random(0, 20)
                            End If
                        End If
                    End If
                   
                    .Timer = GetTickCountNew + 30000
                    .Active = True
                   
                    SendDataToMap Map, SBloodSplatter & SEP_CHAR & LoopI & SEP_CHAR & .Active & SEP_CHAR & .x & SEP_CHAR & .y & SEP_CHAR & .Pic & END_CHAR
                   
                End With
                Exit For
            End If
        Next
   
    'End If
End Sub

' Check for weapon
    n = 0
    If GetPlayerEquipmentSlot(Attacker, Weapon) > 0 Then
        n = GetPlayerInvItemNum(Attacker, GetPlayerEquipmentSlot(Attacker, Weapon))
    End If

SendBlood GetPlayerMap(Attacker), MapNpcNum, TARGET_TYPE_NPC

' reduce dur. on victims equipment
    Call DamageEquipment(Victim, Armor)
    Call DamageEquipment(Victim, Helmet)

SendBlood GetPlayerMap(Victim), Victim, TARGET_TYPE_PLAYER

Do While ServerOnline
        Tick = GetTickCountNew

For x = 1 To MAX_MAPS
            For y = 1 To UBound(TempMap(x).Blood)
                If TempMap(x).Blood(y).Active Then
                    With TempMap(x).Blood(y)
                        If .Timer < GetTickCountNew Then
                            .Pic = 0
                            .x = 0
                            .y = 0
                            .Active = False
                            SendDataToMap x, SBloodSplatter & SEP_CHAR & y & SEP_CHAR & .Active & SEP_CHAR & .x & SEP_CHAR & .y & SEP_CHAR & .Pic & END_CHAR
                        End If
                    End With
                End If
            Next
        Next

SBloodSplatter

Public Blood(1 To 50) As BloodRec

Type BloodRec
    Active As Boolean
    X As Long
    Y As Long
    Pic As Long
End Type

Public DDS_Blood As DirectDrawSurface7
Public DDSD_Blood As DDSURFACEDESC2

InitDDSurf "blood", DDSD_Blood, DDS_Blood

Public Sub DrawBloods()
Dim LoopI As Long
Dim rec As DxVBLib.RECT

    For LoopI = 1 To UBound(Blood)
        If Blood(LoopI).Active Then
            With Blood(LoopI)
                rec = Get_RECT(.Pic * PIC_Y)
                DDS_BackBuffer.BltFast .X, .Y, DDS_Blood, rec, DDBLTFAST_WAIT Or DDBLTFAST_SRCCOLORKEY
            End With
        End If
    Next

End Sub

BltMapTiles

If BloodHighIndex > 0 Then DrawBloods

Private Sub HandleBloodSplatter(ByRef Parse() As String)

    If UBound(Parse) < 1 Then
        Dim LoopI As Long
        For LoopI = 1 To UBound(Blood)
            ZeroMemory ByVal VarPtr(Blood(LoopI)), LenB(Blood(LoopI))
        Next
        Exit Sub
    End If
   
    If CBool(Parse(2)) = True Then
        BloodHighIndex = BloodHighIndex + 1
        If BloodHighIndex >= UBound(Blood) Then BloodHighIndex = UBound(Blood)
    Else
        BloodHighIndex = BloodHighIndex - 1
        If BloodHighIndex < 1 Then BloodHighIndex = 0
    End If
   
    With Blood(Val(Parse(1)))
        .Active = CBool(Parse(2))
        .X = Val(Parse(3))
        .Y = Val(Parse(4))
        .Pic = Val(Parse(5))
    End With
End Sub

Select Case Parse(0)

Case SBloodSplatter
            HandleBloodSplatter Parse

Public BloodHighIndex As Long