Now we are making objects (i.e. clouds etc) and moving them
i dont know what the problem with my program is... i m trying to move my clouds but i cant even see them....heres my code
Turing: | var x1, y1: int := 0
View.Set ("graphics;offscreenonly")
drawfillbox (0, 150, maxx, maxy, 100)
drawfillarc (330, 100, 350, 150, 0, 180, green)
drawfillbox (0, 40, 12, 50, white)
drawfillbox (0, 0, maxx, 100, grey)
drawfillbox (74, 40, 170, 50, white)
drawfillbox (250, 40, 346, 50, white)
drawfillbox (430, 40, 526, 50, white)
drawfillbox (610, 40, 706, 50, white)
var background : int := Pic.New (0, 0, maxx, maxy)
drawfilloval (100, 300, 200, 5, white)
drawfilloval (110, 306, 100, 2, white)
drawfilloval (120, 290, 100, 3, white)
drawfilloval (200, 350, 100, 5, white)
var clouds : int := Pic.New (0, 280, 306, 363)
var xpos1 : int := 1
for count : 1 .. maxx
cls
if xpos1 > maxx then
xpos1 := 1
end if
Pic.Draw (background, 0, 0, picCopy)
Pic.Draw (clouds, xpos1, 306, picMerge)
delay (200)
drawbox (xpos1, 280, 306, 363, 100)
xpos1 := xpos1 + 2
View.Update
end for
Pic.Free (clouds ) |
Can someone plz help me
Mod Edit: Remember to use syntax tags! Thanks code: | [syntax="turing"]Code Here[/syntax] |
|