Help with a loop DBP - GameCreators Forum

Author

Message

Scarface

17

Years of Service

User Offline

Joined: 21st Oct 2006

Location:

Posted: 24th Oct 2006 15:20

Link

Hi all, I just got DBP so I am experimenting with objects, the problem is I can't get this do loop to compile

+ Code Snippet

make object box 1,10,10,10

do
    if leftkey()
        move object left 1,5
    else if rightkey()
        move object right 1,5
    else if upkey()
        move object up 1,5
    else if downkey()
        move object down 1,5
loop until spacekey()

What am I doing wrong?

Regards
§çà®Fãçë™

Back to top

Profile PM Email

CattleRustler

Retired Moderator

21

Years of Service

User Offline

Joined: 8th Aug 2003

Location: case modding at overclock.net

Posted: 24th Oct 2006 15:35 Edited at: 24th Oct 2006 15:35

Link

loop until spacekey()=1 ?

or just

loop with the condition inside

Its 9/11 - but its FAKE 9/11 Ts=SQRT(Df/16)

Back to top

Profile PM

Scarface

17

Years of Service

User Offline

Joined: 21st Oct 2006

Location:

Posted: 24th Oct 2006 15:52

Link

Ok I tried:

+ Code Snippet

make object box 1,10,10,10

do
    if leftkey()
        move object left 1,5
    else if rightkey()
        move object right 1,5
    else if upkey()
        move object up 1,5
    else if downkey()
        move object down 1,5
    until spacekey() = 1
loop

And:

+ Code Snippet

make object box 1,10,10,10

do
    if leftkey()
        move object left 1,5
    else if rightkey()
        move object right 1,5
    else if upkey()
        move object up 1,5
    else if downkey()
        move object down 1,5

loop until spacekey() = 1

And also:

+ Code Snippet

make object box 1,10,10,10

do
    if leftkey() = 1
        move object left 1,5
    else if rightkey()  = 1
        move object right 1,5
    else if upkey()  = 1
        move object up 1,5
    else if downkey()  = 1
        move object down 1,5
    else if spacekey() = 1
        exit
loop

None of the above compile, I assumed that the = 1 was'nt neccesary because the argument should return !true (or 1) if no return argument is specified?

Regards
§çà®Fãçë™

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 24th Oct 2006 15:53 Edited at: 24th Oct 2006 15:56

Link

'do ... loop until' is basically 'repeat ... until'
Also, you can't do 'else if' in DBPro. Use nested 'if ... else ... endif' instead.

+ Code Snippet

make object box 1,10,10,10

repeat
    if leftkey()
        move object left 1,5
    else
       if rightkey()
          move object right 1,5
       else
          if upkey()
             move object up 1,5
          else
             if downkey()
                move object down 1,5
             endif
          endif
       endif
    endif
until spacekey() = 1

For free Plug-ins and source code
http://www.matrix1.demon.co.uk
New Utility plugins collection

Back to top

Profile PM Email Website

Scarface

17

Years of Service

User Offline

Joined: 21st Oct 2006

Location:

Posted: 24th Oct 2006 15:55

Link

Quote: "'do ... loop until' is basically 'repeat ... until'"

Is'nt that what I was doing? do this until space is pressed?

Regards
§çà®Fãçë™

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 24th Oct 2006 15:56

Link

Argh, you're too quick. Take a look at my post again.

For free Plug-ins and source code
http://www.matrix1.demon.co.uk
New Utility plugins collection

Back to top

Profile PM Email Website

Scarface

17

Years of Service

User Offline

Joined: 21st Oct 2006

Location:

Posted: 24th Oct 2006 15:57

Link

Quote: "'do ... loop until' is basically 'repeat ... until'
Also, you can't do 'else if' in DBPro. Use nested 'if ... else ... endif' instead."

Gotcha, thanks ,)

Regards
§çà®Fãçë™

Back to top

Profile PM Email

Scarface

17

Years of Service

User Offline

Joined: 21st Oct 2006

Location:

Posted: 24th Oct 2006 15:59

Link

Ok I see now you have to end each if argument, thanks for the help mate.

Regards
§çà®Fãçë™

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 25th Oct 2006 00:21

Link

I perfer this way... you don't have to make it complicated with 100 "elses".

+ Code Snippet

make object box 1,1000,1000,1000

do

 if spacekey()=1 then exit
 
 if leftkey()
  move object left 1,5
 endif
 
 if rightkey()
  move object right 1,5
 endif
 
 if upkey()
  move object up 1,5
 endif
 
 if downkey()
  move object down 1,5
 endif

