3d pong AI - GameCreators Forum

Author

Message

Jman

18

Years of Service

User Offline

Joined: 25th Apr 2006

Location:

Posted: 27th Apr 2006 08:10

Link

I'm working on a 3d pong type game, and I got the basics down except for a simple computer AI. This is what I have so far, its in DBC:

rem -setup basics
make matrix 1,500,500,50,50
set matrix wireframe off 1

make object box 1,26,4,8
make object box 2,26,4,8
make object sphere 3,4
position object 1,250,2,40
color object 1,rgb(255,0,0)
position object 2,250,2,460
color object 2,rgb(255,0,0)
position object 3,250,4,250
color object 3,rgb(0,0,255)

position camera 250,25,-35

autocam off
hide mouse

sync on
sync rate 60

side = rnd(1)

fog on
fog distance 700
fog color rgb(rnd(255),rnd(255),rnd(255))

backdrop on
color backdrop rgb(0,0,0)
randomize timer()

set ambient light 25
color ambient light rgb(rnd(255),rnd(255),rnd(255))

rem -setup basic font style
set text size 16
set text to bold

rem -setup ball basics
ballspeedx# = rnd(3)
ballspeedz# = rnd(5)
if ballspeedx# = 0 then ballspeedx# = 2
if ballspeedz# = 0 then ballspeedz# = 5

if side = 1 then ballspeedx# = ballspeedx# * -1 ; ballspeedz# = ballspeedz# * -1

rem -setup score basics
myscore = 0
compscore = 0

myscorestring$ = "Player: "
compscorestring$ = "Computer: "

rem -setup collision
make object collision box 1,-13,-2,-13,13,2,13,0
make object collision box 2,-13,-2,-13,13,2,13,0
make object collision box 3,-2,-2,-2,2,2,2,0

rem -MAIN LOOP
do

rem -setup basic variables
mypadx# = object position x(1)
comppadx# = object position x(2)
ballx# = object position x(3)
ballz# = object position z(3)
camerax# = camera position x()

rem -setup controls
if leftkey() = 1 then dec mypadx#, 4 ; dec camerax#, 4
if rightkey() = 1 then inc mypadx#, 4 ; inc camerax#, 4

rem -check left and right bounds
if mypadx# >= 487 then mypadx# = 487
if mypadx# <= 13 then mypadx# = 13
if camerax# >= 487 then camerax# = 487
if camerax# <= 13 then camerax# = 13

rem -create very basic ai :)
comppadx# = ballx#

rem -set up ball movement
if ballx# >= 498 then ballspeedx# = ballspeedx# * -1
if ballx# <= 2 then ballspeedx# = ballspeedx# * -1
if object collision(3,1) > 0 then ballspeedz# = ballspeedz# * -1 
if object collision(3,2) > 0 then ballspeedz# = ballspeedz# * -1 
if ballz# >= 498 then ballspeedz# = ballspeedz# * -1 ; inc myscore, 1
if ballz# <= 2 then ballspeedz# = ballspeedz# * -1 ; inc compscore, 1

rem -move all objects that need moving
position object 1,mypadx#,2,40
position object 2,comppadx#,2,460
position object 3,ballx#+ballspeedx#,4,ballz#+ballspeedz#
position camera camerax#,25,-35
point camera ballx#,4,ballz#

rem -display score
text 2,3,myscorestring$ + str$(myscore)
text 2,18,compscorestring$ + str$(compscore)

rem -SYNC
sync

rem -END MAIN LOOP
loop

+ Code Snippet

rem -setup basics
make matrix 1,500,500,50,50
set matrix wireframe off 1

make object box 1,26,4,8
make object box 2,26,4,8
make object sphere 3,4
position object 1,250,2,40
color object 1,rgb(255,0,0)
position object 2,250,2,460
color object 2,rgb(255,0,0)
position object 3,250,4,250
color object 3,rgb(0,0,255)

position camera 250,25,-35

autocam off
hide mouse

sync on
sync rate 60

