Golf

Good Job!

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

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!

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

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

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

Nice 

Thanks now works great  But i need to make new maps (only 3) 

Problem is in server

E.O 2.0

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

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

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 

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

I will try to do that , but i like this 

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. 

Ok

Cool 

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

Thank you! The best tutorial ever 

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

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