Hi
I've made a "sort of game" and I would like you guys to take a look at it.
It is far from complete, as it features only one room.
It is going to feature powerups and of course, enemies!

EDIT:
thank you for your replies, i really appreciate it!
also i've attached an updated, no shell version.
oh and can somebody tell me why my character can sometimes still pass trough walls?

thank you for the replies,  i really appreciate it.

the code finally works like i wanted it to.
i'm going to learn how slope physics work now.

wow these tutorials really help, thanks a lot!

why can you catch so few pokemon?
i would love to catch 'em all on my calc without constantly having to zoom in and out...

oh... but if he shared the source code someone could have finished it right?

sad that all good things die so quickly 

edit: btw didn't you make the BASIC metroid games? they're awesome!

Hi i'm new here and i am learning axe right now. i have written some code and it works, but i can't seem to stop my block from going offscreen...
can someone please help me?
here is the sourcecode:
.GRAVITY
Full
DiagnosticOff
#ExprOn
44*256→X
26*256→Y
0→A
0→B
Repeat getKey(15)
ClrDraw
rect(X/256,Y/256,8,8)
If Y/256=0
‾B→B
End
If Y/256=56
0→B
Else
B+4→B
End
If getKey(2)
A-4→A
End
If getKey(3)
A+4→A
End
If getKey(4)
B-8→B
End
If A<<0
A+1→A
End
If A>>0
A-1→A
End
Y+B→Y
If X/256=0
‾A→A
End
If X/256=86
‾A→A
End
X+A→X
DispGraph
End

edit: i've edited my program and now it tests pixels if there is a pixel next to him but sometimes it still goes offscreen what am i doing wrong

.PHYSICS

.full speed, no marching ants and optimized for size
Full
DiagnosticOff
ExprOff

.smiley sprite
[3C42A581A599423C]→Pic1

.initiate x/y coordinates
44*256→X
26*256→Y

.set initial acceleration to zero
0→A
0→B

.main loop until [clear] is pressed
Repeat getKey(15)

.pause
If getKey(54)
Pause 12000
End

.display sprite
Pt-On(X/256,Y/256,Pic1

.display border lines
HLine(0)
HLine(63)
VLine(0)
VLine(95)

.ceiling collision detection
If pxl-Test(X/256,Y/256)
 ‾B→B
End

.gravity and ground detection
If pxl-Test(X/256,Y/256+8
 0→B
Else
 B+4→B
End

.move left
If getKey(2)
 A-4→A
End

.move right
If getKey(3)
 A+4→A
End

.move up
If getKey(4)
 B-8→B
End

.friction right
If (A<<0)
 A+2→A
Else
 A+1→A
End

.friction left
If (A>>0)
 A-2→A
Else
 A-1→A
End

.wall collision
If pxl-Test(X/256,Y/256+1) or pxl-Test(X/256+7,Y/256+1)
 ‾A→A
End

.accelerate
X+A→X
Y+B→Y

.set vector length
A//8→C
B//8→D

.display force vectors
Line(X/256+4,Y/256+4,X/256+4+C,Y/256+4)
Line(X/256+4,Y/256+4,X/256+4,Y/256+4+D)

.update screen and end loop
DispGraph
ClrDraw
End