The DB Classic Programming Challenge Thread

Author

Message

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 4th May 2007 18:51

Link

Just the usual quick reminder for those wanting to make a last minute entry...

5 hours to go, so get a move on!

Now can I get my idea to actually work properly...

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 4th May 2007 19:14

Link

@Paelax

Quote: "Whoever is judging this one is gonna have a lot of entries to look at."

Yes, I was hoping that this one would have a lot of entries.

@everyone who's entered

Nice load of entries. Good work!

@everyone who's got an entry but hasn't yet posted.

As TDK_man said, hurry up!

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 4th May 2007 19:45

Link

Just wanted to say, i'm putting probably another one in, but thank you for putting in these challenges. They are always so fun to do. and they teach you new stuff! Thanks TGC!!!

Back to top

Profile PM Email

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 5th May 2007 02:16 Edited at: 5th May 2007 02:19

Link

Last minute entry:

Set Display Mode 800,600,32
Sync On: Sync Rate 0: CLS 0: Sync

AutoCam Off
Backdrop On: Color Backdrop 0
Hide Mouse
Randomize Timer()
Set Camera Range 1.0,100000.0
Set Text Opaque
Set Ambient Light 100

Dim CosTable#(360)
Dim SinTable#(360)
Dim XPos#(50)
Dim YPos#(50)
Dim ZPos#(50)

For N=1 To 360
  CosTable#(N) = Cos(N)
  SinTable#(N) = Sin(N)
Next N

X=80: Y=80: XPos#=0: YPos#=0
NumRingSets = 20: StartZ = 4000: Gap = StartZ/NumRingSets
RingStartX = 0: RingStartY = 0: MidRing=2: Speed=20
ColourSections = 10

Gosub MakeTextures

For N=1 To NumRingSets
  ZPos#(N)=4000+N*200
  For A = 1 To 40
    Make Object Plain N*40+A,10,10
    If N=5 Or N=15
      Colour = 3
    Else
      If A=10 Or A=20 Or A=30 Or A=40
        Colour = 2
      Else
        Colour = 1
      Endif
    Endif
    Texture Object N*40+A,Colour
    Ghost Object On N*40+A
    x2 = CosTable#(a*9)*x - SinTable#(a*9)*y
    y2 = SinTable#(a*9)*y + CosTable#(a*9)*x
    Position Object N*40+A,x2,y2,ZPos#(N)
  Next A
Next N

Point Camera 0,0,0

Make Object Sphere 5001,1000
Scale Object 5001,10000,10000,10000
Texture Object 5001,4
Set Object 5001,1,1,0

CubeZ=40: CubeDir=20
MakeLimbCube(1000,10.0)
Position Object 1000,0,-10,CubeZ
Texture Limb 1000,1,5
Texture Limb 1000,2,5
Texture Limb 1000,3,5
Texture Limb 1000,4,5
Texture Limb 1000,5,5
Texture Limb 1000,6,5

Repeat
  MMx=MouseMoveX(): MMy=MouseMoveY: Mc=MouseClick(): Sc=ScanCode()
  For N=1 To NumRingSets: Rem Ring Sets
    ZPos#(N) = ZPos#(N)-Speed
    If ZPos#(N) <= 0: Rem Ring behind camera
      ZPos#(N) = StartZ
      Inc RingCounter
      If RingCounter = ColourSections
        RingCounter = 0
      Endif
    Endif
    For A=1 To 40: Rem Spheres per ring
      Position Object N*40+A,  Object Position X(N*40+A),  Object Position Y(N*40+A),  ZPos#(N)
    Next A
  Next N
  Rotate Object 1000,WrapValue(Object Angle X(1000)+1),WrapValue(Object Angle Y(1000)+1),WrapValue(Object Angle Z(1000)+1)
  ZRotate Camera WrapValue(Camera Angle Z()+1)
  ZRotate Object 5001, WrapValue(Camera Angle Z()+1)
  Inc CubeZ,CubeDir
  If CubeZ <= 40 Then CubeDir = 0-CubeDir
  If CubeZ >= 200 Then CubeDir = 0-CubeDir
  Position Object 5001,Object Position X(5001),Object Position Y(5001),CubeZ
  Sync
Until MMx<>0 or MMy<>0 Or Mc<>0 Or Sc<>0
End

MakeTextures:
  Create Bitmap 1,1024,768
  Rem Particle Red
  CLS 0: C=255
  For N=1 To 127
    Ink RGB(C,0,0),0
    Circle 127,127,N
    Circle 127,128,N
    Dec C,2
  Next N
  Get Image 1,0,0,256,256

Rem Particle Yellow
  CLS 0: C=255
  For N=1 To 127
    Ink RGB(C,C,0),0
    Circle 127,127,N
    Circle 127,128,N
    Dec C,2
  Next N
  Get Image 2,0,0,256,256

Rem Particle Blue
  CLS 0: C=255
  For N=1 To 127
    Ink RGB(0,0,C),0
    Circle 127,127,N
    Circle 127,128,N
    Dec C,2
  Next N
  Get Image 3,0,0,256,256

Rem Stars
  CLS 0
  For N=1 To 2000
    Ink RGB(Rnd(200)+55,Rnd(100)+10,Rnd(100)+155),0
    Dot Rnd(512),Rnd(512)
  Next N
  Blur Bitmap 1,3
  For N=1 To 2000
    C=Rnd(200)+55
    Ink RGB(C,C,C),0
    Dot Rnd(512),Rnd(512)
  Next N
  Get Image 4,0,0,512,512: Rem <<< Add ,1 on the end when running in DBPro

CLS 0
  For N=0 To 255 Step 2
    Ink RGB(0,N,0),0
    Line 0,0,255,N
  Next N
  For N=255 To 0 Step -2
    Ink RGB(0,N,0),0
    Line 255,0,N,255
  Next N
  For N=255 To 0 Step -2
    Ink RGB(0,N,0),0
    Line 255,255,0,N
  Next N
  For N=0 To 255 Step 2
    Ink RGB(0,N,0),0
    Line 0,255,N,0
  Next N
  Get Image 5,0,0,256,256
  Set Current Bitmap 0
  Delete Bitmap 1
Return

