Valek

IF you are actually afraid for your safety you can continue to file "useless" reports with the police, and then when something actually happens and you can prove that its her doing this… maybe by setting up a video camera or something. The police will be much more willing to assist having had prior reports from you about this individual. Its not much but at least you can feel safe that if she cuts your head off and eats it. They will come for her :)

@Robin: > CAPS LOCK IS CRUISE CONTROL FOR COOL > > portforward.com There is a great number of port forwarding guides found here: http://lmgtfy.com/?q=Port+Forwarding+Guide

@Robin: > classes.ini oh… Duh. :) Thanks.

I was wondering where in the source code I would look at to begin adding new classes and setting it to display multiple sprite choices (Male/Female) I was looking for a tutorial on this process but haven't been able to locate one.

@Chuchoide: > That colors are for the Color Access. > Anyways, thanks for the edited code. Yeah, but it appears that the text color of the "level: ##" appears to be the same as the color of the players access level. I was just wondering if it was possible to change the color that it displays as.

@adr990: > This one will work with EO CE(1.2.0): > > ``` > Public Sub DrawPlayerName(ByVal Index As Long) > Dim TextA As Long > Dim TextB As Long > Dim TextX As Long > Dim TextY As Long > Dim color As Long > Dim Name As String > > ' Check access level > If GetPlayerPK(Index) = NO Then > > Select Case GetPlayerAccess(Index) > Case 0 > color = RGB(255, 96, 0) > Case 1 > color = QBColor(DarkGrey) > Case 2 > color = QBColor(Cyan) > Case 3 > color = QBColor(BrightGreen) > Case 4 > color = QBColor(Yellow) > End Select > > Else > color = QBColor(BrightRed) > End If > > Name = Trim$(Player(Index).Name) > If GetPlayerSprite(Index) < 1 Or GetPlayerSprite(Index) > NumCharacters Then > TextA = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(GetPlayerName(Index)))) > TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 5 > TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(Name))) > TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - 16 > Else > ' Determine location for text > TextA = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(GetPlayerName(Index)))) > TextB = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 5 > TextX = ConvertMapX(GetPlayerX(Index) * PIC_X) + Player(Index).XOffset + (PIC_X \ 2) - getWidth(TexthDC, (Trim$(GetPlayerName(Index)))) > TextY = ConvertMapY(GetPlayerY(Index) * PIC_Y) + Player(Index).YOffset - (DDSD_Character(GetPlayerSprite(Index)).lHeight / 4) + 16 > End If > > ' Draw name > Call DrawText(TexthDC, TextA, TextB, "Level: " & GetPlayerLevel(Index), color) > Call DrawText(TexthDC, TextX, TextY, GetPlayerName(Index), color) > > End Sub > ``` > ~Adr990 is it possible to change the color? I assume it has to do this with the color cases? And it looks like the color is different based on player access level. ``` color = RGB(255, 96, 0) Case 1 color = QBColor(DarkGrey) Case 2 color = QBColor(Cyan) Case 3 color = QBColor(BrightGreen) Case 4 color = QBColor(Yellow) ```

I used the code you provided, I had to modify it slightly but it definitely did the trick, thank you very much.

@Ertzel: > Its just text based display, nothing hard to do. > > **- Server Side -** > Replace - > ``` > Sub UpdatePartyData(ByVal Leader As Long, ByVal Member As Long) > Dim buffer As clsBuffer > Dim LeaderName As String, MemberName As String, LeaderLv As String, MemberLv As String > > LeaderName = GetPlayerName(Leader) > LeaderLv = GetPlayerLevel(Leader) > MemberName = GetPlayerName(Member) > MemberLv = GetPlayerLevel(Member) > > Set buffer = New clsBuffer > > buffer.WriteLong SSendPartyMembers > buffer.WriteString LeaderName > buffer.WriteString LeaderLv > buffer.WriteString MemberName > buffer.WriteString MemberLv > > 'send to member > SendDataTo Member, buffer.ToArray() > Set buffer = Nothing > > Set buffer = New clsBuffer > buffer.WriteLong SSendPartyMembers > > buffer.WriteString LeaderName > buffer.WriteString LeaderLv > buffer.WriteString MemberName > buffer.WriteString MemberLv > 'send to leader > SendDataTo Leader, buffer.ToArray() > > Set buffer = Nothing > End Sub > > Sub PartyEnd(ByVal Leader As Long, ByVal Member As Long) > Dim buffer As clsBuffer > > Set buffer = New clsBuffer > > buffer.WriteLong SPartyEnd > > 'send to leader > SendDataTo Leader, buffer.ToArray() > > Set buffer = Nothing > > Set buffer = New clsBuffer > > buffer.WriteLong SPartyEnd > 'send to member > SendDataTo Member, buffer.ToArray() > > Set buffer = Nothing > End Sub > ```with > ``` > Sub UpdatePartyData(ByVal Leader As Long, ByVal member As Long) > Dim Buffer As clsBuffer > Dim LeaderName As String, MemberName As String, LeaderHp As String, MemberHp As String > > LeaderName = GetPlayerName(Leader) > LeaderHp = GetPlayerVital(Leader, Vitals.HP) & "/" & GetPlayerMaxVital(Leader, Vitals.HP) > MemberName = GetPlayerName(member) > MemberHp = GetPlayerVital(member, Vitals.HP) & "/" & GetPlayerMaxVital(member, Vitals.HP) > > Set Buffer = New clsBuffer > > Buffer.WriteLong SSendPartyMembers > Buffer.WriteString LeaderName > Buffer.WriteString LeaderHp > Buffer.WriteString MemberName > Buffer.WriteString MemberHp > > 'send to member > SendDataTo member, Buffer.ToArray() > Set Buffer = Nothing > > Set Buffer = New clsBuffer > Buffer.WriteLong SSendPartyMembers > > Buffer.WriteString LeaderName > Buffer.WriteString LeaderHp > Buffer.WriteString MemberName > Buffer.WriteString MemberHp > 'send to leader > SendDataTo Leader, Buffer.ToArray() > > Set Buffer = Nothing > End Sub > ``` > **- Client Side -** > Replace - > ``` > Private Sub HandleSendPartyMembers(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) > Dim LeaderName As String, MemberName As String, LeaderLv As String, MemberLv As String > Dim buffer As clsBuffer > > Set buffer = New clsBuffer > buffer.WriteBytes Data() > > LeaderName = buffer.ReadString > LeaderLv = buffer.ReadString > MemberName = buffer.ReadString > MemberLv = buffer.ReadString > > With frmMainGame > .lblLeader.Caption = LeaderName & ", Lv: " & LeaderLv > .lblMember.Caption = MemberName & ", Lv: " & MemberLv > .imgPartyData.Left = 568 > .imgPartyData.Top = 427 > > .txtMyChat.width = 349 > .txtChat.width = 349 > .imgPartyData.Visible = True > End With > > Set buffer = Nothing > End Sub > > Private Sub HandlePartyEnd(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) > Dim buffer As clsBuffer > > Set buffer = New clsBuffer > buffer.WriteBytes Data() > > With frmMainGame > .imgPartyData.Visible = False > .txtMyChat.width = 478 > .txtChat.width = 478 > End With > > Set buffer = Nothing > End Sub > ```with > ``` > Private Sub HandleSendPartyMembers(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) > Dim LeaderName As String, MemberName As String, LeaderHp As String, MemberHp As String > Dim Buffer As clsBuffer > > Set Buffer = New clsBuffer > Buffer.WriteBytes Data() > > LeaderName = Buffer.ReadString > LeaderHp = Buffer.ReadString > MemberName = Buffer.ReadString > MemberHp = Buffer.ReadString > > With frmMainGame > .lblLeader.Caption = LeaderName & ", Hp: " & LeaderHp > .lblMember.Caption = MemberName & ", Hp: " & MemberHp > .imgPartyData.Visible = True > End With > > Set Buffer = Nothing > End Sub > ``` I am still learning how to use VB6, its obviously a pretty powerful tool. I like to think I learn pretty fast but the learning curve here is pretty crazy, especially considering how many talented people are floating around the forums. anyways, thanks for posting that. I managed to get it to work, thank you.

@adr990: > I used this: > > 'Position bar - 225 = Below Char, 154 = Above Name, 172 Between Name and Char > > And worked fine for me.. All thought, ofcourse, a name between the Sprite and Name doesn't look good haha IMO. > > Just try it out to check. (Unless you changed your window size, this should work in EO CE(1.2.0) ) You'll have to be more specific with me. My code looks like this, what does yours look like? >! ``` ' Calculate the X coordinate to place the name X = MapNpc(Index).X * PIC_X + MapNpc(Index).XOffset If Sprite < 1 Or Sprite > NumCharacters Then y = MapNpc(Index).y * PIC_Y + MapNpc(Index).YOffset - 50 Else y = MapNpc(Index).y * PIC_Y + MapNpc(Index).YOffset - (DDSD_Character(Sprite).lHeight) + 50 End If ```

@Ertzel: > This works great, thx for making this tutorial. I did everything you did just changed it to showing the other members Health instead of Level. Would be nice if you explained how you made it so it displays Health instead of level.. Might be helpful to others :)

@Athagekin: > The positions are based on pixel units. Your offsets are probably too high or too low. Did you modify any of the code that was shown in the tutorial? No I didn't modify any of it. I just followed it step by step. The health bar is displaying, however when I change the coordinates and recompile, it doesn't move at all. Not even a pixel in either direction. So its confusing to me. Even if my offsets were too high or too low I should be able to compensate by modifying the coords.

**I am having a bit of trouble changing the position of the health bar on my NPC's.. this is what the HP bar looks like on the NPC.** >!  **This is what my code looks like.** >! ``` ' Calculate the X coordinate to place the name X = MapNpc(Index).X * PIC_X + MapNpc(Index).XOffset If Sprite < 1 Or Sprite > NumCharacters Then y = MapNpc(Index).y * PIC_Y + MapNpc(Index).YOffset - 50 Else y = MapNpc(Index).y * PIC_Y + MapNpc(Index).YOffset - (DDSD_Character(Sprite).lHeight) + 50 End If ``` **It says in the tutorial that I can move the placement by changing the coordinates displaced in these lines of code, however I am have changing them and haven't really had any luck moving it at all. Any help would be great!**

@Chuchoide: > u have a sub in a sub. u replaced BltNpc with BltNpcHP. U needa go to the End Sub command of BltNpc, press enter, and then paste the BltNpcHP sub. > > Like: > > Public Sub BltNpc > -Code- > End Sub > > Public Sub BltNpcHP > -Code- > End Sub I got it working, thank you for the extra help! MUCH appreciated.

I'm a little bit stuck on this step. Here is the error I am getting: >!  My Gut says that the error "Expected End Sub" means that it wants me to place and End Sub for that specific line? However I don't want to do anything without clarification until I become confident in VB6 :)

@Robin: > Just make your own formula. Between you and me, I don't have dyscalculia and I still can't write forumla's. I am reading a few VB6 E-books *flips to math based pages*