TheGameCreators - CodeBase - Ozmoz Soccer (Football Game )

Return to the CodeBase listing

Category: 3D

Version: 1.0

Information

Uploaded: 4th Nov 2009 09:30

Modified: 1st Jan 1970 01:00

Author: ozmoz

Summary

Ozmoz Soccer is one-to-one simple football game.This is very funny.

Full Description

Ozmoz Soccer is one-to-one simple football game.This is very funny.Your controller is Arrow keys and Space key(shot).If you have got 11 goals in game, your level up.If computer has got 10 goals in game ,your game over :D

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

menu:

text 100,0,"Soccer Game"

if Button(20,55,"New Game")=1 then Goto oyun

if Button(20,95,"Help") then goto yar

If Button(20,135,"End")=1 then End

sync

loop

end

yar:

set cursor 100,70:print "Controls"

set cursor 100,80:print "_________"

set cursor 100,100:print "Arrow keys and Space key(shot)"

set cursor 100,130:print "press any key"

wait key

cls

goto menu

oyun:

sync on

sync rate 60

rem yer yapÄ±mÄ±

yer=100

make object plain yer,25,25

xrotate object yer,270

color object yer,rgb(0,150,100)

rem engel

for engel=200 to 207

if engel<204 then MAKE OBJECT CYLINDER engel,1

if engel<204 then color object engel,rgb(255,255,255)

if engel>203 then MAKE OBJECT box engel,2,5,25

if engel>203 then color object engel,rgb(0,150,120)

if engel>205 then yrotate object engel,90

next engel

position object 200,5,0,12

position object 201,0,0,12

position object 202,0,0,-12

position object 203,5,0,-12

position object 204,13,0,0

position object 205,-13,0,0

position object 206,0,0,13

position object 207,0,0,-13

player=10

make object box player,.5,1,.5

position object player,0,.5,0

color object player,rgb(255,0,255)

dusman=50

dusmanx# = 2

dusmany# = 0.5

dusmanz# = 3

enemyspeed# = 0.07

engel=199

seviye=1

top=212

make object box dusman,.5,1,.5

color object dusman,rgb(255,255,0)

position object dusman,dusmanx#,dusmany#,dusmanz#

rem top

make object SPHERE top,.7

color object top,rgb(255,0,0)

tx=rnd(10):tz=rnd(10)

set cursor 0,0:print  "Player=";puan

set cursor 100,0:print "Computer=";can

set cursor 0,20:print "level=",seviye

if can>10*seviye-1 then set cursor 100,100:print "last Goal !!!"

if can>10*seviye then goto menu

if puan>10*seviye then seviye=seviye+1:enemyspeed# =enemyspeed#+0.01

position camera object position x(player),object position y(player)+5,object position z(player)-3

point camera object position x(player),object position y(player),object position z(player)

if object collision (dusman,player)>0 then position object player,object position x(player)+1,object position y(player),object position z(player)

if object collision (204,player)>0 then position object player,object position x(player)-2,object position y(player),object position z(player)

if object collision (205,player)>0 then position object player,object position x(player)+2,object position y(player),object position z(player)

if object collision (206,player)>0 then position object player,object position x(player),object position y(player),object position z(player)-2

if object collision (207,player)>0 then position object player,object position x(player),object position y(player),object position z(player)+2

if object collision (top,player)>0  then tz=tz+1

if object collision (top,player)>0 and spacekey()=1 then tz=tz+3

if object collision (top,player)>0 and leftkey()=1 then  tx=tx-1

if object collision (top,player)>0 and rightkey()=1 then  tx=tx+1

if object collision (top,dusman)>0 then  tz=tz-1

position object top,tx,0,tz

if object collision (204,dusman)>0 then position object dusman,object position x(dusman)-2,object position y(dusman),object position z(dusman)

if object collision (205,dusman)>0 then position object dusman,object position x(dusman)+2,object position y(dusman),object position z(dusman)

if object collision (206,dusman)>0 then position object dusman,object position x(dusman),object position y(dusman),object position z(dusman)-2

if object collision (207,dusman)>0 then position object dusman,object position x(dusman),object position y(dusman),object position z(dusman)+2

enemyspeed#=0.1

engel=engel+1

if tx>-1 and tx<6 and tz<-11 then can=can+1:tx=rnd(10):tz=rnd(10)

if tx>-1 and tx<6 and tz>11 then puan=puan+1:tx=rnd(10):tz=rnd(10)

if engel>207 then engel=200

if object collision (engel,top)>0 then tx=rnd(10):tz=rnd(10)

rem oyuncu kontrolÃ¼

if upkey()=1 then position object player,object position x(player),object position y(player),object position z(player)+.2

if downkey()=1 then position object player,object position x(player),object position y(player),object position z(player)-.2

if leftkey()=1 then position object player,object position x(player)-.2,object position y(player),object position z(player)

if rightkey()=1 then position object player,object position x(player)+.2,object position y(player),object position z(player)

rem dusman hareketi

move object dusman, enemyspeed#

point object dusman,object position x(top),object position y(top),object position z(top)

sync

loop

function Button(x1,y1,WORDS$)

Pressed=0

x2=Text Width(WORDS$)

y2=Text Height(WORDS$)

if mousex()>x1 and mousex()<x1+x2

if mousey()>y1-y2 and mousey()<y1+y2

Pressed=1

endif

if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0

if pressed=1

Pressed=Mouseclick()

else

pressed = 0

endif

text x1,y1,WORDS$

endfunction pressed

Download

Please login to download

Comments

No comments yet.

Author Name:	ozmoz
CodeBase Entries:	11

CodeBase - Ozmoz Soccer (Football Game )