my cube wont move... help appreciated :)

Author

Message

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 01:25 Edited at: 6th Jun 2004 01:26

Link

This is my move function... its supposed to move a object (for now the player cube) in the direction which was sorted out in the player input function.

However... it doesnt work

.

I think it has something to do with the part when... you see the "if moving(object)=1" part? I got no end if there at line 106, i think it should be. But if ill add it, the editor says "command at of line".

Anyone knows what this is all about?

Thanks
Mizipzor

(also, full source included)

function move(direction, object)

rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
   if direction(object)=1 then moving(object)=1 and goal_z(object)=object position z(object)+10
   if direction(object)=2 then moving(object)=1 and goal_x(object)=object position x(object)+10
   if direction(object)=3 then moving(object)=1 and goal_z(object)=object position z(object)-10
   if direction(object)=4 then moving(object)=1 and goal_x(object)=object position x(object)-10
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object)>object position z(object)
      position object object, object position x(object), 5, object position z(object)+speed(object)
   endif
   rem right
   if goal_x(object)>object position x(object)
      position object object, object position x(object)+speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object)<object position z(object)
      position object object, object position x(object), 5, object position z(object)-speed(object)
   endif
   rem left
   if goal_x(object)<object position x(object)
      position object object, object position x(object)-speed(object), 5, object position z(object)
   endif

rem if its at its destination
if object position z(object)=goal_z(object) then moving(object)=0
if object position x(object)=goal_x(object) then moving(object)=0

endfunction

+ Code Snippet

function move(direction, object)

rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
   if direction(object)=1 then moving(object)=1 and goal_z(object)=object position z(object)+10
   if direction(object)=2 then moving(object)=1 and goal_x(object)=object position x(object)+10
   if direction(object)=3 then moving(object)=1 and goal_z(object)=object position z(object)-10
   if direction(object)=4 then moving(object)=1 and goal_x(object)=object position x(object)-10
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object)>object position z(object)
      position object object, object position x(object), 5, object position z(object)+speed(object)
   endif
   rem right
   if goal_x(object)>object position x(object)
      position object object, object position x(object)+speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object)<object position z(object)
      position object object, object position x(object), 5, object position z(object)-speed(object)
   endif
   rem left
   if goal_x(object)<object position x(object)
      position object object, object position x(object)-speed(object), 5, object position z(object)
   endif

rem if its at its destination
if object position z(object)=goal_z(object) then moving(object)=0
if object position x(object)=goal_x(object) then moving(object)=0

endfunction

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

soapyfish

20

Years of Service

User Offline

Joined: 24th Oct 2003

Location: Yorkshire, England

Posted: 6th Jun 2004 01:50

Link

What is it your trying to do with this code. Move a cube depending on which arrow keys are pressed(although I admit it seems too complex for just that) Any chance of a bit more info. Thanks.

WAS DOING AN FPS BUT RAN AWAY AND STARTED ON MISSILE COMMAND INSTEAD.

Back to top

Profile PM Email Website

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 01:58

Link

its supposed to move a object... now, the only thing to move is the temporary player character, a cube. But why its complex is that so i can move just about any entity ill add sooner with only the object number and direction provided.

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 02:13

Link

I may not know much about the Dark Basic Editor yet, but it seems to me that an ENDIF is missing in that code. As for why the editor would complain about it being there though, and not complain about it not being there, I have no clue. Just simple logic says to nest them properly. Does it depend on where you place the endif given the couple of THENs in the last part? Have you tried putting the final endif at the point just before the function exits? I know that I would place it before the rem of where you check destination, but then again, if an object is not moving why check that?

The only other suggestion I can come with is, change the last two lines to be If...endif lines as well, to get rid of the THEN that might be confusing the editor. An interesting problem to be sure...

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 02:40

Link

It was just a bug, i moved things around a little, it wouldnt work... so i moved them back... and then it worked!

Nothing has changed, the editor just let me have the endif ther now

thanks

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 03:03

Link

Hahahaha!

Mizipnor,

Well, you might want to shoot yourself but I got it working too -- by a means that'll make you kick yourself.

First off, I had trouble getting all the code together. The source button only grabbed a part of it, then camupdate() was missing, then I had to grab the code snip and edit it to make it all work.

My version of the function is;

function move(direction, object)
rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
     moving(object)=1
   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object)>object position z(object)
      position object object, object position x(object), 5, object position z(object)+speed(object)
   endif
   rem right
   if goal_x(object)>object position x(object)
      position object object, object position x(object)+speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object)<object position z(object)
      position object object, object position x(object), 5, object position z(object)-speed(object)
   endif
   rem left
   if goal_x(object)<object position x(object)
      position object object, object position x(object)-speed(object), 5, object position z(object)
   endif

rem if its at its destination
  if object position z(object)=goal_z(object) then moving(object)=0
  if object position x(object)=goal_x(object) then moving(object)=0
endif
endfunction

+ Code Snippet

function move(direction, object)
rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
     moving(object)=1
   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object)>object position z(object)
      position object object, object position x(object), 5, object position z(object)+speed(object)
   endif
   rem right
   if goal_x(object)>object position x(object)
      position object object, object position x(object)+speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object)<object position z(object)
      position object object, object position x(object), 5, object position z(object)-speed(object)
   endif
   rem left
   if goal_x(object)<object position x(object)
      position object object, object position x(object)-speed(object), 5, object position z(object)
   endif

  rem if its at its destination
  if object position z(object)=goal_z(object) then moving(object)=0
  if object position x(object)=goal_x(object) then moving(object)=0
endif
endfunction

Now -- here comes the part for which you'll kick yourself..

Speed(1) = 1
Speed(2) = 1

I added those ... and it started moving!

I may be wrong, but I don't think you can use an AND word after a THEN, so I changed the order of the set moving flag as shown above. And is a logical function in most BASICs for combining flags and values used in an IF.

Have fun!
Sandra.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 03:03

Link

i got that endif there now but still i cant get it to move... have tried a couple of things but i simply cant get it to work.

i have matrix walls and stuff now to, did that in between and then got back to my movement problem

.

anyways, could someone please check out my source here? thats player_input function and move function then... the rest is just if you want to run it yourself

thanks again
Mizipzor

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 03:10

Link

hehe maybe you did beat to it

ill try it out at once!

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 03:14

Link

Well, after I got no errors and it appeared to display properly... it still wouldn't move for me, I started looking at the defines and relized you'd never set a speed value, so at a speed of zero nothing is ever going to move.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 03:20

Link

Well... a question then i got those arrays to be able to handle all the players... for now its only two. How do i set a value to all the elements in an array? its called array right? at least in c++

Another thing... for some wacky reason it doesnt take input anymore!

I have that little number up in the left to state the direction... it stays at a sturdy zero. Any idea whats wrong? I dont know what things ive messed up now, to be honest im way to tired to try to program. Its 01:20 am here :/... programming should be this fun

Well thanks again...
Mizipzor

(included the scource... _again_

)

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 03:21

Link

the rest of the code is below:

(is there a maximun lines to include here?)

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 03:25

Link

what the... ****

this forum doesnt like me!

It cuts out half the move func and the entire cam func

/me wonders if this works:

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object)>object position z(object)
      position object object, object position x(object), 5, object position z(object)+speed(object)
   rem right
   if goal_x(object)>object position x(object)
      position object object, object position x(object)+speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object)<object position z(object)
      position object object, object position x(object), 5, object position z(object)-speed(object)
   endif
   rem left
   if goal_x(object)<object position x(object)
      position object object, object position x(object)-speed(object), 5, object position z(object)
   endif

rem if its at its destination
if object position z(object)=goal_z(object) then moving(object)=0
if object position x(object)=goal_x(object) then moving(object)=0
endif

endfunction

function update_cam()

camdistance = 50

rem place camera
position camera object position x(1), object position y(1)+camdistance, object position z(1)-camdistance
point camera object position x(1), object position y(1), object position z(1)

endfunction

