calculating item % (white stats)

Page 3 of 4

09/13/2012 23:00 supermando#31

@Stratti thanks but im still having some trouble

This is the stats of a weapon

Code:

73 06 50 D2 03 00 00 00

This is the actual stats from client

Code:

41% [Critical] 
28% [Mag Dmg]
15% [Phy Dmg]
0%  [Hit Rate]
3%  [Mag Rein]
61% [Phy Rein]
61% [Dura]

That's my tool's output

Code:

96% [Critical] 
58% [Mag Dmg]
32% [Phy Dmg]
0%  [Hit Rate]
9%  [Mag Rein]
22% [Phy Rein]
9%  [Dura]

If I used the stats in this [Only registered and activated users can see links. Click Here To Register...] my tool outputs exactly the same stats as pergian did.

09/14/2012 14:33 GoneUp#32

Quote:
Originally Posted by supermando
@Stratti thanks but im still having some trouble

This is the stats of a weapon
Code:
73 06 50 D2 03 00 00 00
This is the actual stats from client
Code:
41% [Critical] 
28% [Mag Dmg]
15% [Phy Dmg]
0%  [Hit Rate]
3%  [Mag Rein]
61% [Phy Rein]
61% [Dura]
That's my tool's output
Code:
96% [Critical] 
58% [Mag Dmg]
32% [Phy Dmg]
0%  [Hit Rate]
9%  [Mag Rein]
22% [Phy Rein]
9%  [Dura]
If I used the stats in this [Only registered and activated users can see links. Click Here To Register...] my tool outputs exactly the same stats as pergian did.

Some time ago, I made a class to do this job. Maybe it helps you. It's not that fine, but it works.

[Only registered and activated users can see links. Click Here To Register...]
(Coded in vb.net, you can easily convert it online to C#)

09/15/2012 03:42 sarkoplata#33

@up
If pastebin is blocked in anbody else's country: (Its blocked here)

Spoiler

Code:

'ViSro Project
'Created by GoneUp, Daxter 
'(2012)

Namespace Functions
    Public Class cWhitestats
        Private ReadOnly weaponArray() As UInt64 = New UInt64() {1073741824, 33554432, 1048576, 32768, 1024, 32, 1}
        Private ReadOnly equipementArray() As UInt64 = New UInt64() {33554432, 1048576, 32768, 1024, 32, 1}
        Private ReadOnly shieldArray() As UInt64 = New UInt64() {33554432, 1048576, 32768, 1024, 32, 1}
        Private ReadOnly accesoryArray() As UInt64 = New UInt64() {32, 1}


        Public PerDurability As Byte
        Public PerPhyRef As Byte
        Public PerMagRef As Byte
        Public PerPhyAtk As Byte
        Public PerMagAtk As Byte
        Public PerPhyDef As Byte
        Public PerMagDef As Byte
        Public PerBlock As Byte
        Public PerCritical As Byte
        Public PerAttackRate As Byte
        Public PerParryRate As Byte
        Public PerPhyAbs As Byte
        Public PerMagAbs As Byte

        Public Sub New()

        End Sub

        Public Sub New(ByVal ItemType As Type, ByVal ws As UInt64)
            SetWhitestats(ItemType, ws)
        End Sub

        Public Function GetWhiteStats(ByVal ItemType As Type) As ULong
            Dim ws As ULong = 0

            Select Case ItemType
                Case Type.Equipment
                    ws += Math.Round(31 * PerDurability / 100)
                    ws += Math.Round(31 * PerPhyRef / 100) * 32
                    ws += Math.Round(31 * PerMagRef / 100) * 1024
                    ws += Math.Round(31 * PerPhyDef / 100) * 32768
                    ws += Math.Round(31 * PerMagDef / 100) * 1048576
                    ws += Math.Round(31 * PerParryRate / 100) * 33554432

                Case Type.Shield

                    ws += Math.Round(31 * PerDurability / 100)
                    ws += Math.Round(31 * PerPhyRef / 100) * 32
                    ws += Math.Round(31 * PerMagRef / 100) * 1024
                    ws += Math.Round(31 * PerBlock / 100) * 32768
                    ws += Math.Round(31 * PerPhyDef / 100) * 1048576
                    ws += Math.Round(31 * PerMagDef / 100) * 33554432

                Case Type.Weapon

                    ws += Math.Round(31 * PerDurability / 100)
                    ws += Math.Round(31 * PerPhyRef / 100) * 32
                    ws += Math.Round(31 * PerMagRef / 100) * 1024
                    ws += Math.Round(31 * PerAttackRate / 100) * 32768
                    ws += Math.Round(31 * PerPhyAtk / 100) * 1048576
                    ws += Math.Round(31 * PerMagAtk / 100) * 33554432
                    ws += Math.Round(31 * PerCritical / 100) * 1073741824

                Case Type.Accesory

                    ws += Math.Round(31 * PerPhyAbs / 100)
                    ws += Math.Round(31 * PerMagAbs / 100) * 32

            End Select
            Return ws
        End Function

        Public Sub SetWhitestats(ByVal ItemType As Type, ByVal ws As UInt64)
            Dim round As Byte = 0
            Dim array As ULong()

            Select Case ItemType
                Case Type.Weapon
                    array = weaponArray
                Case Type.Shield
                    array = shieldArray
                Case Type.Equipment
                    array = equipementArray
                Case Type.Accesory
                    array = equipementArray
            End Select

            Dim results As Byte() = New Byte(array.Length) {}

            Do While (round < array.Length)
                Dim counter As Int32 = 31
                Do While (counter <> 0)
                    Dim value As UInt64 = (Convert.ToUInt64(counter) * array(round))
                    If (ws >= value) Then
                        results(round) = Convert.ToInt32(Math.Round(((Convert.ToDouble(counter) / 31) * 100)))

                        ws = (ws - value)
                        Exit Do
                    End If
                    counter -= 1
                Loop
                round += 1
            Loop

            Select Case ItemType
                Case Type.Weapon
                    PerCritical = results(0)
                    PerMagAtk = results(1)
                    PerPhyAtk = results(2)
                    PerAttackRate = results(3)
                    PerMagRef = results(4)
                    PerPhyRef = results(5)
                    PerDurability = results(6)
                Case Type.Shield
                    PerMagDef = results(0)
                    PerPhyRef = results(1)
                    PerBlock = results(2)
                    PerMagRef = results(3)
                    PerPhyRef = results(4)
                    PerDurability = results(5)
                Case Type.Equipment
                    PerParryRate = results(0)
                    PerMagDef = results(1)
                    PerPhyDef = results(2)
                    PerMagRef = results(3)
                    PerPhyRef = results(4)
                    PerDurability = results(5)
                Case Type.Accesory
                    PerMagAbs = results(0)
                    PerPhyAbs = results(1)
            End Select
        End Sub

        Public Function GetItemType(ByVal ClassB As Byte) As Type
            Select Case ClassB
                Case 1, 2, 3, 9, 10, 11 'Equipment
                    Return Type.Equipment
                Case 4
                    Return Type.Shield
                Case 6
                    Return Type.Weapon
                Case 5, 12
                    Return Type.Accesory
            End Select
            Return Nothing
        End Function




        Enum Type
            Weapon
            Shield
            Accesory
            Equipment
        End Enum
    End Class
End Namespace

And love to see people making great stuff in vb.net (against saying 99% of population that vb.net sucks)

09/19/2012 16:02 cyberninjah#34

Here is a C# version ( Converted not tested )

Spoiler

Code:

// ViSro Project
// Created by GoneUp, Daxter 
// (2012)

namespace Functions {
    
    public class cWhitestats {
        
        private UInt64[] weaponArray = new UInt64[] {
                1073741824,
                33554432,
                1048576,
                32768,
                1024,
                32,
                1};
        
        private UInt64[] equipementArray = new UInt64[] {
                33554432,
                1048576,
                32768,
                1024,
                32,
                1};
        
        private UInt64[] shieldArray = new UInt64[] {
                33554432,
                1048576,
                32768,
                1024,
                32,
                1};
        
        private UInt64[] accesoryArray = new UInt64[] {
                32,
                1};
        
        public byte PerDurability;
        
        public byte PerPhyRef;
        
        public byte PerMagRef;
        
        public byte PerPhyAtk;
        
        public byte PerMagAtk;
        
        public byte PerPhyDef;
        
        public byte PerMagDef;
        
        public byte PerBlock;
        
        public byte PerCritical;
        
        public byte PerAttackRate;
        
        public byte PerParryRate;
        
        public byte PerPhyAbs;
        
        public byte PerMagAbs;
        
        public cWhitestats() {
        }
        
        public cWhitestats(Type ItemType, UInt64 ws) {
            SetWhitestats(ItemType, ws);
        }
        
        public ULong GetWhiteStats(Type ItemType) {
            ULong ws = 0;
            switch (ItemType) {
                case Type.Equipment:
                    ws = (ws + Math.Round((31 
                                    * (PerDurability / 100))));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerPhyRef / 100))) * 32));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerMagRef / 100))) * 1024));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerPhyDef / 100))) * 32768));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerMagDef / 100))) * 1048576));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerParryRate / 100))) * 33554432));
                    break;
                case Type.Shield:
                    ws = (ws + Math.Round((31 
                                    * (PerDurability / 100))));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerPhyRef / 100))) * 32));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerMagRef / 100))) * 1024));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerBlock / 100))) * 32768));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerPhyDef / 100))) * 1048576));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerMagDef / 100))) * 33554432));
                    break;
                case Type.Weapon:
                    ws = (ws + Math.Round((31 
                                    * (PerDurability / 100))));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerPhyRef / 100))) * 32));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerMagRef / 100))) * 1024));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerAttackRate / 100))) * 32768));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerPhyAtk / 100))) * 1048576));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerMagAtk / 100))) * 33554432));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerCritical / 100))) * 1073741824));
                    break;
                case Type.Accesory:
                    ws = (ws + Math.Round((31 
                                    * (PerPhyAbs / 100))));
                    ws = (ws 
                                + (Math.Round((31 
                                    * (PerMagAbs / 100))) * 32));
                    break;
            }
            return ws;
        }
        
        public void SetWhitestats(Type ItemType, UInt64 ws) {
            byte round = 0;
            ULong[] array;
            switch (ItemType) {
                case Type.Weapon:
                    array = weaponArray;
                    break;
                case Type.Shield:
                    array = shieldArray;
                    break;
                case Type.Equipment:
                    array = equipementArray;
                    break;
                case Type.Accesory:
                    array = equipementArray;
                    break;
            }
            byte[] results = new byte[] {
                    array.Length};
            while ((round < array.Length)) {
                Int32 counter = 31;
                while ((counter != 0)) {
                    UInt64 value = (Convert.ToUInt64(counter) * array[round]);
                    if ((ws >= value)) {
                        results[round] = Convert.ToInt32(Math.Round(((Convert.ToDouble(counter) / 31) 
                                            * 100)));
                        ws = (ws - value);
                        break; //Warning!!! Review that break works as 'Exit Do' as it could be in a nested instruction like switch
                    }
                    counter--;
                }
                round++;
            }
            switch (ItemType) {
                case Type.Weapon:
                    PerCritical = results[0];
                    PerMagAtk = results[1];
                    PerPhyAtk = results[2];
                    PerAttackRate = results[3];
                    PerMagRef = results[4];
                    PerPhyRef = results[5];
                    PerDurability = results[6];
                    break;
                case Type.Shield:
                    PerMagDef = results[0];
                    PerPhyRef = results[1];
                    PerBlock = results[2];
                    PerMagRef = results[3];
                    PerPhyRef = results[4];
                    PerDurability = results[5];
                    break;
                case Type.Equipment:
                    PerParryRate = results[0];
                    PerMagDef = results[1];
                    PerPhyDef = results[2];
                    PerMagRef = results[3];
                    PerPhyRef = results[4];
                    PerDurability = results[5];
                    break;
                case Type.Accesory:
                    PerMagAbs = results[0];
                    PerPhyAbs = results[1];
                    break;
            }
        }
        
        public Type GetItemType(byte ClassB) {
            switch (ClassB) {
                case 1:
                case 2:
                case 3:
                case 9:
                case 10:
                case 11:
                    // Equipment
                    return Type.Equipment;
                    break;
                case 4:
                    return Type.Shield;
                    break;
                case 6:
                    return Type.Weapon;
                    break;
                case 5:
                case 12:
                    return Type.Accesory;
                    break;
            }
            return null;
        }
        
        enum Type {
            
            Weapon,
            
            Shield,
            
            Accesory,
            
            Equipment,
        }
    }
}

09/20/2012 00:04 iNiperx#35

Quote:

Originally Posted by sarkoplata

@up
If pastebin is blocked in anbody else's country: (Its blocked here)

Spoiler

Code:

'ViSro Project
'Created by GoneUp, Daxter 
'(2012)

Namespace Functions
    Public Class cWhitestats
        Private ReadOnly weaponArray() As UInt64 = New UInt64() {1073741824, 33554432, 1048576, 32768, 1024, 32, 1}
        Private ReadOnly equipementArray() As UInt64 = New UInt64() {33554432, 1048576, 32768, 1024, 32, 1}
        Private ReadOnly shieldArray() As UInt64 = New UInt64() {33554432, 1048576, 32768, 1024, 32, 1}
        Private ReadOnly accesoryArray() As UInt64 = New UInt64() {32, 1}


        Public PerDurability As Byte
        Public PerPhyRef As Byte
        Public PerMagRef As Byte
        Public PerPhyAtk As Byte
        Public PerMagAtk As Byte
        Public PerPhyDef As Byte
        Public PerMagDef As Byte
        Public PerBlock As Byte
        Public PerCritical As Byte
        Public PerAttackRate As Byte
        Public PerParryRate As Byte
        Public PerPhyAbs As Byte
        Public PerMagAbs As Byte

        Public Sub New()

        End Sub

        Public Sub New(ByVal ItemType As Type, ByVal ws As UInt64)
            SetWhitestats(ItemType, ws)
        End Sub

        Public Function GetWhiteStats(ByVal ItemType As Type) As ULong
            Dim ws As ULong = 0

            Select Case ItemType
                Case Type.Equipment
                    ws += Math.Round(31 * PerDurability / 100)
                    ws += Math.Round(31 * PerPhyRef / 100) * 32
                    ws += Math.Round(31 * PerMagRef / 100) * 1024
                    ws += Math.Round(31 * PerPhyDef / 100) * 32768
                    ws += Math.Round(31 * PerMagDef / 100) * 1048576
                    ws += Math.Round(31 * PerParryRate / 100) * 33554432

                Case Type.Shield

                    ws += Math.Round(31 * PerDurability / 100)
                    ws += Math.Round(31 * PerPhyRef / 100) * 32
                    ws += Math.Round(31 * PerMagRef / 100) * 1024
                    ws += Math.Round(31 * PerBlock / 100) * 32768
                    ws += Math.Round(31 * PerPhyDef / 100) * 1048576
                    ws += Math.Round(31 * PerMagDef / 100) * 33554432

                Case Type.Weapon

                    ws += Math.Round(31 * PerDurability / 100)
                    ws += Math.Round(31 * PerPhyRef / 100) * 32
                    ws += Math.Round(31 * PerMagRef / 100) * 1024
                    ws += Math.Round(31 * PerAttackRate / 100) * 32768
                    ws += Math.Round(31 * PerPhyAtk / 100) * 1048576
                    ws += Math.Round(31 * PerMagAtk / 100) * 33554432
                    ws += Math.Round(31 * PerCritical / 100) * 1073741824

                Case Type.Accesory

                    ws += Math.Round(31 * PerPhyAbs / 100)
                    ws += Math.Round(31 * PerMagAbs / 100) * 32

            End Select
            Return ws
        End Function

        Public Sub SetWhitestats(ByVal ItemType As Type, ByVal ws As UInt64)
            Dim round As Byte = 0
            Dim array As ULong()

            Select Case ItemType
                Case Type.Weapon
                    array = weaponArray
                Case Type.Shield
                    array = shieldArray
                Case Type.Equipment
                    array = equipementArray
                Case Type.Accesory
                    array = equipementArray
            End Select

            Dim results As Byte() = New Byte(array.Length) {}

            Do While (round < array.Length)
                Dim counter As Int32 = 31
                Do While (counter <> 0)
                    Dim value As UInt64 = (Convert.ToUInt64(counter) * array(round))
                    If (ws >= value) Then
                        results(round) = Convert.ToInt32(Math.Round(((Convert.ToDouble(counter) / 31) * 100)))

                        ws = (ws - value)
                        Exit Do
                    End If
                    counter -= 1
                Loop
                round += 1
            Loop

            Select Case ItemType
                Case Type.Weapon
                    PerCritical = results(0)
                    PerMagAtk = results(1)
                    PerPhyAtk = results(2)
                    PerAttackRate = results(3)
                    PerMagRef = results(4)
                    PerPhyRef = results(5)
                    PerDurability = results(6)
                Case Type.Shield
                    PerMagDef = results(0)
                    PerPhyRef = results(1)
                    PerBlock = results(2)
                    PerMagRef = results(3)
                    PerPhyRef = results(4)
                    PerDurability = results(5)
                Case Type.Equipment
                    PerParryRate = results(0)
                    PerMagDef = results(1)
                    PerPhyDef = results(2)
                    PerMagRef = results(3)
                    PerPhyRef = results(4)
                    PerDurability = results(5)
                Case Type.Accesory
                    PerMagAbs = results(0)
                    PerPhyAbs = results(1)
            End Select
        End Sub

        Public Function GetItemType(ByVal ClassB As Byte) As Type
            Select Case ClassB
                Case 1, 2, 3, 9, 10, 11 'Equipment
                    Return Type.Equipment
                Case 4
                    Return Type.Shield
                Case 6
                    Return Type.Weapon
                Case 5, 12
                    Return Type.Accesory
            End Select
            Return Nothing
        End Function




        Enum Type
            Weapon
            Shield
            Accesory
            Equipment
        End Enum
    End Class
End Namespace

And love to see people making great stuff in vb.net (against saying 99% of population that vb.net sucks)

I don't think vb.net sux but people says it all the time so i changed C#.. i guess is nice to know another program, still learning x)

09/30/2012 00:45 sarkoplata#36

Whatever I tried, If ingame the stat is: 16%, tool shows 22%, otherways, it's all true, but at some values the client and tool show different. Seems like client change it as it want. Any idea?

09/30/2012 01:03 GoneUp#37

Wich Tool? :P

09/30/2012 01:09 sarkoplata#38

Quote:

Originally Posted by GoneUp

Wich Tool? :P

My fuser tool ([Only registered and activated users can see links. Click Here To Register...]) I'm trying to add stone fusing option too.

Used your class to get stats aswell, same. Ingame it shows 16%, but calculating it give 22%. And this happens for 16%, the 41% etc. works normally.

Spoiler

09/30/2012 12:37 GoneUp#39

Can you post the uint64 and a ingame screen of the item?

09/30/2012 13:52 sarkoplata#40

UInt64 = 7516192768

[Only registered and activated users can see links. Click Here To Register...]

Tool says 23% Crit ratio (it works at stats like 41% etc. but at this it fail)

Code:

PHP Code:


			
  ElseIf packet.Opcode = &HB151 Then
                                        Dim variance As UInt64
                                        context.RelaySecurity.Send(packet)
                                        Dim typeid_1 As Byte = packet.ReadUInt8()

                                        If Not typeid_1 = 2 Then
                                            Try
                                                Dim typeid_2 As Byte = packet.ReadUInt8()

                                                Main.Log("Type Id[2]: " & typeid_2)

                                                Dim success As Byte = packet.ReadUInt8()

                                         
                                                Dim itemslot As Byte = packet.ReadUInt8()

                                                Dim Unknown3 As UInt32 = packet.ReadUInt32()

                                                Dim itemid As UInt32 = packet.ReadUInt32
                                                Dim plusvalue As Byte = packet.ReadUInt8
                                                variance = packet.ReadUInt64()
                                                Dim durability As UInt32 = packet.ReadUInt32

                                                Dim bluecount As Byte = packet.ReadUInt8
                                                packet.ReadUInt8()
                                                packet.ReadUInt8()
                                                packet.ReadUInt8()
                                                packet.ReadUInt8()

                                                Dim stat As New cWhitestats(cWhitestats.Type.Weapon, variance)
                                                Main.Log(stat.PerCritical)

