iLeGiTiMx

Okay :) Is it possible to check if a npc got killed without a quest? I let the event spawn a npc, and want to check if it got killed ^^

Thank you :) Do you know, how to let the own characer move a route? I know how to let an event move, but the own char?

Thank you, but the chat is always focused.. so with this check "if not inchat" it won't work, and without the chat, it spamms thr numbers in chat. Is it possible to "unfocus" the chat while i'm not typing in chat? Thanks :)

Hey. Is it possible to use the keys from 1-9 instead of doubleclick for skills? Where in the code do I need to change it? I´m using Dragon eclipse source, so eo 2.3 i guess. But if you can help me with this in Skywire, it would be nice too. Thank you :)

When do you think 1.8 will come out? :) But another problem with your engine. The server starts correctly but i can´t connect to it with the client. The ip is 127.0.0.1 (local) and the port is 7001 in server and client. I can do what I wand, but i don´t see the version in the loginscreen and i can´t register or login. "Connected, Sending login information" is the message. After this it keeps there until i exit the process :s

Fixed :) I forgot a word in the filepath.

Hey, i hope somebody can help me out :D Everytime when i die, i get this servercrash: Run-time error '13': Type mismatch In code: ``` Public Function ValCheckPoint(ByVal index As Long) As Boolean If GetVar(App.path & "\Accounts\checkpoints.ini", "*SERVEROPTIONS*", "" & GetPlayerName(index)) = 1 Then

Okay. Would be nice. But istn´t there a way to just expand the game window without stretching? I only want to see more of the world, and not stretch it ^^ Thanks

Is it possible to make the cursor above anything? I want to add a normal VB6 button, and make it usable for users. I can click it, but i don´t see the cursor. The Button is in the Gamewindow. Any help? :S

Sorry for this dumb question, but is it possible to make the Window bigger? Tried to change ScreenWidth = 800 ScreenHeight = 600 But this doesn´t seems to take affect. Can´t be this hard, can it? :o Thank you :) And nice engine :P

Yes i have this in modEnumerations in the serverproject. When i rename the func "HandleSendAuctions" to another existing, it´s gonna called.. It´s so weird..

Hey. I have a HandleDataSub from Rob ``` HandleDataSub(SSendAuctions) = GetAddress(AddressOf HandleSendAuctions) ``` ``` Private Sub HandleSendAuctions(ByVal Index As Long, ByRef data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim buffer As clsBuffer Dim i As Long 'Clear the List of Auctions on the Main Page frmMain.listAuctions.Clear Set buffer = New clsBuffer buffer.WriteBytes data() For i = 1 To MAX_AUCTIONS Auction(i).ItemNum = buffer.ReadLong Auction(i).Amount = buffer.ReadLong Auction(i).Owner = buffer.ReadString Auction(i).Current_Bid = buffer.ReadLong Auction(i).Current_Bid_Owner = buffer.ReadString Auction(i).Buyout_Bid = buffer.ReadLong Auction(i).Currency_ItemNum = buffer.ReadLong Auction(i).MinuteCounter = buffer.ReadLong Auction(i).Status = buffer.ReadByte Auction(i).Claimed = buffer.ReadByte 'Add running items to the list If Auction(i).Status = Auction_Running Then If Auction(i).ItemNum > 0 Then frmMain.listAuctions.AddItem Trim(Item(Auction(i).ItemNum).Name) & " [Current Bid: " & Auction(i).Current_Bid & " " & Trim(Item(Auction(i).Currency_ItemNum).Name) & "] - [Buyout: " & Auction(i).Buyout_Bid & "] " & Trim(Item(Auction(i).Currency_ItemNum).Name) Else frmMain.listAuctions.AddItem "Available Auction Slot" End If End If 'Add successful items to the list If Auction(i).Status = Auction_Successful Then If Auction(i).ItemNum > 0 Then frmMain.listAuctions.AddItem "Ended Successfully - " & Trim(Item(Auction(i).ItemNum).Name) & " [Current Bid: " & Auction(i).Current_Bid & " " & Trim(Item(Auction(i).Currency_ItemNum).Name) & "]" Else frmMain.listAuctions.AddItem "Available Auction Slot" End If End If 'Add expired items to the list If Auction(i).Status = Auction_Expired Then If Auction(i).ItemNum > 0 Then frmMain.listAuctions.AddItem "Expired - " & Trim(Item(Auction(i).ItemNum).Name) & " [Current Bid: " & Auction(i).Current_Bid & " " & Trim(Item(Auction(i).Currency_ItemNum).Name) & "]" Else frmMain.listAuctions.AddItem "Available Auction Slot" End If End If Next i End Sub ``` The HandleDataSub is called at login, I tested it with a Breakpoint. But the Function HandleSendAuctions not. In another vb project it works like this. When i rename the HandleSendAuctions to something existing, it works. In modEnumerations i have "SSendAuctions" so this is not the problem. I don´t know where the mistake is. It´s exactly like another project. Thank you :) Best regards, TGSLp

Hey. The movementspeed trick worked ^^ thanks. Is it possible to change the characters and npcs to 2 tiles instead of one? I used another engine and only have much character tilesets with 2 tiles per character. I thid engine it's only one. How to change it via code to 2? Thank you :)

Hey. Am i the only or have you lagging NPC´s as well? They are teleporting on the map. I´m connected with localhost so thats not the problem..

Is there a pet system?

Hey man. How to open the Peteditor? There is no window or command for this, but there is a pet summon item, which is working fine. And how to define which pet it should spawn?  In other engines, when you select "summon" you can type in a id. Thanks =)

Did it.. finally :) 

Okay i deleted anything except ``` Public Sub DrawTargetDetails() Dim I As Long, X As Long, Y As Long, npcNum As Long Dim Width As Long, Height As Long, SpriteNum As Long Dim MapNpcNum As Long Dim Name As String Dim HpBar As String ' render the window Width = 256 Height = 64 ' render the window on screen X = 300 Y = 64 ' render the details RenderTexture Tex_GUI(24), X, Y, 0, 0, Width, Height, Width, Height npcNum = MapNpc(myTarget).num ' exists? If npcNum > 0 Then Name = Trim$(NPC(npcNum).Name) HpBar = Trim$(MapNpc(npcNum).Vital(HP)) ' show the information RenderText Font_Default, Name, X + 10, Y + 4, Yellow RenderText Font_Default, MapNpc(myTarget).Vital(HP) & "/" & NPC(MapNpc(myTarget).num).HP, X + 66, Y + 15, Yellow RenderText Font_Default, NPC(npcNum).Level, X + 150, Y + 4, Yellow End If End Sub ``` ``` Tex_GUI(24) ``` 24 is the Texture number right? So where do i need to declare it? :c Sorry..

Yeah i know this, but i created a new because the Targetpicture should be target, and this here should be detail.png. Tried this: Tex_GUI.filepath = App.Path & "\Pack\grafik\misc\select.png" Tex_GUI.Texture = NumTextures LoadTexture Tex_GUI But this doesn´t work. I think its because the array(?). The numbers from 12 to 0: ``` NumTextures = NumTextures + 12 ReDim Preserve gTexture(NumTextures) Tex_Shadow.filepath = App.Path & "\Pack\grafik\misc\shadow.png" Tex_Shadow.Texture = NumTextures - 11 LoadTexture Tex_Shadow Tex_Fade.filepath = App.Path & "\Pack\grafik\misc\fader.png" Tex_Fade.Texture = NumTextures - 10 LoadTexture Tex_Fade Tex_ChatBubble.filepath = App.Path & "\Pack\grafik\misc\chatbubble.png" Tex_ChatBubble.Texture = NumTextures - 9 LoadTexture Tex_ChatBubble Tex_Weather.filepath = App.Path & "\Pack\grafik\misc\weather.png" Tex_Weather.Texture = NumTextures - 8 LoadTexture Tex_Weather Tex_White.filepath = App.Path & "\Pack\grafik\misc\white.png" Tex_White.Texture = NumTextures - 7 LoadTexture Tex_White Tex_Door.filepath = App.Path & "\Pack\grafik\misc\door.png" Tex_Door.Texture = NumTextures - 6 LoadTexture Tex_Door Tex_Direction.filepath = App.Path & "\Pack\grafik\misc\direction.png" Tex_Direction.Texture = NumTextures - 5 LoadTexture Tex_Direction Tex_Target.filepath = App.Path & "\Pack\grafik\misc\target.png" Tex_Target.Texture = NumTextures - 4 LoadTexture Tex_Target Tex_Misc.filepath = App.Path & "\Pack\grafik\misc\misc.png" Tex_Misc.Texture = NumTextures - 3 LoadTexture Tex_Misc Tex_Blood.filepath = App.Path & "\Pack\grafik\misc\blood.png" Tex_Blood.Texture = NumTextures - 2 LoadTexture Tex_Blood Tex_Bars.filepath = App.Path & "\Pack\grafik\misc\bars.png" Tex_Bars.Texture = NumTextures - 1 LoadTexture Tex_Bars Tex_Selection.filepath = App.Path & "\Pack\grafik\misc\select.png" Tex_Selection.Texture = NumTextures LoadTexture Tex_Selection Tex_GUI.filepath = App.Path & "\Pack\grafik\misc\select.png" Tex_GUI.Texture = NumTextures LoadTexture Tex_GUI ``` Can i change 12 to 13 and set Tex_Selection to -1 then ? Also with ``` RenderTexture Tex_Target, x, y, 0, 0, Width, Height, Width, Height ``` i can´t see the image :D

And what if i want to use another texture than the Tex_Target? :)

