doing house project need help asap
Author |
Message |
alvini
|
Posted: Wed Dec 14, 2005 7:51 pm Post subject: Re: need help for a project asap!! |
|
|
alvini wrote: hey guys i just need how to make smoke and make the stars . |
|
|
|
|
|
Sponsor Sponsor
|
|
|
Albrecd
|
Posted: Thu Dec 15, 2005 2:50 pm Post subject: (No subject) |
|
|
In order to make the smoke, you need 2 pictures of it, like Geminias said. You need to have two pictures of the smoke, different pictures but similar, for example:
_***_ __ *****
***** __ _***_
_***_ __ *****
***** __ _***_
_***_ __ *****
***** __ _***_
_***_ __ *****
***** __ _***_
(preferrably these pictures would not be made from text)
When these pictures are interchanged, it should look like the puffs of smoke are rising.
In order to do this:
code: |
var counter := 1
Pic1 := Pic.FileNew ("filename.bmp")
Pic2 := Pic.FileNew ("filename2.bmp")
loop
counter := (counter + 1) mod 2
if counter = 1 then
Pic.Draw (Pic1, x, y, picMerge)
else
Pic.Draw (Pic2, x, y, picMerge)
end if
end loop
|
|
|
|
|
|
|
Cervantes
|
Posted: Thu Dec 15, 2005 5:21 pm Post subject: Re: need help for a project asap!! |
|
|
alvini wrote: alvini wrote: hey guys i just need how to make smoke and make the stars .
dani190 wrote: help plz
alvini wrote: can anybody help me how to make smoke.
plz
dani190 wrote: help?
Kids, relax. There's no need to bump your thread after waiting such short times. It only pisses people off.
You two probably go to the same school. Why are you both asking the same questions to us, when you should first be asking each other?
Lastly, you've got to put some effort into it yourself. You can't just say, "please help me" and expect us to do it for you, for four reasons. First, that's extremely rude. Second, we have no obligation to help; we do this voluntarily. Third, that's cheating. Fourth, and most important, you don't learn from it. |
|
|
|
|
|
dani190
|
Posted: Thu Dec 15, 2005 7:13 pm Post subject: (No subject) |
|
|
well im just saying something her also you have no clue how much we have done,we have the whole project almost done we r just asking for help with 2 things, also yes we do go to the same school but that doesnt mean we live together and know when 1 of us is guna post that so you cant expect that |
|
|
|
|
|
dani190
|
Posted: Thu Dec 15, 2005 7:14 pm Post subject: (No subject) |
|
|
from last post ALSO
we have asked each other but if we give each other code then we get a 0 so i guess u see why we arent doing that |
|
|
|
|
|
codemage
|
Posted: Fri Dec 16, 2005 10:50 am Post subject: (No subject) |
|
|
If we give you code, then your assignment is logically worth zero as well, by the same ethical standard.
You've had all sorts of suggestions on how to solve your problem. No self-respecting person here is going to write the code for you.
Try something - and someone will show you where your errors are if your solution doesn't work. |
|
|
|
|
|
dani190
|
Posted: Fri Dec 16, 2005 2:34 pm Post subject: (No subject) |
|
|
i am not freaken asking for you to write the code gosh
im asking for help WITH it |
|
|
|
|
|
Albrecd
|
Posted: Fri Dec 16, 2005 4:08 pm Post subject: (No subject) |
|
|
But if you don't post any code, then It's more like you helping us do your code. (And sence you don't know how [no offence intended, but if you did you probably wouldn't be asking for help] you wouldn't really be helping us) |
|
|
|
|
|
Sponsor Sponsor
|
|
|
dani190
|
Posted: Sat Dec 17, 2005 7:21 pm Post subject: (No subject) |
|
|
code: |
setscreen ("graphics:max,max,offscreenonly")
colorback (blue)
cls
var v : int
var u : int
var c : int
var count : int
var g : int
var k : int
var countx, county : int
var a, b : int
var x2, y2 : int
var x, y : int
a := 420
b := 50
c := blue
countx := 10
county := 7
x := 1300
y := 600
var h : array 1 .. 4 of int := init (150, 400, 270, 20) %Roof
var d : array 1 .. 4 of int := init (250, 250, 400, 20) %Roof
loop
g := 1300
k := 400
Draw.FillBox (150, 50, 400, 250, brightred) %house box
Draw.FillBox (401, 50, 620, 160, brightgreen) %Garage
Draw.FillBox (420, 50, 601, 140, brightblue) %Garage Door
Draw.FillBox (350, 140, 300, 170, grey) %house window Right side
Draw.FillBox (200, 140, 250, 170, grey) %house window Left side
Draw.FillBox (1800, 1, 1, 50, green) %Grass in front
Draw.FillBox (250, 110, 200, 50, grey) %Door
drawfillbox (205, 250, 250, 400, red) %Chiminy
Draw.FillBox (a, b, 601, 50, black) %Garage part2
Draw.FillPolygon (h, d, 3, green) %Roof of house
a := a
b := b + 5
exit when b > 130
View.Update
delay (150)
cls
colorback (c)
drawfilloval (g, k, 20, 20, yellow)
end loop
loop
Draw.FillBox (150, 50, 400, 250, brightred) %house box
Draw.FillBox (401, 50, 620, 160, brightgreen) %Garage
Draw.FillBox (420, 50, 601, 140, brightblue) %Garage Door
Draw.FillBox (350, 140, 300, 170, grey) %house window Right side
Draw.FillBox (200, 140, 250, 170, grey) %house window Left side
Draw.FillBox (1800, 1, 1, 50, green) %Grass in front
Draw.FillBox (250, 110, 200, 50, grey) %Door
drawfillbox (205, 250, 250, 400, red) %Chiminy
Draw.FillBox (a, b, 601, 50, black) %Garage part2
Draw.FillPolygon (h, d, 3, green) %Roof of house
View.Update
delay (50) %Controls how fast the sun moves!
colorback (c)
cls
drawfilloval (x, y, 20, 20, yellow)
exit when x = 0
x := x - countx
y := y - county
if y > 500 then
county := 0
if x < 300 then
county := +10
end if
end if
end loop
x := 2
y := 300
countx := 10
county := 7
loop
View.Set ("offscreenonly")
Draw.FillBox (150, 50, 400, 250, brightred) %house box
Draw.FillBox (401, 50, 620, 160, brightgreen) %Garage
Draw.FillBox (420, 50, 601, 140, brightblue) %Garage Door
Draw.FillBox (350, 140, 300, 170, grey) %house window Right side
Draw.FillBox (200, 140, 250, 170, grey) %house window Left side
Draw.FillBox (1800, 1, 1, 50, green) %Grass in front
Draw.FillBox (250, 110, 200, 50, grey) %Door
drawfillbox (205, 250, 250, 400, red) %Chiminy
Draw.FillBox (a, b, 601, 50, black) %Garage part2
Draw.FillPolygon (h, d, 3, green) %Roof of house
a := a
b := b - c
c := 0
if b = 100 then
c := 0
end if
View.Update
delay (50) %Controls how fast the moon moves!
colorback (black)
cls
drawfilloval (x, y, 20, 20, white)
exit when x > 1500
x := x + countx
y := y + county
if y > 500 then
county := 0
if x > 750 then
county := -7
end if
end if
end loop
|
hey guys, i need the garage to close again,
and smoke to come out of the chiminy |
|
|
|
|
|
pavol
|
Posted: Sat Dec 17, 2005 7:47 pm Post subject: (No subject) |
|
|
well, how did you open the garage door? use the same technique to close it. slowly draw a blue box and increase its size. also, a tip: use for loops, makes moving objects easier |
|
|
|
|
|
dani190
|
Posted: Sat Dec 17, 2005 8:31 pm Post subject: (No subject) |
|
|
thanks so much garage works now, but i still need the smoke, anybody know how to? |
|
|
|
|
|
pavol
|
Posted: Sat Dec 17, 2005 8:50 pm Post subject: (No subject) |
|
|
draw a picture of the smoke like others were suggesting and then use the same technique you've been using so far to move the moon and sun to move the smoke up. |
|
|
|
|
|
dani190
|
Posted: Sat Dec 17, 2005 10:50 pm Post subject: (No subject) |
|
|
ok does anybody think they could help me some more wit this smoke, maybe provide some coding cause i cant get it to work |
|
|
|
|
|
pavol
|
Posted: Sun Dec 18, 2005 12:37 pm Post subject: (No subject) |
|
|
post what you've got so far |
|
|
|
|
|
dani190
|
Posted: Sun Dec 18, 2005 2:18 pm Post subject: (No subject) |
|
|
code: |
setscreen ("graphics:max,max,offscreenonly")
colorback (blue)
cls
var c : int
var y1 : int
var x1 : int
var countx, county : int
var row : int
var column : int
var a, b : int
var x2, y2 : int
var x, y : int
a := 420
b := 50
c := blue
countx := 10
county := 7
x := 1300
y := 600
x1 := 1300
y1 := 400
var h : array 1 .. 4 of int := init (150, 400, 270, 20) %Roof
var d : array 1 .. 4 of int := init (250, 250, 400, 20) %Roof
loop
Draw.FillBox (150, 50, 400, 250, brightred) %house box
Draw.FillBox (401, 50, 620, 160, brightgreen) %Garage
Draw.FillBox (420, 50, 601, 140, brightblue) %Garage Door
Draw.FillBox (350, 140, 300, 170, grey) %house window Right side
Draw.FillBox (200, 140, 250, 170, grey) %house window Left side
Draw.FillBox (1800, 1, 1, 50, green) %Grass in front
Draw.FillBox (250, 110, 200, 50, grey) %Door
drawfillbox (205, 250, 250, 400, red) %Chiminy
Draw.FillBox (a, b, 601, 50, black) %Garage part2
Draw.FillPolygon (h, d, 3, green) %Roof of house
a := a
b := b + 5
exit when b > 130
View.Update
delay (150)
cls
colorback (c)
drawfilloval (x1, y1, 20, 20, yellow)
end loop
loop
Draw.FillBox (150, 50, 400, 250, brightred) %house box
Draw.FillBox (401, 50, 620, 160, brightgreen) %Garage
Draw.FillBox (420, 50, 601, 140, brightblue) %Garage Door
Draw.FillBox (350, 140, 300, 170, grey) %house window Right side
Draw.FillBox (200, 140, 250, 170, grey) %house window Left side
Draw.FillBox (1800, 1, 1, 50, green) %Grass in front
Draw.FillBox (250, 110, 200, 50, grey) %Door
drawfillbox (205, 250, 250, 400, red) %Chiminy
Draw.FillBox (a, b, 601, 50, black) %Garage part2
Draw.FillPolygon (h, d, 3, green) %Roof of house
View.Update
delay (50) %Controls how fast the sun moves!
colorback (c)
cls
drawfilloval (x, y, 20, 20, yellow)
exit when x = 0
x := x - countx
y := y - county
if y > 500 then
county := 0
if x < 300 then
county := +10
a := a
b := b - 8
exit when b > 130
end if
end if
end loop
x := 2
y := 300
countx := 10
county := 7
loop
View.Set ("graphics:max,max,offscreenonly")
Draw.FillBox (150, 50, 400, 250, brightred) %house box
Draw.FillBox (401, 50, 620, 160, brightgreen) %Garage
Draw.FillBox (420, 50, 601, 140, brightblue) %Garage Door
Draw.FillBox (350, 140, 300, 170, grey) %house window Right side
Draw.FillBox (200, 140, 250, 170, grey) %house window Left side
Draw.FillBox (1800, 1, 1, 50, green) %Grass in front
Draw.FillBox (250, 110, 200, 50, grey) %Door
drawfillbox (205, 250, 250, 400, red) %Chiminy
Draw.FillBox (a, b, 601, 50, black) %Garage part2
Draw.FillPolygon (h, d, 3, green) %Roof of house
a := a
b := b - c
c := 0
if b = 100 then
c := 0
end if
View.Update
delay (50) %Controls how fast the moon moves!
colorback (black)
cls
drawfilloval (x, y, 20, 20, white)
exit when x > 1500
x := x + countx
y := y + county
if y > 500 then
county := 0
if x > 750 then
county := -7
end if
end if
delay (100)
randint (row, 1, 20)
randint (column, 1, 80)
locate (row, column)
color (white)
put "*"
end loop
|
ok so thats what i have so far and i want the smoke to show up during the night time, also i cant really get my stars to work, i dont want 1 star to show up i want like tuns at a time and they just go away and eventually come back (blinking stars)
Thanks |
|
|
|
|
|
|
|