BltItemName - Printable Version

BltItemName - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: BltItemName (/showthread.php?tid=2182)

BltItemName - DarkX - 24-09-2008

Tested on: MS3.0.3, MS3.0.7, & MSE Build 1 and works
Ok I liked the way Diablo 2 did the item system, once it's on the ground it has a name highlighted over it. Well, a Item does not techniquely have a moving postion, so there is no need for the xoffset or yoffset, because the item does not actually move on it's own so here is the code for the bltItemCode
In modGameLogic, at the bottom add:

Code:
Sub BltMapItemName(ByVal Index As Long)

Dim TextX As Long

Dim TextY As Long

With Item(MapItem(Index).Num)

'Draw name

TextX = MapItem(Index).x * PIC_X + MapItem(Index).X + CLng(PIC_X / 2) - ((Len(Trim$(.Name)) / 2) * 8)

TextY = MapItem(Index).y * PIC_Y + MapItem(Index).Y - CLng(PIC_Y / 2) - 4

DrawText TexthDC, TextX, TextY, Trim$(.Name), vbWhite

End With

End Sub

Then in the same module find this code:

Code:
' Lock the backbuffer so we can draw text and names

TexthDC = DD_BackBuffer.GetDC

For i = 1 To MAX_PLAYERS

If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then

Call BltPlayerName(i, MapXOffset, MapYOffset)

End If

Next i

Beneath it add:

Code:
'Draw Item Names

For i = LBound(MapItem) To UBound(MapItem)

If MapItem(i).Num > 0 Then

BltMapItemName i

End If

Next i

and yes this does work without X and Yoffset's as I stated above the items do not move so there not needed unless you write in a seperate moving code for the items but why would you want a item to move? this is straight from my source, it does work, do not change anything. That's all

Re: BltItem - Mattyw - 24-09-2008

Tested, works on 3.53. =-p

Re: BltItem - GIAKEN - 24-09-2008

Why use CLng? Instead you should use CByte.

Re: BltItem - DarkX - 24-09-2008

I just used what I am used to with 3.0.3 and MSEBuild1, feel free to modiy or add the blt on hover thing.

Re: BltItem - Nean - 24-09-2008

What would be cool, is if when you pushed ALT, the names showed up... Big Grin

. Anyways, cool tut. Thanks.

Re: BltItem - Rezeyu - 24-09-2008

So add it, it's easy.

Re: BltItem - DarkX - 24-09-2008

Wouldn't finding a the ke code for it then have a check in the gameloop before the code for blting, have it process it if not then continue without

Re: BltItemName - Blodyavenger - 25-09-2008

Actualy that additions is realy great. You can add that view in options as well...

Re: BltItemName - DarkX - 25-09-2008

I am not aroud my visual basic so do not qoute me on this, but it might work( you do have to make them a public const before you can use them

Code:
'Draw Item Names

if VK_LAlt or VK_RAlt = true then

For i = LBound(MapItem) To UBound(MapItem)

If MapItem(i).Num > 0 Then

BltMapItemName i

End If

Next i

end if

Give that a shot, see if it works.