Help With This Game Please !!!

[Sam]

so i am creating a game for my school . so this is my game basically whats point of the game is the pacman eating the red circles and everytime he eats one he get 1 point but now i need to figure out a way to put a Black Circle which if the pacman eats the game will be over .. pleaseee help me guyss

Here is my Code

Turing:

var pausekey : char locate (1, 30) put " Controls: Arrows Keys To Move " put "  Blue= +1 , Brightred= Game Over " put " Press Any key to Continue" View.Set ("graphics") pausekey := getchar cls var x, y : int := 200 var input : string (1) var dir : string := "right" var timer : int := 0 var x_o, y_o : int := 0 var eaten : boolean := false var score : int := 0 var speed : int := 500 loop     locate (1, 35)     put "Score: ", score     drawfillarc (x, y, 30, 30, 0, 340, blue)     drawfilloval (x + 10, y + 15, 5, 5, white)     delay (5)     drawfillarc (x, y, 30, 30, 0, 340, white)     drawfilloval (x + 10, y + 15, 5, 5, white)     if timer mod speed = 0 then         eaten := false         drawfilloval (x_o, y_o, 20, 20, white)         x_o := Rand.Int (20, maxx - 20)         y_o := Rand.Int (20, maxy - 20)     end if     if not eaten then         drawfilloval (x_o, y_o, 20, 20, brightred)     end if     if hasch () then         getch (input)         if input = KEY_RIGHT_ARROW then             dir := "right"         elsif input = KEY_LEFT_ARROW then             dir := "left"         elsif input = KEY_UP_ARROW then             dir := "up"         elsif input = KEY_DOWN_ARROW then             dir := "down"         end if     end if     case dir of         label "left" :             x := x - 1         label "right" :             x := x + 1         label "up" :             y := y + 1         label "down" :             y := y - 1     end case     if x = maxx then         x := 0     elsif x = 0 then         x := maxx     elsif y = 0 then         y := maxy     elsif y = maxy then         y := 0     end if     if x = 0 then         dir := "right"     elsif x = maxx then         dir := "left"     end if     if abs (x - x_o) < 20 and abs (y - y_o) < 20 and eaten = false then         eaten := true         score := score + 1         drawfilloval (x_o, y_o, 20, 20, white)         speed := speed - 50     end if     timer := timer + 1 end loop

[StealthArcher]

Turing:

var pausekey : char locate (1, 30) put " Controls: Arrows Keys To Move " put " Blue= +1 , Brightred= Game Over " put " Press Any key to Continue" View.Set ("graphics") pausekey := getchar cls var x, y : int := 200 var input : string (1) var dir : string := "right" var timer : int := 0 var x_o, y_o : int := 0 var eaten : boolean := false var score : int := 0 var speed : int := 500 loop locate (1, 35) put "Score: ", score drawfillarc (x, y, 30, 30, 0, 340, blue) drawfilloval (x + 10, y + 15, 5, 5, white) delay (5) drawfillarc (x, y, 30, 30, 0, 340, white) drawfilloval (x + 10, y + 15, 5, 5, white) if timer mod speed = 0 then eaten := false drawfilloval (x_o, y_o, 20, 20, white) x_o := Rand.Int (20, maxx - 20) y_o := Rand.Int (20, maxy - 20) end if if not eaten then drawfilloval (x_o, y_o, 20, 20, brightred) end if if hasch () then getch (input) if input = KEY_RIGHT_ARROW then dir := "right" elsif input = KEY_LEFT_ARROW then dir := "left" elsif input = KEY_UP_ARROW then dir := "up" elsif input = KEY_DOWN_ARROW then dir := "down" end if end if case dir of label "left" : x := x - 1 label "right" : x := x + 1 label "up" : y := y + 1 label "down" : y := y - 1 end case if x = maxx then x := 0 elsif x = 0 then x := maxx elsif y = 0 then y := maxy elsif y = maxy then y := 0 end if if x = 0 then dir := "right" elsif x = maxx then dir := "left" end if if abs (x - x_o) < 20 and abs (y - y_o) < 20 and eaten = false then eaten := true score := score + 1 drawfilloval (x_o, y_o, 20, 20, white) speed := speed - 50 end if timer := timer + 1 end loop

Doing that makes it much nicer to look at, and would've kept your indentation, press more tags when posting, select syntax, then type turing in the quotes in the tag.

[Sam]

ok thanks for the advice but can u please help me with the game ..

[HeavenAgain]

just like how you did with red, nice game btw
but instead of score add 1, you exit the loop and say game over? so bascailly just add another drawoval method and draw it blue, and check collsion for that blue one

btw adding View.Set("offscreen") at the top of your code
and View.Update after whenever you have cls, will make the game look nicer
good luck

[Sam]

Thank you this is my first time doing something like this btw i dont get it where do i put the code little help please i would apriciate it if you tell me where to put that in the code or do it for me thank you

[Nick]

heres an example of exiting the program

code:

if condition met then exit %or if in a procedure to quit then... return %not both are nescasary

also the View.Update should be at the bottom of drawing everything where the cls (preffabarly to me at the top ) for most people go directly after View.Update

as for the View.Set("offscreenonly") it is in the program once and can be written anywhere before the program has outputted anything to the run window (so before a circle is drawn or text has been written for example) however most people (including me) place it at the very top