[EO] NPC Say

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 :rolleyes:

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

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

One Information!

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

I’m working on it :)

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

Thanks :)

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!

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

And you should try to use Server Side Sometimes… it’s good…

Than using Client Side.

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

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 😕

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

LOL you dont need to fix it

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

lol sherwin

replace your entire tutorial with this

lol sherwin

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

Sherwin thanks now it works great! Added to tut

:)

Log in to reply