Function MakeLimbCube(ObjNum,Size#)
  Offset#=Size#/2.0: MeshNum=2000: PlainNum=2000
  Make Object Cube ObjNum,Size#
  Make Object Plain PlainNum,Size#,Size#
  Make Mesh From Object MeshNum,PlainNum
  ADD LIMB ObjNum,1,2000: Offset Limb ObjNum,1,0,0,0.0-Offset#: Rem Cube Side 1 (Front)
  ADD LIMB ObjNum,2,2000: Rotate Limb ObjNum,2,0,90,0: Offset Limb ObjNum,2,0.0-Offset#,0,0: Rem Cube Side 2 (Left)
  ADD LIMB ObjNum,3,2000: Rotate Limb ObjNum,3,0,180,0: Offset Limb ObjNum,3,0,0,Offset#:  Rem Cube Side 3 (Back)
  ADD LIMB ObjNum,4,2000: Rotate Limb ObjNum,4,0,270,0: Offset Limb ObjNum,4,Offset#,0,0:  Rem Cube Side 4 (Right)
  ADD LIMB ObjNum,5,2000: Rotate Limb ObjNum,5,270,0,0: Offset Limb ObjNum,5,0,0.0-Offset#,0: Rem Cube Side 5 (Bottom)
  ADD LIMB ObjNum,6,2000: Rotate Limb ObjNum,6,90,0,0: Offset Limb ObjNum,6,0,Offset#,0: Rem Cube Side 6 (Top)
  Delete Mesh MeshNum
  Delete Object PlainNum
  Hide Limb ObjNum,0
EndFunction

+ Code Snippet

Set Display Mode 800,600,32
Sync On: Sync Rate 0: CLS 0: Sync

AutoCam Off
Backdrop On: Color Backdrop 0
Hide Mouse
Randomize Timer()
Set Camera Range 1.0,100000.0
Set Text Opaque
Set Ambient Light 100

Dim CosTable#(360)
Dim SinTable#(360)
Dim XPos#(50)
Dim YPos#(50)
Dim ZPos#(50)

For N=1 To 360
  CosTable#(N) = Cos(N)
  SinTable#(N) = Sin(N)
Next N

X=80: Y=80: XPos#=0: YPos#=0
NumRingSets = 20: StartZ = 4000: Gap = StartZ/NumRingSets
RingStartX = 0: RingStartY = 0: MidRing=2: Speed=20
ColourSections = 10

Gosub MakeTextures

For N=1 To NumRingSets
  ZPos#(N)=4000+N*200
  For A = 1 To 40
    Make Object Plain N*40+A,10,10
    If N=5 Or N=15
      Colour = 3
    Else
      If A=10 Or A=20 Or A=30 Or A=40
        Colour = 2
      Else
        Colour = 1
      Endif
    Endif
    Texture Object N*40+A,Colour
    Ghost Object On N*40+A
    x2 = CosTable#(a*9)*x - SinTable#(a*9)*y
    y2 = SinTable#(a*9)*y + CosTable#(a*9)*x
    Position Object N*40+A,x2,y2,ZPos#(N)
  Next A
Next N

Point Camera 0,0,0

Make Object Sphere 5001,1000
Scale Object 5001,10000,10000,10000
Texture Object 5001,4
Set Object 5001,1,1,0

CubeZ=40: CubeDir=20
MakeLimbCube(1000,10.0)
Position Object 1000,0,-10,CubeZ
Texture Limb 1000,1,5
Texture Limb 1000,2,5
Texture Limb 1000,3,5
Texture Limb 1000,4,5
Texture Limb 1000,5,5
Texture Limb 1000,6,5

Repeat
  MMx=MouseMoveX(): MMy=MouseMoveY: Mc=MouseClick(): Sc=ScanCode()
  For N=1 To NumRingSets: Rem Ring Sets
    ZPos#(N) = ZPos#(N)-Speed
    If ZPos#(N) <= 0: Rem Ring behind camera
      ZPos#(N) = StartZ
      Inc RingCounter
      If RingCounter = ColourSections
        RingCounter = 0
      Endif
    Endif
    For A=1 To 40: Rem Spheres per ring
      Position Object N*40+A,  Object Position X(N*40+A),  Object Position Y(N*40+A),  ZPos#(N)
    Next A
  Next N
  Rotate Object 1000,WrapValue(Object Angle X(1000)+1),WrapValue(Object Angle Y(1000)+1),WrapValue(Object Angle Z(1000)+1)
  ZRotate Camera WrapValue(Camera Angle Z()+1)
  ZRotate Object 5001, WrapValue(Camera Angle Z()+1)
  Inc CubeZ,CubeDir
  If CubeZ <= 40 Then CubeDir = 0-CubeDir
  If CubeZ >= 200 Then CubeDir = 0-CubeDir
  Position Object 5001,Object Position X(5001),Object Position Y(5001),CubeZ
  Sync
Until MMx<>0 or MMy<>0 Or Mc<>0 Or Sc<>0
End


MakeTextures:
  Create Bitmap 1,1024,768
  Rem Particle Red
  CLS 0: C=255
  For N=1 To 127
    Ink RGB(C,0,0),0
    Circle 127,127,N
    Circle 127,128,N
    Dec C,2
  Next N
  Get Image 1,0,0,256,256

  Rem Particle Yellow
  CLS 0: C=255
  For N=1 To 127
    Ink RGB(C,C,0),0
    Circle 127,127,N
    Circle 127,128,N
    Dec C,2
  Next N
  Get Image 2,0,0,256,256

  Rem Particle Blue
  CLS 0: C=255
  For N=1 To 127
    Ink RGB(0,0,C),0
    Circle 127,127,N
    Circle 127,128,N
    Dec C,2
  Next N
  Get Image 3,0,0,256,256

  Rem Stars
  CLS 0
  For N=1 To 2000
    Ink RGB(Rnd(200)+55,Rnd(100)+10,Rnd(100)+155),0
    Dot Rnd(512),Rnd(512)
  Next N
  Blur Bitmap 1,3
  For N=1 To 2000
    C=Rnd(200)+55
    Ink RGB(C,C,C),0
    Dot Rnd(512),Rnd(512)
  Next N
  Get Image 4,0,0,512,512: Rem <<< Add ,1 on the end when running in DBPro

  CLS 0
  For N=0 To 255 Step 2
    Ink RGB(0,N,0),0
    Line 0,0,255,N
  Next N
  For N=255 To 0 Step -2
    Ink RGB(0,N,0),0
    Line 255,0,N,255
  Next N
  For N=255 To 0 Step -2
    Ink RGB(0,N,0),0
    Line 255,255,0,N
  Next N
  For N=0 To 255 Step 2
    Ink RGB(0,N,0),0
    Line 0,255,N,0
  Next N
  Get Image 5,0,0,256,256
  Set Current Bitmap 0
  Delete Bitmap 1
Return

Function MakeLimbCube(ObjNum,Size#)
  Offset#=Size#/2.0: MeshNum=2000: PlainNum=2000
  Make Object Cube ObjNum,Size#
  Make Object Plain PlainNum,Size#,Size#
  Make Mesh From Object MeshNum,PlainNum
  ADD LIMB ObjNum,1,2000: Offset Limb ObjNum,1,0,0,0.0-Offset#: Rem Cube Side 1 (Front)
  ADD LIMB ObjNum,2,2000: Rotate Limb ObjNum,2,0,90,0: Offset Limb ObjNum,2,0.0-Offset#,0,0: Rem Cube Side 2 (Left)
  ADD LIMB ObjNum,3,2000: Rotate Limb ObjNum,3,0,180,0: Offset Limb ObjNum,3,0,0,Offset#:  Rem Cube Side 3 (Back)
  ADD LIMB ObjNum,4,2000: Rotate Limb ObjNum,4,0,270,0: Offset Limb ObjNum,4,Offset#,0,0:  Rem Cube Side 4 (Right)
  ADD LIMB ObjNum,5,2000: Rotate Limb ObjNum,5,270,0,0: Offset Limb ObjNum,5,0,0.0-Offset#,0: Rem Cube Side 5 (Bottom)
  ADD LIMB ObjNum,6,2000: Rotate Limb ObjNum,6,90,0,0: Offset Limb ObjNum,6,0,Offset#,0: Rem Cube Side 6 (Top)
  Delete Mesh MeshNum
  Delete Object PlainNum
  Hide Limb ObjNum,0
EndFunction

[Edit] Oops - posted the wrong version - without the screensaver bits!

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 5th May 2007 12:35

Link

Alot of entries this time. Spent half an hour looking athem and judging them. OK the entrants are:

Phaelax 1:
Nice bouncing and rotating boxes with trails. Very pleasing to the eye and very fast and smooth. Could have changed the colour of the backdrop though.

Phaelax 2:
Stars, traveling through space. There was something about it that didn't make it seem that realistic.

Phaelax 3:
Stars again. Faster, but still not that realistic travel.

Phaelax 4:
Very clever fern growth. Each time it made a different plant. When you pressed space is sped up the growth but missed out on the detailed bits.

Latch 1:
Neat mirror effect with the cube plus split screen and he made chessboard texture. High fps too. I think the split screen took something away from it. Mabye you should have changed the backdrop because seeing the black didn't really help.

Latch 2:
As latch said "very boring".

Latch 3:
Nice and slow and colourful. Reminds me of the first program I ever made...

Latch 4:
Cool orbiting words. Very simple but I could stare at that one for hours. Not too flashy but effective.

Zombie 20 1:
Colourful and fast. Made me a bit sick after staring at it for a while. Doesn't end if you move the mouse or if you press a key. Try slowing it down a bit.

Zombie 20 2:
Again colourful but nice to look at. Again doesn't have screensaver propeties.

TDK:
Has created textures from simple 2D comands. Psychodelic rotating cube plus rotating cylinder of differant coloured particles coming towards you. Quite slow though.

+ Code Snippet

Phaelax 1:
Nice bouncing and rotating boxes with trails. Very pleasing to the eye and very fast and smooth. Could have changed the colour of the backdrop though.

Phaelax 2:
Stars, traveling through space. There was something about it that didn't make it seem that realistic. 

Phaelax 3:
Stars again. Faster, but still not that realistic travel.

Phaelax 4:
Very clever fern growth. Each time it made a different plant. When you pressed space is sped up the growth but missed out on the detailed bits.

Latch 1:
Neat mirror effect with the cube plus split screen and he made chessboard texture. High fps too. I think the split screen took something away from it. Mabye you should have changed the backdrop because seeing the black didn't really help.

Latch 2:
As latch said "very boring".

Latch 3:
Nice and slow and colourful. Reminds me of the first program I ever made...

Latch 4:
Cool orbiting words. Very simple but I could stare at that one for hours. Not too flashy but effective.

Zombie 20 1:
Colourful and fast. Made me a bit sick after staring at it for a while. Doesn't end if you move the mouse or if you press a key. Try slowing it down a bit.

Zombie 20 2:
Again colourful but nice to look at. Again doesn't have screensaver propeties.

TDK:
Has created textures from simple 2D comands. Psychodelic rotating cube plus rotating cylinder of differant coloured particles coming towards you. Quite slow though.

OK, here's the winner:

+ Code Snippet

Paelax, entry 1

And the runner up:

+ Code Snippet

TDK_man

Congrats to the winner and over too the winner to set the next challnge...

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 5th May 2007 13:10

Link

Well done Phaelax - over to you!

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 5th May 2007 18:47

Link

nicely done phaelax, looking forward to your challenge

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 5th May 2007 22:26 Edited at: 5th May 2007 22:38

Link

hooray!

I got all the entries uploaded to the site and fixed a display issue (small but it bugged me) in IE.

Gimme a few minutes to think of something for a challenge. Any suggestions?

Back to top

Profile PM Email Website

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 5th May 2007 22:34

Link

um...suggestion hmm? ooo..How about a small puzzle game? Or maybe a program that draws lines and shapes according to the settings you put in. I dont know how to do those, but it would be fun to try.

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 5th May 2007 22:38

Link

Here's an idea, tell me all what you think.

- You will be given a map represented by DATA (0 passable, 1 blocked)

+ Code Snippet

1,0,1,1,1
1,0,1,1,1
1,0,0,1,1
1,1,0,0,0
1,1,0,1,1

The goal is to display the map (any method you want) and display ALL possible paths through the map by using recursion to search. A path through the map is consider by a '0' on the edge of the map. So the example above has 2 possible paths. During the judging, I will use a different set of map data.

Back to top

Profile PM Email Website

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 5th May 2007 22:47

Link

ooo i like that. my vote's in

Back to top

Profile PM Email

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 5th May 2007 23:32

Link

Bear in mind that it's very close to the one a few weeks ago where you had to guide a cone through a maze and collect three spheres.

Having said that, I'm OK with it...

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 5th May 2007 23:48

Link

Alright, then I'll go with this idea instead.

Draw/generate a texture. Try not to convert an image into DATA statements, it won't be accepted. Some DATA is allowed, just not for drawing the entire image pixel by pixel.

You could draw a tileable brick image, grass tile, or get fancy and show us some clouds using perlin noise. It's a fairly open challenge and the code you all come up with could be useful in future competitions.

Deadline: May 12, midnight (1 week)

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 6th May 2007 01:06

Link

Nice idea!

Here's one to start with. It's not a real entry because I used it in the last challenge, but people may not have spotted it.

It's a code-generated texture for particles:

+ Code Snippet

Rem Particle Red
CLS 0: C=255
For N=1 To 127
  Ink RGB(C,0,0),0
  Circle 127,127,N
  Circle 127,128,N
  Dec C,2
Next N
Get Image 1,0,0,256,256

If you alter the position of 'C' in the RGB function you can alter the colour - for example RGB(C,C,C) gives you a white particle while RGB(0,0,C) gives you a blue one.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 6th May 2007 13:08

Link

Just made a hedge and bark texture. It'll show the hedge and then when you click it'll show the 'christmas tree'

sync on

gosub gethedgetex
gosub getbarktex

cls

autocam off

position camera 0,200,-1000
point camera 0,0,0

make object box 1,1000,500,100
texture object 1,1
scale object texture 1,5,5

direction=1
while mouseclick()=0 and scancode=0

if direction=1 then speed#=speed#+0.1
   if direction=0 then speed#=speed#-0.1

if speed#>5 then speed#=5
   if speed#<-5 then speed#=-5

camy#=camy#+speed#

if camy#>200 then direction=0
   if camy#<-200 then direction=1

position camera 0,camy#,-1000

yrotate object 1,wrapvalue(object angle y(1)+1)

set cursor 0,0
   ink rgb(255,255,255),0
   print camy#
   print speed#

sync

endwhile

delete object 1

print "1"
sync

position camera 0,0,-1000

make object cone 1,500
texture object 1,1
scale object texture 1,5,5

make mesh from object 1,1
add limb 1,1,1
offset limb 1,1,0,-300,0
hide limb 1,1

make object cylinder 2,200
texture object 2,2
scale object texture 1,5,5
glue object to limb 2,1,1

sleep 500

camy#=0
direction=1
while mouseclick()=0 and scancode=0

if direction=1 then speed#=speed#+0.1
   if direction=0 then speed#=speed#-0.1

if speed#>5 then speed#=5
   if speed#<-5 then speed#=-5

camy#=camy#+speed#

if camy#>200 then direction=0
   if camy#<-200 then direction=1

position camera 0,camy#,-1000

yrotate object 1,wrapvalue(object angle y(1)+1)

set cursor 0,0
   ink rgb(255,255,255),0
   print camy#
   print speed#

sync

endwhile

end

gethedgetex:

texturexsize=64
   textureysize=64

ink rgb(0,128,0),0
   box 1,1,texturexsize,textureysize

ink rgb(0,100,25),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

for i=1 to 1000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      ink rgb(0,rnd(150)+100,0),0
      line x1,y1,x2,y2
   next i

get image 1,1,1,texturexsize,textureysize

return

getbarktex:

texturexsize=64
   textureysize=64

ink rgb(50,20,0),0
   box 1,1,texturexsize,textureysize

ink rgb(90,50,0),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

for i=1 to 1000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      r=rnd(40)+60
      g=rnd(r-30)
      ink rgb(r,g,0),0
      line x1,y1,x2,y2
   next i

get image 2,1,1,texturexsize,textureysize

return

+ Code Snippet

sync on

gosub gethedgetex
gosub getbarktex

cls

autocam off

position camera 0,200,-1000
point camera 0,0,0

make object box 1,1000,500,100
texture object 1,1
scale object texture 1,5,5

direction=1
while mouseclick()=0 and scancode=0

   if direction=1 then speed#=speed#+0.1
   if direction=0 then speed#=speed#-0.1

   if speed#>5 then speed#=5
   if speed#<-5 then speed#=-5

   camy#=camy#+speed#

   if camy#>200 then direction=0
   if camy#<-200 then direction=1

   position camera 0,camy#,-1000

   yrotate object 1,wrapvalue(object angle y(1)+1)

   set cursor 0,0
   ink rgb(255,255,255),0
   print camy#
   print speed#

   sync

endwhile

delete object 1

print "1"
sync

position camera 0,0,-1000

make object cone 1,500
texture object 1,1
scale object texture 1,5,5

make mesh from object 1,1
add limb 1,1,1
offset limb 1,1,0,-300,0
hide limb 1,1

make object cylinder 2,200
texture object 2,2
scale object texture 1,5,5
glue object to limb 2,1,1

sleep 500

camy#=0
direction=1
while mouseclick()=0 and scancode=0

   if direction=1 then speed#=speed#+0.1
   if direction=0 then speed#=speed#-0.1

   if speed#>5 then speed#=5
   if speed#<-5 then speed#=-5

   camy#=camy#+speed#

   if camy#>200 then direction=0
   if camy#<-200 then direction=1

   position camera 0,camy#,-1000

   yrotate object 1,wrapvalue(object angle y(1)+1)

   set cursor 0,0
   ink rgb(255,255,255),0
   print camy#
   print speed#

   sync

endwhile

end

gethedgetex:

   texturexsize=64
   textureysize=64

   ink rgb(0,128,0),0
   box 1,1,texturexsize,textureysize

   ink rgb(0,100,25),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

   for i=1 to 1000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      ink rgb(0,rnd(150)+100,0),0
      line x1,y1,x2,y2
   next i

   get image 1,1,1,texturexsize,textureysize

return

getbarktex:

   texturexsize=64
   textureysize=64

   ink rgb(50,20,0),0
   box 1,1,texturexsize,textureysize

   ink rgb(90,50,0),0
   for i=1 to 500
      dot rnd(texturexsize),rnd(textureysize)
   next i

   for i=1 to 1000
      x1=rnd(texturexsize)
      y1=rnd(textureysize)
      x2=(rnd(10)-5)+x1
      y2=y1-rnd(5)+5
      r=rnd(40)+60
      g=rnd(r-30)
      ink rgb(r,g,0),0
      line x1,y1,x2,y2
   next i

   get image 2,1,1,texturexsize,textureysize

return

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 7th May 2007 03:20

Link

@Phaelax:

Congratulations! Good Job!

Enjoy your day.

Back to top

Profile PM

Binary Coder

17

Years of Service

User Offline

Joined: 26th Feb 2007

Location: Queensland, Australia

Posted: 7th May 2007 04:56

Link

Really good entry Phaelax!

I understand how to make textures (sort of) but I don't understand what types you can make from these 2D shapes. Any ideas?

Back to top

Profile PM Email

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 7th May 2007 20:09 Edited at: 7th May 2007 20:15

Link

Here's my attampt at a sowflake, or something:

sync on

texsize=256

gosub getsnowflaketextrure

cls

paste image 1,1,1

print "Press any key..."

suspend for key

backdrop on
color backdrop 0
autocam off

position camera 320,240,-420

maxsnowflakes=100

dim snowx(maxsnowflakes)
dim snowy(maxsnowflakes)

for i=1 to maxsnowflakes
   snowx(i)=rnd(640)
   snowy(i)=rnd(480)
   make object plain i,30,30
   texture object i,1
   ghost object on i
   make object plain i+maxsnowflakes,30,30
   texture object i+maxsnowflakes,1
   ghost object on i+maxsnowflakes
next i

do

for i=1 to maxsnowflakes
      snowy(i)=snowy(i)-1
      if snowy(i)<0 then snowy(i)=480
      position object i,snowx(i),snowy(i),0
      position object i+maxsnowflakes,snowx(i),snowy(i),0
   next i

sync

loop

end

getsnowflaketextrure:

dim round(360)
   for i=1 to 360
      round(i)=rnd(100)
   next i

x=texsize/2
   y=texsize/2
   for i=0 to 100
      ink rgb(i+155,i+155,255),0
      for j=1 to 360
         roundr#=round(j)
         ir#=i
         jr#=j
         distance#=(roundr#/100)*ir#
         dx#=cos(jr#)*distance#
         dy#=sin(jr#)*distance#
         dot x+dx#,y+dy#
      next j
   next i

get image 1,1,1,texsize,texsize
  ` get image 1,0,0,1,1

return

+ Code Snippet

sync on

texsize=256

gosub getsnowflaketextrure

cls

paste image 1,1,1

print "Press any key..."

suspend for key

backdrop on
color backdrop 0
autocam off

position camera 320,240,-420

maxsnowflakes=100

dim snowx(maxsnowflakes)
dim snowy(maxsnowflakes)

for i=1 to maxsnowflakes
   snowx(i)=rnd(640)
   snowy(i)=rnd(480)
   make object plain i,30,30
   texture object i,1
   ghost object on i
   make object plain i+maxsnowflakes,30,30
   texture object i+maxsnowflakes,1
   ghost object on i+maxsnowflakes
next i

do

   for i=1 to maxsnowflakes
      snowy(i)=snowy(i)-1
      if snowy(i)<0 then snowy(i)=480
      position object i,snowx(i),snowy(i),0
      position object i+maxsnowflakes,snowx(i),snowy(i),0
   next i

   sync

loop


end

getsnowflaketextrure:

   dim round(360)
   for i=1 to 360
      round(i)=rnd(100)
   next i

   x=texsize/2
   y=texsize/2
   for i=0 to 100
      ink rgb(i+155,i+155,255),0
      for j=1 to 360
         roundr#=round(j)
         ir#=i
         jr#=j
         distance#=(roundr#/100)*ir#
         dx#=cos(jr#)*distance#
         dy#=sin(jr#)*distance#
         dot x+dx#,y+dy#
      next j
   next i

   get image 1,1,1,texsize,texsize
  ` get image 1,0,0,1,1

return

[EDIT]
@Binary coder:
Try starting with something simple and then move on to more difficult things. Try starting off with mabye a brick texture or something.

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 7th May 2007 21:29 Edited at: 8th May 2007 00:12

Link

Quote: "I understand how to make textures (sort of) but I don't understand what types you can make from these 2D shapes. Any ideas?"

Think of a type of texture.

The challenge is to then think of a way of creating that texture by just using the 2D commands.

Here's my entry so far - it creates 16 textures:

Rem Texture Made In Code Example
Rem By TDK_Man For The DBC Coding Challenges
Rem These textures are totally free to use in your own programs
Rem A mention of where they cam from would be nice - but not necessary! :)

Gosub Setup
Gosub MakeTextures
Gosub MakeObject

Do
  If ScanCode() Then Gosub ReTexture
  XAngle# = WrapValue(Object Angle X(1)+0.5)
  YAngle# = WrapValue(Object Angle Y(1)+0.5)
  ZAngle# = WrapValue(Object Angle Z(1)+0.5)
  Rotate Object 1,XAngle#,YAngle#,ZAngle#
  Sync
  Center Text 400,4,"This Texture: "+TextureName$(TextureNum)
  Center Text 400,580,"Press Any Key For The Next Texture"
Loop

ReTexture:
  Inc TextureNum
  If TextureNum = NumTextures+1 Then TextureNum = 1
  Texture Object 1,TextureNum
  Repeat
  Until ScanCode() = 0
Return

MakeObject:
  Make Object Cube 1,20
  Texture Object 1,TextureNum
  Set Object 1,1,0,0
  Position Camera 0,10,-30
  Point Camera 0,0,0
  Set Camera View 0,0,800,600
Return

MakeTextures:
  Create Bitmap 1,1024,768

Rem 1. Brick
  Ink RGB(164,53,4),0: Box 0,0,60,28
  Get Image 2000,0,0,60,28
  CLS 0
  Ink RGB(190,190,170),0: Box 0,0,512,512
  For Ny=0 To 15
    For Nx=0 To 9
      Paste Image 2000,Nx*64-Offset,Ny*32
      Ink RGB(14,8,8),0
      For N=1 To Rnd(500)+500
        Dot (Nx*64-Offset)+Rnd(59),Ny*32+Rnd(27)
      Next N
    Next Nx
    Inc Offset,30: If Offset=60 Then Offset=0
  Next Ny
  Blur Bitmap 1,1
  Get Image 1,0,0,512,512

Rem 2. Castle Wall
  CLS RGB(200,200,200): Ink RGB(90,90,100),0
  For N=0 To 3: Circle 6,6,4-N: Next N
  For N=0 To 3: Circle 123,6,4-N: Next N
  For N=0 To 3: Circle 6,59,4-N: Next N
  For N=0 To 3: Circle 123,59,4-N: Next N
  Box 6,2,124,63: Box 2,6,127,59
  For N=1 To 4000
    C=Rnd(200): Ink RGB(C,C,C),0: Dot Rnd(122)+4,Rnd(58)+4
  Next N
  Sync
  Get Image 100,0,0,128,64
  For Ny=0 To 15
    For Nx=0 To 9
      Paste Image 100,Nx*128-Offset,Ny*64
    Next Nx
    Inc Offset,64: If Offset=128 Then Offset=0
  Next Ny
  Delete Image 100
  Blur Bitmap 1,1
  Get Image 2,0,0,512,512

Rem 3. Sand
  CLS RGB(200,180,70)
  For N=1 To 10000
    Shade = Rnd(105)+100
    Ink RGB(Shade,Shade,0),0
    Dot Rnd(512),Rnd(512)
  Next N
  Blur Bitmap 1,1
  Get Image 3,0,0,512,512

Rem 4. Floor
  CLS RGB(200,200,200)
  Ink RGB(90,90,100),0
  Box 4,4,204,104
  For N=1 To 3000
    C=Rnd(200)
    Ink RGB(C,C,C),0: Dot Rnd(196)+4,Rnd(100)+4
  Next N
  Get Image 100,0,0,208,108
  For N=1 To 350
    X=Rnd(512): X=(X/64)*64
    Y=Rnd(512): Y=(Y/64)*64
    Paste Image 100,X,Y
  Next N
  Delete Image 100
  Blur Bitmap 1,1
  Get Image 4,0,0,512,512

Rem 5. Water
  Shade=250
  For N=0 To 600
    Ink RGB(0,0,Shade),0: Line 0,N,800,N
    Dec Shade,8: If Shade<=100 Then Shade=250
  Next N
  Blur Bitmap 1,2
  For N=1 To 50
    Shade=150: X=Rnd(512): Y=Rnd(512): Rad=Rnd(10)+10
    For N2 = 1 To 5
      Ink RGB(0,0,Shade),0: Circle X,Y,Rad-N2
      Dec Shade,4
    Next N2
  Next N
  Blur Bitmap 1,2
  For N=1 To 300
    X=Rnd(592): Y=Rnd(570): Get Image 100,X,Y,X+20,Y+20,1
    X=Rnd(512): Y=Rnd(512): Paste Image 100,X,Y
  Next N
  Blur Bitmap 1,2
  For N=1 To 300
    Y=Rnd(600): X=Rnd(512): C=Rnd(55)+200
    Ink RGB(0,C,C),0: Box X,Y,X+20,Y
  Next N
  Blur Bitmap 1,2
  For N=1 To 200
    Y=Rnd(600): R=Rnd(600)
    If R<50
      Ink RGB(255,255,255),0
    Else
      Ink RGB(0,0,Rnd(155)+100),0
    Endif
    Line 0,Y,800,Y
  Next N
  Blur Bitmap 1,2
  sine#=4.0: velocity#=0
  For X=0 To 600
    IF sine#>=0
      Dec velocity#,.03
    ELSE
      Inc velocity#,.03
    Endif
    Inc sine#,velocity#
    Get Image 100,X,0,X+1,600,1: Paste Image 100,X,sine#-20
  Next X
  Delete Image 100
  Blur Bitmap 1,5
  Get Image 5,0,0,512,512

Rem 6. SackCloth
  CLS RGB(155,155,0)
  For N=1 To 500
    Shade=Rnd(50)+100
    Ink RGB(Shade,Shade,0),0
    X=Rnd(512): Y=Rnd(512)
    Line X,0,X,512: Line 0,Y,512,Y
  Next N
  Blur Bitmap 1,4
  Get Image 6,0,0,512,512

Rem 7. Redwood
  CLS RGB(110,20,10)
  For N=1 To 500
    Shade=Rnd(50)+100
    Ink RGB(Shade,Shade-60,0),0
    X=Rnd(512)
    Line X,0,X,512
  Next N
  Blur Bitmap 1,4
  Get Image 7,0,0,512,512

Rem 8. Oak
  CLS RGB(250,240,200)
  For N=1 To 1000
    Shade=Rnd(100)+100
    Ink RGB(Shade,Shade-60,0),0
    X=Rnd(512)
    Line X,0,X,512
  Next N
  Blur Bitmap 1,4
  Get Image 8,0,0,512,512

Rem 9. Pine
  CLS RGB(220,200,200)
  For N=1 To 1000
    Shade=Rnd(50)+100
    Ink RGB(Shade,Shade-30,0),0
    X=Rnd(512)
    Line X,0,X,512
  Next N
  Blur Bitmap 1,4
  Get Image 9,0,0,512,512

Rem 10. Grass
  CLS RGB(0,40,0)
  For N=1 To 10000
    Ink RGB(Rnd(25),Rnd(155)+100,Rnd(25)),0
    Dot Rnd(512),Rnd(512)
  Next N
  Blur Bitmap 1,2
  Get Image 10,0,0,512,512

Rem 11. RoofTile
  Ink RGB(164,83,4),0: Box 0,0,60,28
  Get Image 100,0,0,60,28
  CLS 0
  Ink RGB(60,10,10),0
  Box 0,0,512,512
  For Ny=0 To 15
    For Nx=0 To 8
      Paste Image 100,Nx*64-Offset,Ny*32
    Next Nx
    Inc Offset,30: If Offset=60 Then Offset=0
  Next Ny
  For N=1 To 10000
    Ink RGB(Rnd(255),Rnd(255),80),0
    Dot Rnd(512),Rnd(512)
  Next N
  Blur Bitmap 1,2
  Get Image 11,0,0,512,512

Rem 12. Rusty Metal
  C=170: CLS RGB(C,C,C)
  For Y = 120 To 205
    Inc C
    Ink RGB(C,C,C),0
    Line 0,Y,512,Y
  Next Y
  For Y=205 To 290
    Dec C
    Ink RGB(C,C,C),0
    Line 0,Y,512,Y
  Next Y
  Blur Bitmap 1,2
  Ink RGB(207,90,5),0
  For I=1 To 10
    X=Rnd(512): Y=Rnd(512)
    For N=1 To 100
      X2=Rnd(200)-100: Y2=Rnd(200)-100
      Circle X+X2,Y+Y2,Rnd(2)+2
    Next N
    Blur Bitmap 1,6
  Next I
  Get Image 12,0,0,512,512

Rem 13. Bathroom Tiles
  Ink RGB(100,100,255),0: Box 0,0,30,30
  Ink RGB(0,0,100),0: Box 1,1,30,30
  Ink RGB(0,80,200),0: Box 1,1,29,29
  Get Image 100,0,0,31,31
  CLS RGB(225,225,225)
  For Ny=0 To 31
    For Nx=0 To 31
      Paste Image 100,Nx*32+1,Ny*32+1
    Next Nx
  Next Ny
  Get Image 13,0,0,512,512

Rem 14. Wooden Slats
  CLS 0
  For N=0 To 511 Step 32
    R=100: G=50: B=0
    Ink RGB(130,116,0),0
    Line 0,N,512,N
    Ink RGB(198,126,0),0
    For I=1 To 28
      Line 0,N+I,512,N+I
    Next I
    Ink RGB(255,245,159),0
    Line 0,N+29,512,N+29
  Next N
  Get Image 14,0,0,512,512

Rem 15. Iron Bars
  CLS 0: C=95
  For I=0 To 5
    Ink RGB(C,C,C),0
    Line 0,I,512,I: Rem Horizontal
    Inc C,32
  Next I
  C=255
  For I=6 To 11
    Ink RGB(C,C,C),0
    Line 0,I,512,I: Rem Horizontal
    Dec C,32
  Next I
  Get Image 100,0,0,512,12
  CLS 0: C=95
  For I=0 To 5
    Ink RGB(C,C,C),0
    Line I,0,I,512: Rem Horizontal
    Inc C,32
  Next I
  C=255
  For I=6 To 11
    Ink RGB(C,C,C),0
    Line I,0,I,512: Rem Horizontal
    Dec C,32
  Next I
  Get Image 101,0,0,12,512
  CLS 0
  For N=1 To 16
    Paste Image 100,0,N*32-22: Rem Horiz
  Next N
  For N=1 To 16
    Paste Image 101,N*32-22,0
  Next N
  Delete Image 100
  Delete Image 101
  Get Image 15,0,0,512,512

Rem 16. Fine Wire Mesh
  C=255
  CLS RGB(C,C,C)
  Rad=30
  For N=1 To 3
    For I=1 To 15
      Dec C,4
      Ink RGB(C,C,C),0
      Circle 256,256,Rad
      Inc Rad,2
    Next I
    For I=1 To 15
      Inc C,4
      Ink RGB(C,C,C),0
      Circle 256,256,Rad
      Inc Rad,2
    Next I
    Blur Bitmap 1,1
  Next N
  Blur Bitmap 1,4
  Ink 0,0
  For N=1 To 512 Step 4
    Line 0,N,512,N
    Line 0,N+1,512,N+1
    Line N,0,N,512
    Line N+1,0,N+1,512
  Next N
  Get Image 16,0,0,512,512

Set Current Bitmap 0
  Delete Bitmap 1
  Ink RGB(255,255,255),0
Return

Setup:
  Set Display Mode 800,600,16
  Sync On: Sync Rate 60: CLS 0: Sync
  Backdrop On: Color Backdrop 0: Sync
  Hide Mouse
  Randomize Timer()
  TextureNum = 1: NumTextures = 16
  Dim TextureName$(20)
  TextureName$(1) = "Brick"
  TextureName$(2) = "Castle Wall"
  TextureName$(3) = "Sand"
  TextureName$(4) = "Floor"
  TextureName$(5) = "Water"
  TextureName$(6) = "Sackcloth"
  TextureName$(7) = "Redwood"
  TextureName$(8) = "Oak"
  TextureName$(9) = "Pine"
  TextureName$(10) = "Grass"
  TextureName$(11) = "Roof Tile"
  TextureName$(12) = "Rusty Metal"
  TextureName$(13) = "Swimming Pool Tiles"
  TextureName$(14) = "Wooden Slats"
  TextureName$(15) = "Steel Bars"
  TextureName$(16) = "Fine Wire Mesh"
  Center Text 400,240,"Please Wait - Generating Textures..."
  Set Camera View 0,0,1,1
Return

+ Code Snippet

Rem Texture Made In Code Example
Rem By TDK_Man For The DBC Coding Challenges
Rem These textures are totally free to use in your own programs
Rem A mention of where they cam from would be nice - but not necessary! :)