side = rnd(1)

fog on
fog distance 700
fog color rgb(rnd(255),rnd(255),rnd(255))

backdrop on
color backdrop rgb(0,0,0)
randomize timer()

set ambient light 25
color ambient light rgb(rnd(255),rnd(255),rnd(255))

rem -setup basic font style
set text size 16
set text to bold

rem -setup ball basics
ballspeedx# = rnd(3)
ballspeedz# = rnd(5)
if ballspeedx# = 0 then ballspeedx# = 2
if ballspeedz# = 0 then ballspeedz# = 5

if side = 1 then ballspeedx# = ballspeedx# * -1 ; ballspeedz# = ballspeedz# * -1

rem -setup score basics
myscore = 0
compscore = 0

myscorestring$ = "Player: "
compscorestring$ = "Computer: "

rem -setup collision
make object collision box 1,-13,-2,-13,13,2,13,0
make object collision box 2,-13,-2,-13,13,2,13,0
make object collision box 3,-2,-2,-2,2,2,2,0

rem -MAIN LOOP
do

rem -setup basic variables
mypadx# = object position x(1)
comppadx# = object position x(2)
ballx# = object position x(3)
ballz# = object position z(3)
camerax# = camera position x()

rem -setup controls
if leftkey() = 1 then dec mypadx#, 4 ; dec camerax#, 4
if rightkey() = 1 then inc mypadx#, 4 ; inc camerax#, 4

rem -check left and right bounds
if mypadx# >= 487 then mypadx# = 487
if mypadx# <= 13 then mypadx# = 13
if camerax# >= 487 then camerax# = 487
if camerax# <= 13 then camerax# = 13

rem -create very basic ai :)
comppadx# = ballx#

rem -set up ball movement
if ballx# >= 498 then ballspeedx# = ballspeedx# * -1
if ballx# <= 2 then ballspeedx# = ballspeedx# * -1
if object collision(3,1) > 0 then ballspeedz# = ballspeedz# * -1 
if object collision(3,2) > 0 then ballspeedz# = ballspeedz# * -1 
if ballz# >= 498 then ballspeedz# = ballspeedz# * -1 ; inc myscore, 1
if ballz# <= 2 then ballspeedz# = ballspeedz# * -1 ; inc compscore, 1

rem -move all objects that need moving
position object 1,mypadx#,2,40
position object 2,comppadx#,2,460
position object 3,ballx#+ballspeedx#,4,ballz#+ballspeedz#
position camera camerax#,25,-35
point camera ballx#,4,ballz#

rem -display score
text 2,3,myscorestring$ + str$(myscore)
text 2,18,compscorestring$ + str$(compscore)

rem -SYNC
sync

rem -END MAIN LOOP
loop

Sorry about the random colors, I'm just testing out some lighting and fog effects. Another problem I'm having is that I want to use a texture for the matrix, but once I load a bitmap, get the image, and apply it to the matrix, the text in the upper left corner disappears. I tried using the command that brings 2d above 3d, but to no avail. Any help would be greatly appreiciated!

-Jman

Back to top

Profile PM

smallg

Valued Member

18

Years of Service

User Offline

Joined: 8th Dec 2005

Location: steam

Posted: 27th Apr 2006 12:15 Edited at: 27th Apr 2006 12:25

Link

this game is looking rather good, hard and easy to play, i edited it a little bit to make it slightly easier though, because the computer was simply always in the right place....

rem -setup basics
make matrix 1,500,500,50,50
set matrix wireframe off 1

make object box 1,26,4,8
make object box 2,26,4,8
make object sphere 3,4
position object 1,250,2,40
color object 1,rgb(255,0,0)
position object 2,250,2,460
color object 2,rgb(255,0,0)
position object 3,250,4,250
color object 3,rgb(0,0,255)

position camera 250,25,-35

autocam off
hide mouse
randomize timer()
sync on
sync rate 60

side = rnd(1)

fog on
fog distance 700
fog color rgb(rnd(255),rnd(255),rnd(255))

