From 9970ad4403f56da233cd90964a87b3becb624590 Mon Sep 17 00:00:00 2001 From: NinjaWeedle <37186521+NinjaWeedle@users.noreply.github.com> Date: Sun, 4 Sep 2022 23:57:41 -0400 Subject: [PATCH] Beta 8 - New car, Tuning updates, graphics updates Adds new finish line, a new car, fixes the DMC-12, Adds a new paintshop effect when repainting a car, adds indicator of when upgrades are maxed in the tuning menu. --- CSREVO.8xp | Bin 10700 -> 11260 bytes CSREVO.txt | 127 ++++++++++++++++++++++++---------- CSRacing II documentation.txt | 4 +- 3 files changed, 93 insertions(+), 38 deletions(-) diff --git a/CSREVO.8xp b/CSREVO.8xp index 736ccdc2e212a4ccecb1cd8e1d124b429e96020a..5b2f6b29797607ec2daed53d392e0d706fd414c9 100644 GIT binary patch delta 1030 zcmZuwJ!lhg6mQeCrD;nOwVyb&xY#@__y4%d<(AiLdda1&X-QI>AP!PNhzLo+Nw7NT zD22bX;3guNnnl{BB8Y>eMT-h9&KB(EBzxVEA>Cf7hKKu>_J6=O~ zrc`vUEO&Io$Y{d$!k0*=(VFU->Dts_1CmZ5moGS|4BuLF@;SGRD(ze4e9Ci>QPK`UWid<)mEpD@iHfr#Wm>LX&~evUP3(gXA=38}aPyVvXz3EULYp z*r4Jh7}m+aA^q2D{Qn*O&RixM zx~2vB+zu-Q20@W%@GvCs_$HIMTh4f_q%=sMK>y}FlbH>s`_*@GGh3rMeG-^70vdM9 zu9BKpmn=C;OVc*}R#$RGd)_I%LPdV2QNzMA?LZIoDsAs{4_tTah6!fcTZG$)yTKw{ zbnEfOnvk<^+^CDnON)Bw6pIh5z3%8t+a)Xn`zTW)LKF4vCSx8=Wa%NLG@=(nnxhqu zr8*ZB-3%R3vgoYX`9e8g$nAc|OoJ95W`3@M6rcJY{i^R+_ppBGJ&jhcvZ2{3t@g9(m}A_apZ`ksZD3iMONoNVIV5 zT4$`y^jdIY>iPKjp%V+gYIuA@eHcHA9Gk73i6`BIk5P-R$B-K`y56s@PmV;QIdy09 zfk|XA2~884%+ftZI6>xy0CCC*->Kr$3ZbvoEn4)3&&|Np-`=51cz{0$G<{)3JL9N{ J>1O2j&wt(|FAdYlb9e3o5>{EHg05Rx2Xs5&_kh6)Lc9W zT9tYf;rSK2=rUkq z7~};luIE`TLjJkUr#dj9;F9iL*Tr}9tBbDD)t$^UaPW1xhJWX)r%4{$1_DP5{0pCU z@1!f0wbDhTi~wa|=d5Y6?`nE><HR7#R>eJs88e~eDVqL1;h83d ztD5S%K(Vm|_zOxE4%zg@W;7XMGSnU0+D`LeObPA$e(j!?3moCd&W+cQ=`X`KtnIIrCOP6HsPp< tPcJ+^`)bnCBem+_=nv6(@W6p_dTs4rae|kVE*cr~o4VaW<`#%)kn#lkF diff --git a/CSREVO.txt b/CSREVO.txt index 72bb8a3..93b55ec 100644 --- a/CSREVO.txt +++ b/CSREVO.txt @@ -57,7 +57,7 @@ Then 2|E4->|LCSE(1 15->|LCSE(2 End -25->dim(|LCAE +26->dim(|LCAE 6->dim(|LTTR If not(|LTTR(1 Fill(255,|LTTR @@ -138,26 +138,27 @@ Then 10fPart(.1int(.1A->M int(.01A->N 18 - Text(35,Ans,"ENGINE - Text(65,Ans,"WEIGHT - Text(95,Ans,"TIRES - Text(125,Ans,"BACK - Text(35,5Ans,L - Text(65,5Ans,M - Text(95,5Ans,N + Text(30,Ans,"ENGINE + Text(60,Ans,"WEIGHT + Text(90,Ans,"TIRES + Text(120,Ans,"RESET + Text(150,Ans,"BACK + Text(30,5Ans,L + Text(60,5Ans,M + Text(90,5Ans,N Repeat B If K - Text(~1,30F+33,1," + Text(~1,30F+28,1," F-(F and K=25->F - F+(K=34 and F<3->F - Text(30F+35,2,"[|>] + F+(K=34 and F<4->F + Text(30F+30,2,"[|>] getKey->K K=21 or K=105->B End - For(X,20,130,10 + For(X,20,130,11 Text(~1,X,0,Str0 End - If F!=3 + If F<3 Then If not(F L->U @@ -203,9 +204,12 @@ Then 2500U|LCAE(17->C Text(60,140,C Text(60,95,"COST: - Text(150,15,"BACK If U<=3 - Text(150,120,"PURCHASE + Then + Text(150,120,"PURCHASE + Else + Text(150,125,"OWNED + End Repeat K>=11 and K<=15 getKey->K End @@ -215,15 +219,53 @@ Then Then |LCSE(1)-C->|LCSE(1 A+10^(F->|LCSE(5+|LCAE(1 + If F=1 + Then + .1+|LCAE(13->|LCAE(13 + 10+|LCAE(18->|LCAE(18 + 10+|LCAE(19->|LCAE(19 + 1+|LCAE(4->|LCAE(4 + End + If F=2 + Then + .1+|LCAE(13->|LCAE(13 + |LCAE(24)-500->|LCAE(24 + End + If F=3 + |LCAE(23)-2->|LCAE(23 TextColor(14 - Text(~1,70,95,"OWNED - DelVar CText(90,20,"SWITCH CARS TO INSTALL URGRADES + DelVar CText(~1,70,95,"OWNED + Pause + End + If C and U<=3 + Then + Text(~1,80,20,"INSUFFICIENT FUNDS + Pause End - If C - Text(~1,80,20,"INSUFFICIENT FUNDS - Pause End End + If F=3 + Then + Text(~1,146,0,Str0 + DelVar HText(40,70,"SELL ALL UPGRADES? + Text(70,105,"NO + Text(95,105,"YES + Repeat B + If K + Text(~1,25H+68,89," + H-(H and K=25->H + H+(K=34 and not(H->H + Text(25H+70,90,"[|>] + getKey->K + K=21 or K=105->B + End + If H + Then + DelVar C|LCSE(1)+int(~111+|LCSE(5+|LCAE(1->|LCSE(1 + + End + + End End If C=2:Then Horiz @@ -254,7 +296,14 @@ If C=2:Then sub(A)+int(|LCSE(5+|LCAE(1->|LCSE(5+|LCAE(1 TextColor(12 Text(20,50,Str0 + Text(20,90,"REPAINTING... C-25->|LCSE(1 + For(Y,43,53 + For(X,128,138) + If 2fPart(.5(X+Y + Pxl-On(Y,X,A + End + End TextColor(A Text(20,85,"COLOR CHANGED End @@ -542,38 +591,38 @@ If C=3:Then If not(A)|LCSE(12 Then "DMC-12 '82->Str9 - {7,7.5,7,130,5,3.36,2.06,1.38,1.06,.82,0,0,1,.1,.2,21,1,130,152,26.1,1,8,1233,1->CAE + {7,7.5,7,130,5,3.36,2.06,1.38,1.06,.82,0,0,1,.1,.2,21,1,130,152,26.1,3.44,1,8,1233,1,0->CAE End Else If A=5 and |LCSE(11 Then "CORVETTE '20->Str9 - {6->CAE + {6,6.6,3.5,194,7,2.91,1.76,1.22,.88,.65,.51,.4,3.1,.25,.1,18,3,490,465,27.2,4.9,1,10,1654,1,0->CAE End If A=4 and |LCSE(10 Then "911 GT3 RS '16->Str9 - {5,8.8,6,193,7,3.75,2.38,1.72,1.34,1.11,.96,.84,3.2,.25,.1,15,3,500,339,28.7,4.19,2,10,1420,1->CAE + {5,8.8,6,193,7,3.75,2.38,1.72,1.34,1.11,.96,.84,3.2,.25,.1,15,3,500,339,28.7,4.19,2,10,1420,1,0->CAE End If A=3 and |LCSE(9 Then "COUNTACH LP400 '74->Str9 - {4,8,5,186,5,2.256,1.769,1.31,.99,.775,0,0,2.2,.2,.13,15,2,375,365,25.3,4.091,2,12,1300,1->CAE + {4,8,5,186,5,2.256,1.769,1.31,.99,.775,0,0,2.2,.2,.13,15,2,375,365,25.3,4.091,2,12,1300,1,0->CAE End If A=2 and |LCSE(8 Then "FOCUS RS '09->Str9 - {3,7,6.5,156,6,3.23,1.95,1.32,1.03,.821,.685,0,2,.25,.15,14,2,300,318,25.5,4.06,1,9,1741,2->CAE + {3,7,6.5,156,6,3.23,1.95,1.32,1.03,.821,.685,0,2,.25,.15,14,2,300,318,25.5,4.06,1,9,1741,2,0->CAE End If A=1 and |LCSE(7 Then "CAMARO SS '69->Str9 - {2,6,5,138,4,2.52,1.88,1.46,1,0,0,2.59,1.4,.2,.15,19,1,299,380,25.3,3.73,1,11,1577,1->CAE + {2,6,5,138,4,2.52,1.88,1.46,1,0,0,2.59,1.4,.2,.15,19,1,299,380,25.3,3.73,1,11,1577,1,0->CAE End If |LCSE(6)not(A Then "CRX SI '91->Str9 - {1,8.2,6,153,5,3.166,2.052,1.416,1.103,.87,0,0,1.2,.1,.15,11,1,108,100,22.5,4.266,3,8,954,2->CAE + {1,8.2,6,153,5,3.166,2.052,1.416,1.103,.87,0,0,1.2,.1,.15,11,1,108,100,22.5,4.266,3,8,954,2,0->CAE End End ClrDraw @@ -605,11 +654,11 @@ If C=3:Then Goto 0 End Lbl 2 -15=|LCAE(1 -If Ans +If 15=|LCAE(1 Pause "YOU NEED A CAR TO RACE. -If Ans +If 15=|LCAE(1 Goto 0 +BackgroundOff "CPU->Str2 1->L DelVar BDelVar DDelVar JDelVar WDelVar thetaClrDraw @@ -626,7 +675,7 @@ For(X,0,|LCSE(4 If |LCSE(21+X TextColor(20 If not(X - Text(25,17,"small1. CLASSIC CAR CUP + Text(25,17,"small1. [CLASSIC] CAR CUP If X=1 Text(45,17,"small2. TIER 1 CHAMPIONSHIP If X=2 @@ -786,13 +835,12 @@ Lbl 1 Full BackgroundOff BorderColor 1 -DelVar SDelVar RDelVar PDelVar OClrDraw -ZDecimal +DelVar SDelVar RDelVar PDelVar OZDecimal 0->Xmin 264->Xmax -1->G Text(0,75,"VS. Text(0,99,Str2 +1->G 19 If W>=4 or W=2 20 @@ -807,7 +855,12 @@ Line(0,.3,250,.3,Ans Line(0,.5,250,.5,Ans Line(262,~.8,262,1.6,20 12 -Shade(~.8,1.6,250,264,4,2,Ans +For(Y,14,~8,~1.5 + For(X,251,263,3) + If 2fPart(.5(X+2fPart(Y + Pt-On(X,.1Y+.05,Ans + End +End If W>=4 or W=2 Then Line(15,.4,35,.4,Ans @@ -1041,9 +1094,9 @@ Then A->|LCSE(4 Disp "EVENT DelVar thetaOutput(1,7,A - Output(1,9,"COMPLETE + Output(1,9,"COMPLETE! Else - Output(4,11,"RACE" + Output(4,11,"RACE Output(4,16,B+1 If B=1 Then diff --git a/CSRacing II documentation.txt b/CSRacing II documentation.txt index 630b54a..74d2eaa 100644 --- a/CSRacing II documentation.txt +++ b/CSRacing II documentation.txt @@ -1,4 +1,3 @@ - Calculator Street Racing II: Evolution DEVELOPER'S DOCUMENTATION STRINGS USED: @@ -74,6 +73,9 @@ List CAE: (Car Data) 23: Grip force (The higher the number, the more frames of wheelspin) 24: Car Weight (kg) 25: Drivetrain type (1 = RWD, 2 = FWD, 3 = AWD/4WD) +26: Custom car body type + ++ Idea List L1: