Printable View
um what is wrong with my masking code here?
it just shows gray around the guy instead of cutting out the white.Code:
BitBlt Picture1.hDC, 3 * 48, 3 * 48, 48, 48, imgmanmask.hDC, 2, 104, vbSrcAnd
BitBlt Picture1.hDC, 3 * 48, 3 * 48, 48, 48, imgman.hDC, 2, 104, vbSrcPaint
nothing's wrong with the code so show us the pics too!
what you mean the actual pictures?, did i color them right?
hmmm....nothing wrong there either...
did you put the one with the white bg color as mask?
yup, the one with the white border is the mask. do i need a backbuffer?
it works perfectly fine for me....can you please attach the program?
this is the only code i used for it:
VB Code:
this is part of a game so im sure you might have to get rid of some code cause it loads things but here is the form and module that it uses
Well there is a white "halo" around the guy, and it will only work if the pixel on the sprite is BLACK (with and/paint).
well could I use something besides and/paint so that I don't have to go in a paint over that 'halo'
sorry, i cant get the program to work....you didnt attach the frx file in the zip and theres probably some other errors inte the code too...
ya i know there are problems and i forgot the add the module with the map on it, ive got to leave for now but thx for the help
my program doesnt appear to be BitBlting the guy over the tiles. Well I can see the guy but the border around it is the color of the picturebox, ive tried changing the color of the picturebox and the border around the gyu changes with it. What do I need to do to fix this
Can you attach your program so we can see what's going on?
I wish I could but its too big with the tiles.
here is the code under the keydown
some of the code for painting tilesCode:
Select Case KeyCode
Case vbKeyUp ' This makes it so you move up when you press the up key
look_at = Mid(Map(Char_Y + 1 - 1), Char_X + 1, 1)
If look_at = "A" Or look_at = "B" Or look_at = "E" Or look_at = "1" Or look_at = "2" Or look_at = "3" Or look_at = "4" Or look_at = "5" Or look_at = "6" Or look_at = "7" Or look_at = "8" Or look_at = "9" Or look_at = "0" Or look_at = "!" Or look_at = "@" Or _
look_at = "V" Or look_at = "X" Or look_at = "T" Or look_at = "s" Or look_at = "t" Or look_at = "f" Or look_at = "k" Or look_at = "r" Or look_at = "u" Then
Char_Y = Char_Y - 1
Char_Face = 2
Draw_Position 'Calls a sub
Draw_Character
Startup.Caption = "Y = " & Char_Y & " X = " & Char_X
End If
end select
last is the code for paintin the guy(this is whats messed up)Code:
Sub Draw_Position()
'Draws character on board along with board
Dim pass As Byte
For Y = -3 To 10 Step 1 'top to bottom
For X = -3 To 12 Step 1 'left to right
pass = 0
If pass = 0 Then look_at = Mid(Map(Y + Char_Y + 1), (X + Char_X + 1), 1)
If X = 0 And Y = 0 Then GoTo Skip:
Select Case look_at
Case Is = "A" 'Short Grass
BitBlt Picture1.hDC, (X + 3) * 48, (Y + 3) * 48, 48, 48, imgtiles.hDC, 308, 257, vbSrcCopy
end select
end sub
i hope this helpsCode:
Private Sub Draw_Character()
Select Case Char_Face
Case Is = 1
BitBlt Picture1.hDC, 3 * 48, 3 * 48, 48, 48, imgmanmask.hDC, 2, 104, vbSrcAnd
BitBlt Picture1.hDC, 3 * 48, 3 * 48, 48, 48, imgman.hDC, 2, 104, vbSrcPaint
Sleep (150)
BitBlt Picture1.hDC, 3 * 48, 3 * 48, 48, 48, imgmanmask.hDC, 53, 104, vbSrcAnd
BitBlt Picture1.hDC, 3 * 48, 3 * 48, 48, 48, imgman.hDC, 53, 104, vbSrcPaint
Sleep (150)
BitBlt Picture1.hDC, 3 * 48, 3 * 48, 48, 48, imgmanmask.hDC, 104, 104, vbSrcAnd
BitBlt Picture1.hDC, 3 * 48, 3 * 48, 48, 48, imgman.hDC, 104, 104, vbSrcPaint
Sleep (150)
end select
end sub
you should set all pics scalemode to 3 (pixels) and autoredraw to true...
then after blitting you should refresh so the new stuff gets visible..
ya ive had that too, it still doesnt want to work.
im gonna post it on one of my sites, so just give me a minute then ill put the link here.
have you changed this:
VB Code:
to this:
VB Code:
?
well here is where the project is http://www.geocities.com/jeb2022/NewFolder.zip
ya i put picture1.refresh under the keydown code after the draw subs, i also tried it in the draw sub it still didn't work
lol!
If X = 0 And Y = 0 Then GoTo Skip:
this code is in the loop that draws the bg.....it skips the tile behind the character.....remove that one!
after that loop...add: Picture1.Picture = Picture1.Image to get the bg stay even if cls-ing between the animation frames of the character...
then change all these:
BitBlt Picture1.hDC, 3 * 48, 3 * 48, 48, 48, imgmanmask.hDC, 2, 104, vbSrcAnd
BitBlt Picture1.hDC, 3 * 48, 3 * 48, 48, 48, imgman.hDC, 2, 104, vbSrcPaint
Sleep (150)
to:
Picture1.Cls
BitBlt Picture1.hDC, 3 * 48, 3 * 48, 48, 48, imgmanmask.hDC, 2, 104, vbSrcAnd
BitBlt Picture1.hDC, 3 * 48, 3 * 48, 48, 48, imgman.hDC, 2, 104, vbSrcPaint
Picture1.Refresh
Sleep (150)
that'll fix some problems... ;)
hey....i just made a small tile engine test with smooth scrolling.....try this! :)
improved the gfx a bit and fixed a few bugs:
THANK YOU SOOOOOOO MUCH
gawd this thing has been a major pain