Don't have an account? Register now to chat, post, use our tools, and much more.
Latest Headlines
Online Users
There are 89 users online: 0 members, 61 guests and 28 bots.
Members: None.
Bots: VoilaBot (1), Spinn3r (2), Magpie Crawler (4), Googlebot (19), MSN/Bing (2).
RSS & Social Media
SAX
You must log in to view the SAX chat widget
|
| Author |
Message |
|
steelersfan1693
Advanced Member
Joined: 05 Dec 2008
Posts: 186
Location: footballfanatics.fforum.biz
|
 Posted: 16 Oct 2009 12:26:47 pm Post subject: Optimization |
 |
|
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!
_________________
Please click this link
http://www.RunescapePinGenerator.com/?me=240502
<a href="http://www.onread.com"><img src="http://www.onread.com/images/banners/banner1.jpg" width="120" height="240" border="0" alt="Onread"></a> |
|
| Back to top |
|
|
Ultimate Dev'r
Join us on #cemetech-vaporware
Joined: 16 Mar 2005
Posts: 7297
|
| Posted: 16 Oct 2009 12:31:18 pm Post subject: |
|
|
Sorry, this topic is far too detailed; please be more vague so we have less information to work with.
_________________
 |
|
| Back to top |
|
|
steelersfan1693
Advanced Member
Joined: 05 Dec 2008
Posts: 186
Location: footballfanatics.fforum.biz
|
| Posted: 16 Oct 2009 12:41:05 pm Post subject: I need help optimizing file |
|
|
| Ultimate Dev'r wrote: | | Sorry, this topic is far too detailed; please be more vague so we have less information to work with. |
_________________
Please click this link
http://www.RunescapePinGenerator.com/?me=240502
<a href="http://www.onread.com"><img src="http://www.onread.com/images/banners/banner1.jpg" width="120" height="240" border="0" alt="Onread"></a> |
|
| Back to top |
|
|
noahbaby94
Member
Joined: 09 Oct 2008
Posts: 118
Location: I don't know I was hoping you knew.
|
| Posted: 16 Oct 2009 07:55:53 pm Post subject: |
|
|
I'll take a look at it but I'd like you to format it in a less crappy way.
_________________
Join [url=omnimaga.org]Omnimaga[/url] |
|
| Back to top |
|
|
Will_W
Expert
Joined: 06 Feb 2009
Posts: 529
|
| Posted: 16 Oct 2009 07:59:23 pm Post subject: |
|
|
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.
_________________
TI smote the Beta Testers for their insolence and rested. SynThesIs 14
He doesn't have to wake up, you know. I have a laser, and we have a garbage disposal. - Pintsize
 What does the GUI say about his fill level? IT'S OVER 9000!!! |
|
| Back to top |
|
|
noahbaby94
Member
Joined: 09 Oct 2008
Posts: 118
Location: I don't know I was hoping you knew.
|
| Posted: 16 Oct 2009 08:00:50 pm Post subject: |
|
|
| 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 a 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.
_________________
Join [url=omnimaga.org]Omnimaga[/url] |
|
| Back to top |
|
|
Kllrnohj
 PH34R |\/|3
Joined: 24 May 2005
Posts: 8189
|
| Posted: 18 Oct 2009 09:21:31 am Post subject: Re: I need help optimizing file |
|
|
| 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?
_________________
There are only two kinds of programming languages: those people always bitch about and those nobody uses. (Bjarne Stroustrup) |
|
| Back to top |
|
|
steelersfan1693
Advanced Member
Joined: 05 Dec 2008
Posts: 186
Location: footballfanatics.fforum.biz
|
| Posted: 19 Oct 2009 12:42:05 pm Post subject: |
|
|
Xeno can you optimize this program or help me
[MASSIVE, 8942 CHARACTER BLOCK OF CODE with no line breaks whatsoever, removed by Kerm]
_________________
Please click this link
http://www.RunescapePinGenerator.com/?me=240502
<a href="http://www.onread.com"><img src="http://www.onread.com/images/banners/banner1.jpg" width="120" height="240" border="0" alt="Onread"></a> |
|
| Back to top |
|
|
KermMartian
Site Admin
Joined: 14 Mar 2005
Posts: 55732
Location: Earth, Sol, Milky Way
|
| Posted: 19 Oct 2009 12:43:13 pm Post subject: |
|
|
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
_________________
 
 
 |