+ Code Snippet

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object)>object position z(object)
      position object object, object position x(object), 5, object position z(object)+speed(object)
   rem right
   if goal_x(object)>object position x(object)
      position object object, object position x(object)+speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object)<object position z(object)
      position object object, object position x(object), 5, object position z(object)-speed(object)
   endif
   rem left
   if goal_x(object)<object position x(object)
      position object object, object position x(object)-speed(object), 5, object position z(object)
   endif

rem if its at its destination
if object position z(object)=goal_z(object) then moving(object)=0
if object position x(object)=goal_x(object) then moving(object)=0
endif

endfunction

function update_cam()

camdistance = 50

rem place camera
position camera object position x(1), object position y(1)+camdistance, object position z(1)-camdistance
point camera object position x(1), object position y(1), object position z(1)

endfunction

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 03:31

Link

Uh...

I don't know if there is a maximum line limit for posting or not, but I know that the source button after each post is only giving me a part of the program. Each one seems to cut off at;

rem if its moving....
if moving(object)=1
rem up
if goal_z(object)>

and that's all I get.

As for setting array values, I usually do it the brute force way;

For x = 1 to maxplayers
speed(x) = 1
next x

And so on. While this does not matter when initializing it can be a bother if it's in a main loop or anything like that.

As for the input stuff... hmm. I'm not having that problem. In fact I was going to suggest that you change the input code because the current input is based upon whether or not an object has stopped moving, meaning it continually moves even when a key is released until a different key is pressed.

And I wanted to add the suggestion of changing your signs in the Movement section, to make the motion more intuitive. (ie; + to 1 and - to +)

S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 03:33

Link

Okay, let me see if this works....

this is my version as of right now.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 03:36

Link

Nope.. it cuts if off as well.

There is clearly a posting size limit here, which is making this harder than it needs to be. But oh well, I understand that reason for it.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 03:36

Link

Thanks Sandra, youve been of great help! I owe you one (hundred)

I look into that tomorrow, as I said, Im way to tired now... anyways

Thanks again!
Mizi
/me snores

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 03:37

Link

Okay, part two of mine....

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 03:39

Link

Darn it.. it cut if off too... there must be something in the code that's being recognized as a command.

Tell ya what, I'll email it to you...

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 03:41

Link

can it possibly be the same thing that made it impossible to have endif that now makes the code cutoff?

if you ask, yes im _on my way_ to the bed

i, brushing my teeth in front of my computer

Its hard letting something fun up

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 03:43

Link

one more try.

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 5, object position z(object)+speed(object)
   endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object)+speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 5, object position z(object)-speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object)-speed(object), 5, object position z(object)
   endif

rem if its at its destination
  if object position z(object) = goal_z(object) then moving(object)=0
  if object position x(object) = goal_x(object) then moving(object)=0
endif
endfunction

function update_cam()
     rem place camera
     position camera object position x(1), object position y(1)+100, object position z(1)-100
     point camera object position x(1), object position y(1), object position z(1)
endfunction

+ Code Snippet

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 5, object position z(object)+speed(object)
   endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object)+speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 5, object position z(object)-speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object)-speed(object), 5, object position z(object)
   endif

  rem if its at its destination
  if object position z(object) = goal_z(object) then moving(object)=0
  if object position x(object) = goal_x(object) then moving(object)=0
endif
endfunction

function update_cam()
     rem place camera
     position camera object position x(1), object position y(1)+100, object position z(1)-100
     point camera object position x(1), object position y(1), object position z(1)
endfunction

Since it seems to keep stopping at the same point I'm trying to add extra spaces around the stoppage

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 03:44

Link

goodie... it worked now

the cam func and the entire move func is there...

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 03:45

Link

No, I think it's something the browser is seeing as a command for a graphic or something... which it never gets out of. So the text disappears.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 03:49

Link

Yup, it's confirmed.. it's my browser. For some reason, when it hits that if goal_z(object) line it stops all output. If I look at the source of page (which I should have done earlier) I can read the full text correctly.

Weird.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 03:51

Link

Darn!

Now i get that "command out of place" when im trying to put endif there... could you mail me your entire source? Mizipzor@hotmail.com, Ill send mine back, maybe it isnt fo much use but just for comparing or... whatever

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 03:58 Edited at: 6th Jun 2004 03:59

Link

Well... i didnt care about that endif

it works now... kinda...

The thing is I want it to move pretty strictly by the matrix tiles, as i want it to be kinda tilebased. Any idea how to fix this?

For me at least, it just moves around pretty freely.. not good

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 04:03

Link

Im going to bed now... for real

if you wonder why I did stop posting here... Ill return in a few hours when ive got enough sleep to keep my brain rolling hehe...

Thanks again! bye for now
Mizipzor

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 04:49

Link

Hi again....

I was playing with your code some more and wanted to retract a comment made earlier, specifically about "reversing the + and - signs in the movement section. (The code I sent has the signs reversed, when it should be the way you posted them.) i.e.;

+ Code Snippet

   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10

Reason is, I wasn't sure which object was actually moving.

Once I took the update_cam() function out of the main loop so the view didn't follow the moving object, it made more sense to me...

Now, as to the input stuff I mentioned earlier, here's the correction I found that works;

+ Code Snippet

function player_input(object)
if moving(object)=0
   direction(object)=0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
endif
move(direction(object), object)
endfunction

By just reseting the direction to zero if the object has reached its "planned destination" via the move() function, when the player lets up on a key the object will stop at the next point. Since you have a preset movement size defined in the move() operation, it should form a "snap to grid" as well.

I'm not sure if this would be "by matrix tiles" or not given the way you have asked your question, but it might. Once you awake maybe we can continue this discussion and find out.

Sleep well and good luck,
Sandra.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 13:15 Edited at: 6th Jun 2004 13:16

Link

Hi again, Im alive and kicking

Problem remains the same... the cube doesnt move... for me

Ive changed a couple of things, mainly in the player_input function but thats clearly commented

, also i have more in the print_status function.

Heres my code snipper: (attaching source isnt that effective as weve found out

)

Rem Project: subtanks
Rem Created: 2004-06-05 21:29:49

Rem ***** Main Source File *****

rem setup
set display mode 1024, 768, 32
sync on
sync rate 60

rem variables
max_players = 2

dim goal_x (max_players)
dim goal_z (max_players)
dim direction (max_players)
dim moving (max_players)
dim speed (max_players)

rem LOAD
load_level()

DO

player_input(1)
update_cam()

print_status()

SYNC
LOOP

function load_level()

rem make temp player char
make object box 1, 10, 10, 10
position object 1, 25, 5, 20
color object 1, rgb(0,60,80)

direction(1) = 0
moving(1) = 0
speed(1) = 1
goal_z(1) = object position z(1)
goal_x(1) = object position x(1)

rem 1 will be added so its the same thing as 10
block=9

worldwidth = 200
worldheight = 200

rem make world, matrix
make matrix 1, worldwidth, worldheight, worldwidth/10, worldheight/10
position matrix 1, 0, -5, 0

remstart
load image "textures/ground.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
remend

update matrix 1

for mazey = 1 to worldheight/10
   for mazex = 1 to worldwidth/10
      read maze
      rem if a block was found
      if maze = 1
         inc block
         make object box block, 10, 10, 10
         color object block, rgb(40,15,15)
         position object block, mazex*10-5, groundheight, mazey*10-5
      endif
   next mazex
next mazey

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

endfunction

function player_input(object)

remstart check player input
up - 1
right - 2
down - 3
left - 4
remend
if moving(object)=0
   direction(object)=0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
   if direction(object) > 0 then moving(object)=1
endif