Gosub Setup
Gosub MakeTextures
Gosub MakeObject

Do
  If ScanCode() Then Gosub ReTexture
  XAngle# = WrapValue(Object Angle X(1)+0.5)
  YAngle# = WrapValue(Object Angle Y(1)+0.5)
  ZAngle# = WrapValue(Object Angle Z(1)+0.5)
  Rotate Object 1,XAngle#,YAngle#,ZAngle#
  Sync
  Center Text 400,4,"This Texture: "+TextureName$(TextureNum)
  Center Text 400,580,"Press Any Key For The Next Texture"
Loop

ReTexture:
  Inc TextureNum
  If TextureNum = NumTextures+1 Then TextureNum = 1
  Texture Object 1,TextureNum
  Repeat
  Until ScanCode() = 0
Return

MakeObject:
  Make Object Cube 1,20
  Texture Object 1,TextureNum
  Set Object 1,1,0,0
  Position Camera 0,10,-30
  Point Camera 0,0,0
  Set Camera View 0,0,800,600
Return

MakeTextures:
  Create Bitmap 1,1024,768

  Rem 1. Brick
  Ink RGB(164,53,4),0: Box 0,0,60,28
  Get Image 2000,0,0,60,28
  CLS 0
  Ink RGB(190,190,170),0: Box 0,0,512,512
  For Ny=0 To 15
    For Nx=0 To 9
      Paste Image 2000,Nx*64-Offset,Ny*32
      Ink RGB(14,8,8),0
      For N=1 To Rnd(500)+500
        Dot (Nx*64-Offset)+Rnd(59),Ny*32+Rnd(27)
      Next N
    Next Nx
    Inc Offset,30: If Offset=60 Then Offset=0
  Next Ny
  Blur Bitmap 1,1
  Get Image 1,0,0,512,512

  Rem 2. Castle Wall
  CLS RGB(200,200,200): Ink RGB(90,90,100),0
  For N=0 To 3: Circle 6,6,4-N: Next N
  For N=0 To 3: Circle 123,6,4-N: Next N
  For N=0 To 3: Circle 6,59,4-N: Next N
  For N=0 To 3: Circle 123,59,4-N: Next N
  Box 6,2,124,63: Box 2,6,127,59
  For N=1 To 4000
    C=Rnd(200): Ink RGB(C,C,C),0: Dot Rnd(122)+4,Rnd(58)+4
  Next N
  Sync
  Get Image 100,0,0,128,64
  For Ny=0 To 15
    For Nx=0 To 9
      Paste Image 100,Nx*128-Offset,Ny*64
    Next Nx
    Inc Offset,64: If Offset=128 Then Offset=0
  Next Ny
  Delete Image 100
  Blur Bitmap 1,1
  Get Image 2,0,0,512,512

  Rem 3. Sand
  CLS RGB(200,180,70)
  For N=1 To 10000
    Shade = Rnd(105)+100
    Ink RGB(Shade,Shade,0),0
    Dot Rnd(512),Rnd(512)
  Next N
  Blur Bitmap 1,1
  Get Image 3,0,0,512,512

  Rem 4. Floor
  CLS RGB(200,200,200)
  Ink RGB(90,90,100),0
  Box 4,4,204,104
  For N=1 To 3000
    C=Rnd(200)
    Ink RGB(C,C,C),0: Dot Rnd(196)+4,Rnd(100)+4
  Next N
  Get Image 100,0,0,208,108
  For N=1 To 350
    X=Rnd(512): X=(X/64)*64
    Y=Rnd(512): Y=(Y/64)*64
    Paste Image 100,X,Y
  Next N
  Delete Image 100
  Blur Bitmap 1,1
  Get Image 4,0,0,512,512

  Rem 5. Water
  Shade=250
  For N=0 To 600
    Ink RGB(0,0,Shade),0: Line 0,N,800,N
    Dec Shade,8: If Shade<=100 Then Shade=250
  Next N
  Blur Bitmap 1,2
  For N=1 To 50
    Shade=150: X=Rnd(512): Y=Rnd(512): Rad=Rnd(10)+10
    For N2 = 1 To 5
      Ink RGB(0,0,Shade),0: Circle X,Y,Rad-N2
      Dec Shade,4
    Next N2
  Next N
  Blur Bitmap 1,2
  For N=1 To 300
    X=Rnd(592): Y=Rnd(570): Get Image 100,X,Y,X+20,Y+20,1
    X=Rnd(512): Y=Rnd(512): Paste Image 100,X,Y
  Next N
  Blur Bitmap 1,2
  For N=1 To 300
    Y=Rnd(600): X=Rnd(512): C=Rnd(55)+200
    Ink RGB(0,C,C),0: Box X,Y,X+20,Y
  Next N
  Blur Bitmap 1,2
  For N=1 To 200
    Y=Rnd(600): R=Rnd(600)
    If R<50
      Ink RGB(255,255,255),0
    Else
      Ink RGB(0,0,Rnd(155)+100),0
    Endif
    Line 0,Y,800,Y
  Next N
  Blur Bitmap 1,2
  sine#=4.0: velocity#=0
  For X=0 To 600
    IF sine#>=0
      Dec velocity#,.03
    ELSE
      Inc velocity#,.03
    Endif
    Inc sine#,velocity#
    Get Image 100,X,0,X+1,600,1: Paste Image 100,X,sine#-20
  Next X
  Delete Image 100
  Blur Bitmap 1,5
  Get Image 5,0,0,512,512

  Rem 6. SackCloth
  CLS RGB(155,155,0)
  For N=1 To 500
    Shade=Rnd(50)+100
    Ink RGB(Shade,Shade,0),0
    X=Rnd(512): Y=Rnd(512)
    Line X,0,X,512: Line 0,Y,512,Y
  Next N
  Blur Bitmap 1,4
  Get Image 6,0,0,512,512

  Rem 7. Redwood
  CLS RGB(110,20,10)
  For N=1 To 500
    Shade=Rnd(50)+100
    Ink RGB(Shade,Shade-60,0),0
    X=Rnd(512)
    Line X,0,X,512
  Next N
  Blur Bitmap 1,4
  Get Image 7,0,0,512,512

  Rem 8. Oak
  CLS RGB(250,240,200)
  For N=1 To 1000
    Shade=Rnd(100)+100
    Ink RGB(Shade,Shade-60,0),0
    X=Rnd(512)
    Line X,0,X,512
  Next N
  Blur Bitmap 1,4
  Get Image 8,0,0,512,512

  Rem 9. Pine
  CLS RGB(220,200,200)
  For N=1 To 1000
    Shade=Rnd(50)+100
    Ink RGB(Shade,Shade-30,0),0
    X=Rnd(512)
    Line X,0,X,512
  Next N
  Blur Bitmap 1,4
  Get Image 9,0,0,512,512

  Rem 10. Grass
  CLS RGB(0,40,0)
  For N=1 To 10000
    Ink RGB(Rnd(25),Rnd(155)+100,Rnd(25)),0
    Dot Rnd(512),Rnd(512)
  Next N
  Blur Bitmap 1,2
  Get Image 10,0,0,512,512

  Rem 11. RoofTile
  Ink RGB(164,83,4),0: Box 0,0,60,28
  Get Image 100,0,0,60,28
  CLS 0
  Ink RGB(60,10,10),0
  Box 0,0,512,512
  For Ny=0 To 15
    For Nx=0 To 8
      Paste Image 100,Nx*64-Offset,Ny*32
    Next Nx
    Inc Offset,30: If Offset=60 Then Offset=0
  Next Ny
  For N=1 To 10000
    Ink RGB(Rnd(255),Rnd(255),80),0
    Dot Rnd(512),Rnd(512)
  Next N
  Blur Bitmap 1,2
  Get Image 11,0,0,512,512

  Rem 12. Rusty Metal
  C=170: CLS RGB(C,C,C)
  For Y = 120 To 205
    Inc C
    Ink RGB(C,C,C),0
    Line 0,Y,512,Y
  Next Y
  For Y=205 To 290
    Dec C
    Ink RGB(C,C,C),0
    Line 0,Y,512,Y
  Next Y
  Blur Bitmap 1,2
  Ink RGB(207,90,5),0
  For I=1 To 10
    X=Rnd(512): Y=Rnd(512)
    For N=1 To 100
      X2=Rnd(200)-100: Y2=Rnd(200)-100
      Circle X+X2,Y+Y2,Rnd(2)+2
    Next N
    Blur Bitmap 1,6
  Next I
  Get Image 12,0,0,512,512

  Rem 13. Bathroom Tiles
  Ink RGB(100,100,255),0: Box 0,0,30,30
  Ink RGB(0,0,100),0: Box 1,1,30,30
  Ink RGB(0,80,200),0: Box 1,1,29,29
  Get Image 100,0,0,31,31
  CLS RGB(225,225,225)
  For Ny=0 To 31
    For Nx=0 To 31
      Paste Image 100,Nx*32+1,Ny*32+1
    Next Nx
  Next Ny
  Get Image 13,0,0,512,512

  Rem 14. Wooden Slats
  CLS 0
  For N=0 To 511 Step 32
    R=100: G=50: B=0
    Ink RGB(130,116,0),0
    Line 0,N,512,N
    Ink RGB(198,126,0),0
    For I=1 To 28
      Line 0,N+I,512,N+I
    Next I
    Ink RGB(255,245,159),0
    Line 0,N+29,512,N+29
  Next N
  Get Image 14,0,0,512,512

  Rem 15. Iron Bars
  CLS 0: C=95
  For I=0 To 5
    Ink RGB(C,C,C),0
    Line 0,I,512,I: Rem Horizontal
    Inc C,32
  Next I
  C=255
  For I=6 To 11
    Ink RGB(C,C,C),0
    Line 0,I,512,I: Rem Horizontal
    Dec C,32
  Next I
  Get Image 100,0,0,512,12
  CLS 0: C=95
  For I=0 To 5
    Ink RGB(C,C,C),0
    Line I,0,I,512: Rem Horizontal
    Inc C,32
  Next I
  C=255
  For I=6 To 11
    Ink RGB(C,C,C),0
    Line I,0,I,512: Rem Horizontal
    Dec C,32
  Next I
  Get Image 101,0,0,12,512
  CLS 0
  For N=1 To 16
    Paste Image 100,0,N*32-22: Rem Horiz
  Next N
  For N=1 To 16
    Paste Image 101,N*32-22,0
  Next N
  Delete Image 100
  Delete Image 101
  Get Image 15,0,0,512,512

  Rem 16. Fine Wire Mesh
  C=255
  CLS RGB(C,C,C)
  Rad=30
  For N=1 To 3
    For I=1 To 15
      Dec C,4
      Ink RGB(C,C,C),0
      Circle 256,256,Rad
      Inc Rad,2
    Next I
    For I=1 To 15
      Inc C,4
      Ink RGB(C,C,C),0
      Circle 256,256,Rad
      Inc Rad,2
    Next I
    Blur Bitmap 1,1
  Next N
  Blur Bitmap 1,4
  Ink 0,0
  For N=1 To 512 Step 4
    Line 0,N,512,N
    Line 0,N+1,512,N+1
    Line N,0,N,512
    Line N+1,0,N+1,512
  Next N
  Get Image 16,0,0,512,512

  Set Current Bitmap 0
  Delete Bitmap 1
  Ink RGB(255,255,255),0
