Worklog for BlueWolf

Worklog 1

Verlet Physics

(Posted 2004-01-15)

Besides my breakout clone I have started a project which I started to think is a little bit too ambitious for my skill level. I am having some problems with object and handle because of my lack of skill and information. Right now it consists of a few functions

CreateParticle(parameters)
CreateConstraint(Parameters)
UpdateConstraints()
P_Update
AttatchVertex()
AttatchVertices()

I think it will prove quite useful in a vehicular game or with some twinks a single surface particle system. The best part is that if I ever get it commented and working at an acceptable level I will post it in the code arcs. but that's only if i get these Object and Handle issues sorted out.

Breakout

(Posted 2004-01-12)

I started a breakout clone today which although right now has archaic graphics and rough gameplay will(hopefully) have some cool 3D meshes with cubemapping,vertex lighting and like in place of my ugly sprites.

so far it looks like this

 
Type Block ;Type for block
	Field x#,y# ;x,y positions of the blocks
	Field ifhit% ;0 if not hit 1 for every hit after
	Field red,green,blue ;RGB color values
	Field blck% ;the block graphic
End Type

Type Ball ;Type for the bouncy ball
	Field x#,y# ;the x,y of the ball
	Field ifhit%;if hitting=1 otherwise=0
End Type

Type Paddle ;the player type
	Field x#,y# ;the position of the ball
	Field Ifhit ;if touching ball=1 otherwise=0
	Field pong; the paddle graphic
End Type

;Do some functions
CreateBlocks()
;CreatePaddle()
;CreateBall()

camera=CreateCamera()
PositionEntity camera,0,0,-5

light=CreateLight()
PositionEntity light,-3,5,-5

While Not KeyDown(1)
;MovePaddle()
;UpdateBall()
;UpdatePaddle()

UpdateWorld
RenderWorld

Flip
Wend
End

Function CreateBlocks()
	tempx=0
	tempy=300
	For i=0 To lvl1
		
		block.block=New Block
		block\x=tempx
		block\y=tempy
		block\ifhit=0
		block\red=Rnd(0,255)
		block\green=Rnd(0,255)
		block\blue=Rnd(0,255)
		block\blck=LoadSprite("sprite.png") 
		
		ScaleSprite block\blck,2,2 
		PositionEntity block\blck,block\x,block\y,10
		EntityColor block\blck,block\red,block\green,block\blue
	
	Next
	
End Function 		  

Function CreatePaddle()
	
	paddle.paddle=New paddle
	paddle\x=400
	paddle\y=2
	paddle\pong=LoadSprite("paddle.png")
	
	PositionEntity paddle\pong,paddle\x,paddle\y,0
	
End Function

So yes it is a long way from done. So far it has been a very good project to learn from and that is what I am after