ufo help

crash0414 · **Posted:** Tue Nov 16, 2004 8:23 pm

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 · **Posted:** Tue Nov 16, 2004 9:17 pm

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! Wink

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 · **Posted:** Tue Nov 16, 2004 9:26 pm

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... Laughing

Mr. Glib · **Posted:** Tue Nov 16, 2004 9:32 pm

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 · **Posted:** Tue Nov 16, 2004 10:14 pm

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

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members