what wrong - GameCreators Forum

Author

Message

Plugged

23

Years of Service

User Offline

Joined: 30th Nov 2002

Location: Hertfordshire

Posted: 22nd Oct 2003 21:35

Link

can some one just proof read this moving code for me

cheers

CLear Coder

Back to top

Profile PM Email

OSX Using Happy Dude

22

Years of Service

User Offline

Joined: 21st Aug 2003

Location: At home

Posted: 22nd Oct 2003 21:41

Link

Not complete - whats wrong with the code ?

Avatar & Logo by Indi. Insert witty comment here...

Back to top

Profile PM Email Website

Plugged

23

Years of Service

User Offline

Joined: 30th Nov 2002

Location: Hertfordshire

Posted: 22nd Oct 2003 22:03

Link

it surposed to move object 1 either left right up or down depending or where he is it will as do the collision and see if he can move there colblock() and if he is changeing levels he will be positioned on the new level block this code is in the main loop for more information and some screens go to the old thread

http://darkbasicpro.thegamecreators.com/?m=forum_view&t=18802&b=1

thx

CLear Coder

Back to top

Profile PM Email

Plugged

23

Years of Service

User Offline

Joined: 30th Nov 2002

Location: Hertfordshire

Posted: 23rd Oct 2003 17:08

Link

sorry i see what you mean now coding area heres the full code

