DBP - 2 player football - GameCreators Forum

Author

Message

Kohaku

20

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 15th Jul 2007 14:53

Link

This is a small, uber-simple 2 player game of football. The aim is of course to get the ball into the oppositions goal.

WASD moves player 1, arrow keys move player 2.

Simple, yet fun!

`change these to make things more interesting
goalsize = 20
ballangle = 360 / 32

`setup
sync on : sync rate 60
backdrop on : color backdrop rgb(0,155,0)
fog color rgb(28, 73, 140)
set camera range 10, 10000
fog distance 10000
set text font "arial bold" : set text size 20 : set text transparent : ink 0,0

global Looptime : Global lastTime : UpdateDelta()
autocam off

xrotate camera 90
move camera -100
`start coding
ball = makesphere(7)
ballspeed as float
`ballhit as float
`ballhit = 3

player1 = makesphere(10)
position object player1, -70, 0, 0
color object player1, rgb(255,0,0)

player2 = makesphere(10)
position object player2, 70, 0, 0
color object player2, rgb(0,0,255)

speed as float
speed = 2

goalsize = 20
goal1 = makecube(goalsize)
position object goal1, -80, 0, 0
scale object goal1, 50, 50, 100

goal2 = makecube(goalsize)
position object goal2, 80, 0, 0
scale object goal2, 50, 50, 100

do
	UpdateDelta()
	
	if keystate(17)
		position object player1, object position x(player1), object position y(player1), object position z(player1) + delta(speed)
	endif
	if keystate(31)
		position object player1, object position x(player1), object position y(player1), object position z(player1) - delta(speed)
	endif
	if keystate(30)
		position object player1, object position x(player1) - delta(speed), object position y(player1), object position z(player1)
	endif
	if keystate(32)
		position object player1, object position x(player1)+ delta(speed), object position y(player1), object position z(player1)
	endif
	
	if upkey()
		position object player2, object position x(player2), object position y(player2), object position z(player2) + delta(speed)
	endif
	if downkey()
		position object player2, object position x(player2), object position y(player2), object position z(player2) - delta(speed)
	endif
	if leftkey()
		position object player2, object position x(player2) - delta(speed), object position y(player2), object position z(player2)
	endif
	if rightkey()
		position object player2, object position x(player2)+ delta(speed), object position y(player2), object position z(player2)
	endif
	
	if object collision(ball, player1)
		point object ball, object position x(player1), object position y(player1), object position z(player1)
		yrotate object ball, object angle y(ball)+180
		a = object angle y(ball) / ballangle
		yrotate object ball, a*ballangle
		ballspeed = speed
	endif
	
	if object collision(ball, player2)
		point object ball, object position x(player2), object position y(player2), object position z(player2)
		yrotate object ball, wrapvalue(object angle y(ball)+180)
		a = object angle y(ball) / ballangle
		yrotate object ball, a*ballangle
		ballspeed = speed
	endif
	
	if ballspeed > 0
		dec ballspeed, 0.05
		move object ball, delta(ballspeed)
	endif
	
	if object in screen(ball) = 0
		position object ball, 0, 0, 0
	endif
	
	if object collision(ball, goal1)
		inc player2score
		position object ball, 0, 0, 0
	endif
	if object collision(ball, goal2)
		inc player1score
		position object ball, 0, 0, 0
	endif
	
	
	text 10, 10, "RED: " + str$(player1score)
	text screen width()-text width("BLUE: " + str$(player2score)) - 10, 10, "BLUE: " + str$(player2score)
	sync
loop

end

`Delta
Function UpdateDelta()
TheTimer=Timer()
LoopTime=TheTimer-lastTime
lastTime=TheTimer
Endfunction