backdrop on
color backdrop rgb(0,0,0)
randomize timer()

set ambient light 25
color ambient light rgb(rnd(255),rnd(255),rnd(255))

rem -setup basic font style
set text size 16
set text to bold

rem -setup ball basics
ballspeedx# = rnd(3)
ballspeedz# = rnd(5)
if ballspeedx# = 0 then ballspeedx# = 2
if ballspeedz# = 0 then ballspeedz# = 5

if side = 1 then ballspeedx# = ballspeedx# * -1 ; ballspeedz# = ballspeedz# * -1

rem -setup score basics
myscore = 0
compscore = 0

myscorestring$ = "Player: "
compscorestring$ = "Computer: "

rem -setup collision
make object collision box 1,-13,-2,-13,13,2,13,0
make object collision box 2,-13,-2,-13,13,2,13,0
make object collision box 3,-2,-2,-2,2,2,2,0

rem -MAIN LOOP
do

rem -setup basic variables
mypadx# = object position x(1)
comppadx# = object position x(2)
ballx# = object position x(3)
ballz# = object position z(3)
camerax# = camera position x()

rem -setup controls
if leftkey() = 1 then dec mypadx#, 4 ; dec camerax#, 4
if rightkey() = 1 then inc mypadx#, 4 ; inc camerax#, 4

rem -check left and right bounds
if mypadx# >= 487 then mypadx# = 487
if mypadx# <= 13 then mypadx# = 13
if camerax# >= 487 then camerax# = 487
if camerax# <= 13 then camerax# = 13

rem -create very basic ai :)
comppadx# = object position x(2)

rem -set up ball movement
if ballx# >= 498 then ballspeedx# = ballspeedx# * -1
if ballx# <= 2 then ballspeedx# = ballspeedx# * -1
if object collision(3,1) > 0 then ballspeedz# = ballspeedz# * -1 
if object collision(3,2) > 0 then ballspeedz# = ballspeedz# * -1 
if ballz# >= 498 then ballspeedz# = ballspeedz# * -1 ; inc myscore, 1
if ballz# <= 2 then ballspeedz# = ballspeedz# * -1 ; inc compscore, 1

rem -move all objects that need moving
position object 1,mypadx#,2,40
`if rnd(5)=0
if ballx#<comppadx# then position object 2,comppadx#-0.75,2,460
if ballx#>comppadx# then position object 2,comppadx#+0.75,2,460
`endif

position object 3,ballx#+ballspeedx#,4,ballz#+ballspeedz#
position camera camerax#,25,-35
point camera ballx#,4,ballz#

rem -display score
text 2,3,myscorestring$ + str$(myscore)
text 2,18,compscorestring$ + str$(compscore)

rem -SYNC
sync

rem -END MAIN LOOP
loop

+ Code Snippet

rem -setup basics
make matrix 1,500,500,50,50
set matrix wireframe off 1

make object box 1,26,4,8
make object box 2,26,4,8
make object sphere 3,4
position object 1,250,2,40
color object 1,rgb(255,0,0)
position object 2,250,2,460
color object 2,rgb(255,0,0)
position object 3,250,4,250
color object 3,rgb(0,0,255)

position camera 250,25,-35

autocam off
hide mouse
randomize timer()
sync on
sync rate 60

side = rnd(1)

fog on
fog distance 700
fog color rgb(rnd(255),rnd(255),rnd(255))

backdrop on
color backdrop rgb(0,0,0)
randomize timer()

set ambient light 25
color ambient light rgb(rnd(255),rnd(255),rnd(255))

rem -setup basic font style
set text size 16
set text to bold

rem -setup ball basics
ballspeedx# = rnd(3)
ballspeedz# = rnd(5)
if ballspeedx# = 0 then ballspeedx# = 2
if ballspeedz# = 0 then ballspeedz# = 5

if side = 1 then ballspeedx# = ballspeedx# * -1 ; ballspeedz# = ballspeedz# * -1