loop

Back to top

Profile PM Email

jinzai

18

Years of Service

User Offline

Joined: 19th Aug 2006

Location: USA

Posted: 25th Oct 2006 03:19 Edited at: 25th Oct 2006 03:41

Link

I just use an array of scancodes and a list of constants, and then I am free to use whatever logic is appropriate...select/case works well. The constants also work well in NPC AI. The array is nice to have because you can serialize it easily and it is global by default.

rem These constants are the standard scan codes for US kbds.

#constant _tilde = 1
#constant _1 = 2
#constant _2 = 3
#constant _3 = 4
#constant _4 = 5
#constant _5 = 6
#constant _6 = 7
#constant _7 = 8
#constant _8 = 9
#constant _9 = 10
#constant _0 = 11
    .
    .
    .
#constant C_KEY = 46
#constant SPACE_BAR = 57
#constant F3_KEY = 61
#constant F4_KEY = 62
#constant F5_KEY = 63
#constant UP_ARROW = 200
#constant LEFT_ARROW = 203
#constant RIGHT_ARROW = 205

type userinput
    forward as integer
    back as integer
    left as integer
    right as integer
    jump as integer
    crouch as integer
    switchview as integer
    incFOV  as integer
    decFOV as integer
endtype

global game_cmds as userinput
global userkey as integer

game_cmds.forward= UP_ARROW
game_cmds.back = DOWN_ARROW
game_cmds.left = LEFT_ARROW
game_cmds.right = RIGHT_ARROW
game_cmds.jump = SPACE_BAR
game_cmds.crouch = C_KEY
game_cmds.switch_view = F3_KEY
game_cmds.incFOV = F4_KEY
game_cmds.decFOV = F5_KEY
    .
    .
    .
    userkey = scancode()

if userkey = UP_ARROW...
    if userkey = game_cmds.forward...
    select userkey
        case UP_ARROW
             .
             endcase
             .
        case default
             endcase
    endselect

+ Code Snippet

rem These constants are the standard scan codes for US kbds.

#constant _tilde = 1
#constant _1 = 2
#constant _2 = 3
#constant _3 = 4
#constant _4 = 5
#constant _5 = 6
#constant _6 = 7
#constant _7 = 8
#constant _8 = 9
#constant _9 = 10
#constant _0 = 11
    .
    .
    .
#constant C_KEY = 46
#constant SPACE_BAR = 57
#constant F3_KEY = 61
#constant F4_KEY = 62
#constant F5_KEY = 63
#constant UP_ARROW = 200
#constant LEFT_ARROW = 203
#constant RIGHT_ARROW = 205

type userinput
    forward as integer
    back as integer
    left as integer
    right as integer
    jump as integer
    crouch as integer
    switchview as integer
    incFOV  as integer
    decFOV as integer
endtype

global game_cmds as userinput
global userkey as integer

game_cmds.forward= UP_ARROW
game_cmds.back = DOWN_ARROW
game_cmds.left = LEFT_ARROW
game_cmds.right = RIGHT_ARROW
game_cmds.jump = SPACE_BAR
game_cmds.crouch = C_KEY
game_cmds.switch_view = F3_KEY
game_cmds.incFOV = F4_KEY
game_cmds.decFOV = F5_KEY
    .
    .
    .
    userkey = scancode()

    if userkey = UP_ARROW...
    if userkey = game_cmds.forward...
    select userkey
        case UP_ARROW
             .
             endcase
             .
        case default
             endcase
    endselect

Back to top

Profile PM Email Website

Scarface

17

Years of Service

User Offline

Joined: 21st Oct 2006

Location:

Posted: 25th Oct 2006 13:51

Link

Thanks for the help and advice guys, one problem though, the box is too large, it takes up most of the screen, even when I change the size specifications, so when I press left, it dissapears completely, what am I doing wrong?

Regards
§çà®Fãçë™

Back to top

Profile PM Email

IanM

Retired Moderator

22

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 25th Oct 2006 15:29

Link

@Grog,

In this particular case, I'd agree, but your code is not functionally equivalent to the original code or mine.

@Scarface,

Try moving things in smaller steps. What's happening is that your loop is so fast that the box moves off-screen within only a few frames.

For free Plug-ins and source code
http://www.matrix1.demon.co.uk
New Utility plugins collection

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 26th Oct 2006 01:31

Link

Quote: "In this particular case, I'd agree, but your code is not functionally equivalent to the original code or mine."

That's what I love about programming... there are many, many, many ways to show the same results.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Help with a loop DBP