Function Delta(Value1#)
 	ResultValue#=Value1#*0.060*Looptime
Endfunction ResultValue#

Function MakeSphere(Size#)
	Numbre=FreeObject()
	if Numbre>TopObject then TopObject=Numbre
	make object sphere Numbre, Size#
	
	if Numbre > MaxObjects
		MaxObjects = Numbre
	endif
	
Endfunction Numbre

Function MakeCube(Size#)
	Numbre=FreeObject()
	if Numbre>TopObject then TopObject=Numbre
	make object cube Numbre, Size#
	
	if Numbre > MaxObjects
		MaxObjects = Numbre
	endif
	
Endfunction Numbre

function FreeObject()
	repeat
		inc i 
		if object exist(i)=0 then found=1
	until found
endfunction i

Function ObjectExist(Numbre)
	i=0
	if Numbre>0
		if Object Exist(Numbre)
			i=1
		endif
	endif
endfunction i

+ Code Snippet

`change these to make things more interesting
goalsize = 20
ballangle = 360 / 32

`setup
sync on : sync rate 60
backdrop on : color backdrop rgb(0,155,0)
fog color rgb(28, 73, 140)
set camera range 10, 10000
fog distance 10000
set text font "arial bold" : set text size 20 : set text transparent : ink 0,0

global Looptime : Global lastTime : UpdateDelta()
autocam off

xrotate camera 90
move camera -100
`start coding
ball = makesphere(7)
ballspeed as float
`ballhit as float
`ballhit = 3

player1 = makesphere(10)
position object player1, -70, 0, 0
color object player1, rgb(255,0,0)

player2 = makesphere(10)
position object player2, 70, 0, 0
color object player2, rgb(0,0,255)

speed as float
speed = 2

goalsize = 20
goal1 = makecube(goalsize)
position object goal1, -80, 0, 0
scale object goal1, 50, 50, 100

goal2 = makecube(goalsize)
position object goal2, 80, 0, 0
scale object goal2, 50, 50, 100

do
	UpdateDelta()
	
	if keystate(17)
		position object player1, object position x(player1), object position y(player1), object position z(player1) + delta(speed)
	endif
	if keystate(31)
		position object player1, object position x(player1), object position y(player1), object position z(player1) - delta(speed)
	endif
	if keystate(30)
		position object player1, object position x(player1) - delta(speed), object position y(player1), object position z(player1)
	endif
	if keystate(32)
		position object player1, object position x(player1)+ delta(speed), object position y(player1), object position z(player1)
	endif
	
	if upkey()
		position object player2, object position x(player2), object position y(player2), object position z(player2) + delta(speed)
	endif
	if downkey()
		position object player2, object position x(player2), object position y(player2), object position z(player2) - delta(speed)
	endif
	if leftkey()
		position object player2, object position x(player2) - delta(speed), object position y(player2), object position z(player2)
	endif
	if rightkey()
		position object player2, object position x(player2)+ delta(speed), object position y(player2), object position z(player2)
	endif
	
	if object collision(ball, player1)
		point object ball, object position x(player1), object position y(player1), object position z(player1)
		yrotate object ball, object angle y(ball)+180
		a = object angle y(ball) / ballangle
		yrotate object ball, a*ballangle
		ballspeed = speed
	endif
	
	if object collision(ball, player2)
		point object ball, object position x(player2), object position y(player2), object position z(player2)
		yrotate object ball, wrapvalue(object angle y(ball)+180)
		a = object angle y(ball) / ballangle
		yrotate object ball, a*ballangle
		ballspeed = speed
	endif
	
	if ballspeed > 0
		dec ballspeed, 0.05
		move object ball, delta(ballspeed)
	endif
	
	if object in screen(ball) = 0
		position object ball, 0, 0, 0
	endif
	
	if object collision(ball, goal1)
		inc player2score
		position object ball, 0, 0, 0
	endif
	if object collision(ball, goal2)
		inc player1score
		position object ball, 0, 0, 0
	endif
	
	
	text 10, 10, "RED: " + str$(player1score)
	text screen width()-text width("BLUE: " + str$(player2score)) - 10, 10, "BLUE: " + str$(player2score)
	sync
loop

end

`Delta
Function UpdateDelta()
TheTimer=Timer()
LoopTime=TheTimer-lastTime
lastTime=TheTimer
Endfunction

Function Delta(Value1#)
 	ResultValue#=Value1#*0.060*Looptime
Endfunction ResultValue#

Function MakeSphere(Size#)
	Numbre=FreeObject()
	if Numbre>TopObject then TopObject=Numbre
	make object sphere Numbre, Size#
	
	if Numbre > MaxObjects
		MaxObjects = Numbre
	endif
	
Endfunction Numbre

Function MakeCube(Size#)
	Numbre=FreeObject()
	if Numbre>TopObject then TopObject=Numbre
	make object cube Numbre, Size#
	
	if Numbre > MaxObjects
		MaxObjects = Numbre
	endif
	
Endfunction Numbre

function FreeObject()
	repeat
		inc i 
		if object exist(i)=0 then found=1
	until found
endfunction i

Function ObjectExist(Numbre)
	i=0
	if Numbre>0
		if Object Exist(Numbre)
			i=1
		endif
	endif
endfunction i

You are not alone.

Back to top

Profile PM Website

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 16th Jul 2007 02:45

Link

Quote: "The aim is of course to get the ball into the oppositions goal."

Really? lol that was pretty fun

Back to top

Profile PM Email

HeavyAmp

18

Years of Service

User Offline

Joined: 25th Oct 2006

Location: Castle in the Sky!

Posted: 17th Jul 2007 05:32

Link

I enjoyed that. Well Done making this

In theory, there is no difference between theory and practice. But, in practice, there is.

Back to top

Profile PM

Turoid

21

Years of Service

User Offline

Joined: 1st Nov 2003

Location: The Netherlands

Posted: 17th Jul 2007 18:04

Link

Cool game. Maybe you can try to add a very basic cpu controlled player, would be awesome

I am awesome and always right.

Back to top

Profile PM

Kohaku

20

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 22nd Jul 2007 19:00

Link

Glad you all like it.

Quote: "Maybe you can try to add a very basic cpu controlled player"

I think it's way more fun to play this with someone else personally, but I'm working on other projects now anyway. This really was just made for some quick fun.

You are not alone.

Back to top

Profile PM Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 22nd Jul 2007 19:28 Edited at: 22nd Jul 2007 19:48

Link

I've edited the code for DBC users, just testing it now

[EDIT]
Can't get it to detect collisions

, this is as far as I could get so if someone who knows 3D wants to take it up here's the code as far as I could translate it.

`change these to make things more interesting
goalsize# = 20
ballangle# = 360 / 32

`setup
sync on : sync rate 60
backdrop on : color backdrop rgb(0,155,0)
fog color rgb(28, 73, 140)
set camera range 10, 10000
fog distance 10000
set text font "arial bold" : set text size 20 : set text transparent : ink 0,0

DIM LoopTime(0) : DIM LastTime(0) : UpdateDelta()
autocam off
set global collision on

xrotate camera 90
move camera -100
`start coding
ball = makesphere(7.0)
set object collision to spheres ball
ballspeed# = 4
`ballhit as float
`ballhit = 3

player1 = makesphere(10.0)
position object player1, -70, 0, 0
color object player1, rgb(255,0,0)
set object collision to spheres player1

player2 = makesphere(10.0)
position object player2, 70, 0, 0
color object player2, rgb(0,0,255)
set object collision to spheres player2

speed# = 2.0

goalsize# = 20.0
goal1 = makecube(goalsize#)
position object goal1, -80, 0, 0
scale object goal1, 50, 50, 100

goal2 = makecube(goalsize#)
position object goal2, 80, 0, 0
scale object goal2, 50, 50, 100

do
   UpdateDelta()
   SpeedforZ# = delta(speed#)
   if keystate(17)
      position object player1, object position x(player1), object position y(player1), object position z(player1) + SpeedforZ#
   endif
   if keystate(31)
      position object player1, object position x(player1), object position y(player1), object position z(player1) - SpeedforZ#
   endif
   if keystate(30)
      position object player1, object position x(player1) - SpeedforZ#, object position y(player1), object position z(player1)
   endif
   if keystate(32)
      position object player1, object position x(player1)+ SpeedforZ#, object position y(player1), object position z(player1)
   endif

if upkey()
      position object player2, object position x(player2), object position y(player2), object position z(player2) + SpeedforZ#
   endif
   if downkey()
      position object player2, object position x(player2), object position y(player2), object position z(player2) - SpeedforZ#
   endif
   if leftkey()
      position object player2, object position x(player2) - SpeedforZ#, object position y(player2), object position z(player2)
   endif
   if rightkey()
      position object player2, object position x(player2)+ SpeedforZ#, object position y(player2), object position z(player2)
   endif

if object collision(ball, player1)
      point object ball, object position x(player1), object position y(player1), object position z(player1)
      yrotate object ball, wrapvalue(object angle y(ball)+180)
      a# = object angle y(ball) / ballangle#
      yrotate object ball, a#*ballangle#
      ballspeed# = speed#
   endif

if object collision(ball, player2)
      point object ball, object position x(player2), object position y(player2), object position z(player2)
      yrotate object ball, wrapvalue(object angle y(ball)+180)
      a# = object angle y(ball) / ballangle#
      yrotate object ball, a#*ballangle#
      ballspeed# = speed#
   endif

if ballspeed# > 0
      dec ballspeed#, 0.05
      move object ball, delta(ballspeed#)
   endif

if object in screen(ball) = 0
      position object ball, 0, 0, 0
   endif

if object collision(ball, goal1)
      inc player2score
      position object ball, 0, 0, 0
   endif
   if object collision(ball, goal2)
      inc player1score
      position object ball, 0, 0, 0
   endif

text 10, 10, "RED: " + str$(player1score)
   text screen width()-text width("BLUE: " + str$(player2score)) - 10, 10, "BLUE: " + str$(player2score)
   sync

set cursor 0,0
print LoopTime(0) ; "   " ; lasttime(0)
loop

end

`Delta
Function UpdateDelta()
TheTimer=Timer()
LoopTime(0)=TheTimer-LastTime(0)
LastTime(0)=TheTimer
Endfunction

Function Delta(Value1#)
    ResultValue#=Value1#*0.06*LoopTime(0)
Endfunction ResultValue#

Function MakeSphere(Size#)
   Numbre=FreeObject()
   if Numbre>TopObject then TopObject=Numbre
   make object sphere Numbre, Size#

if Numbre > MaxObjects
      MaxObjects = Numbre
   endif

Endfunction Numbre

Function MakeCube(Size#)
   Numbre=FreeObject()
   if Numbre>TopObject then TopObject=Numbre
   make object cube Numbre, Size#

if Numbre > MaxObjects
      MaxObjects = Numbre
   endif

Endfunction Numbre

function FreeObject()
   repeat
      inc i
      if object exist(i)=0 then found=1
   until found
endfunction i

Function ObjectExist(Numbre)
   i=0
   if Numbre>0
      if Object Exist(Numbre)
         i=1
      endif
   endif
endfunction i

+ Code Snippet

`change these to make things more interesting
goalsize# = 20
ballangle# = 360 / 32

`setup
sync on : sync rate 60
backdrop on : color backdrop rgb(0,155,0)
fog color rgb(28, 73, 140)
set camera range 10, 10000
fog distance 10000
set text font "arial bold" : set text size 20 : set text transparent : ink 0,0

DIM LoopTime(0) : DIM LastTime(0) : UpdateDelta()
autocam off
set global collision on

xrotate camera 90
move camera -100
`start coding
ball = makesphere(7.0)
set object collision to spheres ball
ballspeed# = 4
`ballhit as float
`ballhit = 3

player1 = makesphere(10.0)
position object player1, -70, 0, 0
color object player1, rgb(255,0,0)
set object collision to spheres player1

player2 = makesphere(10.0)
position object player2, 70, 0, 0
color object player2, rgb(0,0,255)
set object collision to spheres player2

speed# = 2.0

goalsize# = 20.0
goal1 = makecube(goalsize#)
position object goal1, -80, 0, 0
scale object goal1, 50, 50, 100

goal2 = makecube(goalsize#)
position object goal2, 80, 0, 0
scale object goal2, 50, 50, 100

do
   UpdateDelta()
   SpeedforZ# = delta(speed#)
   if keystate(17)
      position object player1, object position x(player1), object position y(player1), object position z(player1) + SpeedforZ#
   endif
   if keystate(31)
      position object player1, object position x(player1), object position y(player1), object position z(player1) - SpeedforZ#
   endif
   if keystate(30)
      position object player1, object position x(player1) - SpeedforZ#, object position y(player1), object position z(player1)
   endif
   if keystate(32)
      position object player1, object position x(player1)+ SpeedforZ#, object position y(player1), object position z(player1)
   endif

   if upkey()
      position object player2, object position x(player2), object position y(player2), object position z(player2) + SpeedforZ#
   endif
   if downkey()
      position object player2, object position x(player2), object position y(player2), object position z(player2) - SpeedforZ#
   endif
   if leftkey()
      position object player2, object position x(player2) - SpeedforZ#, object position y(player2), object position z(player2)
   endif
   if rightkey()
      position object player2, object position x(player2)+ SpeedforZ#, object position y(player2), object position z(player2)
   endif

   if object collision(ball, player1)
      point object ball, object position x(player1), object position y(player1), object position z(player1)
      yrotate object ball, wrapvalue(object angle y(ball)+180)
      a# = object angle y(ball) / ballangle#
      yrotate object ball, a#*ballangle#
      ballspeed# = speed#
   endif

   if object collision(ball, player2)
      point object ball, object position x(player2), object position y(player2), object position z(player2)
      yrotate object ball, wrapvalue(object angle y(ball)+180)
      a# = object angle y(ball) / ballangle#
      yrotate object ball, a#*ballangle#
      ballspeed# = speed#
   endif

   if ballspeed# > 0
      dec ballspeed#, 0.05
      move object ball, delta(ballspeed#)
   endif

   if object in screen(ball) = 0
      position object ball, 0, 0, 0
   endif

   if object collision(ball, goal1)
      inc player2score
      position object ball, 0, 0, 0
   endif
   if object collision(ball, goal2)
      inc player1score
      position object ball, 0, 0, 0
   endif


   text 10, 10, "RED: " + str$(player1score)
   text screen width()-text width("BLUE: " + str$(player2score)) - 10, 10, "BLUE: " + str$(player2score)
   sync

set cursor 0,0
print LoopTime(0) ; "   " ; lasttime(0)
loop

end

`Delta
Function UpdateDelta()
TheTimer=Timer()
LoopTime(0)=TheTimer-LastTime(0)
LastTime(0)=TheTimer
Endfunction

Function Delta(Value1#)
    ResultValue#=Value1#*0.06*LoopTime(0)
Endfunction ResultValue#

Function MakeSphere(Size#)
   Numbre=FreeObject()
   if Numbre>TopObject then TopObject=Numbre
   make object sphere Numbre, Size#

   if Numbre > MaxObjects
      MaxObjects = Numbre
   endif

Endfunction Numbre

Function MakeCube(Size#)
   Numbre=FreeObject()
   if Numbre>TopObject then TopObject=Numbre
   make object cube Numbre, Size#

   if Numbre > MaxObjects
      MaxObjects = Numbre
   endif

Endfunction Numbre

function FreeObject()
   repeat
      inc i
      if object exist(i)=0 then found=1
   until found
endfunction i

Function ObjectExist(Numbre)
   i=0
   if Numbre>0
      if Object Exist(Numbre)
         i=1
      endif
   endif
endfunction i

I am king of the noobs!

Back to top

Profile PM Email

Mr Kohlenstoff

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Germany

Posted: 31st Jul 2007 19:19

Link

I have just seen this thread and written a small but very hard-to-beat AI for it.

`change these to make things more interesting
goalsize = 20
ballangle = 360 / 32

REM Change this values to en/Disable AI!
Player1AI as boolean = 1
Player2AI as boolean = 1

`setup
sync on : sync rate 60
backdrop on : color backdrop rgb(0,155,0)
fog color rgb(28, 73, 140)
set camera range 10, 10000
fog distance 10000
set text font "arial bold" : set text size 20 : set text transparent : ink 0,0

global Looptime : Global lastTime : UpdateDelta()
autocam off

xrotate camera 90
move camera -100
`start coding
global ball as integer
ball = makesphere(7)
ballspeed as float
`ballhit as float
`ballhit = 3

player1 = makesphere(10)
position object player1, -70, 0, 0
color object player1, rgb(255,0,0)

player2 = makesphere(10)
position object player2, 70, 0, 0
color object player2, rgb(0,0,255)

global speed as float
speed = 2

goalsize = 20
goal1 = makecube(goalsize)
position object goal1, -80, 0, 0
scale object goal1, 50, 50, 100

goal2 = makecube(goalsize)
position object goal2, 80, 0, 0
scale object goal2, 50, 50, 100

do
   UpdateDelta()

if Player1AI=0
      if keystate(17)
         position object player1, object position x(player1), object position y(player1), object position z(player1) + delta(speed)
      endif
      if keystate(31)
         position object player1, object position x(player1), object position y(player1), object position z(player1) - delta(speed)
      endif
      if keystate(30)
         position object player1, object position x(player1) - delta(speed), object position y(player1), object position z(player1)
      endif
      if keystate(32)
         position object player1, object position x(player1)+ delta(speed), object position y(player1), object position z(player1)
      endif
   else
      HandleAI(player1,goal2)
   endif

if Player2AI=0
      if upkey()
         position object player2, object position x(player2), object position y(player2), object position z(player2) + delta(speed)
      endif
      if downkey()
         position object player2, object position x(player2), object position y(player2), object position z(player2) - delta(speed)
      endif
      if leftkey()
         position object player2, object position x(player2) - delta(speed), object position y(player2), object position z(player2)
      endif
      if rightkey()
         position object player2, object position x(player2)+ delta(speed), object position y(player2), object position z(player2)
      endif
   else
      HandleAI(player2,goal1)
   endif

if object collision(ball, player1)
      point object ball, object position x(player1), object position y(player1), object position z(player1)
      yrotate object ball, object angle y(ball)+180
      a = object angle y(ball) / ballangle
      yrotate object ball, a*ballangle
      ballspeed = speed
   endif

if object collision(ball, player2)
      point object ball, object position x(player2), object position y(player2), object position z(player2)
      yrotate object ball, wrapvalue(object angle y(ball)+180)
      a = object angle y(ball) / ballangle
      yrotate object ball, a*ballangle
      ballspeed = speed
   endif

if ballspeed > 0
      dec ballspeed, 0.05
      move object ball, delta(ballspeed)
   endif

if object in screen(ball) = 0
      position object ball, 0, 0, 0
   endif

if object collision(ball, goal1)
      inc player2score
      position object ball, 0, 0, 0
   endif
   if object collision(ball, goal2)
      inc player1score
      position object ball, 0, 0, 0
   endif

text 10, 10, "RED: " + str$(player1score)
   text screen width()-text width("BLUE: " + str$(player2score)) - 10, 10, "BLUE: " + str$(player2score)
   sync
loop

end

function HandleAI(ID,Goal)
   rem Player
   x# = object position x(ID)
   z# = object position z(ID)
   rem Ball
   xb# = object position x(Ball)
   zb# = object position z(Ball)
   rem Target(Goal)
   xt# = object position x(Goal)
   zt# = object position z(Goal)
   rem Angle between ball and goal
   BGA# = atanfull(xt#-xb#,zt#-zb#)
   rem Angle between player and ball
   BPA# = atanfull(xb#- x#,zb#- z#)
   rem Calculate angle-difference
   ADif# = BPA#-BGA#
   if ADif# >  180 then dec ADif#, 360
   if ADif# < -180 then inc ADif#, 360
   rem Ball in right direction -> run to ball
   if abs(ADif#)<10
      XAdd# = speed*cos(90-BPA#)+1-rnd(2)
      ZAdd# = speed*sin(90-BPA#)+1-rnd(2)
      position object ID, object position x(ID)+Delta(XAdd#), object position y(ID), object position z(ID)+Delta(ZAdd#)
   else `Ball not in right direction -> run behind ball
      TX# = xt#+(xb#-xt#)*1.2+5-rnd(10)
      TZ# = zt#+(zb#-zt#)*1.2+5-rnd(10)
      BPA# = atanfull(TX#-x#,TZ#-z#)
      XAdd# = speed*cos(90-BPA#)
      ZAdd# = speed*sin(90-BPA#)
      position object ID, object position x(ID)+Delta(XAdd#), object position y(ID), object position z(ID)+Delta(ZAdd#)
   endif
endfunction

`Delta
Function UpdateDelta()
TheTimer=Timer()
LoopTime=TheTimer-lastTime
lastTime=TheTimer
Endfunction

Function Delta(Value1#)
    ResultValue#=Value1#*0.060*Looptime
Endfunction ResultValue#

Function MakeSphere(Size#)
   Numbre=FreeObject()
   if Numbre>TopObject then TopObject=Numbre
   make object sphere Numbre, Size#

if Numbre > MaxObjects
      MaxObjects = Numbre
   endif

Endfunction Numbre

Function MakeCube(Size#)
   Numbre=FreeObject()
   if Numbre>TopObject then TopObject=Numbre
   make object cube Numbre, Size#

if Numbre > MaxObjects
      MaxObjects = Numbre
   endif

Endfunction Numbre

function FreeObject()
   repeat
      inc i
      if object exist(i)=0 then found=1
   until found
endfunction i

Function ObjectExist(Numbre)
   i=0
   if Numbre>0
      if Object Exist(Numbre)
         i=1
      endif
   endif
endfunction i

+ Code Snippet

`change these to make things more interesting
goalsize = 20
ballangle = 360 / 32


REM Change this values to en/Disable AI!
Player1AI as boolean = 1
Player2AI as boolean = 1

`setup
sync on : sync rate 60
backdrop on : color backdrop rgb(0,155,0)
fog color rgb(28, 73, 140)
set camera range 10, 10000
fog distance 10000
set text font "arial bold" : set text size 20 : set text transparent : ink 0,0

global Looptime : Global lastTime : UpdateDelta()
autocam off

xrotate camera 90
move camera -100
`start coding
global ball as integer
ball = makesphere(7)
ballspeed as float
`ballhit as float
`ballhit = 3

player1 = makesphere(10)
position object player1, -70, 0, 0
color object player1, rgb(255,0,0)

player2 = makesphere(10)
position object player2, 70, 0, 0
color object player2, rgb(0,0,255)

global speed as float
speed = 2

goalsize = 20
goal1 = makecube(goalsize)
position object goal1, -80, 0, 0
scale object goal1, 50, 50, 100

goal2 = makecube(goalsize)
position object goal2, 80, 0, 0
scale object goal2, 50, 50, 100

do
   UpdateDelta()

   if Player1AI=0
      if keystate(17)
         position object player1, object position x(player1), object position y(player1), object position z(player1) + delta(speed)
      endif
      if keystate(31)
         position object player1, object position x(player1), object position y(player1), object position z(player1) - delta(speed)
      endif
      if keystate(30)
         position object player1, object position x(player1) - delta(speed), object position y(player1), object position z(player1)
      endif
      if keystate(32)
         position object player1, object position x(player1)+ delta(speed), object position y(player1), object position z(player1)
      endif
   else
      HandleAI(player1,goal2)
   endif

   if Player2AI=0
      if upkey()
         position object player2, object position x(player2), object position y(player2), object position z(player2) + delta(speed)
      endif
      if downkey()
         position object player2, object position x(player2), object position y(player2), object position z(player2) - delta(speed)
      endif
      if leftkey()
         position object player2, object position x(player2) - delta(speed), object position y(player2), object position z(player2)
      endif
      if rightkey()
         position object player2, object position x(player2)+ delta(speed), object position y(player2), object position z(player2)
      endif
   else
      HandleAI(player2,goal1)
   endif

   if object collision(ball, player1)
      point object ball, object position x(player1), object position y(player1), object position z(player1)
      yrotate object ball, object angle y(ball)+180
      a = object angle y(ball) / ballangle
      yrotate object ball, a*ballangle
      ballspeed = speed
   endif

   if object collision(ball, player2)
      point object ball, object position x(player2), object position y(player2), object position z(player2)
      yrotate object ball, wrapvalue(object angle y(ball)+180)
      a = object angle y(ball) / ballangle
      yrotate object ball, a*ballangle
      ballspeed = speed
   endif

   if ballspeed > 0
      dec ballspeed, 0.05
      move object ball, delta(ballspeed)
   endif

   if object in screen(ball) = 0
      position object ball, 0, 0, 0
   endif

   if object collision(ball, goal1)
      inc player2score
      position object ball, 0, 0, 0
   endif
   if object collision(ball, goal2)
      inc player1score
      position object ball, 0, 0, 0
   endif


   text 10, 10, "RED: " + str$(player1score)
   text screen width()-text width("BLUE: " + str$(player2score)) - 10, 10, "BLUE: " + str$(player2score)
   sync
loop

end



function HandleAI(ID,Goal)
   rem Player
   x# = object position x(ID)
   z# = object position z(ID)
   rem Ball
   xb# = object position x(Ball)
   zb# = object position z(Ball)
   rem Target(Goal)
   xt# = object position x(Goal)
   zt# = object position z(Goal)
   rem Angle between ball and goal
   BGA# = atanfull(xt#-xb#,zt#-zb#)
   rem Angle between player and ball
   BPA# = atanfull(xb#- x#,zb#- z#)
   rem Calculate angle-difference
   ADif# = BPA#-BGA#
   if ADif# >  180 then dec ADif#, 360
   if ADif# < -180 then inc ADif#, 360
   rem Ball in right direction -> run to ball
   if abs(ADif#)<10
      XAdd# = speed*cos(90-BPA#)+1-rnd(2)
      ZAdd# = speed*sin(90-BPA#)+1-rnd(2)
      position object ID, object position x(ID)+Delta(XAdd#), object position y(ID), object position z(ID)+Delta(ZAdd#)
   else `Ball not in right direction -> run behind ball
      TX# = xt#+(xb#-xt#)*1.2+5-rnd(10)
      TZ# = zt#+(zb#-zt#)*1.2+5-rnd(10)
      BPA# = atanfull(TX#-x#,TZ#-z#)
      XAdd# = speed*cos(90-BPA#)
      ZAdd# = speed*sin(90-BPA#)
      position object ID, object position x(ID)+Delta(XAdd#), object position y(ID), object position z(ID)+Delta(ZAdd#)
   endif
endfunction

`Delta
Function UpdateDelta()
TheTimer=Timer()
LoopTime=TheTimer-lastTime
lastTime=TheTimer
Endfunction

Function Delta(Value1#)
    ResultValue#=Value1#*0.060*Looptime
Endfunction ResultValue#

Function MakeSphere(Size#)
   Numbre=FreeObject()
   if Numbre>TopObject then TopObject=Numbre
   make object sphere Numbre, Size#

   if Numbre > MaxObjects
      MaxObjects = Numbre
   endif

Endfunction Numbre

Function MakeCube(Size#)
   Numbre=FreeObject()
   if Numbre>TopObject then TopObject=Numbre
   make object cube Numbre, Size#

   if Numbre > MaxObjects
      MaxObjects = Numbre
   endif

Endfunction Numbre

function FreeObject()
   repeat
      inc i
      if object exist(i)=0 then found=1
   until found
endfunction i

Function ObjectExist(Numbre)
   i=0
   if Numbre>0
      if Object Exist(Numbre)
         i=1
      endif
   endif
endfunction i

Visit the DBPro - Speed up your game-Thread. http://forum.thegamecreators.com/?m=forum_view&t=88661&b=1

Back to top

Profile PM Email

Kohaku

20

Years of Service

User Offline

Joined: 3rd May 2004

Location: The not very United Kingdom

Posted: 2nd Aug 2007 18:36

Link

Hullo.

Nice try getting it to work in DBC in Obese! I'd suggest using a distance routine instead of collision checks as that'd be more reliable.

Mr Kohlenstoff, that AI is awesome! Nicely done.

You are not alone.

Back to top

Profile PM Website

Bat Caves

17

Years of Service

User Offline

Joined: 11th Aug 2007

Location: The_Caves

Posted: 29th Aug 2007 14:07

Link

hi
oh very good very very good
code football game! this is good idea
thank U Kohaku and {EDITCODE} OBese87 ,Mr Kohlenstoff
the game is good

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / DBP - 2 player football