Computer Science Canada

Sprite
Author:  Tallguy [ Mon May 11, 2009 9:32 am ]
Post subject:  Sprite
so i've looked every where on compsci and can't find anything to help me

i wanna make a game with Sprites, sortta like this http://compsci.ca/v3/viewtopic.php?t=16534


how do i get the sprites moving for example to walk i use the pictures in order in the walk folder

know what i'm getting at? do i use an array like...

Turing:


var dooku_walk : array 1 .. 13 of string

dooku_walk (1) := "Dooku/Walk/WalkC1.bmp"
dooku_walk (2) := "Dooku/Walk/WalkC2.bmp"
dooku_walk (3) := "Dooku/Walk/WalkC3.bmp"
dooku_walk (4) := "Dooku/Walk/WalkC4.bmp"
dooku_walk (5) := "Dooku/Walk/WalkC5.bmp"
dooku_walk (6) := "Dooku/Walk/WalkC6.bmp"
dooku_walk (7) := "Dooku/Walk/WalkC7.bmp"
dooku_walk (8) := "Dooku/Walk/WalkC8.bmp"
dooku_walk (9) := "Dooku/Walk/WalkC9.bmp"
dooku_walk (10) := "Dooku/Walk/WalkC10.bmp"
dooku_walk (11) := "Dooku/Walk/WalkC11.bmp"
dooku_walk (12) := "Dooku/Walk/WalkC12.bmp"
dooku_walk (13) := "Dooku/Walk/WalkC13.bmp"

var walk  := dooku_walk


i am throughly confused any suggestions? plz
Author:  DemonWasp [ Mon May 11, 2009 11:31 am ]
Post subject:  RE:Sprite
You want to look for the Pic and Sprite modules in the Turing help (though honestly you can do it best with just Pic). Alternately, check out the tutorials here: http://compsci.ca/v3/viewtopic.php?t=8808 , particularly the Graphics section and the Pictures article.
Author:  DifinityRJ [ Tue May 12, 2009 11:12 am ]
Post subject:  Re: Sprite
I didn't test the code, but from my experience with sprites, you can do this a bit more efficient.


Like so:
Turing:

var dooku_walk : array 1 .. 13 of int

for a : 1 .. 13
    dooku_walk (a) := Pic.FileNew("Dooku/Walk/WalkC" + intstr (a) + ".bmp")
end for


*notice the array is 'int' not 'string'


If the actual program is in the folder with the sprites you don't need "Dooku/Walk/" , Just put "WalkC" +instr(a) + ".bmp"

If you need help on animation, I can surely help you, just PM me.
Author:  tjmoore1993 [ Tue May 12, 2009 4:04 pm ]
Post subject:  Re: Sprite
DifinityRJ @ Tue May 12, 2009 11:12 am wrote:
I didn't test the code, but from my experience with sprites, you can do this a bit more efficient.


Like so:
Turing:

var dooku_walk : array 1 .. 13 of int

for a : 1 .. 13
    dooku_walk (a) := Pic.FileNew("Dooku/Walk/WalkC" + intstr (a) + ".bmp")
end for


*notice the array is 'int' not 'string'


If the actual program is in the folder with the sprites you don't need "Dooku/Walk/" , Just put "WalkC" +instr(a) + ".bmp"

If you need help on animation, I can surely help you, just PM me.



Bad idea. At first it works but then you'll come across errors
"Cannot allocate item. Out of id numbers (max 1000)"

The best way is to probably define the images outside of a loop.

Turing:

var SpriteRight, SpriteLeft : array 1 .. 2 of int

SpriteRight (1) := Pic.FileNew ("C:\\1.bmp")
SpriteRight (2) := Pic.FileNew ("C:\\2.bmp")
SpriteLeft (1) := Pic.Mirror (SpriteRight (1))
SpriteLeft (2) := Pic.Mirror (SpriteRight (2))

var chars : array char of boolean
var CharacterX, CharacterY : int
CharacterX := 100
CharacterY := 20

View.Set ("offscreenonly")

Pic.SetTransparentColour (SpriteRight (1), 3)
Pic.Draw (SpriteRight (1), CharacterX, CharacterY, picMerge)

loop
    Input.KeyDown (chars)

    if chars (KEY_RIGHT_ARROW) and chars (KEY_LEFT_ARROW) then
    else
        if chars (KEY_RIGHT_ARROW) then
            for right : 1 .. 2
                cls
                CharacterX := CharacterX + 5
                Pic.SetTransparentColour (SpriteRight (right), 3)
                Pic.Draw (SpriteRight (right), CharacterX, CharacterY, picMerge)
                delay (20)
            end for
        end if
        if chars (KEY_LEFT_ARROW) then
            for left : 1 .. 2
                cls
                CharacterX := CharacterX - 5
                Pic.SetTransparentColour (SpriteLeft (left), 3)
                Pic.Draw (SpriteLeft (left), CharacterX, CharacterY, picMerge)
                delay (20)
            end for
        end if
        View.Update
    end if
end loop

Author:  tjmoore1993 [ Tue May 12, 2009 4:08 pm ]
Post subject:  RE:Sprite
Fixed :
- No errors
- LEFT AND RIGHT key glitch
- Updating
- Changing Direction

etc. Smile

EDIT*
Correction, I did not fix the animation. I forgot to but I'm sure someone will reply with an answer!
Author:  Tallguy [ Tue May 12, 2009 6:22 pm ]
Post subject:  RE:Sprite
sweet thanks both of you you have no idea how much you just helped me out, thanks, i did both of what you two suggested

i tried before without succes to get the pic.mirror to work, but you realy helped me out THANK YOU!!

Turing:
setscreen ("graphics:700;500")
View.Set ("offscreenonly")
var x, y : int
x := 100
y := 100
var chars : array char of boolean

var dooku_walk, dooku_walkL : array 1 .. 13 of int

for a : 1 .. 13
    dooku_walk (a) := Pic.FileNew ("Sprintes/Dooku/Walk/WalkC" + intstr (a) + ".bmp")
    dooku_walkL (a) := Pic.Mirror (dooku_walk (a))
end for

var dooku_stand := Pic.FileNew ("Sprintes/Dooku/Stand/Stand1.bmp")
var dooku_standM := Pic.Mirror (dooku_stand)

loop
    cls

    Input.KeyDown (chars)

    if chars (KEY_RIGHT_ARROW) then
        if chars (KEY_RIGHT_ARROW) then
            x := x + 15
        end if
        for a : 1 .. 13
            Pic.Draw (dooku_walk (a), x, y, 0)
            View.Update
        end for
        delay (75)
        View.Update
    else
        Pic.Draw (dooku_stand, x, y, 0)
        View.Update
    end if

    if chars (KEY_LEFT_ARROW) then
        if chars (KEY_LEFT_ARROW) then
            x := x - 15
        end if
        for a : 1 .. 13
            Pic.Draw (dooku_walkL (a), x + 8, y, 0)
            View.Update
        end for
        delay (75)
        View.Update
    end if
end loop
Author:  tjmoore1993 [ Tue May 12, 2009 7:13 pm ]
Post subject:  Re: RE:Sprite
Tallguy @ Tue May 12, 2009 6:22 pm wrote:
sweet thanks both of you you have no idea how much you just helped me out, thanks, i did both of what you two suggested

i tried before without succes to get the pic.mirror to work, but you realy helped me out THANK YOU!!

Turing:
setscreen ("graphics:700;500")
View.Set ("offscreenonly")
var x, y : int
x := 100
y := 100
var chars : array char of boolean

var dooku_walk, dooku_walkL : array 1 .. 13 of int

for a : 1 .. 13
    dooku_walk (a) := Pic.FileNew ("Sprintes/Dooku/Walk/WalkC" + intstr (a) + ".bmp")
    dooku_walkL (a) := Pic.Mirror (dooku_walk (a))
end for

var dooku_stand := Pic.FileNew ("Sprintes/Dooku/Stand/Stand1.bmp")
var dooku_standM := Pic.Mirror (dooku_stand)

loop
    cls

    Input.KeyDown (chars)

    if chars (KEY_RIGHT_ARROW) then
        if chars (KEY_RIGHT_ARROW) then
            x := x + 15
        end if
        for a : 1 .. 13
            Pic.Draw (dooku_walk (a), x, y, 0)
            View.Update
        end for
        delay (75)
        View.Update
    else
        Pic.Draw (dooku_stand, x, y, 0)
        View.Update
    end if

    if chars (KEY_LEFT_ARROW) then
        if chars (KEY_LEFT_ARROW) then
            x := x - 15
        end if
        for a : 1 .. 13
            Pic.Draw (dooku_walkL (a), x + 8, y, 0)
            View.Update
        end for
        delay (75)
        View.Update
    end if
end loop


No problem, notice though how you have used two statements more then what was needed. Instead of using setscreen perhaps using View.Set share the line?

Example:
Turing:

View.Set ("graphics:700;500, offscreenonly")
Author:  DifinityRJ [ Wed May 13, 2009 10:35 am ]
Post subject:  Re: Sprite
tjmoore1993 @ Wed May 13, 2009 10:04 am wrote:
DifinityRJ @ Tue May 12, 2009 11:12 am wrote:
I didn't test the code, but from my experience with sprites, you can do this a bit more efficient.


Like so:
Turing:

var dooku_walk : array 1 .. 13 of int

for a : 1 .. 13
    dooku_walk (a) := Pic.FileNew("Dooku/Walk/WalkC" + intstr (a) + ".bmp")
end for


*notice the array is 'int' not 'string'


If the actual program is in the folder with the sprites you don't need "Dooku/Walk/" , Just put "WalkC" +instr(a) + ".bmp"

If you need help on animation, I can surely help you, just PM me.



Bad idea. At first it works but then you'll come across errors
"Cannot allocate item. Out of id numbers (max 1000)"

The best way is to probably define the images outside of a loop.

Turing:

var SpriteRight, SpriteLeft : array 1 .. 2 of int

SpriteRight (1) := Pic.FileNew ("C:\\1.bmp")
SpriteRight (2) := Pic.FileNew ("C:\\2.bmp")
SpriteLeft (1) := Pic.Mirror (SpriteRight (1))
SpriteLeft (2) := Pic.Mirror (SpriteRight (2))

var chars : array char of boolean
var CharacterX, CharacterY : int
CharacterX := 100
CharacterY := 20

View.Set ("offscreenonly")

Pic.SetTransparentColour (SpriteRight (1), 3)
Pic.Draw (SpriteRight (1), CharacterX, CharacterY, picMerge)

loop
    Input.KeyDown (chars)

    if chars (KEY_RIGHT_ARROW) and chars (KEY_LEFT_ARROW) then
    else
        if chars (KEY_RIGHT_ARROW) then
            for right : 1 .. 2
                cls
                CharacterX := CharacterX + 5
                Pic.SetTransparentColour (SpriteRight (right), 3)
                Pic.Draw (SpriteRight (right), CharacterX, CharacterY, picMerge)
                delay (20)
            end for
        end if
        if chars (KEY_LEFT_ARROW) then
            for left : 1 .. 2
                cls
                CharacterX := CharacterX - 5
                Pic.SetTransparentColour (SpriteLeft (left), 3)
                Pic.Draw (SpriteLeft (left), CharacterX, CharacterY, picMerge)
                delay (20)
            end for
        end if
        View.Update
    end if
end loop



tjmoore, you are doing exactly what I am doing, except you are adding more work for yourself. Your method works if you have two sprites, but when you have more sprites your going to have to keep repeating lines of code, that could be replaced by a for statement.
Author:  Tallguy [ Fri May 15, 2009 9:17 am ]
Post subject:  Re: Sprite
okay, thanks for all the help, i'm still having a few kinks. i'm using the sprites from http://compsci.ca/v3/viewtopic.php?t=16534 because their the best ones i can find

the array thingy isn't working, it's not displaying the sprites in order

any ideas?
Author:  Tallguy [ Fri May 15, 2009 11:31 am ]
Post subject:  RE:Sprite
i got it working, forgot to add delays lol
Author:  DanTheMan [ Fri May 15, 2009 11:37 am ]
Post subject:  RE:Sprite
This may not have any relevance, but is this the correct file path for your sprites?

(Sprintes/Dooku/Walk/WalkC)
Author:  Tallguy [ Fri May 15, 2009 11:42 am ]
Post subject:  RE:Sprite
yeah it is, my problem was it was displaying them at all thesame time because i forgot to add an delay

:


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

Terms of Use | Privacy Policy