Town |

Cars |

clg

# For this program to work you need to copy the pictures and save in your disk/pen, and then change the path in imgload if necessary.

# This is the sprite sheet

imgload 150,75,"G:\cars.png"

spritedim 16

n=0

fastgraphics

# slicing vehicles from the sprite sheet

for y = 0 to 112.5 step 37.5

for x = 0 to 225 step 75

spriteslice n,x,y,75,37.5

n=n+1

next x

next y

pause 2

graphsize 600,300

#Backgroud image

imgload 300,150,"G:\town.png"

# Placing vehicles

for n = 0 to 3

spriteplace n,int(rand*20)+n*100,260

spriteshow n

next n

for n = 4 to 7

spriteplace n,int(rand*20)+n*100-300,265

spriteshow n

next n

for n = 8 to 11

spriteplace n,int(rand*20)+n*100-700,275

spriteshow n

next n

for n = 12 to 15

spriteplace n,int(rand*20)+n*100-1100,280

spriteshow n

next n

# Makes sprites move

loop:

for n = 0 to 7

if n>-1 and n<4 then spritemove n,1.2,0

if n>3 and n<8 then spritemove n,.8,0

if spritex (n) = 600 then spritemove n,-600,0

next n

for n = 8 to 15

if n>7 and n<12 then spritemove n,-1.2,0

if n>11 and n<16 then spritemove n,-.8,0

if spritex (n) = 0 then spritemove n,600,0

next n

refresh

goto loop

This blog awesome and i learn a lot about programming from here.The best thing about this blog is that you doing from beginning to experts level.

ReplyDeleteLove from

Programming is very interesting and creative thing if you do it with love. Your blog code helps a lot to beginners to learn programming from basic to advance level. I really love this blog because I learn a lot from here and this process is still continuing.

ReplyDeleteLove from Pro Programmer