AWESOME, but NOT that fair since it is a 25 hour day. even though, great!

They are free to use by anyone, maybe use them in future games.

Use them at will, but make sure I'm in the credits

Since Omnimaga is a game-based community I decided to try my first on gaming, so editing games to make them better is the best idea, so this thread is to discuss Racer3D: Replay.

Okay, so probably everybody knows the example that came with Axe 0.4.5, Racer3D, a great game, lemme show it to you:




So, I'm working on my own version at the moment, it will use the default game as a base but add MANY more functionalities, but I'm having trouble with the Title Screen as some of you probably already know:



Now, I mad the Title Screen Work, but I have a problem with the game, so here are BOTH of the codes:


ORIGINAL CODE:
.RACER3D
[3C7E427EFF99FF42]->PIC1
"SCORE:"->STR1
"GAME OVER"->STR2
»Sci
Return!If Full
Fix 5
128->B
40->L
For(A,0,40)
rand^3-1+B->B->{L1+A}
End
ClrDraw
For(A,0,95)
Line(A,rand^4+21,A,24)
End
StorePic
3->Y->R
[neg]100->X
0->T

Repeat getKey(15)
.MOVE
If getKey(2)
X+2->X
Horizontal +
Line(0,24,0,rand^4+21)
StorePic
End
If getKey(3)
X-2->X
Horizontal -
Line(95,24,95,rand^4+21)
StorePic
End

.SCORE
!If T+1->T^32
L-1->L
End
Text(0,0,STR1)
Text(22,0,T->DEC)

.SHIFT
conj(L1+39,L1+40,40)[radians]
If {L1}<5
{L1}+5->{L1}
End
If {L1}>250
{L1}-5->{L1}
End
rand^3-1+Y+{L1}->{L1}
DS<(R,14)
rand^5-2->Y
End

.DRAW
If Z=0->Z
For(A,0,39)
A+24->B
A/2+{[root]^2A*10*4)+L1}+X->C
If C-A->E>1000
0->E
End
If C+L->F>1000
0->F
End
For(D,E,96)+1,F,96))
Pxl-On(D-1,B)
End
End
Pt-Change(42,55,PIC1)
DispGraph

.DEATH
If E>42 or (F<50)
For(A,1,7)
Pt-Change(42,55,PIC1)
DispGraph
Pause 1500
End
Fix 4
Text(32,13,STR2)
Repeat getKey(0)
End
ClrHome
Return
End

RecallPic
End:End
Label Q
Fix 4
MY CODE:
.RACER3D
[00007E4242FFFF42]->PIC1
"SCORE:"->STR1
"GAME OVER"->STR2
"DAVID GOMES"->STR3
Label 1
ClrDraw
ClrHome
Text(0,0,"RACER 3D
Text(0,10,"1:PLAY
Text(0,20,"2:ABOUT
Text(0,30,"3:HELP
Text(0,40,"4:QUIT
Repeat getKey->Z
End
If Z=26
ClrHome
Disp "DAVID
Repeat getKey
End
Goto 1
End
If Z=18
ClrHome
ClrDraw
Repeat getKey->Z
End
Goto 1
End
If Z=35
ClrHome
Disp "STOP...
Repeat getKey
End
Goto 1
End
If Z=34
Return!If Full
Fix 5
128->B
40->L
For(A,0,40)
rand^3-3-1+B->B->{L1+A}
End
For(A,0,95)
Line(A,rand^4+21,A,24)
End
StorePic
3->Y->R
[neg]100->X
0->T

Repeat getKey(15)
.MOVE
If getKey(2)
X+2->X
Horizontal +
Line(0,24,0,rand^4+21)
StorePic
End
If getKey(3)
X-2->X
Horizontal -
Line(95,24,95,rand^4+21)
StorePic
End

.SCORE
!If T+1->T^32
L-1->L
End
Text(0,0,STR1)
Text(22,0,T->DEC)

.SHIFT
conj(L1+39,L1+40,40)[radians]
If {L1}<5
{L1}+5->{L1}
End
If {L1}>250
{L1}-5->{L1}
End
rand^3-1+Y+{L1}->{L1}
DS<(R,14)
rand^5-2->Y
End

.DRAW
If Z=0->Z
For(A,0,39)
A+24->B
A/2+{[root]^2A*10*4)+L1}+X->C
If C-A->E>1000
0->E
End
If C+L->F>1000
0->F
End
For(D,E,96)+1,F,96))
Pxl-On(D-1,B)
End
End
Pt-Change(42,55,PIC1)
DispGraph

.DEATH
If E>42 or (F<50)
For(A,1,7)
Pt-Change(42,55,PIC1)
DispGraph
Pause 250
End
Fix 4
ClrHome
Text(0,0,STR2
Text(0,20,STR1
Text(0,30,T->DEC
Text(50,55,STR3
Pause 9999
Pause 9999
Repeat getKey(0)
End
ClrHome
Return
End

RecallPic
End:End
Label Q
Fix 4
End

I would like to know who made the original Racer3D, was it Quigibo? I HAVE to post that person in the credits, since they did the original game and I'm using it as a base, even though changing most of the things.


P.S: I've made most of the things in separate files (extra sprites and options to change the speed of the car, but won't post them here for security of the code)

Hmmm thats strange, is this your full code or do you have more that is part of a larger program?

Yes, I have, I'll start a new thread about it with the whole code

Code: [Select]

:.(GAMENAME)
:Lbl 1
:ClrHome
:ClrDraw
:Text(0,0,"TITLE
:Text(10,0,"1:Play
:Text(20,0,"2:About
:Text(30,0,"3:Help
:Text(40,0,"4:Quit
:Repeat getKey->Z
:End
:If Z = 26
:ClrHome
:Disp "BY DAVID
:Repeat getKey
:End
:Goto 1
:End
:If Z=18
:ClrHome
:Disp "Help"
:Repeat getKey
:End
:Goto 1
:End
:If Z=35
:ClrHome
:Disp "Quit Program Code
:Repeat getKey
:End
:Goto 1
:End
:If Z=34
// CODE FOR THE GAME
:End

Gives me no errors, but the menu opens white and then when I press any key, the screen appears for a mili second and disappears again

You should put the key test in a loop, as it was said here already two times.

I tried Repeat getKey->Z

and it didn't work :S

Quote from: shmibs on November 07, 2010, 01:32:18 pm

it was a poorly constructed attempt at a joke
by the way, if BASIC is already going to be customised can't you just have the additional functionality things like xlib would provide to begin with?

I didn't think it was a joke as some people have expressed serious concern with that O_o
And Basic will be a lot more powerful, yes.

Quote from: ScoutDavid on November 07, 2010, 01:36:26 pm

Anyways, is KnightOS to be used as a standard OS for the calculator and boot first all the time or like Doors and MirageOS, as an Application?

For the last time people, KnightOS is an *OS*.  The file extention is .8xu, it removes TIOS, it is an OS.

Lol, thanks great, then I can't wait for it

that will make you go to the error that is specified

Great, no idea lol, thansk much, now it'll all be easier

Now, I have a Titlte Screen, but it disappears right after, I don't want Pauses to make it stay there. Alternatives?