Computer Science Canada

Updated Grass with house!

Author:  Triple Five [ Mon Jan 19, 2004 6:13 pm ]
Post subject:  Updated Grass with house!

code:
View.Set("graphics:650;500")
%background
drawfillbox(0,0,650,500,56)
%Grass
var x,y,half:int
process grass(minx,maxx,miny,maxy:int)
    for i:0..20000000
        randint(x,minx,maxx)
        randint(y,miny,maxy)
        half:=maxy-miny
        if y<miny+(half div 3) then
        drawline(x,y,x+1,y+5,119)
        drawline(x,y,x+2,y+5,215)
    end if        if y<miny+(half div 3*2+5) and y>miny+(half div 3-5) then
        drawline(x,y,x+1,y+4,120)
        drawline(x,y,x+2,y+4,215)
    end if
    end for
end grass
fork grass(-2,maxx,0,115)

%House
var pic : int
drawfillbox (24, 247, 273, 84, 114)
drawbox (24, 247, 273, 84, 114)
drawfillbox (278, 80, 608, 389, 114)
drawbox (278, 80, 608, 389, 114)
drawline (273, 84, 279, 81, 7)
drawfillbox (277, 82, 270, 389, 7)
drawbox (277, 82, 270, 389, 7)
pic := Pic.New (26,325,274,244)
drawline (25, 247, 13, 247, 7)
drawline (13, 247, 71, 364, 7)
drawline (71, 364, 270, 364, 7)
drawline (270, 364, 270, 247, 7)
drawline (270, 247, 14, 247, 7)
drawline (609, 389, 618, 389, 7)
drawline (618, 389, 584, 458, 7)
drawline (584, 458, 281, 458, 7)
drawline (270, 389, 258, 389, 7)
drawline (258, 389, 292, 458, 7)
drawline (281, 458, 291, 458, 56)
drawline (258, 389, 616, 389, 7)
drawfillbox (291, 372, 362, 281, 7)
drawbox (291, 372, 362, 281, 7)
drawfillbox (499, 372, 570, 278, 7)
drawbox (499, 372, 570, 278, 7)
drawfillbox (303, 187, 346, 91, 7)
drawbox (303, 187, 346, 91, 7)
drawfillbox (522, 188, 565, 89, 7)
drawbox (522, 188, 565, 89, 7)
drawfillbox (299, 365, 354, 290, 77)
drawbox (299, 365, 354, 290, 77)
drawfillbox (508, 367, 562, 285, 77)
drawbox (508, 367, 562, 285, 77)
drawfillbox (307, 182, 342, 96, 77)
drawbox (307, 182, 342, 96, 77)
drawfillbox (527, 184, 559, 95, 77)
drawbox (527, 184, 559, 95, 77)
drawfillbox (202, 233, 261, 90, 7)
drawbox (202, 233, 261, 90, 7)
drawfillbox (208, 226, 254, 96, 34)
drawbox (208, 226, 254, 96, 34)
drawfillbox (215, 228, 216, 96, 7)
drawbox (215, 228, 216, 96, 7)
drawfillbox (228, 228, 229, 96, 7)
drawbox (228, 228, 229, 96, 7)
drawfillbox (240, 229, 241, 95, 7)
drawbox (240, 229, 241, 95, 7)
drawfillbox (206, 204, 258, 201, 7)
drawbox (206, 204, 258, 201, 7)
drawfillbox (204, 179, 258, 176, 7)
drawbox (204, 179, 258, 176, 7)
drawfillbox (204, 153, 257, 149, 7)
drawbox (204, 153, 257, 149, 7)
drawfillbox (204, 130, 256, 125, 7)
drawbox (204, 130, 256, 125, 7)
drawfillbox (206, 110, 258, 107, 7)
drawbox (206, 110, 258, 107, 7)
drawfillbox (33, 84, 196, 184, 26)
drawbox (33, 84, 196, 184, 26)
drawfillbox (404, 81, 463, 188, 7)
drawbox (404, 81, 463, 188, 7)
drawfillbox (409, 184, 415, 84, 14)
drawbox (409, 184, 415, 84, 14)
drawfillbox (420, 181, 429, 176, 14)
drawbox (420, 181, 429, 176, 14)
drawfillbox (436, 184, 441, 85, 14)
drawbox (436, 184, 441, 85, 14)
drawfillbox (447, 182, 456, 177, 14)
drawbox (447, 182, 456, 177, 14)
drawfillbox (419, 164, 460, 160, 14)
drawbox (419, 164, 460, 160, 14)
drawfillbox (422, 153, 428, 129, 14)
drawbox (422, 153, 428, 129, 14)
drawfillbox (449, 154, 456, 129, 14)
drawbox (449, 154, 456, 129, 14)
drawfillbox (421, 122, 461, 119, 14)
drawbox (421, 122, 461, 119, 14)
drawfillbox (421, 112, 428, 95, 14)
drawbox (421, 112, 428, 95, 14)
drawfillbox (446, 113, 454, 94, 14)
drawbox (446, 113, 454, 94, 14)
drawfillbox (419, 90, 459, 84, 14)
drawbox (419, 90, 459, 84, 14)
drawfilloval (411, 141, -5, 5, 7)
drawoval (411, 141, -5, 5, 7)
drawline (410, 140, 413, 140, 8)
drawline (411, 142, 412, 138, 8)
drawfillbox (380, 80, 384, 212, 92)
drawbox (380, 80, 384, 212, 92)
drawfillbox (364, 223, 499, 211, 92)
drawbox (364, 223, 499, 211, 92)
drawfillbox (485, 211, 492, 80, 92)
drawbox (485, 211, 492, 80, 92)
drawfillbox (380, 210, 376, 80, 92)
drawbox (380, 210, 376, 80, 92)
drawline (364, 224, 416, 250, 7)
drawline (416, 250, 449, 250, 7)
drawline (449, 250, 499, 224, 7)
drawline (365, 226, 498, 226, 7)
drawfill(260,250,grey,black)
drawline (609, 389, 618, 389, 7)
drawline (618, 389, 584, 458, 7)
drawline (584, 458, 281, 458, 7)
drawline (270, 389, 258, 389, 7)
drawline (258, 389, 292, 458, 7)
drawline (281, 458, 291, 458, 56)
drawline (258, 389, 616, 389, 7)
drawfill(265,392,grey,black)
drawline (364, 224, 416, 250, 7)
drawline (416, 250, 449, 250, 7)
drawline (449, 250, 499, 224, 7)
drawline (365, 226, 498, 226, 7)
drawfill(380,230,black,black)


