filljumplist(25%x, 24, "left") 'fill jumping lists jump to left
filljumplist(25%x, 24, "right") 'fill jumping lists jump to right
Sub filljumplist(radius As Int, steps As Double, direction As String)
jumprcalc.Clear
Dim jx As Float
Dim jy As Float
Dim angle As Float = 180/steps
jumpingdir = direction
jumpint = 0
For i = 0 To 24
If direction = "right" Then
jx = radius - (radius * CosD(angle*i))
Else If direction = "left" Then
jx = radius + (radius * CosD(angle*i))
End If
jy = radius * SinD(angle*i)
jumprcalc.Add(jx & "|" & jy)
'Log(jx & "|" & jy)
Next
End Sub