Sand - 10 line - GameCreators Forum

Author

Message

England 5 Germany 1

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: England

Posted: 18th May 2003 16:11

Link

This is my sand program of - if i count correctly - 10 lines
Any ideas on what to put in remaining 10 lines would be appreciated.
There is a bug in the deletion of blocks where they dont disappear which i am trying to solve.
[left mousebutton] - make block
[right mousebutton] - delete block

Back to top

Profile PM

D Man

21

Years of Service

User Offline

Joined: 3rd Oct 2002

Location: Germany

Posted: 18th May 2003 16:26

Link

Now it works for DBPro, too.
Nice effect, but not all blocks disappear, when I click with the right mouse button on them.

God is real, unless declared integer.

Back to top

Profile PM Email

England 5 Germany 1

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: England

Posted: 18th May 2003 16:30

Link

Thats the bug i said about in the first one - im not exactly sure why it happens since the block stops blocking the sand but is still visible. Thus sand simply goes through it.

Back to top

Profile PM

England 5 Germany 1

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: England

Posted: 18th May 2003 16:49

Link

Fixed the bug of blocks not disappearing

`SAND

sand=1000 : block=1000 : make object sphere 1,0 : delete object 1 : sync on : dim sand(sand,3) : dim screen(650,490) : dim block(block,3) : backdrop on : color backdrop 0
do : for t=1 to sand : if sand(t,1)=0 : sand(t,1)=1 : sand(t,2)=320 : sand(t,3)=0 : endif : if sand(t,1)=1 : screen(sand(t,2),sand(t,3))=0 : oldy=sand(t,3) : sand(t,3)=sand(t,3)+rnd(2)+1 : if sand(t,3)>478 then sand(t,3)=478
if screen(sand(t,2),sand(t,3))>0 : sand(t,3)=oldy : oldx=sand(t,2) : sand(t,2)=sand(t,2)+rnd(4)-2 : if screen(sand(t,2),sand(t,3))>0 then sand(t,2)=oldx : endif
if sand(t,3)=478 : oldx=sand(t,2) : sand(t,2)=sand(t,2)+rnd(4)-2 : if screen(sand(t,2),sand(t,3))>0 then sand(t,2)=oldx : endif
ink rgb(rnd(255),rnd(255),rnd(255)),0 : dot sand(t,2),sand(t,3) : if sand(t,2)=320 and sand(t,3)=478 : sand(t,1)=0 : endif : if sand(t,1)=1 then screen(sand(t,2),sand(t,3)=1 : endif
next t : blockdone=0 : ink rgb(255,255,0),0 : for t=1 to block : if block(t,1)=1 : box block(t,2),block(t,3),block(t,2)+5,block(t,3)+5 : endif
if mouseclick()=2 and blockdone=0 and block(t,1)=0 : block(t,1)=1 : block(t,2)=mousex() : block(t,3)=mousey()
for r=0 to 5 : for e=0 to 5 : screen(mousex()+r,mousey()+e)=2 : next e : next r : blockdone=1 : endif
if mouseclick()=1 and block(t,1)=1 and block(t,2)>mousex()-6 and block(t,2)<mousex()+6 and block(t,3)>mousey()-6 and block(t,3)<mousey()+6
for m=0 to 5 : for z=0 to 5 : screen(block(t,2)+m,block(t,3)+z)=0 : next m : next z : block(t,1)=0 : endif : next t : sync : loop
`

+ Code Snippet

