Author Topic: Axe Physics (Thanks ephan!) (Read 8484 times)

LincolnB · « **Reply #15 on:** February 29, 2012, 10:02:26 pm »

What exactly does it do?

leafy · « **Reply #16 on:** February 29, 2012, 10:06:28 pm »

:.ACCELL
:44*256→X
:28*256→Y
:0→A→B

:Repeat getKey(15)
:Pt-On({°X+1},{°Y+1},[FFFFFFFFFFFFFFFF])
:getKey(3)-getKey(2)*10+A→A

:If getKey(54)
:B-216→B
:End

:If X>>22528
:22528→X
:0→A
:End

:If X<<0
:0→X→A
:End

:If Y>>14336
:14336→Y
:0→B
:End

:If Y<<0
:0→Y→B
:End

:!If getKey(2)
:!If getKey(3)
:A//2→A
:End:End

:X+A→X
:B+6→B+Y→Y

:DispGraphClrDraw
:End

I'm not quite sure what the problem was, but you are missing acceleration, so I added that back in. I also increased the jump push, so maybe it was too low before as to not be noticeable?

Builderboy · « **Reply #17 on:** February 29, 2012, 10:26:54 pm »

I modified leafy's code such that it hopefully now works.
*Builderboy runs*

Code: [Select]

:.ACCELL
:44*256→X
:28*256→Y
:0→A→B
:
:Repeat getKey(15)
:Pt-On({°X+1},{°Y+1},[FFFFFFFFFFFFFFFF])
:getKey(3)-getKey(2)*10+A→A
:
:If getKey(54)
:B-32→B
:End
:
:!If getKey(2)
:!If getKey(3)
:A//2→A
:End:End
:
:X+A→X
:B+6→B+Y→Y

:If X>22528
:X-A→X
:0→A
:End
:
:
:If Y>14336
:Y-B→Y
:0→B
:End
:
:DispGraphClrDraw
:End

hellninjas · « **Reply #18 on:** February 29, 2012, 11:23:15 pm »

WOO! I get it now!
Thanks goes to you all!

!!!

LincolnB · « **Reply #19 on:** March 01, 2012, 05:11:05 pm »

Glad you figured everything out!

Author Topic: Axe Physics (Thanks ephan!) (Read 8484 times)

LincolnB

Re: Axe Physics (Thanks ephan!)

leafy

Re: Axe Physics (Thanks ephan!)

Builderboy

Re: Axe Physics (Thanks ephan!)

hellninjas

Re: Axe Physics (Thanks ephan!)

LincolnB

Re: Axe Physics (Thanks ephan!)