- DBPro Coding Challenges - - GameCreators Forum

Author

Message

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 6th May 2006 09:19 Edited at: 6th May 2006 09:55

Link

@phaelax, sorry. but thats not what the challenge specified.

ive already started on his challenge.

randomize timer()
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,110,150)
next begin
get image 1,0,0,10,10
cls
x=0
y=0
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,170,0)
next begin
get image 2,0,0,10,10
cls
x=0
y=0
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,0,100)
dot rnd(10),rnd(10),rgb(225,225,225)
next begin
get image 3,0,0,10,10
cls
`terrain
make matrix 1,1000,1000,100,100
prepare matrix texture 1,2,100,100
randomize matrix 1,2+rnd(3)
set matrix height 1,x,z,-2
position matrix 1,-500,3,-500
`sky
make object sphere 1000,4000
set object cull 1000,0
texture object 1000,3
`water
make matrix 2,4000,4000,100,100
prepare matrix texture 2,1,100,100
position matrix 2,-2000,0,-2000
`boats
remstart
for begin=1 to 20
make object box begin,20,10,20
position object begin,rnd(3000)-1500,4,rnd(3000)-1500
while object position x(begin)>-510 AND object position x(begin)<510 AND object position z(begin)>-510 AND object position z(begin)<510
position object begin,rnd(3000)-1500,4,rnd(3000)-1500
endwhile
next begin
remend
`camera
make camera 1
position camera 1,0,20,0
do
remstart
for begin=1 to 20
cho=rnd(4)
if cho=1 then yrotate object 1,object angle y(begin)+0.8
if cho=2 then yrotate object 1,object angle y(begin)-0.8
move object begin,1
while object position x(begin)>-510 AND object position x(begin)<510 AND object position z(begin)>-510 AND object position z(begin)<510 AND object position x(begin)>-3100 AND object position x(begin)<3100 AND object position z(begin)>-3100 AND object position z(begin)<3100
yrotate object 1,object angle y(begin)+160
move object begin,10
endwhile
next begin
remend
if loopnum=12
randomize matrix 2,3
prepare matrix texture 2,1,100,100
loopnum=0
endif
yrotate object 1000,object angle y(1000)+0.0999
control camera using arrowkeys 1,1,1
loopnum=loopnum+1
loop

+ Code Snippet

randomize timer()
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,110,150)
next begin
get image 1,0,0,10,10
cls
x=0
y=0
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,170,0)
next begin
get image 2,0,0,10,10
cls
x=0
y=0
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,0,100)
dot rnd(10),rnd(10),rgb(225,225,225)
next begin
get image 3,0,0,10,10
cls
`terrain
make matrix 1,1000,1000,100,100
prepare matrix texture 1,2,100,100
randomize matrix 1,2+rnd(3)
set matrix height 1,x,z,-2
position matrix 1,-500,3,-500
`sky
make object sphere 1000,4000
set object cull 1000,0
texture object 1000,3
`water
make matrix 2,4000,4000,100,100
prepare matrix texture 2,1,100,100
position matrix 2,-2000,0,-2000
`boats
remstart
for begin=1 to 20
make object box begin,20,10,20
position object begin,rnd(3000)-1500,4,rnd(3000)-1500
while object position x(begin)>-510 AND object position x(begin)<510 AND object position z(begin)>-510 AND object position z(begin)<510
position object begin,rnd(3000)-1500,4,rnd(3000)-1500
endwhile
next begin
remend
`camera
make camera 1
position camera 1,0,20,0
do
remstart
for begin=1 to 20
cho=rnd(4)
if cho=1 then yrotate object 1,object angle y(begin)+0.8
if cho=2 then yrotate object 1,object angle y(begin)-0.8
move object begin,1
while object position x(begin)>-510 AND object position x(begin)<510 AND object position z(begin)>-510 AND object position z(begin)<510 AND object position x(begin)>-3100 AND object position x(begin)<3100 AND object position z(begin)>-3100 AND object position z(begin)<3100
yrotate object 1,object angle y(begin)+160
move object begin,10
endwhile
next begin
remend
if loopnum=12
randomize matrix 2,3
prepare matrix texture 2,1,100,100
loopnum=0
endif
yrotate object 1000,object angle y(1000)+0.0999
control camera using arrowkeys 1,1,1
loopnum=loopnum+1
loop

the boats are glitchy at the moment so i remed them.
this is a pretty easy challenge with matrix commands.
well, im going to bed... its 1:18am where i am.
chow.

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 6th May 2006 10:37

Link

@GG: That challenge is fine - good idea. I think we will see a fair bit of reused code from previous challenges, (me included), but that's fine as well.

@DV: Media created by the code, saved as a file and then reloaded all with in the same compilation is ok. However, you MUST be able to copy and paste the entire code from the code snippet and be able to run it, without having to download any media files.

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 6th May 2006 12:17 Edited at: 6th May 2006 12:58

Link

Quote: "That challenge is fine - good idea. I think we will see a fair bit of reused code from previous challenges, (me included), but that's fine as well."

Thanks, we'll stick with it as stated. I'm looking forward to seeing what people come up with.

Quote: "Ric says in his rules no external media allowed!"

I included the rule as I understand it (which Ric has confirmed) so that everyone knew exactly what was allowed. In some earlier challenges I recall some people not realising it was allowable to create media, save it, and then reload it into the program. As Ric says, the crucial thing is

Quote: "However, you MUST be able to copy and paste the entire code from the code snippet and be able to run it, without having to download any media files."

Quote: "I would much like to do another short challenge such as the one we just did. Like CF said, it was fun with all the quick updates and exchange of code... "

Yes, I thought it worked well too (I would say that, of course!) and was tempted to set something similar. However, I think it's good to keep a variety of activities to help maintain a wider audience. I hope someone sets another of those short challenges soon, I suspect the gloves will be off next time ...

Edit: good start digital dude RELOADED except I couldn't find the boats. I think this will keep people going for more than a day (with luck!).

Edit2: looks like I can't read:

Quote: "the boats are glitchy at the moment so i remed them"

.

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 6th May 2006 16:31 Edited at: 6th May 2006 16:34

Link

here's my random terrain code so far.

F = fault formation randomization
R = completely randomized
S = smooth

sync on
backdrop on
color backdrop 0
hide mouse
randomize timer()

tx = 50
tz = 50
tsx# = 1000.0/tx
tsz# = 1000.0/tz

dim heights#(tx,tz)

`load image "grass.jpg", 1

make matrix 1, 1000,1000,tx,tz
`prepare matrix texture 1,1,1,1

position camera 0,300,0
point camera 500,100,500

do

gosub camera_stuff

if inkey$()="f" and flag=0
      flag = 1
      x1 = rnd(1000)
      y1 = rnd(1000)
      x2 = rnd(1000)
      y2 = rnd(1000)
      gosub _calc_matrix
   endif

if inkey$()="s" and flag2=0
      flag2 = 1
      gosub _smooth_matrix
   endif

if inkey$()="r" and flag3=0
      flag3=1
      gosub _randomize_matrix
   endif

if inkey$()<>"f" then flag = 0
   if inkey$()<>"s" then flag2 = 0
   if inkey$()<>"r" then flag3 = 0

sync
loop

_randomize_matrix:
   for z = 0 to tz
      for x = 0 to tx
         h# = rnd(100)
         set matrix height 1,x,z,h#
         heights#(x,z) = h#
      next x
   next z
   update matrix 1
RETURN

_calc_matrix:

h0# = 20
   h1# = 15