@'Growlith1223': > Tex_GUI is not an array. from what you have said. Yeah i took the (24) away and got no error then. But i didn't see the picture then..

Hello.. Can someone tell me what exactly what **Tex_GUI(24)** in ``` RenderTexture Tex_GUI(24), x, y, 0, 0, Width, Height, Width, Height ``` is? I always get this error when i click a npc:  Without this line i see the details but not the gui for this. I created the Texture like this: ``` Public Tex_GUI As DX8TextureRec ``` ``` Private Sub LoadTextures() NumTextures = NumTextures + 12 ReDim Preserve gTexture(NumTextures) Tex_Shadow.filepath = App.Path & "\Pack\grafik\misc\shadow.png" Tex_Shadow.Texture = NumTextures - 11 LoadTexture Tex_Shadow Tex_Fade.filepath = App.Path & "\Pack\grafik\misc\fader.png" Tex_Fade.Texture = NumTextures - 10 LoadTexture Tex_Fade Tex_ChatBubble.filepath = App.Path & "\Pack\grafik\misc\chatbubble.png" Tex_ChatBubble.Texture = NumTextures - 9 LoadTexture Tex_ChatBubble Tex_Weather.filepath = App.Path & "\Pack\grafik\misc\weather.png" Tex_Weather.Texture = NumTextures - 8 LoadTexture Tex_Weather Tex_White.filepath = App.Path & "\Pack\grafik\misc\white.png" Tex_White.Texture = NumTextures - 7 LoadTexture Tex_White Tex_Door.filepath = App.Path & "\Pack\grafik\misc\door.png" Tex_Door.Texture = NumTextures - 6 LoadTexture Tex_Door Tex_Direction.filepath = App.Path & "\Pack\grafik\misc\direction.png" Tex_Direction.Texture = NumTextures - 5 LoadTexture Tex_Direction Tex_Target.filepath = App.Path & "\Pack\grafik\misc\target.png" Tex_Target.Texture = NumTextures - 4 LoadTexture Tex_Target Tex_Misc.filepath = App.Path & "\Pack\grafik\misc\misc.png" Tex_Misc.Texture = NumTextures - 3 LoadTexture Tex_Misc Tex_Blood.filepath = App.Path & "\Pack\grafik\misc\blood.png" Tex_Blood.Texture = NumTextures - 2 LoadTexture Tex_Blood Tex_Bars.filepath = App.Path & "\Pack\grafik\misc\bars.png" Tex_Bars.Texture = NumTextures - 1 LoadTexture Tex_Bars Tex_Selection.filepath = App.Path & "\Pack\grafik\misc\select.png" Tex_Selection.Texture = NumTextures LoadTexture Tex_Selection Tex_GUI.filepath = App.Path & "\Pack\grafik\misc\select.png" Tex_GUI.Texture = NumTextures LoadTexture Tex_GUI End Sub ``` Whats wrong? Thank you :)

Now this…  Without this guildsystem, no problems with the serialsystem. Now, instead of the guildform, the serialform popps up on login. And yeah if i type in /guild admin the error below appears now :(

Hey. When i type in /guild admin i allways get this:   And if im in the guild as leader the serialeditor pop ups instead of the guildwindow.. How to get rid of this? Even i can´t see the tag on top of my name.. I use EO 3.0

Where is the part in the sourcecode? I will compare them And also i can´t remake the tutorial: http://www.eclipseorigins.com/thread-12147.html?highlight=Guild At the point where 3.0 has another source in the client, i can´t go on because the forum is down.. The server works fine :(