Return

Setup:
  Set Display Mode 800,600,16
  Sync On: Sync Rate 60: CLS 0: Sync
  Backdrop On: Color Backdrop 0: Sync
  Hide Mouse
  Randomize Timer()
  TextureNum = 1: NumTextures = 16
  Dim TextureName$(20)
  TextureName$(1) = "Brick"
  TextureName$(2) = "Castle Wall"
  TextureName$(3) = "Sand"
  TextureName$(4) = "Floor"
  TextureName$(5) = "Water"
  TextureName$(6) = "Sackcloth"
  TextureName$(7) = "Redwood"
  TextureName$(8) = "Oak"
  TextureName$(9) = "Pine"
  TextureName$(10) = "Grass"
  TextureName$(11) = "Roof Tile"
  TextureName$(12) = "Rusty Metal"
  TextureName$(13) = "Swimming Pool Tiles"
  TextureName$(14) = "Wooden Slats"
  TextureName$(15) = "Steel Bars"
  TextureName$(16) = "Fine Wire Mesh"
  Center Text 400,240,"Please Wait - Generating Textures..."
  Set Camera View 0,0,1,1
Return

It goes without saying that the 2D commands aren't that fast, so there's a considerable wait while the 16 textures are generated. How long depends on the speed of your computer.

And I know - the water one is crap! I'm hoping to tweak that a little before the closing of the challenge...

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 7th May 2007 22:06