09/30/2012 22:13 GoneUp#41

Quote:

Originally Posted by sarkoplata

UInt64 = 7516192768

Tool says 23% Crit ratio (it works at stats like 41% etc. but at this it fail)

Code:

PHP Code:

ElseIf packet.Opcode = &HB151 Then Dim variance As UInt64 context.RelaySecurity.Send(packet) Dim typeid_1 As Byte = packet.ReadUInt8() If Not typeid_1 = 2 Then Try Dim typeid_2 As Byte = packet.ReadUInt8() Main.Log("Type Id[2]: " & typeid_2) Dim success As Byte = packet.ReadUInt8() Dim itemslot As Byte = packet.ReadUInt8() Dim Unknown3 As UInt32 = packet.ReadUInt32() Dim itemid As UInt32 = packet.ReadUInt32 Dim plusvalue As Byte = packet.ReadUInt8 variance = packet.ReadUInt64() Dim durability As UInt32 = packet.ReadUInt32 Dim bluecount As Byte = packet.ReadUInt8 packet.ReadUInt8() packet.ReadUInt8() packet.ReadUInt8() packet.ReadUInt8() Dim stat As New cWhitestats(cWhitestats.Type.Weapon, variance) Main.Log(stat.PerCritical)

It's quite a bit senseless.
To trace it I split the value into their bits:

Code:

The 00111 represents the weapon value: 7
And (7/31) * 100 gives us 22,58 ~ 23.

Dunno why the client writes 16%. Any Ideas?

09/30/2012 22:21 DaxterSoul#42

You'll never see a +23%

Code:

09/30/2012 22:35 sarkoplata#43

Quote:

Originally Posted by DaxterSoul

You'll never see a +23%

Code:

It return 22,58 ~ 23. and if you round it to higher it's 23%.
Still does not solve the mysticity why client says 16%.

(1 thing blew my mind, ingame says "Critical 5 (+16%)", and (5/31 * 100) = 16. Maybe it give the value, not the percantage?)

10/01/2012 00:22 DaxterSoul#44

You're sending those values wrong.
Crit+3% is 1073741824 and you want around 23% what is not present, so you choose Crit+22%.
7 *1073741824 = 7516192768, just as you said.
[Only registered and activated users can see links. Click Here To Register...]

I'll work out a simple class for VB.NET & C# tomorrow hope that will clear things up

10/01/2012 09:55 GoneUp#45

Quote:

Originally Posted by DaxterSoul

You're sending those values wrong.
Crit+3% is 1073741824 and you want around 23% what is not present, so you choose Crit+22%.
7 *1073741824 = 7516192768, just as you said.
[Only registered and activated users can see links. Click Here To Register...]

I'll work out a simple class for VB.NET & C# tomorrow hope that will clear things up

To correct it: the value is from the server, but our calculated value and the ingame value doesn't match.

Page 3 of 4