TheGameCreators - CodeBase - simulating physics

Return to the CodeBase listing

Category: Math / Physics

Version: 1.0

Information

Uploaded: 15th Feb 2012 10:40

Modified: 15th Feb 2012 10:48

Author: basjak

Summary

simple AGK application that shows how to attach 800 sprite to its base shape then deliver it to the physics engine

Full Description

AGK Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

setclearcolor(125,25,25)

setvirtualresolution(640,480)

dim file [3] as string = ["","ball1.png","box.png","triangle.png"]

setrandomseed(timer())

#constant circle  1

#constant box     2

#constant polygon 3

#constant static  1

#constant dynamic 2

#constant kinematic 3

`static sprites

sb1 = make_sprite("ball1.png",32,240,circle,static,64,64)

sb2 = make_sprite("triangle.png",180,240,polygon,static,64,64)

sb3 = make_sprite("triangle.png",330,240,polygon,static,64,64)

sb4 = make_sprite("triangle.png",470,240,polygon,static,64,64)

sb5 = make_sprite("ball1.PNG",608,240,circle,static,64,64)

`dynamic sprites

first_sprite = make_sprite(file[random(1,3)],random(0,640),random(0,200),random(circle,polygon),dynamic,16,16)

for i = 1 to 800

file_to_pick = random(1,3)

last_sprite = make_sprite(file[file_to_pick],random(0,640),random(0,200),file_to_pick,dynamic,16,16)

setspritephysicsimpulse(random(first_sprite,last_sprite),0,random(0,1080),0,random(0,520))

Sync()

loop

function make_sprite(imgfile$,x#,y#,shapemode,physicsmode,scalex#,scaley#)

sp_no = createsprite(loadimage(imgfile$,0))

setspritepositionbyoffset(sp_no,x#,y#)

setspritesize(sp_no,scalex#,scaley#)

setspriteshape(sp_no,shapemode)

setspritecolor(sp_no,random(0,255),random(0,255),random(0,255),255)

setspritephysicson(sp_no,physicsmode)

setspritephysicsrestitution(sp_no, .4)

setspritephysicsfriction(sp_no, 1)

endfunction sp_no

Download

Please login to download

Comments

No comments yet.

Author Name:	basjak
CodeBase Entries:	1

CodeBase - simulating physics