barreytor
-
Posts
69 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by barreytor
-
-
I don't know either, but I guess that, after all, it's just an adaptation and that's why, or maybe no one sees it.
Though it's simple to make more editable things like eyes (in fact, I did make eyes, it's the same thing only without the "letting the user choose from a few" and only having color picker) -
> This is actually simple considering you have ample knowledge in VB with DX8
Not even that. You can get the effect by moving one line from somewhere to somewhere else (assuming we're talking about EO) -
He's not releasing it because of an NDA or something similar.
It really is that easy though, you could just poke around a bit and have it done real quick, but you'd have to do it by yourself.
(I'm not making a tut though, I don't got time) -
If you can get something moving at negative squareroot of lightspeed… It doesn't make any sense, but it's the only way something could actually go back in time within my understanding of physics.
-
That would just be a paperdoll layer that goes under the character, if I understand it. It's that?
-
> Will this work with EA
Right out-of-the-box directly applying probably not, but with a bit of skill and imagination, you can port it. -
Okay, so I've been tampering around trying to change resolutions and hitting a seemingly impossible to cross wall, with the problem of "After changing to a higher resolution, the extra size of the picscreen goes unused".
Found two ways around it: One consists of, after changing the size of the picscreen, initializing DirectX again with the new backbuffer size; and the other is just making DirectX's backbuffer size the max size from the get go. -
You probably should point out that it's for EO 2 and other DX7 engines, but nice tutorial, simple and to the point.
-
Sounds like a nice tutorial… Except for the part where you put the max map sizes in the server too.
Mainly because the max map sizes in the server are used to know the actual max size of the map, and the ones in the client are to know the actual displayable size.
At least that's how I found it was in my EO 3, and I don't think it changes that much. Anyway, neat tutorial. -
What is all this? I know, I'm not one to say, but you could just, you know, make a single thread for all these resource packs "you" seem to be "making". I don't see the purpose of making two completely different threads for resources by the same person**, with only ten minutes apart one from the other. (Yes I know I'm referring to other threads)**
Also, this:
> -snip-
>
> >! 
> >! [background=rgb(232, 239, 244)][/background]
> >! That's just an edit of [the Tile-B from First Seed Material](http://www.tekepon.net/fsm/modules/refmap/index.php?mode=vx-map), where the only stuff added is the tree recolors and some other (few) things. Original for comparison:
> >! 
> >! Just saying, though, don't want to offend anyone.(Though the edit function could really see come use instead of making new topics) -
For the item type there's a tutorial [here](http://www.touchofdeathforums.com/community/index.php?/topic/126187-eo-container-item-type-gambling/page__hl__container) (not my work, though it's a nice thing)
You can just change the max amount of items it can drop, and set it to 100% chance for every one you want a sure drop.
For the potions, you could make them items that cast "self-cast" range instantaneous buff spells. (Of course, this is assuming you have buff spells to start with, though those would be easier to make because spells already have all the timing stuff)
I hope this helped somewhat. For the rest, you'd have to, at least, mention what engine your game is based on, so anyone that wants to help can know where to start.
(though that in-game item market would be just making another currency and shops that use it) -
Duh, why of course, a spell that makes water and a spell that makes bread, simplest things ever, to go with any game with hunger/thirst mechanics.
I should have thought of that earlier.
Nice tutorial anyway. -
> well when you cast a spell , it will give you item
Yes, that is the whole point of the tutorial, and I got that.
What I can't think of is any practical application of an spell that makes an item appear.
At least not right now. -
This might sound stupid, but… Can you give an example of a practical application of this spell type?
Because it's looking good and all, but I can't think what it would be useful for. -
> After all, the work is only dragging and dropping.
Unless it's a source based from CS:DE, where everything in the GUI is in the code (afaik) -
I'm not one to talk, but maybe you'd like to elaborate a bit on what has to be done, since what you're asking is a little too vague.
Maybe, at least, mention what engine is it? -
If you're going to tamper around with the Eclipse engine, you'll have to learn VB6, but any language you learn will help you understand how to do stuff in a language-agnostic way.
-
> the concept can be applied in several places such as clothes, face pictures, and more 
While that is indeed true (And I intend to, maybe, do that to my engine and make a tutorial about it), there's the limitation of "It paints everything with the color". Haven't tried to tint already colored stuff, though.
EDIT: Tried it, and for anything that has more than one color it's completely useless. -
> Nice tutorial! Thanks for converting it over for me! (I was just about to finish!) Saves me a lot of time!
Thanks! I hope the hair tinting is useful! -
Personalmente, mi opinión es que la mejor es la Eclipse Origins 3.0 con el sistema de eventos.
Más que nada porque es una buena base para editar, con DirectX 8 (y por lo tanto usa archivos PNG)
Sé que no tiene tantas cosas como la reborn, pero ahà está la gracia. -
> Go ahead and post it, just give some credit. 
Thanks! Did that, [here's the tutorial if you want to check it](http://www.touchofdeathforums.com/community/index.php?/topic/132296-eo-30-character-customization-hair-hair-color/)
(Credit is given at the beggining AND the end just to make sure) -
This tutorial is based on a personal adaptation of DJMaxus' [[CS:DE] Character Customization (Gender & Hair)](http://www.touchofdeathforums.com/community/index.php?/topic/123485-csde-character-customization-gender-hair/), moved to EO 3.0
What it does: It lets you have a separate graphic file for character hair, and to color it at render time.
Screenshots of what you should end up with (just the important bits, it's in Spanish, sorry about that):
>! 
>! Both of those hairs are the same hair file. Neat, isn't it?
This might sound hard, but don't worry, it's just me, being bad at explaining.
**REMEMBER! Always make a backup of your working source!**
**SERVER SIDE:**
First go to **modTypes**, and in **PlayerRec** add```
Hair As Long
HairTint As Long
```at the bottom.
Add it to **TempPlayerRec** too. (I'm not sure it's needed, but I did it just in case.)
At the bottom of **modPlayer**, add```
Function GetPlayerHair(ByVal Index As Long) As Long
If Index <= 0 Or Index > MAX_PLAYERS Then Exit Function
GetPlayerHair = Player(Index).Hair
End Function
Sub SetPlayerHair(ByVal Index As Long, ByVal Hair As Long)
If Index <= 0 Or Index > MAX_PLAYERS Then Exit Sub
Player(Index).Hair = Hair
End Sub
Function GetPlayerHairTint(ByVal Index As Long) As Long
If Index <= 0 Or Index > MAX_PLAYERS Then Exit Function
GetPlayerHairTint = Player(Index).HairTint
End Function
Sub SetPlayerHairTintTint(ByVal Index As Long, ByVal HairTint As Long)
If Index <= 0 Or Index > MAX_PLAYERS Then Exit Sub
Player(Index).HairTint = HairTint
End Sub
```
in **modDatabase** find```
Sub AddChar(ByVal Index As Long, ByVal Name As String, ByVal Sex As Byte, ByVal ClassNum As Long, ByVal Sprite As Long)
```and replace it with```
Sub AddChar(ByVal Index As Long, ByVal Name As String, ByVal Sex As Byte, ByVal ClassNum As Long, ByVal Sprite As Long, ByVal Hair As Long, ByVal HairTint As Long)
```then, inside the sub, under```
Player(Index).Level = Level
```add```
Player(Index).Hair = Hair
Player(Index).HairTint = HairTint
```
Now, in **modHandleData**, find```
HandleAddChar
```and under```
Dim n As Long
```add```
Dim Hair As Long
Dim HairTint As Long
```, under```
Sprite = Buffer.ReadLong
```add```
Hair = Buffer.ReadLong
HairTint = Buffer.ReadLong
```(if you place it somewhere else, remember where!), then find```
Call AddChar(Index, Name, Sex, Class, Sprite)
```and replace with```
Call AddChar(Index, Name, Sex, Class, Sprite, Hair, HairTint)
```
Next, in **modServerTCP**, find```
Function PlayerData
```and under```
Buffer.WriteLong GetPlayerLevel(Index)
```add```
Buffer.WriteLong GetPlayerHair(Index)
Buffer.WriteLong GetPlayerHairTint(Index)
```
And that's the server work. Now comes the client work.
**CLIENT SIDE:**
Like with the server, first go to **modTypes**, and in **PlayerRec** add```
Hair As Long
HairTint As Long
```at the bottom.
Then in **modClientTCP** find```
Public Sub SendAddChar(ByVal Name As String, ByVal Sex As Long, ByVal ClassNum As Long, ByVal Sprite As Long)
```and replace with```
Public Sub SendAddChar(ByVal Name As String, ByVal Sex As Long, ByVal ClassNum As Long, ByVal Sprite As Long, ByVal Hair As Long, ByVal HairTint As Long)
```
and under```
Buffer.WriteLong Sprite
```add```
Buffer.WriteLong Hair
Buffer.WriteLong HairTint
```(If in the server **modHandleData HandleAddChar** you placed the lines somewhere else, place them in the same point of order)
In **modDatabase** add, at the bottom or somewhere:```
' Hairs
Public Sub CheckHairs()
Dim i As Long
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
i = 1
NumHairs = 1
ReDim Tex_Hair(1)
While FileExist(GFX_PATH & "hair\" & i & GFX_EXT)
ReDim Preserve Tex_Hair(NumHairs)
NumTextures = NumTextures + 1
ReDim Preserve gTexture(NumTextures)
Tex_Hair(NumHairs).filepath = App.Path & GFX_PATH & "hair\" & i & GFX_EXT
Tex_Hair(NumHairs).Texture = NumTextures
NumHairs = NumHairs + 1
i = i + 1
Wend
NumHairs = NumHairs - 1
If NumHairs = 0 Then Exit Sub
For i = 1 To NumHairs
LoadTexture Tex_Hair(i)
Next
' Error handler
Exit Sub
errorhandler:
HandleError "CheckHairs", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub
Function GetPlayerHair(ByVal Index As Long) As Long
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
If Index > MAX_PLAYERS Then Exit Function
GetPlayerHair = Player(Index).Hair
' Error handler
Exit Function
errorhandler:
HandleError "GetPlayerSprite", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Function
End Function
Sub SetPlayerHair(ByVal Index As Long, ByVal Hair As Long)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
If Index > MAX_PLAYERS Then Exit Sub
Player(Index).Hair = Hair
' Error handler
Exit Sub
errorhandler:
HandleError "SetPlayerSprite", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub
Function GetPlayerHairTint(ByVal Index As Long) As Long
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
If Index > MAX_PLAYERS Then Exit Function
GetPlayerHairTint = Player(Index).HairTint
' Error handler
Exit Function
errorhandler:
HandleError "GetPlayerSprite", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Function
End Function
Sub SetPlayerHairTint(ByVal Index As Long, ByVal HairTint As Long)
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
If Index > MAX_PLAYERS Then Exit Sub
Player(Index).HairTint = HairTint
' Error handler
Exit Sub
errorhandler:
HandleError "SetPlayerSprite", "modDatabase", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub
```
in **modGlobals**, under```
Public newCharClass As Long
```add```
Public newCharHair As Long
Public newCharHairTint As Long
```
now, in **modGeneral** you have to find```
Call SendAddChar
```it will look somewhat like this:```
If frmMenu.optMale.Value Then
Call SendAddChar(frmMenu.txtCName, SEX_MALE, frmMenu.cmbClass.ListIndex + 1, newCharSprite)
Else
Call SendAddChar(frmMenu.txtCName, SEX_FEMALE, frmMenu.cmbClass.ListIndex + 1, newCharSprite)
End If
```replace it with this:```
If frmMenu.optMale.Value Then
Call SendAddChar(frmMenu.txtCName, SEX_MALE, frmMenu.cmbClass.ListIndex + 1, newCharSprite, newCharHair, newCharHairTint)
Else
Call SendAddChar(frmMenu.txtCName, SEX_FEMALE, frmMenu.cmbClass.ListIndex + 1, newCharSprite, newCharHair, newCharHairTint)
End If
```
go to **modHandleData** and find```
Call SetPlayerLevel(i, Buffer.ReadLong)
```and add under it```
Call SetPlayerHair(i, Buffer.ReadLong)
Call SetPlayerHairTint(i, Buffer.ReadLong)
```
in **modGraphics**, somewhere along or under```
Public Tex_Fog() As DX8TextureRec
```add```
Public Tex_Hair() As DX8TextureRec
```, under```
Public NumFogs As Long
```add```
Public NumHairs As Long
```, under```
Call CheckFogs
```(in Sub LoadTextures) add```
Call CheckHairs
```find DrawPlayer and under```
Call DrawSprite(Sprite, x, y, rec)
```add```
Call DrawHair(x, y, GetPlayerHair(Index), Anim, spritetop, GetPlayerHairTint(Index))
```and at the bottom or somewhere in the module add```
Public Sub DrawHair(ByVal x2 As Long, ByVal y2 As Long, ByVal Hair As Long, ByVal Anim As Long, ByVal spritetop As Long, ByVal tint As Long)
Dim rec As RECT
If Hair < 1 Or Hair > NumHairs Then Exit Sub
With rec
.Top = spritetop * (Tex_Hair(Hair).Height / 4)
.Bottom = .Top + (Tex_Hair(Hair).Height / 4)
.Left = Anim * (Tex_Hair(Hair).Width / 4)
.Right = .Left + (Tex_Hair(Hair).Width / 4)
End With
' Clip to screen
If y2 < 0 Then
With rec
.Top = .Top - y2
End With
y2 = 0
End If
If x2 < 0 Then
With rec
.Left = .Left - x2
End With
x2 = 0
End If
'RenderTexture Tex_Hair(Hair), ConvertMapX(x2), ConvertMapY(y2), rec.Left, rec.Top, rec.Right - rec.Left, rec.Bottom - rec.Top, rec.Width, rec.Height
RenderTexture Tex_Hair(Hair), ConvertMapX(x2), ConvertMapY(y2), rec.Left, rec.Top, rec.Right - rec.Left, rec.Bottom - rec.Top, rec.Right - rec.Left, rec.Bottom - rec.Top, tint
End Sub
```
still in **modGraphics**, find```
Public Sub NewCharacterDrawSprite()
```and under```
RenderTextureByRects Tex_Character(Sprite), sRect, dRect
```add```
RenderTexture Tex_Hair(newCharHair), 0, 0, 0, 0, Width, Height, Width, Height, newCharHairTint
```
Alright. Now open up **frmMenu** and make sure you've got **picCharacter** in front (make sure you can see the "new character" menu box), then add:
> A label that will act as a button to change the hairstyle, named **lblHair** (preferably with a relevant caption)
> A label to show what hair is selected out of them all, named **lblHairNum** (caption unnecesary)
> Three scrollbars, named **scrlCRed** , **scrlCGreen** and **scrlCBlue** (preferably with labels alongside to show which is which) with a **Min** of 0 and a **Max** of 255 (You can change them if you prefer, but always within those bounds) and a **Value** of 128, or somewhere around the middle.
Now, inside **frmMenu**'s code, add… (Choice time!)
>If all your hairs fit both male and female characters:```
Private Sub lblHair_Click()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
If newCharHair >= NumHairs Then
newCharHair = 0
Else
newCharHair = newCharHair + 1
End If
lblHairNum.Caption = newCharHair & " / " & NumHairs
' Error handler
Exit Sub
errorhandler:
HandleError "lblHair_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub
```>On the other hand, if your males and females need different hairs…```
Private Sub lblHair_Click()
' If debug mode, handle error then exit out
If Options.Debug = 1 Then On Error GoTo errorhandler
Dim haircount As Long
If optMale.Value Then
haircount = Round((NumHairs + 1) / 2)
Else
haircount = Round((NumHairs) / 2)
End If
If optMale.Value And newCharHair >= NumHairs Then
newCharHair = 0
ElseIf newCharHair >= NumHairs - 1 Then
newCharHair = 0
Else
If optMale.Value And newCharHair = 0 Then
newCharHair = 1
ElseIf newCharHair = 0 Then
newCharHair = 2
Else
newCharHair = newCharHair + 2
End If
End If
If optMale.Value Then
lblHairNum.Caption = Round((newCharHair + 1) / 2) & " / " & haircount
Else
lblHairNum.Caption = Round(newCharHair / 2) & " / " & haircount
End If
' Error handler
Exit Sub
errorhandler:
HandleError "lblHair_Click", "frmMenu", Err.Number, Err.Description, Err.Source, Err.HelpContext
Err.Clear
Exit Sub
End Sub
```Note that with "Males get different hairs than Females", odd numbered hairs (1,3,5…) are used for males and even numbered hairs (2,4,6...) are used for females.
Now, somewhere within the form's code add```
Private Sub scrlCRed_Change()
newCharHairTint = D3DColorRGBA(frmMenu.scrlCRed.Value, frmMenu.scrlCGreen.Value, frmMenu.scrlCBlue.Value, 255)
End Sub
Private Sub scrlCGreen_Change()
newCharHairTint = D3DColorRGBA(frmMenu.scrlCRed.Value, frmMenu.scrlCGreen.Value, frmMenu.scrlCBlue.Value, 255)
End Sub
Private Sub scrlCBlue_Change()
newCharHairTint = D3DColorRGBA(frmMenu.scrlCRed.Value, frmMenu.scrlCGreen.Value, frmMenu.scrlCBlue.Value, 255)
End Sub
```
Now, inside```
Private Sub Form_Load()
```, under```
If Options.Debug = 1 Then On Error GoTo errorhandler
```add```
If optMale.Value Then
newCharHair = 1
Else
newCharHair = 2
End If
newCharHairTint = D3DColorRGBA(frmMenu.scrlCRed.Value, frmMenu.scrlCGreen.Value, frmMenu.scrlCBlue.Value, 255)
```to make sure the default hair isn't "no hair" (though "no hair" can still be chosen by going around all the hairs and all the way back to 0)
If you went the "different hairs for males and females" way, find```
Private Sub optFemale_Click()
```and under```
newCharSprite = 0
```add```
newCharHair = 2
Dim haircount As Long
haircount = Round(NumHairs / 2)
frmMenu.lblHairNum.Caption = Round(newCharHair / 2) & " / " & haircount
```, then in```
Private Sub optMale_Click()
```under```
newCharSprite = 0
```add```
newCharHair = 1
Dim haircount As Long
haircount = Round((NumHairs + 1) / 2)
frmMenu.lblHairNum.Caption = Round(newCharHair / 2) & " / " & haircount
```
Whelp, that's all the code! Now, for the non-code stuff.
Inside the client folder, in "**data files\graphics**", create a new folder called **hair**
Add your numbered hair files, making sure to previously desaturate them so they look grayscale and can be properly colored at runtime. Examples:
>! 
>! These are a male and a female hair, respectively, the male hair being 1.png and the female hair being 2.png
>! This is using "male and female hairs are different", so odd numbers are male hairs and even numbers are female hairs.
>! Make sure the initial picture is as bright as it needs to be, because you can use the sliders to get darker colors, but not brighter.
You will also have to replace the classes sprites with hairless/bald sprites so the hair isn't drawn over more hair. Existing characters will have no hair, and there is no way given in this tutorial on how to change a player's hair, but it's as easy as making the server do a SetPlayerHair or a SetPlayerHairTint, so probably with a custom event, or command… I'll leave that for you to find a way on how do you want to do it.
Original tutorial on which this one is based on: [[CS:DE] Character Customization (Gender & Hair)](http://www.touchofdeathforums.com/community/index.php?/topic/123485-csde-character-customization-gender-hair/), by DJMaxus -
Added it to my EO 3.0 engine (with the appropriate changes, of course) and works flawlessly. Heck, I even found a way to use its drawing functions to have the colour as an entirely separate value and tinting at runtime instead of using images for each color of hair. I'll see if I can get some time and post a proper tutorial on how to do apply this tutorial to EO 3.0, if I get permission from the original post. (Do I have to ask for permission? I think I have to ask for permission)
-
GUI Design - Eclipse++ Contest
in News
Posted
How many items should fit in the spells/inventory boxes?