Ganjika

Just wanted to thank Justn for teamviewing me and helping get this crafting system to work on EO 3.0 Dx8. I will be putting out a guide to this crafting system once I get a good grasp on it, Great work Justn! =]

Is this now for Dx8/Nightly? Also ; Can you send me the project I sent to you a few days ago? Good work with the tutorial above. =]

> Lol I guess nobody has tried to use this… While helping ganjika I realized I left out the tool requirement part of the form work making the tut useless.. will post it when I get home in a few Hope you get around to this - will be epic ; also, shoot me the project I sent you as soon as can. =]

Does this work on Eclipse Origins 3.0 [Nightly] Dx8?

> The easiest way would be to manually update it once every . The hardest way involves socket connectivity between your website and server. Website contacts the server every time the page is loaded or the server uploads a file via FTP automatically every . How would i approach this on an win764bit appserv/eclipse eo 3.0 dx8 environment?

Got the client to compile by changing Drawtext to Rendertext and TextTHdc to font_default, testing it now - will report back with results. I'm actually in game - will try new features now - btw ; I'm using Eclipse Origins 3.0 Nightly (a Direct x 8 Version) - Dragon Ecipse. None of the in game menu items added for crafting are visable, the selection for "crafting" is visible but when i click it its all blank and theres no way out of the menu at that point, in item editor the space or the frame is there as is the the label that reads "1" but everything else is not visible. 

You should use teamviewer instead of skype, Wayyyyyyy better for collaborative work than skype- It even has voip/video chat built in. If its communication you guys need go for a teamspeak 3 server.