rem BIG CHANGE here, moved the part when setting moving(object) to 1 up to
rem where it decides direction from input and only calls the move function
rem if the cube is moving (i.e. moving(object)=1). The reason is that the cube wont move,
rem i added the print status / debugging thing and found out that moving(1) is always 1,
rem so the game wont take input... it only does so if the moving(object)=0.
rem
rem I did solve that by setting the an if statment to only make moving(object) to 1
rem if direction is greater than 0. See that?
rem
rem The main problem now is that the cube wont move :( still... i dont know what i am
rem doing wrong :P. The print status claims that both direction and moving are changed
rem accordingly if an arrowkey is pressed. No idea what could be wrong...

if moving(object)=1 then move(direction(object), object)
endfunction

function move(direction, object)

rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object)>object position z(object)
      position object object, object position x(object), 5, object position z(object)+speed(object)
   rem right
   if goal_x(object)>object position x(object)
      position object object, object position x(object)+speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object)<object position z(object)
      position object object, object position x(object), 5, object position z(object)-speed(object)
   endif
   rem left
   if goal_x(object)<object position x(object)
      position object object, object position x(object)-speed(object), 5, object position z(object)
   endif

rem if its at its destination
rem
rem Here I think something needs to be changed... Just a feeling :P
rem
rem Anyways, i think the error is somewhere in this function. Because the debugging
rem function shows that both direction and movement flags are updated when a key is pressed
rem but the goal_x and goal_z remains the same... why?

if object position z(object)=goal_z(object) then moving(object)=0
if object position x(object)=goal_x(object) then moving(object)=0
endif

endfunction

function update_cam()

camdistance = 50

rem place camera
position camera object position x(1), object position y(1)+camdistance, object position z(1)-camdistance
point camera object position x(1), object position y(1), object position z(1)

endfunction

function print_status()

set cursor 0,0
print "direction: ";direction(1)
print "moving: ";moving(1)
print "speed: ";speed(1)
print "goal_z";goal_z(1)
print "goal_x";goal_x(1)

endfunction

+ Code Snippet

Rem Project: subtanks
Rem Created: 2004-06-05 21:29:49

Rem ***** Main Source File *****

rem setup
set display mode 1024, 768, 32
sync on
sync rate 60

rem variables
max_players = 2

dim goal_x (max_players)
dim goal_z (max_players)
dim direction (max_players)
dim moving (max_players)
dim speed (max_players)

rem LOAD
load_level()

DO

player_input(1)
update_cam()

print_status()

SYNC
LOOP

function load_level()

rem make temp player char
make object box 1, 10, 10, 10
position object 1, 25, 5, 20
color object 1, rgb(0,60,80)

direction(1) = 0
moving(1) = 0
speed(1) = 1
goal_z(1) = object position z(1)
goal_x(1) = object position x(1)

rem 1 will be added so its the same thing as 10
block=9

worldwidth = 200
worldheight = 200

rem make world, matrix
make matrix 1, worldwidth, worldheight, worldwidth/10, worldheight/10
position matrix 1, 0, -5, 0

remstart
load image "textures/ground.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
remend

update matrix 1

for mazey = 1 to worldheight/10
   for mazex = 1 to worldwidth/10
      read maze
      rem if a block was found
      if maze = 1
         inc block
         make object box block, 10, 10, 10
         color object block, rgb(40,15,15)
         position object block, mazex*10-5, groundheight, mazey*10-5
      endif
   next mazex
next mazey

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

endfunction

function player_input(object)

remstart check player input
up - 1
right - 2
down - 3
left - 4
remend
if moving(object)=0
   direction(object)=0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
   if direction(object) > 0 then moving(object)=1
endif

rem BIG CHANGE here, moved the part when setting moving(object) to 1 up to
rem where it decides direction from input and only calls the move function
rem if the cube is moving (i.e. moving(object)=1). The reason is that the cube wont move,
rem i added the print status / debugging thing and found out that moving(1) is always 1,
rem so the game wont take input... it only does so if the moving(object)=0.
rem
rem I did solve that by setting the an if statment to only make moving(object) to 1
rem if direction is greater than 0. See that?
rem
rem The main problem now is that the cube wont move :( still... i dont know what i am
rem doing wrong :P. The print status claims that both direction and moving are changed
rem accordingly if an arrowkey is pressed. No idea what could be wrong...

if moving(object)=1 then move(direction(object), object)
endfunction

function move(direction, object)

rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object)>object position z(object)
      position object object, object position x(object), 5, object position z(object)+speed(object)
   rem right
   if goal_x(object)>object position x(object)
      position object object, object position x(object)+speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object)<object position z(object)
      position object object, object position x(object), 5, object position z(object)-speed(object)
   endif
   rem left
   if goal_x(object)<object position x(object)
      position object object, object position x(object)-speed(object), 5, object position z(object)
   endif

rem if its at its destination
rem
rem Here I think something needs to be changed... Just a feeling :P
rem
rem Anyways, i think the error is somewhere in this function. Because the debugging
rem function shows that both direction and movement flags are updated when a key is pressed
rem but the goal_x and goal_z remains the same... why?

if object position z(object)=goal_z(object) then moving(object)=0
if object position x(object)=goal_x(object) then moving(object)=0
endif

endfunction

function update_cam()

camdistance = 50

rem place camera
position camera object position x(1), object position y(1)+camdistance, object position z(1)-camdistance
point camera object position x(1), object position y(1), object position z(1)

endfunction

function print_status()

set cursor 0,0
print "direction: ";direction(1)
print "moving: ";moving(1)
print "speed: ";speed(1)
print "goal_z";goal_z(1)
print "goal_x";goal_x(1)

endfunction

Play around and see what you can find out... Ive been up for about an hour now and now its time for breakfast... see ya soon!

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 18:49

Link

Mizipnor,

Hmm... interesting that yours won't move and I can't stop mine from moving! What I mean is, I've been up most of the night playing around the sample I have here and discovered an odd quirck in my version of the code -- it allows me to go DIAGONALLY!

What I did was; change the Goal distance to 100 plus former postion, then press a few keys. Turns out, I can have the cube head for North and then press East, where upon it moves North-East for a while, then turns directly East. Theoretically, that's not possible.

The only thing that I can come up with regarding my version of the compiler is that the truth flag of "moving(object)=0" is being preserved and carried to Move() whenever the key is pressed, which updates the destination all of the time. This makes any snap-to-grid impossible.

This is so very odd... I can't figure out why we're getting such different results.

Code follows;

Rem Project: subtanks
Rem Created: 2004-06-05 21:29:49

Rem ***** Main Source File *****

rem setup
sync on
sync rate 60

remstart
worldplate - 9
player one - 1
player two - 2
remend

rem variables
max_players = 2

worldwidth = 20
worldheight = 20

dim goal_x(max_players)
dim goal_z(max_players)
dim direction(max_players)
dim moving(max_players)
dim speed(max_players)

speed(1) = 1
speed(2) = 1

rem camdistance = 100

rem make world
make object box 9, worldwidth, 50, worldheight
position object 9, 0, -25, 0
color object 9, rgb(90,50,40)

rem make temp player char
make object box 1, 10, 10, 10
position object 1, 0, 5, 0
color object 1, rgb(10,30,80)

rem make a blcok
make object box 10, 10, 10, 10
position object 10, 10, 5, 10
color object 10, rgb(20,20,20)

update_cam()
DO
player_input(1)
rem update_cam()
set cursor 0,0
print direction(1)
SYNC
LOOP
end

function player_input(object)
remstart check player input
up - 1
right - 2
down - 3
left - 4
remend
if moving(object) = 0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
endif
move(object)
     set cursor 0, 14
     print object position x(object)," ",object position z(object);
     set cursor 0, 25
     print goal_x(object)," ",goal_z(object);
endfunction

function move(object)
rem if object isnt moving, set its status to moving and set distance
if moving(object) = 0
     moving(object)=1
   if direction(object)=1 then goal_z(object)=object position z(object) + 100
   if direction(object)=2 then goal_x(object)=object position x(object) + 100
   if direction(object)=3 then goal_z(object)=object position z(object) - 100
   if direction(object)=4 then goal_x(object)=object position x(object) - 100
endif

rem if its moving....
if moving(object) = 1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 5, object position z(object)+speed(object)
   endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object)+speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 5, object position z(object)-speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object)-speed(object), 5, object position z(object)
   endif

rem if its at its destination
  if (object position z(object) = goal_z(object)) or (object position x(object) = goal_x(object))
   direction(object)=0
   moving(object)=0
   endif
endif
endfunction

