Centipede game progress.

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|574\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Off Topic -> Centipede game progress.
Page : 1 2 Next Prev
Tue, 24 Nov 2015, 21:29
steve_ancell	It's happening... I got my mojo back!!! Got thees buggers navigating the scenery. Need to add some code to prevent the centipedes from biting their own and each other's arses to stop them going ouroboros, but it's getting there. The graphics are still in the placeholder stage, so my apologies for it looking a bit crap. (Linkage!)
Wed, 25 Nov 2015, 07:24
rockford	I do like the look of that, but should centipedes overlap at all? I'd make them turn if there head was about to collide with another 'pede. Is that the type of battlefield you're aiming for? I really like it and it differentiates itself from the original game Glad you've got your mojo back
Wed, 25 Nov 2015, 08:14
Jayenkai	Looks great to me I agree with the "Bounce off each other" sentiment. Codey tip. I'm assuming your "Map" array has 0 for nothing and 1 for block. Add a 2 and 3. 1111 1001 1001 1001 1111 --v when drawing the centipedes, set "where centipede currently is" to 3 1111 1331 1031 1001 1111 --v at the end of each frame, replace 2's with 0s, and move all 3's down to 2's 1111 1221 1021 1001 1111 --v When you next move the centipedes, collide them with 2's like you do 1's. Ignore 3's. 1111 1231 1031 1031 1111 --v That way they're kinda leaving a trail of blocks behind them, which you can collide other passing snakes against. 1111 1021 1021 1021 1111 --v Should work well enough.. I think.. Maybe.. 1111 1021 1031 1331 1111 --v shrugs -=-=- ''Load, Next List!''
Wed, 25 Nov 2015, 08:27
Dabz	Coolio!!! Dabz No gangsters were injured in the making of this post -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Wed, 25 Nov 2015, 08:34
steve_ancell	@rockford: I will be sorting out the overlap thing, I need to do some sort of anti arse-bite code. @Dabz: There will be gangstas in this game, eventually! @Jay: I'm not using a map, I made a parser that allows me to pick from an image atlas and then scale it to size and then put it into a group. Collision is done by detecting the area that each image in a group is in. Sample test level parser list below: Assets: image image_spritesheet, graphics/spritesheet.png image image_scenery, graphics/scenery.png image image_marker, graphics/marker.png Scenery Objects: Top border scenery_group image_scenery, 0, 0 scenery_solid 1 scenery 650, 0, 100, 100, 0, 0, 800, 50 Bottom border scenery_group image_scenery, 0, 550 scenery_solid 1 scenery 650, 0, 100, 100, 0, 0, 800, 50 Left border scenery_group image_scenery, 0, 50 scenery_solid 1 scenery 650, 0, 100, 100, 0, 0, 50, 500 Right border scenery_group image_scenery, 750, 50 scenery_solid 1 scenery 650, 0, 100, 100, 0, 0, 50, 500 scenery_group image_scenery, 200, 150 scenery_solid 1 scenery 650, 0, 100, 100, 0, 0, 400, 50 scenery 650, 0, 100, 100, 0, 250, 400, 50 scenery_group image_scenery, 300, 250 scenery_solid 1 scenery 650, 0, 100, 100, 0, 0, 50, 100 scenery 650, 0, 100, 100, 150, 0, 50, 100 scenery_group image_scenery, 50, 275 scenery_solid 1 scenery 650, 0, 100, 100, 0, 0, 50, 50 scenery 650, 0, 100, 100, 650, 0, 50, 50 Animations: anim anim_player anim_bitmap anim_player, image_spritesheet anim_frame anim_player, 0, 216, 21, 22 anim anim_centipede_head anim_bitmap anim_centipede_head, image_spritesheet anim_frame anim_centipede_head, 0, 41, 21, 21 anim_frame anim_centipede_head, 23, 41, 21, 21 anim_frame anim_centipede_head, 46, 41, 21, 21 anim_frame anim_centipede_head, 69, 41, 21, 21 anim_frame anim_centipede_head, 92, 41, 21, 21 anim_frame anim_centipede_head, 69, 41, 21, 21 anim_frame anim_centipede_head, 46, 41, 21, 21 anim_frame anim_centipede_head, 23, 41, 21, 21 anim anim_centipede_body anim_bitmap anim_centipede_body, image_spritesheet anim_frame anim_centipede_body, 115, 41, 21, 21 anim_frame anim_centipede_body, 138, 41, 21, 21 anim_frame anim_centipede_body, 161, 41, 21, 21 anim_frame anim_centipede_body, 184, 41, 21, 21 anim_frame anim_centipede_body, 207, 41, 21, 21 anim_frame anim_centipede_body, 184, 41, 21, 21 anim_frame anim_centipede_body, 161, 41, 21, 21 anim_frame anim_centipede_body, 138, 41, 21, 21 anim anim_centipede_tail anim_bitmap anim_centipede_tail, image_spritesheet anim_frame anim_centipede_tail, 230, 41, 21, 21 anim_frame anim_centipede_tail, 253, 41, 21, 21 anim_frame anim_centipede_tail, 276, 41, 21, 21 anim_frame anim_centipede_tail, 299, 41, 21, 21 anim_frame anim_centipede_tail, 322, 41, 21, 21 anim_frame anim_centipede_tail, 299, 41, 21, 21 anim_frame anim_centipede_tail, 276, 41, 21, 21 anim_frame anim_centipede_tail, 253, 41, 21, 21 Sprites: sprite sprite_player sprite_anim sprite_player, anim_player sprite sprite_centipede_head sprite_anim sprite_centipede_head, anim_centipede_head sprite sprite_centipede_body sprite_anim sprite_centipede_body, anim_centipede_body sprite sprite_centipede_tail sprite_anim sprite_centipede_tail, anim_centipede_tail Level Data: player sprite_player, 19, 14, 1 --v
Wed, 25 Nov 2015, 08:43
Jayenkai	stuck in the 80s land of using arrays for everything Sorry!!!! -=-=- ''Load, Next List!''
Wed, 25 Nov 2015, 08:45
steve_ancell	The pedes have 4 directions (0, 1, 2, 3) 0 is right, 1 is up, 2 is left, 3 is down. Under the bonnet the pedes move on a square by square basis. There is a field that changes over time which is used as an offset to make the graphics more pixel perfect, when that value reaches zero the square references are moved. The value of the graphic is added based on the direction of each segment. If that makes any sense, I'm better at doing rather than explaining. --- Nothing wrong with arrays Jay.
Wed, 25 Nov 2015, 08:53
steve_ancell	When more graphics get done, all I need to do is tell it to create a group and where I want the top left of that group to be; tell it whether I want the next 1 or more atlas grabs if they're are to be solid or not; tell it to grab each graphic and give them sub-positions. This game isn't gonna be just a simple Centipede game, there's gonna be a lot of twist to it. --- This game will also be a 4-direction scroller.
Wed, 25 Nov 2015, 09:20
steve_ancell	Here's what the pede class looks like Jay, I'm not sure if it helps me explain much though. Class C_Centipede extends C_Actor Field partList:C_CentipedePart[] Field animTimer:C_Timer Field moveTimer:C_Timer Field partSpacing:Float Method New(name:String) Self.name = name Self.speed = 1 Self.tween = 0 Self.animTimer = New C_Timer(150) Self.moveTimer = New C_Timer(250) End Method AddPart:Void(name:String, baseColumn:Int, baseRow:Int, direction:Int = 0) Local index:Int Self.partList = Self.partList.Resize(Self.partList.Length() + 1) index = (partList.Length() - 1) Self.partList[index] = New C_CentipedePart(name) Self.partList[index].SetBaseColumn(baseColumn) Self.partList[index].SetBaseRow(baseRow) Self.partList[index].SetDirection(direction) Self.partList[index].scaleX = 1.2 Self.partList[index].scaleY = 1.2 End Method SetPartSpacing:Void(spacing:Float) Self.partSpacing = spacing End Method Draw:Void() Local cpIndex:Int Local testColumnX:Int, testColumnY:Int If Self.partList[0].GetDirection() = 0 testColumnX = (Self.partList[0].GetBaseColumn() + 1) testColumnY = Self.partList[0].GetBaseRow() EndIf If Self.partList[0].GetDirection() = 1 testColumnX = Self.partList[0].GetBaseColumn() testColumnY = (Self.partList[0].GetBaseRow() - 1) EndIf If Self.partList[0].GetDirection() = 2 testColumnX = (Self.partList[0].GetBaseColumn() - 1) testColumnY = Self.partList[0].GetBaseRow() EndIf If Self.partList[0].GetDirection() = 3 testColumnX = Self.partList[0].GetBaseColumn() testColumnY = (Self.partList[0].GetBaseRow() + 1) EndIf For cpIndex = (Self.partList.Length() - 1) To 0 Step -1 Self.partList[cpIndex].Draw(Self.tween) Next End Method Update:Void() Local cpIndex:Int Local direction:Int Local x1:Float, y1:Float Local x2:Float, y2:Float If Self.animTimer.GetTrigger() = 1 For cpIndex = 0 To (Self.partList.Length() - 1) Self.partList[cpIndex].FrameForward() Next EndIf Self.SetTween(Self.GetTween() - (Self.speed * glo_currentDelta)) If Self.GetTween() < 0 Self.SetTween(21) Self.TestScenery() Self.MoveBase(Self.direction) Self.partList[0].SetAngle(Self.GetDirection() * 90) EndIf Self.partList[0].SetTween(Self.GetTween()) For cpIndex = 1 To (Self.partList.Length() - 2) Self.partList[cpIndex].SetTween(Self.GetTween()) x1 = Self.partList[cpIndex + 1].GetSpriteX() y1 = Self.partList[cpIndex + 1].GetSpriteY() x2 = Self.partList[cpIndex - 1].GetSpriteX() y2 = Self.partList[cpIndex - 1].GetSpriteY() Self.partList[cpIndex].SetAngle(F_GetAngle(x1, y1, x2, y2)) Next x1 = Self.partList[cpIndex].GetSpriteX() y1 = Self.partList[cpIndex].GetSpriteY() x2 = Self.partList[cpIndex - 1].GetSpriteX() y2 = Self.partList[cpIndex - 1].GetSpriteY() Self.partList[Self.partList.Length() - 1].SetTween(Self.GetTween()) Self.partList[Self.partList.Length() - 1].SetAngle(F_GetAngle(x1, y1, x2, y2)) End Method TestScenery:Void() Local currentColumm:Int, currentRow:Int Local testColumn:Int, testRow:Int Local columnSize:Float, rowSize:Float Local testX:Float, testY:Float Local desision:Int Local collisionRect:C_Area Local otherCollision:Int = 0 currentColumm = Self.partList[0].GetBaseColumn() currentRow = Self.partList[0].GetBaseRow() columnSize = Self.partList[0].GetBaseWidth() rowSize = Self.partList[0].GetBaseHeight() testX = (currentColumm * columnSize) testY = (currentRow * rowSize) desision = F_GetRandomDecision(0, 1) If Self.GetDirection() = 0 If F_RectSceneryCollide(testX + columnSize, testY, columnSize, rowSize) If F_RectSceneryCollide(testX, testY - rowSize, columnSize, rowSize) And F_RectSceneryCollide(testX, testY + rowSize, columnSize, rowSize) Self.SetDirection(2) EndIf If F_RectSceneryCollide(testX, testY - rowSize, columnSize, rowSize) Self.SetDirection(3) EndIf If F_RectSceneryCollide(testX, testY + rowSize, columnSize, rowSize) Self.SetDirection(1) EndIf If Not F_RectSceneryCollide(testX, testY - rowSize, columnSize, rowSize) And Not F_RectSceneryCollide(testX, testY + rowSize, columnSize, rowSize) If desision = 0 Self.SetDirection(1) EndIf If desision = 1 Self.SetDirection(3) EndIf EndIf EndIf EndIf If Self.GetDirection() = 1 If F_RectSceneryCollide(testX, testY - rowSize, columnSize, rowSize) If F_RectSceneryCollide(testX - columnSize, testY, columnSize, rowSize) And F_RectSceneryCollide(testX + columnSize, testY, columnSize, rowSize) Self.SetDirection(3) EndIf If F_RectSceneryCollide(testX - columnSize, testY, columnSize, rowSize) Self.SetDirection(0) EndIf If F_RectSceneryCollide(testX + columnSize, testY, columnSize, rowSize) Self.SetDirection(2) EndIf If Not F_RectSceneryCollide(testX - columnSize, testY, columnSize, rowSize) And Not F_RectSceneryCollide(testX + columnSize, testY, columnSize, rowSize) If desision = 0 Self.SetDirection(2) EndIf If desision = 1 Self.SetDirection(0) EndIf EndIf EndIf EndIf If Self.GetDirection() = 2 If F_RectSceneryCollide(testX - columnSize, testY, columnSize, rowSize) If F_RectSceneryCollide(testX, testY - rowSize, columnSize, rowSize) And F_RectSceneryCollide(testX, testY + rowSize, columnSize, rowSize) Self.SetDirection(0) EndIf If F_RectSceneryCollide(testX, testY - rowSize, columnSize, rowSize) Self.SetDirection(3) EndIf If F_RectSceneryCollide(testX, testY + rowSize, columnSize, rowSize) Self.SetDirection(1) EndIf If Not F_RectSceneryCollide(testX, testY - rowSize, columnSize, rowSize) And Not F_RectSceneryCollide(testX, testY + rowSize, columnSize, rowSize) If desision = 0 Self.SetDirection(3) EndIf If desision = 1 Self.SetDirection(1) EndIf EndIf EndIf EndIf If Self.GetDirection() = 3 If F_RectSceneryCollide(testX, testY + rowSize, columnSize, rowSize) If F_RectSceneryCollide(testX - columnSize, testY, columnSize, rowSize) And F_RectSceneryCollide(testX + columnSize, testY, columnSize, rowSize) Self.SetDirection(3) EndIf If F_RectSceneryCollide(testX - columnSize, testY, columnSize, rowSize) Self.SetDirection(0) EndIf If F_RectSceneryCollide(testX + columnSize, testY, columnSize, rowSize) Self.SetDirection(2) EndIf If Not F_RectSceneryCollide(testX - columnSize, testY, columnSize, rowSize) And Not F_RectSceneryCollide(testX + columnSize, testY, columnSize, rowSize) If desision = 0 Self.SetDirection(0) EndIf If desision = 1 Self.SetDirection(2) EndIf EndIf EndIf EndIf End Method MoveBase:Void(direction:Int) Local cpIndex:Int For cpIndex = (Self.partList.Length() - 1) To 1 Step -1 Self.partList[cpIndex].SetBaseColumn(Self.partList[cpIndex - 1].GetBaseColumn()) Self.partList[cpIndex].SetBaseRow(Self.partList[cpIndex - 1].GetBaseRow()) Self.partList[cpIndex].SetDirection(Self.partList[cpIndex - 1].GetDirection()) Next Self.partList[0].SetDirection(Self.direction) If Self.partList[0].GetDirection() = 0 Self.partList[0].SetBaseColumn(Self.partList[0].GetBaseColumn() + 1) EndIf If Self.partList[0].GetDirection() = 1 Self.partList[0].SetBaseRow(Self.partList[0].GetBaseRow() - 1) EndIf If Self.partList[0].GetDirection() = 2 Self.partList[0].SetBaseColumn(Self.partList[0].GetBaseColumn() - 1) EndIf If Self.partList[0].GetDirection() = 3 Self.partList[0].SetBaseRow(Self.partList[0].GetBaseRow() + 1) EndIf End End --v --- In the Draw() method some of that code is for debugging puroses, so anything other than the For/Next loop is now obsolete.
Wed, 25 Nov 2015, 09:27
Jayenkai	Eeeuw.. Object orientated neatly laid out code!!? .. That's nothing like my work -=-=- ''Load, Next List!''
Wed, 25 Nov 2015, 09:33
steve_ancell	Yeah I know, I always did like doing stuff a bit of a weird way. --- Nothing wrong with your code though Jay, at least your's works nearly all the time.
Wed, 25 Nov 2015, 09:36
steve_ancell	What I do is always a product of procrastination.
Wed, 25 Nov 2015, 10:28
rockford	stuck in the 80s land of using arrays for everything I hear you. And then some! That's why I like creating puzzle games - arrays are sooo easy to deal with and very fast
Wed, 25 Nov 2015, 11:14
Dabz	stuck in the 80s land of using arrays for everything When I first used Blitz I used arrays for everything, gosubs, goto's and then... Then... I discovered functions, types and lists! I was like.... WOW!!! Now though, I see all these new fangled features getting implemented, and understand them, but I think to myself... What the hell do I need them for! And I think GLBasic proves you dont, GLBasic is a nice old school syntax setup, nothing to make you need to take a course in a BTEC National Certificate in Modern Programming Bollocks Level II, and that setup churns out games for fun, Qubes Elite type app was excellent, no reflection, interfaces and all that jazz, just a good old solid language with plenty of gumph behind it! And as it soooooo happens, I've had a little rant here about the same thing:- www.blitzbasic.com/Community/post.php?topic=105361&post=1283377 Day I've had, I would've had a proper Turkey/Russian style rant with a tomato! Dabz -=-=- Intel Core i5 6400 2.7GHz, NVIDIA GeForce GTX 1070 (8GB), 8Gig DDR4 RAM, 256GB SSD, 1TB HDD, Windows 10 64bit
Wed, 25 Nov 2015, 11:16
Jayenkai	IMO, as long as the end result works, it doesn't matter how you get there. ... Having said that, Steve's code is at least readable Mine's a case of ... "Well, >I< know what it does!!!" -=-=- ''Load, Next List!''
Wed, 25 Nov 2015, 11:46
steve_ancell	Just updated the link. I've done some arse-bite correction code, it sort of works but spazzes out a bit. --- Commenting?... Wot's that! \|edit\| I posted this after rockford's last, or should I say next, post BTW! \|edit\|
Wed, 25 Nov 2015, 11:47
rockford	Arrays. Functions. Types. Who needs anything else? And yeah, for personal projects beautifying code isn't necessary. My code is laid out logically and in functions and types, with clear and obvious names and commenting. I know that I can leave my code and come back to it and still understand what each part does.
Thu, 26 Nov 2015, 14:01
cyangames	I was recently told by the guy who took over my role at Ye Olde Refresh Creations that my web code read like a story. Not sure if that's a compliment or not, but I never really wrote it to be read by anyone else hehe! Still, my old, OLD code was bloody shocking, variable names all over the place! -=-=- Web / Game Dev, occasionally finishes off coding games also!
Fri, 27 Nov 2015, 12:00
steve_ancell	Now that things have calmed down a bit I might get back to coding this either tonight or tomorrow, I have really itchy coder's fingers.
Fri, 27 Nov 2015, 12:16
Jayenkai	Don't overdo it, though!!
Fri, 27 Nov 2015, 16:01
steve_ancell	OKies
Sat, 28 Nov 2015, 04:19
steve_ancell	Back in the coding seat, I'm gonna have another go at this worm-on-worm collision problem.
Sat, 28 Nov 2015, 05:43
steve_ancell	Sat at the computer and something small, round and fluffy came flying up the stairs and landed on my nut. --- And is now sitting on my finger and nibbling my nose.
Sat, 28 Nov 2015, 05:45
Jayenkai	Trouble with Tribbles...
Sat, 28 Nov 2015, 05:50
steve_ancell	Na! not Tribbles, it's Beaky's beak. She sort of looked at my nose and probably thought 'ah!, chewy toy' --- I've put her back in the cage now, she's been out nearly all day. I usually leave her out all the time when I'm home, but try coding with a bird climbing all over you. LOL
Sat, 28 Nov 2015, 16:40
cyangames	Like this? www.geek.com/news/chinese-tech-companies-are-motivating-programmers-by-hiring-cheerleaders-1631794/ -=-=- Web / Game Dev, occasionally finishes off coding games also!
Page : 1 2 Next Prev