[EO 3.0] Character Customization - Hair & Hair color

[Daneta]

last thing how do i complie

[Zeno]

> last thing how do i complie

IMO basic VB6 questions are always off-topic. Oh well. Next time try google. 

To compile and save go File -> Make ***.exe

You can also compile without saving by pressing ctrl+f5\. This is used to check things and debug while working.

[Daneta]

ok

[Daneta]

when i post tjis in modgraphics

```

Public Sub DrawHair(ByVal x2 As Long, ByVal y2 As Long, ByVal Hair As Long, ByVal Anim As Long, ByVal spritetop As Long, ByVal tint As Long)

Dim rec As RECT

If Hair < 1 Or Hair > NumHairs Then Exit Sub

With rec

.Top = spritetop * (Tex_Hair(Hair).Height / 4)

.Bottom = .Top + (Tex_Hair(Hair).Height / 4)

.Left = Anim * (Tex_Hair(Hair).Width / 4)

.Right = .Left + (Tex_Hair(Hair).Width / 4)

End With

' Clip to screen

If y2 < 0 Then

With rec

.Top = .Top - y2

End With

y2 = 0

End If

If x2 < 0 Then

With rec

.Left = .Left - x2

End With

x2 = 0

End If

'RenderTexture Tex_Hair(Hair), ConvertMapX(x2), ConvertMapY(y2), rec.Left, rec.Top, rec.Right - rec.Left, rec.Bottom - rec.Top, rec.Width, rec.Height

RenderTexture Tex_Hair(Hair), ConvertMapX(x2), ConvertMapY(y2), rec.Left, rec.Top, rec.Right - rec.Left, rec.Bottom - rec.Top, rec.Right - rec.Left, rec.Bottom - rec.Top, tint

End Sub

```

and i try to complie

i get this error ambiguous name detected: draw hair

[Zeno]

> i get this error ambiguous name detected: draw hair

You most likely have two subs named Sub DrawHair.

**am·big·u·ous**

* (of language) Open to more than one interpretation; having a double meaning.
* **Unclear or inexact because a choice between alternatives has not been made.**

[Daneta]

now i get this

```

' connect

frmMain.Socket.RemoteHost = Options.IP

frmMain.Socket.RemotePort = Options.Port

```

were it says socket.remotehost is were i cet the complie error it says method or data member not found why is it because of the vb6 im using

[Daneta]

heres the hole thing to the code

```

Sub TcpInit()

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

Set PlayerBuffer = New clsBuffer

' connect

frmMain.Socket.RemoteHost = Options.IP

frmMain.Socket.RemotePort = Options.Port

' Error handler

Exit Sub

errorhandler:

HandleError "TcpInit", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub

```

[barreytor]

probably you deleted the socket object. Also, that is completely off-topic.

[DarkDino]

I add this in EFF and :S i have a problem with NPC D:!, when i spawn a NPC in a map! the fps drop to 22 - 32 :(!.

[barreytor]

I'm sorry, I don't know how can I help you with that, mainly because this tutorial was only tested with EO.

In any case, you should check if it was working properly before, and see where you added the hair-drawing code, because what you say seems to show that you added something into some NPC thing.

I'm sorry I can't help you.

[Zeno]

> I add this in EFF and :S i have a problem with NPC D:!, when i spawn a NPC in a map! the fps drop to 22 - 32 :(!.

I have something similar to this in my EFF source with ten extra layers instead of one. After months I have yet to see any performance drop. The code in this tutorial looks well-done to me with no inefficient loops, although I've never used it myself. This feature may have instigated poor performance, but is probably not the cause. Your problem is probably with another tutorial you've added.

[DarkDino]

You are right zeno, sorry for my post D: is other system :/.

Nice tutorial!.

[IFX]

I have to say, You did an impressive job. Really. This is one of the best tutorials ever. really useful. Thanks.

[Mohenjo Daro]

> I have to say, You did an impressive job. Really. This is one of the best tutorials ever. really useful. Thanks.

IFX, what out if you're necro posting, it's still against the rules

[Daneta]

i look back at my replys from 2 years ago…............. oh God..... i was a retard XDDDDDD

[joaovitor1819]

how to work on sprites vx ?

3x4