Color Square software sprites.. - GameCreators Forum

Author

Message

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 27th Dec 2005 22:45

Link

Here is a little code snipet that draws 10 colored square images then pastes them at random on the screen to show how they look, this could be used for any color match type game where you need a different color square to place on screen etc..

Rem Colorful squares..
for Yp=1 to 32
  Cfor=RGB(48+(Yp*6),0,0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(48+(Yp*6),0,0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 1,1,1,32,32
CLS
for Yp=1 to 32
  Cfor=RGB(48+(Yp*6),48+(Yp*3),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(48+(Yp*6),48+(Yp*3),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 2,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(48+(Yp*6),48+(Yp*6),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(48+(Yp*6),48+(Yp*6),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 3,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(48+(Yp*3),48+(Yp*6),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(48+(Yp*3),48+(Yp*6),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 4,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(0,48+(Yp*6),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(0,48+(Yp*6),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 5,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(0,48+(Yp*6),48+(Yp*3))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(0,48+(Yp*6),48+(Yp*3))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 6,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(0,48+(Yp*6),48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(0,48+(Yp*6),48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 7,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(0,48+(Yp*3),48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(0,48+(Yp*3),48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 8,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(0,0,48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(0,0,48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 9,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(48+(Yp*3),0,48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(48+(Yp*3),0,48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 10,1,1,32,32
Cls
do
 paste image rnd(9)+1,rnd(640),rnd(480),1
loop

+ Code Snippet

Rem Colorful squares..
for Yp=1 to 32
  Cfor=RGB(48+(Yp*6),0,0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(48+(Yp*6),0,0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 1,1,1,32,32
CLS
for Yp=1 to 32
  Cfor=RGB(48+(Yp*6),48+(Yp*3),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(48+(Yp*6),48+(Yp*3),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 2,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(48+(Yp*6),48+(Yp*6),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(48+(Yp*6),48+(Yp*6),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 3,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(48+(Yp*3),48+(Yp*6),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(48+(Yp*3),48+(Yp*6),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 4,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(0,48+(Yp*6),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(0,48+(Yp*6),0)
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 5,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(0,48+(Yp*6),48+(Yp*3))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(0,48+(Yp*6),48+(Yp*3))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 6,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(0,48+(Yp*6),48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(0,48+(Yp*6),48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 7,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(0,48+(Yp*3),48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(0,48+(Yp*3),48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 8,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(0,0,48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(0,0,48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 9,1,1,32,32
Cls
for Yp=1 to 32
  Cfor=RGB(48+(Yp*3),0,48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 32
    Dot Xp, Yp
  next Xp
next Yp
for Yp=1 to 24
  Cfor=RGB(48+(Yp*3),0,48+(Yp*6))
  Cbkg=RGB(0,0,0)
  ink Cfor,Cbkg
  for Xp=1 to 24
    Dot Xp+4, 29-Yp
  next Xp
next Yp
Get Image 10,1,1,32,32
Cls
do
 paste image rnd(9)+1,rnd(640),rnd(480),1
loop

Enjoy, and coments are always welcome.

Cheers!

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 28th Dec 2005 12:15

Link

Well, A tip might be:
DBPro can make gradient boxes.

box x, y, x2, y2, color1, color2, color3, color4

And each color represents the color of a corner. It can shorten you're code dramatically

. If you have DBPro ofcourse...

Cheers!

Sven B

Back to top

Profile PM Email

David Gervais

Retired Moderator

19

Years of Service

User Offline

Joined: 28th Sep 2005

Location: Montreal, Canada

Posted: 28th Dec 2005 21:59 Edited at: 28th Dec 2005 21:59

Link

I do indeed have DBPro,.. but I'm just starting with it and have yet to learn all the commands.. I tend to look for commands as I need them while coding, then practice a few routines to test them out.

Thanks for pointing out that command, you're right of course, it would greatly shorten the codebase of the above sample.

Cheers!

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / Color Square software sprites..