Print Page | Close Window

Visual Stats

Printed From: Mirage Source
Category: Tutorials
Forum Name: Temporary Archive (Read Only)
Forum Discription: Temporary 3.0.3 archive tutorials, will be deleted when converted.
URL: http://ms.shannaracorp.com/backup-forums/forum_posts.asp?TID=225
Printed Date: 20 December 2006 at 5:53pm
Software Version: Web Wiz Forums 8.01 - http://www.webwizforums.com


Topic: Visual Stats
Posted By: Sync
Subject: Visual Stats
Date Posted: 11 February 2006 at 3:40pm
Here is my Visual Stats code.

In modClientTCP

go to
Sub HandleData


Scroll down to
    ' :::::::::::::::::::::::::
    ' :: Player stats packet ::
    ' :::::::::::::::::::::::::


Replace

    If LCase(Parse(0)) = "playerstats" Then
        Call SetPlayerSTR(MyIndex, Val(Parse(1)))
        Call SetPlayerDEF(MyIndex, Val(Parse(2)))
        Call SetPlayerSPEED(MyIndex, Val(Parse(3)))
        Call SetPlayerMAGI(MyIndex, Val(Parse(4)))
        Exit Sub
    End If


With

    If LCase(Parse(0)) = "playerstats" Then
        Call SetPlayerSTR(MyIndex, Val(Parse(1)))
        frmMirage.lblSTR.Caption = Player(MyIndex).STR
        Call SetPlayerDEF(MyIndex, Val(Parse(2)))
        frmMirage.lblDEF.Caption = Player(MyIndex).DEF
        Call SetPlayerSPEED(MyIndex, Val(Parse(3)))
        frmMirage.lblSPEED.Caption = Player(MyIndex).SPEED
        Call SetPlayerMAGI(MyIndex, Val(Parse(4)))
        frmMirage.lblMAGI.Caption = Player(MyIndex).MAGI
        Call SetPlayerLevel(MyIndex, Val(Parse(4)))
        frmMirage.lblLevel.Caption = Player(MyIndex).Level
        Call SetPlayerExp(MyIndex, Val(Parse(4)))
        frmMirage.lblEXP.Caption = Player(MyIndex).Exp
        Exit Sub
    End If


And then go to frmMirage and make some labels and don't name them and set their captions to be STR, DEF, Speed, Magi, Level, and Exp.
Make more labels except this time give them a null caption and Name them lblSTR, lblDEF, lblSPEED, lblMAGI, lblLevel, lblExp. and then put those where you want them to be and you're done!



Print Page | Close Window

Bulletin Board Software by Web Wiz Forums version 8.01 - http://www.webwizforums.com
Copyright ©2001-2006 Web Wiz Guide - http://www.webwizguide.info