Weird Little Problem

[TheFerret]

In my program (like Ledgend of Zelda) when my guy hits the wall his head and eyes keep going over but the rest of the body stays there until you relase the over button, if you hit over once against the wall he gets meesed up but if you hit over again or hit over twice against a wall he is normal... (Replace over with right) Use the right wall to test... Also if m guy kills an emeny with his sword the enemey will turn red but the problem is that when he is under or beside him, the enemy changes colout, is there a way to get it when the tip of his sword goes in him to make him change colour not when the sword is beside him or below him...

P.S. What do you think about me and my friends program...(Right now when you go down in the center divider he gets messed up, I have to fix it later...)

.BMP in next post...

[Cervantes]

wow your code is very messy and almost all of it is unecessary

Instead of having variables for his head and sword and all that, you have to do the following:

draw a few pictures of him in paint (facing various angles, attacking or not)
then import those pictures like so

code:

var zelda : int := Pic.New ("Zelda")

use case for animations

[jonos]

edit: wow cervants is too damn quick

i didn't take a really long look at your code, but you should make the figure (link???) a picture and then use that to move, becaue when it is all in separate parts it can fall apart (and does). nice first level.

one more thing you should add:
in your if statements for the amount the character should move, you should lessen the amount (i put it to 5 and it worked fine), as well you should make that amount a constant (const). also, you could get rid of some of the if statements and just do all the j := j+15, k:= k+15 in one if statment, then you wouldn't need al lthose if statements.
you have it

if chars (KEY_UP_ARROW) then
k := k + 5
end if
if chars (KEY_UP_ARROW) then
b := b + 5
end if
if chars (KEY_UP_ARROW) then
i := i + 5
end if
if chars (KEY_UP_ARROW) then
m := m + 5
end if

you might want to change it to:
if chars (KEY_UP_ARROW) then
k := k+5
b := b+5
i := i+5
m := m+5
end if

im not sure if how you have it is needed for your game, maybe im missing something, but that is the way i would do.

anyways, nice program and nice start!!!

[GUI.GetScrollBarWidth : i]

that cool i like legand of zelda

[TheFerret]

When I use

Quote:

var zelda : int := Pic.New ("Zelda")

for a picture and try to run it is says there is an error and will not run it, whyor what do I have to put...

[Paul]

include file extension, whatever it is. like zelda.bmp or zelda.jpg and the pic also has to be in the same folder where you're saving the .t file.

[TheFerret]

It says argument is wrong type

code:

var test : int := Pic.New ("test.bmp")

[Paul]

oh yea that too

code:

var cash := Pic.FileNew ("cash.bmp")

no int. if you type Pic.FileNew and press F9 it tells you.[/code]

[TheFerret]

when I put

code:

var test := Pic.FileNew ("test.bmp") put test

all it outputs is 7001 an dit does not put my picture...

[Paul]

Yea, you have to draw the pic too, its in the help file.

code:

var test := Pic.FileNew ("test.bmp") Pic.Draw (test, 75, 10, picMerge)

[TheFerret]

Ok, I shortened up the code a lot to 111 lines and I am wondering how to get a circle to be drawn over the enemy when the guys sword goes in him... I have tried

code:

% if l >= 285 and l <= 315 then         %     ene := 1         % elsif m >= maxy - 90 and m <= maxy - 60 then         %     ene := 1         % end if         % if ene = 1 then         %     drawfilloval (300, maxy - 75, 15, 15, 12)         % end if

