moving my scientist dude

[Hariss]

hello this is my code

setscreen ("graphics:300,200")
setscreen ("nocursor")
setscreen ("offscreenonly")
var pic, picground : int
picground := Pic.FileNew ("exterior.jpg")
var picfile_right_step : array 0 .. 1 of string
picfile_right_step (0) := "scientist right.jpg"
picfile_right_step (1) := "scientist right step one.jpg"
var picfile_back_step : array 0 .. 1 of string
picfile_back_step (0) := "scientist back step two.jpg"
picfile_back_step (1) := "scientist back step one.jpg"
var picfile_front_step : array 0 .. 1 of string
picfile_front_step (0) := "scientist front step two.jpg"
picfile_front_step (1) := "scientist front step one.jpg"
var picfile_left_step : array 0 .. 1 of string
picfile_left_step (0) := "scientist left.jpg"
picfile_left_step (1) := "scientist left step one.jpg"
var x, y : int := 100
var input : string (1)
getch (input)
loop
for a : 0 .. 1
if hasch then
getch (input)
end if
if ord (input) = 205 then
Pic.Draw (picground, 0, 0, 1)
x := x + 2
pic := Pic.FileNew (picfile_right_step (a mod 2))
View.Update
delay (60)
cls
Pic.Draw (pic, x, y, 2)
elsif ord (input) = 203 then
Pic.Draw (picground, 0, 0, 1)
x := x - 2
pic := Pic.FileNew (picfile_left_step (a mod 2))
View.Update
delay (60)
cls
Pic.Draw (pic, x, y, 2)
elsif ord (input) = 200 then
Pic.Draw (picground, 0, 0, 1)
y := y + 2
pic := Pic.FileNew (picfile_back_step (a mod 2))
View.Update
delay (60)
cls
Pic.Draw (pic, x, y, 2)
elsif ord (input) = 208 then
Pic.Draw (picground, 0, 0, 1)
y := y - 2
pic := Pic.FileNew (picfile_front_step (a mod 2))
View.Update
delay (60)
cls
Pic.Draw (pic, x, y, 2)
end if
end for
end loop

i mnage to move the scientist around, but he keeps on walking, i need him to take one step!!!
I also need someone to tell me how to do collision detection with pics and things like if i move my guy around and that he stays within the maze walls of my maze game. Thanx very much

[zedx_26]

I would advice you to use key.inputdown rather the getch. I used getch first and had same problem. i edited your code a bit try if it works


setscreen ("graphics:300,200")
setscreen ("nocursor")
setscreen ("offscreenonly")
var pic, picground : int
picground := Pic.FileNew ("exterior.jpg")
var picfile_right_step : array 0 .. 1 of string
picfile_right_step (0) := "scientist right.jpg"
picfile_right_step (1) := "scientist right step one.jpg"
var picfile_back_step : array 0 .. 1 of string
picfile_back_step (0) := "scientist back step two.jpg"
picfile_back_step (1) := "scientist back step one.jpg"
var picfile_front_step : array 0 .. 1 of string
picfile_front_step (0) := "scientist front step two.jpg"
picfile_front_step (1) := "scientist front step one.jpg"
var picfile_left_step : array 0 .. 1 of string
picfile_left_step (0) := "scientist left.jpg"
picfile_left_step (1) := "scientist left step one.jpg"
var x, y : int := 100
var input : string (1)
getch (input)
loop
var chars : array char of boolean
Input.KeyDown (chars)

% for a : 0 .. 1
% if hasch then
% getch (input)
% end if
% if ord (input) = 205 then
if chars ('i') then
Pic.Draw (picground, 0, 0, 1)
x := x + 2
pic := Pic.FileNew (picfile_right_step (a mod 2))
View.Update
delay (60)
cls
Pic.Draw (pic, x, y, 2)
%elsif ord (input) = 203 then
elsif chars ('e') then
Pic.Draw (picground, 0, 0, 1)
x := x - 2
pic := Pic.FileNew (picfile_left_step (a mod 2))
View.Update
delay (60)
cls
Pic.Draw (pic, x, y, 2)
%elsif ord (input) = 200 then
elsif chars ('a') then
Pic.Draw (picground, 0, 0, 1)
y := y + 2
pic := Pic.FileNew (picfile_back_step (a mod 2))
View.Update
delay (60)
cls
Pic.Draw (pic, x, y, 2)
%elsif ord (input) = 208 then
elsif chars ('d') then
Pic.Draw (picground, 0, 0, 1)
y := y - 2
pic := Pic.FileNew (picfile_front_step (a mod 2))
View.Update
delay (60)
cls
Pic.Draw (pic, x, y, 2)
end if
end for
end loop

[zedx_26]

hey i changed the controls a bit and they are i,e,a,d. I know the controls are random but i put down any control i thoguht. you can switch it wit if chars (KEY_UP_ARROW) then and etc
and for colision irecomend you to check collision tutorial in tutorial section.
and tell me if this works for u
good luck

[Hariss]

thanks for the help, but i get errors with the for statement. There is no for statement, and thats what i need, when i tried to add for a:0..1 then it worked, but my guy never appeared on the screen.

