The New xLIB - An APP
Moderator: tr1p1ea
@tr1p for me thats more other stuff that make me lose motivation (not only community stuff)
as for xLIB featuring I hope it will, its the greatest basic extension lib ever made and there is alerady 3 games made for it, if not more. I'll feature it for sure in Omnimaga news. Sometimes I think tr1p1ea himself should be featured too
as for xLIB featuring I hope it will, its the greatest basic extension lib ever made and there is alerady 3 games made for it, if not more. I'll feature it for sure in Omnimaga news. Sometimes I think tr1p1ea himself should be featured too
- dysfunction
- Calc Master
- Posts: 1454
- Joined: Wed 22 Dec, 2004 3:07 am
- Location: Through the Aura
-
- Calc King
- Posts: 2195
- Joined: Sun 27 Mar, 2005 4:06 am
- Location: sleeping
- Contact:
- tr1p1ea
- Maxcoderz Staff
- Posts: 4141
- Joined: Thu 16 Dec, 2004 10:06 pm
- Location: I cant seem to get out of this cryogenic chamber!
- Contact:
I dont care about that, just that all the people that want it get it ... and stop bugging me .
Ok, ROFL .. i have NO IDEA how i managed to come up with the old ADEMO:
I rewrote it, but im not a BASIC expert ... at least its smaller .
Any tips would be helpful .
Ok, ROFL .. i have NO IDEA how i managed to come up with the old ADEMO:
Code: Select all
AxesOff
FnOff
"VARS
"PLAYER VARS
8->X:8->Y
"MAP OFFSETTS
0->S:0->T
"MAP WDTH/HGHT
16->W:16->H
"INIT
prgmMAP1
Lbl M
"DRAW MAP
real(2,0,S,T,W,H,0,12,0,8,0,0,0
"DRAW PLAYER
real(1,X,Y,1,8,0,1,0,0,0,1
"KEYLOOP
Lbl K
getKey->K
If K=0:Goto K
"KEY STUFF
If K=45:Goto E
If K=25:Goto U
If K=34:Goto D
If K=24:Goto L
If K=26:Goto R
Goto K
"UP
Lbl U
If Y=0
Then
If [A]((Y/8)+T,(X/8)+S+1)!=0:Y+8->Y
If T>0:T-1->T
Goto M
End
If [A]((Y/8)+T,(X/8)+S+1)=0:Y-8->Y
Goto M
"DOWN
Lbl D
If Y=56
Then
If [A]((Y/8)+T+2,(X/8)+S+1)!=0:Y-8->Y
If T+8<H:T+1->T
Goto M
End
If [A]((Y/8)+T+2,(X/8)+S+1)=0:Y+8->Y
Goto M
"LEFT
Lbl L
If X=0
Then
If [A]((Y/8)+T+1,(X/8)+S)!=0:X+8->X
If S>0:S-1->S
Goto M
End
If [A]((Y/8)+T+1,(X/8)+S)=0:X-8->X
Goto M
"RIGHT
Lbl R
If X=88
Then
If [A]((Y/8)+T+1,(X/8)+S+2)!=0:X-8->X
If S+12<W:S+1->S
Goto M
End
If [A]((Y/8)+T+1,(X/8)+S+2)=0:X+8->X
Goto M
Lbl E
"CLEAR SCREEN
real(0
Return
Code: Select all
AxesOff
FnOff
1->X:1->Y
0->S:0->T
prgmMAP1
While 1
S+((X-S)=11)(X!=16)-((X-S)=0)(X!=–1->S
T+((Y-T)=7)(T!=16)-((Y-T)=0)(Y!=–1->T
real(2,0,S,T,16,16,0,12,0,8,0,0,8,0
real(1,8(X-S),8(Y-T),1,8,0,1,0,0,0,1
getKey->K
If K=45:Return
X+(K=26)(X!=15)-(K=24)(X!=0->N
Y+(K=34)(Y!=15)-(K=25)(Y!=0->O
If [A](O+1,N+1)=0
Then
N->X:O->Y
End
End