rem -setup score basics
myscore = 0
compscore = 0

myscorestring$ = "Player: "
compscorestring$ = "Computer: "

rem -setup collision
make object collision box 1,-13,-2,-13,13,2,13,0
make object collision box 2,-13,-2,-13,13,2,13,0
make object collision box 3,-2,-2,-2,2,2,2,0

rem -MAIN LOOP
do

rem -setup basic variables
mypadx# = object position x(1)
comppadx# = object position x(2)
ballx# = object position x(3)
ballz# = object position z(3)
camerax# = camera position x()

rem -setup controls
if leftkey() = 1 then dec mypadx#, 4 ; dec camerax#, 4
if rightkey() = 1 then inc mypadx#, 4 ; inc camerax#, 4

rem -check left and right bounds
if mypadx# >= 487 then mypadx# = 487
if mypadx# <= 13 then mypadx# = 13
if camerax# >= 487 then camerax# = 487
if camerax# <= 13 then camerax# = 13

rem -create very basic ai :)
comppadx# = object position x(2)

rem -set up ball movement
if ballx# >= 498 then ballspeedx# = ballspeedx# * -1
if ballx# <= 2 then ballspeedx# = ballspeedx# * -1
if object collision(3,1) > 0 then ballspeedz# = ballspeedz# * -1 
if object collision(3,2) > 0 then ballspeedz# = ballspeedz# * -1 
if ballz# >= 498 then ballspeedz# = ballspeedz# * -1 ; inc myscore, 1
if ballz# <= 2 then ballspeedz# = ballspeedz# * -1 ; inc compscore, 1

rem -move all objects that need moving
position object 1,mypadx#,2,40
`if rnd(5)=0
if ballx#<comppadx# then position object 2,comppadx#-0.75,2,460
if ballx#>comppadx# then position object 2,comppadx#+0.75,2,460
`endif

position object 3,ballx#+ballspeedx#,4,ballz#+ballspeedz#
position camera camerax#,25,-35
point camera ballx#,4,ballz#

rem -display score
text 2,3,myscorestring$ + str$(myscore)
text 2,18,compscorestring$ + str$(compscore)

rem -SYNC
sync

rem -END MAIN LOOP
loop

[edit]
ok just wanted to try the texture and spotted what was making it so easy for the computer.... the ball has a random speed

anyway here's the updated code... mine works with texture, just replace the texture name with ur own (think this is what u wanted)

rem -setup basics
make matrix 1,500,500,50,50
set matrix wireframe off 1
load image "texture.jpg",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1

make object box 1,26,4,8
make object box 2,26,4,8
make object sphere 3,4
position object 1,250,2,40
color object 1,rgb(255,0,0)
position object 2,250,2,460
color object 2,rgb(255,0,0)
position object 3,250,4,250
color object 3,rgb(0,0,255)

position camera 250,25,-35

autocam off
hide mouse
randomize timer()
sync on
sync rate 60

side = rnd(1)

fog on
fog distance 700
fog color rgb(rnd(255),rnd(255),rnd(255))

backdrop on
color backdrop rgb(0,0,0)
randomize timer()

set ambient light 25
color ambient light rgb(rnd(255),rnd(255),rnd(255))

rem -setup basic font style
set text size 16
set text to bold

rem -setup ball basics
ballspeedx# = rnd(3)+1
ballspeedz# = rnd(5)+1

if side = 1 then ballspeedx# = ballspeedx# * -1 ; ballspeedz# = ballspeedz# * -1

rem -setup score basics
myscore = 0
compscore = 0

myscorestring$ = "Player: "
compscorestring$ = "Computer: "

rem -setup collision
make object collision box 1,-13,-2,-13,13,2,13,0
make object collision box 2,-13,-2,-13,13,2,13,0
make object collision box 3,-2,-2,-2,2,2,2,0

rem -MAIN LOOP
do

