HP MP EXP em % ao passar mouse mostra a quantidade

por -=(Ð£$TRØY£R$)=- Qui 24 Jan 2013, 06:34

Client~side Procure por:

Código:: ' :::::::::::::::::::::: ' :: Player hp packet :: ' :::::::::::::::::::::: If Parse(0) = "playerhp" Then Player(MyIndex).MaxHP = Val(Parse(1)) Call SetPlayerHP(MyIndex, Val(Parse(2))) If GetPlayerMaxHP(MyIndex) > 0 Then frmMirage.shpHP.FillColor = RGB(208, 11, 0) frmMirage.shpHP.Width = (((GetPlayerHP(MyIndex) / frmMirage.lblHP.Width) / (GetPlayerMaxHP(MyIndex) / frmMirage.lblHP.Width)) * frmMirage.lblHP.Width) frmMirage.lblHP.Caption = GetPlayerHP(MyIndex) & " / " & GetPlayerMaxHP(MyIndex) End If Exit Sub End If

Altere tudo para isso:

Código:: ' :::::::::::::::::::::: ' :: Player hp packet :: ' :::::::::::::::::::::: If Parse(0) = "playerhp" Then Player(MyIndex).MaxHP = Val(Parse(1)) Call SetPlayerHP(MyIndex, Val(Parse(2))) If GetPlayerMaxHP(MyIndex) > 0 Then frmMirage.shpHP.FillColor = RGB(208, 11, 0) frmMirage.shpHP.Width = (((GetPlayerHP(MyIndex) / frmMirage.lblHP.Width) / (GetPlayerMaxHP(MyIndex) / frmMirage.lblHP.Width)) * frmMirage.lblHP.Width) frmMirage.lblHP.Caption = Int(GetPlayerHP(MyIndex) / GetPlayerMaxHP(MyIndex) * 100) & "%" frmMirage.lblHP.ToolTipText = GetPlayerHP(MyIndex) & " / " & GetPlayerMaxHP(MyIndex) End If Exit Sub End If

Agora procure:

Código:: ' :::::::::::::::::::::: ' :: Player mp packet :: ' :::::::::::::::::::::: If Parse(0) = "playermp" Then Player(MyIndex).MaxMP = Val(Parse(1)) Call SetPlayerMP(MyIndex, Val(Parse(2))) If GetPlayerMaxMP(MyIndex) > 0 Then frmMirage.shpMP.FillColor = RGB(208, 11, 0) frmMirage.shpMP.Width = (((GetPlayerMP(MyIndex) / frmMirage.lblMP.Width) / (GetPlayerMaxMP(MyIndex) / frmMirage.lblMP.Width)) * frmMirage.lblMP.Width) frmMirage.lblMP.Caption = GetPlayerMP(MyIndex) & " / " & GetPlayerMaxMP(MyIndex) End If Exit Sub End If

Altere tudo por:

Código:: ' :::::::::::::::::::::: ' :: Player mp packet :: ' :::::::::::::::::::::: If Parse(0) = "playermp" Then Player(MyIndex).MaxMP = Val(Parse(1)) Call SetPlayerMP(MyIndex, Val(Parse(2))) If GetPlayerMaxMP(MyIndex) > 0 Then frmMirage.shpMP.FillColor = RGB(208, 11, 0) frmMirage.shpMP.Width = (((GetPlayerMP(MyIndex) / frmMirage.lblMP.Width) / (GetPlayerMaxMP(MyIndex) / frmMirage.lblMP.Width)) * frmMirage.lblMP.Width) frmMirage.lblMP.Caption = Int(GetPlayerMP(MyIndex) / GetPlayerMaxMP(MyIndex) * 100) & "%" frmMirage.lblMP.ToolTipText = GetPlayerMP(MyIndex) & " / " & GetPlayerMaxMP(MyIndex) End If Exit Sub End If

Procure essa linha:

Código:: frmMirage.lblEXP.Caption =

Altere a linha intera por:

Código:: frmMirage.lblEXP.Caption = Int(Val(Parse(6)) / Val(Parse(5)) * 100) & "%" frmMirage.lblEXP.ToolTipText = Val(Parse(6)) & " / " & Val(Parse(5))

Ali em:

Código:
frmMirage.lblEXP.Caption =

Eu coloquei metade da linha pq dependendo da engine muda uma parte no elysium é diferente da EEB BR mas o começo é = por tanto é só altera a linha intera