(don't worry about comments) but that does not work, all it does is if my guy is anywhere between 285 and 315 on the screen the enemy will turn red... All I want to happen is only when his sword goes in...

[jonos]

post the new code with your attempt at the enemy circle thing, but this should help:
i don't know the sword action but id say something like this might help:

if the user presses the sword button then
if the user is within a certain area away from the enemy then
kill/injure enemy
end if
end if

[TheFerret]

Here is the code... The test BMP is the guy... NB: You have to declare the var for the damage, I do not have it in because I do not need it now...

code:

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% The Ledgend of Janet: Tom's Story... %%% Made by Nathan Boucher & Travis Baker... %%% Feb. 17, 2004 %%% Version 0.3 %%% Use the arrow keys to move Tom around the screen and space to swing sword... %%% Grade 10 Computer Sciences & Technologies... %%% (c)2004 B&B Inc. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% setscreen ("graphics:500;500") var x, y, key, ene, change : int var chars : array char of boolean x := 180 y := 370 ene := 0 %How many keys he has. key := 0 change := 5 loop     View.Set ("offscreenonly")     View.Update     Input.KeyDown (chars)     if chars (KEY_UP_ARROW) then         y := y + change     end if     if chars (KEY_RIGHT_ARROW) then         x := x + change     end if     if chars (KEY_LEFT_ARROW) then         x := x - change     end if     if chars (KEY_DOWN_ARROW) then         y := y - change     end if     % if chars (' ') then     %     l := l + change     % elsif chars (' ') then     %     m := m - 50     % elsif chars ('w') then     %     l -= 15     % elsif chars ('w') then     %     m += 50     %end if     %Right Wall Detection     if x >= 407 then         x -= change     end if     %Bototm wall detection     if y <= 80 then         y += change     end if     if x <= 40 then         x += change     elsif y <= 40 then         y += change     end if     if y >= maxy - 95 then         y -= change     end if     if y <= 275 then         y += change     end if     %drawbox (49, 59, 451, 461, 0) %Wall boundry     %drawbox (49, 280, 451, 461, 0) %Top part of level boundry     var test := Pic.FileNew ("test.bmp")     Pic.ScreenLoad ("Zelda1.bmp", 0, 0, picCopy)     Pic.Draw (test, x, y, picMerge)     %enemy     drawfilloval (300, maxy - 75, 15, 15, 124)     drawfilloval (285, maxy - 65, 5, 5, 4)     drawfilloval (315, maxy - 65, 5, 5, 4)     drawfilloval (300, maxy - 75, 5, 5, 17)     drawbox (49, 280, 451, 461, 0) %%%%%%%%BELOW HERE IS ENEMY DAMAGE FOR COMPSCI.CA%%%%%%%%%%      if l >= 285 and l <= 315 then          ene := 1      elsif m >= maxy - 90 and m <= maxy - 60 then          ene := 1      end if      if ene = 1 then          drawfilloval (300, maxy - 75, 15, 15, 12)      end if end loop

[Paul]

first, l and m are not declared, so I figured that thats the position of the sword, I just made their values basically somewhere around the point of the sword.
Maybe this is what you want
oh yea, also clear the previous pic when you move it.
also, notice I moved the var test:=Pic.Filenew... part out of the loop or else it maxes out and stops in like 1 min, cause it created 1000 pics

code:

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%% The Ledgend of Janet: Tom's Story... %%% Made by Nathan Boucher & Travis Baker... %%% Feb. 17, 2004 %%% Version 0.3 %%% Use the arrow keys to move Tom around the screen and space to swing sword... %%% Grade 10 Computer Sciences & Technologies... %%% (c)2004 B&B Inc. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% setscreen ("graphics:500;500")     var test := Pic.FileNew ("test.bmp") var l,m,x, y, key, ene, change : int var chars : array char of boolean x := 180 y := 370 ene := 0 %How many keys he has. key := 0 change := 5 loop     View.Set ("offscreenonly")     View.Update     Input.KeyDown (chars)     if chars (KEY_UP_ARROW) then         y := y + change     end if     if chars (KEY_RIGHT_ARROW) then         x := x + change     end if     if chars (KEY_LEFT_ARROW) then         x := x - change     end if     if chars (KEY_DOWN_ARROW) then         y := y - change     end if     % if chars (' ') then     %     l := l + change     % elsif chars (' ') then     %     m := m - 50     % elsif chars ('w') then     %     l -= 15     % elsif chars ('w') then     %     m += 50     %end if     %Right Wall Detection     if x >= 407 then         x -= change     end if     %Bototm wall detection     if y <= 80 then         y += change     end if     if x <= 40 then         x += change     elsif y <= 40 then         y += change     end if     if y >= maxy - 95 then         y -= change     end if     if y <= 275 then         y += change     end if     %drawbox (49, 59, 451, 461, 0) %Wall boundry     %drawbox (49, 280, 451, 461, 0) %Top part of level boundry     Pic.ScreenLoad ("Zelda1.bmp", 0, 0, picCopy)     Pic.Draw (test, x, y, picMerge)     %enemy     drawfilloval (300, maxy - 75, 15, 15, 124)     drawfilloval (285, maxy - 65, 5, 5, 4)     drawfilloval (315, maxy - 65, 5, 5, 4)     drawfilloval (300, maxy - 75, 5, 5, 17)     drawbox (49, 280, 451, 461, 0) %%%%%%%%BELOW HERE IS ENEMY DAMAGE FOR COMPSCI.CA%%%%%%%%%% l:=x+45 m:=y+45      if l >= 285 and l <= 315  and m >= maxy - 90 and m <= maxy - 60then          ene := 1            end if      if ene = 1 then          drawfilloval (300, maxy - 75, 15, 15, 12)      end if end loop

[TheFerret]

I can get the guy to erase by using

code:

ene := 1 if x<=275 and x>=245 or y<=maxy-50 and y>=maxy-80 then ene:=0 end if if ene=1 then     drawfilloval (300, maxy - 75, 15, 15, 124)     drawfilloval (285, maxy - 65, 5, 5, 4)     drawfilloval (315, maxy - 65, 5, 5, 4)     drawfilloval (300, maxy - 75, 5, 5, 17)    else end if

but if you go anywhere where x<=275 and greater than 245 but if I put if x<=275 and x>=245 and(instead of or) y<=maxy-50 and y>=maxy-80 then the enemey will not delete...