rem -setup basic variables
mypadx# = object position x(1)
comppadx# = object position x(2)
ballx# = object position x(3)
ballz# = object position z(3)
camerax# = camera position x()

rem -setup controls
if leftkey() = 1 then dec mypadx#, 4 ; dec camerax#, 4
if rightkey() = 1 then inc mypadx#, 4 ; inc camerax#, 4

rem -check left and right bounds
if mypadx# >= 487 then mypadx# = 487
if mypadx# <= 13 then mypadx# = 13
if camerax# >= 487 then camerax# = 487
if camerax# <= 13 then camerax# = 13

rem -create very basic ai :)
comppadx# = object position x(2)

rem -set up ball movement
if ballx# >= 498 then ballspeedx# = ballspeedx# * -1
if ballx# <= 2 then ballspeedx# = ballspeedx# * -1
if object collision(3,1) > 0 then ballspeedz# = ballspeedz# * -1 
if object collision(3,2) > 0 then ballspeedz# = ballspeedz# * -1 
if ballz# >= 498 then ballspeedz# = ballspeedz# * -1 ; inc myscore, 1
if ballz# <= 2 then ballspeedz# = ballspeedz# * -1 ; inc compscore, 1

rem -move all objects that need moving
position object 1,mypadx#,2,40
if ballx#<comppadx# then position object 2,comppadx#-0.1,2,460
if ballx#>comppadx# then position object 2,comppadx#+0.1,2,460

position object 3,ballx#+ballspeedx#,4,ballz#+ballspeedz#
position camera camerax#,25,-35
point camera ballx#,4,ballz#

rem -display score
text 2,3,myscorestring$ + str$(myscore)
text 2,18,compscorestring$ + str$(compscore)

rem -SYNC
sync

rem -END MAIN LOOP
loop

+ Code Snippet

rem -setup basics
make matrix 1,500,500,50,50
set matrix wireframe off 1
load image "texture.jpg",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1

make object box 1,26,4,8
make object box 2,26,4,8
make object sphere 3,4
position object 1,250,2,40
color object 1,rgb(255,0,0)
position object 2,250,2,460
color object 2,rgb(255,0,0)
position object 3,250,4,250
color object 3,rgb(0,0,255)

position camera 250,25,-35

autocam off
hide mouse
randomize timer()
sync on
sync rate 60

side = rnd(1)

fog on
fog distance 700
fog color rgb(rnd(255),rnd(255),rnd(255))

backdrop on
color backdrop rgb(0,0,0)
randomize timer()

set ambient light 25
color ambient light rgb(rnd(255),rnd(255),rnd(255))

rem -setup basic font style
set text size 16
set text to bold

rem -setup ball basics
ballspeedx# = rnd(3)+1
ballspeedz# = rnd(5)+1

if side = 1 then ballspeedx# = ballspeedx# * -1 ; ballspeedz# = ballspeedz# * -1

rem -setup score basics
myscore = 0
compscore = 0

myscorestring$ = "Player: "
compscorestring$ = "Computer: "

rem -setup collision
make object collision box 1,-13,-2,-13,13,2,13,0
make object collision box 2,-13,-2,-13,13,2,13,0
make object collision box 3,-2,-2,-2,2,2,2,0

rem -MAIN LOOP
do

rem -setup basic variables
mypadx# = object position x(1)
comppadx# = object position x(2)
ballx# = object position x(3)
ballz# = object position z(3)
camerax# = camera position x()

rem -setup controls
if leftkey() = 1 then dec mypadx#, 4 ; dec camerax#, 4
if rightkey() = 1 then inc mypadx#, 4 ; inc camerax#, 4

rem -check left and right bounds
if mypadx# >= 487 then mypadx# = 487
if mypadx# <= 13 then mypadx# = 13
if camerax# >= 487 then camerax# = 487
if camerax# <= 13 then camerax# = 13

rem -create very basic ai :)
comppadx# = object position x(2)

