Computer Science Canada

Need help with whatdotcolor in my game
Author:  windowsall [ Mon May 09, 2005 10:32 am ]
Post subject:  Need help with whatdotcolor in my game
Hello ive been working on my game code named ROG its actually a pretty cool game but there have been problems with it as when i use whatdotcolor i can not move my character heres the code
its to much to upload and will put it on my server when i get back from school

code:
import "Bsprite.tu"
setscreen ("graphics:640;480,nobuttonbar,position:center;center")
setscreen ("offscreenonly")
colorback (black)
color (yellow)
cls
locate (10, 10)
put " Loading . . ."
View.Update
var map : array 1 .. 2 of int
map (1) := Pic.FileNew ("farm.bmp")
map (2) := Pic.FileNew ("farmback.bmp")
var x, y : int := 20
var player : int := BSprite.New (x, y, "maincharacter.bmp")
var key : array char of boolean


Pic.Draw (map (2), 0, 0, picCopy)
Pic.Draw (map (1), 0, 0, picCopy)
View.Update

proc refresh
    Input.KeyDown (key)
    if key (KEY_LEFT_ARROW) and x > 10 and whatdotcolor (x - 10, y) = yellow then
        x := x - 4
        BSprite.Change ("maincharactersidel.bmp", player)

    end if
    if key (KEY_RIGHT_ARROW) and x < maxx - 10 and whatdotcolor (x + 10, y) = yellow then
        x += 4
        BSprite.Change ("maincharactersider.bmp", player)

    end if
    if key (KEY_UP_ARROW) and y < maxy - 25 and whatdotcolor (x, y - 4) = yellow then
        y += 4
        BSprite.Change ("maincharacterback.bmp", player)

    end if
    if key (KEY_DOWN_ARROW) and y > 3 and whatdotcolor (x, y - 4) = yellow
            then
        y -= 4
        BSprite.Change ("maincharacter.bmp", player)


    end if

end refresh
loop

    BSprite.Move (x, y, player)
    View.Update
    refresh
    delay (10)
end loop
Author:  jamonathin [ Mon May 09, 2005 12:12 pm ]
Post subject: 
I fixed your coding, here it is. Check your collisions though, they don't work right. Take a look at this tutorial to see how your program should be set up for this type of collision checking. http://www.compsci.ca/v2/viewtopic.php?t=8175
Turing:
import "BSprite.tu"
setscreen ("graphics:640;480,nobuttonbar,position:center;center")
setscreen ("offscreenonly")
colorback (black)
color (yellow)
cls
locate (10, 10)
put " Loading . . ."
View.Update
var map : array 1 .. 2 of int
var dir : int := 4
map (1) := Pic.FileNew ("farm.bmp")
map (2) := Pic.FileNew ("farmback.bmp")
var x, y : int := 20
var player : int := BSprite.New (x, y, "maincharacter.bmp")
var key : array char of boolean


proc refresh
    Input.KeyDown (key)
    Pic.Draw (map (2), 0, 0, picCopy)
    if key (KEY_LEFT_ARROW) and x > 10 and whatdotcolor (x - 10, y) = yellow then
        x := x - 4
        dir := 1
    end if
    if key (KEY_RIGHT_ARROW) and x < maxx - 10 and whatdotcolor (x + 10, y) = yellow then
        x += 4
        dir := 2
    end if
    if key (KEY_UP_ARROW) and y < maxy - 25 and whatdotcolor (x, y - 4) = yellow then
        y += 4
        dir := 3
    end if
    if key (KEY_DOWN_ARROW) and y > 3 and whatdotcolor (x, y - 4) = yellow then
        y -= 4
        dir := 4
    end if
    Pic.Draw (map (1), 0, 0, picCopy)
    if dir = 1 then
        BSprite.Change ("maincharactersidel.bmp", player)
    elsif dir = 2 then
        BSprite.Change ("maincharactersider.bmp", player)
    elsif dir = 3 then
        BSprite.Change ("maincharacterback.bmp", player)
    elsif dir = 4 then
        BSprite.Change ("maincharacter.bmp", player)
    end if
    View.Update
end refresh
loop

    BSprite.Move (x, y, player)
    refresh
    delay (10)
end loop

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy