team battle:

Maverick · **Posted:** Wed Mar 10, 2004 9:45 pm

Me and Paul culd have a n00b battle Very Happy

zylum · **Posted:** Wed Mar 10, 2004 9:54 pm

so i guess paul and maveric are on the same team... any ideas for the topic anyone???

Maverick · **Posted:** Thu Mar 11, 2004 4:33 pm

hmm a topic eh?
What do u want it to be liek who can make the best animation in under 50 lines or sumtin.

Paul · **Posted:** Thu Mar 11, 2004 4:39 pm

hey, they volunteered me into mavericks team, guess one has to take care of the handicapped Very Happy

I'll try my best, this weekend, Im learning how to make pong Very Happy

yea, im a noob.

Maverick · **Posted:** Thu Mar 11, 2004 6:08 pm

Chu callin me a noob mang?
So whatr shuld the topic be anyone?

zylum · **Posted:** Thu Mar 11, 2004 6:44 pm

i think it should be either fire or water.... just make a problem that's related to the topic... for example a simple program for water would be bubbles floating upwards.... or for fire, make a candle....

Paul · **Posted:** Thu Mar 11, 2004 7:28 pm

Whoa Whoa Whoa slow down, the water I might be able to do, but the fire takes thinking, and I'm not up to the thinking level yet...

zylum · **Posted:** Thu Mar 11, 2004 7:36 pm

i guess water it is... so who else is in... so far there is one team : paul and maveric.... and i am waiting for a partner....

what should the deadline be?

zylum

Catalyst · **Posted:** Thu Mar 11, 2004 9:27 pm

if no one else want in
ill be on ur team

Maverick · **Posted:** Thu Mar 11, 2004 9:51 pm

nonon none of that. Cataylst your too damn good.

lol Very Happy

Paul · **Posted:** Thu Mar 11, 2004 10:14 pm

Uh oh, we're gonna get our butts kicked by Zylum, who knows flash and turing graphic crazy stuff. I'll have some time in the march break.

zylum · **Posted:** Thu Mar 11, 2004 10:40 pm

fine fine, you and maveric can team up and me and catalyst will work solo to make things a bit more fair... to make it even more interesting, me and catalyst may have a max of 30 lines Shocked

you up to the challenge catalyst??? Smile

anyways... i'v just finished my submission... its only 20 lines so im way under the limit... maybe i'll add some other stuff to it but for now this is it. it's supposed to be rippling water... as in water droplets dropping in the middle of this body of water and creating ripples.

for slow computers:

code:

setscreen ("graphics:220;220,offscreenonly")
const size := ceil (sqrt (2 * 220 ** 2))
var clr : array 1 .. size of int
for i : 1 .. size
clr (i) := RGB.AddColor (0, 0, i / (size * 2) + 0.5)
end for
var wave : array 1 .. size div 2 of real
for i : 1 .. size div 2
wave (i) := i / 5
end for
var c : int
drawfillbox (0, 0, maxx, maxy, blue)
loop
for decreasing i : size div 2 .. 1
wave (i) -= 0.5
c := ceil ((sin (wave (i)) * (abs (size - i * 2.3)) / 3 + (size div 2)))
drawoval (maxx div 2, maxy div 2, i, i, clr (c))
end for
View.Update
end loop

for fast computers:

code:

setscreen ("graphics:220;220,offscreenonly")
const size := ceil (sqrt (2 * 220 ** 2))
var clr : array 1 .. size of int
for i : 1 .. size
clr (i) := RGB.AddColor (0, 0, i / (size * 2) + 0.5)
end for
var wave : array 1 .. size div 2 of real
for i : 1 .. size div 2
wave (i) := i / 5
end for
var c : int
drawfillbox (0, 0, maxx, maxy, blue)
loop
for decreasing i : size div 2 .. 1
wave (i) -= 0.5
c := ceil ((sin (wave (i)) * (abs (size - i * 2.3)) / 3 + (size div 2)))
drawfilloval (maxx div 2, maxy div 2, i, i, clr (c))
end for
View.Update
end loop

-zylum

Catalyst · **Posted:** Thu Mar 11, 2004 10:45 pm

ill see what i can do Very Happy

Paul · **Posted:** Thu Mar 11, 2004 10:46 pm

Aww geez >_< nice work. I hope there isn't a time limit cause Im still half way thru my essay and have a history paper coming up Mad

Catalyst · **Posted:** Thu Mar 11, 2004 11:26 pm

heres my idea
inspired my zylum's

code:

setscreen ("graphics:300;300,offscreenonly")
var vals : array 1 .. 150 of real
proc ColorSet (c1, c2, n : int)
var r1, g1, b1, r2, g2, b2, p, p0, clr : real
RGB.GetColor (c1, r1, g1, b1)
RGB.GetColor (c2, r2, g2, b2)
for i : 1 .. n
p := (i / n) * 100
p0 := 100 - p
clr := RGB.AddColor ((((r1 * p) + (r2 * p0)) / 2) / 50, (((g1 * p) + (g2 * p0)) / 2) / 50, (((b1 * p) + (b2 * p0)) / 2) / 50)
end for
end ColorSet
ColorSet (55, 1, 128)
ColorSet (53, 55, 88)
ColorSet (102, 53, 32)
for i : 1 .. 150
vals (i) := i
end for
drawfillbox (0, 0, maxx, maxy, 7)
loop
for decreasing i : 150 .. 1
vals (i) -= 2
drawfilloval (maxx div 2, 100 - round (sind (vals (i) * 5) * 15), i * 2, i, round (maxcolor - ((sind (vals (i) * 5) + 1) / 2) * 220))
end for
View.Update
end loop

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members