speed change then revert... - GameCreators Forum

Author

Message

mikewhl

14

Years of Service

User Offline

Joined: 19th Jul 2010

Location: Columbus,Ohio

Posted: 28th Aug 2010 07:50 Edited at: 28th Aug 2010 17:31

Link

Hi All,

If I am keeping my speed within a bracket(spdbrkt) like this:

Move_Player:
Move object 200,speed#
IF KEYSTATE (2)= 1 AND Engine =1 Then SpdBrkt = 1  `1
IF KEYSTATE (3)= 1 AND Engine =1 Then SpdBrkt = 2  `2
IF KEYSTATE (4)= 1 AND Engine =1 Then SpdBrkt = 3  `3
IF KEYSTATE (5)= 1 AND Engine =1 Then SpdBrkt = 4  `4
if keystate(41)= 1 AND Engine =1 Then SpdBrkt = 5  `zero key
IF SpdBrkt = 1
 if speed# > 0.10 then speed# = speed# - speedincrease#
 if speed# < 0.10 Then Speed# = Speed# + speedincrease# 
ENDIF
IF SpdBrkt = 2
 if speed# > 0.25 then speed# = speed# - speedincrease#
 if speed# < 0.25 Then Speed# = Speed# + speedincrease# 
ENDIF
IF SpdBrkt = 3
 if speed# >= 0.5 then speed# = speed# - speedincrease#
 if speed# =< 0.5 Then Speed# = Speed# + speedincrease# 
ENDIF
IF SpdBrkt = 4
 if speed# >= 0.75 then speed# = speed# - speedincrease#
 if speed# =< 0.75 Then Speed# = Speed# + speedincrease# 
ENDIF
IF SpdBrkt = 5
 if speed# >= 0.0 then speed# = speed# - speedincrease#
 if speed# =< 0.0 Then Speed# = 0 
ENDIF
curbrkt = spbrkt
  if keystate(13)=1 then SpdBrkt =null
  if keystate(13)=1 Then speed#=speed#+speedincrease#
  if keystate(12)=1 then SpdBrkt =null
  if keystate(12)=1 then speed#=speed#-speedincrease#
  
 ```````````````````````````````````````````````````````````````````````````````````````````````````````````````````
  if keystate(30)=1 then yrotate object 200,wrapvalue(object angle y(200) - 0.4) `a 
  if keystate(32)=1 then yrotate object 200,wrapvalue(object angle y(200) + 0.4) `d

+ Code Snippet

Move_Player:
Move object 200,speed#
IF KEYSTATE (2)= 1 AND Engine =1 Then SpdBrkt = 1  `1
IF KEYSTATE (3)= 1 AND Engine =1 Then SpdBrkt = 2  `2
IF KEYSTATE (4)= 1 AND Engine =1 Then SpdBrkt = 3  `3
IF KEYSTATE (5)= 1 AND Engine =1 Then SpdBrkt = 4  `4
if keystate(41)= 1 AND Engine =1 Then SpdBrkt = 5  `zero key
IF SpdBrkt = 1
 if speed# > 0.10 then speed# = speed# - speedincrease#
 if speed# < 0.10 Then Speed# = Speed# + speedincrease# 
ENDIF
IF SpdBrkt = 2
 if speed# > 0.25 then speed# = speed# - speedincrease#
 if speed# < 0.25 Then Speed# = Speed# + speedincrease# 
ENDIF
IF SpdBrkt = 3
 if speed# >= 0.5 then speed# = speed# - speedincrease#
 if speed# =< 0.5 Then Speed# = Speed# + speedincrease# 
ENDIF
IF SpdBrkt = 4
 if speed# >= 0.75 then speed# = speed# - speedincrease#
 if speed# =< 0.75 Then Speed# = Speed# + speedincrease# 
ENDIF
IF SpdBrkt = 5
 if speed# >= 0.0 then speed# = speed# - speedincrease#
 if speed# =< 0.0 Then Speed# = 0 
ENDIF
curbrkt = spbrkt
  if keystate(13)=1 then SpdBrkt =null
  if keystate(13)=1 Then speed#=speed#+speedincrease#
  if keystate(12)=1 then SpdBrkt =null
  if keystate(12)=1 then speed#=speed#-speedincrease#
  
 ```````````````````````````````````````````````````````````````````````````````````````````````````````````````````
  if keystate(30)=1 then yrotate object 200,wrapvalue(object angle y(200) - 0.4) `a 
  if keystate(32)=1 then yrotate object 200,wrapvalue(object angle y(200) + 0.4) `d

