Symthic Forum was shut down on January 11th, 2019. You're viewing an archive of this page from 2019-01-08 at 23:52. Thank you all for your support! Please get in touch via the Curse help desk if you need any support using this archive.
Quoted from ""RobotMonkey""
Seems like we should also be able to calculate the spread decrease as well in the plots.
Quoted from ""Symthic""
Quoted from ""RobotMonkey""
Seems like we should also be able to calculate the spread decrease as well in the plots.
Spread decrease does nothing while shooting.
If you mean to calculate the time between bursts, then it could but I don't really see the point in that.
Edit:
Drawing the grid is bugged.
When drawing line every x degree, it's affected by distance now.
Degrees stay always the same no matter what the distance is.
Quoted from ""Symthic""
Ill fix the functions to work with m4a1 too...
M16 and M4 are special because their base stats are in two files when every other wep has them in one file.
Shotguns can be removed from the list, theyre not supposed to work with Plotic... yet?
Quoted from ""Symthic""
Good work.
But can't get it to run in silent mode anymore no matter what.
Could you take a look at it?
Quoted from ""Symthic""
Good work.
But can't get it to run in silent mode anymore no matter what.
Could you take a look at it?
![]() |
Source code |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 |
Public Function GetValue(ByVal weapon As String, ByVal value As String, Optional ByVal stance As String = "Stand") Dim data = GetData(weapon, "") Dim preparsevalues = "-IncreasePerShotMinAngleMaxAngleDecreasePerSecondRecoilAmplitudeMaxRecoilAmplitudeIncPerShotHorizo" + _ "ntalRecoilAmplitudeIncPerShotMinHorizontalRecoilAmplitudeIncPerShotMaxHorizontalRecoilAmplitudeMaxRe" +_ "coilAmplitudeDecreaseFactor-" If InStr(preparsevalues, value) Then data = Microsoft.VisualBasic.Right(data, Len(data) - InStr(data, "WeaponSwayData")) Else If InStr(value, "MinAngle") Or InStr(value, "MaxAngle") Then data = Microsoft.VisualBasic.Right(data, Len(data) - InStr(data, "WeaponSwayData")) End If End If ' MsgBox(Microsoft.VisualBasic.Left(data, 200)) stance = "-" + stance + "-" If InStr(stance, "Stand") Then data = Microsoft.VisualBasic.Right(data, Len(data) - InStr(data, "Stand")) ElseIf InStr(stance, "Crouch") Then data = Microsoft.VisualBasic.Right(data, Len(data) - InStr(data, "Crouch")) ElseIf InStr(stance, "Prone") Then data = Microsoft.VisualBasic.Right(data, Len(data) - InStr(data, "Prone") - 1) data = Microsoft.VisualBasic.Right(data, Len(data) - InStr(data, "Prone") - 1) End If ' MsgBox(Microsoft.VisualBasic.Left(data, 200)) If InStr(value, "ADS") Then data = Microsoft.VisualBasic.Right(data, Len(data) - InStr(data, " Zoom")) ElseIf InStr(value, "HIP") Then data = Microsoft.VisualBasic.Right(data, Len(data) - InStr(data, "NoZoom")) End If 'MsgBox(Microsoft.VisualBasic.Left(data, 200)) If InStr(value, "Base") Then data = Microsoft.VisualBasic.Right(data, Len(data) - InStr(data, "BaseValue")) ElseIf InStr(value, "Moving") Then data = Microsoft.VisualBasic.Right(data, Len(data) - InStr(data, "Moving")) End If 'MsgBox(Microsoft.VisualBasic.Left(data, 200)) If InStr(value, "MinAngle") Then value = "MinAngle" ElseIf InStr(value, "MaxAngle") Then value = "MaxAngle" End If Dim start = InStr(data, value) + (Len(value) + 1) data = Microsoft.VisualBasic.Mid(data, start, 200) Dim val As String = "" Dim leni As Integer = 1 Do Until InStr(val, Environment.NewLine) val = Microsoft.VisualBasic.Left(data, leni) leni += 1 Loop val = Microsoft.VisualBasic.Left(val, Len(val) - 1) Return val End Function |
Forum Software: Burning Board®, developed by WoltLab® GmbH
© Design by Symthic.com