newxvalue & newzvalue problem - GameCreators Forum

Author

Message

demons breath

20

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 11th Oct 2009 21:00 Edited at: 11th Oct 2009 21:48

Link

OK I'm trying to ease myself back into this after my years of absence, and I was trying to figure out how to basically move some dots around a screen. Was doing alright, til I remembered I was rubbish, and promptly ran into a bit of a fix.

I have an array storing x and y positions of these dots, as well as their direction and colour. However they all head either left, up or somewhere in between the two - the angles seem limited to the 180-270 range. Also a few dots stay immobile and completely refuse to co-operate.

in BallArray:
(n,1) is x position
(n,2) is y position
(n,3) is object angle
(n,6) is irrelevant to the question but I thought I should include it because it was effort to remove that part, compared to the other bits.

cls
sync on
rem sync rate 60
randomize timer()

dim BallArray(100,7)

for t=1 to 100
  BallArray(t,1)=rnd(600)+20
  BallArray(t,2)=rnd(440)+20
  BallArray(t,3)=rnd(359)
  BallArray(t,6)=rnd(2)
next t

do
cls
for t=1 to 100
  BallArray(t,1)=newxvalue(BallArray(t,1),BallArray(t,3),1)
  BallArray(t,2)=newzvalue(BallArray(t,2),BallArray(t,3),1)
next t
for t=1 to 100
  if BallArray(t,6)=0
    ink rgb(255,0,0),1
    dot BallArray(t,1),BallArray(t,2)-1
    dot BallArray(t,1)-1,BallArray(t,2)
    dot BallArray(t,1),BallArray(t,2)
    dot BallArray(t,1)+1,BallArray(t,2)
    dot BallArray(t,1),BallArray(t,2)+1
  endif
  if BallArray(t,6)=1
    ink rgb(0,255,0),1
    dot BallArray(t,1),BallArray(t,2)-1
    dot BallArray(t,1)-1,BallArray(t,2)
    dot BallArray(t,1),BallArray(t,2)
    dot BallArray(t,1)+1,BallArray(t,2)
    dot BallArray(t,1),BallArray(t,2)+1
  endif
  if BallArray(t,6)=2
    ink rgb(0,0,255),1
    dot BallArray(t,1),BallArray(t,2)-1
    dot BallArray(t,1)-1,BallArray(t,2)
    dot BallArray(t,1),BallArray(t,2)
    dot BallArray(t,1)+1,BallArray(t,2)
    dot BallArray(t,1),BallArray(t,2)+1
  endif
next t
sync
loop

+ Code Snippet

cls
sync on
rem sync rate 60
randomize timer()

dim BallArray(100,7)

for t=1 to 100
  BallArray(t,1)=rnd(600)+20
  BallArray(t,2)=rnd(440)+20
  BallArray(t,3)=rnd(359)
  BallArray(t,6)=rnd(2)
next t

do
cls
for t=1 to 100
  BallArray(t,1)=newxvalue(BallArray(t,1),BallArray(t,3),1)
  BallArray(t,2)=newzvalue(BallArray(t,2),BallArray(t,3),1)
next t
for t=1 to 100
  if BallArray(t,6)=0
    ink rgb(255,0,0),1
    dot BallArray(t,1),BallArray(t,2)-1
    dot BallArray(t,1)-1,BallArray(t,2)
    dot BallArray(t,1),BallArray(t,2)
    dot BallArray(t,1)+1,BallArray(t,2)
    dot BallArray(t,1),BallArray(t,2)+1
  endif
  if BallArray(t,6)=1
    ink rgb(0,255,0),1
    dot BallArray(t,1),BallArray(t,2)-1
    dot BallArray(t,1)-1,BallArray(t,2)
    dot BallArray(t,1),BallArray(t,2)
    dot BallArray(t,1)+1,BallArray(t,2)
    dot BallArray(t,1),BallArray(t,2)+1
  endif
  if BallArray(t,6)=2
    ink rgb(0,0,255),1
    dot BallArray(t,1),BallArray(t,2)-1
    dot BallArray(t,1)-1,BallArray(t,2)
    dot BallArray(t,1),BallArray(t,2)
    dot BallArray(t,1)+1,BallArray(t,2)
    dot BallArray(t,1),BallArray(t,2)+1
  endif