function update_cam()
     rem place camera
     position camera object position x(1), object position y(1)+100, object position z(1)-100
     point camera object position x(1), object position y(1), object position z(1)
endfunction

+ Code Snippet

Rem Project: subtanks
Rem Created: 2004-06-05 21:29:49

Rem ***** Main Source File *****

rem setup
sync on
sync rate 60

remstart
worldplate - 9
player one - 1
player two - 2
remend

rem variables
max_players = 2

worldwidth = 20
worldheight = 20

dim goal_x(max_players)
dim goal_z(max_players)
dim direction(max_players)
dim moving(max_players)
dim speed(max_players)

speed(1) = 1
speed(2) = 1

rem camdistance = 100

rem make world
make object box 9, worldwidth, 50, worldheight
position object 9, 0, -25, 0
color object 9, rgb(90,50,40)

rem make temp player char
make object box 1, 10, 10, 10
position object 1, 0, 5, 0
color object 1, rgb(10,30,80)

rem make a blcok
make object box 10, 10, 10, 10
position object 10, 10, 5, 10
color object 10, rgb(20,20,20)

update_cam()
DO
player_input(1)
rem update_cam()
set cursor 0,0
print direction(1)
SYNC
LOOP
end

function player_input(object)
remstart check player input
up - 1
right - 2
down - 3
left - 4
remend
if moving(object) = 0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
endif
move(object)
     set cursor 0, 14
     print object position x(object)," ",object position z(object);
     set cursor 0, 25
     print goal_x(object)," ",goal_z(object);
endfunction

function move(object)
rem if object isnt moving, set its status to moving and set distance
if moving(object) = 0
     moving(object)=1
   if direction(object)=1 then goal_z(object)=object position z(object) + 100
   if direction(object)=2 then goal_x(object)=object position x(object) + 100
   if direction(object)=3 then goal_z(object)=object position z(object) - 100
   if direction(object)=4 then goal_x(object)=object position x(object) - 100
endif

rem if its moving....
if moving(object) = 1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 5, object position z(object)+speed(object)
   endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object)+speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 5, object position z(object)-speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object)-speed(object), 5, object position z(object)
   endif

  rem if its at its destination
  if (object position z(object) = goal_z(object)) or (object position x(object) = goal_x(object))
   direction(object)=0
   moving(object)=0
   endif
endif
endfunction

function update_cam()
     rem place camera
     position camera object position x(1), object position y(1)+100, object position z(1)-100
     point camera object position x(1), object position y(1), object position z(1)
endfunction

Oh yes... I also took out the "direction" parameter for Move(), since your code wasn't using it anyway.

Let me know what happens when you try this one...
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 19:31

Link

Okay....

First the errors I encountered in my DBC version;

1. All Dims had a space between the variable name and the size of the array defined.
ie; "dim speed (maxplayers)" not "dim speed(maxplayers)"
2. Had a nesting error on line 199m finding;
3. The first two If's of the "moving(object)=1" section of move() didn't have endif's
4. had to add several spaces in conditions for sanity.
5. Had to change Destination if..then's to IF...ENDIF to get rid of nesting error claim

At this point the cube would not move, so I did the following;

6. Added "moving(object)=1" after Goal Calculation lines.
7. added "direction(object)=0" to destination section
8. Removed "if direction(object) > 0 then moving(object)=1" line in Input()
9. Removed IF condition from move() line in Input().

At which point, the thing moved, but STILL has the problem I mentioned before; ie, if you hold the key down while moving, the goal destination does NOT line up to even values of ten.

Rem Project: subtanks
Rem Created: 2004-06-05 21:29:49

Rem ***** Main Source File *****

rem setup
set display mode 1024, 768, 32
sync on
sync rate 60

rem variables
max_players = 2

dim goal_x(max_players)
dim goal_z(max_players)
dim direction(max_players)
dim moving(max_players)
dim speed(max_players)

rem LOAD
load_level()

DO

player_input(1)
update_cam()

print_status()

SYNC
LOOP

function load_level()

rem make temp player char
make object box 1, 10, 10, 10
position object 1, 25, 5, 20
color object 1, rgb(0,60,80)

direction(1) = 0
moving(1) = 0
speed(1) = 1
goal_z(1) = object position z(1)
goal_x(1) = object position x(1)

rem 1 will be added so its the same thing as 10
block=9

worldwidth = 200
worldheight = 200

rem make world, matrix
make matrix 1, worldwidth, worldheight, worldwidth/10, worldheight/10
position matrix 1, 0, -5, 0

remstart
load image "textures/ground.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
remend

update matrix 1

for mazey = 1 to worldheight/10
   for mazex = 1 to worldwidth/10
      read maze
      rem if a block was found
      if maze = 1
         inc block
         make object box block, 10, 10, 10
         color object block, rgb(40,15,15)
         position object block, mazex*10-5, groundheight, mazey*10-5
      endif
   next mazex
next mazey

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

endfunction

function player_input(object)

remstart check player input
up - 1
right - 2
down - 3
left - 4
remend
if moving(object)=0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
rem    if direction(object) > 0 then moving(object)=1
endif

rem BIG CHANGE here, moved the part when setting moving(object) to 1 up to
rem where it decides direction from input and only calls the move function
rem if the cube is moving (i.e. moving(object)=1). The reason is that the cube wont move,
rem i added the print status / debugging thing and found out that moving(1) is always 1,
rem so the game wont take input... it only does so if the moving(object)=0.
rem
rem I did solve that by setting the an if statment to only make moving(object) to 1
rem if direction is greater than 0. See that?
rem
rem The main problem now is that the cube wont move :( still... i dont know what i am
rem doing wrong :P. The print status claims that both direction and moving are changed
rem accordingly if an arrowkey is pressed. No idea what could be wrong...

rem if moving(object)=1 then 
move(object)
endfunction

function move(object)

rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10
   moving(object)=1
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 5, object position z(object) + speed(object)
     endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object) + speed(object), 5, object position z(object)
     endif
   endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 5, object position z(object) - speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object) - speed(object), 5, object position z(object)
   endif

rem if its at its destination
rem
rem Here I think something needs to be changed... Just a feeling :P
rem
rem Anyways, i think the error is somewhere in this function. Because the debugging
rem function shows that both direction and movement flags are updated when a key is pressed
rem but the goal_x and goal_z remains the same... why?

if (object position z(object)=goal_z(object)) or (object position x(object)=goal_x(object))
   moving(object)=0
   direction(object)=0
   endif

endfunction

function update_cam()

camdistance = 50

rem place camera
position camera object position x(1), object position y(1)+camdistance, object position z(1)-camdistance
point camera object position x(1), object position y(1), object position z(1)

endfunction

function print_status()

set cursor 0,0
print "direction: ";direction(1)
print "moving: ";moving(1)
print "speed: ";speed(1)
print "goal_z";goal_z(1)
print "goal_x";goal_x(1)

endfunction

+ Code Snippet

Rem Project: subtanks
Rem Created: 2004-06-05 21:29:49

Rem ***** Main Source File *****

rem setup
set display mode 1024, 768, 32
sync on
sync rate 60

rem variables
max_players = 2

dim goal_x(max_players)
dim goal_z(max_players)
dim direction(max_players)
dim moving(max_players)
dim speed(max_players)

rem LOAD
load_level()

DO

player_input(1)
update_cam()

print_status()

SYNC
LOOP

function load_level()

rem make temp player char
make object box 1, 10, 10, 10
position object 1, 25, 5, 20
color object 1, rgb(0,60,80)

direction(1) = 0
moving(1) = 0
speed(1) = 1
goal_z(1) = object position z(1)
goal_x(1) = object position x(1)

rem 1 will be added so its the same thing as 10
block=9

worldwidth = 200
worldheight = 200

rem make world, matrix
make matrix 1, worldwidth, worldheight, worldwidth/10, worldheight/10
position matrix 1, 0, -5, 0

remstart
load image "textures/ground.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
remend

update matrix 1