Link

Nice textures TDK, took about 30sec to load everything. The water didn't look bad at all.

good start on a snowflake.

Back to top

Profile PM Email Website

Comrade Robski

18

Years of Service

User Offline

Joined: 12th Sep 2005

Location:

Posted: 9th May 2007 16:07

Link

Are animated textures allowed? I've been working on lightening bolt and fire textures, which I might be able to polish up and enter, if they're allowed...

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 9th May 2007 19:14 Edited at: 9th May 2007 19:18

Link

A texture is a texture is a texture!

The challenge is to create a texture using only Dark Basic Classic standard commands - no external media - so yes, please feel free. (And by 'standard commands' we mean no enhancement pack commands).

We also need more beginners to enter these challenges - they are educational and believe me, you really will learn more about programming by entering these than any other way - mainly because the more experienced coders here will explain what you are doing wrong and help you improve your code.

If you see someone has already entered one that you think you can't beat - ignore it! Use your entry to learn how to do it yourself. You will find lots of others that will tell you how you can make your entry better - and you can ask for advice.

It's not the winning that counts - it's learning how to do something yourself that you couldn't do before!

And don't forget, it's OK to take code from an entry someone else has done, use it as a base for your work then resubmit a new version - as long as you learn something from it.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 9th May 2007 19:23

