-----------------------------------

dragonboy456

Mon Apr 06, 2015 10:40 pm


Making my character move left and right using sprites

-----------------------------------

What is it you are trying to achieve?
I am trying to animate my hulk so that it moves left and right using sprites and not just on one spot. I know how to create a new sprite but I dont know how to insert more than one picture for the sprite. I don't know if i am making this clear. I also have to make it so that if the user presses the right arrow key than it moves right and if he or she presses the left arrow key, than the hulk will move left. When it moves, the picture should animate and not just be the same picture. 


This is what I have so far. It's not a lot but I'm trying to understand animation better.
When I press the right key, it does't move at all. Any help would be greatly appreciated 
Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)

var chars : array char of boolean
var NewSprite, pics, standR, standL, standRightID, standLeftID : int

var x, y : int := 100

standRightID := Pic.FileNew ("lookRight.bmp")
standR := Sprite.New (standRightID)
standLeftID := Pic.FileNew ("lookLeft.bmp")
standL := Sprite.New (standLeftID)

Sprite.SetHeight (standR, 1)
Sprite.SetPosition (standR, x, y, false)
Sprite.Show (standR)


loop
    Input.KeyDown (chars)
    
    if chars (KEY_RIGHT_ARROW) then
    %Sprite.Hide (standR)
    Sprite.Hide (standL)
    
    x:= x + 5
    
    
    %pics := Pic.FileNew ("right1.bmp") 
    %NewSprite := Sprite.New (pics)
    
    %Sprite.ChangePic(NewSprite, "right1.bmp")
    
    %Sprite.Animate (NewSprite, 
    end if
    
     if chars (KEY_DOWN_ARROW) then
    Sprite.Hide (standR)
    Sprite.Hide (standL)
    end if
    
     if chars (KEY_UP_ARROW) then
    Sprite.Hide (standR)
    Sprite.Hide (standL)
    end if
    
     if chars (KEY_LEFT_ARROW) then
    Sprite.Hide (standR)
    Sprite.Hide (standL)
    end if
    end loop


-----------------------------------

Insectoid

Mon Apr 06, 2015 11:46 pm


RE:Making my character move left and right using sprites

-----------------------------------

You don't need to use Sprite.ChangePic when using Sprite.Animate, since the latter does it for you.

You only need one sprite per on-screen character, no matter how many pictures there are for that character. This means you only call Sprite.New once if you only have one character. Load all pictures for your sprite with Pic.FileNew before your main game loop. Use Sprite.Animate to both move your sprite and change the pic- you shouldn't need to use Sprite.Hide to change the pic. To move your sprite, just change the x or y values and call Sprite.Animate, which will redraw the sprite at the new coordinates.

For example,
[code]
if chars (KEY_RIGHT_ARROW) then
    x := x + 1
    Sprite.Animate (standRightID, x, y, 1, false)
end if[/code]


-----------------------------------

dragonboy456

Tue Apr 07, 2015 8:02 am


Re: Making my character move left and right using sprites

-----------------------------------

Thanks for the help. I have I guess you could say improved my code. I was just wondering if this is the only way that you can do this. Like, can I change the code so that the same thing happens. And one last think, is there something I can add to my code so that the hulk doesnt flash or "blink after it moves to the right and left. Thanks again

%Declare Variables 
var chars : array char of boolean 
var pics : array 0 .. 6 of int 
var sprite, standR, standRID, standL, standLID : int 
var x,y : int 
x:=200 
y:=200 
%Initialize standing sprite 
standRID := Pic.FileNew ("lookRight.bmp") 
standR := Sprite.New (standRID) 
standLID := Pic.FileNew ("lookLeft.bmp") 
standL := Sprite.New (standLID) 

%Starting picture 
Sprite.SetPosition (standL, x,y, true) 
Sprite.Show (standL) 

% 
%For each key press repeat 
% 
loop 
    Input.KeyDown (chars) 
    % 
    
    % 
    %If the user presses the right arrow key 
    % 
    if chars (KEY_RIGHT_ARROW) then 
        % 
        %Hides the standing still sprite 
        % 
        Sprite.Hide (standR) 
        Sprite.Hide (standL) 
        % 
        % Loading each picture into the array 
        % 
        for i : 1 .. 6 
        
        x := x + 5 
            pics (i - 1) := Pic.FileNew ("right" + intstr (i) + ".bmp") 
              
             delay (20) 
            if Error.Last not= 0 then 
                put "Error loading image: ", Error.LastMsg 
                return 
            
            end if 
        end for 
        sprite := Sprite.New (pics (0)) 
        % 
        %Animate picture 
        % 
        for i : 1 .. 6 
            Sprite.ChangePic (sprite, pics (i mod 6)) 
            Sprite.SetPosition (sprite, x,y, true) 
            Sprite.Show (sprite) 
            delay (80) 
        end for 
        Sprite.Free (sprite) 
        Sprite.SetPosition (standR, x,y, true) 
        Sprite.Show (standR) 
    end if 
    % 
    %If the user presses the left arrow key 
    % 
    if chars (KEY_LEFT_ARROW) then 
        % 
        %Hides the standing still sprite 
        % 
        Sprite.Hide (standL) 
        Sprite.Hide (standR) 
        % 
        % Loading each picture into the array 
        % 
        for i : 1 .. 6 
        x := x - 5 
            pics (i - 1) := Pic.FileNew ("left" + intstr (i) + ".bmp") 
            if Error.Last not= 0 then 
                put "Error loading image: ", Error.LastMsg 
                return 
            end if 
        end for 
        sprite := Sprite.New (pics (0)) 
        Sprite.SetPosition (sprite, x,y, true) 
        Sprite.Show (sprite) 
        % 
        %Animate picture 
        % 
        for i : 1 .. 6 
            Sprite.ChangePic (sprite, pics (i mod 6)) 
            delay (80) 
        end for 
        Sprite.Free (sprite) 
        Sprite.SetPosition (standL, x,y, true) 
        Sprite.Show (standL) 
    end if 
    % 
  
  
end loop


-----------------------------------

Dreadnought

Tue Apr 07, 2015 11:18 am


Re: Making my character move left and right using sprites

-----------------------------------

Here's a tutorial on eliminating flickering: http://compsci.ca/v3/viewtopic.php?t=12533


-----------------------------------

Insectoid

Tue Apr 07, 2015 3:51 pm


RE:Making my character move left and right using sprites

-----------------------------------

I was just wondering if this is the only way that you can do this.

This is pretty much the only way to use sprites. I mean, you can manually use Sprite.SetHeight, Sprite.Show, Sprite.Move, etc, but Sprite.Animate does all of that already so why bother?

You can also draw your images directly without using sprites at all. I prefer this approach myself. It takes a little bit more work but removes a lot of the magic (magic is things that you don't know why they work, but they do). Doing away with sprites lets you mix pictures and primitives (draw.line, draw.box, etc) together more easily and gives you some finer control over what's going on. I recommend you try both approaches and see what you like best.


-----------------------------------

dragonboy456

Tue Apr 07, 2015 8:54 pm


Re: Making my character move left and right using sprites

-----------------------------------

WOW, this has been a lot of help. I just have one more question. I got my Hulk to animate but it doesn't walk from right to left and how do I make it so that when it punches, it punches in the way it is facing. So for example, if it is facing right, how does it punch right and vice versa. Is it possible to upload my entire file instead of just one by one?


-----------------------------------

Insectoid

Tue Apr 07, 2015 9:26 pm


RE:Making my character move left and right using sprites

-----------------------------------

Keep a variable the records which way your character is facing. When it punches, check this variable and choose the direction accordingly.