for mazey = 1 to worldheight/10
   for mazex = 1 to worldwidth/10
      read maze
      rem if a block was found
      if maze = 1
         inc block
         make object box block, 10, 10, 10
         color object block, rgb(40,15,15)
         position object block, mazex*10-5, groundheight, mazey*10-5
      endif
   next mazex
next mazey

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

endfunction

function player_input(object)

remstart check player input
up - 1
right - 2
down - 3
left - 4
remend
if moving(object)=0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
rem    if direction(object) > 0 then moving(object)=1
endif

rem BIG CHANGE here, moved the part when setting moving(object) to 1 up to
rem where it decides direction from input and only calls the move function
rem if the cube is moving (i.e. moving(object)=1). The reason is that the cube wont move,
rem i added the print status / debugging thing and found out that moving(1) is always 1,
rem so the game wont take input... it only does so if the moving(object)=0.
rem
rem I did solve that by setting the an if statment to only make moving(object) to 1
rem if direction is greater than 0. See that?
rem
rem The main problem now is that the cube wont move :( still... i dont know what i am
rem doing wrong :P. The print status claims that both direction and moving are changed
rem accordingly if an arrowkey is pressed. No idea what could be wrong...

rem if moving(object)=1 then 
move(object)
endfunction

function move(object)

rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10
   moving(object)=1
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 5, object position z(object) + speed(object)
     endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object) + speed(object), 5, object position z(object)
     endif
   endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 5, object position z(object) - speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object) - speed(object), 5, object position z(object)
   endif

rem if its at its destination
rem
rem Here I think something needs to be changed... Just a feeling :P
rem
rem Anyways, i think the error is somewhere in this function. Because the debugging
rem function shows that both direction and movement flags are updated when a key is pressed
rem but the goal_x and goal_z remains the same... why?

  if (object position z(object)=goal_z(object)) or (object position x(object)=goal_x(object))
   moving(object)=0
   direction(object)=0
   endif

endfunction

function update_cam()

camdistance = 50

rem place camera
position camera object position x(1), object position y(1)+camdistance, object position z(1)-camdistance
point camera object position x(1), object position y(1), object position z(1)

endfunction

function print_status()

set cursor 0,0
print "direction: ";direction(1)
print "moving: ";moving(1)
print "speed: ";speed(1)
print "goal_z";goal_z(1)
print "goal_x";goal_x(1)

endfunction

Good luck!
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 19:36

Link

Oh yes... I also took out that direction parameter from Move() again... since we're using the global array of Direction() for the function.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 19:47

Link

Did try your codes, the one posted 11:49 is an old version of the gamecode... didnt work anyway so... but the one you posted 12:31 worked just fine! My cube moves now... only thing is that my "snap to grid" style is far from working

.

Ill read the code in more detail now and look up whatever was changed.

Btw, the reason i want this "snap to grid" is that I planned to make this game something about pushing other cubes around

maybe a puzzle style. But since im so new I for now only try to make the game system works hehe

.

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 19:55

Link

Hahaha... i want to kick myself again

I figured it all out!

Down in the move function where we check if goal_x and goal_z was the same as its position, i.e. it is where it was going to. We set the move(object)=0 and direction(object)=0...

The problem was, we set it back if either the goal_x or goal_z criteria was met! In this code we only set move and direction to 0 if BOTH goal_x and goal_z is the same as the cubes current position.

I dance in joy now hehe... it works... well att a first glance at least... soon i found out something else i guess

Rem Project: subtanks
Rem Created: 2004-06-05 21:29:49

Rem ***** Main Source File *****

rem setup
set display mode 1024, 768, 32
sync on
sync rate 60

rem variables
max_players = 2

dim goal_x(max_players)
dim goal_z(max_players)
dim direction(max_players)
dim moving(max_players)
dim speed(max_players)

rem LOAD
load_level()

DO

player_input(1)
update_cam()

print_status()

SYNC
LOOP

function load_level()

rem make temp player char
make object box 1, 9, 9, 9
position object 1, 25, 5, 20
color object 1, rgb(0,60,80)

direction(1) = 0
moving(1) = 0
speed(1) = 1
goal_z(1) = object position z(1)
goal_x(1) = object position x(1)

rem 1 will be added so its the same thing as 10
block=9

worldwidth = 200
worldheight = 200

rem make world, matrix
make matrix 1, worldwidth, worldheight, worldwidth/10, worldheight/10
position matrix 1, 0, -5, 0

remstart
load image "textures/ground.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
remend

update matrix 1

for mazey = 1 to worldheight/10
   for mazex = 1 to worldwidth/10
      read maze
      rem if a block was found
      if maze = 1
         inc block
         make object box block, 10, 10, 10
         color object block, rgb(40,15,15)
         position object block, mazex*10-5, groundheight, mazey*10-5
      endif
   next mazex
next mazey

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

endfunction

function player_input(object)

remstart check player input
up - 1
right - 2
down - 3
left - 4
remend
if moving(object)=0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
rem    if direction(object) > 0 then moving(object)=1
endif

rem BIG CHANGE here, moved the part when setting moving(object) to 1 up to
rem where it decides direction from input and only calls the move function
rem if the cube is moving (i.e. moving(object)=1). The reason is that the cube wont move,
rem i added the print status / debugging thing and found out that moving(1) is always 1,
rem so the game wont take input... it only does so if the moving(object)=0.
rem
rem I did solve that by setting the an if statment to only make moving(object) to 1
rem if direction is greater than 0. See that?
rem
rem The main problem now is that the cube wont move :( still... i dont know what i am
rem doing wrong :P. The print status claims that both direction and moving are changed
rem accordingly if an arrowkey is pressed. No idea what could be wrong...

rem if moving(object)=1 then
move(object)
endfunction

function move(object)

rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10
   moving(object)=1
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 5, object position z(object) + speed(object)
   endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object) + speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 5, object position z(object) - speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object) - speed(object), 5, object position z(object)
   endif

rem if its at its destination
rem
rem Here I think something needs to be changed... Just a feeling :P
rem
rem Anyways, i think the error is somewhere in this function. Because the debugging
rem function shows that both direction and movement flags are updated when a key is pressed
rem but the goal_x and goal_z remains the same... why?

if (object position z(object)=goal_z(object)) and (object position x(object)=goal_x(object))
   moving(object)=0
   direction(object)=0
endif

endfunction

function update_cam()

camdistance = 50

rem place camera
position camera object position x(1), object position y(1)+camdistance, object position z(1)-camdistance
point camera object position x(1), object position y(1), object position z(1)

endfunction

function print_status()

set cursor 0,0
print "direction: ";direction(1)
print "moving: ";moving(1)
print "speed: ";speed(1)
print "goal_z";goal_z(1)
print "goal_x";goal_x(1)

endfunction

+ Code Snippet

Rem Project: subtanks
Rem Created: 2004-06-05 21:29:49

Rem ***** Main Source File *****

rem setup
set display mode 1024, 768, 32
sync on
sync rate 60

rem variables
max_players = 2

dim goal_x(max_players)
dim goal_z(max_players)
dim direction(max_players)
dim moving(max_players)
dim speed(max_players)

rem LOAD
load_level()

DO

player_input(1)
update_cam()

print_status()

SYNC
LOOP

function load_level()

rem make temp player char
make object box 1, 9, 9, 9
position object 1, 25, 5, 20
color object 1, rgb(0,60,80)

direction(1) = 0
moving(1) = 0
speed(1) = 1
goal_z(1) = object position z(1)
goal_x(1) = object position x(1)

rem 1 will be added so its the same thing as 10
block=9

worldwidth = 200
worldheight = 200

rem make world, matrix
make matrix 1, worldwidth, worldheight, worldwidth/10, worldheight/10
position matrix 1, 0, -5, 0

remstart
load image "textures/ground.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
remend

update matrix 1

for mazey = 1 to worldheight/10
   for mazex = 1 to worldwidth/10
      read maze
      rem if a block was found
      if maze = 1
         inc block
         make object box block, 10, 10, 10
         color object block, rgb(40,15,15)
         position object block, mazex*10-5, groundheight, mazey*10-5
      endif
   next mazex