Link

I encourage you to do an animated texture, I'd be curious to see what you come up with.

Other tips for those looking to do a little research, try googling for procedural textures or texture synthesis.

Back to top

Profile PM Email Website

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 10th May 2007 04:43

Link

I'm terrible at animated images and textures. If someone posted an entry with that would they have a better chance at winning?

What happens when when you mix coke, pop rocks, vinegar, and baking soda?
I am currently working on 2 projects: The Ultimate Killing Game & The Turtle Game

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 10th May 2007 05:50

Link

Depends how they present it and the realism of the texture. If you make a texture that flickers between a black and green square and call it an LED light texture, then no it wont win.

Back to top

Profile PM Email Website

Comrade Robski

18

Years of Service

User Offline

Joined: 12th Sep 2005

Location:

Posted: 11th May 2007 16:59

Link

OK here's my entries. Both are animated textures - you can change the parameters at the start of the code to change the effect

1) Electric Discharge Texture

REM Electric discharge texture
REM CR 2007

cls
sync on

REM *** PARAMETERS - play with these to get the effect you want ***
rem all parameters need to be positive integers

rem size = size of image
size=4
rem blur = how blurred the bitmap is. Better to use even values
blur=4
rem spread = how far the electric arc spreads out
spread=2
rem cycle toggles color cycling (1 = cycle, 0 = no cycle)
cycle=1

rem calculate number of particles and set up arrays
num=spread+15*size^2
dim x(num)
dim y(num)

rem set initial positions of particles
for a=1 to num
	x(num)=32*size
	y(num)=rnd(32*size)
next a

rem create bitmap where the image will be drawn
create bitmap 1,64*size,64*size

REM MAIN LOOP
do
	set current bitmap 1
	rem move, draw electric particles
	for a=1 to num
		y(num)=y(num)+1
		x(num)=x(num)+rnd(spread*2)-spread
		if y(num)>size*64
			x(num)=32*size
			y(num)=0
		endif
		color=rnd(10)*20
		rem cycle colours
		if cycle then inc ang
		ink rgb(155+100*sin(ang/20),155+100*sin(ang/40),155+100*cos(ang/20)),0
		rem draw the particle
		dot x(num),y(num)
	next a

rem blur bitmap
	if blur>0 then blur bitmap 1,blur

rem get the image
	get image 1,0,0,64*size,64*size
	
	rem paste image - but you can use it to texture an object if you want
	set current bitmap 0
	paste image 1,(screen width()/2)-32*size,(screen height()/2)-32*size
	sync
loop

+ Code Snippet

REM Electric discharge texture
REM CR 2007

cls
sync on

REM *** PARAMETERS - play with these to get the effect you want ***
rem all parameters need to be positive integers

rem size = size of image
size=4
rem blur = how blurred the bitmap is. Better to use even values
blur=4
rem spread = how far the electric arc spreads out
spread=2
rem cycle toggles color cycling (1 = cycle, 0 = no cycle)
cycle=1


rem calculate number of particles and set up arrays
num=spread+15*size^2
dim x(num)
dim y(num)

rem set initial positions of particles
for a=1 to num
	x(num)=32*size
	y(num)=rnd(32*size)
next a

rem create bitmap where the image will be drawn
create bitmap 1,64*size,64*size

REM MAIN LOOP
do
	set current bitmap 1
	rem move, draw electric particles
	for a=1 to num
		y(num)=y(num)+1
		x(num)=x(num)+rnd(spread*2)-spread
		if y(num)>size*64
			x(num)=32*size
			y(num)=0
		endif
		color=rnd(10)*20
		rem cycle colours
		if cycle then inc ang
		ink rgb(155+100*sin(ang/20),155+100*sin(ang/40),155+100*cos(ang/20)),0
		rem draw the particle
		dot x(num),y(num)
	next a

	rem blur bitmap
	if blur>0 then blur bitmap 1,blur

	rem get the image
	get image 1,0,0,64*size,64*size
	
	rem paste image - but you can use it to texture an object if you want
	set current bitmap 0
	paste image 1,(screen width()/2)-32*size,(screen height()/2)-32*size
	sync
loop

2) Fire texture

+ Code Snippet

REM Fire Texture
REM CR 2007

cls
sync on

REM *** PARAMETERS - play with these to get the effect you want ***

rem size = size of image
size=3
rem blur = how blurred the bitmap is. Better to use even values
blur=4

num=150*size^2
dim x(num)
dim y(num)

for a=1 to num
	x(num)=rnd(64*size)
	y(num)=rnd(32*size)
next a

create bitmap 1,64*size,64*size

rem main loop
do
	set current bitmap 1
	rem move, draw flame particles
	for a=1 to num
		y(num)=y(num)+1
		x(num)=x(num)+rnd(4)-2
		if y(num)>size*64
			x(num)=rnd(64*size)
			y(num)=rnd(64*size)
		endif
		ink rgb(200+rnd(55),70+rnd(55),0),0
		dot x(num),y(num)
	next a
	blur bitmap 1,blur
	get image 1,0,0,64*size,64*size
	set current bitmap 0
	paste image 1,(screen width()/2)-size*32,(screen height()/2)-size*32
	sync
loop

Back to top

Profile PM

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 11th May 2007 18:42

Link

Here's three more entries:

woven:

+ Code Snippet

sync on

texsize=256

gosub getwoventexture

paste image 1,1,1

sleep 1

cls
backdrop on
color backdrop 1

make object cube 1,100
texture object 1,1
ghost object on 1

while mouseclick()=0

   xangle#=wrapvalue(object angle x(1)+1.0)
   yangle#=wrapvalue(object angle y(1)+1.0)
   zangle#=wrapvalue(object angle z(1)+1.0)
   rotate object 1,xangle#,yangle#,zangle#

   sync

endwhile

end

getwoventexture:

   for x=1 to texsize step 2
      ink rgb(0,0,rnd(55)+200),0
      line x,1,x,texsize
   next i
   for y=1 to texsize step 2
      ink rgb(0,0,rnd(55)+200),0
      line 1,y,texsize,y
   next i

   get image 1,1,1,texsize,texsize

return

snow:

+ Code Snippet

sync on

texsize=256

gosub getsnowtexture

paste image 1,1,1

sleep 1

cls
backdrop on
color backdrop 1

make object cube 1,100
texture object 1,1

while mouseclick()=0

   xangle#=wrapvalue(object angle x(1)+1.0)
   yangle#=wrapvalue(object angle y(1)+1.0)
   zangle#=wrapvalue(object angle z(1)+1.0)
   rotate object 1,xangle#,yangle#,zangle#

   sync

endwhile

end

getsnowtexture:

   ink rgb(120,200,255),0
   box 1,1,texsize,texsize

   for i=1 to 500
      c1=rnd(255)
      ink rgb(c1,c1,255),0
      x=rnd(texsize)
      y=rnd(texsize)
      for j=1 to 200
         dot (rnd(40)-20)+x,(rnd(40)-20)+y
      next j
   next i

   for i=1 to 500
      ink rgb(rnd(155)+100,255,255),0
      x=rnd(texsize)
      y=rnd(texsize)
      for j=1 to 200
         dot (rnd(40)-20)+x,(rnd(40)-20)+y
      next j
   next i

   get image 1,1,1,texsize,texsize

return

No idea:

+ Code Snippet

sync on

texsize=256

gosub getsomethingtexture

paste image 1,1,1

sleep 1

cls
backdrop on
color backdrop 1

make object cube 1,100
texture object 1,1

while mouseclick()=0

   xangle#=wrapvalue(object angle x(1)+1.0)
   yangle#=wrapvalue(object angle y(1)+1.0)
   zangle#=wrapvalue(object angle z(1)+1.0)
   rotate object 1,xangle#,yangle#,zangle#

   sync

endwhile

end

