-----------------------------------

Martin

Sun May 11, 2003 8:12 pm


Skyline

-----------------------------------

for decreasing i : maxy .. 0
    RGB.SetColour (1, 0, 0, i * (1 / maxy))
    Draw.Line (0, maxy - i, maxx, maxy - i, 1)
end for

for a : 1 .. 500
    var x := Rand.Int (0, maxx)
    var y := Rand.Int (150, maxy)
    var c := Rand.Int (16, 31)
    Draw.Dot (x, y, c)
end for


-----------------------------------

Catalyst

Sun May 11, 2003 8:47 pm



-----------------------------------

:D 
for decreasing i : maxy .. 0
    RGB.SetColour (1, 0, 0, i * (1 / maxy))
    Draw.Line (0, maxy - i, maxx, maxy - i, 1)
end for

for a : 1 .. 500
    var x := Rand.Int (0, maxx)
    var y := Rand.Int (150, maxy)
    var c := Rand.Int (16, 31)
    Draw.Dot (x, y, c)
end for

drawfillbox (0, 0, maxx, Rand.Int (25, 30), 7)
var hold : int
for i : 1 .. 200
    hold := Rand.Int (0, maxx)
    drawfillbox (hold, 0,hold+Rand.Int (10,20), Rand.Int (0, 100), 7)
end for


-----------------------------------

Catalyst

Sun May 11, 2003 9:12 pm



-----------------------------------

:D  :D 

for a : 1 .. 500
    var x := Rand.Int (0, maxx)
    var y := Rand.Int (150, maxy)
    var c := Rand.Int (16, 31)
    Draw.Dot (x, y, c)
end for

var hold, hold2 : int

drawfillbox (0, 0, maxx, Rand.Int (25, 30), 7) 

for i : 1 .. 200
    hold := Rand.Int (0, maxx)
    drawfillbox (hold, 0, hold + Rand.Int (10, 20), Rand.Int (0, 100), 7)
end for

for i : 1 .. 1000
    hold := Rand.Int (0, 100)
    hold2 := Rand.Int (0, maxx)
    if whatdotcolor (hold2, hold) = 7 then
        drawfillbox (hold2, hold,hold2+1,hold+1,Rand.Int (14, 30))
    end if
end for

var over : int := Pic.New (0, 0, maxx, maxy)

for decreasing i : maxy .. 0
    RGB.SetColour (1, 0, 0, i * (1 / maxy))
    Draw.Line (0, maxy - i, maxx, maxy - i, 1)
end for

Pic.Draw (over, 0, 0, picMerge)


-----------------------------------

Tony

Sun May 11, 2003 9:24 pm



-----------------------------------

Nice stuff guys  :D 

add this

Draw.FillOval(550,350,24,24,black)
Draw.Arc(550,350,25,25,250,110,yellow)
Draw.Arc(540,350,20,22,270,90,yellow)
Draw.Fill(570,350,yellow,yellow)


+7Bits to Catalyst, Darkness is a mod - Tony


-----------------------------------

octopi

Sun May 11, 2003 9:34 pm



-----------------------------------

Nice work
1 bit to tony, 9 to catalyst, and darkness

sorry for being so cheap....but unlike some people (tony) I am not made of millions of bits...

MOD Edit: The color blue is reserved for mod edits so they can be easily seen. -Asok


-----------------------------------

Homer_simpson

Sun May 11, 2003 9:49 pm



-----------------------------------

man it's been a long time since i've seen a sky full of stars... =(
*feeling very very low*  :cry:  :cry:  :cry:  :cry:


-----------------------------------

octopi

Sun May 11, 2003 9:50 pm



-----------------------------------

...Where do you live?, I can see them basically every night. (Unless its cloudy)


-----------------------------------

Catalyst

Sun May 11, 2003 10:06 pm



-----------------------------------

he probly lives in the city


-----------------------------------

Asok

Sun May 11, 2003 10:12 pm



-----------------------------------

I don't go outside so I don't really care ;)


-----------------------------------

Homer_simpson

Sun May 11, 2003 10:31 pm



-----------------------------------

from dawn to moonlight
var ii := 0
View.Set ("offscreenonly")
loop
    ii += 5
    for decreasing i : maxy .. 0
        RGB.SetColour (1, ii, 0, i * (1 / maxy))
        Draw.Line (0, maxy - i, maxx, maxy - i, 1)
    end for

    for a : 1 .. 500
        var x := Rand.Int (0, maxx)
        var y := Rand.Int (150, maxy)
        var c := Rand.Int (16, 31)
        Draw.Dot (x, y, c)
    end for

    drawfillbox (0, 0, maxx, Rand.Int (25, 30), 7)
    var hold : int
    for i : 1 .. 200
        hold := Rand.Int (0, maxx)
        drawfillbox (hold, 0, hold + Rand.Int (10, 20), Rand.Int (0, 100), 7)
    end for
    Draw.FillOval (550, 350, 24, 24, 15)
    Draw.Arc (550, 350, 25, 25, 250, 110, white)
    Draw.Arc (540, 350, 20, 22, 270, 90, white)
    Draw.Fill (570, 350, white, white)
    View.Update
    delay (100)
end loop
 
                             /      /
Ow hurts my eyes (-)(-)/


-----------------------------------

Homer_simpson

Sun May 11, 2003 10:32 pm



-----------------------------------

I live in toronto and i hate it... I HATE everything the people the city the places... EVERYTHING!!!!!!!!!!


-----------------------------------

Catalyst

Sun May 11, 2003 10:37 pm



-----------------------------------

so i ur world the stars and buildings move during the night??


-----------------------------------

Homer_simpson

Sun May 11, 2003 10:48 pm



-----------------------------------

no... think of it this way your in a car moving with the speed of light on a road around the earth.... bwahahaarrr...


-----------------------------------

naoki

Wed May 21, 2003 5:04 pm



-----------------------------------

nice

 :P


-----------------------------------

Krabjuice

Wed Feb 04, 2004 6:29 pm



-----------------------------------

   setscreen ("graphics:v256")
    setscreen ("graphics:640;480,nobuttonbar")
    
%declairations
var tim:string
var day:string
var ground:int
var ground1:int
var building:int
var moonphase:int
var moon:int
var light:int
var light1:int

%backdrop
for decreasing g : maxy .. 0
    RGB.SetColour (1, 0, 0, g * (1 / maxy))%color fade of backdrop
    Draw.Line (0, maxy - g, maxx, maxy - g, 1)%base of backdrop
end for

%stars
for a : 1 .. 750%number of stars
%declairation of star location/color
var ecks := Rand.Int (0, maxx)%x position, random (x, ecks... get it.. heh..eh?)
var wy := Rand.Int (150, maxy)%y position, random
var zee := Rand.Int (14, 31)%color
    Draw.Dot (ecks, wy, zee)%draws the star
end for

%buildings
for i : 1 .. 125%affects number of buildings
    ground:=Rand.Int (0, maxx)%beginning of buildings
    ground1:=ground+Rand.Int (10,25)%width of buildings
    building:=Rand.Int (0, 125)%height of buildings

    drawbox (ground -1, 0, ground1+1, building+1, Rand.Int (15,20)) %Outlines buildings
    drawfillbox (ground, 0,ground1, building, Rand.Int (15,29))%Draws the buildings
end for

%lights
for l:1..500

light:=Rand.Int (0,640)
light1:=Rand.Int (0,124)

if whatdotcolor (light,light1) = 15 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 16 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 17 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 18 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 19 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 20 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 21 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 22 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 23 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 24 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 25 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 26 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 27 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 28 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
elsif whatdotcolor (light,light1) = 29 then drawfillbox (light,light1,light+1,light1+1, Rand.Int(14,31))
end if
end for

%moon
   moon:=Rand.Int (25,575)%Generates random moon location
   moonphase:=Rand.Int (0,5)%Generates moon phase
%moonphases
if moonphase = 0
then 
elsif moonphase = 1
then drawfilloval (moon,445,14,16,yellow)
elsif moonphase = 2
then drawfilloval (moon,445,16,16,yellow)
elsif moonphase = 3
then drawfilloval (moon,445,16,16,yellow)
     drawfillbox  (moon - 16,429,moon,461,black)
elsif moonphase = 4
then drawfilloval (moon,445,16,16,yellow)
     drawfilloval (moon - 10,445,16,16,black)
elsif moonphase = 5
then drawfilloval (moon,445,16,16,yellow)
     drawfilloval (moon - 2,445,16,16,black)
end if

loop

%twinkle effect
var twn1:int:=Rand.Int (0,600)
var twn :int:=Rand.Int (126,400)

if whatdotcolor (twn1,twn) = 14 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 15 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 16 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 17 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 18 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 19 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 20 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 21 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 22 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 23 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 24 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 25 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 26 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 27 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 28 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 29 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 30 then drawdot (twn1,twn,Rand.Int (14,31))
elsif whatdotcolor (twn1,twn) = 31 then drawdot (twn1,twn,Rand.Int (14,31))
end if

%Clock
    date (day)%day of the year
    time (tim)%time of day
    colourback (black)%blends in the background
    color (white)%For visibility
    Text.LocateXY (5, 470)%Constatly places time over itself
put day, " " ,tim
    delay (5)
end loop       
 :color: Whoo!

Oh, and excuse me, I have not reached the experience level required to make all this less.. big.


-----------------------------------

shorthair

Wed Feb 04, 2004 7:01 pm



-----------------------------------

nice , very Funkadelic , Its well done , how long have you been programming , (this changes wheather im impressed or not )


-----------------------------------

Krabjuice

Wed Feb 04, 2004 7:15 pm



-----------------------------------

It would be my.. o.O second month of rather light programming.


-----------------------------------

AsianSensation

Wed Feb 04, 2004 11:26 pm



-----------------------------------

   for rep : 15 .. 29
        if whatdotcolor (light, light1) = rep then
            drawfillbox (light, light1, light + 1, light1 + 1, Rand.Int (14, 31))
        end if
    end for

and 

    for rep : 14 .. 31
        if whatdotcolor (twn1, twn) = rep then
            drawdot (twn1, twn, Rand.Int (14, 31))
        end if
    end for

to reduce all those lines.  8)