`SAND

sand=1000 : block=1000 : make object sphere 1,0 : delete object 1 : sync on : dim sand(sand,3) : dim screen(650,490) : dim block(block,3) : backdrop on : color backdrop 0
do : for t=1 to sand : if sand(t,1)=0 : sand(t,1)=1 : sand(t,2)=320 : sand(t,3)=0 : endif : if sand(t,1)=1 : screen(sand(t,2),sand(t,3))=0 : oldy=sand(t,3) : sand(t,3)=sand(t,3)+rnd(2)+1 : if sand(t,3)>478 then sand(t,3)=478
if screen(sand(t,2),sand(t,3))>0 : sand(t,3)=oldy : oldx=sand(t,2) : sand(t,2)=sand(t,2)+rnd(4)-2 : if screen(sand(t,2),sand(t,3))>0 then sand(t,2)=oldx : endif
if sand(t,3)=478 : oldx=sand(t,2) : sand(t,2)=sand(t,2)+rnd(4)-2 : if screen(sand(t,2),sand(t,3))>0 then sand(t,2)=oldx : endif
ink rgb(rnd(255),rnd(255),rnd(255)),0 : dot sand(t,2),sand(t,3) : if sand(t,2)=320 and sand(t,3)=478 : sand(t,1)=0 : endif : if sand(t,1)=1 then screen(sand(t,2),sand(t,3)=1 : endif
next t : blockdone=0 : ink rgb(255,255,0),0 : for t=1 to block : if block(t,1)=1 : box block(t,2),block(t,3),block(t,2)+5,block(t,3)+5 : endif
if mouseclick()=2 and blockdone=0 and block(t,1)=0 : block(t,1)=1 : block(t,2)=mousex() : block(t,3)=mousey()
for r=0 to 5 : for e=0 to 5 : screen(mousex()+r,mousey()+e)=2 : next e : next r : blockdone=1 : endif
if mouseclick()=1 and block(t,1)=1 and block(t,2)>mousex()-6 and block(t,2)<mousex()+6 and block(t,3)>mousey()-6 and block(t,3)<mousey()+6
for m=0 to 5 : for z=0 to 5 : screen(block(t,2)+m,block(t,3)+z)=0 : next m : next z : block(t,1)=0 : endif : next t : sync : loop
`

Back to top

Profile PM

Attreid

21

Years of Service

User Offline

Joined: 27th Nov 2002

Location:

Posted: 18th May 2003 18:17

Link

it's pretty good

Bu$herie
How many civilians is he going to kill ? he's going to burn in hell, and I hope that his pain will make him inderstand !

Back to top

Profile PM Email

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 18th May 2003 19:41

Link

thats impressive!!!

ARE YOU A 3D MODELER??? IF SO WE NEED YOU!!!
EMAIL mynameisnoneofyourbuisness@hotmail.com to work on the new Star Strike project!!!

Back to top

Profile PM Email Website

Whisper Wind

21

Years of Service

User Offline

Joined: 5th Apr 2003

Location:

Posted: 18th May 2003 19:52 Edited at: 18th May 2003 19:55

Link

Wow thats really good. For the next ten lines, maybe you could make the little sand particles bounce a bit? And a restart button too.

Back to top

Profile PM Email

England 5 Germany 1

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: England

Posted: 18th May 2003 22:32 Edited at: 18th May 2003 22:36

Link

Ive added a slight bounce to the sand which is proportional to the amount of time that it has been in freefall. [and without using another line

].

`SAND

sand=500:block=1000:make object sphere 1,0:delete object 1:sync on:dim sand(sand,7):dim screen(650,490):dim block(block,3):backdrop on:color backdrop 0
do:for t=1 to sand:if sand(t,1)=0:sand(t,1)=1:sand(t,2)=320:sand(t,3)=0:endif:if sand(t,1)=1:screen(sand(t,2),sand(t,3))=0:oldy=sand(t,3):if sand(t,5)=0:sand(t,3)=sand(t,3)+rnd(2)+1:endif
if sand(t,5)=1:sand(t,3)=sand(t,3)-(sand(t,6)/120):sand(t,6)=sand(t,6)-40:if sand(t,6)<(0-(sand(t,7))):sand(t,6)=0:sand(t,5)=0:endif:if sand(t,3)<0:sand(t,3)=0:endif
noldx=sand(t,2):if sand(t,4)=0:sand(t,2)=sand(t,2)-(sand(t,7)/(rnd(20)+130)):endif:if sand(t,4)=1:sand(t,2)=sand(t,2)+(sand(t,7)/(rnd(20)+130)):endif:if screen(sand(t,2),sand(t,3))=1:sand(t,2)=noldx:endif:endif
if sand(t,3)>478:sand(t,3)=478:endif:if screen(sand(t,2),sand(t,3))>0:if screen(sand(t,2),sand(t,3))>1:sand(t,5)=1:sand(t,7)=sand(t,6):sand(t,4)=rnd(1):endif:sand(t,3)=oldy:oldx=sand(t,2):sand(t,2)=sand(t,2)+rnd(4)-2
if screen(sand(t,2),sand(t,3))>0:sand(t,2)=oldx:endif:endif:if sand(t,3)=478:oldx=sand(t,2):sand(t,2)=sand(t,2)+rnd(4)-2:if screen(sand(t,2),sand(t,3))>0:sand(t,2)=oldx:endif:endif:ink rgb(rnd(255),rnd(255),rnd(255)),0:dot sand(t,2),sand(t,3)
sand(t,6)=sand(t,6)+(sand(t,3)-oldy):if sand(t,2)=320 and sand(t,3)=478:sand(t,1)=0:sand(t,6)=0:endif:if sand(t,1)=1:screen(sand(t,2),sand(t,3)=1:endif:endif:next t
blockdone=0:ink rgb(255,255,0),0:for t=1 to block:if block(t,1)=1:box block(t,2),block(t,3),block(t,2)+5,block(t,3)+5:endif:if mouseclick()=1 and blockdone=0 and block(t,1)=0:block(t,1)=1:block(t,2)=mousex():block(t,3)=mousey()
for r=0 to 5:for e=0 to 5:screen(mousex()+r,mousey()+e)=2:next e:next r:blockdone=1:endif:if mouseclick()=2 and block(t,1)=1 and block(t,2)>mousex()-6 and block(t,2)<mousex()+6 and block(t,3)>mousey()-6 and block(t,3)<mousey()+6
for m=0 to 5:for z=0 to 5:screen(block(t,2)+m,block(t,3)+z)=0 : next m : next z:block(t,1)=0:endif:next t:sync:loop
`

