Jump to content

Stats Program


Jethsidi

Recommended Posts

Hey, figured I would share this as it helps me see final values faster than actually computing:

 

 

Sub Main()

 

Dim L As Integer = 60

Dim S As Integer = 1928

Dim A As Integer = 1742

Dim D As Integer = 171

Dim C As String = "P"

Dim CBD As Integer

Dim CBS As Integer

Dim CBA As Integer

Dim SC As Decimal

Dim AC As Decimal

Dim DC As Decimal

 

If C = "J" Then

CBD = 13

CBS = 24

CBA = 23

End If

 

If C = "A" Then

CBD = 16

CBS = 35

CBA = 24

End If

 

If C = "P" Then

CBD = 9

CBS = 25

CBA = 27

End If

 

If C = "N" Then

CBD = 0

CBS = 0

CBA = 0

End If

 

SC = 50 * (1 - (1 - (0.01 / 0.5)) ^ ((S / L) / 0.78)) + CBS

 

AC = 50 * (1 - (1 - (0.01 / 0.5)) ^ ((A / L) / 0.65)) + CBA

 

DC = 30 * (1 - (1 - (0.01 / 0.3)) ^ ((D / L) / 1.2)) + CBD

 

Console.WriteLine(SC)

Console.WriteLine(AC)

Console.WriteLine(DC)

 

Console.ReadLine()

 

End Sub

 

 

Just a subroutine that you can plug in stat values and your class and it will give you what the percentages are. That way you can play with your gear without spending the credits/comms until you know what you need to get what you want.

Link to comment
Share on other sites

Hey, figured I would share this as it helps me see final values faster than actually computing:

 

 

Sub Main()

 

Dim L As Integer = 60

Dim S As Integer = 1928

Dim A As Integer = 1742

Dim D As Integer = 171

Dim C As String = "P"

Dim CBD As Integer

Dim CBS As Integer

Dim CBA As Integer

Dim SC As Decimal

Dim AC As Decimal

Dim DC As Decimal

 

If C = "J" Then

CBD = 13

CBS = 24

CBA = 23

End If

 

If C = "A" Then

CBD = 16

CBS = 35

CBA = 24

End If

 

If C = "P" Then

CBD = 9

CBS = 25

CBA = 27

End If

 

If C = "N" Then

CBD = 0

CBS = 0

CBA = 0

End If

 

SC = 50 * (1 - (1 - (0.01 / 0.5)) ^ ((S / L) / 0.78)) + CBS

 

AC = 50 * (1 - (1 - (0.01 / 0.5)) ^ ((A / L) / 0.65)) + CBA

 

DC = 30 * (1 - (1 - (0.01 / 0.3)) ^ ((D / L) / 1.2)) + CBD

 

Console.WriteLine(SC)

Console.WriteLine(AC)

Console.WriteLine(DC)

 

Console.ReadLine()

 

End Sub

 

 

Just a subroutine that you can plug in stat values and your class and it will give you what the percentages are. That way you can play with your gear without spending the credits/comms until you know what you need to get what you want.

 

 

A glossary would be much appreciated.

 

 

P.D:Also. it is in Visual?

Link to comment
Share on other sites

A glossary would be much appreciated.

 

 

P.D:Also. it is in Visual?

 

Visual, yes, because it is free so anyone can get it, figured I would keep it simple.

 

Glossary:

L = Level

S = Shield Rating

A = Absorb Rating

D = Defense Rating

C = Class (where J is Juggernaut, A is Assassin, P is Powertech, and N is None [for finding baselines])

CBD = Class Bonus Defense

CBS = Class Bonus Shield

CBA = Class Bonus Absorb

SC = Shield Chance

AC = Absorb %

DC = Defense Chance

Link to comment
Share on other sites

×
×
  • Create New...