tip or trick - GameCreators Forum

Author

Message

Silverman

17

Years of Service

User Offline

Joined: 18th Jan 2007

Location: France

Posted: 1st Sep 2012 17:32 Edited at: 1st Sep 2012 17:33

Link

Hi all,
you can use this trick to simplify your source code :

+ Code Snippet

`
sync on


pos=22
gms=2
v=pos

`simulation if/elseif/elseif/.../endif statement
select 1
      case (v=22)
         print "v=22"
      endcase

      case (v<32)
         print "v<32"
`         gms=pos
      endcase

      case (pos=gms)
         print "pos=gms"
      endcase

      case default
         print "nothing"
      endcase
endselect


sync

@+

DirectX 9.0c (February 2010)/ DBClassic v1.20

Back to top

Profile PM

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 4th Sep 2012 05:10

Link

I was messing around with this idea and found something odd/glitchy

+ Code Snippet

autocam off
sync on
sync rate 60
hide mouse

for i = 1 to 8
   make object sphere i, 10
   a# = (i/8.0)*360
   position object i, sin(a#)*100, 0, cos(a#)*100
next x

rem === main ==============================
do
   select .
      case (keystate(17)=1) : move camera -1 : endcase
      case (keystate(31)=1) : move camera  1 : endcase
      case (keystate(30)=0) : turn camera left  1 : endcase
      case (keystate(32)=0) : turn camera left -1 : endcase
      case default : endcase
   endselect
   sync
loop

See how the turning keys need to be =0, I don't understand that, the camera spins continually if they are set to the more logical =1. What's going on here?

Shh... you're pretty.

Back to top

Profile PM Email

BN2 Productions

20

Years of Service

User Offline

Joined: 22nd Jan 2004

Location:

Posted: 4th Sep 2012 05:18

Link

Quote: "What's going on here?
"

I could be wrong, but doesn't SELECT exit once it hits a valid CASE statement?

Try this:

CASE (keystate(30)=0 OR keystate(32)=0) : turn camera left (keystate(30)-keystate(32) : endcase

Of course you could omit the SELECT statement altogether with this kind of logic, as if neither are pressed, it is turning left. So you could put:

+ Code Snippet

MOVE CAMERA (KeyState(31)-Keystate(17))
TURN CAMERA LEFT (KeyState(30)-KeyState(32))

Great Quote:
"Time...LINE??? Time isn't made out of lines...it is made out of circles. That is why clocks are round!" -Caboose

Back to top

Profile PM

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 4th Sep 2012 10:20

Link

@Obese

What is '.' evaluating to in the select portion? It may be undefined in this case or point to a NULL pointer. If it evaluates to a float, then it may not be making a reliable comparison to integer values being returned in the case conditional tests.

The numeric values in DBC are actually strings that are pointers to values. By default, the numbers point to values of themselves but you could easily change their value:

+ Code Snippet

3=7

print 3

So you may not be getting the value you want with Select .

Also, logical conditional tests might not actually work in a case statement. They may only be triggered by the presence of a number or variable, like the 1 or the 0. If 1 is present the condition is true, if the zero is present the condition is false. So if your test after the case statement is (keystate(32)=0), it may only be picking up the 0 and returning a false. For a test, try setting the values to 5 or 6 or -29 and see what happens. I'm not at a computer with DBC right now so I can't test any of this.

Quote: "I could be wrong, but doesn't SELECT exit once it hits a valid CASE statement?"

No it doesn't. It evaluates all case conditions. That's why in long select case blocks, for speed I use a jump from the case block to the endselect:

+ Code Snippet

a=1

select a
   case 1
      rem do stuf
      goto _endthis
   endcase
 
   rem many more case blocks each with an _endthis jump

   _endthis:
endselect

Enjoy your day.

Back to top

Profile PM

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 4th Sep 2012 18:29 Edited at: 4th Sep 2012 18:30

Link

@BN2
Run it and you'll see it acts as if it says case (keystate(32)=1) : turn camera left -1 : endcase, weird.

@Latch

Quote: "Also, logical conditional tests might not actually work in a case statement. They may only be triggered by the presence of a number or variable, like the 1 or the 0."

But they do work, the first two work fine and the second two work, except being the reverse of what you would logically think.

Quote: "What is '.' evaluating to in the select portion?"

DBC accepts it as 0.0 so I use it where numbers aren't important or converting an integer to a float (a# = a+.), I tried changing it to 0 but nothing changes.

Shh... you're pretty.

Back to top

Profile PM Email

Silverman

17

Years of Service

User Offline

Joined: 18th Jan 2007

Location: France

Posted: 4th Sep 2012 20:15 Edited at: 4th Sep 2012 20:30

Link

I think it may be easier to understand as:

autocam off
sync on
sync rate 60
hide mouse

for i = 1 to 8
   make object sphere i, 10
   a# = (i/8.0)*360
   position object i, sin(a#)*100, 0, cos(a#)*100
next x

rem === main ==============================
do
set cursor 0,0
   true=1
   false=0
   `our choice
   select false
      case (keystate(17)=true) : move camera -1 : inc s : endcase
      case (keystate(31)=true) : move camera  1 : inc w : endcase
      case (keystate(30)=false) : turn camera left  1 : inc a : endcase
      case (keystate(32)=false) : turn camera left -1 : inc d : endcase
      case false : bolean$=" FALSE" : endcase
      case true : bolean$=" TRUE" : endcase
      case default : endcase
   endselect
   print "count is made if the condition is";bolean$
   print "w = ";(keystate(31)=true);"     -----> count = ";w
   print "s = ";(keystate(17)=true);"     -----> count = ";s
   print "a = ";(keystate(30)=false);"     -----> count = ";a
   print "d = ";(keystate(32)=false);"     -----> count = ";d
   sync