+ Code Snippet

`SAND

sand=500:block=1000:make object sphere 1,0:delete object 1:sync on:dim sand(sand,7):dim screen(650,490):dim block(block,3):backdrop on:color backdrop 0
do:for t=1 to sand:if sand(t,1)=0:sand(t,1)=1:sand(t,2)=320:sand(t,3)=0:endif:if sand(t,1)=1:screen(sand(t,2),sand(t,3))=0:oldy=sand(t,3):if sand(t,5)=0:sand(t,3)=sand(t,3)+rnd(2)+1:endif
if sand(t,5)=1:sand(t,3)=sand(t,3)-(sand(t,6)/120):sand(t,6)=sand(t,6)-40:if sand(t,6)<(0-(sand(t,7))):sand(t,6)=0:sand(t,5)=0:endif:if sand(t,3)<0:sand(t,3)=0:endif
noldx=sand(t,2):if sand(t,4)=0:sand(t,2)=sand(t,2)-(sand(t,7)/(rnd(20)+130)):endif:if sand(t,4)=1:sand(t,2)=sand(t,2)+(sand(t,7)/(rnd(20)+130)):endif:if screen(sand(t,2),sand(t,3))=1:sand(t,2)=noldx:endif:endif
if sand(t,3)>478:sand(t,3)=478:endif:if screen(sand(t,2),sand(t,3))>0:if screen(sand(t,2),sand(t,3))>1:sand(t,5)=1:sand(t,7)=sand(t,6):sand(t,4)=rnd(1):endif:sand(t,3)=oldy:oldx=sand(t,2):sand(t,2)=sand(t,2)+rnd(4)-2
if screen(sand(t,2),sand(t,3))>0:sand(t,2)=oldx:endif:endif:if sand(t,3)=478:oldx=sand(t,2):sand(t,2)=sand(t,2)+rnd(4)-2:if screen(sand(t,2),sand(t,3))>0:sand(t,2)=oldx:endif:endif:ink rgb(rnd(255),rnd(255),rnd(255)),0:dot sand(t,2),sand(t,3)
sand(t,6)=sand(t,6)+(sand(t,3)-oldy):if sand(t,2)=320 and sand(t,3)=478:sand(t,1)=0:sand(t,6)=0:endif:if sand(t,1)=1:screen(sand(t,2),sand(t,3)=1:endif:endif:next t
blockdone=0:ink rgb(255,255,0),0:for t=1 to block:if block(t,1)=1:box block(t,2),block(t,3),block(t,2)+5,block(t,3)+5:endif:if mouseclick()=1 and blockdone=0 and block(t,1)=0:block(t,1)=1:block(t,2)=mousex():block(t,3)=mousey()
for r=0 to 5:for e=0 to 5:screen(mousex()+r,mousey()+e)=2:next e:next r:blockdone=1:endif:if mouseclick()=2 and block(t,1)=1 and block(t,2)>mousex()-6 and block(t,2)<mousex()+6 and block(t,3)>mousey()-6 and block(t,3)<mousey()+6
for m=0 to 5:for z=0 to 5:screen(block(t,2)+m,block(t,3)+z)=0 : next m : next z:block(t,1)=0:endif:next t:sync:loop
`

As for a restart button i dont see the need - as soon as the sand hits middle of the bottom of the screen it comes out the top again. If the sand isnt going through very quick, draw a funnel above the very middle of the bottom of the screen. This will make the landing sand get to the middle pixel and thus get back to the top of the screen far faster.

Back to top

Profile PM

England 5 Germany 1

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: England

Posted: 18th May 2003 22:35

Link

Prehaps it would be better as source code than a snippet

Back to top

Profile PM

Whisper Wind

21

Years of Service

User Offline

Joined: 5th Apr 2003

Location:

Posted: 18th May 2003 23:02

Link

Now that you've got the physics coded, you could try and make it into a game. Maybe you have to get all of the sand into a certain area with a limited amount of blocks or something? And you can still have a free form mode like what you have now. Or, maybe you could make some boxes that rotate around slowly to show off your physics.

Back to top

Profile PM Email

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 21st May 2003 21:35

Link

maybe you could give the user different tools, for instance a straight line like the girder in worms 2 that could be angled how you wanted to make controlling the sand easier

ARE YOU A 3D MODELER??? IF SO WE NEED YOU!!!
EMAIL mynameisnoneofyourbuisness@hotmail.com to work on the new Star Strike project!!!

Back to top

Profile PM Email Website

Joey Bob

20

Years of Service

User Offline

Joined: 24th May 2003

Location:

Posted: 25th May 2003 08:09

Link

That's really cool, and impressive fo only 10 lines of code

Back to top

Profile PM

medwayman

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: uk

Posted: 25th May 2003 17:14

Link

thats cool

well done

Back to top

Profile PM

pugmartin

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: United Kingdom

Posted: 25th May 2003 22:30

Link

Try this one...

http://members.aol.com/pugmartin/pugmartins_sand

...I think you`ll like it...

20,000 pixels now!

Ive compiled it so everyone can try it.

@England 5 Germany 1

Mind if i try n have a play with it?

Good basis for a game here somewhere...

10 Rem Code goes here
http://geocities.com/pugmartin/index.html

Back to top

Profile PM Email Website

England 5 Germany 1

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: England

Posted: 25th May 2003 22:40

Link

Sure try what you want with it
I thought i could make it into a game as oppose to an effect but have had little luck in the way of actually making anything that works.
Any game is often to easy - such as dropping it on a fixed place

Back to top

Profile PM

England 5 Germany 1

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: England

Posted: 26th May 2003 01:02

Link

This is an attempt to turn the sand effect into a game
Simply direct the sand into the cart at the bottom of the screen using blocks.
40% is needed to advance to the next level where the cart gets quicker
Should you lose 60% of the sand ,thus failing the level it simply repeats that level of speed.
Sometimes the sand jumps through the blocks which is something im currently trying to fix.

Back to top

Profile PM

England 5 Germany 1

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: England

Posted: 26th May 2003 01:18

Link

To PugMartin:
Cant seem to get your version to work
I renamed it to a .exe file extension before running - possibly the problem but it wouldnt run without me doing so.
Upon opening it quits immediately i.e the icon appears and then disappears.

Could just be my computer but i tried it on two and it didnt work on either.

Back to top

Profile PM

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 26th May 2003 12:57

Link

its actually quite a good game, i got to the second level,

ARE YOU A 3D MODELER??? IF SO WE NEED YOU!!!
EMAIL mynameisnoneofyourbuisness@hotmail.com to work on the new Star Strike project!!!

Back to top

Profile PM Email Website

medwayman

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: uk

Posted: 27th May 2003 03:06

Link

Cool game

I can’t always create the blocks, but I managed to get to level 2.
This has the potential to be a very cool puzzler
well done

Back to top

Profile PM

pugmartin

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: United Kingdom

Posted: 27th May 2003 18:58

Link

Well heres the code in raw format if you want to try it.

Dunno if DBC can deal with memblock commands though so thats why i did the compiled version.

Anyway, try this code. I think maybe the reason it didnt work for you was possibly the resolution(?). Just change the screenx,screeny,screend in the code to select a res suitable for your pc. Make sure to select a feasible one though, as if its wrong(wrong dimensions etc) you'll get some odd results. Hope you like it. This is using 15000 bits of sand. Once i convert the whole code to an even faster routine, i reckon i could get 30000 easily.

At the minute, im also working on a pressure based water system too, so they could be interesting together...

Let me know what you think

10 Rem Code goes here
http://geocities.com/pugmartin/index.html

Back to top

Profile PM Email Website

pugmartin

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: United Kingdom

Posted: 4th Jun 2003 04:38

Link

Anybody seen England 5 Germany 1 about?!

I wanna know if he`s done owt else with this

10 Rem Code goes here
http://geocities.com/pugmartin/index.html

Back to top

Profile PM Email Website

UberTuba

21

Years of Service

User Offline

Joined: 5th Oct 2002

Location: Brittania

Posted: 4th Jun 2003 16:34

Link

great! reminds me of lemmings

Life is a terminal disease.
You never survive it.

Back to top

Profile PM Email

pugmartin

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: United Kingdom

Posted: 5th Jun 2003 08:37

Link

Yes mate. Thats the kind of idea ive got.

Gimme a little while n ill show you all what ive got going...

10 Rem Code goes here
http://geocities.com/pugmartin/index.html

Back to top

Profile PM Email Website

England 5 Germany 1

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: England

Posted: 11th Jun 2003 17:29

Link

No thats the only thing i ever got around to doing with it - it was meant to be more of an effect than a game. I look forward to seeing the game your making out of it.

Back to top

Profile PM

pugmartin

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: United Kingdom

Posted: 14th Jun 2003 02:52

Link

Hello again!

Where you been man?

You`ll have to let me know your real name sometime if i ever do get anything done, wouldnt b right to not include you in the credits.

Been really busy with other things lately so no time im afraid, but ive just been trying little things out for when i get around to it. Definatley got some ideas that`d be fun though. Im thinking a sort of lemmings type puzzle game mixed with the clever ideas from the incredible machine? Good game that.

Keep in touch with enything else you create as `just an effect`, soemtimes they can provide the best coding examples to everyone. And besides, they look pretty...

10 Rem Code goes here
http://geocities.com/pugmartin/index.html

Back to top

Profile PM Email Website

Tommeh

20

Years of Service

User Offline

Joined: 15th Jun 2003

Location: United Kingdom

Posted: 15th Jun 2003 16:31

Link

Very good and only 10 lines

Back to top

Profile PM Email Website

xtom

21

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Ireland

Posted: 15th Jun 2003 17:11

Link

cool effect

Back to top

Profile PM Website

Blanka

21

Years of Service

User Offline

Joined: 26th Feb 2003

Location: United Kingdom

Posted: 18th Jun 2003 17:16

Link

thats sooo cool

i love it man, i hopes you win this month, this is awsome !

Back to top

Profile PM

England 5 Germany 1

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: England

Posted: 22nd Jun 2003 21:48

Link

- Pugmartin
Ive put my name in my profile if you want to put it in the credits
I might make a few new things now that my exams have finished and i have a bit of free time again

Back to top

Profile PM

England 5 Germany 1

21

Years of Service

User Offline

Joined: 12th Apr 2003

Location: England

Posted: 22nd Jun 2003 21:52

Link

On another note - Does anyone know why some posts are coloured red - and how they get to be that way. This one now has a red folder when i look at it on the forum list.

Back to top

Profile PM

Mentor

21

Years of Service

User Offline

Joined: 27th Aug 2002

Location: United Kingdom

Posted: 23rd Jun 2003 00:28

Link

means a hot topic, you got lotsa feedback in a short time

Mentor.

Back to top

Profile PM

parisg

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location:

Posted: 23rd Jun 2003 01:49

Link

awesome snip !!

Back to top

Profile PM

Sorry your browser is not supported!

The 20 Line Challenge / Sand - 10 line