[EO] NPC Say

[Golf]

**Eclipse NPC Say System**

I searched on forum and i can't find this system so i decided to make it 

NPC Say system allows you to see what is NPC saying every few seconds(adjustable)

it looks like this 


So lets start

**Client Side**

Serach for this in modText

```

Public Sub DrawNpcName(ByVal Index As Long)

```

In this sub search for

```

'Draw NPC name

Call DrawText(TexthDC, TextX, TextY, Name, color)

```

Replace it with

```

Dim SAY As String

SAY = Trim$(Npc(npcNum).AttackSay)

If Not SAY = vbNullString Then

If GetTickCount Mod 8000 < 4000 Then

Call DrawText(TexthDC, TextX, TextY, SAY, color)

Else

Call DrawText(TexthDC, TextX, TextY, Name, color)

End If

Else

Call DrawText(TexthDC, TextX, TextY, Name, color)

End if

```

Now launch the game , go to admin panel , NPC and then type something you want to (NPC)say in say textbox

Simple!

>! Just replace If GetTickCount Mod 8000 < 4000 Then with
>! If GetTickCount Mod 5000 < 2500 Then
>! or other

>! Problem 1
>! NPC is saying |||||||||||||||||||||||||||||||||||||||||||||||||||
>! Just type NPC name in say textbox

>! Idea - Golf
>! Made by Golf
>! Thanks to
>! Sherwin

[Zopto]

golf you getting better every day!!!!good job!!!

[Golf]

One Information!

Every NPC need to say something (if not NPC will say |||||||||||||||||||||||||||||||||||||||||||||||||||||||||| something like that)

I'm working on it 

[Golf]

> golf you getting better every day!!!!good job!!!

Thanks 

[Golf]

Logical Solution very simple for this

> One Information!
>
> Every NPC need to say something (if not NPC will say |||||||||||||||||||||||||||||||||||||||||||||||||||||||||| something like that)
>
> I'm working on it 

NPC name is Pirate

Just type Pirate in say textbox and nothing will be changed!

[hisherwin]

> One Information!
>
> Every NPC need to say something (if not NPC will say |||||||||||||||||||||||||||||||||||||||||||||||||||||||||| something like that)
>
> I'm working on it 

Easy Fixed

replace

```

' Show (Draw) name and NPC Say

Dim SAY As String

SAY = Trim$(Npc(npcNum).AttackSay)

'You can change time (on Forum)

If GetTickCount Mod 8000 < 4000 Then

Call DrawText(TexthDC, TextX, TextY, SAY, color)

Else

Call DrawText(TexthDC, TextX, TextY, Name, color)

End If

```

with

```

' Show (Draw) name and NPC Say

Dim SAY As String

If Not Npc(npcNum).AttackSay = vbNullstring Then

SAY = Trim$(Npc(npcNum).AttackSay)

Else

SAY = vbNullString

End If

'You can change time (on Forum)

If Not SAY = vbNullString Then

If GetTickCount Mod 8000 < 4000 Then

Call DrawText(TexthDC, TextX, TextY, SAY, color)

Else

Call DrawText(TexthDC, TextX, TextY, Name, color)

End If

End If

```

[hisherwin]

And you should try to use Server Side Sometimes.. it's good..

Than using Client Side.

[Golf]

> Easy Fixed
>
> replace
>
> ' Show (Draw) name and NPC Say
>
> Dim SAY As String
>
> SAY = Trim$(Npc(npcNum).AttackSay)
>
> 'You can change time (on Forum)
>
> If GetTickCount Mod 8000 < 4000 Then
>
> Call DrawText(TexthDC, TextX, TextY, SAY, color)
>
> Else
>
> Call DrawText(TexthDC, TextX, TextY, Name, color)
>
> End If
>
> with
>
> ' Show (Draw) name and NPC Say
>
> Dim SAY As String
>
> If Not Npc(npcNum).AttackSay = vbNullstring Then
>
> SAY = Trim$(Npc(npcNum).AttackSay)
>
> Else
>
> SAY = vbNullString
>
> End If
>
> 'You can change time (on Forum)
>
> If Not SAY = vbNullString Then
>
> If GetTickCount Mod 8000 < 4000 Then
>
> Call DrawText(TexthDC, TextX, TextY, SAY, color)
>
> Else
>
> Call DrawText(TexthDC, TextX, TextY, Name, color)
>
> End If
>
> End If

Tested not working

[Golf]

> Logical Solution very simple for this
>
> **Quote**
>
> [background=rgb(247, 247, 247)]One Information!
>
> Every NPC need to say something (if not NPC will say |||||||||||||||||||||||||||||||||||||||||||||||||||||||||| something like that)
>
> I'm working on it [/background]
>
> NPC name is Pirate
>
> Just type Pirate in say textbox and nothing will be changed!

Solution :/

[hisherwin]

I can fix that.. easy fix too.. but .. am i creating this thing? you create it lol

[Golf]

LOL you dont need to fix it

[hisherwin]

replace your entire tutorial with this

Serach for this in modText

```

Public Sub DrawNpcName(ByVal Index As Long)

```

In this sub search for

```

'Draw NPC name

Call DrawText(TexthDC, TextX, TextY, Name, color)

```

Add Below

```

Dim SAY As String

SAY = Trim$(Npc(npcNum).AttackSay)

If Not Say = vbNullString Then

If GetTickCount Mod 8000 < 4000 Then

Call DrawText(TexthDC, TextX, TextY - 15, SAY, color)

End If

End If

```

[zomb88]

lol sherwin

> replace your entire tutorial with this

[hisherwin]

> lol sherwin

I knew someone would laugh at that.. but that code i've done on it will work 90% … will fail 10%

[Golf]

Sherwin thanks now it works great! Added to tut