[agnivohneb]

Had no images to test with but got some done.

code:

%NOTE: I was trying to work on mine at the very same time as working on this one %      so it might not work completely, but hopefully you get what I did %YOU ONLY NEED ONE 'View.Update' TO UPDATE THE IMAGE...NOT 4 setscreen ("graphics:300,200;nocursor;offscreenonly") var pic : int var bg_ground : int bg_ground := Pic.FileNew ("background") %Your bg name here var pic_right : array 0 .. 1 of string pic_right (0) := "scientist right.jpg" pic_right (1) := "scientist right step one.jpg" var pic_back : array 0 .. 1 of string pic_back (0) := "scientist back step two.jpg" pic_back (1) := "scientist back step one.jpg" var pic_front : array 0 .. 1 of string pic_front (0) := "scientist front step two.jpg" pic_front (1) := "scientist front step one.jpg" var pic_left : array 0 .. 1 of string pic_left (0) := "scientist left.jpg" pic_left (1) := "scientist left step one.jpg" var x, y : int := 100 var keydown : array char of boolean %Input put "Press any key to begin" Input.Pause %Pauses until next input loop     Input.KeyDown (keydown) %This works SOOOO much better than 'getch'     for a : 0 .. 1         %Pic.Draw (bg_ground, 0, 0, picMerge)   %Put this back in with your bg name         Draw.FillBox (0, 0, 300, 200, 200)      %Get rid of this once you have entered your bg name         if keydown (KEY_RIGHT_ARROW) then             x := x + 2             pic := Pic.FileNew (pic_right (a mod 2))    %I'm really not sure what you're trying to do here...             Pic.Draw (pic, x, y, picMerge)         elsif keydown (KEY_LEFT_ARROW) then             x := x - 2             pic := Pic.FileNew (pic_left (a mod 2))             Pic.Draw (pic, x, y, picMerge)         elsif keydown (KEY_UP_ARROW) then             y := y + 2             pic := Pic.FileNew (pic_back (a mod 2))             Pic.Draw (pic, x, y, picMerge)         elsif keydown (KEY_DOWN_ARROW) then             y := y - 2             pic := Pic.FileNew (pic_front (a mod 2))             Pic.Draw (pic, x, y, picMerge)         end if         View.Update         delay (60)         cls     end for end loop

Hope that helps

[Hariss]

here is the code now

setscreen ("graphics:300,200;nocursor;offscreenonly")
var pic : int
var bg_ground : int
bg_ground := Pic.FileNew ("exterior.jpg") %Your bg name here
var pic_right : array 0 .. 1 of string
pic_right (0) := "scientist right.jpg"
pic_right (1) := "scientist right step one.jpg"
var pic_back : array 0 .. 1 of string
pic_back (0) := "scientist back step two.jpg"
pic_back (1) := "scientist back step one.jpg"
var pic_front : array 0 .. 1 of string
pic_front (0) := "scientist front step two.jpg"
pic_front (1) := "scientist front step one.jpg"
var pic_left : array 0 .. 1 of string
pic_left (0) := "scientist left.jpg"
pic_left (1) := "scientist left step one.jpg"
var x, y : int := 100
var keydown : array char of boolean
put "Press any key to begin"
Input.Pause
loop
Input.KeyDown (keydown)
for a : 0 .. 1
Pic.Draw (bg_ground, 0, 0, picMerge)
if keydown (KEY_RIGHT_ARROW) then
x := x + 2
pic := Pic.FileNew (pic_right (a mod 2))
Pic.Draw (pic, x, y, picMerge)
elsif keydown (KEY_LEFT_ARROW) then
x := x - 2
pic := Pic.FileNew (pic_left (a mod 2))
Pic.Draw (pic, x, y, picMerge)
elsif keydown (KEY_UP_ARROW) then
y := y + 2
pic := Pic.FileNew (pic_back (a mod 2))
Pic.Draw (pic, x, y, picMerge)
elsif keydown (KEY_DOWN_ARROW) then
y := y - 2
pic := Pic.FileNew (pic_front (a mod 2))
Pic.Draw (pic, x, y, picMerge)
end if
View.Update
delay (60)
cls
end for
end loop

the input stuff is working, but everytime you let go of the arrow keys, then my guy dissapears. And when I draw my guy, white pixels appear around him......gotta fix help anyone?

[agnivohneb]

Post all your files (including images) in a zip archive (.zip) and upload it to this site. I will be able to help you more.

[zedx_26]

ca u als post it as .t because i dont have winzip
thanks

[Hariss]

ok, im planning on my guy going into the powerplant infront of him and going through rooms to find three pokemon. I have to make sure that he does not go off the screen. I fixed the previous errors so don't worry about it. just check it out, ill give you guys the stuff.

[agnivohneb]

OK I fixed you images they just needed to be in bmp and have the light light grey (very light) removed from around him (used win paint). I fixed the way he walks as well. The part inside the place is all yours. If it is for a school summative then you have to do at least 80%. I made my game and it was 99% mine. (1% friend helped with some math stuff.)

[Hariss]

can you post the stuff, thanks by the way do any of you know how to do collision detection with pictures???