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

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

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    menu:
Do
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)
do
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
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