When I turn(keystate 30 or 32) I want to change my bracket(spdbrkt) to 5 then after turning I want it to go back to whatever (spdbrkt) it was before the turn.
I've been working on this for 2 days and have tried many things, just can't seem to get my head around it.

Mike

some cool stuff someone else said here

Back to top

Profile PM

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 28th Aug 2010 10:26

Link

this perhaps (not tested):

+ Code Snippet

IF KEYSTATE (2)= 1 AND Engine =1 Then SpdBrkt = 1:oldSpdBrkt=SpdBrkt  `1
IF KEYSTATE (3)= 1 AND Engine =1 Then SpdBrkt = 2:oldSpdBrkt=SpdBrkt  `2
IF KEYSTATE (4)= 1 AND Engine =1 Then SpdBrkt = 3:oldSpdBrkt=SpdBrkt  `3
IF KEYSTATE (5)= 1 AND Engine =1 Then SpdBrkt = 4:oldSpdBrkt=SpdBrkt  `4
if keystate(41)= 1 AND Engine =1 Then SpdBrkt = 5  `zero key

and

+ Code Snippet

if keystate(30)=1 then SpdBrkt = 5:yrotate object 200,wrapvalue(object angle y(200) - 0.4) `a 
  if keystate(32)=1 then SpdBrkt = 5:yrotate object 200,wrapvalue(object angle y(200) + 0.4) `d
if keystate(30)=0 then SpdBrkt = oldSpdBrkt 
if keystate(32)=0 then SpdBrkt = oldSpdBrkt

but I'm not sure what you're trying to achieve
cheers

Back to top

Profile PM

mikewhl

14

Years of Service

User Offline

Joined: 19th Jul 2010

Location: Columbus,Ohio

Posted: 28th Aug 2010 19:21

Link

No tried that method myself.
No go.

Mike

some cool stuff someone else said here

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 28th Aug 2010 19:52 Edited at: 28th Aug 2010 20:07

Link

You just need a variable to store the old speed (like Scorpyo posted) and an on/off switch. When you turn the character you save the old speed and turn on the switch. Right before it checks for KEYSTATE(30) and KEYSTATE(32) it checks to see if the switch is on, resets it back to the old speed, and turns off the switch. If the player is still hitting the turn keys it'll repeat the process so it'll always keep the same old speed till the user lets go of the key.

Replace the two lines for turning with this:

+ Code Snippet


 ` Check if the the turning switch is on
 if Turning=1
  ` Reset speed to old speed
  SpdBrkt=OldSpd
  ` Turn off turning switch
  Turning=0
 endif

 ` a
 if keystate(30)=1
  yrotate object 200,wrapvalue(object angle y(200) - 0.4)
  ` Save the old speed
  OldSpd=SpdBrkt
  ` Change the speed
  SpdBrkt=5
  ` Turn on the Turning switch
  Turning=1
 endif
  
 ` d
 if keystate(32)=1 and Turning=0
  yrotate object 200,wrapvalue(object angle y(200) + 0.4)
  ` Save the old speed
  OldSpd=SpdBrkt
  ` Change the speed
  SpdBrkt=5
  ` Turn on the Turning switch
  Turning=1
 endif

Edit: I started this as untested code but decided to test it out anyway. I noticed that the way I had it at first (without "and Turning=0" on the check for the D key) it would make OldSpd equal 5 if the A key was also pressed... which I'm sure you didn't want to happen so I added the check for Turning at zero.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / speed change then revert...