07 Highscores V1.2 (Source Included)

[xGTx]

This will show highscores for Runescape 2007 only.
It stays on top of all windows (Always on top)
Shows;
Overall Rank
Total Level
Attack
Strength
Defence
Range
Prayer
Magic
RuneCrafting
Construction
Health Points
Agility
Herblore
Thieving
Crafting
Fletching
Slayer
Hunter
Smithing
Mining
Fishing
Cooking
Firemaking
Woodcutting
Farming

Bugfix: Fixed smithing and Mining mixed up the levels
Bugfix: 404 Error makes stats reset (Username not found)

If your gonna use my source in your program don't be a cunt. Give me credit..

 

https://www.virustotal.com/en/file/a...is/1361837603/
RS 07 HIGHSCORES.zip - Jotti's malware scan

 

RS 07 HIGHSCORES Program.rar - Jotti's malware scan
https://www.virustotal.com/en/file/d...is/1363981173/

@Vice-Versa please approve please delete my old thread too

[WSewgwehgwehehhehe4]

Good job man

[Bernard]

Source: Virus total scan doesn't match.
Program: Approved

New virus scan for Source:
https://www.virustotal.com/en/file/7...3de0/analysis/

[lucasheer715]

dang, download skype and got ahold of freind to get the code for nothing

[iSkullcore]

Useful little tool.

[TrueBroStephano]

Downloading and testing.

[xGTx]

The only thing I cannot figure out is combat level. If anyone could figure that out can you give me a shout?

[Liteaku]

The only thing I cannot figure out is combat level. If anyone could figure that out can you give me a shout?

Combat level is easy to calculate. I'll post my source to it.

Dim Attack As Integer = Val(Attack_label.Text)
                Dim Strength As Integer = Val(Strength_label.Text)
                Dim Defense As Integer = Val(Defense_label.Text)
                Dim Hitpoints As Integer = Val(Hitpoint_label.Text)
                Dim Prayer As Integer = Val(Prayer_label.Text)
                Dim Ranged As Integer = Val(Ranged_label.Text)
                Dim Magic As Integer = Val(Magic_label.Text)

                Dim Defense_fin As Integer = Defense + Hitpoints
                Dim Attack_fin As Integer = Attack + Strength
                Dim Ranged_fin As Integer = 1.5 * Ranged
                Dim Magic_fin As Integer = 1.5 * Magic

                Attack_fin = Fix(1.3 * Attack_fin)
                Ranged_fin = Fix(1.3 * Ranged_fin)
                Magic_fin = Fix(1.3 * Magic_fin)

                If Prayer_label.Text.EndsWith("1") Or Prayer_label.Text.EndsWith("3") Or Prayer_label.Text.EndsWith("5") Or Prayer_label.Text.EndsWith("7") Or Prayer_label.Text.EndsWith("9") Then
                    Prayer -= 1
                End If

                Prayer = Prayer / 2

                Dim MeleeLevel As Integer = Fix(Defense_fin + Prayer + Attack_fin)
                Dim RangedLevel As Integer = Fix(Defense_fin + Prayer + Ranged_fin)
                Dim MagicLevel As Integer = Fix(Defense_fin + Prayer + Magic_fin)

                MeleeLevel = Fix(MeleeLevel / 4)
                RangedLevel = Fix(RangedLevel / 4)
                MagicLevel = Fix(MagicLevel / 4)

                Dim levels As String() = {MeleeLevel, RangedLevel, MagicLevel}

                CombatLevel_label.Text = levels.Max()

I had some problems getting the math correct on one long math string, so I divided it up. Edit it as needed. Hope that helps! @GavoTrav

[Related]

Combat level is easy to calculate. I'll post my source to it.

 ~ RIP ~

I had some problems getting the math correct on one long math string, so I divided it up. Edit it as needed. Hope that helps! @GavoTrav

Thanks for the share, I might be able to integrate this into the app. I'm a novice when it comes to programming so, I might post some errors .