next t
sync
loop

Edit: By changing BallArray to a float array instead, the problem of staying immobile or only moving up, down or diagonally up and left has been solved. However there is now a stream going roughly from the bottom left corner to the top right corner.

+ Code Snippet

cls
sync on
rem sync rate 60
randomize timer()

dim BallArray#(100,7)

for t=1 to 100
  BallArray#(t,1)=rnd(600)+20
  BallArray#(t,2)=rnd(440)+20
  BallArray#(t,3)=rnd(359)
  BallArray#(t,6)=rnd(2)
next t

do
cls
for t=1 to 100
  BallArray#(t,1)=newxvalue(BallArray#(t,1),BallArray#(t,3),1)
  BallArray#(t,2)=newyvalue(BallArray#(t,2),BallArray#(t,3),1)
next t
for t=1 to 100
  if BallArray#(t,6)=0
    ink rgb(255,0,0),1
    gosub DrawDot
  endif
  if BallArray#(t,6)=1
    ink rgb(0,255,0),1
    gosub DrawDot
  endif
  if BallArray#(t,6)=2
    ink rgb(0,0,255),1
    gosub DrawDot
  endif
next t
sync
loop

DrawDot:
  dot BallArray#(t,1),BallArray#(t,2)-1
  dot BallArray#(t,1)-1,BallArray#(t,2)
  dot BallArray#(t,1),BallArray#(t,2)
  dot BallArray#(t,1)+1,BallArray#(t,2)
  dot BallArray#(t,1),BallArray#(t,2)+1
return

I can't figure out why there are only a couple of directions it appears to move in.

"A West Texas girl, just like me"
-Bush

Back to top

Profile PM Website

TheComet

16

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 11th Oct 2009 21:46

Link

Try using floats. You set your array to be a dword. dwords round the numbers to whole numbers (1,2,3,4...), but newxvalue and newzvalue return floats (0.67483,3.47363...). By adding a "#" behind the array or variable, you change it to a float. By adding a "$" you change it to a string. I was bored, so I did it for you:

cls
sync on
rem sync rate 60
randomize timer()

dim BallArray#(100,7)

for t=1 to 100
  BallArray#(t,1)=rnd(600)+20
  BallArray#(t,2)=rnd(440)+20
  BallArray#(t,3)=rnd(359)
  BallArray#(t,6)=rnd(2)
next t

do
cls
for t=1 to 100
  BallArray#(t,1)=newxvalue(BallArray#(t,1),BallArray#(t,3),1)
  BallArray#(t,2)=newzvalue(BallArray#(t,2),BallArray#(t,3),1)
next t
for t=1 to 100
  if BallArray#(t,6)=0
    ink rgb(255,0,0),1
    dot BallArray#(t,1),BallArray#(t,2)-1
    dot BallArray#(t,1)-1,BallArray#(t,2)
    dot BallArray#(t,1),BallArray#(t,2)
    dot BallArray#(t,1)+1,BallArray#(t,2)
    dot BallArray#(t,1),BallArray#(t,2)+1
  endif
  if BallArray#(t,6)=1
    ink rgb(0,255,0),1
    dot BallArray#(t,1),BallArray#(t,2)-1
    dot BallArray#(t,1)-1,BallArray#(t,2)
    dot BallArray#(t,1),BallArray#(t,2)
    dot BallArray#(t,1)+1,BallArray#(t,2)
    dot BallArray#(t,1),BallArray#(t,2)+1
  endif
  if BallArray#(t,6)=2
    ink rgb(0,0,255),1
    dot BallArray#(t,1),BallArray#(t,2)-1
    dot BallArray#(t,1)-1,BallArray#(t,2)
    dot BallArray#(t,1),BallArray#(t,2)
    dot BallArray#(t,1)+1,BallArray#(t,2)
    dot BallArray#(t,1),BallArray#(t,2)+1
  endif
next t
sync
loop

+ Code Snippet

cls
sync on
rem sync rate 60
randomize timer()

dim BallArray#(100,7)

for t=1 to 100
  BallArray#(t,1)=rnd(600)+20
  BallArray#(t,2)=rnd(440)+20
  BallArray#(t,3)=rnd(359)
  BallArray#(t,6)=rnd(2)
next t

