Dynamic Array Dimension Nested in a Dynamic Array Dimension : Study Notes

[Joseph]

Dynamic Array Dimension Nested in a Dynamic Array Dimension : Study Notes

The following dynamic dimension has been set to work in my code library, it is fully tested and conflict free.

Part Code

### manufacturing empty containers ###

Dim BallTempx(4),Ballx(4),BallxInc(4),currentplayer

### Tracking Ball movement  ###

BallTempx(1)=Ball1.x: BallTempx(2)=Ball2.x: BallTempx(3)=Ball3.x: BallTempx(4)=Ball4.x:

### Placing Primitive name Ball1 to 4 into the dynamic dimension Ballx(4) empty containers ###

Set Ballx(1)=Ball1 ‘Fill bucket 1
Set Ballx(2)=Ball2 ‘Fill bucket 2                                                                                                                  Set Ballx(3)=Ball3                                                                                                                                        Set Ballx(4)=Ball4

Part Code

Sub Kickerballanimation_Timer()

If BallTempx(Ballxinc(Currentplayer))<820  Then

Kickerballanimation.enabled=false

Ballxinc(Currentplayer)= Ballxinc(Currentplayer)+1

End If

If Ballxinc(Currentplayer)>5 then

Ballxinc(Currentplayer)=1

End If

End Sub

You need to login in order to like this post: click here

[Author]

Posts