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

0 Members and 1 Guest are viewing this topic.

Offline LincolnB

  • Check It Out Now
  • LV9 Veteran (Next: 1337)
  • *********
  • Posts: 1115
  • Rating: +125/-4
  • By Hackers For Hackers
    • View Profile
Re: Axe Physics (Thanks ephan!)
« Reply #15 on: February 29, 2012, 10:02:26 pm »
What exactly does it do?
Completed Projects:
   >> Spacky Emprise   >> Spacky 2 - Beta   >> Fantastic Sam
   >> An Exercise In Futility   >> GeoCore

My Current Projects:

Projects in Development:
In Medias Res - Contest Entry

Talk to me if you need help with Axe coding.


Spoiler For Bragging Rights:
Not much yet, hopefully this section will grow soon with time (and more contests)



Offline leafy

  • CoT Emeritus
  • LV10 31337 u53r (Next: 2000)
  • *
  • Posts: 1554
  • Rating: +475/-97
  • Seizon senryakuuuu!
    • View Profile
    • keff.me
Re: Axe Physics (Thanks ephan!)
« Reply #16 on: February 29, 2012, 10:06:28 pm »
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-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?
In-progress: Graviter (...)

Offline Builderboy

  • Physics Guru
  • CoT Emeritus
  • LV13 Extreme Addict (Next: 9001)
  • *
  • Posts: 5673
  • Rating: +613/-9
  • Would you kindly?
    • View Profile
Re: Axe Physics (Thanks ephan!)
« 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
« Last Edit: February 29, 2012, 10:28:38 pm by Builderboy »

Offline hellninjas

  • LV7 Elite (Next: 700)
  • *******
  • Posts: 625
  • Rating: +17/-0
    • View Profile
Re: Axe Physics (Thanks ephan!)
« Reply #18 on: February 29, 2012, 11:23:15 pm »
WOO! I get it now!
Thanks goes to you all! :D!!!

Offline LincolnB

  • Check It Out Now
  • LV9 Veteran (Next: 1337)
  • *********
  • Posts: 1115
  • Rating: +125/-4
  • By Hackers For Hackers
    • View Profile
Re: Axe Physics (Thanks ephan!)
« Reply #19 on: March 01, 2012, 05:11:05 pm »
Glad you figured everything out!
Completed Projects:
   >> Spacky Emprise   >> Spacky 2 - Beta   >> Fantastic Sam
   >> An Exercise In Futility   >> GeoCore

My Current Projects:

Projects in Development:
In Medias Res - Contest Entry

Talk to me if you need help with Axe coding.


Spoiler For Bragging Rights:
Not much yet, hopefully this section will grow soon with time (and more contests)