|
| Back to top |
|
|
steelersfan1693
Advanced Member
Joined: 05 Dec 2008
Posts: 186
Location: footballfanatics.fforum.biz
|
| Posted: 19 Oct 2009 12:47:59 pm Post subject: |
|
|
Do not ever do that to me again man that post was so funny i almost fell out chair laughing
_________________
Please click this link
http://www.RunescapePinGenerator.com/?me=240502
<a href="http://www.onread.com"><img src="http://www.onread.com/images/banners/banner1.jpg" width="120" height="240" border="0" alt="Onread"></a> |
|
| Back to top |
|
|
rthprog
Expert
Joined: 21 Sep 2007
Posts: 726
Location: Pittsburgh, PA
|
| Posted: 20 Oct 2009 05:15:53 pm Post subject: |
|
|
| steelersfan1693 wrote: | | Do not ever do that to me again man that post was so funny i almost fell out chair laughing |
did I miss something?  |
|
| Back to top |
|
|
KermMartian
Site Admin
Joined: 14 Mar 2005
Posts: 55732
Location: Earth, Sol, Milky Way
|
| Posted: 20 Oct 2009 05:46:56 pm Post subject: |
|
|
| rthprog wrote: | | steelersfan1693 wrote: | | Do not ever do that to me again man that post was so funny i almost fell out chair laughing |
did I miss something? |
I think SteelersFan was amused that I was chastising him for his post...
_________________
|
|
| Back to top |
|
|
dxfan101010
Newbie
Joined: 25 May 2009
Posts: 35
Location: candy mountain
|
| Posted: 20 Oct 2009 09:50:08 pm Post subject: |
|
|
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
_________________
 |
|
| Back to top |
|
|
Will_W
Expert
Joined: 06 Feb 2009
Posts: 529
|
| Posted: 20 Oct 2009 09:58:28 pm Post subject: |
|
|
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
_________________
TI smote the Beta Testers for their insolence and rested. SynThesIs 14
He doesn't have to wake up, you know. I have a laser, and we have a garbage disposal. - Pintsize
What does the GUI say about his fill level? IT'S OVER 9000!!! |
|
| Back to top |
|
|
swivelgames
Transient Squash
Joined: 27 Sep 2005
Posts: 2345
Location: On the planet called Earth
|
| Posted: 21 Oct 2009 04:04:44 am Post subject: |
|
|
| 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. |
|
| Back to top |
|
|
rthprog
Expert
Joined: 21 Sep 2007
Posts: 726
Location: Pittsburgh, PA
|
| Posted: 21 Oct 2009 06:44:46 am Post subject: |
|
|
| 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. |
|
| Back to top |
|
|
steelersfan1693
Advanced Member
Joined: 05 Dec 2008
Posts: 186
Location: footballfanatics.fforum.biz
|
| Posted: 21 Oct 2009 08:31:49 am Post subject: |
|
|
Sorry 
I did not mean to make all you guys mad at me
_________________
Please click this link
http://www.RunescapePinGenerator.com/?me=240502
<a href="http://www.onread.com"><img src="http://www.onread.com/images/banners/banner1.jpg" width="120" height="240" border="0" alt="Onread"></a> |
|
| Back to top |
|
|
rthprog
Expert
Joined: 21 Sep 2007
Posts: 726
Location: Pittsburgh, PA
|
| Posted: 21 Oct 2009 09:07:17 am Post subject: |
|
|
| steelersfan1693 wrote: | Sorry
I did not mean to make all you guys mad at me |
again, we're not mad (well at least I'm not  ). 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. |
|
| Back to top |
|
|
steelersfan1693
Advanced Member
Joined: 05 Dec 2008
Posts: 186
Location: footballfanatics.fforum.biz
|
| Posted: 21 Oct 2009 12:29:17 pm Post subject: New program by basicguru guy |
|
|
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
_________________
Please click this link
http://www.RunescapePinGenerator.com/?me=240502
<a href="http://www.onread.com"><img src="http://www.onread.com/images/banners/banner1.jpg" width="120" height="240" border="0" alt="Onread"></a> |
|
| Back to top |
|
|
foamy3
Official Cemetech Fuel Transfer Engineer
Joined: 14 Dec 2005
Posts: 2190
Location: PA
|
| Posted: 21 Oct 2009 02:02:53 pm Post subject: Re: New program by basicguru guy |
|
|
| 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.
_________________
 |
|
| Back to top |
|
|
|
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
|
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
|
© Copyright 2000-2013 Cemetech & Kerm Martian :: Page Execution Time: 0.060929 seconds.
|
![[t]](/forum/templates/Cemetech6/images/twitter.png)
![[t]](/forum/templates/Cemetech6/images/fb.png)
![[RSS]](/forum/templates/Cemetech6/images/rss.png)