do
cls
for t=1 to 100
  BallArray#(t,1)=newxvalue(BallArray#(t,1),BallArray#(t,3),1)
  BallArray#(t,2)=newzvalue(BallArray#(t,2),BallArray#(t,3),1)
next t
for t=1 to 100
  if BallArray#(t,6)=0
    ink rgb(255,0,0),1
    dot BallArray#(t,1),BallArray#(t,2)-1
    dot BallArray#(t,1)-1,BallArray#(t,2)
    dot BallArray#(t,1),BallArray#(t,2)
    dot BallArray#(t,1)+1,BallArray#(t,2)
    dot BallArray#(t,1),BallArray#(t,2)+1
  endif
  if BallArray#(t,6)=1
    ink rgb(0,255,0),1
    dot BallArray#(t,1),BallArray#(t,2)-1
    dot BallArray#(t,1)-1,BallArray#(t,2)
    dot BallArray#(t,1),BallArray#(t,2)
    dot BallArray#(t,1)+1,BallArray#(t,2)
    dot BallArray#(t,1),BallArray#(t,2)+1
  endif
  if BallArray#(t,6)=2
    ink rgb(0,0,255),1
    dot BallArray#(t,1),BallArray#(t,2)-1
    dot BallArray#(t,1)-1,BallArray#(t,2)
    dot BallArray#(t,1),BallArray#(t,2)
    dot BallArray#(t,1)+1,BallArray#(t,2)
    dot BallArray#(t,1),BallArray#(t,2)+1
  endif
next t
sync
loop

So, have fun!

There's no guaranty this will work because I didn't compile it. If there is a problem, check if I added the "#" after every array. If you have any further problems, please post!

TheComet

Make the paths of your enemies easier with WaypointPro!

Back to top

Profile PM Email Website

demons breath

20

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 11th Oct 2009 21:50 Edited at: 12th Oct 2009 03:55

Link

@TheComet: Thanks, I'd just had a bash at that myself actually, but it's still problematic in that the whole random direction thing appears to be less random and more - sort of all in one of the same 2 directions...

Edit: Hmmm never mind, your new version works perfectly, whereas my amendment just created a different problem. I hope I haven't done anything too stupid. I'll have a little compare of the two...

One more edit: Never mind. I'd done something stupid in the middle when I was fiddling about. Let's not mention it. Thanks for the help mate.

Here's the code so far:

cls
sync on
rem sync rate 60
randomize timer()

dim BallArray#(100,7)
leftbound=20
rightbound=620
upperbound=20
lowerbound=460
ballspeed=2

for t=1 to 100
  BallArray#(t,1)=rnd(580)+30
  BallArray#(t,2)=rnd(430)+30
  repeat
    BallArray#(t,3)=rnd(359)
  until BallArray#(t,3)<>0 and BallArray#(t,3)<>90 and BallArray#(t,3)<>180 and BallArray#(t,3)<>270
  BallArray#(t,6)=rnd(2)
next t

do
cls rgb(30,30,30)
for t=1 to 100
  if BallArray#(t,1)<=leftbound+2
    BallArray#(t,3)=Wrapvalue(360-BallArray#(t,3))
  endif
  if BallArray#(t,1)>=rightbound-2
    BallArray#(t,3)=Wrapvalue(360-BallArray#(t,3))
  endif
  if BallArray#(t,2)<=upperbound+2
    BallArray#(t,3)=Wrapvalue(180-BallArray#(t,3))
  endif
  if BallArray#(t,2)>=lowerbound-2
    BallArray#(t,3)=Wrapvalue(180-BallArray#(t,3))
  endif
  BallArray#(t,1)=newxvalue(BallArray#(t,1),BallArray#(t,3),5)
  BallArray#(t,2)=newzvalue(BallArray#(t,2),BallArray#(t,3),5)
next t
for t=1 to 100
  if BallArray#(t,6)=0
    ink rgb(255,0,0),1
    gosub DrawDot
  endif
  if BallArray#(t,6)=1
    ink rgb(0,255,0),1
    gosub DrawDot
  endif
  if BallArray#(t,6)=2
    ink rgb(0,0,255),1
    gosub DrawDot
  endif
next t
gosub DrawBoundaries
sync
loop

