[[EO]Show Player HP (Target)]

**_______________Nothing____________**

[[EO] Images by player names (base for further specific coding)]

Good Job!

[Editing GUI]

Do you have VB6\. Just put the buttons everywhere you want

[[EO] NPC Say]

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!

[[EO] NPC Say]

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

Thanks 

[[EO] NPC Say]

One Information!

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

I'm working on it 

[[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 


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

[Delete pls]

Nice 

[[EO 2.3] Animation Layers]

Thanks now works great 

But i need to make new maps (only 3) 

[[EO 2.3] Animation Layers]

Problem is in server

[[EO 2.3] Animation Layers]

E.O 2.0

[[EO 2.3] Animation Layers]

Problem```

ResourceCache(mapNum).ResourceData(Resource_Count).cur_health = Resource(Map(mapNum).Tile(x, y).Data1).health

```not working 

[[EO] Change Player Level (Server)]

> Simple and logical. Nice, I suppose.
>
> P.s You liked your own topic. Not cool.

Thanks , and i dislike it 

[[EO] Change Player Level (Server)]

Hi all . This tut allows you to **Change Player** level from server 

**Server Side**

Go to Menu Editor (**CTRL+E**)

Go down with enter.In the caption type Change Level and in the name put **mnuLevel**

Go to **frmServer** and add this at the bottom

```

Private Sub mnuLevel_Click()

Dim Level As Integer

Dim Player_Level As Integer

Level = InputBox("Level 1-100:", "Level")

Dim Name As String

Name = frmServer.lvwInfo.SelectedItem.SubItems(3)

If Not Name = "Not Playing" Then

Player_Level = GetPlayerLevel(FindPlayer(Name))

' If you want to change points please pm me 

Call SetPlayerLevel(FindPlayer(Name), Level)

Call SendPlayerData(FindPlayer(Name))

Call PlayerMsg(FindPlayer(Name), "Administrator changed your level from " & Player_Level & " to " & Level, BrightCyan)

End If

End Sub

```

So , i hope you like it

It works for me and my friends 

[Need Short free work]

i want to change my eo.2.0 to load png images all who wants to help me please pm me

[Send Msg (Server)]

I will try to do that , but i like this 

[Send Msg (Server)]

Boring 

So this tut allows you to send msg to other players from server

**Only Server Side**

Open frmServer and go to Menu Editor(Ctrl + E)

Now go down with enter!

Add new textbox and name it textmsg

Put this in the caption : "Send Msg"

Put this in the name: "mnuMsg"

Click ok and search for Private Sub mnuKick_Click()

Above add

```

Sub mnuMsg_click()

Dim Name As String

Name = frmServer.lvwInfo.SelectedItem.SubItems(3)

If Not Name = "Not Playing" Then

Call SendPlayerData(FindPlayer(Name))

Call PlayerMsg(FindPlayer(Name), textmsg.Text, BrightGreen)

End If

End Sub

```
To send msg just type something in textbox and right click on player then Send Msg

Thats all. 

[Need Tilesets]

Ok

[Chara Maker VX]

Cool 

[Need Tilesets]

Hi I'm looking for new tilesets ca someone give me the link? TY:)

[[EO 2 & 3]Target-Details Tutorial]

Thank you! The best tutorial ever 

[Resize Screen]

Thank you. I will try to do a better tutorial soon

[Resize Screen]

Hi everyone I made a small but I think useful tutorial. Allows you to change the size of your screen

**EO 2.0 & 3.0**

**Only Client Side**

Go to **picOptions** and add one label and one **scrollbar**

name it l**blScreen** and **sclScreen**

Now click on **sclScreen** and paste this

> If sclScreen.Value = 0 Then
>
> End If
>
> If sclScreen.Value = 1 Then
>
> lblScreen.Caption = "Bigger"
>
> picScreen.height = 394
>
> picScreen.width = 490
>
> picBank.height = 394
>
> picBank.width = 490
>
> picTrade.height = 394
>
> picTrade.width = 490
>
> End If
>
> If sclScreen.Value = 2 Then
>
> lblScreen.Caption = "Big"
>
> picScreen.height = 404
>
> picScreen.width = 500
>
> picBank.height = 404
>
> picBank.width = 500
>
> picTrade.height = 404
>
> picTrade.width = 500
>
> End If
>
> If sclScreen.Value = 3 Then
>
> lblScreen.Caption = "Biggest"
>
> picScreen.height = 414
>
> picScreen.width = 510
>
> picBank.height = 414
>
> picBank.width = 510
>
> picTrade.height = 414
>
> picTrade.width = 510
>
> End If
>
> If sclScreen.Value = 0 Then
>
> lblScreen.Caption = "Normal"
>
> picScreen.height = 384
>
> picScreen.width = 480
>
> picBank.height = 384
>
> picBank.width = 480
>
> picTrade.height = 384
>
> picTrade.width = 480
>
> End If

Go to **frmMain.Load** and paste this

> sclScreen.Max = 3
>
> sclScreen.Min = 0

And that's all Thanks 

Small Tutorial with easy codes