for z = 0 to tz
      for x = 0 to tx
         px# = x*tsx#
         pz# = z*tsz#
         if point_line(px#,pz#,x1,y1,x2,y2) >= 0
            h# = get matrix height(1,x,z)+h0#
            set matrix height 1, x, z, h#
         else
            h# = get matrix height(1,x,z)-h1#
            set matrix height 1, x, z, h#
         endif
         heights#(x,z) = h#
      next x
   next z

update matrix 1
RETURN

_smooth_matrix:

for z = 0 to tz
      for x = 0 to tx
         count = 0
         h1# = 0
         h2# = 0
         h3# = 0
         h4# = 0
         h5# = 0
         h6# = 0
         h7# = 0
         h8# = 0
         if z < tz
            if x > 0 then h1# = heights#(x-1,z+1) : inc count
            h2# = heights#(x,z+1) : inc count
            if x < tx then h3# = heights#(x+1,z+1) : inc count
         endif

if x > 0 then h4# = heights#(x-1,z) : inc count
         if x < tx then h5# = heights#(x+1,z) : inc count

if z > 0
            if x > 0 then h6# = heights#(x-1,z-1) : inc count
            h7# = heights#(x,z-1) : inc count
            if x < tx then h8# = heights#(x+1,z-1) : inc count
         endif

`count=count+5 : h1#=h1#+(5.0*heights#(x,z))

avg# = (h1#+h2#+h3#+h4#+h5#+h6#+h7#+h8#) / count

set matrix height 1,x,z,avg#
      next x
   next z

update matrix 1

for z = 0 to tz
      for x = 0 to tx
         heights#(x,z) = get matrix height(1,x,z)
      next x
   next z

RETURN

camera_stuff:
  oldcx#=cx#
  oldcz#=cz#
  speed# = 5
  if upkey()=1
    cx#=newxvalue(cx#,a#,speed#)
    cz#=newzvalue(cz#,a#,speed#)
  endif
  if downkey()=1
    cx#=newxvalue(cx#,a#,-speed#)
    cz#=newzvalue(cz#,a#,-speed#)
  endif
  if leftkey()=1
    cx#=newxvalue(cx#,wrapvalue(a#-90.0),speed#)
    cz#=newzvalue(cz#,wrapvalue(a#-90.0),speed#)
  endif
  if rightkey()=1
    cx#=newxvalue(cx#,wrapvalue(a#+90.0),speed#)
    cz#=newzvalue(cz#,wrapvalue(a#+90.0),speed#)
  endif

if shiftkey() then inc cy#, 2
   if controlkey() then dec cy#, 2

a#=wrapvalue(a#+(mousemovex()/3.0))
  cxa#=cxa#+(mousemovey()/3.0)
  if cxa#<-90.0 then cxa#=-90.0
  if cxa#>90.0 then cxa#=90.0
  cy# = get ground height(1,cx#,cz#)
  position camera cx#,cy#+100,cz#
  rotate camera wrapvalue(cxa#),a#,0
RETURN

function point_line(px#,py#, x1#,y1#,x2#,y2#)
   dp# = (x2# - x1#) * (py# - y1#) - (px# - x1#) * (y2# - y1#)
endfunction dp#

+ Code Snippet

sync on
backdrop on
color backdrop 0
hide mouse
randomize timer()

tx = 50
tz = 50
tsx# = 1000.0/tx
tsz# = 1000.0/tz


dim heights#(tx,tz)

`load image "grass.jpg", 1

make matrix 1, 1000,1000,tx,tz
`prepare matrix texture 1,1,1,1

position camera 0,300,0
point camera 500,100,500



do


   gosub camera_stuff


   if inkey$()="f" and flag=0
      flag = 1
      x1 = rnd(1000)
      y1 = rnd(1000)
      x2 = rnd(1000)
      y2 = rnd(1000)
      gosub _calc_matrix
   endif

   if inkey$()="s" and flag2=0
      flag2 = 1
      gosub _smooth_matrix
   endif

   if inkey$()="r" and flag3=0
      flag3=1
      gosub _randomize_matrix
   endif

   if inkey$()<>"f" then flag = 0
   if inkey$()<>"s" then flag2 = 0
   if inkey$()<>"r" then flag3 = 0


   sync
loop


_randomize_matrix:
   for z = 0 to tz
      for x = 0 to tx
         h# = rnd(100)
         set matrix height 1,x,z,h#
         heights#(x,z) = h#
      next x
   next z
   update matrix 1
RETURN

_calc_matrix:

   h0# = 20
   h1# = 15

   for z = 0 to tz
      for x = 0 to tx
         px# = x*tsx#
         pz# = z*tsz#
         if point_line(px#,pz#,x1,y1,x2,y2) >= 0
            h# = get matrix height(1,x,z)+h0#
            set matrix height 1, x, z, h#
         else
            h# = get matrix height(1,x,z)-h1#
            set matrix height 1, x, z, h#
         endif
         heights#(x,z) = h#
      next x
   next z

   update matrix 1
RETURN



_smooth_matrix:

   for z = 0 to tz
      for x = 0 to tx
         count = 0
         h1# = 0
         h2# = 0
         h3# = 0
         h4# = 0
         h5# = 0
         h6# = 0
         h7# = 0
         h8# = 0
         if z < tz
            if x > 0 then h1# = heights#(x-1,z+1) : inc count
            h2# = heights#(x,z+1) : inc count
            if x < tx then h3# = heights#(x+1,z+1) : inc count
         endif

         if x > 0 then h4# = heights#(x-1,z) : inc count
         if x < tx then h5# = heights#(x+1,z) : inc count

         if z > 0
            if x > 0 then h6# = heights#(x-1,z-1) : inc count
            h7# = heights#(x,z-1) : inc count
            if x < tx then h8# = heights#(x+1,z-1) : inc count
         endif

         `count=count+5 : h1#=h1#+(5.0*heights#(x,z))

         avg# = (h1#+h2#+h3#+h4#+h5#+h6#+h7#+h8#) / count

         set matrix height 1,x,z,avg#
      next x
   next z

   update matrix 1

   for z = 0 to tz
      for x = 0 to tx
         heights#(x,z) = get matrix height(1,x,z)
      next x
   next z

RETURN




camera_stuff:
  oldcx#=cx#
  oldcz#=cz#
  speed# = 5
  if upkey()=1
    cx#=newxvalue(cx#,a#,speed#)
    cz#=newzvalue(cz#,a#,speed#)
  endif
  if downkey()=1
    cx#=newxvalue(cx#,a#,-speed#)
    cz#=newzvalue(cz#,a#,-speed#)
  endif
  if leftkey()=1
    cx#=newxvalue(cx#,wrapvalue(a#-90.0),speed#)
    cz#=newzvalue(cz#,wrapvalue(a#-90.0),speed#)
  endif
  if rightkey()=1
    cx#=newxvalue(cx#,wrapvalue(a#+90.0),speed#)
    cz#=newzvalue(cz#,wrapvalue(a#+90.0),speed#)
  endif

   if shiftkey() then inc cy#, 2
   if controlkey() then dec cy#, 2



  a#=wrapvalue(a#+(mousemovex()/3.0))
  cxa#=cxa#+(mousemovey()/3.0)
  if cxa#<-90.0 then cxa#=-90.0
  if cxa#>90.0 then cxa#=90.0
  cy# = get ground height(1,cx#,cz#)
  position camera cx#,cy#+100,cz#
  rotate camera wrapvalue(cxa#),a#,0
RETURN



function point_line(px#,py#, x1#,y1#,x2#,y2#)
   dp# = (x2# - x1#) * (py# - y1#) - (px# - x1#) * (y2# - y1#)
endfunction dp#

Nice clouds, diamond-square algorithm i see.

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 6th May 2006 17:21

Link

Nice idea. I didn't think of doing it that way. Will be easier to see how the terrain is developing when it's textured.

Need to make sure it's an island in a sea though.

Back to top

Profile PM Email

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 6th May 2006 17:57

Link

@Phaleax - nice!

I'd like to enter this - I'm currently working on the DB Challgnes site. Do people like the name "Da Codez" as a domain/site name? Based on the "Gimmeh teh codez"... A place where you can be "given the codez"

(I KNOW ITS CORNEY!!)

http://forum.antiblog.com, http://thingy-ma-jig.co.uk/new/

Back to top

Profile PM Email Website

Segan

19

Years of Service

User Offline

Joined: 28th Aug 2005

Location: Canada

Posted: 6th May 2006 18:04

Link

@Green Gandalf:

[For the last challenge] It appears you stumbled on a well known probability formula, but it boggles my mind trying to figure out why it works here.

Quote: "
(10*11*12*13*14*15)/(1*2*3*4*5*6)
"

This can actually be written as (15!)/((9!)(6!)) or "15 choose 6." More information on this can be found at this website:
http://www.stat.ualberta.ca/people/schmu/preprints/article/Article.htm

This has started getting me interested. If I get the chance, I might look into why mathimatically this works.

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 6th May 2006 18:18

Link

(15!)/((9!)(6!))

I get 7 for an answer, unless my factorial function is wrong.

+ Code Snippet

print factorial(15) / (factorial(9)*factorial(6))
suspend for key

function factorial(x as integer)
   y = x
   for i=x-1 to 1 step -1
      y = y*i
   next i
endfunction y

And by "15 choose 6" is that a permutation or am I misunderstanding?

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 6th May 2006 18:22

Link

Quote: "This can actually be written as (15!)/((9!)(6!)) or "15 choose 6.""

Which, of course, is the same as "15 choose 9". I don't know which interpretation makes it easier to see why it works in this case. If I think of a simple explanation I'll post it. There are lots of combinatorial formulae - and some of them are easy to understand when you look at a problem the right way.

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 6th May 2006 18:26

Link

only correlation I see is 10^6 = 1 million

Could it just be a coincidence that it gives the right answer?

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 6th May 2006 18:38

Link

I think it is obvious why it's "15 choose 6" when you think about it ...

(All I have to do now is convince myself that it IS obvious ... will be back soon.)

Back to top

Profile PM Email

Green Gandalf

VIP Member

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 6th May 2006 18:47

Link

@Phaelax

Quote: "unless my factorial function is wrong"

'fraid so - you've exceeded the bounds of integer arithmetic in DBP. How big do you think 15! is?

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 6th May 2006 18:57

Link

1,307,674,368,000

Don't know why that didn't occurr to me.
All better now.

+ Code Snippet

print factorial(15) / (factorial(9)*factorial(6))
suspend for key


rem Calculates the factorial of X
function factorial(x as double integer)
   local y as double integer
   y = x
   for i=x-1 to 1 step -1
      y = y*i
   next i
endfunction y

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 6th May 2006 19:19

Link

Quote: "I think it is obvious why it's "15 choose 6" when you think about it ..."

Yep - it's "obvious". It's a standard occupancy problem (from my favourite probability textbook (William Feller, Volume 1). Think of the possible digits 0 to 9 as "boxes" arranged in a row, and think of the 6 digits required as 6 balls to be placed in the "boxes". Then each 6 digit number (including zero), with the pattern required by Ric, corresponds to dropping the balls into the right boxes. For example, if there are two balls in the "0" box, 3 in the "4" box and 1 ball in the "7" box and none in the other boxes, then the number selected is 004447, i.e. 4447.

To see why "15 choose 6" is the answer, represent the 10 "boxes" by 11 bars (I) and the "balls" by 6 asterisks (*). The spaces between the bars represent the 10 boxes. A possible arrangement is
II**III*I*II*I*II, which is the number 114578. Notice that the two end bars are fixed in position, but the 9 remaining bars and the 6 asterisks can be arranged in any order. Hence we have 15 objects arranged in a row and we want the number of ways of deciding that 6 of them are asterisks with the rest bars. Guess what - this is "15 choose 6" or "15 choose 9" if you prefer.

Well, that's what mathematicians mean by obvious anyway!

Back to top

Profile PM Email

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 6th May 2006 20:49 Edited at: 6th May 2006 23:21

Link

...

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 6th May 2006 22:00 Edited at: 6th May 2006 23:48

Link

updated code:

print "trees? (y/n)"
do
S$=inkey$()
if S$="y" then mt=1:exit
if S$="n" then mt=2:exit
loop

randomize timer()
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,110,150)
dot rnd(10),rnd(10),rgb(0,109,145)
next begin
get image 1,1,1,9,9
cls
x=0
y=0
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(30,110,0)
dot rnd(10),rnd(10),rgb(29,105,0)
next begin
get image 2,1,1,9,9
cls
x=0
y=0
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,0,100)
dot rnd(10),rnd(10),rgb(225,225,225)
next begin
get image 3,1,1,9,9
cls
x=0
y=0
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,0,100)
dot x,y,rgb(139,101,8)
next begin
get image 4,1,1,9,9
cls
`terrain
make matrix 1,1000,1000,100,100
prepare matrix texture 1,2,3,3
randomize matrix 1,2+rnd(3)
set matrix height 1,x,z,-2
position matrix 1,-500,3,-500
`sky
make object sphere 1000,4000
set object cull 1000,0
texture object 1000,3
`water
make matrix 2,4000,4000,100,100
prepare matrix texture 2,1,1,1
position matrix 2,-2000,0,-2000
`trees
if mt=1
for begin=1 to 20
make_tree(rnd(7)+10,begin)
next begin
endif
`camera
make camera 1
position camera 1,0,20,0
color backdrop 1,0
do
if loopnum=12
randomize matrix 2,3
prepare matrix texture 2,1,3,3
loopnum=0
endif
yrotate object 1000,object angle y(1000)+0.0999
control camera using arrowkeys 1,1,1
loopnum=loopnum+1
loop

function make_tree(size,num)
make object box 500+num,size,size*2,size
make object box 500+num+1,size-1,size*2-2,size-1
make mesh from object 1,500+num+1
delete object 500+num+1
add limb 500+num,1,1:offset limb 500+num,1,0,size*2-3,0:rotate limb 500+num,1,5,10,0
position object 500+num,rnd(1000)-500,size,rnd(1000)-500:yrotate object 500+num,rnd(360)
texture object 500+num,4
texture limb 500+num,1,4
make object plain 2500+num,18,20
make mesh from object 10,2500+num
for begin=1 to 40
add limb 500+num,begin+1,10:offset limb 500+num,begin+1,0,(size*2)+(size*2)-16,0:rotate limb 500+num,begin+1,(rnd(40)-20)+90,rnd(360),0
texture limb 500+num,begin+1,2
next begin
endfunction

+ Code Snippet

print "trees? (y/n)"
do
S$=inkey$()
if S$="y" then mt=1:exit
if S$="n" then mt=2:exit
loop








randomize timer()
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,110,150)
dot rnd(10),rnd(10),rgb(0,109,145)
next begin
get image 1,1,1,9,9
cls
x=0
y=0
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(30,110,0)
dot rnd(10),rnd(10),rgb(29,105,0)
next begin
get image 2,1,1,9,9
cls
x=0
y=0
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,0,100)
dot rnd(10),rnd(10),rgb(225,225,225)
next begin
get image 3,1,1,9,9
cls
x=0
y=0
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,0,100)
dot x,y,rgb(139,101,8)
next begin
get image 4,1,1,9,9
cls
`terrain
make matrix 1,1000,1000,100,100
prepare matrix texture 1,2,3,3
randomize matrix 1,2+rnd(3)
set matrix height 1,x,z,-2
position matrix 1,-500,3,-500
`sky
make object sphere 1000,4000
set object cull 1000,0
texture object 1000,3
`water
make matrix 2,4000,4000,100,100
prepare matrix texture 2,1,1,1
position matrix 2,-2000,0,-2000
`trees
if mt=1
for begin=1 to 20
make_tree(rnd(7)+10,begin)
next begin
endif
`camera
make camera 1
position camera 1,0,20,0
color backdrop 1,0
do
if loopnum=12
randomize matrix 2,3
prepare matrix texture 2,1,3,3
loopnum=0
endif
yrotate object 1000,object angle y(1000)+0.0999
control camera using arrowkeys 1,1,1
loopnum=loopnum+1
loop

function make_tree(size,num)
make object box 500+num,size,size*2,size
make object box 500+num+1,size-1,size*2-2,size-1
make mesh from object 1,500+num+1
delete object 500+num+1
add limb 500+num,1,1:offset limb 500+num,1,0,size*2-3,0:rotate limb 500+num,1,5,10,0
position object 500+num,rnd(1000)-500,size,rnd(1000)-500:yrotate object 500+num,rnd(360)
texture object 500+num,4
texture limb 500+num,1,4
make object plain 2500+num,18,20
make mesh from object 10,2500+num
for begin=1 to 40
add limb 500+num,begin+1,10:offset limb 500+num,begin+1,0,(size*2)+(size*2)-16,0:rotate limb 500+num,begin+1,(rnd(40)-20)+90,rnd(360),0
texture limb 500+num,begin+1,2
next begin
endfunction

things new:
boats scrapped.(100%)
trees added.(95%)
better looking(and more random) terrain.(80%)
---------------------------------------------
i know this is a competition, but any suggestions for my code???

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

Segan

19

Years of Service

User Offline

Joined: 28th Aug 2005

Location: Canada

Posted: 7th May 2006 00:20

Link

Yehaw! We're getting somewhere mathimatically!

Plus, this seems to work for all possible possibilities. Thus:

# of never decrease numbers = (b+d)!/(b!d!) - 1

where b is "type of numbers" (ie 10 for base 10, 2 for binary etc.) - 1
and d is the number of digits.

Back to top

Profile PM Email

Green Gandalf

VIP Member

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 7th May 2006 00:30 Edited at: 7th May 2006 01:20

Link

Segan

Quote: "# of never decrease numbers = (b+d)!/(b!d!) - 1"

Exactly.

@digital dude RELOADED

Will report back on your revised code shortly. Unless there are strong objections from others, I'm quite happy to offer suggestions.

Edit: no violent objections yet, so here are two comments:

1. Get in the habit of indenting commands which are within a grouping structure, such as "if", "for", "do" and "repeat" blocks. It makes your code MUCH more readable - and hence easier to de-bug.
For example, write an "if" block as:

+ Code Snippet

if (x1<29)
  do this
else
  do that
endif

Particularly important with "for" loops which use the same counter!

2. Have you got confused with y and z in one of your loops? (You are stepping through x and y in your matrix, but then referring to them as x and z (if z isn't set, it stays at zero) - at least I think that's what you are doing.)

Edit2: 3rd comment: Nice to have code which compiles and runs without fuss - keep it up.

Edit3: 4th comment: Have another look at your "for-next" loops. For example, you have:

+ Code Snippet

x=0
y=0
for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,0,100)
dot x,y,rgb(139,101,8)
next begin

I think this could be more clearly written as something like:

+ Code Snippet

for x=1 to 10
  for y=1 to 10
    dot x,y,rgb(139,101,8)
  next y
next x

but you need to check whether x and y start from 0 (your code doesn't seem consistent on this). I think the first "dot" in your code is unnecessary (copied and pasted from elsewhere?).

Enough for now - good luck.

Back to top

Profile PM Email

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 7th May 2006 01:28

Link

ok, thx.

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 7th May 2006 02:39

Link

Quote: "2. Have you got confused with y and z in one of your loops? (You are stepping through x and y in your matrix, but then referring to them as x and z (if z isn't set, it stays at zero) - at least I think that's what you are doing.)"

z is depth.y is height.

-------------z
------------/-------
-----------/--------
----------/---------
____________________x
--------/-----------
-------/------------
------/-------------

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

Homey the Clown

20

Years of Service

User Offline

Joined: 4th Apr 2004

Location:

Posted: 7th May 2006 03:04

Link

Are we doing the Island thing? If so here is mine...but I dont want to be apart of this challenge. I was just bored and decided to do this. I'm not sure if the zip file will work or not(please reply if it does).

Enjoy,
Homey

"I don't think so... Homey don't play that."
-Homey D. Clown
Intel Pentium 4 2.4Ghz processor,512MB Ram,GeForce4 MX 4000

Attachments

Login to view attachments

Back to top

Profile PM

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 7th May 2006 03:13

Link

zip does work,
but sorry!!! no media allowed.

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 7th May 2006 04:08

Link

screenies(not going to post updated code!!)

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

Alexb Orsova

18

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 7th May 2006 07:03

Link

I haven't entered these challenges for a while, so I thought I'd have a go. Here's what I have so far.

rem prepare environment
sync on : sync rate 0 : color backdrop 0
randomize timer() : autocam off : fog on
fog distance 100 : fog color rgb(0, 0, 0)

rem variables
camera_angle_x# = 25
camera_angle_y# = 135
wave# = 0

rem make island
make matrix 1, 50, 50, 10, 10
texture_matrix(1, 128, 64, 64)
position matrix 1, 25, 4, 25
rand_island()

rem setup water
make matrix 2, 200, 200, 100, 100
texture_matrix(2, 0, 128, 255)
position matrix 2, -50, 4, -50

rem setup camera
position camera 50, 28, 50

do

rem handle controls
 if upkey() = 1 then camera_angle_x# = wrapvalue(camera_angle_x# - 0.5)
 if downkey() = 1 then camera_angle_x# = wrapvalue(camera_angle_x# + 0.5)
 if leftkey() = 1 then camera_angle_y# = wrapvalue(camera_angle_y# - 0.5)
 if rightkey() = 1 then camera_angle_y# = wrapvalue(camera_angle_y# + 0.5)

rem move water
 wave# = wrapvalue(wave# + 1)
 for x = 0 to 100
  for z = 0 to 100
   f = 2.5 : fv = 20
   h = f * (cos((fv * x) + wave#) + cos((fv * z) + wave#))
   set matrix height 2, x, z, h
  next y
 next x
 update matrix 2

rem move camera
 rotate camera camera_angle_x#, camera_angle_y#, 0

rem refresh screen
 sync

loop

function rand_island()
 for x = 0 to 10
  for z = 0 to 10
   value = 4 + rnd(2)
   set matrix height 1, x, z, value
  next z
 next x
 update matrix 1
endfunction

function texture_matrix(number, r, g, b)
 if r = 255 then r = r - 10
 if g = 255 then g = g - 10
 if b = 255 then b = b - 10
 create bitmap 1, 20, 20
 for x = 1 to 20
  for y = 1 to 20
   dot x, y, rgb((r - 10) + rnd(20), (g - 10) + rnd(20), (b - 10) + rnd(20))
  next y
 next x
 get image number, 1, 1, 20, 20
 prepare matrix texture number, number, 1, 1
 delete bitmap 1
 set current bitmap 0
endfunction

+ Code Snippet

rem prepare environment
sync on : sync rate 0 : color backdrop 0
randomize timer() : autocam off : fog on
fog distance 100 : fog color rgb(0, 0, 0)

rem variables
camera_angle_x# = 25
camera_angle_y# = 135
wave# = 0

rem make island
make matrix 1, 50, 50, 10, 10
texture_matrix(1, 128, 64, 64)
position matrix 1, 25, 4, 25
rand_island()

rem setup water
make matrix 2, 200, 200, 100, 100
texture_matrix(2, 0, 128, 255)
position matrix 2, -50, 4, -50

rem setup camera
position camera 50, 28, 50

do

 rem handle controls
 if upkey() = 1 then camera_angle_x# = wrapvalue(camera_angle_x# - 0.5)
 if downkey() = 1 then camera_angle_x# = wrapvalue(camera_angle_x# + 0.5)
 if leftkey() = 1 then camera_angle_y# = wrapvalue(camera_angle_y# - 0.5)
 if rightkey() = 1 then camera_angle_y# = wrapvalue(camera_angle_y# + 0.5)

 rem move water
 wave# = wrapvalue(wave# + 1)
 for x = 0 to 100
  for z = 0 to 100
   f = 2.5 : fv = 20
   h = f * (cos((fv * x) + wave#) + cos((fv * z) + wave#))
   set matrix height 2, x, z, h
  next y
 next x
 update matrix 2

 rem move camera
 rotate camera camera_angle_x#, camera_angle_y#, 0

 rem refresh screen
 sync

loop

function rand_island()
 for x = 0 to 10
  for z = 0 to 10
   value = 4 + rnd(2)
   set matrix height 1, x, z, value
  next z
 next x
 update matrix 1
endfunction

function texture_matrix(number, r, g, b)
 if r = 255 then r = r - 10
 if g = 255 then g = g - 10
 if b = 255 then b = b - 10
 create bitmap 1, 20, 20
 for x = 1 to 20
  for y = 1 to 20
   dot x, y, rgb((r - 10) + rnd(20), (g - 10) + rnd(20), (b - 10) + rnd(20))
  next y
 next x
 get image number, 1, 1, 20, 20
 prepare matrix texture number, number, 1, 1
 delete bitmap 1
 set current bitmap 0
endfunction

I know, it's not amazing, but it's a start.

Back to top

Profile PM Email

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 7th May 2006 07:15

Link

pretty good

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 7th May 2006 07:24 Edited at: 7th May 2006 07:42

Link

screenies:
group of trees:

nice pic of dock and the water:

starting configuration:

nice overall map look:

thats all for now!

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

Alexb Orsova

18

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 7th May 2006 07:38

Link

nice trees, wait until I post my updated code tomorrow. right now, I have to go to sleep, it's 1:00 AM here.

Back to top

Profile PM Email

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 7th May 2006 08:30

Link

thx.

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

Green Gandalf

VIP Member

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 7th May 2006 12:40

Link

@digital dude RELOADED

OK, I misread your code relating to the z vs y thing. However, it still looks wrong to me. The second version you posted contains the following:

+ Code Snippet

for begin=1 to 100
x=x+1
if x=10
y=y+1
x=0
endif
dot x,y,rgb(0,0,100)
dot x,y,rgb(139,101,8)
next begin
get image 4,1,1,9,9
cls
`terrain
make matrix 1,1000,1000,100,100
prepare matrix texture 1,2,3,3
randomize matrix 1,2+rnd(3)
set matrix height 1,x,z,-2
position matrix 1,-500,3,-500

At the point where the "set matrix height" command occurs, I think x must have the value 10, and z has the value 0 (because in that version of your code z is not given a value so it takes the initial vale of 0 given by the compiler). Perhaps that is what you intended?

Some interesting features are appearing on your terrain. You're the front runner so far.

@Alexb Orsova

Another promising start - but I started to get sea-sick looking at your waves! (And they look more like tsunamis.) Perhaps you could include some code to allow the viewer to move around the landscape?

Back to top

Profile PM Email

Green Gandalf

VIP Member

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 7th May 2006 12:48

Link

@Homey the Clown

Quote: "If so here is mine...but I dont want to be apart of this challenge."

Why not? The more the merrier! Modify your program to create the images itself and you'll be up and running with the rest.

Back to top

Profile PM Email

Alexb Orsova

18

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 7th May 2006 18:04 Edited at: 7th May 2006 18:43

Link

I'm back! Here's my updated code.

rem prepare environment
sync on : sync rate 0 : color backdrop 0
randomize timer() : draw to front : fog on
fog distance 140 : fog color rgb(0, 0, 0)

rem variables
camera_angle_x# = 25
camera_angle_y# = 135
wave# = 0 : time# = 0
sun_dist = 130 : day = 0

rem make sun/moon
make object sphere 1, 10
color object 1, rgb(255, 255, 0)
set object light 1, 0
set spot light 0, 10, 300
color light 0, rgb(255, 255, 0)

rem make island
make matrix 1, 100, 100, 18, 18
texture_matrix(1, 128, 64, 64)
position matrix 1, -50, 4, -50
rand_island()
add_bushes(3, 10)

rem setup water
make matrix 2, 240, 240, 100, 100
texture_matrix(2, 0, 128, 255)
position matrix 2, -120, 4, -120

rem setup camera
position camera 0, 28, 0

do

rem handle controls
 if upkey() = 1 then camera_angle_x# = wrapvalue(camera_angle_x# - 0.5)
 if downkey() = 1 then camera_angle_x# = wrapvalue(camera_angle_x# + 0.5)
 if leftkey() = 1 then camera_angle_y# = wrapvalue(camera_angle_y# - 0.5)
 if rightkey() = 1 then camera_angle_y# = wrapvalue(camera_angle_y# + 0.5)

rem update time (sun/moon)
 if time# <> 48 then time# = time# + 0.02
 if time# = 48
  time# = 0
  day = wrapvalue(day + 1)
 endif
 if time# < 25
  color object 1, rgb(255, 255, 0)
  color light 0, rgb(180, 180, 180)
  fog color rgb(255, 255, 255)
  color backdrop rgb(255, 255, 255)
  position object 1, 0, 0, 0
  rotate object 1, (15 * time#), day, 0
  move object 1, sun_dist
  position light 0, object position x(1), object position y(1), object position z(1)
  point light 0, 0, 0, 0
 endif
 if time# > 24
  color object 1, rgb(0, 0, 255)
  color light 0, rgb(0, 100, 255)
  fog color rgb(0, 0, 0)
  color backdrop rgb(0, 0, 0)
  position object 1, 0, 0, 0
  rotate object 1, (15 * (time# - 24)), day, 0
  move object 1, sun_dist
  position light 0, object position x(1), object position y(1), object position z(1)
  point light 0, 0, 0, 0
 endif

rem move water
 wave# = wrapvalue(wave# + 0.8)
 for x = 0 to 100
  for z = 0 to 100
   f = 2.5 : fv = 24
   h = f * (cos((fv * x) + wave#) + cos((fv * z) + wave#))
   set matrix height 2, x, z, h
  next y
 next x
 update matrix 2

rem move camera
 rotate camera camera_angle_x#, camera_angle_y#, 0

rem refresh screen
 sync

loop

function rand_island()
 for x = 0 to 18
  for z = 0 to 18
   value = 4 + rnd(2)
   set matrix height 1, x, z, value
  next z
 next x
 update matrix 1
endfunction

function add_bushes(number, n_bushes)
 rem create the texture
 create bitmap 1, 10, 10
 cls rgb(0, 0, 0)
 for d = 1 to 20
  x = rnd(10) : y = rnd(10)
  dot x, y, rgb(0, 255, 0)
 next d
 get image number, 0, 0, 10, 10
 delete bitmap 1
 set current bitmap 0
 for bush = 1 to n_bushes
  a = free_number() : b = free_number() + 1
  make object plain a, 4, 4
  texture object a, number
  ghost object on a, 0
  make object plain b, 4, 4
  texture object b, number
  ghost object on b, 0
  randomize timer()
  x = (5 + rnd(90)) - 50 : z = (5 + rnd(90)) - 50
  position object a, x, 10, z
  position object b, x, 10, z
  yrotate object b, 90
 next bush
endfunction

function free_number()
 retval = 1
 while object exist(retval) = 1
  retval = retval + 1
 endwhile
endfunction retval

function texture_matrix(number, r, g, b)
 if r = 255 then r = r - 5
 if g = 255 then g = g - 5
 if b = 255 then b = b - 5
 create bitmap 1, 60, 60
 for x = 1 to 60
  for y = 1 to 60
   dot x, y, rgb((r - 5) + rnd(10), (g - 5) + rnd(10), (b - 5) + rnd(10))
  next y
 next x
 get image number, 1, 1, 20, 20
 prepare matrix texture number, number, 3, 3
 fill matrix number, 0, 5
 delete bitmap 1
 set current bitmap 0
endfunction

+ Code Snippet

rem prepare environment
sync on : sync rate 0 : color backdrop 0
randomize timer() : draw to front : fog on
fog distance 140 : fog color rgb(0, 0, 0)

rem variables
camera_angle_x# = 25
camera_angle_y# = 135
wave# = 0 : time# = 0
sun_dist = 130 : day = 0

rem make sun/moon
make object sphere 1, 10
color object 1, rgb(255, 255, 0)
set object light 1, 0
set spot light 0, 10, 300
color light 0, rgb(255, 255, 0)

rem make island
make matrix 1, 100, 100, 18, 18
texture_matrix(1, 128, 64, 64)
position matrix 1, -50, 4, -50
rand_island()
add_bushes(3, 10)

rem setup water
make matrix 2, 240, 240, 100, 100
texture_matrix(2, 0, 128, 255)
position matrix 2, -120, 4, -120

rem setup camera
position camera 0, 28, 0

do

 rem handle controls
 if upkey() = 1 then camera_angle_x# = wrapvalue(camera_angle_x# - 0.5)
 if downkey() = 1 then camera_angle_x# = wrapvalue(camera_angle_x# + 0.5)
 if leftkey() = 1 then camera_angle_y# = wrapvalue(camera_angle_y# - 0.5)
 if rightkey() = 1 then camera_angle_y# = wrapvalue(camera_angle_y# + 0.5)

 rem update time (sun/moon)
 if time# <> 48 then time# = time# + 0.02
 if time# = 48
  time# = 0
  day = wrapvalue(day + 1)
 endif
 if time# < 25
  color object 1, rgb(255, 255, 0)
  color light 0, rgb(180, 180, 180)
  fog color rgb(255, 255, 255)
  color backdrop rgb(255, 255, 255)
  position object 1, 0, 0, 0
  rotate object 1, (15 * time#), day, 0
  move object 1, sun_dist
  position light 0, object position x(1), object position y(1), object position z(1)
  point light 0, 0, 0, 0
 endif
 if time# > 24
  color object 1, rgb(0, 0, 255)
  color light 0, rgb(0, 100, 255)
  fog color rgb(0, 0, 0)
  color backdrop rgb(0, 0, 0)
  position object 1, 0, 0, 0
  rotate object 1, (15 * (time# - 24)), day, 0
  move object 1, sun_dist
  position light 0, object position x(1), object position y(1), object position z(1)
  point light 0, 0, 0, 0
 endif

 rem move water
 wave# = wrapvalue(wave# + 0.8)
 for x = 0 to 100
  for z = 0 to 100
   f = 2.5 : fv = 24
   h = f * (cos((fv * x) + wave#) + cos((fv * z) + wave#))
   set matrix height 2, x, z, h
  next y
 next x
 update matrix 2

 rem move camera
 rotate camera camera_angle_x#, camera_angle_y#, 0

 rem refresh screen
 sync

loop

function rand_island()
 for x = 0 to 18
  for z = 0 to 18
   value = 4 + rnd(2)
   set matrix height 1, x, z, value
  next z
 next x
 update matrix 1
endfunction

function add_bushes(number, n_bushes)
 rem create the texture
 create bitmap 1, 10, 10
 cls rgb(0, 0, 0)
 for d = 1 to 20
  x = rnd(10) : y = rnd(10)
  dot x, y, rgb(0, 255, 0)
 next d
 get image number, 0, 0, 10, 10
 delete bitmap 1
 set current bitmap 0
 for bush = 1 to n_bushes
  a = free_number() : b = free_number() + 1
  make object plain a, 4, 4
  texture object a, number
  ghost object on a, 0
  make object plain b, 4, 4
  texture object b, number
  ghost object on b, 0
  randomize timer()
  x = (5 + rnd(90)) - 50 : z = (5 + rnd(90)) - 50
  position object a, x, 10, z
  position object b, x, 10, z
  yrotate object b, 90
 next bush
endfunction

function free_number()
 retval = 1
 while object exist(retval) = 1
  retval = retval + 1
 endwhile
endfunction retval

function texture_matrix(number, r, g, b)
 if r = 255 then r = r - 5
 if g = 255 then g = g - 5
 if b = 255 then b = b - 5
 create bitmap 1, 60, 60
 for x = 1 to 60
  for y = 1 to 60
   dot x, y, rgb((r - 5) + rnd(10), (g - 5) + rnd(10), (b - 5) + rnd(10))
  next y
 next x
 get image number, 1, 1, 20, 20
 prepare matrix texture number, number, 3, 3
 fill matrix number, 0, 5
 delete bitmap 1
 set current bitmap 0
endfunction

I've added bushes (help welcome), atmospheric effects (work in progress), and a sun/moon that circle above. What do all of you think?

Back to top

Profile PM Email

Green Gandalf

VIP Member

19

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 7th May 2006 18:41

Link

Alexb Orsova

Some nice ideas in that code. A few comments/suggestions:

1. The following bit of code might not work correctly, because the float time# might never be exactly equal to 48.

+ Code Snippet

if time# <> 48 then time# = time# + 0.02
 if time# = 48
  time# = 0
  day = wrapvalue(day + 1)
 endif

Probably safer to code it as:

+ Code Snippet

if time#<48
  time# = time# + 0.02
else
  time# = 0
  day = wrapvalue(day + 1)
endif

2. Your screen suddenly goes black for a while at the end of the day (I thought my machine had hung!) - could you arrange a more gradual transition between night/day?

3. Waves still look big - and the texture looks a bit like a carpet!

4. Perhaps change the camera controls so the camera moves around the terrain (e.g. "control camera using arrowkeys") as well as turning.

Back to top

Profile PM Email

Alexb Orsova

18

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 7th May 2006 18:46

Link

@ Green Gandalf

That's what I'm working on now. Another thing that's bothering me, I can't seem to be able to make a good texture for my bushes and only one side of them appear...

Anyway, thanks for the feedback.

Back to top

Profile PM Email

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 7th May 2006 19:42 Edited at: 7th May 2006 19:42

Link

Only one side appears because you're using plains, use double the plains and it'll work (flip the plains so they're back to back ofcourse).

Though for something like this I'd think using an alpha mapped sphere for bushes would look better, and just a hint, they never said the trees needed leaves

Back to top

Profile PM Email Website

Alexb Orsova

18

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 7th May 2006 19:47 Edited at: 7th May 2006 19:47

Link

@ruccus

you're right, I think I'll switch them to spheres.

Back to top

Profile PM Email

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 7th May 2006 20:19

Link

On a non-challenge but challenge thread related topic, I was wondering if someone would offer to collate the challenge entries since 13th Dec 2005

Its only about 5 months and at 2 weeks per challenge, about 10 challenges.

I'm working on the site - done a LOT this weekend. I've decided to use Drupal as a CMS for a few reasons:
1) I need to learn how to use it on a coding/techie level because I have to be part of a team which is moving two high traffic sites into it next weekend with the help and tutoring of a excelent guy called Rob Douglass.
2) Its an incredibly powerfull CMS!!

The site is approaching a level where I can start putting challenges in - however I am going to have to manually brign across the previous 30 or so challenges from my current site to the CMS. Shouldn't be too hard.

So - any offers?

http://forum.antiblog.com, http://thingy-ma-jig.co.uk/new/

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 2006 20:53

Link

I was checking out CMS on e107.org. Seems good, but a lack of documentation.

I started adding the challenges to my site, it does take awhile to go through each page, making sure you have the last updated version of everyone's entries. Lemme know where to upload the data from and I'll try to do both at the same time.

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 7th May 2006 20:58 Edited at: 7th May 2006 21:02

Link

yeha - I have looked at e107 before. Its not great. Phaelax - if you want the old challenges, take a look at my site. I have them compiled already.
@Phalaex: Do you use Skype or GoogleTalk?

http://forum.antiblog.com, http://thingy-ma-jig.co.uk/new/

Back to top

Profile PM Email Website

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 7th May 2006 22:55 Edited at: 7th May 2006 22:55

Link

new trees(different leaf texture):

bigger and beter dock:

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

Alexb Orsova

18

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 7th May 2006 22:58

Link

cool textures

Back to top

Profile PM Email

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 7th May 2006 23:00 Edited at: 7th May 2006 23:02

Link

and finally,
da codez(srry nic):

SET TEXT FONT "Zurich extended BT"
SET TEXT SIZE 15

print "trees? (y/n)"
do
S$=inkey$()
if S$="y" then mt=1:exit
if S$="n" then mt=2:exit
loop
wait 1000
cls
print "settings confirmed!!!"`for kicks and giggles
wait 2000
cls

center text screen width()/2,screen height()/2,"loading..."
`main
randomize timer()
for x=1 to 10
  for y=1 to 10
      dot x,y,rgb(0,11,50)
      dot rnd(10),rnd(10),rgb(0,19,45)
  next y
next x
get image 1,1,1,9,9
cls
x=0
y=0
for x=1 to 10
  for y=1 to 10
      dot x,y,rgb(30,110,0)
      dot rnd(10),rnd(10),rgb(29,105,0)
  next y
next x
get image 2,1,1,9,9
cls
x=0
y=0
for x=1 to 400
  for y=1 to 400
      dot x,y,rgb(0,0,200)
      dot rnd(1000),rnd(1000),rgb(205,205,205)
  next y
      dot x,y,rgb(0,0,200)
  next x
get image 3,1,1,199,199
cls
x=0
y=0
for x=1 to 10
  for y=1 to 10
    dot x,y,rgb(139,101,8)
  next y
next x
get image 4,1,1,9,9
cls
x=0
y=0
for x=1 to 10
  for y=1 to 10
      dot x,y,rgb(10,100,0)
      dot rnd(10),rnd(10),rgb(20,70,0)
  next y
next x
get image 5,1,1,9,9
cls
`terrain
make matrix 1,1000,1000,130,130
prepare matrix texture 1,2,3,3
randomize matrix 1,2+rnd(3)
set matrix height 1,x,z,-2
position matrix 1,-500,3,-500
SET MATRIX TRIM 1,100,100
`sky
make object sphere 1000,4000
set object cull 1000,0
texture object 1000,3
`water
make matrix 2,4000,4000,100,100
prepare matrix texture 2,1,1,1
position matrix 2,-2000,0,-2000
SET MATRIX TRIM 2,10,10
`trees
if mt=1
   for begin=1 to 20
       make_tree(rnd(7)+10,begin)
   next begin
endif
`dock
make_dock()
position object 10000,350,5,580
position object 10001,290,5,690
`camera
make camera 1
position camera 1,0,20,0
color backdrop 1,rgb(0,20,240)
`light
make light 2
position light 2,50,1400,50
point light 2,0,0,0
disable escapekey
do
   if loopnum=8
      randomize matrix 2,3.8
      prepare matrix texture 2,1,3,3
      loopnum=0
   endif
   yrotate object 1000,object angle y(1000)+0.0999

control camera using arrowkeys 1,3,2

loopnum=loopnum+1
if escapekey()
do
S$=inkey$()
cls
center text screen width()/2,10,"By: Digital Dude RELOADED for Programming Challenge"
center text screen width()/2,22,"Hold any key to Continue!"
wait 100
cls
if S$<>"" then end
loop
wait key
end
endif

set cursor 10,10
   print screen fps()
      `fastsync
   loop

function make_tree(size,num)
make object box 500+num,size,size*2,size
make object box 500+num+1,size-1,size*2-2,size-1
make mesh from object 1,500+num+1
delete object 500+num+1
add limb 500+num,1,1:SET LIMB SMOOTHING 500+num,1,10:offset limb 500+num,1,0,size*2-3,0:rotate limb 500+num,1,0,10,0
position object 500+num,rnd(900)-450,size,rnd(900)-450:rotate object 500+num,rnd(10)-5,rnd(360),0
texture object 500+num,4
texture limb 500+num,1,4
make object plain 2500+num,18,6*size
make mesh from object 10,2500+num
delete object 2500+num
for begin=1 to 40
   add limb 500+num,begin+1,10:offset limb 500+num,begin+1,-0.6,(size*2)+(size*2)-16.7,-0.6:rotate limb 500+num,begin+1,(rnd(80)-40)+90,rnd(360),0
   texture limb 500+num,begin+1,5
next begin
endfunction

function make_dock()
make object box 10000,4,20,4
make mesh from object 5,10000
delete object 10000
make object box 10000,50,2,170
add limb 10000,1,5:offset limb 10000,1,25,0,-85:texture limb 10000,1,4
add limb 10000,2,5:offset limb 10000,2,-25,0,85:texture limb 10000,2,4
add limb 10000,3,5:offset limb 10000,3,-25,0,-85:texture limb 10000,3,4
add limb 10000,4,5:offset limb 10000,4,25,0,85:texture limb 10000,4,4
texture object 10000,4
make object box 10001,4,20,4
make mesh from object 5,10001
delete object 10001
make object box 10001,50,2,170
add limb 10001,1,5:offset limb 10001,1,25,0,-85:texture limb 10001,1,4
add limb 10001,2,5:offset limb 10001,2,-25,0,85:texture limb 10001,2,4
add limb 10001,3,5:offset limb 10001,3,-25,0,-85:texture limb 10001,3,4
add limb 10001,4,5:offset limb 10001,4,25,0,85:texture limb 10001,4,4
texture object 10001,4
yrotate object 10001,90
endfunction

+ Code Snippet

SET TEXT FONT "Zurich extended BT"
SET TEXT SIZE 15

print "trees? (y/n)"
do
S$=inkey$()
if S$="y" then mt=1:exit
if S$="n" then mt=2:exit
loop
wait 1000
cls
print "settings confirmed!!!"`for kicks and giggles
wait 2000
cls

center text screen width()/2,screen height()/2,"loading..."
`main
randomize timer()
for x=1 to 10
  for y=1 to 10
      dot x,y,rgb(0,11,50)
      dot rnd(10),rnd(10),rgb(0,19,45)
  next y
next x
get image 1,1,1,9,9
cls
x=0
y=0
for x=1 to 10
  for y=1 to 10
      dot x,y,rgb(30,110,0)
      dot rnd(10),rnd(10),rgb(29,105,0)
  next y
next x
get image 2,1,1,9,9
cls
x=0
y=0
for x=1 to 400
  for y=1 to 400
      dot x,y,rgb(0,0,200)
      dot rnd(1000),rnd(1000),rgb(205,205,205)
  next y
      dot x,y,rgb(0,0,200)
  next x
get image 3,1,1,199,199
cls
x=0
y=0
for x=1 to 10
  for y=1 to 10
    dot x,y,rgb(139,101,8)
  next y
next x
get image 4,1,1,9,9
cls
x=0
y=0
for x=1 to 10
  for y=1 to 10
      dot x,y,rgb(10,100,0)
      dot rnd(10),rnd(10),rgb(20,70,0)
  next y
next x
get image 5,1,1,9,9
cls
`terrain
make matrix 1,1000,1000,130,130
prepare matrix texture 1,2,3,3
randomize matrix 1,2+rnd(3)
set matrix height 1,x,z,-2
position matrix 1,-500,3,-500
SET MATRIX TRIM 1,100,100
`sky
make object sphere 1000,4000
set object cull 1000,0
texture object 1000,3
`water
make matrix 2,4000,4000,100,100
prepare matrix texture 2,1,1,1
position matrix 2,-2000,0,-2000
SET MATRIX TRIM 2,10,10
`trees
if mt=1
   for begin=1 to 20
       make_tree(rnd(7)+10,begin)
   next begin
endif
`dock
make_dock()
position object 10000,350,5,580
position object 10001,290,5,690
`camera
make camera 1
position camera 1,0,20,0
color backdrop 1,rgb(0,20,240)
`light
make light 2
position light 2,50,1400,50
point light 2,0,0,0
disable escapekey
do
   if loopnum=8
      randomize matrix 2,3.8
      prepare matrix texture 2,1,3,3
      loopnum=0
   endif
   yrotate object 1000,object angle y(1000)+0.0999

   control camera using arrowkeys 1,3,2

   loopnum=loopnum+1
if escapekey()
do
S$=inkey$()
cls
center text screen width()/2,10,"By: Digital Dude RELOADED for Programming Challenge"
center text screen width()/2,22,"Hold any key to Continue!"
wait 100
cls
if S$<>"" then end
loop
wait key
end
endif


   set cursor 10,10
   print screen fps()
      `fastsync
   loop

function make_tree(size,num)
make object box 500+num,size,size*2,size
make object box 500+num+1,size-1,size*2-2,size-1
make mesh from object 1,500+num+1
delete object 500+num+1
add limb 500+num,1,1:SET LIMB SMOOTHING 500+num,1,10:offset limb 500+num,1,0,size*2-3,0:rotate limb 500+num,1,0,10,0
position object 500+num,rnd(900)-450,size,rnd(900)-450:rotate object 500+num,rnd(10)-5,rnd(360),0
texture object 500+num,4
texture limb 500+num,1,4
make object plain 2500+num,18,6*size
make mesh from object 10,2500+num
delete object 2500+num
for begin=1 to 40
   add limb 500+num,begin+1,10:offset limb 500+num,begin+1,-0.6,(size*2)+(size*2)-16.7,-0.6:rotate limb 500+num,begin+1,(rnd(80)-40)+90,rnd(360),0
   texture limb 500+num,begin+1,5
next begin
endfunction

function make_dock()
make object box 10000,4,20,4
make mesh from object 5,10000
delete object 10000
make object box 10000,50,2,170
add limb 10000,1,5:offset limb 10000,1,25,0,-85:texture limb 10000,1,4
add limb 10000,2,5:offset limb 10000,2,-25,0,85:texture limb 10000,2,4
add limb 10000,3,5:offset limb 10000,3,-25,0,-85:texture limb 10000,3,4
add limb 10000,4,5:offset limb 10000,4,25,0,85:texture limb 10000,4,4
texture object 10000,4
make object box 10001,4,20,4
make mesh from object 5,10001
delete object 10001
make object box 10001,50,2,170
add limb 10001,1,5:offset limb 10001,1,25,0,-85:texture limb 10001,1,4
add limb 10001,2,5:offset limb 10001,2,-25,0,85:texture limb 10001,2,4
add limb 10001,3,5:offset limb 10001,3,-25,0,-85:texture limb 10001,3,4
add limb 10001,4,5:offset limb 10001,4,25,0,85:texture limb 10001,4,4
texture object 10001,4
yrotate object 10001,90
endfunction

EDIT: BTW how much more time on this challenge?

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 7th May 2006 23:25

Link

I have googletalk, but I'm never on it. I pretty much stick to AIM/MSN/YIM

I've got 59 entries entered so far and just got up to the Virtual Pet challenge.

Actually, you can talk to me on google now. I got Adium on my laptop and it has googletalk in it, so I just connect to everything from 1 app. Take a wild guess what my username is.

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 7th May 2006 23:35

Link

Quote: "Unless there are strong objections from others, I'm quite happy to offer suggestions."

@GG: No objections at all - these challenges are meant to be educational, so any advice and suggestions offered by anyone is great to see.

Quote: "I started adding the challenges to my site, it does take awhile to go through each page, making sure you have the last updated version of everyone's entries."

@Phaelax: If you work backwards through the thread rather than forwards, you will find the last updated versions much more quickly.

Quote: "BTW how much more time on this challenge?"

@DDR: You've still got ages - it's a two week challenge, and it only started a couple of days ago. I'll be starting work on my entry this week.

@Nick: Personally, to put it subtly, 'DaCodez' isn't my favourite name. To put it less subtly, just typing it makes me cringe. Actually having to click a 'DaCodez' hyperlink may push me over the edge. ANY of the other suggestions would be better. But hey - it's your choice!! Did anyone else say they liked it?

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 8th May 2006 02:54

Link

I quite liked dbshed...

http://forum.antiblog.com, http://thingy-ma-jig.co.uk/new/

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 8th May 2006 04:16

Link

everytime i say dbshed aloud, i think dp dough and want a calzone. since im not near the campus i have to settle on pizza right now

Back to top

Profile PM Email Website

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 8th May 2006 04:23 Edited at: 8th May 2006 04:25

Link

http://www.DBPResorce.com/index.htm

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

The end is near

19

Years of Service

User Offline

Joined: 19th Jun 2005

Location: USA

Posted: 8th May 2006 04:48 Edited at: 8th May 2006 04:50

Link

heres a pic of it raining

does a number on fps though

stargate sg-1 the one show that never gets old

Back to top

Profile PM Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 8th May 2006 06:16

Link

i think they looks more like stars. you've really taken off on this challenge. Trees?! Raising the bar for the rest of us!

Back to top

Profile PM Email Website

BillR

21

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 8th May 2006 06:27

Link

@Nicholas - I've also got some of the competitions since December gathered up, I will send them to you.

Back to top

Profile PM Email

Darth Vader

19

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 8th May 2006 07:30 Edited at: 8th May 2006 07:32

Link

I am going to work on my challenge now

@Ric
I am using your medialess map maker, but I have one question...

+ Code Snippet

HOW THE HELL DO YOU GET SUCH NICE TEXTURES?!!!

Thank You!

[EDIT]By the way, can I use the #INCLUDE command to include another source file?[EDIT]

When in Trouble with anything visit here your number one stop for help

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / - DBPro Coding Challenges -

Attachments