next mazey

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

endfunction

function player_input(object)

remstart check player input
up - 1
right - 2
down - 3
left - 4
remend
if moving(object)=0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
rem    if direction(object) > 0 then moving(object)=1
endif

rem BIG CHANGE here, moved the part when setting moving(object) to 1 up to
rem where it decides direction from input and only calls the move function
rem if the cube is moving (i.e. moving(object)=1). The reason is that the cube wont move,
rem i added the print status / debugging thing and found out that moving(1) is always 1,
rem so the game wont take input... it only does so if the moving(object)=0.
rem
rem I did solve that by setting the an if statment to only make moving(object) to 1
rem if direction is greater than 0. See that?
rem
rem The main problem now is that the cube wont move :( still... i dont know what i am
rem doing wrong :P. The print status claims that both direction and moving are changed
rem accordingly if an arrowkey is pressed. No idea what could be wrong...

rem if moving(object)=1 then
move(object)
endfunction

function move(object)

rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10
   moving(object)=1
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 5, object position z(object) + speed(object)
   endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object) + speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 5, object position z(object) - speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object) - speed(object), 5, object position z(object)
   endif

rem if its at its destination
rem
rem Here I think something needs to be changed... Just a feeling :P
rem
rem Anyways, i think the error is somewhere in this function. Because the debugging
rem function shows that both direction and movement flags are updated when a key is pressed
rem but the goal_x and goal_z remains the same... why?

if (object position z(object)=goal_z(object)) and (object position x(object)=goal_x(object))
   moving(object)=0
   direction(object)=0
endif

endfunction

function update_cam()

camdistance = 50

rem place camera
position camera object position x(1), object position y(1)+camdistance, object position z(1)-camdistance
point camera object position x(1), object position y(1), object position z(1)

endfunction

function print_status()

set cursor 0,0
print "direction: ";direction(1)
print "moving: ";moving(1)
print "speed: ";speed(1)
print "goal_z";goal_z(1)
print "goal_x";goal_x(1)

endfunction

Also, I shrunk the cube slightly, thinks it looks better ^^

Anyways, thanks thanks and thanks again

Any ideas on what to implent now when we have a controll system?

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 20:37

Link

Well, I noticed an extra "endif" in the stuff I posted... when also trying to figure out this snap to grid operation. Here's the correction;

+ Code Snippet

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 5, object position z(object) + speed(object)
     endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object) + speed(object), 5, object position z(object)
     endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 5, object position z(object) - speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object) - speed(object), 5, object position z(object)
   endif
  if (object position z(object)=goal_z(object)) or (object position x(object)=goal_x(object))
   moving(object)=0
   direction(object)=0
   endif
endif
endfunction

Now, as for the snap to grid; Well, I'm still dinging with that one. And yes, I know the game of pushing objects around, though I forget its exact name. One version I saw years ago was called "Bolo Adventures" (1, 2 & 3) but another version I saw was called something else and in a Forth newsgroup. Not even sure which is the correct name really, but have seen it before....

And you're right about the AND I believe, that might just solve this silly snap problem.

(silly things!)

I have a similar sort of problem in my project, except that I used matrix arrays to restrict movement.

S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 6th Jun 2004 20:45

Link

Yep! That AND did solve the problem, even the diagonal movement!

Grrr.... makes so mad at myself.

When I first proposed the OR it was just to simplify the code you had originally, didn't even think about what it was doing. Whew. Myopia big time!

S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 20:51

Link

I also saw that little extra endif, edited it out... just a little typo feel silly if I mention those small things...

However, I have quite a working "snap to grid" system now... except one thing...

It looks good from one angle but i decided i wanted to see the scene from another angle so i changed the camera func. The reason is another bug ive found

, but i want to solve this out first.

If youre willing to help me again

hehe, try in the main loop to pass the argument 2 to the update_cam func. I have camvariants 1 and 2.

Also Ive added and edited a small amount of stuff that bothered me. Among those that the goal_z never was an equal ten (sorry if im saying it wrong, i dont know how to say it... the number cant be divided by ten whitout getting fractions) it was aldways 5 added to it. Thats fixed.

Anyways, heres the code as mine is now: (its a new project in case i want something back from the old one, the backup

)

Rem Project: subtanks
Rem Created: 2004-06-05 21:29:49

Rem ***** Main Source File *****

rem setup
set display mode 1024, 768, 32
sync on
sync rate 60

rem variables
max_players = 2

dim goal_x(max_players)
dim goal_z(max_players)
dim direction(max_players)
dim moving(max_players)
dim speed(max_players)

rem LOAD
load_level()

DO

player_input(1)
update_cam(1)

print_status()

SYNC
LOOP

function load_level()

REM --- PLAYER INIT ---
rem make temp player char
make object box 1, 9, 9, 9
position object 1, 20, 5, 20
color object 1, rgb(0,60,80)

direction(1) = 0
moving(1) = 0
speed(1) = 1
goal_z(1) = object position z(1)
goal_x(1) = object position x(1)
REM --- PLAYER INIT END ---

REM WORLD VARIABLES
rem 1 will be added so its the same thing as 20
block=19

worldwidth = 200
worldheight = 200
REM WORLD VARIABLES END

REM MAKE LIGHT AND STUFF
remstart
rem make reference point
make object sphere 10, 5
position object 10, worldwidth/2+5, 10, worldheight/2

rem make light
make light 9
position light 9, worldwidth/2+5, 10, worldheight/2
remend
REM LIGHT AND STUFF END

rem make world, matrix
make matrix 1, worldwidth, worldheight, worldwidth/10, worldheight/10
position matrix 1, 5, -5, 0

remstart
load image "textures/ground.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
remend

update matrix 1

for mazey = 1 to worldheight/10
   for mazex = 1 to worldwidth/10
      read maze
      rem if a block was found
      if maze = 1
         inc block
         make object box block, 10, 10, 10
         color object block, rgb(40,15,15)
         position object block, mazex*10, groundheight, mazey*10-5
      endif
   next mazex
next mazey

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

endfunction

function player_input(object)

remstart check player input
up - 1
right - 2
down - 3
left - 4
remend
if moving(object)=0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
rem    if direction(object) > 0 then moving(object)=1
endif

rem BIG CHANGE here, moved the part when setting moving(object) to 1 up to
rem where it decides direction from input and only calls the move function
rem if the cube is moving (i.e. moving(object)=1). The reason is that the cube wont move,
rem i added the print status / debugging thing and found out that moving(1) is always 1,
rem so the game wont take input... it only does so if the moving(object)=0.
rem
rem I did solve that by setting the an if statment to only make moving(object) to 1
rem if direction is greater than 0. See that?
rem
rem The main problem now is that the cube wont move :( still... i dont know what i am
rem doing wrong :P. The print status claims that both direction and moving are changed
rem accordingly if an arrowkey is pressed. No idea what could be wrong...

rem if moving(object)=1 then
move(object)
endfunction

function move(object)

rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10
   moving(object)=1
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 5, object position z(object) + speed(object)
   endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object) + speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 5, object position z(object) - speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object) - speed(object), 5, object position z(object)
   endif

rem if its at its destination
rem
rem Here I think something needs to be changed... Just a feeling :P
rem
rem Anyways, i think the error is somewhere in this function. Because the debugging
rem function shows that both direction and movement flags are updated when a key is pressed
rem but the goal_x and goal_z remains the same... why?

if (object position z(object)=goal_z(object)) and (object position x(object)=goal_x(object))
   moving(object)=0
   direction(object)=0
endif

endfunction

function update_cam(camvariant)

camdistance = 50

rem place camera
if camvariant=1
position camera object position x(1), object position y(1)+camdistance, object position z(1)-camdistance
point camera object position x(1), object position y(1), object position z(1)
endif

rem place camera, variant 2
if camvariant=2
position camera 105, 30, 100
point camera object position x(1), object position y(1), object position z(1)
endif

endfunction

function print_status()

set cursor 0,0
print "direction: ";direction(1)
print "moving: ";moving(1)
print "speed: ";speed(1)
print "goal_z";goal_z(1)
print "goal_x";goal_x(1)

