ufo help

[crash0414]

i need some help...my computer isnt working right and it wont let me run a program..i am making a ufo move but i cannot see if it will move cuz of my computer..can sum1 run it for me and tell me??thnx

code:

setscreen("graphics:maxx;maxy;xga") View.Set ("offscreenonly") colourback(7) %draws the ufo for x:1..450 drawfillbox(40+x,360,90+x,390,4) drawbox(40+x,360,90+x,390,17) drawfillbox(40+x,370,90+x,380,1) drawbox(40+x,370,90+x,380,17) drawfillbox(30+x,365,40+x,385,2) drawbox(30+x,365,40+x,385,17) drawfillbox(90+x,365,100+x,385,2) drawbox(90+x,365,100+x,385,17) drawfillbox(20+x,370,30+x,380,15) drawbox(20+x,370,30+x,380,17) drawfillbox(100+x,370,110+x,380,15) drawbox(100+x,370,110+x,380,17) drawline(65+x,400,40+x,390,17) drawline(65+x,400,90+x,390,17) drawfill(70,395,4,17) drawline(40+x,390,30+x,385,17) drawline(30+x,385,20+x,380,17) drawline(20+x,380,10+x,375,17) drawline(10+x,375,20+x,370,17) drawline(20+x,370,30+x,365,17) drawline(30+x,365,40+x,360,17) drawline(90+x,390,100+x,385,17) drawline(100+x,385,110+x,380,17) drawline(110+x,380,120+x,375,17) drawline(120+x+x,375,110+x,370,17) drawline(110,370,100+x,365,17) drawline(100+x,365,90+x,360,17) drawline(50+x,360,40+x,350,17) drawline(80+x,360,90+x,350,17) %Windows drawfilloval(65+x,395,5,5,14) drawfilloval(55+x,395,5,5,14) drawfilloval(75+x,395,5,5,14) drawfilloval(45+x,385,5,5,14) drawfilloval(55+x,385,5,5,14) drawfilloval(65+x,385,5,5,14) drawfilloval(75+x,385,5,5,14) drawfilloval(85+x,385,5,5,14) drawfilloval(15+x,375,5,5,14) drawfilloval(25+x,375,5,5,14) drawfilloval(35+x,375,5,5,14) drawfilloval(95+x,375,5,5,14) drawfilloval(105+x+x,375,5,5,14) drawfilloval(115,375,5,5,14) drawfilloval(45+x,365,5,5,14) drawfilloval(55+x,365,5,5,14) drawfilloval(65+x,365,5,5,14) drawfilloval(75+x,365,5,5,14) drawfilloval(85+x,365,5,5,14)

[Mr. Glib]

crashy,

why not get rid of the for loop and use Pic.New and Pic.Draw to animate your foo fighter? I had soaring across the screen with the following code that I found in the Turing help file! Go figure! Who knew that there were neat example in that mess of help stuff!

Give this a whirl:

code:

var picID : int picID := Pic.New (0, 340, 150, 399) var x1, y : int x1:=0 y:=340 for i : 1 .. 400     View.Update     Pic.Draw (picID, x1+i, y, picCopy) end for Pic.Free (picID)

[Delos]

Not bad Mr. Glib...but you're forgetting something...his computer "won't let [him] run the programme"

crash0414, try this...
Do you see line 2 of your code, the one that says "View.Set ("offscreenonly")?
Take it out.

offscreenonly requires that you use View.Update each time you need to refresh the screen, and judging from your code, that would not be something you'd want to do...unless you incorporate Mr. Glib's method...

[Mr. Glib]

Delos wrote:

Do you see line 2 of your code, the one that says "View.Set ("offscreenonly")?
Take it out.

:: Mr. Glib begins to suffer a seizure due to all that flickering ::

[crash0414]

i got my computer fixed and now it works...

code:

setscreen("graphics:v16") colourback(7) randomize var n,m,clr:int for i:1..200     randint(n,0,maxx)     randint(m,0,maxy)     randint(clr,1,maxcolour)     drawdot(n,m,clr) end for %draws the ufo for x:1..200 drawfillbox(40+x,360,90+x,390,4) drawbox(40+x,360,90+x,390,17) drawfillbox(40+x,370,90+x,380,1) drawbox(40+x,370,90+x,380,17) drawfillbox(30+x,365,40+x,385,2) drawbox(30+x,365,40+x,385,17) drawfillbox(90+x,365,100+x,385,2) drawbox(90+x,365,100+x,385,17) drawfillbox(20+x,370,30+x,380,15) drawbox(20+x,370,30+x,380,17) drawfillbox(100+x,370,110+x,380,15) drawbox(100+x,370,110+x,380,17) drawline(65+x,400,40+x,390,17) drawline(65+x,400,90+x,390,17) drawfill(70+x,395,4,7) drawline(40+x,390,30+x,385,17) drawline(30+x,385,20+x,380,17) drawline(20+x,380,10+x,375,17) drawline(10+x,375,20+x,370,17) drawline(20+x,370,30+x,365,17) drawline(30+x,365,40+x,360,17) drawline(90+x,390,100+x,385,17) drawline(100+x,385,110+x,380,17) drawline(110+x,380,120+x,375,17) drawline(120+x,375,110+x,370,17) drawline(110+x,370,100+x,365,17) drawline(100+x,365,90+x,360,17) drawline(50+x,360,40+x,350,17) drawline(80+x,360,90+x,350,17) %Windows drawfilloval(65+x,395,2,2,14) drawfilloval(55+x,395,2,2,14) drawfilloval(75+x,395,2,2,14) drawfilloval(45+x,385,2,2,14) drawfilloval(55+x,385,2,2,14) drawfilloval(65+x,385,2,2,14) drawfilloval(75+x,385,2,2,14) drawfilloval(85+x,385,2,2,14) drawfilloval(15+x,375,2,2,14) drawfilloval(25+x,375,2,2,14) drawfilloval(35+x,375,2,2,14) drawfilloval(95+x,375,2,2,14) drawfilloval(105+x,375,2,2,14) drawfilloval(115+x,375,2,2,14) drawfilloval(45+x,365,2,2,14) drawfilloval(55+x,365,2,2,14) drawfilloval(65+x,365,2,2,14) drawfilloval(75+x,365,2,2,14) drawfilloval(85+x,365,2,2,14) delay(12) %draws the ufo the 2 time drawfillbox(40+x,360,90+x,390,0) drawbox(40+x,360,90+x,390,0) drawfillbox(40+x,370,90+x,380,0) drawbox(40+x,370,90+x,380,0) drawfillbox(30+x,365,40+x,385,0) drawbox(30+x,365,40+x,385,0) drawfillbox(90+x,365,100+x,385,0) drawbox(90+x,365,100+x,385,0) drawfillbox(20+x,370,30+x,380,0) drawbox(20+x,370,30+x,380,0) drawfillbox(100+x,370,110+x,380,0) drawbox(100+x,370,110+x,380,0) drawline(65+x,400,40+x,390,0) drawline(65+x,400,90+x,390,0) drawfill(70+x,395,4,0) drawline(40+x,390,30+x,385,0) drawline(30+x,385,20+x,380,0) drawline(20+x,380,10+x,375,0) drawline(10+x,375,20+x,370,0) drawline(20+x,370,30+x,365,0) drawline(30+x,365,40+x,360,0) drawline(90+x,390,100+x,385,0) drawline(100+x,385,110+x,380,0) drawline(110+x,380,120+x,375,0) drawline(120+x,375,110+x,370,0) drawline(110+x,370,100+x,365,0) drawline(100+x,365,90+x,360,0) drawline(50+x,360,40+x,350,0) drawline(80+x,360,90+x,350,0) %Windows drawfilloval(65+x,395,5,5,0) drawfilloval(55+x,395,5,5,0) drawfilloval(75+x,395,5,5,0) drawfilloval(45+x,385,5,5,0) drawfilloval(55+x,385,5,5,0) drawfilloval(65+x,385,5,5,0) drawfilloval(75+x,385,5,5,0) drawfilloval(85+x,385,5,5,0) drawfilloval(15+x,375,5,5,0) drawfilloval(25+x,375,5,5,0) drawfilloval(35+x,375,5,5,0) drawfilloval(95+x,375,5,5,0) drawfilloval(105+x,375,5,5,0) drawfilloval(115+x,375,5,5,0) drawfilloval(45+x,365,5,5,0) drawfilloval(55+x,365,5,5,0) drawfilloval(65+x,365,5,5,0) drawfilloval(75+x,365,5,5,0) drawfilloval(85+x,365,5,5,0) end for %draws the ufo drawfillbox(240,360,290,390,4) drawbox    (240,360,290,390,17) drawfillbox(240,370,290,380,1) drawbox    (240,370,290,380,17) drawfillbox(230,365,240,385,2) drawbox    (230,365,240,385,17) drawfillbox(290,365,300,385,2) drawbox    (290,365,300,385,17) drawfillbox(220,370,230,380,15) drawbox    (220,370,230,380,17) drawfillbox(300,370,310,380,15) drawbox    (300,370,310,380,17) drawline   (265,400,240,390,17) drawline   (265,400,290,390,17) drawfill   (270,395,4,7) drawline(240,390,230,385,17) drawline(230,385,220,380,17) drawline(220,380,210,375,17) drawline(210,375,220,370,17) drawline(220,370,230,365,17) drawline(230,365,240,360,17) drawline(290,390,300,385,17) drawline(300,385,310,380,17) drawline(310,380,320,375,17) drawline(320,375,310,370,17) drawline(310,370,300,365,17) drawline(300,365,290,360,17) drawline(250,360,240,350,17) drawline(280,360,290,350,17) %Windows drawfilloval(265,395,2,2,14) drawfilloval(255,395,2,2,14) drawfilloval(275,395,2,2,14) drawfilloval(245,385,2,2,14) drawfilloval(255,385,2,2,14) drawfilloval(265,385,2,2,14) drawfilloval(275,385,2,2,14) drawfilloval(285,385,2,2,14) drawfilloval(215,375,2,2,14) drawfilloval(225,375,2,2,14) drawfilloval(235,375,2,2,14) drawfilloval(295,375,2,2,14) drawfilloval(305,375,2,2,14) drawfilloval(315,375,2,2,14) drawfilloval(245,365,2,2,14) drawfilloval(255,365,2,2,14) drawfilloval(265,365,2,2,14) drawfilloval(275,365,2,2,14) drawfilloval(285,365,2,2,14) %draws the stickman drawfilloval(500,50,5,5,red) drawfilloval(500,52,1,1,blue) drawline(497,48,500,48,blue) drawline(500,45,500,35,red) drawline(500,35,492,23,red) drawline(500,35,508,23,red) drawline(500,40,490,45,red) drawline(500,39,490,44,red) for c:1..300 drawline(490-c,45+c,480-c,54+c,red) delay(12) drawline(490-c,45+c,480-c,54+c,0) end for