15-08-2009, 07:41 PM
Okay, so I was adding in item stat bonuses, and I managed to get it to work. But I get this dirty feeling that I did it sloppy, so I'd appreciate it if some of you good fellows could give it a once over, and tell me how it looks, and how I could improve it, should it need improving. Here's an example:
Code:
Case ITEM_TYPE_WEAPON
If InvNum GetPlayerEquipmentSlot(Index, Weapon) Then
If GetPlayerStat(Index, Stats.Strength) < n Then
Call PlayerMsg(Index, "Your strength is to low to hold this weapon! Required STR (" & n & ")", BrightRed)
Exit Sub
End If
If Item(GetPlayerInvItemNum(Index, InvNum)).MPBonus > 0 Then
Call SetPlayerStat(Index, Magic, GetPlayerStat(Index, Magic) + Item(GetPlayerInvItemNum(Index, InvNum)).MPBonus)
End If
Call SetPlayerEquipmentSlot(Index, InvNum, Weapon)
Else
If Item(GetPlayerInvItemNum(Index, InvNum)).MPBonus > 0 Then
Call SetPlayerStat(Index, Magic, GetPlayerStat(Index, Magic) - Item(GetPlayerInvItemNum(Index, InvNum)).MPBonus)
End If
Call SetPlayerEquipmentSlot(Index, 0, Weapon)
End If
Call SendWornEquipment(Index)