rem -set up ball movement
if ballx# >= 498 then ballspeedx# = ballspeedx# * -1
if ballx# <= 2 then ballspeedx# = ballspeedx# * -1
if object collision(3,1) > 0 then ballspeedz# = ballspeedz# * -1 
if object collision(3,2) > 0 then ballspeedz# = ballspeedz# * -1 
if ballz# >= 498 then ballspeedz# = ballspeedz# * -1 ; inc myscore, 1
if ballz# <= 2 then ballspeedz# = ballspeedz# * -1 ; inc compscore, 1

rem -move all objects that need moving
position object 1,mypadx#,2,40
if ballx#<comppadx# then position object 2,comppadx#-0.1,2,460
if ballx#>comppadx# then position object 2,comppadx#+0.1,2,460

position object 3,ballx#+ballspeedx#,4,ballz#+ballspeedz#
position camera camerax#,25,-35
point camera ballx#,4,ballz#

rem -display score
text 2,3,myscorestring$ + str$(myscore)
text 2,18,compscorestring$ + str$(compscore)

rem -SYNC
sync

rem -END MAIN LOOP
loop

also u should look into changing the speed of the ball and computer based on difficulty settings

life's one big game
spec= 2ghz, 1gb ram, 512mb gpu, directx 9.0c, dbpro and classic

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 28th Apr 2006 00:20

Link

Quote: "once I load a bitmap, get the image, and apply it to the matrix, the text in the upper left corner disappears"

The Sync command simply updates the 3D screen - overwriting any 2D text on the screen.

Move the Text command lines to AFTER the Sync line.

TDK_Man

DB Tutorials, Hints & Tips, Utils and lots more...
A New IDE For DB Classic!

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 28th Apr 2006 01:17

Link

Quote: "Move the Text command lines to AFTER the Sync line."

I don't think that would help at all. Smallg's solution is the way to do it.

Back to top

Profile PM Email

Jman

18

Years of Service

User Offline

Joined: 25th Apr 2006

Location:

Posted: 28th Apr 2006 05:53

Link

thanks smallg, I got it working now, and I got decent AI going. So now I face my next fundamental problem, which is winning. Right now I've added 2 sub routines that should exit the main loop, but for some reason when I print "Computer Wins" or "Player Wins" on screen, and then immediatly after place the wait key command, the text just flashes on the screen for a split second. Any suggestions for how I can make it stay on screen?

rem -setup basics
set display mode 800,600,16
set camera range 1,700
make matrix 1,500,500,50,50
set matrix wireframe off 1
load image "put texture here",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1

make object box 1,26,4,8
make object box 2,26,4,8
make object sphere 3,4
position object 1,250,2,40
color object 1,rgb(255,0,0)
position object 2,250,2,460
color object 2,rgb(255,0,0)
position object 3,250,4,250
color object 3,rgb(0,0,255)

position camera 250,25,-35

autocam off
hide mouse

sync on
sync rate 60

side = rnd(1)

backdrop on
color backdrop rgb(0,0,0)

set ambient light 25
color ambient light rgb(0,0,80)

rem -setup basic font style
set text size 16
set text to bold

rem -setup ball basics
ballspeedx# = rnd(3)+4
ballspeedz# = rnd(5)+3

if side = 1 then ballspeedx# = ballspeedx# * -1 ; ballspeedz# = ballspeedz# * -1

rem -setup score basics
myscore = 0
compscore = 0

myscorestring$ = "Player: "
compscorestring$ = "Computer: "

rem -setup collision
make object collision box 1,-13,-2,-13,13,2,13,0
make object collision box 2,-13,-2,-13,13,2,13,0
make object collision box 3,-2,-2,-2,2,2,2,0

rem -MAIN LOOP
do

rem -setup basic variables
mypadx# = object position x(1)
comppadx# = object position x(2)
ballx# = object position x(3)
ballz# = object position z(3)
camerax# = camera position x()

rem -setup controls
if leftkey() = 1 then dec mypadx#, 5 ; dec camerax#, 5
if rightkey() = 1 then inc mypadx#, 5 ; inc camerax#, 5

