loop code? - GameCreators Forum

Author

Message

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 16:43

i did this

    if object position y(2)>50 then move object down 2,gravity#
    
        REM Move player
        if keystate(17) and object position y(2)<60
            inc Speed#,1
            if Speed>68.6 then Speed#=68.6
`            Speed#=41.4        `min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
            dec Speed#,1
            if Speed#<-10 then Speed#=-10
        endif
           if spacekey()=1 then Speed#=0
        dec Speed#,0.1
        if Speed#<-10 then Speed#=-10

and my player
automatic moves

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 29th Jul 2010 16:52

Link

Replace the player() function with:

function player()
    
	if object position y(2)>50 then move object down 2,gravity#
    
        REM Move player
        if keystate(17) and object position y(2)<60
        	inc Speed#,0.1
        	if Speed>68.6 then Speed#=68.6
`        	Speed#=41.4		`min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
        	dec Speed#,0.05
        	if Speed#<-10 then Speed#=-10
        endif
       	if spacekey()=1 then Speed#=0
        move object 2,Speed#
        turn object right 2,90
        move object 2,Speed#/7.5
        turn object left 2,90
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       pitch object down 2,90
        move object 2,height*abs(Speed#)+height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-(height*abs(Speed#)+height)
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,2)
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                if ny#>0.0 then FallCondition=0
                if ny#<>0.0
                	`make an adjustment to z normal (cheating a bit here to make it work)
                	d#=sc_getcollisiondistance()
                	`adjust player angle to suit
                	point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                	`move 'up' to half height above ground
                	move object 2,(height/2)-d#
                	if FallCondition>0 then position object 2,object position x(2),object position y(2)+FallDirectionY#,object position z(2)
                	`re-adjust direction
                	pitch object down 2,90
                endif

