TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 6th May 2004 13:08

Modified: 1st Jan 1970 01:00

Author: Francesco

Summary

Shoot with mouseclick.

Full Description

Look out for deers!

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

start:

score=0

start=start+1

if file exist("rank")=0 then make file "rank"

if start=1

dim rank(1)

rank(1)=-1

endif

load array "rank",rank(0)

verystart:

sync on : hide mouse : sync rate 0

load bitmap "target.bmp",1

get image 1,2,2,250,250

delete bitmap 1

load bitmap "fire.bmp",3

get image 3,20,20,160,160

delete bitmap 3

load bitmap "pointer.bmp",4

get image 4,0,0,40,40

delete bitmap 4

load bitmap "tree.bmp",5

get image 5,0,0,640,480

delete bitmap 5

load bitmap "deer.bmp",6

get image 6,20,0,114,100,6

delete bitmap 6

load bitmap "blood.bmp",7

get image 7,0,0,113,135

delete bitmap 7

sprite 1,x,50,1

sprite 6,130,370,6

sprite 7,sprite x(6),sprite y(6),7

sprite 5,0,0,5

set sprite 5,0,1

size sprite 1,100,100

sprite 2,mousex(),mousey(),1

size sprite 2,5,5

hide sprite 2

cls

load bitmap "background.bmp",2

set current bitmap 0

sprite 4,mousex()-20,mousey()-20,4

sprite 3,mousex()-35,mousey()-35,3

size sprite 3,80,80

size sprite 7,60,60

hide sprite 3

j#=80

k=370

n#=timer()

return

sprite 2,mousex(),mousey(),1

sprite 3,mousex()-35,mousey()-35,3

sprite 1,x,y,1

sprite 4,mousex()-20,mousey()-20,4

sprite 5,0,0,5

sprite 6,j#,k,6

sprite 7,sprite x(6)+29,sprite y(6)+5,7

sprite 8,sprite x(1)+15,sprite y(1)+19,8

if x>540 then ui=1

if ui=1

x=x-rnd(100)/20

else

x=x+rnd(100)/20

endif

if x<10 then ui=0

if x<10 then p=0

if y>150 then p=1

if p=1

y=y-rnd(100)/20

else

y=y+rnd(100)/20

endif

if y<10 then p=0

if j#<81

hide sprite 7

pj=0

a=rnd(6000)

else

a=a

endif

if a<60

if j#>150 and hgf=0 then ul=1

if ul=1

j#=j#-0.5

else

j#=j#+0.5

endif

if j#<80 then ul=0

endif

rem

if sprite collision(2,5)=1

pt=1

else

pt=0

endif

rem

if sprite collision(2,5)=1 and mouseclick()=1

pi=1

else

pi=0

endif

rem

if mouseclick()=1 and sprite collision(2,1)=1 and pl=0 and pt=0

score=score+1

pp=pp+1

show sprite 3

else

hide sprite 3

endif

if pp<60 and pp>0 then score=score : pl=1 : pp=pp+1

if pp=>10 then pp=0 : pl=0

rem

if mouseclick()=1 and sprite collision(2,0)=4 and pf=0 or pi=1 and pf=0

score=score-1

ll=ll+1

show sprite 3

endif

if ll<60 and ll>0 then score=score : pf=1 : ll=ll+1

if ll=>10 then ll=0 : pf=0

rem

if mouseclick()=1 and sprite collision(2,6)=1 and pj=0 and pt=0

score=score+10

show sprite 7

pj=1

show sprite 3

endif

ink 0,0

box 440,10,630,70

set text to italic

set text font "mistral"

set text size 40

ink -255,0

text 445,15,"SCORE: "+str$(score)+""

box 440,90,630,150

ink 0,0

time=abs(((timer()-n#)/1000)-60)

text 445,95,"TIME: "+str$(time)+""

if time=0 then wait 300 : goto end

box 440,200,630,250

ink -255,0

set text size 30

text 445,200,"HIGH SCORE: "+str$(rank(1))+""

sync

cls

copy bitmap 2,0

if start=1 then gosub ranking

loop

ranking:

if score>rank(1)

rank(1)=score

endif

save array "rank",rank(1)

return

end:

for c=1 to 8

if sprite exist(c)=1

delete sprite c

endif

next c

cls -255

set text size 100

text 20,0,"YOUR SCORE: "+str$(score)+""

text 20,200,"HIGH SCORE: "+str$(rank(1))+""

wait 2000

goto start

Download

Please login to download

Comments

No comments yet.

CodeBase - Shooting 2d

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Francesco
CodeBase Entries:	3