getsomethingtexture:

   for x=1 to texsize
      ink rgb(rnd(255),rnd(255),rnd(255)),0
      line texsize/2,texsize/2,x,1
   next i
   for y=1 to texsize
      ink rgb(rnd(255),rnd(255),rnd(255)),0
      line texsize/2,texsize/2,texsize,y
   next i
   for x=1 to texsize
      ink rgb(rnd(255),rnd(255),rnd(255)),0
      line texsize/2,texsize/2,x,texsize
   next i
   for y=1 to texsize
      ink rgb(rnd(255),rnd(255),rnd(255)),0
      line texsize/2,texsize/2,1,y
   next i

   get image 1,1,1,texsize,texsize

   `suspend for key

return

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 11th May 2007 23:25

Link

finally, some more entries to check out!

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 11th May 2007 23:31

Link

finally, some more entries to check out!

Comrade, wow niiiice lightning! At one point it was a mix of blue, purple, and white and it looked perfect. It's a little dark, but most likely due to my monitor. The fire is nice too. Both load pretty fast.

Nice cloth Nano, snow doesn't look quite right. If you could take that "no idea" texture and do some kind of pixelate or mosaic effect you could get a nice stained glass look I think.

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 12th May 2007 18:28

Link

Here's the usual last-minute warning...

Just over 7 hours left to get your entries in!

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 13th May 2007 21:42

Link

Phaelax... where are you?!!!!!

This challenge ended yesterday...

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 13th May 2007 23:58

Link

Can we still submit entries?

What happens when when you mix coke, pop rocks, vinegar, and baking soda?
I am currently working on 2 projects: "Slot Machine Time!" and "Shoot 'em all up"

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 14th May 2007 00:09

Link

I suppose so - until Phaelax gets back anyway...

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 14th May 2007 04:35

Link

Sorry guys, its been a very long weekend consisting of maybe 4 hours of sleep in total. Basically spent all night babysitting 6 kids from 2 to 14.

I'll check all the entries in the morning, but I think I've looked at most of them already.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 14th May 2007 17:51

Link

Only 3 people tried this challenge, but we still got a lot of entries from you few.

NanoGamez guy, nice hedge texture, appears to tile seamlessly. The bark was too dark for me to make out on my screen.
A Nicely presented snowflake. Your ground snow texture probably should've used more gray than blue I think. However, stretch out it might've given a nice ice effect. 'no idea' texture, colorful hippy-like image just not sure what it could be used for other than a poster for a grateful dead concert.

TDK, shoving 16 textures in our face at once! The oak was the only one that didn't really excite me. I thought water looked fairly good for a code-generated image. The rusty metal, steel bars, and wire mesh were excellant. And with the variety of other brick and floor textures, someone could get a decent start on a game with just these textures. Woven cloth looked simple but nice.

Comrade Robski, very nice animated electric discharge texture. I could see myself using that, but I also see why you kept the size at a minimum as it could get pretty slow if too large. Fire was quite nice too.

I tried to pick a winner based on a single texture. So for example in Nano's christmas tree I looked at the hedge and bark textures as if separate entries. However, I still considered how they were presented. This is definately not an easy decision as each one of you made a texture with a different intended application in mind. TDK with the floor textures, Nano takes to the sky with snow particles, and Comrade makes some nice animated decal effects.

Runner-up:

+ Code Snippet

TDK, just too many nice textures to not have been chosen. It made me want to make a Commander Keen clone!

Winner:

+ Code Snippet

Comrade for his lightning. Even though larger image sizes were slow, I could see a series of images being saved and used as an animated sprite to get around having to blur bitmap every loop

Back to top

Profile PM Email Website

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 14th May 2007 18:11

Link

Contgatulations Comrade Robski, Brilliant animations.
Looking forward to the next challenge...

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Comrade Robski

18

Years of Service

User Offline

Joined: 12th Sep 2005

Location:

Posted: 14th May 2007 18:43 Edited at: 15th May 2007 12:31

Link

Wow thanks a lot guys, I can't really believe I won!

So I guess it's my priviledge to set the next challenge, which will be:

The Target Shooting Challenge

Make a mini-game where you shoot targets to score points. That's it as far as the rules go - I want to keep it quite open so anyone can enter. 2D or 3D is fine.

For beginners here is some code for a very basic 2D target shooting game:

+ Code Snippet

rem simple target shooter
cls
sync on
ink rgb(255,255,255),0

radius=30

do
 rem if player clicks mouse
 if mouseclick()=1
  mx=mousex(): rem get mouse position
  my=mousey()
  rem use Pythagorus to check if player hit the target
  if SQRT((x-mx)^2 + (y-my)^2)<radius
   inc score,10 : rem give player 10 points
   timer=0 : rem set timer to 0 to trigger next target
  endif
 endif

 rem if timer=0 reset timer, clear screen, reposition target
 if timer=0
  cls
  x=rnd(screen width()) :rem set random position of next target
  y=rnd(screen height())
  circle x,y,radius : rem draw next target
  timer=200+rnd(3000) : rem set timer to random value
 endif

 dec timer : rem decrease timer

 text 1,1,str$(score) : rem print score to screen

 sync
loop

You could make an entry by building on these bare bones - make it more colourful, vary the size and shape of the targets, make the targets move etc.

Deadline is one week today, Monday 22 May, midnight GMT

Good Luck everyone!

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 14th May 2007 21:00

Link

sounds similar to what I just made for the last DBP challenge.

Shoot the stickman 3 different ways: head shot, body shot, nut shot. Any dishonorable shooters hitting the nuts will be penalized ofcourse!

sync on
sync rate 60
hide mouse
randomize timer()

fastest = 99999
nuts = 0
headshots = 0

gx = rnd(610)+15
gy = rnd(400)+60

`color as dword
color = rgb(rnd(128)+128,rnd(128)+128,rnd(128)+128)

bodies = 0

DO
   cls

timerz = timer()

if blowup = 0 then bonus = 4000-(timerz - timestamp)

if timerz > timestamp+4000 or t# > 18
      inc bodies
      timestamp = timer()
      gx = rnd(610)+15
      gy = rnd(400)+60
      t# = 0.0
      blowup = 0
   color = rgb(rnd(128)+128,rnd(128)+128,rnd(128)+128)
   endif

if mouseclick() = 1 and flag = 0
      flag = 1
      if mouseWithin(gx-15,gy-60,gx+15,gy+20)
         d = (mousex()-gx)^2 + (mousey()-(gy-50))^2
         if d <= 100
            inc headshots
            inc score, 1000
            headFlag = 1
            headTimer = timer()
         endif

d = (mousex()-gx)^2 + (mousey()-gy)^2
         if d <= 70
            inc nuts
            dec score, 5000
            nutFlag = 1
            nutTimer = timer()
         endif
         blowup = 1
         inc score, bonus
         inc hits
         totalTime = totalTime + (timerz-timestamp)
         avgSpeed = totalTime/bodies
         if timerz-timestamp < fastest then fastest = timerz-timestamp
      else
         inc misses
         dec score, 500
      endif
   endif

if mouseclick() = 0 then flag = 0

if blowup = 1 then t# = t#+0.3

