Mirage Source

Function GetPlayerWeaponBonus(ByVal Index As Long)
Dim WeaponSlot As Long
   
    StrengthBonus = 0
    EnduranceBonus = 0
    DexterityBonus = 0
    WisdomBonus = 0
    AgilityBonus = 0
   
    If GetPlayerWeaponSlot(Index) > 0 Then
   
    WeaponSlot = GetPlayerWeaponSlot(Index)
   
        If Item(GetPlayerInvItemNum(Index, WeaponSlot)).BonusType = 0 Then
            StrengthBonus = Item(GetPlayerInvItemNum(Index, WeaponSlot)).Bonus
        End If
        If Item(GetPlayerInvItemNum(Index, WeaponSlot)).BonusType = 1 Then
            EnduranceBonus = Item(GetPlayerInvItemNum(Index, WeaponSlot)).Bonus
        End If
        If Item(GetPlayerInvItemNum(Index, WeaponSlot)).BonusType = 2 Then
            DexterityBonus = Item(GetPlayerInvItemNum(Index, WeaponSlot)).Bonus
        End If
        If Item(GetPlayerInvItemNum(Index, WeaponSlot)).BonusType = 3 Then
            WisdomBonus = Item(GetPlayerInvItemNum(Index, WeaponSlot)).Bonus
        End If
        If Item(GetPlayerInvItemNum(Index, WeaponSlot)).BonusType = 4 Then
            AgilityBonus = Item(GetPlayerInvItemNum(Index, WeaponSlot)).Bonus
        End If
    End If
End Function

Function GetPlayerBonus(Index)
    Call GetPlayerWeaponBonus(Index)
    Call GetPlayerArmorBonus(Index)
    Call GetPlayerSheildBonus(Index)
    Call GetPlayerHelmBonus(Index)
    Call GetPlayerNecklaceBonus(Index)
    Call GetPlayerRingBonus(Index)
    Call SendStats(Index)
End Function

Function GetPlayerBonusSTR(ByVal Index As Long) As Byte ' get players extra strength from items
Dim ArmorSlot As Byte, HelmSlot As Byte, WeaponSlot As Byte, ShieldSlot As Byte
   
    GetPlayerBonusSTR = 0
   
    ' Check for subscript out of range
    If IsPlaying(Index) = False Or Index <= 0 Or Index > MAX_PLAYERS Then
        Exit Function
    End If
   
    ArmorSlot = GetPlayerArmorSlot(Index)
    HelmSlot = GetPlayerHelmetSlot(Index)
    WeaponSlot = GetPlayerWeaponSlot(Index)
    ShieldSlot = GetPlayerShieldSlot(Index)
   
    If ArmorSlot > 0 Then GetPlayerBonusSTR = GetPlayerBonusSTR + (Item(ArmorSlot).StrBon)
    If HelmSlot > 0 Then GetPlayerBonusSTR = GetPlayerBonusSTR + (Item(HelmSlot).StrBon)
    If WeaponSlot > 0 Then GetPlayerBonusSTR = GetPlayerBonusSTR + (Item(WeaponSlot).StrBon)
    If ShieldSlot > 0 Then GetPlayerBonusSTR = GetPlayerBonusSTR + (Item(ShieldSlot).StrBon)
   
    If GetPlayerBonusSTR < 0 Then GetPlayerBonusSTR = 0 ' Gotta check, never know :p
End Function