if (LoopY#=90 or LoopY#=270) `and ny#<1.0 and nz#<0 
                	if ny#<1.0 and nz#<0 then turn object right 2,180
                endif
                if LoopY#=0 or LoopY#=180
                	if ny#<1.0 and nx#>0 then turn object left 2,90
                	if ny#<1.0 and nx#<0 then turn object right 2,90
                endif
               	rem find the player's direction angle
           		turn object right 2,camang
				fx#=object position x(2)
				fy#=object position y(2)
				fz#=object position z(2)
				move object 2,1 
           		fx#=object position x(2)-fx#
           		fy#=object position y(2)-fy#
           		fz#=object position z(2)-fz#
           		move object 2,-1 
           		turn object left 2,camang `put it back
				if fy#>0.0 then dec Speed#,(1.0-ny#)/2.0
				if fy#<0.0 then inc Speed#,(1.0-ny#)/2.0
				if ny#<0.0 and Speed#<15.0 
					position object 2,object position x(2),object position y(2)-60,object position z(2)
					FallDirectionX#=-fx#*Speed#*20.0
					FallDirectionY#=-fy#*Speed#*10.0
					FallDirectionZ#=-fz#*Speed#*20.0
					FallPitch#=object angle x(2)
					Speed#=0
					FallCondition=1
				endif

text 0,200,str$(nx#)+" "+str$(ny#)+" "+str$(nz#)
                text 0,220,str$(FallPitch#)
        else
        	rotate object 2,0,0,0
        	if FallCondition>0
        	inc test#
        		turn object right 2,180
        		position object 2,object position x(2)+FallDirectionX#,object position y(2)+FallDirectionY#,object position z(2)+FallDirectionZ#
        		FallDirectionX#=FallDirectionX#*0.95 `for air friction
        		FallDirectionZ#=FallDirectionZ#*0.95
        		dec FallDirectionY#,gravity#/7
        	endif
        endif
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
       REM Do wall check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#+FallDirectionX#*50,oldy#+FallDirectionY#*50,oldz#+FallDirectionZ#*50
       	else
	        move object 2,Speed#+height/3    `I would use a Speed variable here
       	endif
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#,oldy#,oldz#
       	else
	        move object 2,-(Speed#+height/3)    `I would use a Speed variable here
       	endif
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#-20,oldz#,newx#,newy#-20,newz#,2)
        if coll<>0
        	d#=sc_getcollisiondistance()
        	if d#<Speed#+height `I would use a Speed variable here
                    	`get collision data
                 	ny#=sc_getcollisionnormaly()
            	if abs(abs(ny#)-abs(cos(object angle x(2))))>0.707
                	position object 2,SC_getCollisionSlideX(),SC_getCollisionSlideY(),SC_getCollisionSlideZ() 
                	Move object 2,-height
                else
             		rotate object 2,0,0,0
            	endif
        	endif
        endif
       if object position y(2)<50.0 then position object 2,object position x(2),50,object position z(2)
endfunction

+ Code Snippet

function player()
    
	if object position y(2)>50 then move object down 2,gravity#
    
        REM Move player
        if keystate(17) and object position y(2)<60
        	inc Speed#,0.1
        	if Speed>68.6 then Speed#=68.6
`        	Speed#=41.4		`min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
        	dec Speed#,0.05
        	if Speed#<-10 then Speed#=-10
        endif
       	if spacekey()=1 then Speed#=0
        move object 2,Speed#
        turn object right 2,90
        move object 2,Speed#/7.5
        turn object left 2,90
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       pitch object down 2,90
        move object 2,height*abs(Speed#)+height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-(height*abs(Speed#)+height)
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,2)
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                if ny#>0.0 then FallCondition=0
                if ny#<>0.0
                	`make an adjustment to z normal (cheating a bit here to make it work)
                	d#=sc_getcollisiondistance()
                	`adjust player angle to suit
                	point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                	`move 'up' to half height above ground
                	move object 2,(height/2)-d#
                	if FallCondition>0 then position object 2,object position x(2),object position y(2)+FallDirectionY#,object position z(2)
                	`re-adjust direction
                	pitch object down 2,90
                endif

                if (LoopY#=90 or LoopY#=270) `and ny#<1.0 and nz#<0 
                	if ny#<1.0 and nz#<0 then turn object right 2,180
                endif
                if LoopY#=0 or LoopY#=180
                	if ny#<1.0 and nx#>0 then turn object left 2,90
                	if ny#<1.0 and nx#<0 then turn object right 2,90
                endif
               	rem find the player's direction angle
           		turn object right 2,camang
				fx#=object position x(2)
				fy#=object position y(2)
				fz#=object position z(2)
				move object 2,1 
           		fx#=object position x(2)-fx#
           		fy#=object position y(2)-fy#
           		fz#=object position z(2)-fz#
           		move object 2,-1 
           		turn object left 2,camang `put it back
				if fy#>0.0 then dec Speed#,(1.0-ny#)/2.0
				if fy#<0.0 then inc Speed#,(1.0-ny#)/2.0
				if ny#<0.0 and Speed#<15.0 
					position object 2,object position x(2),object position y(2)-60,object position z(2)
					FallDirectionX#=-fx#*Speed#*20.0
					FallDirectionY#=-fy#*Speed#*10.0
					FallDirectionZ#=-fz#*Speed#*20.0
					FallPitch#=object angle x(2)
					Speed#=0
					FallCondition=1
				endif

                text 0,200,str$(nx#)+" "+str$(ny#)+" "+str$(nz#)
                text 0,220,str$(FallPitch#)
        else
        	rotate object 2,0,0,0
        	if FallCondition>0
        	inc test#
        		turn object right 2,180
        		position object 2,object position x(2)+FallDirectionX#,object position y(2)+FallDirectionY#,object position z(2)+FallDirectionZ#
        		FallDirectionX#=FallDirectionX#*0.95 `for air friction
        		FallDirectionZ#=FallDirectionZ#*0.95
        		dec FallDirectionY#,gravity#/7
        	endif
        endif
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
       REM Do wall check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#+FallDirectionX#*50,oldy#+FallDirectionY#*50,oldz#+FallDirectionZ#*50
       	else
	        move object 2,Speed#+height/3    `I would use a Speed variable here
       	endif
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#,oldy#,oldz#
       	else
	        move object 2,-(Speed#+height/3)    `I would use a Speed variable here
       	endif
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#-20,oldz#,newx#,newy#-20,newz#,2)
        if coll<>0
        	d#=sc_getcollisiondistance()
        	if d#<Speed#+height `I would use a Speed variable here
                    	`get collision data
                 	ny#=sc_getcollisionnormaly()
            	if abs(abs(ny#)-abs(cos(object angle x(2))))>0.707
                	position object 2,SC_getCollisionSlideX(),SC_getCollisionSlideY(),SC_getCollisionSlideZ() 
                	Move object 2,-height
                else
             		rotate object 2,0,0,0
            	endif
        	endif
        endif
       if object position y(2)<50.0 then position object 2,object position x(2),50,object position z(2)
endfunction

And look at the movement section at the top to see the changes.

The fastest code is the code never written.

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 16:53

Link

it sorta
works

now it's not
decreasing to
0

it's decreasing
to a weird
number

+ Code Snippet

        REM Move player
        if keystate(17) and object position y(2)<60
            inc Speed#,1
            if Speed>68.6 then Speed#=68.6
`            Speed#=41.4        `min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
            dec Speed#,1
            if Speed#<-10 then Speed#=-10
        endif
           if spacekey()=1 then Speed#=0
if Speed#>0
        dec Speed#,0.1
else
        inc Speed#,0.1
endif
        if Speed#>68.6 then Speed#=68.6
        if Speed#<-10 then Speed#=-10
        move object 2,Speed#
        turn object right 2,90
        move object 2,Speed#/7.5
        turn object left 2,90

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 29th Jul 2010 16:55

Link

Look at my post above. We posted too close to the same time....

The fastest code is the code never written.

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 16:57

Link

it almost
works.
now i
need to
get it to
0
not 0.blah

+ Code Snippet

    if object position y(2)>50 then move object down 2,gravity#
    
        REM Move player
        if keystate(17) and object position y(2)<60
            inc Speed#,0.1
            if Speed>68.6 then Speed#=68.6
`            Speed#=41.4        `min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
            dec Speed#,0.05
            if Speed#<-10 then Speed#=-10
        endif
if Speed#>0
dec Speed#,0.01
endif
if Speed#<0
inc Speed#,0.01
endif
        move object 2,Speed#
        turn object right 2,90
        move object 2,Speed#/7.5
        turn object left 2,90

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 17:05

Link

need more info?

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 17:19

Link

i keep trying
to change
speed to
absolute 0
when stop
moving
but no avail

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 29th Jul 2010 17:21

Link

Replace Player() function:

function player()
    
	if object position y(2)>50 then move object down 2,gravity#
    
        REM Move player
        if keystate(17) and object position y(2)<60
        	inc Speed#,0.1
        	if Speed>68.6 then Speed#=68.6
`        	Speed#=41.4		`min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
        	dec Speed#,0.05
        	if Speed#<-10 then Speed#=-10
        endif
       	if spacekey()=1 then Speed#=0
        move object 2,Speed#
        turn object right 2,90
        move object 2,Speed#/7.5
        turn object left 2,90
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       pitch object down 2,90
        move object 2,height*abs(Speed#)+height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-(height*abs(Speed#)+height)
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,2)
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                if ny#>0.0 then FallCondition=0
                if ny#<>0.0
                	`make an adjustment to z normal (cheating a bit here to make it work)
                	d#=sc_getcollisiondistance()
                	`adjust player angle to suit
                	point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                	`move 'up' to half height above ground
                	move object 2,(height/2)-d#
                	if FallCondition>0 then position object 2,object position x(2),object position y(2)+FallDirectionY#,object position z(2)
                	`re-adjust direction
                	pitch object down 2,90
                endif

if (LoopY#=90 or LoopY#=270) `and ny#<1.0 and nz#<0 
                	if ny#<1.0 and nz#<0 then turn object right 2,180
                endif
                if LoopY#=0 or LoopY#=180
                	if ny#<1.0 and nx#>0 then turn object left 2,90
                	if ny#<1.0 and nx#<0 then turn object right 2,90
                endif
               	rem find the player's direction angle
           		turn object right 2,camang
				fx#=object position x(2)
				fy#=object position y(2)
				fz#=object position z(2)
				move object 2,1 
           		fx#=object position x(2)-fx#
           		fy#=object position y(2)-fy#
           		fz#=object position z(2)-fz#
           		move object 2,-1 
           		turn object left 2,camang `put it back
				if fy#>0.0 then dec Speed#,(1.0-ny#)/2.0
				if fy#<0.0 then inc Speed#,(1.0-ny#)/2.0
				if ny#<0.0 and Speed#<15.0 
					position object 2,object position x(2),object position y(2)-60,object position z(2)
					FallDirectionX#=-fx#*Speed#*20.0
					FallDirectionY#=-fy#*Speed#*10.0
					FallDirectionZ#=-fz#*Speed#*20.0
					FallPitch#=object angle x(2)
					Speed#=0
					FallCondition=1
				endif

text 0,200,str$(nx#)+" "+str$(ny#)+" "+str$(nz#)
                text 0,220,str$(FallPitch#)
        else
        	rotate object 2,0,0,0
        	if FallCondition>0
        	inc test#
        		turn object right 2,180
        		position object 2,object position x(2)+FallDirectionX#,object position y(2)+FallDirectionY#,object position z(2)+FallDirectionZ#
        		FallDirectionX#=FallDirectionX#*0.95 `for air friction
        		FallDirectionZ#=FallDirectionZ#*0.95
        		dec FallDirectionY#,gravity#/7
        	endif
        endif
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
       REM Do wall check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#+FallDirectionX#*50,oldy#+FallDirectionY#*50,oldz#+FallDirectionZ#*50
       	else
	        move object 2,Speed#+height/3    `I would use a Speed variable here
       	endif
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#,oldy#,oldz#
       	else
	        move object 2,-(Speed#+height/3)    `I would use a Speed variable here
       	endif
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#-20,oldz#,newx#,newy#-20,newz#,2)
        if coll<>0
        	d#=sc_getcollisiondistance()
        	if d#<Speed#+height `I would use a Speed variable here
                    	`get collision data
                 	ny#=sc_getcollisionnormaly()
            	if abs(abs(ny#)-abs(cos(object angle x(2))))>0.707
                	position object 2,SC_getCollisionSlideX(),SC_getCollisionSlideY(),SC_getCollisionSlideZ() 
                	Move object 2,-height
                else
             		rotate object 2,0,0,0
            	endif
        	endif
        endif
       if object position y(2)<50.0 then position object 2,object position x(2),50,object position z(2)
endfunction

+ Code Snippet

function player()
    
	if object position y(2)>50 then move object down 2,gravity#
    
        REM Move player
        if keystate(17) and object position y(2)<60
        	inc Speed#,0.1
        	if Speed>68.6 then Speed#=68.6
`        	Speed#=41.4		`min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
        	dec Speed#,0.05
        	if Speed#<-10 then Speed#=-10
        endif
       	if spacekey()=1 then Speed#=0
        move object 2,Speed#
        turn object right 2,90
        move object 2,Speed#/7.5
        turn object left 2,90
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       pitch object down 2,90
        move object 2,height*abs(Speed#)+height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-(height*abs(Speed#)+height)
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,2)
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                if ny#>0.0 then FallCondition=0
                if ny#<>0.0
                	`make an adjustment to z normal (cheating a bit here to make it work)
                	d#=sc_getcollisiondistance()
                	`adjust player angle to suit
                	point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                	`move 'up' to half height above ground
                	move object 2,(height/2)-d#
                	if FallCondition>0 then position object 2,object position x(2),object position y(2)+FallDirectionY#,object position z(2)
                	`re-adjust direction
                	pitch object down 2,90
                endif

                if (LoopY#=90 or LoopY#=270) `and ny#<1.0 and nz#<0 
                	if ny#<1.0 and nz#<0 then turn object right 2,180
                endif
                if LoopY#=0 or LoopY#=180
                	if ny#<1.0 and nx#>0 then turn object left 2,90
                	if ny#<1.0 and nx#<0 then turn object right 2,90
                endif
               	rem find the player's direction angle
           		turn object right 2,camang
				fx#=object position x(2)
				fy#=object position y(2)
				fz#=object position z(2)
				move object 2,1 
           		fx#=object position x(2)-fx#
           		fy#=object position y(2)-fy#
           		fz#=object position z(2)-fz#
           		move object 2,-1 
           		turn object left 2,camang `put it back
				if fy#>0.0 then dec Speed#,(1.0-ny#)/2.0
				if fy#<0.0 then inc Speed#,(1.0-ny#)/2.0
				if ny#<0.0 and Speed#<15.0 
					position object 2,object position x(2),object position y(2)-60,object position z(2)
					FallDirectionX#=-fx#*Speed#*20.0
					FallDirectionY#=-fy#*Speed#*10.0
					FallDirectionZ#=-fz#*Speed#*20.0
					FallPitch#=object angle x(2)
					Speed#=0
					FallCondition=1
				endif

                text 0,200,str$(nx#)+" "+str$(ny#)+" "+str$(nz#)
                text 0,220,str$(FallPitch#)
        else
        	rotate object 2,0,0,0
        	if FallCondition>0
        	inc test#
        		turn object right 2,180
        		position object 2,object position x(2)+FallDirectionX#,object position y(2)+FallDirectionY#,object position z(2)+FallDirectionZ#
        		FallDirectionX#=FallDirectionX#*0.95 `for air friction
        		FallDirectionZ#=FallDirectionZ#*0.95
        		dec FallDirectionY#,gravity#/7
        	endif
        endif
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
       REM Do wall check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#+FallDirectionX#*50,oldy#+FallDirectionY#*50,oldz#+FallDirectionZ#*50
       	else
	        move object 2,Speed#+height/3    `I would use a Speed variable here
       	endif
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#,oldy#,oldz#
       	else
	        move object 2,-(Speed#+height/3)    `I would use a Speed variable here
       	endif
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#-20,oldz#,newx#,newy#-20,newz#,2)
        if coll<>0
        	d#=sc_getcollisiondistance()
        	if d#<Speed#+height `I would use a Speed variable here
                    	`get collision data
                 	ny#=sc_getcollisionnormaly()
            	if abs(abs(ny#)-abs(cos(object angle x(2))))>0.707
                	position object 2,SC_getCollisionSlideX(),SC_getCollisionSlideY(),SC_getCollisionSlideZ() 
                	Move object 2,-height
                else
             		rotate object 2,0,0,0
            	endif
        	endif
        endif
       if object position y(2)<50.0 then position object 2,object position x(2),50,object position z(2)
endfunction

The fastest code is the code never written.

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 17:29

Link

it isnt
slowing him
down to
0
instead it
stays on
the same
number.

+ Code Snippet

        REM Move player
        if keystate(17) and object position y(2)<60
            inc Speed#,0.1
            if Speed>68.6 then Speed#=68.6
`            Speed#=41.4        `min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
            dec Speed#,0.05
            if Speed#<-10 then Speed#=-10
        endif
if keystate(17)=0 and Speed#>0
dec Speed#,1
endif
if keystate(31)=0 and Speed#<0
inc Speed#,1
endif

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 17:31

Link

now it
isnt going
to 0
it's close

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 29th Jul 2010 17:36

Link

Ok. Are you ready to get an update?

The fastest code is the code never written.

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 17:37

Link

yes, i am

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 29th Jul 2010 17:38

Link

Ok. Replace function player() with this one:

function player()
    
	if object position y(2)>50 then move object down 2,gravity#
    
        REM Move player
        if keystate(17) and object position y(2)<60
        	inc Speed#,0.5
        	if Speed>68.6 then Speed#=68.6
`        	Speed#=41.4		`min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
        	dec Speed#,0.05
        	if Speed#<-10 then Speed#=-10
        endif
       	if spacekey()=1 then Speed#=0
        move object 2,Speed#
        turn object right 2,90
        move object 2,Speed#/7.5
        turn object left 2,90
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       pitch object down 2,90
        move object 2,height*abs(Speed#)+height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-(height*abs(Speed#)+height)
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,2)
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                if ny#>0.0 then FallCondition=0
                if ny#<>0.0
                	`make an adjustment to z normal (cheating a bit here to make it work)
                	d#=sc_getcollisiondistance()
                	`adjust player angle to suit
                	point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                	`move 'up' to half height above ground
                	move object 2,(height/2)-d#
                	if FallCondition>0 then position object 2,object position x(2),object position y(2)+FallDirectionY#,object position z(2)
                	`re-adjust direction
                	pitch object down 2,90
                endif

if (LoopY#=90 or LoopY#=270) `and ny#<1.0 and nz#<0 
                	if ny#<1.0 and nz#<0 then turn object right 2,180
                endif
                if LoopY#=0 or LoopY#=180
                	if ny#<1.0 and nx#>0 then turn object left 2,90
                	if ny#<1.0 and nx#<0 then turn object right 2,90
                endif
               	rem find the player's direction angle
           		turn object right 2,camang
				fx#=object position x(2)
				fy#=object position y(2)
				fz#=object position z(2)
				move object 2,1 
           		fx#=object position x(2)-fx#
           		fy#=object position y(2)-fy#
           		fz#=object position z(2)-fz#
           		move object 2,-1 
           		turn object left 2,camang `put it back
				if fy#>0.0 then dec Speed#,(1.0-ny#)/2.0
				if fy#<0.0 then inc Speed#,(1.0-ny#)/2.0
				if ny#<0.0 and Speed#<15.0 
					position object 2,object position x(2),object position y(2)-60,object position z(2)
					FallDirectionX#=-fx#*Speed#*20.0
					FallDirectionY#=-fy#*Speed#*10.0
					FallDirectionZ#=-fz#*Speed#*20.0
					FallPitch#=object angle x(2)
					Speed#=0
					FallCondition=1
				endif

text 0,200,str$(nx#)+" "+str$(ny#)+" "+str$(nz#)
                text 0,220,str$(FallPitch#)
        else
        	rotate object 2,0,0,0
        	if FallCondition>0
        	inc test#
        		turn object right 2,180
        		position object 2,object position x(2)+FallDirectionX#,object position y(2)+FallDirectionY#,object position z(2)+FallDirectionZ#
        		FallDirectionX#=FallDirectionX#*0.95 `for air friction
        		FallDirectionZ#=FallDirectionZ#*0.95
        		dec FallDirectionY#,gravity#/7
        	endif
        endif
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
       REM Do wall check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#+FallDirectionX#*50,oldy#+FallDirectionY#*50,oldz#+FallDirectionZ#*50
       	else
	        move object 2,Speed#+height    `I would use a Speed variable here
       	endif
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#,oldy#,oldz#
       	else
	        move object 2,-(Speed#+height)    `I would use a Speed variable here
       	endif
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#-20,oldz#,newx#,newy#-20,newz#,2)
        if coll<>0
`        dec FallCondition
`        if FallCondition<0 then FallCondition=0
        	d#=sc_getcollisiondistance()
        	if d#<Speed#+height `I would use a Speed variable here
                    	`get collision data
                 	ny#=sc_getcollisionnormaly()
            	if abs(abs(ny#)-abs(cos(object angle x(2))))>0.707
                	position object 2,SC_getCollisionSlideX(),SC_getCollisionSlideY(),SC_getCollisionSlideZ() 
                	Move object 2,-height
                else
             		rotate object 2,0,0,0
            	endif
        	endif
        endif
       if object position y(2)<50.0 then position object 2,object position x(2),50,object position z(2)
endfunction

+ Code Snippet

function player()
    
	if object position y(2)>50 then move object down 2,gravity#
    
        REM Move player
        if keystate(17) and object position y(2)<60
        	inc Speed#,0.5
        	if Speed>68.6 then Speed#=68.6
`        	Speed#=41.4		`min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
        	dec Speed#,0.05
        	if Speed#<-10 then Speed#=-10
        endif
       	if spacekey()=1 then Speed#=0
        move object 2,Speed#
        turn object right 2,90
        move object 2,Speed#/7.5
        turn object left 2,90
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       pitch object down 2,90
        move object 2,height*abs(Speed#)+height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-(height*abs(Speed#)+height)
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,2)
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                if ny#>0.0 then FallCondition=0
                if ny#<>0.0
                	`make an adjustment to z normal (cheating a bit here to make it work)
                	d#=sc_getcollisiondistance()
                	`adjust player angle to suit
                	point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                	`move 'up' to half height above ground
                	move object 2,(height/2)-d#
                	if FallCondition>0 then position object 2,object position x(2),object position y(2)+FallDirectionY#,object position z(2)
                	`re-adjust direction
                	pitch object down 2,90
                endif

                if (LoopY#=90 or LoopY#=270) `and ny#<1.0 and nz#<0 
                	if ny#<1.0 and nz#<0 then turn object right 2,180
                endif
                if LoopY#=0 or LoopY#=180
                	if ny#<1.0 and nx#>0 then turn object left 2,90
                	if ny#<1.0 and nx#<0 then turn object right 2,90
                endif
               	rem find the player's direction angle
           		turn object right 2,camang
				fx#=object position x(2)
				fy#=object position y(2)
				fz#=object position z(2)
				move object 2,1 
           		fx#=object position x(2)-fx#
           		fy#=object position y(2)-fy#
           		fz#=object position z(2)-fz#
           		move object 2,-1 
           		turn object left 2,camang `put it back
				if fy#>0.0 then dec Speed#,(1.0-ny#)/2.0
				if fy#<0.0 then inc Speed#,(1.0-ny#)/2.0
				if ny#<0.0 and Speed#<15.0 
					position object 2,object position x(2),object position y(2)-60,object position z(2)
					FallDirectionX#=-fx#*Speed#*20.0
					FallDirectionY#=-fy#*Speed#*10.0
					FallDirectionZ#=-fz#*Speed#*20.0
					FallPitch#=object angle x(2)
					Speed#=0
					FallCondition=1
				endif

                text 0,200,str$(nx#)+" "+str$(ny#)+" "+str$(nz#)
                text 0,220,str$(FallPitch#)
        else
        	rotate object 2,0,0,0
        	if FallCondition>0
        	inc test#
        		turn object right 2,180
        		position object 2,object position x(2)+FallDirectionX#,object position y(2)+FallDirectionY#,object position z(2)+FallDirectionZ#
        		FallDirectionX#=FallDirectionX#*0.95 `for air friction
        		FallDirectionZ#=FallDirectionZ#*0.95
        		dec FallDirectionY#,gravity#/7
        	endif
        endif
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
       REM Do wall check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#+FallDirectionX#*50,oldy#+FallDirectionY#*50,oldz#+FallDirectionZ#*50
       	else
	        move object 2,Speed#+height    `I would use a Speed variable here
       	endif
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#,oldy#,oldz#
       	else
	        move object 2,-(Speed#+height)    `I would use a Speed variable here
       	endif
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#-20,oldz#,newx#,newy#-20,newz#,2)
        if coll<>0
`        dec FallCondition
`        if FallCondition<0 then FallCondition=0
        	d#=sc_getcollisiondistance()
        	if d#<Speed#+height `I would use a Speed variable here
                    	`get collision data
                 	ny#=sc_getcollisionnormaly()
            	if abs(abs(ny#)-abs(cos(object angle x(2))))>0.707
                	position object 2,SC_getCollisionSlideX(),SC_getCollisionSlideY(),SC_getCollisionSlideZ() 
                	Move object 2,-height
                else
             		rotate object 2,0,0,0
            	endif
        	endif
        endif
       if object position y(2)<50.0 then position object 2,object position x(2),50,object position z(2)
endfunction

The [SPACEBAR] will stop him in his tracks....

The fastest code is the code never written.

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 17:42 Edited at: 29th Jul 2010 17:42

Link

the player
needs to
slow down
to 0
automatic.
not with
a key.
also, when
holding w
the speed
has no
limit.

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 29th Jul 2010 17:50

Link

function player()
    
	if object position y(2)>50 then move object down 2,gravity#
    
        REM Move player
        if keystate(17) and object position y(2)<60
        	inc Speed#,0.5
        	if Speed>68.6 then Speed#=68.6
`        	Speed#=41.4		`min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
        	dec Speed#,0.05
        	if Speed#<-10 then Speed#=-10
        endif
       	if spacekey()=1 then Speed#=0
        move object 2,Speed#
        turn object right 2,90
        move object 2,Speed#/7.5
        turn object left 2,90
	if if keystate(17)=0 and keystate(31)=0
		if Speed#>0.0 then dec Speed#,0.01
		if Speed#<0.0 then inc Speed#,0.01
	endif
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       pitch object down 2,90
        move object 2,height*abs(Speed#)+height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-(height*abs(Speed#)+height)
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,2)
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                if ny#>0.0 then FallCondition=0
                if ny#<>0.0
                	`make an adjustment to z normal (cheating a bit here to make it work)
                	d#=sc_getcollisiondistance()
                	`adjust player angle to suit
                	point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                	`move 'up' to half height above ground
                	move object 2,(height/2)-d#
                	if FallCondition>0 then position object 2,object position x(2),object position y(2)+FallDirectionY#,object position z(2)
                	`re-adjust direction
                	pitch object down 2,90
                endif

if (LoopY#=90 or LoopY#=270) `and ny#<1.0 and nz#<0 
                	if ny#<1.0 and nz#<0 then turn object right 2,180
                endif
                if LoopY#=0 or LoopY#=180
                	if ny#<1.0 and nx#>0 then turn object left 2,90
                	if ny#<1.0 and nx#<0 then turn object right 2,90
                endif
               	rem find the player's direction angle
           		turn object right 2,camang
				fx#=object position x(2)
				fy#=object position y(2)
				fz#=object position z(2)
				move object 2,1 
           		fx#=object position x(2)-fx#
           		fy#=object position y(2)-fy#
           		fz#=object position z(2)-fz#
           		move object 2,-1 
           		turn object left 2,camang `put it back
				if fy#>0.0 then dec Speed#,(1.0-ny#)/2.0
				if fy#<0.0 then inc Speed#,(1.0-ny#)/2.0
				if ny#<0.0 and Speed#<15.0 
					position object 2,object position x(2),object position y(2)-60,object position z(2)
					FallDirectionX#=-fx#*Speed#*20.0
					FallDirectionY#=-fy#*Speed#*10.0
					FallDirectionZ#=-fz#*Speed#*20.0
					FallPitch#=object angle x(2)
					Speed#=0
					FallCondition=1
				endif

text 0,200,str$(nx#)+" "+str$(ny#)+" "+str$(nz#)
                text 0,220,str$(FallPitch#)
        else
        	rotate object 2,0,0,0
        	if FallCondition>0
        	inc test#
        		turn object right 2,180
        		position object 2,object position x(2)+FallDirectionX#,object position y(2)+FallDirectionY#,object position z(2)+FallDirectionZ#
        		FallDirectionX#=FallDirectionX#*0.95 `for air friction
        		FallDirectionZ#=FallDirectionZ#*0.95
        		dec FallDirectionY#,gravity#/7
        	endif
        endif
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
       REM Do wall check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#+FallDirectionX#*50,oldy#+FallDirectionY#*50,oldz#+FallDirectionZ#*50
       	else
	        move object 2,Speed#+height    `I would use a Speed variable here
       	endif
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#,oldy#,oldz#
       	else
	        move object 2,-(Speed#+height)    `I would use a Speed variable here
       	endif
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#-20,oldz#,newx#,newy#-20,newz#,2)
        if coll<>0
`        dec FallCondition
`        if FallCondition<0 then FallCondition=0
        	d#=sc_getcollisiondistance()
        	if d#<Speed#+height `I would use a Speed variable here
                    	`get collision data
                 	ny#=sc_getcollisionnormaly()
            	if abs(abs(ny#)-abs(cos(object angle x(2))))>0.707
                	position object 2,SC_getCollisionSlideX(),SC_getCollisionSlideY(),SC_getCollisionSlideZ() 
                	Move object 2,-height
                else
             		rotate object 2,0,0,0
            	endif
        	endif
        endif
       if object position y(2)<50.0 then position object 2,object position x(2),50,object position z(2)
endfunction

+ Code Snippet

function player()
    
	if object position y(2)>50 then move object down 2,gravity#
    
        REM Move player
        if keystate(17) and object position y(2)<60
        	inc Speed#,0.5
        	if Speed>68.6 then Speed#=68.6
`        	Speed#=41.4		`min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
        	dec Speed#,0.05
        	if Speed#<-10 then Speed#=-10
        endif
       	if spacekey()=1 then Speed#=0
        move object 2,Speed#
        turn object right 2,90
        move object 2,Speed#/7.5
        turn object left 2,90
	if if keystate(17)=0 and keystate(31)=0
		if Speed#>0.0 then dec Speed#,0.01
		if Speed#<0.0 then inc Speed#,0.01
	endif
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       pitch object down 2,90
        move object 2,height*abs(Speed#)+height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-(height*abs(Speed#)+height)
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,2)
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                if ny#>0.0 then FallCondition=0
                if ny#<>0.0
                	`make an adjustment to z normal (cheating a bit here to make it work)
                	d#=sc_getcollisiondistance()
                	`adjust player angle to suit
                	point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                	`move 'up' to half height above ground
                	move object 2,(height/2)-d#
                	if FallCondition>0 then position object 2,object position x(2),object position y(2)+FallDirectionY#,object position z(2)
                	`re-adjust direction
                	pitch object down 2,90
                endif

                if (LoopY#=90 or LoopY#=270) `and ny#<1.0 and nz#<0 
                	if ny#<1.0 and nz#<0 then turn object right 2,180
                endif
                if LoopY#=0 or LoopY#=180
                	if ny#<1.0 and nx#>0 then turn object left 2,90
                	if ny#<1.0 and nx#<0 then turn object right 2,90
                endif
               	rem find the player's direction angle
           		turn object right 2,camang
				fx#=object position x(2)
				fy#=object position y(2)
				fz#=object position z(2)
				move object 2,1 
           		fx#=object position x(2)-fx#
           		fy#=object position y(2)-fy#
           		fz#=object position z(2)-fz#
           		move object 2,-1 
           		turn object left 2,camang `put it back
				if fy#>0.0 then dec Speed#,(1.0-ny#)/2.0
				if fy#<0.0 then inc Speed#,(1.0-ny#)/2.0
				if ny#<0.0 and Speed#<15.0 
					position object 2,object position x(2),object position y(2)-60,object position z(2)
					FallDirectionX#=-fx#*Speed#*20.0
					FallDirectionY#=-fy#*Speed#*10.0
					FallDirectionZ#=-fz#*Speed#*20.0
					FallPitch#=object angle x(2)
					Speed#=0
					FallCondition=1
				endif

                text 0,200,str$(nx#)+" "+str$(ny#)+" "+str$(nz#)
                text 0,220,str$(FallPitch#)
        else
        	rotate object 2,0,0,0
        	if FallCondition>0
        	inc test#
        		turn object right 2,180
        		position object 2,object position x(2)+FallDirectionX#,object position y(2)+FallDirectionY#,object position z(2)+FallDirectionZ#
        		FallDirectionX#=FallDirectionX#*0.95 `for air friction
        		FallDirectionZ#=FallDirectionZ#*0.95
        		dec FallDirectionY#,gravity#/7
        	endif
        endif
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
       REM Do wall check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#+FallDirectionX#*50,oldy#+FallDirectionY#*50,oldz#+FallDirectionZ#*50
       	else
	        move object 2,Speed#+height    `I would use a Speed variable here
       	endif
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
       	if FallCondition>0
       		position object 2,oldx#,oldy#,oldz#
       	else
	        move object 2,-(Speed#+height)    `I would use a Speed variable here
       	endif
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#-20,oldz#,newx#,newy#-20,newz#,2)
        if coll<>0
`        dec FallCondition
`        if FallCondition<0 then FallCondition=0
        	d#=sc_getcollisiondistance()
        	if d#<Speed#+height `I would use a Speed variable here
                    	`get collision data
                 	ny#=sc_getcollisionnormaly()
            	if abs(abs(ny#)-abs(cos(object angle x(2))))>0.707
                	position object 2,SC_getCollisionSlideX(),SC_getCollisionSlideY(),SC_getCollisionSlideZ() 
                	Move object 2,-height
                else
             		rotate object 2,0,0,0
            	endif
        	endif
        endif
       if object position y(2)<50.0 then position object 2,object position x(2),50,object position z(2)
endfunction

Take a look at this section of the code:

+ Code Snippet

	if if keystate(17)=0 and keystate(31)=0
		if Speed#>0.0 then dec Speed#,0.01
		if Speed#<0.0 then inc Speed#,0.01
	endif

If the player is doing nothing with changing Speed#, then it will slow down automatically. Change the 0.01 to whatever you think it should be, but keep in mind that it SHOULD NOT be a value greater than the ones for the player pushing fwd/back.

The fastest code is the code never written.

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 20:15

Link

ok, i fixed
the speed
now i need
help fixing
falling off
the side
of the
loop

global Speed# as float
global CameraDistance# as float
global AngleX# as float
global AngleY# as float
CameraDistance#=500
set camera range .1,50000
Rem Project: oldcode
Rem Created: Wednesday, July 28, 2010

Rem ***** Main Source File *****

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

global coll
global gravity#=11.0
global test# as float
global Speed# as float
global FallCondition=0
global FallDirectionX# as float
global FallDirectionY# as float
global FallDirectionZ# as float
global FallPitch# as float

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera -200,200,-200

`load loopy world
load object "loop.dbo",1
yrotate object 1,90
global LoopY# as float
LoopY#=object angle y(1)
sc_setupcomplexobject 1,1,2

`make a 'person'
global height as float
height=100
make object box 2,height/3,height,height/6
position object 2,0,height/2+100,0
set shadow shading on 2

set shadow position -1,-100,500,-100

REM NEW!!!
global camang as float

sc_setupobject 1,1,0
sc_setupobject 2,1,0

`automatic object collision 1,1,0

`set object collision on 1

`automatic object collision 2,1,1

`set object collision on 2
make object sphere 3,10
color object 3,rgb(255,0,0)
DO
if keystate(59)
position object 2,0,height/2+100,0
Speed#=0
endif
`collision()
sc_updateobject 1
sc_updateobject 2
               
if inkey$()<>"t" then player()
        
set camera to follow object position x(2),object position y(2),object position z(2),camang,400,4,20,0 REM EDITED!!!
position object 3,object position x(2),object position y(2),object position z(2)
rotate object 3,object angle x(2),object angle y(2),object angle z(2)
turn object right 3,camang
move object up 3,50
move object 3,20
RotateCamera()       
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"coll:"+str$(coll)
        text 10,150,"test:"+str$(test#)
        text 10,160,"speed:"+str$(Speed#)
        
        sync
        
LOOP `pardon the pun :)
function collision()
if sc_objectcollision(1,2) then end
endfunction

function player()
    
    if object position y(2)>50
    move object down 2,gravity#
    rotate object 2,object angle x(2),0,object angle z(2)
    endif
    
        REM Move player
        if keystate(17) and object position y(2)<60
            inc Speed#,0.5
            if Speed#>41.4 then Speed#=41.4
`            Speed#=41.4        `min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
            dec Speed#,0.5
            if Speed#<-10 then Speed#=-10
        endif

move object 2,Speed#
`        turn object right 2,90
`        move object 2,Speed#/7.5
`        turn object left 2,90
if keystate(17)=0 and keystate(31)=0 : Speed# = Speed# * 0.99 : if Speed#>-0.3 and Speed#<0.3 : Speed# = 0.0 : endif : endif
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       pitch object down 2,90
        move object 2,height*abs(Speed#)+height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-(height*abs(Speed#)+height)
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,2)
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                if ny#>0.0 then FallCondition=0
                if ny#<>0.0
                    `make an adjustment to z normal (cheating a bit here to make it work)
                    d#=sc_getcollisiondistance()
                    `adjust player angle to suit
                    point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                    `move 'up' to half height above ground
                    move object 2,(height/2)-d#
                    if FallCondition>0 then position object 2,object position x(2),object position y(2)+FallDirectionY#,object position z(2)
                    `re-adjust direction
                    pitch object down 2,90
                endif

if (LoopY#=90 or LoopY#=270) `and ny#<1.0 and nz#<0 
                    if ny#<1.0 and nz#<0 then turn object right 2,180
                endif
                if LoopY#=0 or LoopY#=180
                    if ny#<1.0 and nx#>0 then turn object left 2,90
                    if ny#<1.0 and nx#<0 then turn object right 2,90
                endif
                   rem find the player's direction angle
                   turn object right 2,camang
                fx#=object position x(2)
                fy#=object position y(2)
                fz#=object position z(2)
                move object 2,1 
                   fx#=object position x(2)-fx#
                   fy#=object position y(2)-fy#
                   fz#=object position z(2)-fz#
                   move object 2,-1 
                   turn object left 2,camang `put it back
                if fy#>0.0 then dec Speed#,(1.0-ny#)/2.0
                if fy#<0.0 then inc Speed#,(1.0-ny#)/2.0
                if ny#<0.0 and Speed#<15.0 
                    position object 2,object position x(2),object position y(2)-60,object position z(2)
                    FallDirectionX#=-fx#*Speed#*20.0
                    FallDirectionY#=-fy#*Speed#*10.0
                    FallDirectionZ#=-fz#*Speed#*20.0
                    FallPitch#=object angle x(2)
                    Speed#=0
                    FallCondition=1
                endif

text 0,200,str$(nx#)+" "+str$(ny#)+" "+str$(nz#)
                text 0,220,str$(FallPitch#)
        else
            rotate object 2,0,0,0
            if FallCondition>0
            inc test#
                turn object right 2,180
                position object 2,object position x(2)+FallDirectionX#,object position y(2)+FallDirectionY#,object position z(2)+FallDirectionZ#
                FallDirectionX#=FallDirectionX#*0.95 `for air friction
                FallDirectionZ#=FallDirectionZ#*0.95
                dec FallDirectionY#,gravity#/7
            endif
        endif
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
       REM Do wall check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
           if FallCondition>0
               position object 2,oldx#+FallDirectionX#*50,oldy#+FallDirectionY#*50,oldz#+FallDirectionZ#*50
           else
            move object 2,Speed#+height    `I would use a Speed variable here
           endif
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
           if FallCondition>0
               position object 2,oldx#,oldy#,oldz#
           else
            move object 2,-(Speed#+height)    `I would use a Speed variable here
           endif
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#-20,oldz#,newx#,newy#-20,newz#,2)
        if coll<>0
`        dec FallCondition
`        if FallCondition<0 then FallCondition=0
            d#=sc_getcollisiondistance()
            if d#<Speed#+height `I would use a Speed variable here
                        `get collision data
                     ny#=sc_getcollisionnormaly()
                if abs(abs(ny#)-abs(cos(object angle x(2))))>0.707
                    position object 2,SC_getCollisionSlideX(),SC_getCollisionSlideY(),SC_getCollisionSlideZ() 
                    Move object 2,-height
                else
                     rotate object 2,0,0,0
                endif
            endif
        endif
       if object position y(2)<50.0 then position object 2,object position x(2),50,object position z(2)
endfunction

function regplay()

move object 2,(keystate(17)-keystate(31))*4

endfunction
function RotateCamera()
hide mouse
position mouse screen width()/2,screen height()/2
    MX# as float
    MX#=MOUSEMOVEX()
    MY# as float
    MY#=MOUSEMOVEY()
    AngleY#=wrapvalue(AngleY#+(MX#/5.0))
    AngleX#=(AngleX#+(MY#/5.0))
    if AngleX#>90.0 then AngleX#=90.0
    if AngleX#<-1.0 then AngleX#=-1.0
    MouseScroll=-mousemovez()
    CameraDistance#=CameraDistance#+MouseScroll
    if CameraDistance#>8000.0 then CameraDistance#=8000.0
    if CameraDistance#<10.0 then CameraDistance#=10.0
    `position camera 0,300,0 `the lookat point
    position camera object position x(2),object position y(2),object position z(2)
    rotate camera AngleX#,AngleY#,0.0
    move camera -CameraDistance#
endfunction

+ Code Snippet

global Speed# as float
global CameraDistance# as float
global AngleX# as float
global AngleY# as float
CameraDistance#=500
set camera range .1,50000
Rem Project: oldcode
Rem Created: Wednesday, July 28, 2010

Rem ***** Main Source File *****

Rem Project: loop
Rem Created: Tuesday, May 18, 2010

global coll
global gravity#=11.0
global test# as float
global Speed# as float
global FallCondition=0
global FallDirectionX# as float
global FallDirectionY# as float
global FallDirectionZ# as float
global FallPitch# as float

Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
position camera -200,200,-200

`load loopy world
load object "loop.dbo",1
yrotate object 1,90
global LoopY# as float
LoopY#=object angle y(1)
sc_setupcomplexobject 1,1,2

`make a 'person'
global height as float
height=100
make object box 2,height/3,height,height/6
position object 2,0,height/2+100,0
set shadow shading on 2

set shadow position -1,-100,500,-100

REM NEW!!!
global camang as float

sc_setupobject 1,1,0
sc_setupobject 2,1,0

`automatic object collision 1,1,0

`set object collision on 1

`automatic object collision 2,1,1

`set object collision on 2
make object sphere 3,10
color object 3,rgb(255,0,0)
DO
if keystate(59)
position object 2,0,height/2+100,0
Speed#=0
endif
`collision()
sc_updateobject 1
sc_updateobject 2
               
if inkey$()<>"t" then player()
        
set camera to follow object position x(2),object position y(2),object position z(2),camang,400,4,20,0 REM EDITED!!!
position object 3,object position x(2),object position y(2),object position z(2)
rotate object 3,object angle x(2),object angle y(2),object angle z(2)
turn object right 3,camang
move object up 3,50
move object 3,20
RotateCamera()       
        text 10,10,"x:"+str$(object angle x(2))
        text 10,30,"y:"+str$(object angle y(2))
        text 10,50,"z:"+str$(object angle z(2))
        text 10,70,"xpos:"+str$(object position x(2))
        text 10,90,"ypos:"+str$(object position y(2))
        text 10,110,"zpos:"+str$(object position z(2))
        text 10,130,"coll:"+str$(coll)
        text 10,150,"test:"+str$(test#)
        text 10,160,"speed:"+str$(Speed#)
        
        sync
        
LOOP `pardon the pun :)
function collision()
if sc_objectcollision(1,2) then end
endfunction

function player()
    
    if object position y(2)>50
    move object down 2,gravity#
    rotate object 2,object angle x(2),0,object angle z(2)
    endif
    
        REM Move player
        if keystate(17) and object position y(2)<60
            inc Speed#,0.5
            if Speed#>41.4 then Speed#=41.4
`            Speed#=41.4        `min speed to go around=41.4     max speed before it doesn't work=68.6
        endif
        if keystate(31)
            dec Speed#,0.5
            if Speed#<-10 then Speed#=-10
        endif

        move object 2,Speed#
`        turn object right 2,90
`        move object 2,Speed#/7.5
`        turn object left 2,90
if keystate(17)=0 and keystate(31)=0 : Speed# = Speed# * 0.99 : if Speed#>-0.3 and Speed#<0.3 : Speed# = 0.0 : endif : endif
        REM Do ground check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
       pitch object down 2,90
        move object 2,height*abs(Speed#)+height
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
        move object 2,-(height*abs(Speed#)+height)
        pitch object up 2,90
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#,oldz#,newx#,newy#,newz#,2)
        if coll<>0
                `get collision data
                nx#=sc_getcollisionnormalx()
                ny#=sc_getcollisionnormaly()
                nz#=sc_getcollisionnormalz()
                if ny#>0.0 then FallCondition=0
                if ny#<>0.0
                    `make an adjustment to z normal (cheating a bit here to make it work)
                    d#=sc_getcollisiondistance()
                    `adjust player angle to suit
                    point object 2,object position x(2)+nx#,object position y(2)+ny#,object position z(2)+nz#
                    `move 'up' to half height above ground
                    move object 2,(height/2)-d#
                    if FallCondition>0 then position object 2,object position x(2),object position y(2)+FallDirectionY#,object position z(2)
                    `re-adjust direction
                    pitch object down 2,90
                endif

                if (LoopY#=90 or LoopY#=270) `and ny#<1.0 and nz#<0 
                    if ny#<1.0 and nz#<0 then turn object right 2,180
                endif
                if LoopY#=0 or LoopY#=180
                    if ny#<1.0 and nx#>0 then turn object left 2,90
                    if ny#<1.0 and nx#<0 then turn object right 2,90
                endif
                   rem find the player's direction angle
                   turn object right 2,camang
                fx#=object position x(2)
                fy#=object position y(2)
                fz#=object position z(2)
                move object 2,1 
                   fx#=object position x(2)-fx#
                   fy#=object position y(2)-fy#
                   fz#=object position z(2)-fz#
                   move object 2,-1 
                   turn object left 2,camang `put it back
                if fy#>0.0 then dec Speed#,(1.0-ny#)/2.0
                if fy#<0.0 then inc Speed#,(1.0-ny#)/2.0
                if ny#<0.0 and Speed#<15.0 
                    position object 2,object position x(2),object position y(2)-60,object position z(2)
                    FallDirectionX#=-fx#*Speed#*20.0
                    FallDirectionY#=-fy#*Speed#*10.0
                    FallDirectionZ#=-fz#*Speed#*20.0
                    FallPitch#=object angle x(2)
                    Speed#=0
                    FallCondition=1
                endif

                text 0,200,str$(nx#)+" "+str$(ny#)+" "+str$(nz#)
                text 0,220,str$(FallPitch#)
        else
            rotate object 2,0,0,0
            if FallCondition>0
            inc test#
                turn object right 2,180
                position object 2,object position x(2)+FallDirectionX#,object position y(2)+FallDirectionY#,object position z(2)+FallDirectionZ#
                FallDirectionX#=FallDirectionX#*0.95 `for air friction
                FallDirectionZ#=FallDirectionZ#*0.95
                dec FallDirectionY#,gravity#/7
            endif
        endif
        if keystate(30)
                dec camang
        endif
        if keystate(32)
                inc camang
        endif
        turn object right 2,camang
       REM Do wall check
        `get start and end points for ray cast
        oldx#=object position x(2)
        oldy#=object position y(2)
        oldz#=object position z(2)
           if FallCondition>0
               position object 2,oldx#+FallDirectionX#*50,oldy#+FallDirectionY#*50,oldz#+FallDirectionZ#*50
           else
            move object 2,Speed#+height    `I would use a Speed variable here
           endif
        newx#=object position x(2)
        newy#=object position y(2)
        newz#=object position z(2)
           if FallCondition>0
               position object 2,oldx#,oldy#,oldz#
           else
            move object 2,-(Speed#+height)    `I would use a Speed variable here
           endif
        `do the ray cast
        coll=sc_raycastgroup(1,oldx#,oldy#-20,oldz#,newx#,newy#-20,newz#,2)
        if coll<>0
`        dec FallCondition
`        if FallCondition<0 then FallCondition=0
            d#=sc_getcollisiondistance()
            if d#<Speed#+height `I would use a Speed variable here
                        `get collision data
                     ny#=sc_getcollisionnormaly()
                if abs(abs(ny#)-abs(cos(object angle x(2))))>0.707
                    position object 2,SC_getCollisionSlideX(),SC_getCollisionSlideY(),SC_getCollisionSlideZ() 
                    Move object 2,-height
                else
                     rotate object 2,0,0,0
                endif
            endif
        endif
       if object position y(2)<50.0 then position object 2,object position x(2),50,object position z(2)
endfunction

function regplay()

move object 2,(keystate(17)-keystate(31))*4

endfunction
function RotateCamera()
hide mouse
position mouse screen width()/2,screen height()/2
    MX# as float
    MX#=MOUSEMOVEX()
    MY# as float
    MY#=MOUSEMOVEY()
    AngleY#=wrapvalue(AngleY#+(MX#/5.0))
    AngleX#=(AngleX#+(MY#/5.0))
    if AngleX#>90.0 then AngleX#=90.0
    if AngleX#<-1.0 then AngleX#=-1.0
    MouseScroll=-mousemovez()
    CameraDistance#=CameraDistance#+MouseScroll
    if CameraDistance#>8000.0 then CameraDistance#=8000.0
    if CameraDistance#<10.0 then CameraDistance#=10.0
    `position camera 0,300,0 `the lookat point
    position camera object position x(2),object position y(2),object position z(2)
    rotate camera AngleX#,AngleY#,0.0
    move camera -CameraDistance#
endfunction

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 20:23

Link

do ya need
more info?

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 29th Jul 2010 20:46

Link

Does it go wierd when you fall off going fast? Or does it only do it when you go slow?

The fastest code is the code never written.

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 20:50 Edited at: 29th Jul 2010 20:51

Link

it goes
nuts when
you go
fast
or are
at a
weird angle
and go
fast.
i also
need this
loop code
to allow
for ANY
size mesh
to be
used
and it
still allows
u to
go around
the loop

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 29th Jul 2010 21:03

Link

The mesh size is not a problem. Take out the height variable and put in a constant 100. Everything works on that "size". The character will move the same way no matter what the size is. You can test it out using height=200 and see what it does.

As far as the "goes nuts" part, I'm not sure how to get rid of that. This was put in so you can "pause" at any time:

+ Code Snippet

if inkey$()<>"t" then player()

Set up areas in your code that you want to test and place "test#"=values/variables for whatever you are looking at. Press and hold "t" at any point to see what "test#" is. Rem out all the camera controls except for RotateCamera() and you will be able to move the camera to any angle to see where the player box is and evaluate the variables shown on screen (while holding "t"). See what conditions exist for the player box and for the normals of the loop. Something will give you a "this is where it happens" idea and you can go from there to put in a condition at which the player box actually falls off the loop instead of "freaking out".

The fastest code is the code never written.

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 21:09

Link

that really
isnt working

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 29th Jul 2010 22:03

Link

Dude. I can't seriously do ALL the programming for you. I hate to leave you like this, but I need to get to my own project. I have given you tools to find the problem-- use them. If you can't find a way to fix it on your own, I'll check in sometime and help. I've dedicated more time to helping you these past few days than I have to my family or work or my project.

Please don't think I'm being a jerk, but you can figure some things out on your own. Think of what could cause the problem and try something that you think would fix it. If that doesn't work, re-think and try something else. As allways, BACKUP your working code before doing anything major or something you are unsure of.

Good luck.

The fastest code is the code never written.

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 22:21

Link

ok, alls
i need
to know
is how
to make
it so
you can
use any
size level

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 29th Jul 2010 22:25

Link

The level or the player size?

The fastest code is the code never written.

Back to top

Profile PM Email Website

Mugen Wizardry

User Banned

Posted: 29th Jul 2010 22:41 Edited at: 30th Jul 2010 01:08

Link

the level

CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/

Back to top

Profile

Hawkblood

16

Years of Service

User Offline

Joined: 5th Dec 2009

Location:

Posted: 30th Jul 2010 00:18

Link

The only problem will be the size of the loops. If you make them too big, the "physics" will not work right. The system we made works best with the size we tested it with. If you want to use a different size, adjust the collision conditions. Everything that has to do with size like:
move object 2,height*abs(Speed#)+height
&
coll=sc_raycastgroup(1,oldx#,oldy#-20,oldz#,newx#,newy#-20,newz#,2)
will have to be tweaked to get it to work right. You CAN vary the size of the loops some without too much trouble, but if you go too big or too small, it simply won't work. I don't know what the max/min size is for the loop, but you can try different ones to find out.

Remember, with Sparky's you have to set the size/scaling BEFORE you set up the collision or you have to use SC_allowObjectScaling Object_Num
to allow for scaling after the collision setup. Read the help for a better explaination.

The fastest code is the code never written.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / loop code?