TheGameCreators - CodeBase - TPS Game Example (in garden)

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 7th Apr 2009 15:10

Modified: 1st Jan 1970 01:00

Author: ozmoz

Summary

This is TPS game example .You are in garden and shot all monster.. :~D

Full Description

You are in garden .If garden's monster busted your life is decrease for going to die or you shot monster,monster is die .If you eat 10th apples, you finish game. This game need no media :~D

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on

sync rate 60

can=100

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.3

if engel<204 then color object engel,rgb(200,150,180)

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

for yaprak=208 to 211

MAKE OBJECT CONE yaprak,1.5

color object yaprak,rgb(0,150,120)

next yaprak

position object 200,8,0,8

position object 201,0,0,8

position object 202,0,0,0

position object 203,8,0,0

position object 204,13,0,0

position object 205,-13,0,0

position object 206,0,0,13

position object 207,0,0,-13

position object 208,8,1.5,8

position object 209,0,1.5,8

position object 210,0,1.5,0

position object 211,8,1.5,0

player=10

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

position object player,0,.5,0

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

rem mermi yapÄ±mÄ±

make object cube 1,.1

position object 1,0,.5,0

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

rem make the bullet

bullet=11

make object cylinder bullet,.15

dusman=50

dusmanx# = 2

dusmany# = 0.5

dusmanz# = 3

enemyspeed# = 0.07

engel=199

elma=10

seviye=1

make object cube dusman,.7

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

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

rem elma

make object SPHERE 212,.7

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

position object 212,rnd(10),0.5,rnd(10)

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

set cursor 0,20:print "can=";can

set cursor 0,40:print "elma=";elma

set cursor 0,60:print "Seviye=",seviye

if can<0 then set cursor 100,100:print "Oyun Bitti !!!"

if can<-10 then end

if elma<1 then elma=10 :seviye=seviye+1:enemyspeed# =enemyspeed#+0.01

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

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

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

if object collision (bullet,dusman)>0 then position object dusman,rnd(5),0,rnd(5):puan=puan+10

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

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 (212,player)>0 then  can=can+5:position object 212,rnd(10),0,rnd(10):elma=elma-1

enemyspeed#=0.1

engel=engel+1

if engel>207 then engel=200

if object collision (engel,dusman)>0 then enemyspeed#=-0.5:don=don+1:yrotate object dusman,don

if don>360 then don=0

rem oyuncu kontrolÃ¼

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

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

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

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

rem dusman hareketi

move object dusman, enemyspeed#

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

rem mermi kontrolÃ¼

if object screen x(1) < mousex()-3

position object 1,object position x(1)+.35,object position y(1),object position z(1)

endif

if object screen x(1) > mousex()+3

position object 1,object position x(1)-.35,object position y(1),object position z(1)

endif

if object screen y(1) < mousey()-3

move object 1,-.35

endif

if object screen y(1) > mousey()+3

move object 1,.35

endif

rem oyuncunun ateÅŸ etmesi

if mouseclick()=1

if buttonready=0

bulletismoving=1

killable=1

position object bullet,object position x(player),object position y(player),object position z(player)

rotate object bullet,object angle x(player),object angle y(player),object angle z(player)

endif

if bulletismoving=1

move object bullet,1

buttonready=1

endif

if object screen y(bullet)<0 or object screen x(bullet)<0 or object screen x(bullet)>640

hide object bullet

killable=0

bulletismoving=0

buttonready=0

else show object bullet

endif

if killable=0 then hide object bullet

sync

loop

Download

Please login to download

Comments

No comments yet.

Author Name:	ozmoz
CodeBase Entries:	11

CodeBase - TPS Game Example (in garden)

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments