ok, need help..

[xteraco]

wanna put an array in a sub i gues, ytf wont this work!!!???

Code:

screen 13
dim a(100) as integer
declare sub xmover(xmov,ymov,a(x))
declare sub xmover2(xmov,ymov,a(x))
dim x as integer

xmov = 1
ymov = 1

do

for i = 1 to 320  
xmover(xmov,ymov,a(x))

x = x + 5

a(x) = 1 + x
a(x) = a(x) + 1

sleep 10
next

for i = 320 to 1 step -1
   xmover2(xmov,ymov,a(x))
   x = x + 5

a(x) = 1 + x
a(x) = a(x) + 1
sleep 10
next
  
loop

sub xmover(xmov,ymov,a(x))
   circle(xmov,ymov),a(x),3
   xmov = xmov + 1
end sub

sub xmover2(xmov,ymov,a(x))
   circle(xmov,ymov),a(x),3
   xmov = xmov - 1
end sub

[DrV]

Try this:

Code:

screen 13
dim a(100) as integer
declare sub xmover(xmov,ymov,a(),x)
declare sub xmover2(xmov,ymov,a(),x)
dim x as integer

xmov = 1
ymov = 1

do

for i = 1 to 320  
xmover(xmov,ymov,a(),x)

x = x + 5

a(x) = 1 + x
a(x) = a(x) + 1

sleep 10
next

for i = 320 to 1 step -1
   xmover2(xmov,ymov,a(),x)
   x = x + 5

a(x) = 1 + x
a(x) = a(x) + 1
sleep 10
next
  
loop

sub xmover(xmov,ymov,a(),x)
   circle(xmov,ymov),a(x),3
   xmov = xmov + 1
end sub

sub xmover2(xmov,ymov,a(),x)
   circle(xmov,ymov),a(x),3
   xmov = xmov - 1
end sub

You should really put in some kind of keyboard check, though, to allow the user to exit.