The OW topic. New help needed!

[OW]

Current help needed: Transforming Sprites







These images are pretty self-explanatory, as to what they should b named.
stuff them in "data"
Ok, here's something I tried, and once you walk over the gun, it goes away, and so does mark.

   Code:
   Textmode(text_buffered)
   dim textures (TexStripFrames("data\street.png")-1) = LoadTexStrip ("data\street.png")

   data 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1
   data 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 0
   data 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 0
   data 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 0
   data 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 0
   data 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 0
   data 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 0
   data 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 0
   data 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 0
   data 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 0
   data 6, 6, 0, 6, 6, 6, 6, 6, 6, 6, 0

   dim tiles(10)(10), x, y
   for y = 0 to 10
   for x = 0 to 10
   read tiles(x)(y)
   next
   next

   dim tile = NewTileMap(textures)
   SprSetTiles(tiles)
   SprSetZOrder(1)
   SprSetSize(200,200)

   '------------------------

   dim xPlayer, wWin, yPlayer, hWin, alive, xSize, ySize

   ResizeSpriteArea(Windowwidth(),WindowHeight())
   xSize = 29
   ySize = 29
   dim Playfield(xSize-1,ySize-1)
   xPlayer=Windowwidth()/2
   yPlayer=WindowHeight()/2
   wWin=Windowwidth()/2
   hWin=Windowheight()/2


   alive= true


   dim Mark(ImageStripFrames("data\strain.png") - 1)
   Mark = LoadImageStrip("data\strain.png")
   dim MarkSpr = NewSprite(Mark(0))
   SprSetZOrder(-1)
   SprSetAnimSpeed(1)
   SprSetParallax(true)



   dim bullet(ImageStripFrames("data\bullet.png") - 1)
   bullet = LoadImageStrip("data\bullet.png")
   SprSetParallax(true)

   dim MarkHG(ImageStripFrames("data\markgun.png") - 1)
   MarkHG = LoadImageStrip("data\strain.png")
   dim MarkHGspr = NewSprite(MarkHG(0))

   dim HG(ImageStripFrames("data\handgun.png") - 1)
   HG = LoadImageStrip("data\handgun.png")
   dim HGspr = NewSprite(Hg(0))
   SprSetParallax(true)

   struc Szombie
   dim alive
   dim sprite
   dim x
   dim y
   endstruc

   x = Windowheight()
   y = Windowwidth()



   dim Zom(ImageStripFrames("data\zombie.png") - 1)
   Zom = LoadImageStrip("data\zombie.png")
   SprSetZOrder(1)
   SprSetAnimSpeed(1)
   SprSetParallax(true)

   const numberofzombies = 1
   dim i
   dim Szombie Zombies(numberofzombies-1)
   for i = 0 to arraymax(Zombies)
   Zombies(i).sprite = newsprite(zom)
   Zombies(i).alive = true
   Zombies(i).x = rnd()%1000
   Zombies(i).y = rnd()%1000
   next

   dim Speed# = 4
   dim zSpeed# = 1
   '------------------------------------

   Function Angle#(x1#,y1#,x2#,y2#)
   Return 180-ATN2D(x2#-x1#, y2#-y1#)
   EndFunction


   while (true)
   bindsprite(markspr)
   if alive then
   if ScanKeyDown (VK_LEFT) then
   xPlayer=xPlayer-Speed#
   elseif ScanKeyDown (VK_RIGHT) then
   xPlayer=xPlayer+Speed#

   elseif ScanKeyDown(VK_UP) then
   yPlayer=yPlayer-Speed#
   elseif ScanKeyDown(VK_DOWN) then
   yPlayer=yPlayer+Speed#


   if xplayer < X+32 and Xplayer > X-32 then
   if yplayer < Y+32 and Yplayer > Y-32 then
   DeleteSprite(MarkSpr)
   DeleteSprite(HGspr)

   else
   endif
   endif
   endif
   endif
   SprCameraSetPos(xPlayer-wWin,yPlayer-hWin)
   SprSetPos(xPlayer,yPlayer)
   SprSetAngle(Angle#(SprX()-SprCameraX(),SprY()-SprCameraY(),Mouse_X()*windowwidth(),Mouse_Y()*windowheight()))
   bindsprite(HGspr): SprSetPos(X,Y)
   for i = 0 to arraymax(Zombies)

   bindsprite(Zombies(i).sprite)

   if zombies(i).alive then
   if xPlayer > zombies(i).x then
   Zombies(i).x = Zombies(i).x + zSpeed#
   elseif xPlayer < Zombies(i).X then
   Zombies(i).X = Zombies(i).X - zSpeed#
   endif

   if yPLayer > Zombies(i).Y then
   Zombies(i).Y =Zombies(i).Y + zSpeed#
   elseif Yplayer < Zombies(i).Y then
   Zombies(i).Y = Zombies(i).Y - zSpeed#
   endif

   if Zombies(i).X < xplayer+16 and Zombies(i).X > xplayer-16 then
   if Zombies(i).Y < yplayer+16 and Zombies(i).Y > yplayer-16 then
   alive = false
   endif
   endif
   SprSetPos(Zombies(i).X,Zombies(i).Y)
   SprSetAngle(Angle#(SprX()-SprCameraX(),SprY()-SprCameraY(),xPlayer*windowwidth(),yPlayer*windowheight()))
   endif

   next

   DRAWTEXT()

   if alive = false then
   locate 10,19
   print "game over"
   ZSpeed#=9
   endif
   wend
   '------------------------


I've tried different things, but I can't make mark transform into MarkHG. Help, please?

[Darkjester]

In the sprite library guide take a look at paralax scrolling. -darkjester

[Wayne Rayner]

Well ow I was going to learn how to do that but I have basically stoped working on that, although I might learn it again soon.

Learn the camera movement part of the sprite engine and you will be covered.

Wayne Rayner

[Wayne Rayner]

Yay I know something-- I think well back to learning b4GL

[OW]

Actually, if you look in the code, you'll see I already tried that. "SprCameraSetPos..."

So now I'm back where I...got stuck.

[Wayne Rayner]

try something like this -- note this won't work

sprXtiles = if scankeydown (VK_Left)

This is just a example maybe it wil work but most likely it won't.

Wayne Rayner

[DJLinux]

Do you mean this?

Joshy

NOTE: you must change the texture path to yours

dim textures (TexStripFrames("street.png")-1) = LoadTexStrip ("street.png")

data 0, 0, 0, 0, 0
data 0, 0, 0, 0, 0
data 0, 0, 0, 0, 0
data 0, 0, 0, 0, 0
data 0, 0, 0, 0, 0
dim tiles(3)(3), x, y
for y = 0 to 3: for x = 0 to 3: read tiles(x)(y): next: next

dim tile = NewTileMap(textures)
SprSetTiles(tiles)
SprSetParallax (true) 
SprSetZOrder(1)

dim xPlayer, wWin, yPlayer, hWin 
ResizeSpriteArea(Windowwidth(),WindowHeight()) 
' player and camera in center of screen
xPlayer=Windowwidth()/2
yPlayer=WindowHeight()/2
wWin=Windowwidth()/2
hWin=Windowheight()/2

dim Mark(ImageStripFrames("strain.png") - 1)
Mark = LoadImageStrip("strain.png")
NewSprite(Mark(0))
SprSetZOrder(-1)

SprSetAnimSpeed(1)
SprSetParallax(true)
dim Speed# = 5

while true
  if ScanKeyDown (VK_LEFT) then
    xPlayer=xPlayer-Speed#
    SprSetTexture(mark(1))
  elseif ScanKeyDown (VK_RIGHT) then
    xPlayer=xPlayer+Speed#
    SprSetTexture(mark(3))
    
  elseif ScanKeyDown(VK_UP) then
    yPlayer=yPlayer+Speed#
    SprSetTexture(mark(0))
  elseif ScanKeyDown(VK_DOWN) then
    yPlayer=yPlayer-Speed#
    SprSetTexture(mark(2))
  else
    SPRsettexture(mark(0))
  endif
  SprCameraSetPos(xPlayer-wWin,yPlayer-hWin)
  SprSetPos(xPlayer,yPlayer)
  DRAWTEXT()
wend

[Wayne Rayner]

lol well thats everyone who posted on this thread except for Wayne Rayner (wrayn3). Me

Well I hope your game is finnished soon i want to play it

wayne Rayner

[OW]

I'll probably be using this thread and asking for help about collision detection, spawning enemies and such, so you'll see it happen.

[Wayne Rayner]

Cool I will be watching this thread all the time, to see your game's creation process

Wayne Rayner

[shadow008]

i would help, but i suck with commands that start with spr...

[Darkjester]

did you actually try to make a 2d game? the sprite engine is simpler than opengl so i think its more a matter of someone just wanting 3d games as opposed to 2d games( alot of 3d stuff comes from 2d basics believe me on this ) happy coding -darkjester

[OW]

I still need help. collision detection.

[Wayne Rayner]

well I'm not sure but u do want tilemap detection so for like the 1,2,3 or watever u have for a certain tile number u want to make it ur guy won't go over that certain tile u should check that maze game help topic u know the one I created take the last code and read it.

It has collision detection it could help or u could summon dj linux

Wayne Rayner

[OW]

Guys, I'm starting to take this personally.

I see everyone who logs on in a 24 hour period. DJLinux is always one of them, yet he never posts here.

If he, or anyone else could at least post just to say "Sorry, I can't help you" or "I will help you, but later" that would be fine, but you guys are just flat out ignoring me.