if movin#=0
  wherecandn#=0
  wherecanup#=0
  wherecanlt#=0
  wherecanrt#=0
  newplayerwherex#=playerwherex#
  newplayerwherey#=playerwherey#
  diffY#=0
  if playerwherey#<10
   if colblock(playerwherex#,playerwherey#+1)=0 then wherecandn#=1
  endif
  if playerwherey#>2
   if colblock(playerwherex#,playerwherey#-1)=0 then wherecanup#=1
  endif
  if playerwherex#<10
   if colblock(playerwherex#+1,playerwherey#)=0 then wherecanlt#=1
  endif
  if playerwherex#>2
   if colblock(playerwherex#-1,playerwherey#)=0 then wherecanrt#=1
  endif
  if wherecanup#=1
   if upkey()=1
    movin#=1
    newplayerwherey#=playerwherey#-1
   endif
  endif
  if wherecanlt#=1
   if leftkey()=1
    movin#=2
    newplayerwherex#=playerwherex#+1
   Endif
  endif
  if wherecanrt#=1
   if rightkey()=1
    movin#=3
    newplayerwherex#=playerwherex#-1
   endif
  endif
  if wherecandn#=1
   if downkey()=1
    movin#=4
    newplayerwherey#=playerwherey#+1
   endif
  endif
  if movin#>0
   if block(playerwherex#,playerwherey#)>block(newplayerwherex#,newplayerwherey#) then diffY#=-1
   if block(playerwherex#,playerwherey#)<block(newplayerwherex#,newplayerwherey#) then diffY#=1
   if block(playerwherex#,playerwherey#)=block(newplayerwherex#,newplayerwherey#) then diffY#=0
   takeY#=0
  endif
 else
  if movin#=1
    Z#=Z#-5
    movintimer#=movintimer#+1
  endif
  if movin#=2
    X#=X#+5
    movintimer#=movintimer#+1
  endif
  if movin#=3
    X#=X#-5
    movintimer#=movintimer#+1
  endif
  if movin#=4
    Z#=Z#+5
    movintimer#=movintimer#+1
  endif
  if movintimer#=8
   if movin#=1 then playerwherey#=playerwherey#-1
   if movin#=2 then playerwherex#=playerwherex#+1
   if movin#=3 then playerwherex#=playerwherex#-1
   if movin#=4 then playerwherey#=playerwherey#+1
   movintimer#=0
   movin#=0
  endif
 endif
 `gosub tcol
 if block(playerwherex#,playerwherey#)=2 then Y#=80
 if block(playerwherex#,playerwherey#)=0 then Y#=40
 if block(playerwherex#,playerwherey#)=1 then Y#=60
 if diffY#=0
  if movin#=1
   point object 1,X#,Y#,Z#+20
  endif
  if movin#=2
   point object 1,X#-20,Y#,Z#
  endif
  if movin#=3
   point object 1,X#+20,Y#,Z#
  endif
  if movin#=4
   point object 1,X#,Y#,Z#-20
  endif
  position object 1,X#,Y#,Z#
 else
  if diffY#=-1
   hehe#=1
   if Y#=80
    takeY#=takeY#-2.5
    newY#=60+takeY#
    hehe#=2
   endif
   if Y#=60
    takeY#=takeY#-2.5
    newY#=Y#+takeY#
    hehe#=2
   endif
  endif
  if diffY#=1
   if Y#=40
    takeY#=takeY#+2.5
    newY#=60+takeY#
    hehe#=2
   endif
   if Y#=60
    takeY#=takeY#+2.5
    newY#=80+takeY#
    hehe#=2
   endif
  endif
`repos
  if movin#=1
   point object 1,X#,newY#,Z#+20
  endif
  if movin#=2
   point object 1,X#-20,newY#,Z#
  endif
  if movin#=3
   point object 1,X#+20,newY#,Z#
  endif
  if movin#=4
   point object 1,X#,newY#,Z#-20
  endif
  position object 1,X#,Y#,Z#
 endif
 X# = Object position x(1)
 Z# = Object position z(1)

+ Code Snippet

if movin#=0
  wherecandn#=0
  wherecanup#=0
  wherecanlt#=0
  wherecanrt#=0
  newplayerwherex#=playerwherex#
  newplayerwherey#=playerwherey#
  diffY#=0
  if playerwherey#<10
   if colblock(playerwherex#,playerwherey#+1)=0 then wherecandn#=1
  endif
  if playerwherey#>2
   if colblock(playerwherex#,playerwherey#-1)=0 then wherecanup#=1
  endif
  if playerwherex#<10
   if colblock(playerwherex#+1,playerwherey#)=0 then wherecanlt#=1
  endif
  if playerwherex#>2
   if colblock(playerwherex#-1,playerwherey#)=0 then wherecanrt#=1
  endif
  if wherecanup#=1
   if upkey()=1
    movin#=1
    newplayerwherey#=playerwherey#-1
   endif
  endif
  if wherecanlt#=1
   if leftkey()=1
    movin#=2
    newplayerwherex#=playerwherex#+1
   Endif
  endif
  if wherecanrt#=1
   if rightkey()=1
    movin#=3
    newplayerwherex#=playerwherex#-1
   endif
  endif
  if wherecandn#=1
   if downkey()=1
    movin#=4
    newplayerwherey#=playerwherey#+1
   endif
  endif
  if movin#>0
   if block(playerwherex#,playerwherey#)>block(newplayerwherex#,newplayerwherey#) then diffY#=-1
   if block(playerwherex#,playerwherey#)<block(newplayerwherex#,newplayerwherey#) then diffY#=1
   if block(playerwherex#,playerwherey#)=block(newplayerwherex#,newplayerwherey#) then diffY#=0
   takeY#=0
  endif
 else
  if movin#=1
    Z#=Z#-5
    movintimer#=movintimer#+1
  endif
  if movin#=2
    X#=X#+5
    movintimer#=movintimer#+1
  endif
  if movin#=3
    X#=X#-5
    movintimer#=movintimer#+1
  endif
  if movin#=4
    Z#=Z#+5
    movintimer#=movintimer#+1
  endif
  if movintimer#=8
   if movin#=1 then playerwherey#=playerwherey#-1
   if movin#=2 then playerwherex#=playerwherex#+1
   if movin#=3 then playerwherex#=playerwherex#-1
   if movin#=4 then playerwherey#=playerwherey#+1
   movintimer#=0
   movin#=0
  endif
 endif
 `gosub tcol
 if block(playerwherex#,playerwherey#)=2 then Y#=80
 if block(playerwherex#,playerwherey#)=0 then Y#=40
 if block(playerwherex#,playerwherey#)=1 then Y#=60
 if diffY#=0
  if movin#=1
   point object 1,X#,Y#,Z#+20
  endif
  if movin#=2
   point object 1,X#-20,Y#,Z#
  endif
  if movin#=3
   point object 1,X#+20,Y#,Z#
  endif
  if movin#=4
   point object 1,X#,Y#,Z#-20
  endif
  position object 1,X#,Y#,Z#
 else
  if diffY#=-1
   hehe#=1
   if Y#=80
    takeY#=takeY#-2.5
    newY#=60+takeY#
    hehe#=2
   endif
   if Y#=60
    takeY#=takeY#-2.5
    newY#=Y#+takeY#
    hehe#=2
   endif
  endif
  if diffY#=1
   if Y#=40
    takeY#=takeY#+2.5
    newY#=60+takeY#
    hehe#=2
   endif
   if Y#=60
    takeY#=takeY#+2.5
    newY#=80+takeY#
    hehe#=2
   endif
  endif
`repos
  if movin#=1
   point object 1,X#,newY#,Z#+20
  endif
  if movin#=2
   point object 1,X#-20,newY#,Z#
  endif
  if movin#=3
   point object 1,X#+20,newY#,Z#
  endif
  if movin#=4
   point object 1,X#,newY#,Z#-20
  endif
  position object 1,X#,Y#,Z#
 endif
 X# = Object position x(1)
 Z# = Object position z(1)

if doesn't fit in the link one

thanks

CLear Coder

Back to top

Profile PM Email

Plugged

23

Years of Service

User Offline

Joined: 30th Nov 2002

Location: Hertfordshire

Posted: 25th Oct 2003 16:45

Link

has any one got any ideas on the problem coz i'm fresh out of them.

CLear Coder

Back to top

Profile PM Email

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 25th Oct 2003 17:32

Link

Clear_Coder

If you can't provide code that executes, then how about some comments in your code at least!

I was too tired to follow along without comments tonight, but hopefully I or someone else will look at it tomorrow.

Still, any comments in your code would help.

Back to top

Profile PM Email

Plugged

23

Years of Service

User Offline

Joined: 30th Nov 2002

Location: Hertfordshire

Posted: 26th Oct 2003 12:58

Link

okay the code was orginally writen in db the idea is its the movement code for the player on a grid this grid has places blocked off, if colblock is 1 at that point then the player can not go there. this grid also has different levels these are shown in the block array if it is 0 that point in the grid is at level 0 there are 3 levels 0,1 ans 2.

here is the code which comments and an executable form although obiviously it doesn't work

`small set up code
sync on
sync rate 60
make object cube 1,50
dim block(10,10)
dim colblock(10,10)
playerwherex#=2
playerwherey#=10

do
`check if player ios already movin
if movin#=0
`reset variables for the next move
  wherecandn#=0
  wherecanup#=0
  wherecanlt#=0
  wherecanrt#=0
  newplayerwherex#=playerwherex#
  newplayerwherey#=playerwherey#
  diffY#=0
`check where the player can move with the colblock array and store it in the wherecan variables
  if playerwherey#<10
   if colblock(playerwherex#,playerwherey#+1)=0 then wherecandn#=1
  endif
  if playerwherey#>2
   if colblock(playerwherex#,playerwherey#-1)=0 then wherecanup#=1
  endif
  if playerwherex#<10
   if colblock(playerwherex#+1,playerwherey#)=0 then wherecanlt#=1
  endif
  if playerwherex#>2
   if colblock(playerwherex#-1,playerwherey#)=0 then wherecanrt#=1
  endif
`check key to find where the player want to move and set variables accordingly
  if wherecanup#=1
   if upkey()=1
    movin#=1
    newplayerwherey#=playerwherey#-1
   endif
  endif
  if wherecanlt#=1
   if leftkey()=1
    movin#=2
    newplayerwherex#=playerwherex#+1
   Endif
  endif
  if wherecanrt#=1
   if rightkey()=1
    movin#=3
    newplayerwherex#=playerwherex#-1
   endif
  endif
  if wherecandn#=1
   if downkey()=1
    movin#=4
    newplayerwherey#=playerwherey#+1
   endif
  endif
`if the player has decided to move check if he is going to change levels in doing so and store in diffy#
  if movin#>0
   if block(playerwherex#,playerwherey#)>block(newplayerwherex#,newplayerwherey#) then diffY#=-1
   if block(playerwherex#,playerwherey#)<block(newplayerwherex#,newplayerwherey#) then diffY#=1
   if block(playerwherex#,playerwherey#)=block(newplayerwherex#,newplayerwherey#) then diffY#=0
   takeY#=0
  endif
`if the player is moving
 else
 `find which way he is moving and ulter his position to suit and inc the moving timer
  if movin#=1
    Z#=Z#-5
    movintimer#=movintimer#+1
  endif
  if movin#=2
    X#=X#+5
    movintimer#=movintimer#+1
  endif
  if movin#=3
    X#=X#-5
    movintimer#=movintimer#+1
  endif
  if movin#=4
    Z#=Z#+5
    movintimer#=movintimer#+1
  endif
  `check if the player has completed the move and reset
  if movintimer#=8
   if movin#=1 then playerwherey#=playerwherey#-1
   if movin#=2 then playerwherex#=playerwherex#+1
   if movin#=3 then playerwherex#=playerwherex#-1
   if movin#=4 then playerwherey#=playerwherey#+1
   movintimer#=0
   movin#=0
  endif
 endif
 `check player height and set y# accordingly
 if block(playerwherex#,playerwherey#)=2 then Y#=80
 if block(playerwherex#,playerwherey#)=0 then Y#=40
 if block(playerwherex#,playerwherey#)=1 then Y#=60
 `check if the player is changing levels
 if diffY#=0
  `point player object in the right direction
  if movin#=1
   point object 1,X#,Y#,Z#+20
  endif
  if movin#=2
   point object 1,X#-20,Y#,Z#
  endif
  if movin#=3
   point object 1,X#+20,Y#,Z#
  endif
  if movin#=4
   point object 1,X#,Y#,Z#-20
  endif
  `reposition player to new positions
  position object 1,X#,Y#,Z#
`if the player is changing level (this code needs work to get the move perfect)
 else
 `if the player is going down
  if diffY#=-1
   if Y#=80
    takeY#=takeY#-2.5
    newY#=60+takeY#
   endif
   if Y#=60
    takeY#=takeY#-2.5
    newY#=Y#+takeY#
   endif
  endif
 `if the player is going up
  if diffY#=1
   if Y#=40
    takeY#=takeY#+2.5
    newY#=60+takeY#
   endif
   if Y#=60
    takeY#=takeY#+2.5
    newY#=80+takeY#
   endif
  endif
`reposition the player to the new x and z position and point it up or down
  if movin#=1
   point object 1,X#,newY#,Z#+20
  endif
  if movin#=2
   point object 1,X#-20,newY#,Z#
  endif
  if movin#=3
   point object 1,X#+20,newY#,Z#
  endif
  if movin#=4
   point object 1,X#,newY#,Z#-20
  endif
  position object 1,X#,Y#,Z#
 endif
 `save players new positions
 X# = Object position x(1)
 Z# = Object position z(1)
sync
loop

+ Code Snippet

`small set up code
sync on
sync rate 60
make object cube 1,50
dim block(10,10)
dim colblock(10,10)
playerwherex#=2
playerwherey#=10

do
`check if player ios already movin
if movin#=0
`reset variables for the next move
  wherecandn#=0
  wherecanup#=0
  wherecanlt#=0
  wherecanrt#=0
  newplayerwherex#=playerwherex#
  newplayerwherey#=playerwherey#
  diffY#=0
`check where the player can move with the colblock array and store it in the wherecan variables
  if playerwherey#<10
   if colblock(playerwherex#,playerwherey#+1)=0 then wherecandn#=1
  endif
  if playerwherey#>2
   if colblock(playerwherex#,playerwherey#-1)=0 then wherecanup#=1
  endif
  if playerwherex#<10
   if colblock(playerwherex#+1,playerwherey#)=0 then wherecanlt#=1
  endif
  if playerwherex#>2
   if colblock(playerwherex#-1,playerwherey#)=0 then wherecanrt#=1
  endif
`check key to find where the player want to move and set variables accordingly
  if wherecanup#=1
   if upkey()=1
    movin#=1
    newplayerwherey#=playerwherey#-1
   endif
  endif
  if wherecanlt#=1
   if leftkey()=1
    movin#=2
    newplayerwherex#=playerwherex#+1
   Endif
  endif
  if wherecanrt#=1
   if rightkey()=1
    movin#=3
    newplayerwherex#=playerwherex#-1
   endif
  endif
  if wherecandn#=1
   if downkey()=1
    movin#=4
    newplayerwherey#=playerwherey#+1
   endif
  endif
`if the player has decided to move check if he is going to change levels in doing so and store in diffy#
  if movin#>0
   if block(playerwherex#,playerwherey#)>block(newplayerwherex#,newplayerwherey#) then diffY#=-1
   if block(playerwherex#,playerwherey#)<block(newplayerwherex#,newplayerwherey#) then diffY#=1
   if block(playerwherex#,playerwherey#)=block(newplayerwherex#,newplayerwherey#) then diffY#=0
   takeY#=0
  endif
`if the player is moving
 else
 `find which way he is moving and ulter his position to suit and inc the moving timer
  if movin#=1
    Z#=Z#-5
    movintimer#=movintimer#+1
  endif
  if movin#=2
    X#=X#+5
    movintimer#=movintimer#+1
  endif
  if movin#=3
    X#=X#-5
    movintimer#=movintimer#+1
  endif
  if movin#=4
    Z#=Z#+5
    movintimer#=movintimer#+1
  endif
  `check if the player has completed the move and reset
  if movintimer#=8
   if movin#=1 then playerwherey#=playerwherey#-1
   if movin#=2 then playerwherex#=playerwherex#+1
   if movin#=3 then playerwherex#=playerwherex#-1
   if movin#=4 then playerwherey#=playerwherey#+1
   movintimer#=0
   movin#=0
  endif
 endif
 `check player height and set y# accordingly
 if block(playerwherex#,playerwherey#)=2 then Y#=80
 if block(playerwherex#,playerwherey#)=0 then Y#=40
 if block(playerwherex#,playerwherey#)=1 then Y#=60
 `check if the player is changing levels
 if diffY#=0
  `point player object in the right direction
  if movin#=1
   point object 1,X#,Y#,Z#+20
  endif
  if movin#=2
   point object 1,X#-20,Y#,Z#
  endif
  if movin#=3
   point object 1,X#+20,Y#,Z#
  endif
  if movin#=4
   point object 1,X#,Y#,Z#-20
  endif
  `reposition player to new positions
  position object 1,X#,Y#,Z#
`if the player is changing level (this code needs work to get the move perfect)
 else
 `if the player is going down
  if diffY#=-1
   if Y#=80
    takeY#=takeY#-2.5
    newY#=60+takeY#
   endif
   if Y#=60
    takeY#=takeY#-2.5
    newY#=Y#+takeY#
   endif
  endif
 `if the player is going up
  if diffY#=1
   if Y#=40
    takeY#=takeY#+2.5
    newY#=60+takeY#
   endif
   if Y#=60
    takeY#=takeY#+2.5
    newY#=80+takeY#
   endif
  endif
`reposition the player to the new x and z position and point it up or down
  if movin#=1
   point object 1,X#,newY#,Z#+20
  endif
  if movin#=2
   point object 1,X#-20,newY#,Z#
  endif
  if movin#=3
   point object 1,X#+20,newY#,Z#
  endif
  if movin#=4
   point object 1,X#,newY#,Z#-20
  endif
  position object 1,X#,Y#,Z#
 endif
 `save players new positions
 X# = Object position x(1)
 Z# = Object position z(1)
sync
loop

cheers

CLear Coder

Back to top

Profile PM Email

Codger

23

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 26th Oct 2003 21:38

Link

Try this approach it is very versatile

Gosub Setup
MakeBoard()

Player(1).x = 2 : Player(2).y = 3 : rem set initial position
MakePlayer()

do
   MovePlayer() : Rem Checks to see if move Available
   SetSpeed() : Rem Allows user to control speed of program
   Text Gridsize * 15, 20, Str$(Screen FPS()) : Rem Prints Frames Per second
   Sync
loop

Function SetSpeed()
   IF upkey() THEN Inc Speed
   If DownKey() Then Dec Speed
   Sync Rate Speed
EndFunction

Function MakeBoard()
Rem Simply Draws a Grid

ink RGB(255,255,255),0
Box 0,0,12*GridSize,12*GridSize
Ink RGB(255,0,0),0

For y = 0 to 11
      For x = 0 to 11
         Left = x*GridSize : Top = y * GridSize : Right = (x+1)*GridSize : Bottom = (y+1)*GridSize
         IF Grid(x,y) = 1 then ink RGB(255,0,0),0: Box Left,Top,Right,Bottom:
         ink RGB(255,0,0),0: Line left, top, right, top : Line Right, Top, Right,Bottom : Line Right,Bottom,Left,Bottom, : Line Left,Bottom, Left,Top
      Next x
   Next y
Get Image 1,0,0,12*GridSize,12*GridSize
Sprite 1,0,0,1
EndFunction

Function MakePlayer()
   Rem Draws a Circle Same dia as Grid
   Cls
   ink RGB(0,255,0),RGB(0,0,0)
   circle Gridsize/2,Gridsize/2,Gridsize/2
   get image 2 ,0,0,GridSize,GridSize
   Sprite 2,Player(1).x*Gridsize,Player(1).y*Gridsize,2
EndFunction

Function MovePlayer()
   Repeat
      Moved = 0
      NewX = Rnd(2)-1 : NewY = Rnd(2)-1 : Rem Returns a value between -1 and 1
      If Grid(Player(1).Y + NewY, Player(1).X + NewX)= 0
         Player(1).Y = Player(1).Y + NewY : Player(1).X = Player(1).X+ NewX
         Sprite 2,Player(1).Y*GridSize,Player(1).X*Gridsize,2
         Moved = 1
     endif
   Until Moved = 1
EndFunction

Setup:
   Randomize timer()
   GLOBAL Speed = 60

Sync On
   Sync Rate 20

#Constant GridSize = 30
   Type Player1
      x as integer
      y as integer
   endtype

Dim Player(1) as Player1

Dim Grid (11,11)

restore Grid1
   For Y = 0 to 11
      For X = 0 to 11
         Read Grid(x,y)
      Next X
   Next Y
Return

Grid1:
data 1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,1,1,0,0,0,1
data 1,0,0,0,0,0,1,1,0,0,0,1
data 1,0,0,0,0,0,0,1,0,0,0,1
data 1,0,0,1,1,1,0,0,0,0,0,1
data 1,0,0,1,0,1,0,0,0,0,0,1
data 1,0,0,1,0,1,0,0,0,0,0,1
data 1,0,0,1,0,1,0,0,0,1,1,1
data 1,0,0,1,0,0,0,0,1,0,0,1
data 1,0,0,1,0,0,0,0,1,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1

+ Code Snippet

Gosub Setup
MakeBoard()

Player(1).x = 2 : Player(2).y = 3 : rem set initial position
MakePlayer()

do
   MovePlayer() : Rem Checks to see if move Available
   SetSpeed() : Rem Allows user to control speed of program
   Text Gridsize * 15, 20, Str$(Screen FPS()) : Rem Prints Frames Per second
   Sync
loop

Function SetSpeed()
   IF upkey() THEN Inc Speed
   If DownKey() Then Dec Speed
   Sync Rate Speed
EndFunction

Function MakeBoard()
Rem Simply Draws a Grid

ink RGB(255,255,255),0
Box 0,0,12*GridSize,12*GridSize
Ink RGB(255,0,0),0

   For y = 0 to 11
      For x = 0 to 11
         Left = x*GridSize : Top = y * GridSize : Right = (x+1)*GridSize : Bottom = (y+1)*GridSize
         IF Grid(x,y) = 1 then ink RGB(255,0,0),0: Box Left,Top,Right,Bottom:
         ink RGB(255,0,0),0: Line left, top, right, top : Line Right, Top, Right,Bottom : Line Right,Bottom,Left,Bottom, : Line Left,Bottom, Left,Top
      Next x
   Next y
Get Image 1,0,0,12*GridSize,12*GridSize
Sprite 1,0,0,1
EndFunction

Function MakePlayer()
   Rem Draws a Circle Same dia as Grid
   Cls
   ink RGB(0,255,0),RGB(0,0,0)
   circle Gridsize/2,Gridsize/2,Gridsize/2
   get image 2 ,0,0,GridSize,GridSize
   Sprite 2,Player(1).x*Gridsize,Player(1).y*Gridsize,2
EndFunction

Function MovePlayer()
   Repeat
      Moved = 0
      NewX = Rnd(2)-1 : NewY = Rnd(2)-1 : Rem Returns a value between -1 and 1
      If Grid(Player(1).Y + NewY, Player(1).X + NewX)= 0
         Player(1).Y = Player(1).Y + NewY : Player(1).X = Player(1).X+ NewX
         Sprite 2,Player(1).Y*GridSize,Player(1).X*Gridsize,2
         Moved = 1
     endif
   Until Moved = 1
EndFunction

Setup:
   Randomize timer()
   GLOBAL Speed = 60

   Sync On
   Sync Rate 20

   #Constant GridSize = 30
   Type Player1
      x as integer
      y as integer
   endtype

   Dim Player(1) as Player1

   Dim Grid (11,11)

   restore Grid1
   For Y = 0 to 11
      For X = 0 to 11
         Read Grid(x,y)
      Next X
   Next Y
Return

Grid1:
data 1,1,1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,1,1,0,0,0,1
data 1,0,0,0,0,0,1,1,0,0,0,1
data 1,0,0,0,0,0,0,1,0,0,0,1
data 1,0,0,1,1,1,0,0,0,0,0,1
data 1,0,0,1,0,1,0,0,0,0,0,1
data 1,0,0,1,0,1,0,0,0,0,0,1
data 1,0,0,1,0,1,0,0,0,1,1,1
data 1,0,0,1,0,0,0,0,1,0,0,1
data 1,0,0,1,0,0,0,0,1,0,0,1
data 1,1,1,1,1,1,1,1,1,1,1,1

System
PIII 650 MZ H.P. Pavillion
394 Mem GeForce 4 400MX

Back to top

Profile PM Email

Plugged

23

Years of Service

User Offline

Joined: 30th Nov 2002

Location: Hertfordshire

Posted: 27th Oct 2003 14:35

Link

sorry codger that code didn't work!

has any one found the error in my code the wierd is that as i said i works fine in db but not in dbpro

CLear Coder

Back to top

Profile PM Email

Codger

23

Years of Service

User Offline

Joined: 23rd Nov 2002

Location:

Posted: 27th Oct 2003 18:43

Link

Clear Coder 1st Change your name

2nd My code does work, although it may not function for your needs because nobody appears to understand what you want the program to do.

Would you please detail what you are intending to accomplish?

System
PIII 650 MZ H.P. Pavillion
394 Mem GeForce 4 400MX

Back to top

Profile PM Email

Plugged

23

Years of Service

User Offline

Joined: 30th Nov 2002

Location: Hertfordshire

Posted: 27th Oct 2003 20:13

Link

what how can you not understand its the code for the player input and the movement of the player pawn. thats it!

CLear Coder

Back to top

Profile PM Email

spooky

23

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 27th Oct 2003 20:32 Edited at: 27th Oct 2003 23:53

Link

OK found your problem. Main problem is that DBPro can not reference indexes in arrays with floats, so change

playerwherex# to playerwherex

and

playerwherey# to playerwherey

This gets the cube moving around properly and should help you a great deal.

If your mansion house needs haunting, just call Rentaghost!

Back to top

Profile PM Website

Shadow Lord

22

Years of Service

User Offline

Joined: 26th Sep 2003

Location:

Posted: 27th Oct 2003 22:35

Link

Quote: "playerwherey# to playerwherex"

Oooops, small typo there....should be...

playerwherey# to playerwherey

I'm using DBPro to write "Suger Free Candyland", for diabetic children!

Back to top

Profile PM

spooky

23

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 27th Oct 2003 23:55

Link

Quite correct Shadow Lord - my cut 'n' pasting was a bit dodgy. Have edited post so now reads correctly.

If your mansion house needs haunting, just call Rentaghost!

Back to top

Profile PM Website

Plugged

23

Years of Service

User Offline

Joined: 30th Nov 2002

Location: Hertfordshire

Posted: 28th Oct 2003 00:05

Link

cheer so that long ish thread could have been alot smaller cheers spooky

CLear Coder

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / what wrong