endfunction

+ Code Snippet

Rem Project: subtanks
Rem Created: 2004-06-05 21:29:49

Rem ***** Main Source File *****

rem setup
set display mode 1024, 768, 32
sync on
sync rate 60

rem variables
max_players = 2

dim goal_x(max_players)
dim goal_z(max_players)
dim direction(max_players)
dim moving(max_players)
dim speed(max_players)

rem LOAD
load_level()

DO

player_input(1)
update_cam(1)

print_status()

SYNC
LOOP

function load_level()

REM --- PLAYER INIT ---
rem make temp player char
make object box 1, 9, 9, 9
position object 1, 20, 5, 20
color object 1, rgb(0,60,80)

direction(1) = 0
moving(1) = 0
speed(1) = 1
goal_z(1) = object position z(1)
goal_x(1) = object position x(1)
REM --- PLAYER INIT END ---

REM WORLD VARIABLES
rem 1 will be added so its the same thing as 20
block=19

worldwidth = 200
worldheight = 200
REM WORLD VARIABLES END

REM MAKE LIGHT AND STUFF
remstart
rem make reference point
make object sphere 10, 5
position object 10, worldwidth/2+5, 10, worldheight/2

rem make light
make light 9
position light 9, worldwidth/2+5, 10, worldheight/2
remend
REM LIGHT AND STUFF END

rem make world, matrix
make matrix 1, worldwidth, worldheight, worldwidth/10, worldheight/10
position matrix 1, 5, -5, 0

remstart
load image "textures/ground.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
remend

update matrix 1

for mazey = 1 to worldheight/10
   for mazex = 1 to worldwidth/10
      read maze
      rem if a block was found
      if maze = 1
         inc block
         make object box block, 10, 10, 10
         color object block, rgb(40,15,15)
         position object block, mazex*10, groundheight, mazey*10-5
      endif
   next mazex
next mazey

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

endfunction

function player_input(object)

remstart check player input
up - 1
right - 2
down - 3
left - 4
remend
if moving(object)=0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
rem    if direction(object) > 0 then moving(object)=1
endif

rem BIG CHANGE here, moved the part when setting moving(object) to 1 up to
rem where it decides direction from input and only calls the move function
rem if the cube is moving (i.e. moving(object)=1). The reason is that the cube wont move,
rem i added the print status / debugging thing and found out that moving(1) is always 1,
rem so the game wont take input... it only does so if the moving(object)=0.
rem
rem I did solve that by setting the an if statment to only make moving(object) to 1
rem if direction is greater than 0. See that?
rem
rem The main problem now is that the cube wont move :( still... i dont know what i am
rem doing wrong :P. The print status claims that both direction and moving are changed
rem accordingly if an arrowkey is pressed. No idea what could be wrong...

rem if moving(object)=1 then
move(object)
endfunction

function move(object)

rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10
   moving(object)=1
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 5, object position z(object) + speed(object)
   endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object) + speed(object), 5, object position z(object)
   endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 5, object position z(object) - speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object) - speed(object), 5, object position z(object)
   endif

rem if its at its destination
rem
rem Here I think something needs to be changed... Just a feeling :P
rem
rem Anyways, i think the error is somewhere in this function. Because the debugging
rem function shows that both direction and movement flags are updated when a key is pressed
rem but the goal_x and goal_z remains the same... why?

if (object position z(object)=goal_z(object)) and (object position x(object)=goal_x(object))
   moving(object)=0
   direction(object)=0
endif

endfunction

function update_cam(camvariant)

camdistance = 50

rem place camera
if camvariant=1
position camera object position x(1), object position y(1)+camdistance, object position z(1)-camdistance
point camera object position x(1), object position y(1), object position z(1)
endif

rem place camera, variant 2
if camvariant=2
position camera 105, 30, 100
point camera object position x(1), object position y(1), object position z(1)
endif

endfunction

function print_status()

set cursor 0,0
print "direction: ";direction(1)
print "moving: ";moving(1)
print "speed: ";speed(1)
print "goal_z";goal_z(1)
print "goal_x";goal_x(1)

endfunction

Cheers
Mizipzor

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 6th Jun 2004 21:20

Link

LOL... guess what was wrong

The reason to why the cube didnt seem to be snapped to the grid in the other camangle was that it all along have been floatin 5 units above it

.

Hehe, smashed that bug to... heres the fixed code:

Rem Project: subtanks
Rem Created: 2004-06-05 21:29:49

Rem ***** Main Source File *****

rem setup
set display mode 1024, 768, 32
sync on
sync rate 60

rem variables
max_players = 2

dim goal_x(max_players)
dim goal_z(max_players)
dim direction(max_players)
dim moving(max_players)
dim speed(max_players)

global camvariant = 1

rem LOAD
load_level()

DO

player_input(1)
update_cam()

print_status()

SYNC
LOOP

function load_level()

REM --- PLAYER INIT ---
rem make temp player char
make object box 1, 10, 10, 10
position object 1, 20, 0, 20
color object 1, rgb(0,60,80)

remstart
rem texturise player
load image "textures/steel.bmp",1
texture object 1, 1
delete image 1
remend

direction(1) = 0
moving(1) = 0
speed(1) = 1
goal_z(1) = object position z(1)
goal_x(1) = object position x(1)
REM --- PLAYER INIT END ---

REM WORLD VARIABLES
rem 1 will be added so its the same thing as 20
block=19

worldwidth = 200
worldheight = 200
REM WORLD VARIABLES END

REM MAKE LIGHT AND STUFF
remstart
rem make reference point
make object sphere 10, 5
position object 10, worldwidth/2+5, 10, worldheight/2

rem make light
make light 9
position light 9, worldwidth/2+5, 10, worldheight/2
remend
REM LIGHT AND STUFF END

rem make world, matrix
make matrix 1, worldwidth, worldheight, worldwidth/10, worldheight/10
position matrix 1, 5, -5, 5

remstart
load image "textures/ground.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
remend

update matrix 1

for mazey = 1 to worldheight/10
   for mazex = 1 to worldwidth/10
      read maze
      rem if a block was found
      if maze = 1
         inc block
         make object box block, 10, 10, 10
         color object block, rgb(40,15,15)
         position object block, mazex*10, groundheight, mazey*10-5
      endif
   next mazex
next mazey

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

endfunction

function player_input(object)

remstart check player input
up - 1
right - 2
down - 3
left - 4
remend
if moving(object)=0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
rem    if direction(object) > 0 then moving(object)=1
endif

rem BIG CHANGE here, moved the part when setting moving(object) to 1 up to
rem where it decides direction from input and only calls the move function
rem if the cube is moving (i.e. moving(object)=1). The reason is that the cube wont move,
rem i added the print status / debugging thing and found out that moving(1) is always 1,
rem so the game wont take input... it only does so if the moving(object)=0.
rem
rem I did solve that by setting the an if statment to only make moving(object) to 1
rem if direction is greater than 0. See that?
rem
rem The main problem now is that the cube wont move :( still... i dont know what i am
rem doing wrong :P. The print status claims that both direction and moving are changed
rem accordingly if an arrowkey is pressed. No idea what could be wrong...

rem if moving(object)=1 then
move(object)
endfunction

function move(object)

rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10
   moving(object)=1
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 0, object position z(object) + speed(object)
   endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object) + speed(object), 0, object position z(object)
   endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 0, object position z(object) - speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object) - speed(object), 0, object position z(object)
   endif

rem if its at its destination
rem
rem Here I think something needs to be changed... Just a feeling :P
rem
rem Anyways, i think the error is somewhere in this function. Because the debugging
rem function shows that both direction and movement flags are updated when a key is pressed
rem but the goal_x and goal_z remains the same... why?

if (object position z(object)=goal_z(object)) and (object position x(object)=goal_x(object))
   moving(object)=0
   direction(object)=0
endif

endfunction

function update_cam()

camdistance = 50

if scancode()=16 then camvariant = 1
if scancode()=17 then camvariant = 2

