kinda hard to word this but here we go: is there a way to give 5 items at different chances like 1 out of 5 i get a trout 1 out of 3 i get a sardine 1 out of 4 i get a bass here is my code… Please alter to fit the events above... thanks in advance! ``` Sub Mining(index, 499, 0, "Ore", "hammer", 498) Dim c Dim weapon Dim n n = 1 weapon = Int(GetPlayerWeaponSlot(Index)) weapon2= Int(GetPlayerInvItemNum(index, weapon)) If GetPlayerLevel(Index) 24 Call PlayerMsg(Index, GetPlayerName(Index) & " found some " & orename & "!", 15) Else Call PlayerMsg(Index, GetPlayerName(Index) & " found nothing!", 15) End If Else Call PlayerMsg(Index, GetPlayerName(Index) & " must equip a " & weapname & "!", 15) End If Else If GetPlayerInvItemNum(index, weapon) = weapitem Then Do If GetPlayerInvItemNum(index, n) = 0 Then Call SetPlayerInvItemNum(index, n, oreitem) Call SetPlayerInvItemValue(index, n, GetPlayerInvItemValue(index, n)+1) 'added by unknown_raven Call SendInventoryUpdate(index, n) Exit Do End If n = n + 1 Loop Until n > 24 Call PlayerMsg(Index, GetPlayerName(Index) & " found some " & orename & "!", 15) Else Call PlayerMsg(Index, GetPlayerName(Index) & " must equip a " & weapname & "!", 15) End If End If End Sub ```