Multiple Resource Drops

[Officer Johnson]

Hello Eclipse,

Tutorials section has really died down. So i figured i'd try and get it back up and running. The more tutorials there is the more customization available for everyone when creating there games!

With that being said today i bring to you Multiple Resource Drops/Rewards.

Lets get to the code.

Server Side:

>! **modconstants** under general constants add:
>! Public Const MAX_RESOURCE_DROPS As byte = 5
>! Then head over to **modTypes**
in ResourceRec find:
>! ItemReward As Long and change it to:
>! ItemReward(1 To MAX_RESOURCE_DROPS) As Long
>! Then in **modPlayers** Find:
>! in CheckResource under Dim Damage as long add:
>! Dim n as long
>! Next still in **CheckResource**
>! Find: 'inv space? right in under add:
>! For n = 1 To MAX_RESOURCE_DROPS
>! Find: .ItemReward > 0 Then
>! Change to:
>! .ItemReward(n) > 0 Then
>! Right below that youll see another .itemReward 
>! just add (n) at the end of it again.
>! **in the same sub** a little further down find:
>! ' carry on. under this add:
>! For n = 1 To MAX_RESOURCE_DROPS
>! **Youll see .ItemReward again. **
>! Add (n) at the end of it.

Client Side:

>! **Modconstants** in under general constants add:
>! Public Const MAX_RESOURCE_DROPS As byte = 5
>! Now head over to **ModTypes** find ResourceRec
>! in resourceRec find **ItemReward** as long change to:
>! ItemReward(1 To MAX_RESOURCE_DROPS) As Long
>! Go to your **ResourceEditor code** and at the top in under Option Explicit add:
>! Private ResDropIndex as byte

form and form code

>! Now go to your **Resource Editor** add a scrlbar for the drop and name it scrlResDrop. 
>! set min to 1 max to 5.
>! also add a label with the caption Drop: 
>! now click on the **scrlbar** and add the following.
>! ResDropIndex = scrlResDrop.Value
>!     (label name here).Caption = "Drop - " & ResDropIndex
   scrlReward.Value = Resource(EditorIndex).ItemReward(ResDropIndex)

Just to clarify this allows a resource upon depletion to reward multiple items. Similar to multiple npc drops.

That should be it! I hope someone find this useful.

-Officer Johnson