ink color,0
   draw_guy(gx,gy,t#)

if nutFlag = 1
      center text 320,46,"Disrespectful nut shot!  -5000"
      if nutTimer+4000 < timer() then nutFlag = 0
   endif

if headFlag = 1
      center text 320,62,"Head shot!  +1000"
      if headTimer+4000 < timer() then headFlag = 0
   endif

rem draw mouse cursor
   mx = mousex()
   my = mousey()
   ink rgb(0,255,0),0
   line mx-5,my,mx+5,my
   line mx,my-5,mx,my+5

rem calculate accuracy
   if hits+misses = 0
      acc = 0
   else
      acc = (hits/(hits+misses+0.0))*100.0
   endif

center text 320,10,str$(bonus)
   center text 320,30,"Round "+str$(bodies)

set cursor 0,0
   print "Score: ",score
   print "Hits: ",hits
   print "Misses: ",misses
   print "Accuracy: ",acc,"%"
   print "Fastest Time: ",fastest
   print "Average Speed: ", avgSpeed
   print "Head Shots: ", headshots
   print "Disrespectful Hits: ", nuts

sync
LOOP

function draw_guy(x, y, t#)
   g# = -4.0
   v = 20

if t# > 0
      x1 = x+v*cos(270)*t#
      y1 = y+(v*sin(270)*t# - 0.5*g#*t#^2)
      x2 = x+v*cos(300)*t#
      y2 = y+(v*sin(300)*t# - 0.5*g#*t#^2)
      x3 = x+v*cos(225)*t#
      y3 = y+(v*sin(225)*t# - 0.5*g#*t#^2)
      x4 = x+v*cos(315)*t#
      y4 = y+(v*sin(315)*t# - 0.5*g#*t#^2)
      x5 = x+v*cos(180)*t#
      y5 = y+(v*sin(180)*t# - 0.5*g#*t#^2)
      x6 = x+v*cos(0)*t#
      y6 = y+(v*sin(0)*t# - 0.5*g#*t#^2)
      draw_head(x1,y1)
      draw_body(x2,y2)
      draw_leftArm(x3,y3)
      draw_rightArm(x4,y4)
      draw_leftLeg(x5,y5)
      draw_rightLeg(x6,y6)
   else
      draw_head(x,y)
      draw_body(x,y)
      draw_leftArm(x,y)
      draw_rightArm(x,y)
      draw_leftLeg(x,y)
      draw_rightLeg(x,y)
   endif

endfunction

function draw_head(x,y)
   circle x,y-50,10
endfunction

function draw_leftArm(x,y)
   line x,y-34,x-10,y-20
endfunction

function draw_rightArm(x,y)
   line x,y-34,x+10,y-20
endfunction

function draw_leftLeg(x,y)
   line x,y,x-15,y+20
endfunction

function draw_rightLeg(x,y)
   line x,y,x+15,y+20
endfunction

function draw_body(x,y)
   line x,y,x,y-40
endfunction

function mouseWithin(x1,y1,x2,y2)
   if mousex() > x1 and mousex() < x2 and mousey() > y1 and mousey() < y2 then exitfunction 1
endfunction 0

+ Code Snippet

sync on
sync rate 60
hide mouse
randomize timer()

fastest = 99999
nuts = 0
headshots = 0

gx = rnd(610)+15
gy = rnd(400)+60

`color as dword
color = rgb(rnd(128)+128,rnd(128)+128,rnd(128)+128)

bodies = 0

DO
   cls

   timerz = timer()

   if blowup = 0 then bonus = 4000-(timerz - timestamp)

   if timerz > timestamp+4000 or t# > 18
      inc bodies
      timestamp = timer()
      gx = rnd(610)+15
      gy = rnd(400)+60
      t# = 0.0
      blowup = 0
   color = rgb(rnd(128)+128,rnd(128)+128,rnd(128)+128)
   endif

   if mouseclick() = 1 and flag = 0
      flag = 1
      if mouseWithin(gx-15,gy-60,gx+15,gy+20)
         d = (mousex()-gx)^2 + (mousey()-(gy-50))^2
         if d <= 100
            inc headshots
            inc score, 1000
            headFlag = 1
            headTimer = timer()
         endif

         d = (mousex()-gx)^2 + (mousey()-gy)^2
         if d <= 70
            inc nuts
            dec score, 5000
            nutFlag = 1
            nutTimer = timer()
         endif
         blowup = 1
         inc score, bonus
         inc hits
         totalTime = totalTime + (timerz-timestamp)
         avgSpeed = totalTime/bodies
         if timerz-timestamp < fastest then fastest = timerz-timestamp
      else
         inc misses
         dec score, 500
      endif
   endif

   if mouseclick() = 0 then flag = 0

   if blowup = 1 then t# = t#+0.3

   ink color,0
   draw_guy(gx,gy,t#)

   if nutFlag = 1
      center text 320,46,"Disrespectful nut shot!  -5000"
      if nutTimer+4000 < timer() then nutFlag = 0
   endif

   if headFlag = 1
      center text 320,62,"Head shot!  +1000"
      if headTimer+4000 < timer() then headFlag = 0
   endif


   rem draw mouse cursor
   mx = mousex()
   my = mousey()
   ink rgb(0,255,0),0
   line mx-5,my,mx+5,my
   line mx,my-5,mx,my+5

   rem calculate accuracy
   if hits+misses = 0
      acc = 0
   else
      acc = (hits/(hits+misses+0.0))*100.0
   endif

   center text 320,10,str$(bonus)
   center text 320,30,"Round "+str$(bodies)

   set cursor 0,0
   print "Score: ",score
   print "Hits: ",hits
   print "Misses: ",misses
   print "Accuracy: ",acc,"%"
   print "Fastest Time: ",fastest
   print "Average Speed: ", avgSpeed
   print "Head Shots: ", headshots
   print "Disrespectful Hits: ", nuts

   sync
LOOP



function draw_guy(x, y, t#)
   g# = -4.0
   v = 20

   if t# > 0
      x1 = x+v*cos(270)*t#
      y1 = y+(v*sin(270)*t# - 0.5*g#*t#^2)
      x2 = x+v*cos(300)*t#
      y2 = y+(v*sin(300)*t# - 0.5*g#*t#^2)
      x3 = x+v*cos(225)*t#
      y3 = y+(v*sin(225)*t# - 0.5*g#*t#^2)
      x4 = x+v*cos(315)*t#
      y4 = y+(v*sin(315)*t# - 0.5*g#*t#^2)
      x5 = x+v*cos(180)*t#
      y5 = y+(v*sin(180)*t# - 0.5*g#*t#^2)
      x6 = x+v*cos(0)*t#
      y6 = y+(v*sin(0)*t# - 0.5*g#*t#^2)
      draw_head(x1,y1)
      draw_body(x2,y2)
      draw_leftArm(x3,y3)
      draw_rightArm(x4,y4)
      draw_leftLeg(x5,y5)
      draw_rightLeg(x6,y6)
   else
      draw_head(x,y)
      draw_body(x,y)
      draw_leftArm(x,y)
      draw_rightArm(x,y)
      draw_leftLeg(x,y)
      draw_rightLeg(x,y)
   endif

endfunction




function draw_head(x,y)
   circle x,y-50,10
endfunction


function draw_leftArm(x,y)
   line x,y-34,x-10,y-20
endfunction


function draw_rightArm(x,y)
   line x,y-34,x+10,y-20
endfunction


function draw_leftLeg(x,y)
   line x,y,x-15,y+20
endfunction


function draw_rightLeg(x,y)
   line x,y,x+15,y+20
endfunction


function draw_body(x,y)
   line x,y,x,y-40
endfunction


function mouseWithin(x1,y1,x2,y2)
   if mousex() > x1 and mousex() < x2 and mousey() > y1 and mousey() < y2 then exitfunction 1
endfunction 0

Back to top

Profile PM Email Website

Comrade Robski

18

Years of Service

User Offline

Joined: 12th Sep 2005

Location:

Posted: 14th May 2007 21:12

Link

Quote: "sounds similar to what I just made for the last DBP challenge."

Whoops, I don't read the DBP forums, so any similarity is coincidence, honest!

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 15th May 2007 00:15

Link

Congrats Comrade Robski!

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 15th May 2007 06:33 Edited at: 15th May 2007 07:09

Link

this sounds fun..i'm going to try my best on this one.
gives an error on this, i fixed it already but why did it give me an error.

+ Code Snippet

 dec timer : decrease timer

and unfortunaely the music i put in won't work, but the sound does and i have my sound file in the foleder, any ideas? I'm working off of the template.

rem simple target shooter
cls
sync on
ink rgb(255,255,255),0

radius=30
    load music "C:\Program Files\The Game Creators\Dark Basic\media\music\Heavy\Slayer_Dance_2.mid" ,1
     play music 1
     loop music 1

do
draw to front
 rem if player clicks mouse
 if mouseclick()=1
  if mouseclick()=1 then load sound "C:\Program Files\The Game Creators\Dark Basic\media\sounds\weapons\shotgun.wav" ,1
    play sound 1
  mx=mousex(): rem get mouse position
  my=mousey()

rem use Pythagorus to check if player hit the target
  if SQRT((x-mx)^2 + (y-my)^2)<radius
   inc score,10 : rem give player 10 points

timer=0 : rem set timer to 0 to trigger next target
  endif
 endif

rem if timer=0 reset timer, clear screen, reposition target
 if timer=0
  cls
  x=rnd(screen width()) :rem set random position of next target
  y=rnd(screen height())
  circle x,y,radius : rem draw next target
  timer=200+rnd(3000) : rem set timer to random value
 endif

dec timer

text 1,1,str$(score) : rem print score to screen

if score=100
    load sound "C:\Program Files\The Game Creators\Dark Basic\media\sounds\weather\thunder.wav" ,1
    play sound 1
    wait 700
    stop sound 1
    endif

if score=300
     load sound "C:\Program Files\The Game Creators\Dark Basic\media\sounds\cartoon\gong.wav" ,1
      play sound 1
      wait 700
      stop sound 1
      endif

if score=800
     load sound "C:\Program Files\The Game Creators\Dark Basic\media\sounds\animals\gallop.wav" ,1
     play sound 1
     wait 700
     stop sound 1
     endif

if score=1000
     load sound "C:\Program Files\The Game Creators\Dark Basic\media\sounds\humans\clapping.wav" ,1
     play sound 1
     wait 700
     stop sound 1
     endif
 sync
loop

+ Code Snippet

rem simple target shooter
cls
sync on
ink rgb(255,255,255),0

radius=30
    load music "C:\Program Files\The Game Creators\Dark Basic\media\music\Heavy\Slayer_Dance_2.mid" ,1
     play music 1
     loop music 1

do
draw to front
 rem if player clicks mouse
 if mouseclick()=1
  if mouseclick()=1 then load sound "C:\Program Files\The Game Creators\Dark Basic\media\sounds\weapons\shotgun.wav" ,1
    play sound 1
  mx=mousex(): rem get mouse position
  my=mousey()

  rem use Pythagorus to check if player hit the target
  if SQRT((x-mx)^2 + (y-my)^2)<radius
   inc score,10 : rem give player 10 points

   timer=0 : rem set timer to 0 to trigger next target
  endif
 endif

 rem if timer=0 reset timer, clear screen, reposition target
 if timer=0
  cls
  x=rnd(screen width()) :rem set random position of next target
  y=rnd(screen height())
  circle x,y,radius : rem draw next target
  timer=200+rnd(3000) : rem set timer to random value
 endif

 dec timer

 text 1,1,str$(score) : rem print score to screen

   if score=100
    load sound "C:\Program Files\The Game Creators\Dark Basic\media\sounds\weather\thunder.wav" ,1
    play sound 1
    wait 700
    stop sound 1
    endif

    if score=300
     load sound "C:\Program Files\The Game Creators\Dark Basic\media\sounds\cartoon\gong.wav" ,1
      play sound 1
      wait 700
      stop sound 1
      endif

    if score=800
     load sound "C:\Program Files\The Game Creators\Dark Basic\media\sounds\animals\gallop.wav" ,1
     play sound 1
     wait 700
     stop sound 1
     endif

     if score=1000
     load sound "C:\Program Files\The Game Creators\Dark Basic\media\sounds\humans\clapping.wav" ,1
     play sound 1
     wait 700
     stop sound 1
     endif
 sync
loop

Back to top

Profile PM Email

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 15th May 2007 07:54

Link

Quote: "i have my sound file in the foleder,"

Sorry - check the rules. No external media files are allowed. You can only post the source code - nothing else.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 15th May 2007 08:06

Link

oh shoot i'm sorry tdk, i feel very foolish. Thank you very much hehehehe. I'll remove it at once. Thank you

Back to top

Profile PM Email

Comrade Robski

18

Years of Service

User Offline

Joined: 12th Sep 2005

Location:

Posted: 15th May 2007 12:30

Link

Quote: "gives an error on this, i fixed it already but why did it give me an error."

Sorry, a rem statement got lost somewhere... That line should read:

+ Code Snippet

 dec timer : rem decrease timer

I've edited the original to correct the error

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 15th May 2007 18:02 Edited at: 15th May 2007 18:30

Link

Zombie 20:

NP - I just didn't want to see you waste your time trying to fix something that couldn't be used in the challenge anyway.

You are still entering it without the sound right?...

Comrade Robski:

Just a minor point, but you should avoid using DB keywords as variable names - like Timer. You should really use something like T or TimerVal to make it clearly distinguishable from the Timer() function.

[Edit] Must be going blind - put Y instead of T above so just changed it! Using Y as a variable name for the timer doesn't make a lot of sense...

It will work most times, but isn't good practice and it can cause confusion later.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Comrade Robski

18

Years of Service

User Offline

Joined: 12th Sep 2005

Location:

Posted: 15th May 2007 18:17 Edited at: 15th May 2007 18:17

Link

Quote: "Just a minor point, but you should avoid using DB keywords as variable names - like Timer. You should really use something like Y or TimerVal to make it clearly distinguishable from the Timer() function."

Thanks, TDK, good point. Actually for a long time I used to type RANDOMIZE TIMER instead of TIMER() - It was maybe a year before I noticed - so I really should have remembered this time!

Back to top

Profile PM

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 16th May 2007 02:58

Link

TDK-Yea i'm still joining, i just need to try out some 2d commands for some drawing

.

Back to top

Profile PM Email

Sinani201

17

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 17th May 2007 05:21

Link

I gotta be entering this! I never enter these challenges, so I might start with this one.

Aren't I full of questions?
What happens when when you mix coke, pop rocks, vinegar, and baking soda?

Back to top

Profile PM

NanoGamez guy

17

Years of Service

User Offline

Joined: 13th Jan 2007

Location: Closer than you think...

Posted: 17th May 2007 18:28

Link

good for you! we need some more people to join.

Nothing is impossible...
No really, it is.

Back to top

Profile PM Email Website

Zombie 20

17

Years of Service

User Offline

Joined: 26th Nov 2006

Location: Etters, PA

Posted: 19th May 2007 11:06

Link

well now i have to drop out

. I've been having the worst lack of focus and brain farts. I just don't know where to start, i'll check out the next comp though. It is fun, just can't get it this time

. Good luck everyone

.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / The DB Classic Programming Challenge Thread