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

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

                                    ` 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)
do
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
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