----------------------------------- dying to live Mon Oct 25, 2004 7:38 am small car tips ----------------------------------- can anyone help me change my ball to a small car? heres is what i have so far....i just want to get the hang o fthis so i can make a game but everytime i make my car, i start with drawbox then when i run it the bottom left corner of the box stays were it is and the box just gets bigger with the input:( can anyone help :roll: var x,y : int x:=100 y:=100 var chars : array char of boolean loop Input.KeyDown (chars) if chars (KEY_UP_ARROW) then y:=y+5 end if if chars (KEY_RIGHT_ARROW) then x:=x+5 end if if chars (KEY_LEFT_ARROW) then x:=x-5 end if if chars (KEY_DOWN_ARROW) then y:=y-5 end if drawoval(x,y,4,4,red) delay(10) cls end loop ----------------------------------- josh Mon Oct 25, 2004 7:45 am ----------------------------------- what u need to do is draw the car at the begining of the program. Then u need to look up Pic.New and Pic.Draw in the turing help file :D ----------------------------------- dying to live Mon Oct 25, 2004 7:49 am ----------------------------------- im not sure i understand that but ok :lol: ----------------------------------- josh Mon Oct 25, 2004 8:29 am ----------------------------------- srry, basically what the Pic.New command does is it takes all the shapes that u have drawn in a specified area, or box defined in the Pic.New command, (see the syntax in the code below), that make up the car, e.g. a rectangle, wheels... and "takes a picture of them" and stores that picture in a variable. You can then change the x and y coordinates of jus that picture to move it instead of moving each shape individually. To display the picture that u took u use the Pic.Draw command. for ecample, this program draws a stickman and makes him bounce around the screen: setscreen ("graphics:640;480") %Declare Variables Here var stickman : int var x, y, col : int var dx,dy : int x := 0 y := 0 dx := 10 dy := 10 %draw the shapes that make up the stickman drawoval (100,175,20,20,7) drawline (100,155,100,50,7) drawline (100,130,50,175,7) drawline (100,130,150,175,7) drawline (100,50,50,5,7) drawline (100,50,150,5,7) Draw.Arc (100,165,5,5,180,360,7) Draw.FillOval(95,185,3,3,7) Draw.FillOval(105,185,3,3,7) %take the picture of the stickman stickman := Pic.New (0, 0, 200, 200) loop cls x += dx y += dy %draws the pic of the stickman Pic.Draw (stickman, x, y, picCopy) if x > maxx-200 then dx := -10 elsif x < 0 then dx := 10 end if if y > maxy - 200 then dy := -10 elsif y < 0 then dy := 10 end if delay (10) end loop so in your code, u would draw the individual shapes before the loop and take the pic after the shapes are drawn and before the loop u then replace the line where u draw the oval witht he Pic.Draw line ----------------------------------- dying to live Mon Oct 25, 2004 8:58 am ----------------------------------- haha thats awosme, but yeah i still cant quite figure out how to apply this to my program cuz im not sure i understand the elsif, and if commands yet, im new at this. but thanks. ----------------------------------- josh Mon Oct 25, 2004 9:01 am ----------------------------------- np, U can keep the if's and else ifs and just do like I said, and use the same x and y variables to move the picture u took ----------------------------------- dying to live Mon Oct 25, 2004 6:51 pm ----------------------------------- your explaining it god i just dont get it sorry ----------------------------------- Cervantes Mon Oct 25, 2004 6:59 pm ----------------------------------- if you are confused about the ifs and elsifs: if x > maxx - 200 then dx := -10 elsif x < 0 then dx := 10 end if if y > maxy - 200 then dy := -10 elsif y < 0 then dy := 10 end if is the same as if x > maxx - 200 then dx := -10 else if x < 0 then dx := 10 end if end if if y > maxy - 200 then dy := -10 else if y < 0 then dy := 10 end if end if ----------------------------------- josh Mon Oct 25, 2004 9:15 pm ----------------------------------- kk, that program is definantly good for a n00b though. I keep up the good work :D ----------------------------------- dying to live Thu Oct 28, 2004 9:39 am ----------------------------------- hah thanks man ive changes it a bit so now its a ufo not a car lol...heres what i got. var x,y : int x:=100 y:=100 var chars : array char of boolean var ufo :int %draws the ufo drawfillbox(15,15,50,20,red) drawfillbox(20,20,45,15,9) drawfillbox(20,20,45,25,8) drawline(15,5,23,15,7) drawline(23,15,43,15,7) drawline(43,15,50,5,7) drawline(50,5,15,5,7) drawfill(35,10,yellow,7) drawbox(15,15,50,20,7) drawbox(20,15,45,20,7) drawbox(20,20,45,25,7) %takes the picture of the ufo ufo := Pic.New (15,5,50,25) loop Input.KeyDown (chars) Pic.Draw (ufo, x, y, picCopy) if chars (KEY_UP_ARROW) then y:=y+5 end if if chars (KEY_RIGHT_ARROW) then x:=x+5 end if if chars (KEY_LEFT_ARROW) then x:=x-5 end if if chars (KEY_DOWN_ARROW) then y:=y-5 end if drawbox(x,y,x,y,red) delay(50) cls end loop ----------------------------------- rollerdude Thu Oct 28, 2004 5:52 pm ----------------------------------- in our class we have to do animation, my car kicks ass however the program is on th eschool computer so i'll give you my car program when i get to school tommorow the rollerdude ----------------------------------- dying to live Fri Oct 29, 2004 7:20 am ----------------------------------- if you can that would be awsome! just pm it to me. :D ----------------------------------- Flea Fri Oct 29, 2004 10:48 am ----------------------------------- you can stop that annoying blinking by using View.Update: setscreen("offscreenonly") loop View.Update Input.KeyDown (chars) Pic.Draw (ufo, x, y, picCopy) if chars (KEY_UP_ARROW) then y:=y+5 end if if chars (KEY_RIGHT_ARROW) then x:=x+5 end if if chars (KEY_LEFT_ARROW) then x:=x-5 end if if chars (KEY_DOWN_ARROW) then y:=y-5 end if drawbox(x,y,x,y,red) delay(50) cls end loop