rem -check left and right bounds
if mypadx# >= 487 then mypadx# = 487
if mypadx# <= 13 then mypadx# = 13
if camerax# >= 487 then camerax# = 487
if camerax# <= 13 then camerax# = 13

rem -create very basic ai :)
if ballspeedx# < 0
	dec comppadx#, rnd(ballspeedx#*-1)+abs(ballspeedx#/4)
	endif

if ballspeedx# > 0
	inc comppadx#, rnd(ballspeedx#)+abs(ballspeedx#/4)
	endif

if comppadx# > ballx#
	dec comppadx#, 1
	endif

if comppadx# < ballx#
	inc comppadx#, 1
	endif

if comppadx# >= 487 
	comppadx# = 487
	endif

if comppadx# <= 13
	comppadx# = 13
	endif

rem -set up ball movement
if ballx# >= 498 then ballspeedx# = ballspeedx# * -1
if ballx# <= 2 then ballspeedx# = ballspeedx# * -1
if object collision(3,1) > 0 then ballspeedz# = ballspeedz# * -1 
if object collision(3,2) > 0 then ballspeedz# = ballspeedz# * -1 
if ballz# >= 498 then ballspeedz# = ballspeedz# * -1 ; inc myscore, 1
if ballz# <= 2 then ballspeedz# = ballspeedz# * -1 ; inc compscore, 1

rem -move all objects that need moving
position object 1,mypadx#,2,40
position object 2,comppadx#,2,460
position object 3,ballx#+ballspeedx#,4,ballz#+ballspeedz#
position camera camerax#,25,-30
point camera ballx#,4,ballz#

rem -display score
text 2,3,myscorestring$ + str$(myscore)
text 2,18,compscorestring$ + str$(compscore)
text 388,3,"Play till 15"

rem -check winner
if myscore = 15
	ballspeedx# = 0
	ballspeedz# = 0
	gosub playerwin
	endif

if compscore = 15
	ballspeedx# = 0
	ballspeedz# = 0
	gosub compwin
	endif

rem -SYNC
sync

rem -END MAIN LOOP
loop

rem - win gosubs.. don't work yet 
playerwin:

set text size 32
	text 360,300,"Player Wins"
	wait key
	end

compwin:

set text size 32
	text 357,300,"Computer Wins"
	wait key
	end

+ Code Snippet

rem -setup basics
set display mode 800,600,16
set camera range 1,700
make matrix 1,500,500,50,50
set matrix wireframe off 1
load image "put texture here",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1

make object box 1,26,4,8
make object box 2,26,4,8
make object sphere 3,4
position object 1,250,2,40
color object 1,rgb(255,0,0)
position object 2,250,2,460
color object 2,rgb(255,0,0)
position object 3,250,4,250
color object 3,rgb(0,0,255)

position camera 250,25,-35

autocam off
hide mouse

sync on
sync rate 60

side = rnd(1)

backdrop on
color backdrop rgb(0,0,0)

set ambient light 25
color ambient light rgb(0,0,80)

rem -setup basic font style
set text size 16
set text to bold

rem -setup ball basics
ballspeedx# = rnd(3)+4
ballspeedz# = rnd(5)+3

if side = 1 then ballspeedx# = ballspeedx# * -1 ; ballspeedz# = ballspeedz# * -1

rem -setup score basics
myscore = 0
compscore = 0

myscorestring$ = "Player: "
compscorestring$ = "Computer: "

rem -setup collision
make object collision box 1,-13,-2,-13,13,2,13,0
make object collision box 2,-13,-2,-13,13,2,13,0
make object collision box 3,-2,-2,-2,2,2,2,0

rem -MAIN LOOP
do

rem -setup basic variables
mypadx# = object position x(1)
comppadx# = object position x(2)
ballx# = object position x(3)
ballz# = object position z(3)
camerax# = camera position x()

rem -setup controls
if leftkey() = 1 then dec mypadx#, 5 ; dec camerax#, 5
if rightkey() = 1 then inc mypadx#, 5 ; inc camerax#, 5

