WM008 - Balls! - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|541\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> WM008 - Balls!
Tue, 22 Apr 2008, 16:14
Jayenkai	Workshop Monthly #008 : Balls! Time until Deadline Month : 23 April 2008 to 21 May 2008 The Reason : Another nice simple idea The Challenge : Make a game with balls! Extra Info Footballs, Baseballs, Basketballs, Bouncy Balls (Superballs!), Balls of paper, Balls of slime.. Any ball fits! Standard Rules The rules are pretty much the same as a standard workshop, except you have a bit longer! This workshop closes on May 21st, 00:00 GMT. (That's so that we can start a fresh one on a Wednesday!) Entries should be posted as Showcases, then noted in the forum below. -=-=- ''Load, Next List!''
Wed, 23 Apr 2008, 19:36
Scherererer	Graphics3D 800,600,32,2 SeedRnd MilliSecs() Const t_Cube = 1, t_Ball = 2 Global cam = CreateCamera() PositionEntity cam, 0, 0, -50 light = CreateLight(2) LightRange light, 25 bigcube = CreateCube() FlipMesh bigcube EntityAlpha bigcube, .25 ScaleEntity bigcube, 30, 30, 30 EntityType bigcube, t_Cube EntityPickMode bigcube, 2 Type Ball Field obj Field mb[4] Field x#, y#, z# Field xv#, yv#, zv# Field r, g, b End Type Function CreateBall.Ball(r, g, b, x#, y#, z#, randvel=False) b1.Ball = New Ball b1\obj = CreateSphere() EntityColor b1\obj, r, g, b b1\r = r : b1\g = g : b1\b = b PositionEntity b1\obj, x#, y#, z# EntityType b1\obj, t_Ball EntityRadius b1\obj, 1 For i = 0 To 3 b1\mb[i] = CopyEntity(b1\obj) EntityAlpha b1\mb[i], .2(3-i) Next If (randvel=True) b1\xv# = Rnd#(.25,1) b1\yv# = Rnd#(.25,1) b1\zv# = Rnd#(.25,1) EndIf Return b1 End Function Function UpdateBall.Ball(b.Ball) If (EntityCollided(b\obj, t_Cube)) If (Abs(EntityX(b\obj)) >= 28) Then b\xv# = -b\xv# If (Abs(EntityY(b\obj)) >= 28) Then b\yv# = -b\yv# If (Abs(EntityZ(b\obj)) >= 28) Then b\zv# = -b\zv# EndIf MoveEntity(b\obj, b\xv#, b\yv#, b\zv#) For i = 0 To 3 PositionEntity b\mb[i], -(Abs(b\xv#)(i+1)Sgn(b\xv#))+EntityX#(b\obj), -(Abs(b\yv#)(i+1)Sgn(b\yv#))+EntityY#(b\obj), -(Abs(b\zv#)(i+1)*Sgn(b\zv#))+EntityZ#(b\obj) Next CameraProject cam, 0, 0, 0 x1= ProjectedX() : y1 = ProjectedY() CameraProject cam, EntityX#(b\obj), EntityY#(b\obj), EntityZ#(b\obj) Color b\r, b\g, b\b Line ProjectedX(), ProjectedY(), x1, y1 Return b End Function Const NUMBALLS = 15 For i=0 To NUMBALLS CreateBall(Rand(255), Rand(255), Rand(255), 0,0,0, True) Next mir = CreateMirror() PositionEntity mir, 0, -29, 0 mir = CreateMirror() PositionEntity mir, 0, 29, 0 mir = CreateMirror() RotateEntity mir, 90, 0, 0 PositionEntity mir, 0, 0, 29 Collisions t_Ball, t_Cube, 2, 2 While Not KeyDown(1) UpdateWorld RenderWorld For b.Ball = Each Ball UpdateBall(b) Next b1.Ball = Last Ball Flip Wend End --v Not a game, just entering it for people to play with if they want to. Just a bunch of balls bouncing around in a 3d cube with a kinda faked motion blur and random lines. -=-=- YouTube Twitter Computer Science Series: Logic (pt1) (part 2) (part 3) 2's Complement Mathematics: Basic Differential Calculus