TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 15th Sep 2004 09:18

Modified: 16th Sep 2004 23:08

Author: Dot Merix

Summary

The bullet will start within a box, and shoot to either an object or to the mouse.

Full Description

Move to the left or right, up and down with the arrow keys to move the box. If you press shift, the bullet will fly from the box to the sphere on the screen(bullet to object).<br /> <br /> If you click the mouse, the bullet will fly to the last position of the mouse and stay there until you click again.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

make object sphere 2,.1

make object sphere 3,.2

make object cube 1,.5

move object down 1,.5

move object up 2,.8

move object left 2,.8

hide object 3

sync on

sync rate 60

if upkey() = 1

move object up 1, .1

endif

if downkey() = 1

move object down 1, .1

endif

if rightkey() = 1

move object right 1,.1

endif

if leftkey() = 1

move object left 1,.1

endif

if shiftkey() = 1

x#=object position x(1)

y#=object position y(1)

z#=object position z(1)

ox# = object position x(2)

oy#=object position y(2)

oz#=object position z(2)

osx# = object screen x(2)

osy# = object screen y(2)

position object 3,x#,y#,z#

point object 3, ox#,oy#,oz#

show object 3

global bullet=1

endif

if mouseclick() = 1

x#=object position x(1)

y#=object position y(1)

z#=object position z(1)

mx = mousex()

my = mousey()

fix object pivot 3

position object 3, x#,y#,z#

show object 3

global bullet=2

endif

if bullet = 1

gosub bulletfollowobject

endif

if bullet = 2

gosub bulletfollowmouse

endif

if object hit (2,3) then print "collision!"

if object collision(2,3) then print "collision"

sync:loop

bulletfollowobject:

if object screen x(3) <> osx#

move object 3,.1

endif

if object screen y(3) <> osy#

move object 3,.1

endif

if object collision (3,2)

bullet = 0

endif

return

bulletfollowmouse:

if object screen x(3) > mx

move object left 3,.1

endif

if object screen y(3) < my

move object down 3,.1

endif

if object screen x(3) < mx

move object right 3,.1

endif

if object screen y(3) > my

move object up 3,.1

endif

return

Download

Please login to download

Comments

No comments yet.

CodeBase - Bullet follow

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments

Author Name:	Dot Merix
CodeBase Entries:	2