I don't know what is wrong with my program can somebody plz help me

[blizzard4800]

I don't know what is wrong with my program can somebody plz help me

This is my program


const MARGIN : int := 20

var christmas_place, black_dodge_caravan : int

var christmas_placeWidth, christmas_placeHeight : int

var black_dodge_caravanWidth, black_dodge_caravanHeight : int

var christmas_placeX, christmas_placeY : int

var black_dodge_caravanX, black_dodge_caravanY : int

var keys : array char of boolean

christmas_place := Pic.FileNew ("christmas place.bmp")

black_dodge_caravan := Pic.FileNew ("doge caravan.bmp")

setscreen ("graphics:maxx;maxy,position:middle;centre,nobuttonbar,title:test___thing_1")

locatexy (maxx,maxy)

put " Use the arrow keys to move the background."

delay (2000)

christmas_placeWidth := Pic.Width (christmas_place)

christmas_placeHeight := Pic.Height (christmas_place)

black_dodge_caravanWidth := Pic.Width (black_dodge_caravan)

black_dodge_caravanHeight := Pic.Height (black_dodge_caravan)

christmas_placeX := (christmas_placeWidth - maxx)

christmas_placeY := (christmas_placeHeight - maxy)

black_dodge_caravanX := (christmas_placeWidth - black_dodge_caravanWidth)

black_dodge_caravanY := (christmas_placeHeight - black_dodge_caravanHeight)

setscreen ("offscreenonly")

loop

Input.KeyDown (keys)

if keys (KEY_LEFT_ARROW) then
black_dodge_caravanX -= 1
elsif keys (KEY_RIGHT_ARROW) then
black_dodge_caravanX += 1
end if
if keys (KEY_UP_ARROW) then
black_dodge_caravanY += 1
elsif keys (KEY_DOWN_ARROW) then
black_dodge_caravanY -= 1
end if

if black_dodge_caravanX - MARGIN < 0 then
black_dodge_caravanX := MARGIN
elsif black_dodge_caravanX + black_dodge_caravanWidth > christmas_placeWidth - MARGIN then
black_dodge_caravanX := christmas_placeWidth - MARGIN - black_dodge_caravanWidth
end if

if black_dodge_caravanX - christmas_placeX < MARGIN then
christmas_placeX := black_dodge_caravanX - MARGIN
elsif (black_dodge_caravanX + black_dodge_caravanWidth) - christmas_placeX > maxx - MARGIN then
christmas_placeX := black_dodge_caravanX + black_dodge_caravanWidth - maxx + MARGIN
end if

if black_dodge_caravanY - christmas_placeY < MARGIN then
christmas_placeY := black_dodge_caravanY - MARGIN
elsif (black_dodge_caravanY + black_dodge_caravanHeight) - christmas_placeY > maxy - MARGIN then
christmas_placeY := black_dodge_caravanY + black_dodge_caravanHeight - maxy + MARGIN
end if

cls

Pic.Draw (christmas_place, -christmas_placeX, -christmas_placeY, picCopy)

Pic.Draw (black_dodge_caravan, black_dodge_caravanX - christmas_placeX, black_dodge_caravanY - christmas_placeY, picMerge)
View.Update
end loop

[DemonWasp]

That's a very vague problem statement. What is your program supposed to do that it isn't, or else what is it doing that it isn't supposed to do?

If you want us to be able to run your code, you have to include your pictures as attachments, otherwise we can't run it.

Use the provided template when submitting questions about Turing to get better answers - put your code where it says "code goes here" and actually fill out the questionnaire. This will take you 5 minutes up-front, but save you hours in getting your response later.

[blizzard4800]

ok
i did put the picture's in the same folder but it say's iligeal pic id

[blizzard4800]

my program is sopposed to have a black doge caravan go to different places on the background

[blizzard4800]

thank you for replying to my program

[InFamous]

I think thats blizzard4800 is soooo fat

[blizzard4800]

You have a big Fourhead InFoumaous/Ahmed Hashi

[Ktomislav]

Upload your images so we could use it..
And use edit.. Upper right corner of your post.

[blizzard4800]

ok i will

[blizzard4800]

thank you

[blizzard4800]

This is the entire fille

[Ktomislav]

blizzard4800 @ 14.1.2010, 16:28 wrote:

ok i will

So why didn't you?

[qmanjr5]

roflmfao

[Turing_Gamer]

Anyone heard of edit???

[blizzard4800]

no