Computer Science Canada sprites help |
| Author: | metachief [ Mon Feb 04, 2008 4:59 pm ] |
| Post subject: | sprites help |
proc game Window.Hide (main_win) campaign_win := Window.Open ("position:centre,centre,graphics:850,610,title:CAMPAIGN") var left, right : boolean := false const grav := 1 const jump_s := 1.2 var run_s : real var x, y : real var vel_y : real var jump : boolean var key : array char of boolean run_s := 13 x := 400 y := 8 jump := false View.Set ("offscreenonly") loop Input.KeyDown (key) if key ('a') then loop right := false left := true Pic.Draw (pic1l, round (x - 70), round (y), picMerge) x := x - run_s delay (60) View.Update cls Pic.Draw (pic2l, round (x - 70), round (y), picMerge) x := x - run_s delay (60) View.Update cls Pic.Draw (pic3l, round (x - 70), round (y), picMerge) x := x - run_s delay (60) View.Update cls Pic.Draw (pic4l, round (x - 70), round (y), picMerge) x := x - run_s delay (60) View.Update cls Pic.Draw (pic5l, round (x - 70), round (y), picMerge) x := x - run_s delay (60) View.Update cls Pic.Draw (pic6l, round (x - 70), round (y), picMerge) x := x - run_s delay (60) View.Update cls Pic.Draw (pic7l, round (x - 70), round (y), picMerge) x := x - run_s delay (60) View.Update cls Pic.Draw (pic8l, round (x - 70), round (y), picMerge) x := x - run_s delay (60) View.Update cls Pic.Draw (pic9l, round (x - 70), round (y), picMerge) x := x - run_s delay (60) View.Update cls Pic.Draw (pic10l, round (x - 70), round (y), picMerge) x := x - run_s delay (60) View.Update cls exit end loop end if if key ('d') then loop left := false right := true Pic.Draw (pic1r, round (x), round (y), picMerge) x := x + run_s delay (60) View.Update cls Pic.Draw (pic2r, round (x), round (y), picMerge) x := x + run_s delay (60) View.Update cls Pic.Draw (pic3r, round (x), round (y), picMerge) x := x + run_s delay (60) View.Update cls Pic.Draw (pic4r, round (x), round (y), picMerge) x := x + run_s delay (60) View.Update cls Pic.Draw (pic5r, round (x), round (y), picMerge) x := x + run_s delay (60) View.Update cls Pic.Draw (pic6r, round (x), round (y), picMerge) x := x + run_s delay (60) View.Update cls Pic.Draw (pic7r, round (x), round (y), picMerge) x := x + run_s delay (60) View.Update cls Pic.Draw (pic8r, round (x), round (y), picMerge) x := x + run_s delay (60) View.Update cls Pic.Draw (pic9r, round (x), round (y), picMerge) x := x + run_s delay (60) View.Update cls Pic.Draw (pic10r, round (x), round (y), picMerge) x := x + run_s delay (60) View.Update cls exit end loop end if if key ('w') and jump = false then jump := true vel_y := jump_s Pic.Draw (pic11r, round (x), round (y), picMerge) View.Update cls end if if jump = true then if y < 200 then jump := false end if y := y + vel_y vel_y := vel_y - grav end if end loop Window.Close (campaign_win) Window.Show (main_win) Window.SetActive (main_win) end game |
|
| Author: | StealthArcher [ Mon Feb 04, 2008 5:17 pm ] |
| Post subject: | RE:sprites help |
What do you even want? And, USE CODE TAGS. |
|