(on the client side when trying to compile.)_Dragon Eclipse_ - [[b]Eclipse Origins 3.0 Nightly Dx8 -_Note: I know you said not tested with EO 3.0 but the server starts up and runsjust fine, its only the client that is giving me this error._(BELOW: My Step-Into Debug Result:) > ya know at the bottom of the tut is the form work, he even tells you how to do it. its a picbox and some labels… lets get it together folks. I was thinking screenshots :shrug: my bad, I think I did okay - I myself will post screenshots of it working on Eclipse Origins 3.0 Nightly Dx8 as well as how the menu looks when all set up and working -_if_- I manage to get it running in said environment. =P > [Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:34 pm] : ModText or ModGraphics should have a call on how to render text [Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:34 pm] : look into that [Ganjika](http://www.touchofdeathforums.com/community/index.php?/user/78057-ganjika/) [01:35 pm] : are they references or is it int he code itself? [Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:35 pm] : Look at how player names are rendered [Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:35 pm] : it might help [Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:40 pm] : … I'll just download it real quick [Ganjika](http://www.touchofdeathforums.com/community/index.php?/user/78057-ganjika/) [01:40 pm] : ' Draw name 'Call DrawText(TexthDC, TextX, TextY, Name, color) Dim I As Long RenderText Font_Default, name, TextX, TextY, color, 0 If Not Player(Index).GuildName = vbNullString Then 'Call DrawText(TexthDC, Text2X, Text2Y, GuildString, color) RenderText Font_Default, GuildString, Text2X, Text2Y, color, 0 End If [Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:41 pm] : Ah [Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:41 pm] : rendertext [Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:41 pm] : that call [Ganjika](http://www.touchofdeathforums.com/community/index.php?/user/78057-ganjika/) [01:41 pm] : which part is the call? [Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:41 pm] : That entire line [Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:41 pm] : RenderText Font_Default, GuildString, Text2X, Text2Y, color, 0 god why doesnt it work!!?!?!?!?!?!?!?! [Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:42 pm] : RenderText Font_Default, "Text Goes Here", LocationX, LocationY, Color, idfkwhathtislastthingdoes > > [Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:52 pm]:Replace the old DrawText calls with one similar to that[Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:52 pm]:do replace the variables correctly though[Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:53 pm]:or it'll just crash[Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:53 pm]:badly[Stein](http://www.touchofdeathforums.com/community/index.php?/user/76335-stein/) [01:53 pm]:xD

> **I WILL POST PREMADE FORM WORK AND POST PICS SOMETIME TOMORROW..** Did you ever do this? Its been like almot a month. =P, Would be cool to see a visual on the forum work, If ANYONE has screenshots i would appreciate it. =P

Is there any other system like this or similar that -does- work for eclipse origins 3.0 (nightly) dx8?

> You'll also need to delete all your items if you do that though, or convert them over.. Since you're changing the size of the allocated space and all that. How would one convert them over? Also, are the changes to name_length server and/or client side?

> Sadly the "Shopkeeper" thing is just, well.. a misleading name for an immobile NPC, you can use the NPC Spawn attribute and spawn them in a certain direction though. would that effect all shopkeepers type npcs and/or all npcs (changing the npc spawn attritubte)? Is there a way to define individually which way they face?

> hello anyone know how to eddit game the client window so its will be bigger and smaller? I recommend doing yourself a favor and just switching to a nightly 3.0 release now since they can do more if you areant already on it, also you will need Visual Basic 6.0 to do any editing whatsoever.

> No you don't lol? So it should work with my currently nightly tilesets for my characters?

9840

Does this work on 3.0/nightly (Dx8) and do I have to change my character graphics to accommodate this?

I wont have to alter any of my character spritesets will I?

My problem was that i forgot to add->module and add->form, thank you so much for helping me find this, I highly appreciate your input. Have a good one. =]

> … If you read the highlighted line, you'll notice that it's from a seperate form that it's calling, not a module. I read the line - I'm just still fairly new. :shrug: How should i proceed?

 (above: debug report of ModGuild). (below: actual code of ModGuild). **ModGuild** ``` Public Const MAX_GUILD_MEMBERS As Long = 50 Public Const MAX_GUILD_RANKS As Long = 6 Public Const MAX_GUILD_RANKS_PERMISSION As Long = 6 Public GuildData As GuildRec Public Type GuildRanksRec 'General variables Used As Boolean Name As String 'Rank Variables RankPermission(1 To MAX_GUILD_RANKS_PERMISSION) As Byte RankPermissionName(1 To MAX_GUILD_RANKS_PERMISSION) As String End Type Public Type GuildMemberRec 'User login/name Used As Boolean User_Login As String User_Name As String Founder As Boolean 'Guild Variables Rank As Integer Comment As String * 300 End Type Public Type GuildRec In_Use As Boolean Guild_Name As String 'Guild file number for saving Guild_Fileid As Long Guild_Members(1 To MAX_GUILD_MEMBERS) As GuildMemberRec Guild_Ranks(1 To MAX_GUILD_RANKS) As GuildRanksRec 'Message of the day Guild_MOTD As String * 100 'The rank recruits start at Guild_RecruitRank As Integer Guild_Color As Integer End Type Public Sub HandleAdminGuild(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim Buffer As clsBuffer Dim i As Integer Dim b As Integer If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteBytes Data() If Buffer.ReadByte = 1 Then frmGuildAdmin.Visible = True Else frmGuildAdmin.Visible = False End If Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "HandleAdminGuild", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear End Sub Public Sub HandleSendGuild(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim Buffer As clsBuffer Dim i As Integer Dim b As Integer If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteBytes Data() GuildData.Guild_Name = Buffer.ReadString GuildData.Guild_Color = Buffer.ReadInteger GuildData.Guild_MOTD = Buffer.ReadString GuildData.Guild_RecruitRank = Buffer.ReadInteger 'Get Members For i = 1 To MAX_GUILD_MEMBERS GuildData.Guild_Members(i).User_Name = Buffer.ReadString GuildData.Guild_Members(i).Rank = Buffer.ReadInteger GuildData.Guild_Members(i).Comment = Buffer.ReadString Next i 'Get Ranks For i = 1 To MAX_GUILD_RANKS GuildData.Guild_Ranks(i).Name = Buffer.ReadString For b = 1 To MAX_GUILD_RANKS_PERMISSION GuildData.Guild_Ranks(i).RankPermission( = Buffer.ReadByte GuildData.Guild_Ranks(i).RankPermissionName( = Buffer.ReadString Next b Next i 'Update Guildadmin data Call frmGuildAdmin.Load_Guild_Admin Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "HandleSendGuild", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear End Sub Public Sub GuildMsg(ByVal text As String) Dim Buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong CSayGuild Buffer.WriteString text SendData Buffer.ToArray() Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "GuildMsg", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Public Sub GuildCommand(ByVal Command As Integer, ByVal SendText As String) Dim Buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong CGuildCommand Buffer.WriteInteger Command Buffer.WriteString SendText SendData Buffer.ToArray() Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "GuildMsg", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub Public Sub GuildSave(ByVal SaveType As Integer, ByVal Index As Integer) Dim Buffer As clsBuffer Dim i As Integer Dim b As Integer 'SaveType '1=options '2=users '3=ranks If Index = 0 Then Exit Sub ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong CSaveGuild Buffer.WriteInteger SaveType Buffer.WriteInteger Index Select Case SaveType Case 1 'options Buffer.WriteInteger GuildData.Guild_Color Buffer.WriteInteger GuildData.Guild_RecruitRank Buffer.WriteString GuildData.Guild_MOTD Case 2 'users Buffer.WriteInteger GuildData.Guild_Members(Index).Rank Buffer.WriteString GuildData.Guild_Members(Index).Comment Case 3 'ranks Buffer.WriteString GuildData.Guild_Ranks(Index).Name For i = 1 To MAX_GUILD_RANKS_PERMISSION Buffer.WriteByte GuildData.Guild_Ranks(Index).RankPermission(i) Next i End Select SendData Buffer.ToArray() Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "GuildMsg", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ```

How can I get the character/npc names and whatnot to always be visable like in this picture of a different version of eclipse (i think standard eclipse is like that too)? 

How could I get my characters to be able to walk diagonally without having to alter the current 4x4 character sprite setup (like if they are walking up and to the left just having the upward facing sprite at work, etc).

After trying to make a Guild called "Administration" with /guild make Administration I get this error. I can't even get back into that character without it giving me this same error again and crashing as it did the first time now. I can make a new character and get back into the game but the other one which i tried to make the first guild on crashed and showed error. 

:: POST MOVED HERE : [http://www.touchofde…ds/#entry852155](http://www.touchofdeathforums.com/community/index.php?/topic/129434-runtime-error-424-object-required-guilds/#entry852155) :: I >  > > (above: debug report of ModGuild). > > (below: actual code of ModGuild). > > **ModGuild** > > ``` > > Public Const MAX_GUILD_MEMBERS As Long = 50 > > Public Const MAX_GUILD_RANKS As Long = 6 > > Public Const MAX_GUILD_RANKS_PERMISSION As Long = 6 > > Public GuildData As GuildRec > > Public Type GuildRanksRec > > 'General variables > > Used As Boolean > > Name As String > > 'Rank Variables > > RankPermission(1 To MAX_GUILD_RANKS_PERMISSION) As Byte > > RankPermissionName(1 To MAX_GUILD_RANKS_PERMISSION) As String > > End Type > > Public Type GuildMemberRec > > 'User login/name > > Used As Boolean > > User_Login As String > > User_Name As String > > Founder As Boolean > > 'Guild Variables > > Rank As Integer > > Comment As String * 300 > > > > End Type > > Public Type GuildRec > > In_Use As Boolean > > Guild_Name As String > > 'Guild file number for saving > > Guild_Fileid As Long > > Guild_Members(1 To MAX_GUILD_MEMBERS) As GuildMemberRec > > Guild_Ranks(1 To MAX_GUILD_RANKS) As GuildRanksRec > > 'Message of the day > > Guild_MOTD As String * 100 > > 'The rank recruits start at > > Guild_RecruitRank As Integer > > Guild_Color As Integer > > End Type > > Public Sub HandleAdminGuild(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) > > Dim Buffer As clsBuffer > > Dim i As Integer > > Dim b As Integer > > If Options.Debug = 1 Then On Error GoTo errorhandler > > Set Buffer = New clsBuffer > > Buffer.WriteBytes Data() > > If Buffer.ReadByte = 1 Then > > frmGuildAdmin.Visible = True > > Else > > frmGuildAdmin.Visible = False > > End If > > Set Buffer = Nothing > > ' Error handler > > Exit Sub > > errorhandler: > > HandleError "HandleAdminGuild", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext > > Err.Clear > > End Sub > > Public Sub HandleSendGuild(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) > > Dim Buffer As clsBuffer > > Dim i As Integer > > Dim b As Integer > > If Options.Debug = 1 Then On Error GoTo errorhandler > > Set Buffer = New clsBuffer > > Buffer.WriteBytes Data() > > GuildData.Guild_Name = Buffer.ReadString > > GuildData.Guild_Color = Buffer.ReadInteger > > GuildData.Guild_MOTD = Buffer.ReadString > > GuildData.Guild_RecruitRank = Buffer.ReadInteger > > 'Get Members > > For i = 1 To MAX_GUILD_MEMBERS > > GuildData.Guild_Members(i).User_Name = Buffer.ReadString > > GuildData.Guild_Members(i).Rank = Buffer.ReadInteger > > GuildData.Guild_Members(i).Comment = Buffer.ReadString > > Next i > > 'Get Ranks > > For i = 1 To MAX_GUILD_RANKS > > GuildData.Guild_Ranks(i).Name = Buffer.ReadString > > For b = 1 To MAX_GUILD_RANKS_PERMISSION > > GuildData.Guild_Ranks(i).RankPermission( = Buffer.ReadByte > > GuildData.Guild_Ranks(i).RankPermissionName( = Buffer.ReadString > > Next b > > Next i > > 'Update Guildadmin data > > Call frmGuildAdmin.Load_Guild_Admin > > Set Buffer = Nothing > > ' Error handler > > Exit Sub > > errorhandler: > > HandleError "HandleSendGuild", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext > > Err.Clear > > End Sub > > Public Sub GuildMsg(ByVal text As String) > > Dim Buffer As clsBuffer > > ' If debug mode, handle error then exit out > > If Options.Debug = 1 Then On Error GoTo errorhandler > > Set Buffer = New clsBuffer > > Buffer.WriteLong CSayGuild > > Buffer.WriteString text > > SendData Buffer.ToArray() > > Set Buffer = Nothing > > ' Error handler > > Exit Sub > > errorhandler: > > HandleError "GuildMsg", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext > > Err.Clear > > Exit Sub > > End Sub > > Public Sub GuildCommand(ByVal Command As Integer, ByVal SendText As String) > > Dim Buffer As clsBuffer > > ' If debug mode, handle error then exit out > > If Options.Debug = 1 Then On Error GoTo errorhandler > > Set Buffer = New clsBuffer > > Buffer.WriteLong CGuildCommand > > Buffer.WriteInteger Command > > Buffer.WriteString SendText > > SendData Buffer.ToArray() > > Set Buffer = Nothing > > ' Error handler > > Exit Sub > > errorhandler: > > HandleError "GuildMsg", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext > > Err.Clear > > Exit Sub > > End Sub > > Public Sub GuildSave(ByVal SaveType As Integer, ByVal Index As Integer) > > Dim Buffer As clsBuffer > > Dim i As Integer > > Dim b As Integer > > 'SaveType > > '1=options > > '2=users > > '3=ranks > > If Index = 0 Then Exit Sub > > ' If debug mode, handle error then exit out > > If Options.Debug = 1 Then On Error GoTo errorhandler > > Set Buffer = New clsBuffer > > Buffer.WriteLong CSaveGuild > > Buffer.WriteInteger SaveType > > Buffer.WriteInteger Index > > Select Case SaveType > > Case 1 > > 'options > > Buffer.WriteInteger GuildData.Guild_Color > > Buffer.WriteInteger GuildData.Guild_RecruitRank > > Buffer.WriteString GuildData.Guild_MOTD > > Case 2 > > 'users > > Buffer.WriteInteger GuildData.Guild_Members(Index).Rank > > Buffer.WriteString GuildData.Guild_Members(Index).Comment > > Case 3 > > 'ranks > > Buffer.WriteString GuildData.Guild_Ranks(Index).Name > > For i = 1 To MAX_GUILD_RANKS_PERMISSION > > Buffer.WriteByte GuildData.Guild_Ranks(Index).RankPermission(i) > > Next i > > End Select > > SendData Buffer.ToArray() > > Set Buffer = Nothing > > ' Error handler > > Exit Sub > > errorhandler: > > HandleError "GuildMsg", "modGuild", Err.Number, Err.Description, Err.Source, Err.HelpContext > > Err.Clear > > Exit Sub > > End Sub > > ```

Does this work for Nightly and/or Dx8? - If not, how could one have it work in such a setting?