loop

end

+ Code Snippet

autocam off
sync on
sync rate 60
hide mouse

for i = 1 to 8
   make object sphere i, 10
   a# = (i/8.0)*360
   position object i, sin(a#)*100, 0, cos(a#)*100
next x

rem === main ==============================
do
set cursor 0,0
   true=1
   false=0
   `our choice
   select false
      case (keystate(17)=true) : move camera -1 : inc s : endcase
      case (keystate(31)=true) : move camera  1 : inc w : endcase
      case (keystate(30)=false) : turn camera left  1 : inc a : endcase
      case (keystate(32)=false) : turn camera left -1 : inc d : endcase
      case false : bolean$=" FALSE" : endcase
      case true : bolean$=" TRUE" : endcase
      case default : endcase
   endselect
   print "count is made if the condition is";bolean$
   print "w = ";(keystate(31)=true);"     -----> count = ";w
   print "s = ";(keystate(17)=true);"     -----> count = ";s
   print "a = ";(keystate(30)=false);"     -----> count = ";a
   print "d = ";(keystate(32)=false);"     -----> count = ";d
   sync
loop

end

DirectX 9.0c (February 2010)/ DBClassic v1.20

Back to top

Profile PM

Libervurto

17

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 4th Sep 2012 21:44 Edited at: 4th Sep 2012 21:45

Link

@Silverman
Oh of course! I forgot it is comparing against the selected value, so I was checking for FALSE values, that's why everything was inverted. It just happens that I'd already compensated for the "w" and "s" being reversed. Thanks.

Now here it's all straightened out (including your spelling of "boolean"

):

autocam off
sync on
sync rate 60
hide mouse

for i = 1 to 8
   make object sphere i, 10
   a# = (i/8.0)*360
   position object i, sin(a#)*100, 0, cos(a#)*100
next x

rem === main ==============================
do
set cursor 0,0
   true=1
   false=0
   `our choice
   select true
      case (keystate(17)=true) : move camera  1 : inc w : endcase
      case (keystate(31)=true) : move camera -1 : inc s : endcase
      case (keystate(30)=true) : turn camera left  1 : inc a : endcase
      case (keystate(32)=true) : turn camera left -1 : inc d : endcase
      case false : boolean$=" FALSE" : endcase
      case true : boolean$=" TRUE" : endcase
      case default : endcase
   endselect
   print "count is made if the condition is";boolean$
   print "w = ";(keystate(17)=true);"     -----> count = ";w
   print "s = ";(keystate(31)=true);"     -----> count = ";s
   print "a = ";(keystate(30)=true);"     -----> count = ";a
   print "d = ";(keystate(32)=true);"     -----> count = ";d
   sync
loop

end

+ Code Snippet

autocam off
sync on
sync rate 60
hide mouse

for i = 1 to 8
   make object sphere i, 10
   a# = (i/8.0)*360
   position object i, sin(a#)*100, 0, cos(a#)*100
next x

rem === main ==============================
do
set cursor 0,0
   true=1
   false=0
   `our choice
   select true
      case (keystate(17)=true) : move camera  1 : inc w : endcase
      case (keystate(31)=true) : move camera -1 : inc s : endcase
      case (keystate(30)=true) : turn camera left  1 : inc a : endcase
      case (keystate(32)=true) : turn camera left -1 : inc d : endcase
      case false : boolean$=" FALSE" : endcase
      case true : boolean$=" TRUE" : endcase
      case default : endcase
   endselect
   print "count is made if the condition is";boolean$
   print "w = ";(keystate(17)=true);"     -----> count = ";w
   print "s = ";(keystate(31)=true);"     -----> count = ";s
   print "a = ";(keystate(30)=true);"     -----> count = ";a
   print "d = ";(keystate(32)=true);"     -----> count = ";d
   sync
loop

end

Shh... you're pretty.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / tip or trick