DrawDot:
  dot BallArray#(t,1),BallArray#(t,2)-1
  dot BallArray#(t,1)-1,BallArray#(t,2)
  dot BallArray#(t,1),BallArray#(t,2)
  dot BallArray#(t,1)+1,BallArray#(t,2)
  dot BallArray#(t,1),BallArray#(t,2)+1
return

DrawBoundaries:
for t=0 to 2
  ink rgb(30+5*(5-t),30+5*(5-t),30+5*(5-t)),1
  line leftbound+t,0,leftbound+t,480
  line leftbound-t,0,leftbound-t,480
  line rightbound+t,0,rightbound+t,480
  line rightbound-t,0,rightbound-t,480
  line 0,upperbound+t,640,upperbound+t
  line 0,upperbound-t,640,upperbound-t
  line 0,lowerbound+t,640,lowerbound+t
  line 0,lowerbound-t,640,lowerbound-t
next t
return

+ Code Snippet

cls
sync on
rem sync rate 60
randomize timer()

dim BallArray#(100,7)
leftbound=20
rightbound=620
upperbound=20
lowerbound=460
ballspeed=2

for t=1 to 100
  BallArray#(t,1)=rnd(580)+30
  BallArray#(t,2)=rnd(430)+30
  repeat
    BallArray#(t,3)=rnd(359)
  until BallArray#(t,3)<>0 and BallArray#(t,3)<>90 and BallArray#(t,3)<>180 and BallArray#(t,3)<>270
  BallArray#(t,6)=rnd(2)
next t

do
cls rgb(30,30,30)
for t=1 to 100
  if BallArray#(t,1)<=leftbound+2
    BallArray#(t,3)=Wrapvalue(360-BallArray#(t,3))
  endif
  if BallArray#(t,1)>=rightbound-2
    BallArray#(t,3)=Wrapvalue(360-BallArray#(t,3))
  endif
  if BallArray#(t,2)<=upperbound+2
    BallArray#(t,3)=Wrapvalue(180-BallArray#(t,3))
  endif
  if BallArray#(t,2)>=lowerbound-2
    BallArray#(t,3)=Wrapvalue(180-BallArray#(t,3))
  endif
  BallArray#(t,1)=newxvalue(BallArray#(t,1),BallArray#(t,3),5)
  BallArray#(t,2)=newzvalue(BallArray#(t,2),BallArray#(t,3),5)
next t
for t=1 to 100
  if BallArray#(t,6)=0
    ink rgb(255,0,0),1
    gosub DrawDot
  endif
  if BallArray#(t,6)=1
    ink rgb(0,255,0),1
    gosub DrawDot
  endif
  if BallArray#(t,6)=2
    ink rgb(0,0,255),1
    gosub DrawDot
  endif
next t
gosub DrawBoundaries
sync
loop

DrawDot:
  dot BallArray#(t,1),BallArray#(t,2)-1
  dot BallArray#(t,1)-1,BallArray#(t,2)
  dot BallArray#(t,1),BallArray#(t,2)
  dot BallArray#(t,1)+1,BallArray#(t,2)
  dot BallArray#(t,1),BallArray#(t,2)+1
return

DrawBoundaries:
for t=0 to 2
  ink rgb(30+5*(5-t),30+5*(5-t),30+5*(5-t)),1
  line leftbound+t,0,leftbound+t,480
  line leftbound-t,0,leftbound-t,480
  line rightbound+t,0,rightbound+t,480
  line rightbound-t,0,rightbound-t,480
  line 0,upperbound+t,640,upperbound+t
  line 0,upperbound-t,640,upperbound-t
  line 0,lowerbound+t,640,lowerbound+t
  line 0,lowerbound-t,640,lowerbound-t
next t
return

I'm hopefully heading towards a Chain Rxn style thing.
On the other hand I'm temporarily using a trial version of DarkBASIC until I can go home and pick up my disc.

In the meantime, I'm a bit drunk, and I've just found out I have 2 courseworks due in tomorrow (I though it was just the one, which I was going to do between when lectures finish at 10 and when it's due in at 3, but no, looks like all-nighter time.)

"A West Texas girl, just like me"
-Bush

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Discussion / newxvalue & newzvalue problem

Sorry your browser is not supported!

DarkBASIC Discussion / newxvalue &amp; newzvalue problem

DarkBASIC Discussion / newxvalue & newzvalue problem