rem -check left and right bounds
if mypadx# >= 487 then mypadx# = 487
if mypadx# <= 13 then mypadx# = 13
if camerax# >= 487 then camerax# = 487
if camerax# <= 13 then camerax# = 13

rem -create very basic ai :)
if ballspeedx# < 0
	dec comppadx#, rnd(ballspeedx#*-1)+abs(ballspeedx#/4)
	endif

if ballspeedx# > 0
	inc comppadx#, rnd(ballspeedx#)+abs(ballspeedx#/4)
	endif

if comppadx# > ballx#
	dec comppadx#, 1
	endif

if comppadx# < ballx#
	inc comppadx#, 1
	endif

if comppadx# >= 487 
	comppadx# = 487
	endif

if comppadx# <= 13
	comppadx# = 13
	endif


rem -set up ball movement
if ballx# >= 498 then ballspeedx# = ballspeedx# * -1
if ballx# <= 2 then ballspeedx# = ballspeedx# * -1
if object collision(3,1) > 0 then ballspeedz# = ballspeedz# * -1 
if object collision(3,2) > 0 then ballspeedz# = ballspeedz# * -1 
if ballz# >= 498 then ballspeedz# = ballspeedz# * -1 ; inc myscore, 1
if ballz# <= 2 then ballspeedz# = ballspeedz# * -1 ; inc compscore, 1

rem -move all objects that need moving
position object 1,mypadx#,2,40
position object 2,comppadx#,2,460
position object 3,ballx#+ballspeedx#,4,ballz#+ballspeedz#
position camera camerax#,25,-30
point camera ballx#,4,ballz#

rem -display score
text 2,3,myscorestring$ + str$(myscore)
text 2,18,compscorestring$ + str$(compscore)
text 388,3,"Play till 15"

rem -check winner
if myscore = 15
	ballspeedx# = 0
	ballspeedz# = 0
	gosub playerwin
	endif

if compscore = 15
	ballspeedx# = 0
	ballspeedz# = 0
	gosub compwin
	endif

rem -SYNC
sync

rem -END MAIN LOOP
loop

rem - win gosubs.. don't work yet 
playerwin:

	set text size 32
	text 360,300,"Player Wins"
	wait key
	end

compwin:

	set text size 32
	text 357,300,"Computer Wins"
	wait key
	end

p.s. - you have to put a texture in.

Back to top

Profile PM

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 28th Apr 2006 19:54

Link

Jman:

Did you read my post?

Did you try it?

Did it help?

!!!

TDK_Man

DB Tutorials, Hints & Tips, Utils and lots more...
A New IDE For DB Classic!

Back to top

Profile PM Email Website

Jman

18

Years of Service

User Offline

Joined: 25th Apr 2006

Location:

Posted: 29th Apr 2006 08:29

Link

TDK_Man:

Yes

No, I used smallg's suggestion

Thankyou for helping though, I appreciate it. Unfortunatly, as far as my latest problem is conserned, yes, the text commands are outside of the sync, as well as the main loop all together.

!!!

-Jman

Back to top

Profile PM

smallg

Valued Member

18

Years of Service

User Offline

Joined: 8th Dec 2005

Location: steam

Posted: 30th Apr 2006 16:02 Edited at: 30th Apr 2006 16:06

Link

the best.... i didn't move and it went to 14 all... then i lost anyway... i'll try to fix it now, lol

[edit]
here u go

+ Code Snippet

rem - win gosubs.. don't work yet
playerwin:

   set text size 32
   do
   text 360,300,"Player Wins"
   if inkey$()<>"" then exit
   sync
   loop
   end

compwin:

   set text size 32
   do
   text 357,300,"Computer Wins"
   if inkey$()<>"" then exit
   sync
   loop
   end

life's one big game
spec= 2ghz, 1gb ram, 512mb gpu, directx 9.0c, dbpro and classic

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / 3d pong AI