Login [Register]
Don't have an account? Register now to chat, post, use our tools, and much more.

Code:
:FnOff
:AxesOff
:GridOff
:ClrDraw
:0->Xmin
:1->ΔX
:0->Ymin
:1->ΔYText(-1,20,62,"WHACK
:Text(-1,29,74,"A
:Text(-1,38,65,"MOLE
:{54,44,41,31,28,18,15,5->L2{55,45,40,30,25,15->L1
:For(A,1,5,2
:For(B,1,7,2
:Line(L1(A),L2(B),L1(A),L2(B+1
:Line(L1(A+1),L2(B),L1(A+1),L2(B+1
:Line(L1(A),L2(B),L1(A+1),L2(B
:Line(L1(A),L2(B+1),L1(A+1),L2(B+1
:End:End
:DelVar L1DelVar L2DelVar SDelVar M
:250->T
:Text(3,64,"TIME
:Text(10,60,"SCORE
:While T>0
:If not(M
:Then
:1+iPart(4rand->A
:1+iPart(3rand->B
:Text(13A-3,15B+3,"*
:1->M
:End
:1+B+10(A+6
:If getKey=Ans
:Then
:Text(13A-3,15B+3,"     //5 spaces
:DelVar MS+1->S
:End:T-1->T
:If T=99 or T=9
:Text(3,82,"           //11 spaces
:Text(3,82,T
:Text(10,82,S
:End
:Text(-1,51,63,"TIME!
Sorry, this topic is far too detailed; please be more vague so we have less information to work with.
Ultimate Dev'r wrote:
Sorry, this topic is far too detailed; please be more vague so we have less information to work with.
I'll take a look at it but I'd like you to format it in a less crappy way.
Actually ask for help instead of just posting code, and put every line on a new line, except where it is logical to do otherwise, and I'll check it. Putting colons instead of new lines doesn't actually make your program better in any way.
Will_W wrote:
Actually ask for help instead of just posting code, and put every line on a new line, except where it is logical to do otherwise, and I'll check it. Putting colons instead of new lines doesn't actually make your program better in any way.

Honestly it just makes it a bitch to de-bug. Also some things I should of added add comments to the code so we can see what it's doing and tell us what the main objective of the code is.
steelersfan1693 wrote:
Ultimate Dev'r wrote:
Sorry, this topic is far too detailed; please be more vague so we have less information to work with.


Any reason you quoted UD and then didn't say anything?
Xeno can you optimize this program or help me

[MASSIVE, 8942 CHARACTER BLOCK OF CODE with no line breaks whatsoever, removed by Kerm]
Holy expletive, Steeler, can't you at least clean up that massive mess before you post it? Line breaks are your friend. AHHHHH *eyebleach*

Edit: Here you go. Learn to do this yourself:
1) Copy code into Notepad++
2) Edit, Replace
3) Replace: ":" With: "\n:"
4) Check "extended mode" (so the \n works)
5) Click Replace All


Code:
:ClrHome
:FnOff 
:AxesOff
:0Xmin
:94Xmax
:0Ymin
:62YMax
:9dim(LYTZ
:Lbl 1
:ClrDraw
:Text(-1,9,27,"YAHTZEE
:Line(27,45,67,45
:Text(21,33,"NEW GAME
:Text(27,32,"CONTINUE
:Text(33,38,"RULES
:Text(39,33,"RESET HS
:Text(45,40,"QUIT
:Line(20,0,20,5
:Line(21,6,73,6
:Line(74,0,74,5
:Text(57,22,"HIGH SCORE
: ",LYTZ(6
:21Z
:Lbl 2
:Repeat =21 or =105
:Text(Z,27,">
:Text(Z,65,"<
:Repeat 
:getKey
:End
:Text(Z,27," 
:Text(Z,65," 
:Z+6(=34)-6(=25Z
:If Z<21
:21Z
:If Z>45
:45Z
:End
:If Z=21
:Goto 4
:If Z=27 and LYTZ(7)0
:Goto 5
:If Z=33
:Goto 3
:If Z=39
:Then
:0LYTZ(6
:Text(57,62,"0 
:End
:If Z=45
:Goto 
:Goto 2
:Lbl 4
:ClrDraw
:Text(0,0,"NUMBER OF PLAYERS (1-4)?
:0LYTZ(7
:DelVar N
:Repeat N
:getKey
:If Ans=92
:1N
:If Ans=93
:2N
:If Ans=94
:3N
:If Ans=82
:4N
:End
:{N,13dim([A]
:Fill -1,[A]
:abs(LYTZLYTZ
:DelVar TDelVar R
:1P
:Goto A
:Lbl 5
:LYTZ(7P
:LYTZ(8N
:LYTZ(9T
:0LYTZ(7
:abs(LYTZLYTZ
:DelVar R
:Lbl A
:DelVar G
:ClrDraw
:Text(0,2,"YAHTZEE V1.0-BY BRAD WENTZ
:Horizontal(55
:If R<3
:Then
:Line(2,0,2,5
:Line(3,6,19,6
:Line(20,0,20,5
:Text(57,4,"ROLL
:Line(21,6,37,6
:Line(38,0,38,5
:Text(57,22,"CARD
:If R>0
:Then
:Line(39,6,55,6
:Text(57,40,"HOLD
:End
:End
:If R>0
:Then
:Line(56,0,56,5
:Line(57,6,73,6
:Line(74,0,74,5
:Text(57,60,"END
:End
:If R=0
:Then
:Line(74,0,74,5
:Line(75,6,91,6
:Line(92,0,92,5
:Text(57,76,"QUIT
:Else 
:For(Z,4,76,18
:Z+14
:Line(Z,35,,35
:Line(Z,21,,21
:Line(Z,21,Z,35
:Line(,21,,35
:End
:For(Z,1,5
:abs(LYTZ(Z
:18Z-11X
:If =2 or =3 or =4 or =5 or =6
:Then
:pt-On(X,32,2
:pt-On(X+8,24,2
:End
:If =4 or =5 or =6
:Then
:pt-On(X,24,2
:pt-On(X+8,32,2
:End
:If =6
:Then
:pt-On(X,28,2
:pt-On(X+8,28,2
:End
:If =1 or =3 or =5
:pt-On(X+4,28,2
:If LYTZ(Z)<0
:Text(20,18Z-8,"H
:End
:End
:Text(8,0,"PLAYER ",P,"
:
:If R=0
:Text(8,32,"ROLL DICE
:If R=1
:Text(8,32,"1stnd ROLL
:If R=3
:Text(8,32,"3rd ROLL
:1Z
:If R=0
:Goto C
:Lbl B
:Repeat >0 and <15
:Line(18Z-7,19,18Z-9,17
:Line(18Z-7,19,18Z-5,17
:Repeat 
:getKey
:End
:Text(-1,42,18Z-9," 
:Z+(=26)-(=24Z
:If Z<1
:1Z
:If Z>5
:5Z
:End
:If =11
:Goto D
:If =12
:Goto F
:If =14
:Goto E
:If =13
:Then
:-LYTZ(ZLYTZ(Z
:If LYTZ(Z)<0
:Then
:Text(20,18Z-8,"H
:Else 
:Text(20,18Z-8," 
:End
:End
:Goto B
:Lbl C
:Repeat Ans=11 or Ans=12 or Ans=15
:getKey
:End
:If Ans=12
:Goto F
:If Ans=15
:Goto Z
:Lbl D
:Text(-1,42,18Z-9," 
:For(Z,1,5
:If LYTZ(Z)0
:randInt(1,6LYTZ(Z
:End
:If R=0
:Then
:For(Z,4,76,18
:Z+14
:Line(Z,35,,35
:Line(Z,21,,21
:Line(Z,21,Z,35
:Line(,21,,35
:End
:End
:For(Z,1,5
:If LYTZ(Z)>0
:Then
:LYTZ(Z
:18Z-11X
:Text(-1,29,X-2," 
:Text(-1,32,X-2," 
:If =2 or =3 or =4 or =5 or =6
:Then
:pt-On(X,32,2
:pt-On(X+8,24,2
:End
:If =4 or =5 or =6
:Then
:pt-On(X,24,2
:pt-On(X+8,32,2
:End
:If =6
:Then
:pt-On(X,28,2
:pt-On(X+8,28,2
:End
:If =1 or =3 or =5
:pt-On(X+4,28,2
:End
:End
:R+1R
:If R=1
:Then
:Line(39,6,55,6
:Line(56,0,56,5
:Text(57,40,"HOLD
:Line(57,6,73,6
:Text(57,60,"END
:Text(-1,56,75," 
:Text(8,32,"1stnd
:1Z
:If R<3
:Goto B
:Repeat Ans=14
:getKey
:End
:Lbl E
:1G
:Lbl F
:ClrDraw
:Text(0,14,"PLAYER ",P,"-SCORECARD
:Line(1,55,47,55
:Line(49,55,93,55
:Line(0,54,0,10
:Line(48,54,48,10
:Line(94,54,94,10
:Line(1,9,47,9
:Line(49,9,93,9
:Text(9,13,"1'S
:
:Text(15,13,"2'S
:
:Text(21,13,"3'S
:
:Text(27,13,"4'S
:
:Text(33,13,"5'S
:
:Text(39,13,"6'S
:
:Text(45,3,"BONUS
:
:Text(9,61,"3K
:
:Text(15,61,"4K
:
:Text(21,61,"FH
:
:Text(27,61,"SS
:
:Text(33,61,"LS
:
:Text(39,61,"YZ
:
:Text(45,61,"CH
:
:For(Z,1,6
:If [A](P,Z)0
:Text(6Z+3,26,[A](P,Z
:End
:If [A](P,1)+[A](P,2)+[A](P,3)+[A](P,4)+[A](P,5)+[A](P,6)63
:Text(45,26,35
:For(Z,7,11
:If [A](P,Z)0
:Text(6Z-33,72,[A](P,Z
:End
:If [A](P,12)=0
:Text(39,72,0
:If [A](P,12)>0
:Text(39,72,50
:For(Z,1,([A](P,12)-50)/100
:Text(39,4Z+77,"X
:End
:If [A](P,13)0
:Text(45,72,[A](P,13
:If R>0
:Text(57,52,"DICE
: ",abs(LYTZ(1))," ",abs(LYTZ(2))," ",abs(LYTZ(3))," ",abs(LYTZ(4))," ",abs(LYTZ(5))," ",abs(LYTZ(6
:Line(0,0,0,5
:Line(1,6,17,6
:Line(18,0,18,5
:If G=0
:Goto H
:Text(57,2,"PLAY
:Line(19,6,35,6
:Line(36,0,36,5
:Text(57,20,"ZERO
:DelVar ADelVar BDelVar CDelVar DDelVar EDelVar FDelVar H
:abs(LYTZLYTZ
:For(Z,1,5
:If LYTZ(Z)=1
:A+1A
:If LYTZ(Z)=2
:B+1B
:If LYTZ(Z)=3
:C+1C
:If LYTZ(Z)=4
:D+1D
:If LYTZ(Z)=5
:E+1E
:If LYTZ(Z)=6
:F+1F
:End
:If A=5 or B=5 or C=5 or D=5 or E=5 or F=5
:1H
:If H and [A](P,12)>0
:100+[A](P,12[A](P,12
:If H and [A](P,12)0 and [A](P,LYTZ(1))0
:Then
:For(Z,1,6
:If [A](P,Z)<0
:Text(6Z+3,8,"-
:End
:For(Z,7,13
:If [A](P,Z)<0
:Text(6Z-33,56,"+
:End
:Else 
:If [A](P,1)<0
:Then
:If A>0
:Then
:Text(9,8,"+
:Else 
:Text(9,8,"-
:End
:End
:If [A](P,2)<0
:Then
:If B>0
:Then
:Text(15,8,"+
:Else 
:Text(15,8,"-
:End
:End
:If [A](P,3)<0
:Then
:If C>0
:Then
:Text(21,8,"+
:Else 
:Text(21,8,"-
:End
:End
:If [A](P,4)<0
:Then
:If D>0
:Then
:Text(27,8,"+
:Else 
:Text(27,8,"-
:End
:End
:If [A](P,5)<0
:Then
:If E>0
:Then
:Text(33,8,"+
:Else 
:Text(33,8,"-
:End
:End
:If [A](P,6)<0
:Then
:If F>0
:Then
:Text(39,8,"+
:Else 
:Text(39,8,"-
:End
:End
:If [A](P,9)<0
:Text(21,56,"-
:If A3 or B3 or C3 or D3 or E3 or F3
:Then
:If [A](P,7)<0
:Text(9,56,"+
:If ([A](P,9)<0)(A=2 or B=2 or C=2 or D=2 or E=2 or F=2
:Text(21,56,"+
:Else 
:If [A](P,7)<0
:Text(9,56,"-
:End
:If [A](P,8)<0
:Then
:If A4 or B4 or C4 or D4 or E4 or F4
:Then
:Text(15,56,"+
:Else 
:Text(15,56,"-
:End
:End
:If [A](P,10)<0
:Then
:If (C>0 and D>0)(A>0 and B>0 or B>0 and E>0 or E>0 and F>0
:Then
:Text(27,56,"+
:Else 
:Text(27,56,"-
:End
:End
:If [A](P,11)<0
:Then
:If (B>0 and C>0 and D>0 and E>0)(A>0 or F>0
:Then
:Text(33,56,"+
:Else 
:Text(33,56,"-
:End
:End
:If [A](P,12)<0
:Then
:If H
:Then
:Text(39,56,"+
:Else 
:Text(39,56,"-
:End
:End
:If [A](P,13)<0
:Text(45,56,"+
:End
:3X
:9Z
:Lbl G
:Repeat =11 or =12
:Text(Z,X,">
:Repeat 
:getKey
:End
:Text(Z,X," 
:Z+6(=34)-6(=25Z
:If =26 and X=3
:51X
:If =24 and X=51
:3X
:If Z<9
:9Z
:If Z>45
:45Z
:If Z>39 and X=3
:39Z
:End
:If =11 and pxl-Test(Z+2,X+6
:Goto J
:If =12 and pxl-Test(Z+3,X+5
:Goto I
:Goto G
:Lbl H
:Text(57,2,"BACK
:Repeat Ans=11
:getKey
:End
:Goto A
:Lbl 3
:ClrDraw
:Text(0,0,"YOU HAVE 3 ROLLS TO GET ONE
:Text(6,0,"OF THE COMBOS ON THE
:Text(12,0,"SCORECARD. USE THE F1-F5
:Text(18,0,"KEYS TO PLAY.
:Text(29,0,"ROLL-ROLL DICE
:Text(36,0,"CARD-VIEW SCORECARD
:Text(43,0,"HOLD-KEEP SELECTED DICE
:Text(50,0,"END-END TURN, GO TO CARD
:Text(57,0,"QUIT-SAVE GAME AND EXIT
:Repeat Ans
:getKey
:End
:ClrDraw
:Text(0,0,"AT THE END OF YOUR TURN YOU
:Text(6,0,"MUST PLAY YOUR DICE ON THE
:Text(12,0,"SCORECARD. SPOTS WITH A +
:Text(18,0,"ARE PLAYABLE. SPOTS WITH A -
:Text(24,0,"CANNOT BE PLAYED. YOU CAN
:Text(30,0,"ZERO OFF SPOTS WITH A + OR -
:Text(36,0,"AND RECIEVE NO POINTS. USE
:Text(42,0,"THIS WHEN THERE ARE NO
:Text(48,0,"PLAYABLE SPOTS.
:Repeat Ans
:getKey
:End
:ClrDraw
:Text(0,0,"1'S-6'S
: TOTAL VALUE OF ALL
:Text(6,0,"SIMILAR DICE
:Text(14,0,"3K/4K
: 3 OF A KIND/4 OF A
:Text(20,0,"KIND, SUM OF ALL DICE
:Text(28,0,"FH
: FULL HOUSE, 25 POINTS
:Text(36,0,"SS
: SMALL STRAIGHT, STRING
:Text(42,0,"OF 4, 30 POINTS
:Text(50,0,"LS
: LARGE STRAIGHT, STRING
:Text(56,0,"OF 5, 40 POINTS
:Repeat Ans
:getKey
:End
:ClrDraw
:Text(0,0,"YZ
: YAHTZEE, 5 OF A KIND
:Text(6,0,"50 POINTS FOR FIRST
:Text(12,0,"100 BONUS POINTS FOR REST
:Text(18,0,"CAN BE USED AS A JOKER IN THE
:Text(24,0,"SECOND SECTION IF THE
:Text(30,0,"YAHTZEE SPOT HAS BEEN
:Text(36,0,"FILLED AND THE
:Text(42,0,"CORRESPONDING FIRST
:Text(48,0,"SECTION SPOT HAS BEEN
:Text(54,0,"FILLED.
:Repeat Ans
:getKey
:End
:ClrDraw
:Text(0,0,"CH
: CHANCE, NO COMBO NEEDED
:Text(6,0,"SUM OF ALL DICE
:Text(13,0,"BONUS
: A 35 POINT BONUS IS
:Text(19,0,"GIVEN IF THE TOTAL POINTS
:Text(25,0,"IN THE FIRST SECTION IS 63
:Text(31,0,"OR HIGHER.
:Repeat Ans
:getKey
:End
:ClrDraw
:Text(0,0,"WHEN VIEWING SCORECARD
:
:Text(7,0,"BACK- GO BACK TO DICE
:Text(20,0,"WHEN PLAYING DICE ON CARD
:
:Text(27,0,"PLAY-PLAY DICE ON SELECTED
:Text(33,0,"SPOT
:Text(40,0,"ZERO-ZERO OFF SELECTED
:Text(46,0,"SPOT
:Text(53,0,"DONE-START NEXT TURN
:Repeat Ans
:getKey
:End
:Goto 1
:Lbl I
:If X=3
:Then
:0[A](P,(Z-3)/6
:Text(Z,26,0
:Else 
:0[A](P,(Z+33)/6
:Text(Z,72,0
:End
:Goto K
:Lbl J
:If X=3
:Then
:(Z-3)/6Z
:0[A](P,Z
:For(,1,5
:If LYTZ()=Z
:Z+[A](P,Z[A](P,Z
:End
:Text(6Z+3,26,[A](P,Z
:Else 
:(Z+33)/6Z
:If Z=7 or Z=8 or Z=13
:sum(LYTZ,1,5[A](P,Z
:If Z=9
:25[A](P,Z
:If Z=10
:30[A](P,Z
:If Z=11
:40[A](P,Z
:If Z=12
:50[A](P,Z
:Text(6Z-33,72,[A](P,Z
:End
:Lbl K
:If [A](P,1)+[A](P,2)+[A](P,3)+[A](P,4)+[A](P,5)+[A](P,6)63
:Text(45,26,35
:For(Z,1,([A](P,12)-50)/100
:Text(39,4Z+77,"X
:End
:Line(8,50,8,20,0
:Line(9,51,9,19,0
:Line(10,50,10,20,0
:Line(56,50,56,14,0
:Line(57,51,57,13,0
:Line(58,50,58,14,0
:Text(57,2,"DONE
:Text(-1,56,19," 
:Text(-1,56,52," 
:DelVar GDelVar R
:p+1P
:If P>N
:Then
:1P
:T+1T
:End
:Repeat Ans=11
:getKey
:End
:If T<13
:Goto A
:DelVar 
:ClrDraw
:Text(-1,0,15,"FINAL SCORE
:Horizontal(54
:For(Z,1,N
:DelVar S
:For(X,1,6
:S+[A](Z,XS
:End
:If S63
:S+35S
:For(X,7,13
:S+[A](Z,XS
:End
:Text(9Z+6,26,"PLAYER ",Z,"
: ",S
:If S>
:S
:End
:If >LYTZ(6
:Then
:Text(-1,56,4,"NEW HIGH SCORE!
:LYTZ(6
:End
:Repeat Ans
:getKey
:End
:DelVar [A]DelVar P
:Lbl Z
:PLYTZ(7
:NLYTZ(8
:TLYTZ(9
:Lbl 
:ClrDraw
:ZStandard
:FnOn 
:AxesOn
Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing Laughing


Do not ever do that to me again man that post was so funny i almost fell out chair laughing Laughing
steelersfan1693 wrote:
Do not ever do that to me again man that post was so funny i almost fell out chair laughing 0x5


did I miss something? Confused
rthprog wrote:
steelersfan1693 wrote:
Do not ever do that to me again man that post was so funny i almost fell out chair laughing 0x5


did I miss something? Confused
I think SteelersFan was amused that I was chastising him for his post...
You should try to optimize code yourself its good practice. and it is also polite to show that you have put some work into somthing before posting

And i believe you have been asked to post proper code many times on united ti has well

Code:
:For(A,1,5,2
:L1(A->C
:L1(A+1->D
:For(B,1,7,2
:L2(B->E
:L2(B+1->F
:Line(C,E,C,F
:Line(D,E,D,F
:Line(C,E,D,E
:Line(C,F,D,F
:End:End

I made it run significantly faster

Code:
:1+iPart(4rand->A
:1+iPart(3rand->B

have you never heard of the randInt command? You give it the bounds and it generates a number between them. Your method is what would be done in any language other than basic

Code:
:randInt(1,4->A
:randInt(1,3->B
You know, instead of expecting someone to rewrite your massive excrements you call a program, you might try being polite and try asking someone to walk you through the optimization process of your code and improve your shitty coding technique. Or, optimize it yourself, you lazy bastard.
swivelgames wrote:
You know, instead of expecting someone to rewrite your massive excrements you call a program, you might try being polite and try asking someone to walk you through the optimization process of your code and improve your shitty coding technique. Or, optimize it yourself, you lazy bastard.


no need to be cruel!

steelersfan, you'll help us out a lot if you can tell us what this is supposed to do. Btw, you'll get a better response if you post up small chunks of code; ask someone to optimize a certain function, rather than the entire program.



Code:
Text(9,13,"1'S
:
:Text(15,13,"2'S
:
:Text(21,13,"3'S
:
:Text(27,13,"4'S
:
:Text(33,13,"5'S
:
:Text(39,13,"6'S
:
:Text(45,3,"BONUS
:
:Text(9,61,"3K
:
:Text(15,61,"4K
:
:Text(21,61,"FH
:
:Text(27,61,"SS
:
:Text(33,61,"LS
:
:Text(39,61,"YZ
:
:Text(45,61,"CH

:


can be rewritten as


Code:
:For(N,2,6
:Text(3+6N,13,N,"'S
:End
:Text(45,3,"BONUS
:For(N,1,7
:Text(3+6N,61,sub("3K4KFHSSLSYZCH",2N-1,2
:End


Repetitive things are best done through loops. Also, the sub( command lets you isolate part of a larger string; I have used it here to handle the different text that you wanted to display. If there's anything that you don't understand, just ask.
Sorry Crying
I did not mean to make all you guys mad at me
steelersfan1693 wrote:
Sorry Crying
I did not mean to make all you guys mad at me


again, we're not mad (well at least I'm not Smile ). Its just that it doesn't look like you've made any effort to optimize this yourself... First try to optimize it yourself. If you have any problems, or feel that some part can be optmized further, then post that part up. We're happy to help you, not do it for you.

and again, swivel, give him a break... he'll figure it out eventually.
This is the source


Code:
:ClrHome
:ClrDraw
:AxesOff
:FnOff
:PlotsOff
:0→Xmin
:94→Xmax
:0→Ymax
:‾62→Ymin
:12345→S
:Line(0,‾5,94,‾5
:Line(0,‾30,94,‾30
:For(θ,‾10,90,20
:Line(θ,‾15,θ+15,‾15
:Line(θ,‾20,θ+15,‾20
:End
:For(θ,‾10,90,20
:Line(θ,‾15,θ,‾20
:End
:For(θ,5,105,20
:Line(θ,‾15,θ,‾20
:End
:For(θ,0,25
:Text(7,θ," Ace Racer 2K1
:Line(θ-1,‾8,θ-16,‾8
:Pt-Off(θ-17,‾8
:Line(θ-1,‾10,θ-11,‾10
:Pt-Off(θ-12,‾10
:Line(θ-1,‾12,θ-6,‾12
:Pt-Off(θ-7,‾12
:End
:For(θ,94,41,‾1
:Text(22,θ,"v3.0
:End
:For(θ,1,250
:End
:Text(50,20,"σy:  BEN  ILEGBODU
:Text(50,20,"B
:For(θ,1,250
:End
:For(X,19,78
:For(Y,50,56
:Pxl-Change(Y,X
:End
:End
:For(θ,1,500
:End
:Lbl 1
:6→dim(∟ACER
:5→dim(∟ACER2
:ClrHome
:ClrDraw
:Lbl 1A
:Text(0,17,"Ace Racer 2K1 v3.0
:Line(16,‾7,77,‾7
:Text(20,30,"PLAY
:Text(30,30,"VIEW HIGH SCORES
:Text(40,30,"CLEAR HIGH SCORES
:Text(57,20,"Press 2nd TO QUIT
:‾23→A
:‾33→B
:Lbl 1B
:Line(15,A,25,A
:Line(25,A,22,A+3
:Line(25,A,22,A-3
:Line(15,B,25,B,0
:Line(25,B,22,B+3,0
:Line(25,B,22,B-3,0
:While 1
:getKey→K
:If Ans=25:Goto UP
:If Ans=34:Goto DN
:If Ans=21:Goto 9
:If Ans=105:Goto RE
:End
:Lbl UP
:A→B
:A+10→A
:If A>‾23:Then
:‾43→A
:‾23→B
:End
:Goto 1B
:Lbl DN
:A→B
:A-10→A
:If A<‾43:Then
:‾23→A
:‾43→B
:End
:Goto 1B
:Lbl RE
:If A=‾23:Goto 1C
:If A=‾33:Then
:ClrDraw
:Goto 7B
:End
:If A=‾43:Goto 2
:Lbl 2
:ClrHome
:Fill 0,∟ACER
:For(X,1,100
:Output(4,1,"CLEARING  SCORES
:End
:Output(4,1,"-SCORES CLEARED-
:Pause
:Goto 1
:Lbl 1C
:If ∟ACER2(1)=0:Goto 3
:ClrDraw
:Text(3,19,"LOAD SAVED GAME?
:Line(39,‾23,55,‾23
:Line(55,‾23,55,‾33
:Line(55,‾33,39,‾33
:Line(39,‾33,39,‾23
:For(θ,0,4
:Line(33+θ,‾28-θ,33+θ,‾28+θ
:Line(61-θ,‾28-θ,61-θ,‾28+θ
:End
:Text(45,6,"LOADS THE GAME YOU SAVED
:Text(57,18,"PRESS 2nd TO QUIT
:0→L
:While 1
:getKey
:If Ans=24 or Ans=26:not(L→L
:If Ans=105:Goto 1D
:If Ans=21:Goto 9
:If L=0:Text(25,42,"YES
:If L=1:Text(25,42,"  NO 
:End
:Lbl 1D
:If L=1:Then
:0→∟ACER2(1)
:Goto 3
:End
:∟ACER2(2)→N
:∟ACER2(3)→O
:∟ACER2(4)→S
:∟ACER2(5)→W
:Goto 3D
:Lbl 3
:ClrHome
:ClrDraw
:ClrHome
:Text(10,35,"Normal
:Line(30,‾9,63,‾9
:Line(63,‾9,63,‾17
:Line(63,‾17,30,‾17
:Line(30,‾17,30,‾9
:For(θ,0,4
:Line(46-θ,‾2-θ,46+θ,‾2-θ
:Line(46-θ,‾24+θ,46+θ,‾24+θ
:End
:Text(57,18,"PRESS  2nd  TO  QUIT
:Text(32,17,"3 POINTS FOR EVERY
:Text(39,22,"BARRIER PASSED
:2→θ
:While 1
:getKey
:If Ans=21:Goto 9
:If Ans=105:Goto EN
:θ+(Ans=34)-(Ans=25)→θ
:If θ<1:3→θ
:If θ>3:1→θ
:If θ=1:Then
:Text(10,35,"    SLOW    "
:Text(32,17,2
:End
:If θ=2:Then
:Text(10,35,"Normal
:Text(32,17,3
:End
:If θ=3:Then
:Text(10,35,"    FAST    "
:Text(32,17,4
:End
:End
:Lbl EN
:If θ=1:Goto 3A
:If θ=2:Goto 3B
:If θ=3:Goto 3C
:Lbl 3A
:100→N
:2→O
:Goto 3D
:Lbl 3B
:50→N
:3→O
:Goto 3D
:Lbl 3C
:1→N
:4→O
:Lbl 3D
:ClrDraw
:Text(0,33,"OPTIONS
:Line(32,‾7,60,‾7
:Text(18,0,"CUSTOM CAR?
:Line(57,‾16,73,‾16
:Line(73,‾16,73,‾26
:Line(73,‾26,57,‾26
:Line(57,‾26,57,‾16
:For(θ,0,4
:Line(65-θ,‾10-θ,65+θ,‾10-θ
:Line(65-θ,‾32+θ,65+θ,‾32+θ
:Line(33+θ,‾55-θ,33+θ,‾55+θ
:Line(61-θ,‾55-θ,61-θ,‾55+θ
:End
:Line(0,‾35,94,‾35
:Text(40,23,"CUSTOM TRACK?
:Line(39,‾50,55,‾50
:Line(55,‾50,55,‾60
:Line(55,‾60,39,‾60
:Line(39,‾60,39,‾50
:1→C
:1→T
:While 1
:getKey
:If Ans=25 or Ans=34:not(C→C
:If Ans=24 or Ans=26:not(T→T
:If Ans=105:Goto 3E
:If C=0:Text(18,60,"YES
:If C=1:Text(18,60,"  NO 
:If T=0:Text(52,42,"YES
:If T=1:Text(52,42,"  NO 
:End
:Lbl 3E
:If C=1:"v→Str9
:If T=1:"'→Str0
:If C=0:Then
:ClrHome
:Disp "","","ENTER SYMBOL FOR","YOUR CUSTOM
:Input "CAR: ",Str9
:sub(Str9,1,1)→Str9
:End
:If T=0:Then
:ClrHome
:Disp "","","ENTER SYMBOL FOR","YOUR CUSTOM
:Input "TRACK: ",Str0
:sub(Str0,1,1)→Str0
:End
:Lbl 3F
:ClrDraw
:Line(1,‾1,21,‾1
:Line(21,‾1,21,‾41
:Line(21,‾41,1,‾41
:Line(1,‾41,1,‾1
:Text(43,0,"MODE -- PAUSE
:Text(43,49,"CLEAR -- QUIT
:Shade(‾√(52-(X-11)2)-9,√(52-(X-11)2)-9
:Text(6,35,"READY!!!
:Text(50,22,"2nd -- TEACHER KEY
:Shade(‾√(52-(X-11)2)-21,√(52-(X-11)2)-21
:Text(18,40,"SET!!!
:Text(57,13,"STAT -- SAVE and QUIT
:Shade(‾√(52-(X-11)2)-33,√(52-(X-11)2)-33
:Text(30,45,"GO!!!
:For(X,1,200
:End
:Lbl 4
:6→B:8→C:6→A:6→P
:If ∟ACER2(1)=1:Goto 4A
:0→S:4→W
:Lbl 4A
:ClrHome
:0→∟ACER2(1
:Disp "","","","","","",""
:While C>A and C<A+1+W
:S+1→S
:If fPart(S/100)=0:W-1→W
:Output(8,B,Str0
:Output(8,B+1+W,Str0
:Output(6,C,Str9
:C→θ
:getKey
:Output(6,C,"
:If Ans=45:Goto 9
:If Ans=33:Goto 8
:If Ans=22:Then
:Repeat Ans=22
:getKey
:If Ans=33:Goto 8
:End
:End
:If Ans=21:Then
:ClrDraw
:DispGraph
:Repeat Ans=21
:getKey
:If Ans=33:Goto 8
:End
:End
:C+(Ans=26)-(Ans=24→C
:Output(5,θ,"
:Output(6,C,Str9
:Disp ""
:P→A:B→P
:Output(5,C,"
:Output(6,C,Str9
:randInt(B-1,B+1→B
:B-(B=16-W)+not(B→B
:For(Y,1,N
:End
:End
:Lbl 5
:ClrHome
:Output(2,5,"CRASH!!!
:For(θ,1,250
:End
:Output(5,1,"G
:For(θ,1,200
:End
:Output(5,3,"A
:For(θ,1,200
:End
:Output(5,5,"M
:For(θ,1,200
:End
:Output(5,7,"E
:For(θ,1,200
:End
:Output(5,10,"O
:For(θ,1,125
:End
:Output(5,12,"V
:For(θ,1,125
:End
:Output(5,14,"E
:For(θ,1,125
:End
:Output(5,16,"R
:For(θ,1,250
:End
:Lbl 6
:ClrDraw
:iPart(S/100)+1→L
:Text(2,18,"Ace  Racer  2K1  v3.0
:Line(17,‾9,81,‾9
:Text(12,25,"SPEED:
:If O=4:Text(12,50,"FAST
:If O=3:Text(12,50,"Normal
:If O=2:Text(12,50,"SLOW
:Text(22,25,"LEVEL:
:Text(22,54,L
:SO→S
:Text(32,25,"SCORE:
:Text(32,50,S
:Lbl 7
:S→∟ACER(6
:SortD ∟ACER
:Lbl 7B
:Text(42,25,"HIGH  SCORES:
:Line(2,‾52,92,‾52
:Line(2,‾62,92,‾62
:For(θ,2,92,18
:Line(θ,‾52,θ,‾62
:End
:For(θ,1,5
:Text(54,18θ-14,∟ACER(θ)
:End
:For(θ,1,5
:If ∟ACER(θ)=S:Goto 7C
:End
:Goto 7D
:Lbl 7C
:18θ-15→θ
:For(Y,53,61
:For(X,θ,θ+16
:Pxl-Change(Y,X
:End
:End
:Lbl 7D
:For(X,0,94
:For(Y,42,48
:Pxl-Change(Y,X
:End
:End
:Pause
:Goto 1
:Lbl 8
:ClrHome
:1→∟ACER2(1
:N→∟ACER2(2
:O→∟ACER2(3
:S→∟ACER2(4
:W→∟ACER2(5
:Output(4,2,"SAVING GAME...
:For(θ,1,1000
:End
:ClrHome
:Disp "THE NEXT TIME","THAT YOU PLAY","THE GAME, YOU","WILL BE ABLE TO","LOAD THE GAME."
:Pause
:ClrHome
:Disp "IF YOU DO NOT","LOAD THE GAME","THE NEXT TIME","YOU PLAY, THE","SAVED INFO WILL","BE CLEARED."
:Pause
:Lbl 9
:ClrHome
:ZStandard
:Disp "","","  BEN ILEGBODU","  COPYRIGHT(C)","      2001"
:Pause
:AxesOn
:Stop
steelersfan1693 wrote:
This is the source.


Most of us can, indeed, figure out that that is the source. It may be helpful if you told us what it was supposed to do. We've asked you this many times and you keep ignoring it.
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Page 1 of 2
» All times are GMT - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement