Show stats in bottem left corner

[skillzalot]

This is an updated version of Egons script to work in MS3.54. It's the one i use. To display you type / show and type / show and it goes away

Client side

First find

Code:

' Checking fps
                Case "/fps"
                    BFPS = Not BFPS

Under add

Code:

' Show stats
                Case "/show"
                Show = Not Show

Next find

Code:

Public BFPS As Boolean
    Public BLoc As Boolean

Under add

Code:

' Puts your stats on screen
    Public Show As Boolean

Find

Code:

Dim rec_pos As DXVBLib.RECT

Under add

Code:

Dim HP As String, MP As String, SP As String

Find

Code:

' draw FPS

Under add

Code:

' draw Stats
                If Show Then
                    HP = (GetPlayerVital(MyIndex, Vitals.HP) / GetPlayerMaxVital(MyIndex, Vitals.HP) * 100) & "%"
                    MP = (GetPlayerVital(MyIndex, Vitals.MP) / GetPlayerMaxVital(MyIndex, Vitals.MP) * 100) & "%"
                    SP = (GetPlayerVital(MyIndex, Vitals.SP) / GetPlayerMaxVital(MyIndex, Vitals.SP) * 100) & "%"
                    Call DrawText(TexthDC, (MAX_MAPY - 11) * PIC_Y, 350, Trim$("HP: " & HP), QBColor(Yellow))
                    Call DrawText(TexthDC, (MAX_MAPY - 11) * PIC_Y, 360, Trim$("MP: " & MP), QBColor(Yellow))
                    Call DrawText(TexthDC, (MAX_MAPY - 11) * PIC_Y, 370, Trim$("SP: " & SP), QBColor(Yellow))
                End If

Credits go to Egon for base script and if you want to me for updating. Just so you know this is my most advanced script yet