rem place camera
if camvariant=1
position camera object position x(1), object position y(1)+camdistance, object position z(1)-camdistance
point camera object position x(1), object position y(1), object position z(1)
endif

rem place camera, variant 2
if camvariant=2
position camera 105, 30, 100
point camera object position x(1), object position y(1), object position z(1)
endif

endfunction

function print_status()

set cursor 0,0
print "direction: ";direction(1)
print "moving: ";moving(1)
print "speed: ";speed(1)
print "goal_z";goal_z(1)
print "goal_x";goal_x(1)

endfunction

+ Code Snippet

Rem Project: subtanks
Rem Created: 2004-06-05 21:29:49

Rem ***** Main Source File *****

rem setup
set display mode 1024, 768, 32
sync on
sync rate 60

rem variables
max_players = 2

dim goal_x(max_players)
dim goal_z(max_players)
dim direction(max_players)
dim moving(max_players)
dim speed(max_players)

global camvariant = 1

rem LOAD
load_level()

DO

player_input(1)
update_cam()

print_status()

SYNC
LOOP

function load_level()

REM --- PLAYER INIT ---
rem make temp player char
make object box 1, 10, 10, 10
position object 1, 20, 0, 20
color object 1, rgb(0,60,80)

remstart
rem texturise player
load image "textures/steel.bmp",1
texture object 1, 1
delete image 1
remend

direction(1) = 0
moving(1) = 0
speed(1) = 1
goal_z(1) = object position z(1)
goal_x(1) = object position x(1)
REM --- PLAYER INIT END ---

REM WORLD VARIABLES
rem 1 will be added so its the same thing as 20
block=19

worldwidth = 200
worldheight = 200
REM WORLD VARIABLES END

REM MAKE LIGHT AND STUFF
remstart
rem make reference point
make object sphere 10, 5
position object 10, worldwidth/2+5, 10, worldheight/2

rem make light
make light 9
position light 9, worldwidth/2+5, 10, worldheight/2
remend
REM LIGHT AND STUFF END

rem make world, matrix
make matrix 1, worldwidth, worldheight, worldwidth/10, worldheight/10
position matrix 1, 5, -5, 5

remstart
load image "textures/ground.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1
remend

update matrix 1

for mazey = 1 to worldheight/10
   for mazex = 1 to worldwidth/10
      read maze
      rem if a block was found
      if maze = 1
         inc block
         make object box block, 10, 10, 10
         color object block, rgb(40,15,15)
         position object block, mazex*10, groundheight, mazey*10-5
      endif
   next mazex
next mazey

data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

endfunction

function player_input(object)

remstart check player input
up - 1
right - 2
down - 3
left - 4
remend
if moving(object)=0
   if upkey()=1 then direction(object)=1
   if rightkey()=1 then direction(object)=2
   if downkey()=1 then direction(object)=3
   if leftkey()=1 then direction(object)=4
rem    if direction(object) > 0 then moving(object)=1
endif

rem BIG CHANGE here, moved the part when setting moving(object) to 1 up to
rem where it decides direction from input and only calls the move function
rem if the cube is moving (i.e. moving(object)=1). The reason is that the cube wont move,
rem i added the print status / debugging thing and found out that moving(1) is always 1,
rem so the game wont take input... it only does so if the moving(object)=0.
rem
rem I did solve that by setting the an if statment to only make moving(object) to 1
rem if direction is greater than 0. See that?
rem
rem The main problem now is that the cube wont move :( still... i dont know what i am
rem doing wrong :P. The print status claims that both direction and moving are changed
rem accordingly if an arrowkey is pressed. No idea what could be wrong...

rem if moving(object)=1 then
move(object)
endfunction

function move(object)

rem if object isnt moving, set its status to moving and set distance
if moving(object)=0
   if direction(object)=1 then goal_z(object)=object position z(object) + 10
   if direction(object)=2 then goal_x(object)=object position x(object) + 10
   if direction(object)=3 then goal_z(object)=object position z(object) - 10
   if direction(object)=4 then goal_x(object)=object position x(object) - 10
   moving(object)=1
endif

rem if its moving....
if moving(object)=1
   rem up
   if goal_z(object) > object position z(object)
      position object object, object position x(object), 0, object position z(object) + speed(object)
   endif
   rem right
   if goal_x(object) > object position x(object)
      position object object, object position x(object) + speed(object), 0, object position z(object)
   endif
   rem down
   if goal_z(object) < object position z(object)
      position object object, object position x(object), 0, object position z(object) - speed(object)
   endif
   rem left
   if goal_x(object) < object position x(object)
      position object object, object position x(object) - speed(object), 0, object position z(object)
   endif

rem if its at its destination
rem
rem Here I think something needs to be changed... Just a feeling :P
rem
rem Anyways, i think the error is somewhere in this function. Because the debugging
rem function shows that both direction and movement flags are updated when a key is pressed
rem but the goal_x and goal_z remains the same... why?

if (object position z(object)=goal_z(object)) and (object position x(object)=goal_x(object))
   moving(object)=0
   direction(object)=0
endif

endfunction

function update_cam()

camdistance = 50

if scancode()=16 then camvariant = 1
if scancode()=17 then camvariant = 2

rem place camera
if camvariant=1
position camera object position x(1), object position y(1)+camdistance, object position z(1)-camdistance
point camera object position x(1), object position y(1), object position z(1)
endif

rem place camera, variant 2
if camvariant=2
position camera 105, 30, 100
point camera object position x(1), object position y(1), object position z(1)
endif

endfunction

function print_status()

set cursor 0,0
print "direction: ";direction(1)
print "moving: ";moving(1)
print "speed: ";speed(1)
print "goal_z";goal_z(1)
print "goal_x";goal_x(1)

endfunction

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 7th Jun 2004 04:15

Link

Hmm...

Not sure what you mean by the camera function stuff, but then I'm still asleep as I just crawled out of bed. Was working so much I completely lost track of time, and simply forgot to go to bed.

I'll look it over and get back to you.
S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 7th Jun 2004 05:12

Link

Wow!

I must say I like the camera variant, it makes for a very nice viewing option! I did have a little problem getting it to run though, the first being I have classic that doesn't know the keyword GLOBAL. But that was easy to fix, "dim camvariant(1)"

Second, I still had to add in that second ENDIF at the bottom of the move() function, for it complained of a nesting error. But hey, it ran and looks great!!!

Now we just gotta come up with something to use this code....

S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 7th Jun 2004 09:42

Link

So typical me... struggle my ass off with the code for the game engine and I dont even know what to use it for yet

.

But why dont team up? We could discuss every game aspect and code error throughout the project. We seem pretty much on the same level. The only thing, as you said, is that you have DB Classic but that shouldnt be to hard to convert between

.

Just wonder how long the moderators will let us clutter up the board with this... hehe...

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 7th Jun 2004 14:11

Link

Well I did try to send you a email confirmation of subject "AI" from the misc. topics thread, but I guess you never received it for some reason. When I tried to send the code snip I mentioed in this thread, I got a notice saying "unacceptable user" or something like that from the mail client. (Don't know why it said that, but it did says it sent the letter on a second try.)

Anyway, maybe we could start a new thread if need be, now that we this part of it working at least. I suppose the next thing is keeping the cube inside the world.

S.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 7th Jun 2004 16:03

Link

Yeah... Ive been thinking of that... sort of collision detection. One way, i thought, would be to use pick object and if there wasnt any cube there then the move could be done. But pick object uses the screen coordinates and not the worlds coordinates. Another way, i havent figured out how it works exactly, but if we could read from those DATA statements i had to build the level and see if there is a "1" in the tile were going to. If there is... no move

However, Ill start a new thread and call it "Subtanks project" and state that there is something that been growing through this discussion and that everyone is free to join in.

See ya there
Cheers
Mizipzor

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

Mizipzor

20

Years of Service

User Offline

Joined: 24th May 2004

Location: Sweden

Posted: 7th Jun 2004 16:15

Link

New thread up

Post post post... Im feeling lonely

Dreaming of creating a highly advanced AI mind

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / my cube wont move... help appreciated :)