### Author Topic: Problem  (Read 7670 times)

0 Members and 1 Guest are viewing this topic.

#### mrmprog

• LV7 Elite (Next: 700)
• Posts: 559
• Rating: +35/-1
##### Re: Problem
« Reply #15 on: July 24, 2011, 11:08:01 pm »
Lol, Ashbad's code is pretty awesome. Anyway, I have a new problem. I used some jumping/gravity code from Eeem's platform tutorial, and jumping does nothing. I understand the code, but I can't figure out why the code doesn't work. It is probably something very simple that I am missing, but I cant figure it out.

Code: [Select]
:.GAME
:DiagnosticOff
:ClrDraw
:[1824187E5A182442]→Pic1
:40→A
:1→B
:0→X
:1→C
:Full
:Line(0,63,95,63)
:Line(0,63,0,0)
:Line(95,63,95,0)
:
:For(G,1,15)
:rand^(95-0+1)+0→D
:rand^(95-0+1)+0→E
:rand^(63-0+1)+0→F
:Line(D,F,E,F)
:End
:
:1→C
:Repeat getKey=15
:Pt-Change(A,B,Pic1)
:DispGraph
:Pt-Change(A,B,Pic1
:A-(getKey(2)*(pxl-Test(A+0,B+5)=0))→A
:A+(getKey(3)*(pxl-Test(A+7,B+5)=0))→A
:pxl-Test(A+4,B+8)→C
:B+(C=0)→B
:
:!If D
:10*(getKey(54) and (C))→D
:Else
:D-1→D
:End
:
Here?

B+(2*((C=0) and (D)))→B

:End

Problem was solved
« Last Edit: July 27, 2011, 12:01:17 am by mrmprog »