TheGameCreators - CodeBase

Return to the CodeBase listing

Category: 2D

Version: 1.0

Information

Uploaded: 14th Apr 2007 16:40

Modified: 1st Jan 1970 01:00

Author: ozmoz

Summary

This is a 2d snake game ...

Full Description

This is a 2d snake game.This game is like classic snake.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

SET WINDOW ON

SET WINDOW SIZE 500, 500

SET WINDOW TITLE "YILAN"

SET WINDOW POSITION 50,20

dim a$(50)

dim yerx(100)

dim yery(100)

can=5

sev=1

kuy=3

j=1

gosub hyer

open to read 1,"ekran1.txt"

for x=1 to 30

read string 1,a$(x)

next x

close file 1

k=150:l=100

sync on

bas:

cls rgb(50,200,100)

ink rgb(241,241,41),1

for x=1 to 30

set cursor 0,x*8

print a$(x)

next x

set cursor 1,10

print a$(1)

set cursor 1,217

print a$(1)

set cursor 1,9

print a$(1)

set cursor 1,218

print a$(1)

for x=2 to 29

set cursor 2,x*8

print a$(x)

next x

if j<kuy+1 then j=j+1

if j>kuy then j=0

i=j

if upkey()=1 then dur=0

if dur=0

l=l-sev

if i<1 then i=kuy

yerx(i)=k

yery(i)=l+i*10

endif

if downkey()=1 then dur=1

if dur=1

l=l+sev

if i<1 then i=kuy

yerx(i)=k

yery(i)=l-i*10

endif

if leftkey()=1 then dur=2

if dur=2

k=k-sev

yerx(i)=k+i*10

yery(i)=l

endif

if rightkey()=1 then dur=3

if dur=3

k=k+sev

yerx(i)=k-i*10

yery(i)=l

endif

if hx>k-10 and hx<k+10 and hy>l-10 and hy<l+10

kuy=kuy+1

puan=puan+10

hx=rnd(200)+20

hy=rnd(150)+20

endif

if l>200 then l=15:can=can-1:gosub hyer

if l<15 then l=200:can=can-1:gosub hyer

if k>290 then k=10:can=can-1:gosub hyer

if k<10 then k=290:can=can-1:gosub hyer

for i= 1 to kuy

ink rgb(41,0,241),1

set cursor yerx(i),yery(i)

print chr$(169)

next i

ink rgb(41,5,241),1

set cursor yerx(1)+2,yery(1)

print chr$(186)

ink rgb(250,41,0),1

set cursor hx,hy

print "OO"

set cursor hx,hy

print "++"

ink rgb(50,241,0),1

set cursor hx+4,hy+8

print "V"

ink rgb(241,241,241),1

set cursor 320,0

print "Puan=";puan

for c=1 to can

set cursor 320+c*10,40

print chr$(167)

next c

set cursor 320,80

print "Seviye=";sev

if can<0 then end

if puan=100*sev

sev=sev+1

kuy=3

gosub hyer

endif

sync

goto bas

end

hyer:

hx=rnd(200)+20

hy=rnd(150)+50

return

Download

Please login to download

Comments

No comments yet.

Author Name:	ozmoz
CodeBase Entries:	11

CodeBase - YILAN

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments