sparkler

[WhatAmIDoing]

this one is very simple but effective

code:

setscreen ("graphics") var x, y, c, a, b, button : int const centerx := maxx div 2 const centery := maxy div 2 loop     mousewhere (a, b, button)     randint (x, 0, maxx)     randint (y, 0, maxy)     randint (c, 0, 50)     drawline (a, b, x, y, c) end loop

[jonos]

thats a nice effect. you should make it so that when the user presses a button it shoots stars/circles/something at the mouse. nice work.

[WhatAmIDoing]

hey thats a good idea thx

i'll try it with random stars,circles or leafs

[apomb]

here's a variation of that , with some input from the buttons

code:

setscreen ("graphics,nobuttonbar") var x, y, c, a, b, button : int const centerx := maxx div 2 const centery := maxy div 2 loop     mousewhere (a, b, button)     if button = 1 then         randint (x, 0, maxx)         randint (y, 0, maxy)         randint (c, 0, 50)         drawfillstar (a, b, x, y, c)     else         randint (x, 0, maxx)         randint (y, 0, maxy)         randint (c, 0, 50)         drawline (a, b, x, y, c)     end if end loop

[shorthair]

Compwiz , Thats really nice , i like it ( dont plug threads ) unless there is a need to , but good job anyway ,

[jonos]

that's nice, just put a little delay after the stars so that it is slower and it looks awesome.

[WhatAmIDoing]

ya thats pretty good how bout this one

setscreen ("graphics,nobuttonbar")
var x, y, c, a, b, button, number : int
const centerx := maxx div 2
const centery := maxy div 2
loop
randint (number, 1, 3)
mousewhere (a, b, button)
if button = 1 and number = 1 then
randint (x, 0, maxx)
randint (y, 0, maxy)
randint (c, 0, 50)
drawfillstar (a, b, x, y, c)
delay (50)
elsif button = 1 and number = 2 then
randint (x, 0, maxx)
randint (y, 0, maxy)
randint (c, 0, 50)
drawfilloval (a, b, x, y, c)
delay (50)
elsif button = 1 and number = 3 then
randint (x, 0, maxx)
randint (y, 0, maxy)
randint (c, 0, 50)
drawfillmapleleaf (a, b, x, y, c)
delay (50)
else
randint (x, 0, maxx)
randint (y, 0, maxy)
randint (c, 0, 50)
drawline (a, b, x, y, c)
end if
end loop

[jonos]

ahh, too many shapes:

code:

setscreen ("graphics,nobuttonbar") var x, y, c, a, b, button : int const centerx := maxx div 2 const centery := maxy div 2 loop     mousewhere (a, b, button)     if button = 1 then         randint (x, 0, maxx)         randint (y, 0, maxy)         drawline (a, b, x, y, 0)         drawline (a+1, b+1, x+1, y+1, 7)     else         randint (x, 0, maxx)         randint (y, 0, maxy)         randint (c, 0, 50)         drawline (a, b, x, y, c)     end if end loop

last code im posting in this thread, we shouldn't be plugging them with out code, like shorthair said.

[WhatAmIDoing]

hey thats a sweet idea i like it. and ya i won't post anymore code in this thread

[white_dragon]

tat's sweet! nice prog! make one so every button pressed on keyboard makes one where mouse is. tink u can do it?

[jonos]

that's easy... just make tons of if statements and do mousewhere and then make the effect... voila, that would look awesome though, someone do it. im not going to though because i have homework i should be doingl.

[WhatAmIDoing]

ya I could do that but i'm putting the finishing touches on my frogger program. also i need you guys to test it for me ok?

[the_short1]

once a month... someone submits the EXACT same thing i made when i was starting out in turing (long time ago) .... funny.... and i DONT want to plug... but yea... i have this, plus recepneps line deal in my Kevin the shorts cool visuals.. funny ... great minds think alike,.,,., rite?

i find it weird that you though up this idea..... i think it sparkes the minds of junior programers as soon as they start randint and char graphics to do these kinds of things... Codus... it lookz good... try making the screen bigger, then have it on a black backround... and save a screenshot... it lookz REALY sweet for a destopbackround if you mouse was in middle.. and not stay there too long...

also
if msbtn = 1 then
colorback (black)
cls
end if
then you can click in middle of screen and start over for making that screenshot...

and compwiz.. .that lookz ASWEOME...

[Jodo Yodo]

OOH, seizure

[nastynika]

good job