The house was done using a program called pic 2 code!

i wonder if delta made a newer version! Thinking

Author:  shorthair [ Mon Jan 19, 2004 6:25 pm ]
Post subject: 

Thats awsome , you rock my world , its a big improvement Claping

Author:  sport [ Mon Jan 19, 2004 7:08 pm ]
Post subject: 

It's huge improvement. But you should start the part of the screen that is being colored by being green and not blue that it look nicer.

Author:  MyPistolsIn3D [ Thu Apr 29, 2004 1:15 pm ]
Post subject:  cool

Cool stuff man.
Quote:
The house was done using a program called pic 2 code!
what does that mean though? You can convert pics to code?

Author:  Paul [ Thu Apr 29, 2004 2:04 pm ]
Post subject: 

yea man, theres always delta's pic~2~code lol.

Author:  MyPistolsIn3D [ Thu Apr 29, 2004 2:49 pm ]
Post subject: 

huh?

Author:  Paul [ Thu Apr 29, 2004 3:51 pm ]
Post subject: 

Oy....
Delta = a user (the flash mod)
pic~2~code = a program
http://www.compsci.ca/v2/viewtopic.php?t=3009

Author:  recneps [ Thu Apr 29, 2004 6:02 pm ]
Post subject: 

pic 2 code reads the colours and positions in a pic and makes code out of it for you.
Its designed for convenience.


: