X3N0
|
Friend Module Park
Function Park_Nonplayer_Merchants()
End Function
Structure NPC_MERCHANT
Public IdNumericalLong As Long
Shared LongRange() As String = {"0", "1", "2", "3", "4", "5"}
Const FiveRangeNumbers As Integer = CInt(5)
Shared CountingFive As Integer = 0
Shared Sub MakeNumericalLong()
Dim DoubleBy As Integer = 5 * CLng(5)
Dim Calculation = DoubleBy * 100
Dim DummyString As String = String.Empty
Dim AdditionedNumber = CLng(0)
AdditionedNumber += Calculation
Dim WhatRangeIndex As New System.Random()
For NPC_MERCHANT.CountingFive = 0 To FiveRangeNumbers
AdditionedNumber = AdditionedNumber + NPC_MERCHANT.LongRange(WhatRangeIndex.Next(0, 5))
Next
End Sub
End Structure
http://iwarg.ddns.net/aim/index.php?action=forums&cat=6&thread=908
Those who follow the river, can fall in.
|
![[Reply]](img/forum/topicreply2.png)