Sprite
| Author |
Message |
Tallguy
|
 Posted: 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
|
|
|
|
|
 |
Sponsor
Sponsor
|
|
|
DemonWasp
|
| Posted: 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.
|
|
|
|
|
|
DifinityRJ
|
| Posted: 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.
|
|
|
|
|
|
tjmoore1993
|
| Posted: 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
|
|
|
|
|
|
|
tjmoore1993
|
| Posted: Tue May 12, 2009 4:08 pm Post subject: RE:Sprite |
|
|
Fixed :
- No errors
- LEFT AND RIGHT key glitch
- Updating
- Changing Direction
etc. 
EDIT*
Correction, I did not fix the animation. I forgot to but I'm sure someone will reply with an answer!
|
|
|
|
|
|
Tallguy
|
| Posted: 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
|
|
|
|
|
|
|
tjmoore1993
|
| Posted: 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") |
|
|
|
|
|
|
DifinityRJ
|
| Posted: 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.
|
|
|
|
|
|
Sponsor
Sponsor
|
|
|
Tallguy
|
| Posted: 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?
| Description: |
|
Download |
| Filename: |
Sprite Game.zip |
| Filesize: |
41.14 KB |
| Downloaded: |
117 Time(s) |
|
|
|
|
|
|
Tallguy
|
| Posted: Fri May 15, 2009 11:31 am Post subject: RE:Sprite |
|
|
| i got it working, forgot to add delays lol
|
|
|
|
|
|
DanTheMan
|
| Posted: 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)
|
|
|
|
|
|
Tallguy
|
| Posted: 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
|
|
|
|
|
|
|
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
