Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- HELP KEY
- LCAR or LCAR2 = a list of variables that the game grabs from
- Goto 35 // Goto Lbl 35
- Lbl 87
- if D<W and N<1.1
- (O((F^N/2000)+H).5->D
- if E<Z and N<1.1
- (O((G^N/2000)+I).5->E
- N+.03->N
- PT-On(round(U+E,1),-0.3,L //for on a graph grid
- if round(P+D,0)!=P
- Pt-Off(P,.3,L
- if round(U+E,2)!=U
- Pt-Off(U,-0.3,L
- P+D->P
- U+E->U
- if P<=4.1 or U<=4.1
- Goto 87
- Goto 36
- Lbl 35
- 20->dim(LCAR
- if I=8.76
- Then
- GetCalc(LCAR2
- LCAR2->LCAR
- 0->I
- Goto 99
- End
- ClrHome
- Lbl 99
- 1->Y
- 2->N
- if T=1.7
- Goto LS
- ClrHome
- Menu("Nitto Challenge+","Your Garage",25,"Part Shop",C,"Race Track",26,"Options",27,"Exit",88
- Lbl 25
- Menu("Your Garage","Your Car",B,"Sell It",A,"Back",99
- Lbl 26
- Menu("Race Track","Find a Racer",57,"Race",0,"Back",99
- Lbl 27
- Menu("Options","About",AB,"Pass",81,"Back",99
- Lbl AB
- ClrHome
- Output(1,5,"Nitto 84
- Output(2,1,"By KaptinBoxxi
- Output(4,1,"Version 1.0
- Output(5,1,"11/10
- Pause
- Goto 99
- Lbl 81
- ClrHome
- 1->A
- 2->S
- 9->C
- 3->I
- 4->L
- 10->G
- 5->P
- 6->W
- 11->T
- 7->O
- 8->R
- Input J
- 2J+1->J
- if J=110881
- Then
- fill(1,LCAR
- 200->LCAR(20) // filles section 20 of the list LCAR
- End
- if J=561
- LCAR(18)+50-LCAR(18) //adds 50 to any number in LCAR(18)
- if J=289
- 100000->LCAR(19) // Adds 100,000 to your money
- if J=49 and LCAR(17)=0
- Then
- ClrHome
- Disp "-Enter Alias"
- Input "Racer:",J
- J->LCAR(1) // basically your own custom username
- 1->LCAR(17)
- End
- if J=481
- Then
- 350->LCAR(2)
- 0->LCAR(20)
- 1.6->LCAR(3)
- End
- If J=121
- Then
- LCAR->L1 // saves LCAR to List 1
- LCAR2->LCAR // transfers LCAR2 to LCAR
- L1->LCAR2 // transfers LCAR to LCAR2
- End
- Goto 99
- Lbl 88
- LCAR2->L1
- LCAR->LCAR2
- ClrHome
- Stop
- Lbl LS
- 1->T
- Menu("DealerShip","94 Supra",1,"02 WRX STi",2,"04 Evo",3,"01 Skyline",4,"95 Neon SRT4",65,"01 Integra",66
- Lbl A
- Menu("DealerShip","94 Supra",1,"02 WRX STi",2,"04 Evo",3,"01 Skyline",4,"95 Neon SRT4",65,"01 Integra",66,"Back",99
- Lbl 65
- 5->LCAR(1)
- 265->LCAR(2)
- .9->LCAR(3
- .8->LCAR(6
- .08->LCAR(14
- 2000->LCAR(19
- 1900->LCAR(20
- goto 38
- Lbl 1
- 1->LCAR(1
- 260->LCAR(2
- 1.3->LCAR(3
- .9->LCAR(6
- 0.08->LCAR(14
- 6->LCAR(16
- 500->LCAR(19
- 2000->LCAR(20
- Goto 38
- Lbl 2
- 2->LCAR(1)
- 320->LCAR(2
- 1->LCAR(3
- 1->LCAR(6
- .1->LCAR(14
- .9->LCAR(15
- 750->LCAR(19
- 2100->LCAR(20
- Goto 38
- Lbl 3
- 3->LCAR(1
- 265->LCAR(2
- .95->LCAR(3
- .95->LCAR(4
- 1->LCAR(6
- 1500->LCAR(19
- .1->LCAR(14
- 1750->LCAR(20
- Goto 38
- Lbl 4
- 4->LCAR(1
- 280->LCAR(2
- 1.2->LCAR(3
- 1->LCAR(6
- .09->LCAR(14
- 750->LCAR(19
- 2100->LCAR(20
- Goto 38
- Lbl 66
- 6->LCAR(1
- 270->LCAR(2
- .9->LCAR(3
- .8->LCAR(6
- .08->LCAR(14
- 2000->LCAR(19
- 1900->LCAR(20
- Lbl 38
- If LCAR(1)!=3
- 1->LCAR(4
- 1->LCAR(5
- 0->LCAR(7
- 1->LCAR(8
- 0->LCAR(9
- 1->LCAR(10
- .9->LCAR(11
- .95->LCAR(12
- 0->LCAR(13
- If LCAR(1)!=2
- .8->LCAR(15
- If LCAR(1)!=1
- 0->LCAR(16
- 0->LCAR(17
- 1->LCAR(18
- Lbl B
- ClrHome
- If LCAR(1)<=6 and LCAR(17)=0
- Then
- If LCAR(1)=1
- Disp "94 Supra
- If LCAR(1)=2
- Disp "02 WRX STI
- If LCAR(1)=3
- Disp "04 Evo
- If LCAR(1)=4
- Disp "01 Skyline R34
- If LCAR(1)=5
- Disp "95 Neon
- If LCAR(1)=6
- Disp "01 GSR
- Else
- Disp "Racer
- OutPut(1,7,LCAR(1))
- End
- round(LCAR(2)LCAR(3)LCAR(4)LCAR(5)LCAR(6)LCAR(8)LCAR(10)LCAR(11)LCAR(12+LCAR(7)+LCAR(9)+5*LCAR(16)+LCAR(17),1)->X
- OutPut(3,1,"HP
- OutPut(3,4,X
- OutPut(4,1,"CASH
- OutPut(4,6,LCAR(19
- OutPut(7,1,"Drag Coef:
- OutPut(8,1,LCAR(14)-LCAR(13)
- OutPut(6,1,"Tires:
- If LCAR(15)<.9001
- OutPut(6,7,"Stock
- If LCAR(15)>= 0.9001
- OutPut(6,7,"Performance
- Pause
- ClrHome
- OutPut(1,1,"Weight
- OutPut(1,9,LCAR(20)
- OutPut(3,1,"StreetCred
- OutPut(4,2,LCAR(18)
- OutPut(6,1,"Top Speed
- OutPut(6,11,round(-36.5+30.64ln(X),2)
- Pause
- ClrHome
- Goto 99
- Lbl C
- Menu("Part Shop","Intake",5,"Internals",6,"Exhaust",7,"NOS",8,"Fuel Injectors",9,"Body Work",10,"Tires",11
- Lbl 5
- Menu("Which Intake System","K/N Filter",12,"Iceman ColdAir",13,"Supercharger",14,"Turbocharger",15,"Back",C
- Lbl 6
- Menu("Which Internals","Pistons",19,"Cams",20,"Clutch",21,"Flywheel",22,"Ignition",23,"ECU",24,"Back",C
- Lbl 43
- Y=1
- N=0
- Disp "Carbon Fiber", "Body Panels","","Cost: 10000","Buy? Y/N"
- Input QP
- If QP=Y and LCAR(20)> 1200 and LCAR(19)>=10000
- Then
- LCAR(20)-200->LCAR(20
- LCAR(19)-10000->LCAR(19
- Goto 99
- Else
- If LCAR(19)<10000
- Goto 53
- If LCAR(20)<1200 and QP=Y
- Goto 52
- Goto 99
- End
- Lbl ZZ
- Menu("Kits","Radz FBumper",Z1,"Radz RBumper",Z2,"Radz Skirts",Z3,"Radz Hood",Z4,"Back",C
- Lbl Z1
- Disp "Radz FBumper","","Cost 650","Buy? 1/0"
- Input QP
- ClrHome
- Goto 99
- Else
- Goto 53
- If LCAR(13)>.04 and QP=1
- Goto 52
- Goto 99
- end
- Lbl 11
- Disp ""Yokohama","255/40 ZR17","","Cost: 600","Buy? 1/0"
- 15->L
- 1->M
- 600->N
- Goto ST
- Lbl 19
- Disp "JE Racing Pistons","9:1 Comp","","Cost 625","Buy? 1/0"
- 4->L
- 1.1->M
- 625->N
- Goto ST
- Lbl 20
- Disp "Comp Cams","Magnum Camz","","Cost 300"
- 5->L
- 1.1->M
- 300->N
- Goto ST
- Lbl 12
- Disp "K/N Filter","","Cost 150"
- 3->L
- 1.1->M
- 150->N
- Goto ST
- Lbl 13
- Disp "Iceman ColdAir","","Cost 350
- 3->L
- 1.2->M
- 350->N
- Goto ST
- Lbl 14
- If LCAR(3)=1.4
- Then
- -Pi->B
- Goto CB
- Else
- Disp "Supercharger","","Cost: 2500
- 3->L
- 1.4->M
- 2500->N
- Goto ST
- End
- Lbl 15
- If LCAR(3)>=1.5 or -Pi=B
- Then
- Lbl CB
- Disp "Change Boost","Level? 1-35",""
- Input "$100 per lb", A
- If A>35 or A<0
- Goto 15
- LCAR(19-100(A-LCAR(16))->LCAR(19
- A->LCAR(16
- 1->B
- If LCAR(3)<1.5
- Goto 99
- End
- If LCAR(3)=1.5
- Then
- ClrHome
- Disp "Intercooler","","Cost 1300
- 3->L
- 1.55->M
- 1300->N
- Goto ST
- End
- If LCAR(3)<1.5
- Then
- Disp "TurboCharger","","Cost 4000
- 3->L
- 1.5->M
- 4000->N
- Goto ST
- End
- Goto 99
- Lbl 8
- Menu("NOS","50 Shot",16,"100 Shot",17,"200 Shot",18,"Back",C
- Lbl 16
- Disp "NOS: 50 Shot","","Cost 550
- 9->L
- 50->M
- 550->N
- Goto ST
- Goto 99
- Lbl 17
- Disp "NOS: 100 Shot","","Cost: 1000
- 9->L
- 100->M
- 1000->N
- Goto ST
- Lbl 18
- Disp "NOS 200 shot","","Cost 2500
- 9->L
- 200->M
- 2500->N
- Goto ST
- Lbl 21
- disp "CenterForce clutch","","Cost 500
- 11->L
- 1->M
- 500->N
- Goto ST
- Lbl 22
- Disp "CenterForce","Flywheel","","Cost 500
- 12->L
- 1.05->M
- 500->N
- Goto ST
- Lbl 7
- Disp "CatBack Exhaust","System","","Cost: 600
- 6->L
- 1.08->M
- 600->N
- Goto ST
- Lbl 9
- Disp "Fuel Injectors","And Fuel Rail","","Cost 300
- 10->L
- 1.1->M
- 300->N
- Goto ST
- Lbl 23
- Disp "MSD Ignition","Multi Spark","","cost 400
- 8->L
- 1.1->M
- 400->N
- Goto ST
- Lbl 24
- Disp "Jet ECU","Upgrade Kit", "","Cost 700
- 7->L
- 30->M
- 700->N
- Goto ST
- //RACING
- Lbl 57
- ClrHome
- Disp "Choose Class:","","1-Stock 2-Street","3-Pro"
- Input D
- If D>3 and D<0
- Goto 57
- iPart(D)->D
- clrHome
- Disp "G
- randInt(1,6)->LCAR2(1
- If LCAR2(1)=1:260->LCAR2(2
- If LCAR2(1)=2:320->LCAR2(2
- If LCAR2(1)=3:240->LCAR2(2
- If LCAR2(1)=4:235->LCAR2(2
- If LCAR2(1)=5:265->LCAR2(2
- If LCAR2(1)=6:270->LCAR2(2
- OutPut(1,2,"E
- 1+(randInt(-1,2)+D)/10->LCAR2(3
- If D<3:1->LCAR2(4
- If D=3:1.1->LCAR2(4
- OutPut(1.3,"n
- If D=1:1->LCAR2(6
- If D>1:1.1->LCAR2(6
- If D>3:1->LCAR2(6
- If D=3:1.1->LCAR2(6
- OutPut(1,4,"e
- If D=1:0->LCAR2(7
- If D>1:30->LCAR2(7
- If D<3:1->LCAR2(7
- If D=3:1.1->LCAR2(8
- OutPut(1,5,"r
- If D=1
- 0->LCAR2(9
- If D=2
- 75->LCAR(9
- If D=3
- 200->LCAR2(9
- If D=1:1->LCAR2(10
- If D>1:1.1->LCAR2(10
- OutPut(1,6,"a
- .9->LCAR2(11
- .95->LCAR2(12
- OutPut(1,7,"t
- If D=1:0->LCAR2(13
- If D>1:0.7->LCAR2(13
- randInt(10,20)/100->LCAR2(14
- OutPut(1,8,"i
- 1->LCAR2(15
- If LCAR2(3)>1.2
- randInt(0,35)-LCAR2(16
- OutPut(1,9,"n
- 0->LCAR2(17
- randInt(0,10)D->LCAR2(18
- OutPut(1,10,"g
- randInt(0,3000)D->LCAR2(19
- randInt(2000,2500)-400*D->LCAR2(20
- goto 0
- Lbl ST
- Disp "Buy? Yes-1 No-2
- Input QP
- If QP=1 and LCAR(L)<M and LCAR(19)>=N
- Then
- M->LCAR(L
- LCAR(19)-N->LCAR(19
- Goto 99
- Else
- If LCAR(19)<N
- Goto 53
- If LCAR(L)>=M and QP=1
- Goto 52
- Goto 99
- End
- Lbl 52
- ClrHome
- Disp "You have better","Parts installed"
- Pause
- Goto 99
- Lbl 53
- ClrHome
- Disp "Not Enough money"
- Pause
- Goto 99
- //Racing
- Lbl 0
- 1->L3(1
- Lbl 31
- FnOff
- -88->QP
- Menu("Other Cars From-","This Calc",34,"Other Calc",33
- Lbl 33
- Menu("Race On","This Calc.",X,"Other Calc.",Z
- Lbl Z
- ClrHome
- LCAR->LCAR2
- Disp "After Race Press","Enter"
- 8.76->I
- Stop
- Lbl X
- Disp "Connect Other","Calc Now"
- Pause
- 0->A
- GetCalc(LCAR2
- While A<50
- A+1->A
- End
- 1.3->L3(1
- Lbl 34
- 0->S
- LCAR(1)->A
- LCAR(2)->B
- LCAR(3)->C
- LCAR(4)->D
- LCAR(5)->E
- LCAR(6)->F
- LCAR(7)->G
- LCAR(8)->H
- LCAR(9)->I
- LCAR(10)->J
- LCAR(11)->K
- LCAR(12)->L
- LCAR(13)->M
- LCAR(14)->N
- LCAR(15)->O
- LCAR(16)->P
- LCAR(17)->Q
- BCDEFHJKL+(5P)+G+I+Q->W
- LCAR2(1)->R
- LCAR2(2)->B
- LCAR2(3)->C
- LCAR2(4)->D
- LCAR2(5)->E
- LCAR2(6)->F
- LCAR2(7)->G
- LCAR2(8)->H
- LCAR2(9)->I
- LCAR2(10)->J
- LCAR2(11)->M
- LCAR2(12)->N
- LCAR2(13)->O
- LCAR2(14)->P
- LCAR2(15)->Q
- BCDEFHJKL+(5P)+G+I+Q->Z
- Menu("Which Track","1/4 Miles",QR,"1/8 Mile",ET
- Lbl ET
- 2->O
- Goto 28
- Lbl QR
- 1->O
- Lbl 28
- ClrHome
- Disp "How Much are you","Betting?
- Output(8,1,"For slip type S
- OutPut(6,1,"Max Bet
- If LCAR(19)>LCAR2(19
- Then
- OutPut(6,10,LCAR2(19
- else
- OutPut(6,10,LCAR(19
- End
- Input V
- ClrHome
- If V=-88
- Goto 45
- If V<0 or V>LCAR2(19) or V>LCAR19
- Goto 28
- round(V,2)->V
- Lbl 45
- If A<= 6 and LCAR(17)=0
- Then
- If A=1: Disp "Supra
- Else
- disp "Racer
- Output(1,7,A
- End
- round(W,1)->W
- OutPut(2,1,"HP
- OutPut(2,4,W
- OutPut(7,1,"SC"
- OutPut(8,1,(LCAR(18)
- Pause
- clrHome
- OutPut(2,7,"vs.
- Pause
- clrHome
- If R<= 6 and LCAR2(17)=0
- then
- If R=1: Disp "Supra
- Else
- Disp "Racer
- OutPut(1,7,R
- End
- round(Z,1)->Z
- OutPut(2,1,"HP
- OutPut(2,4,Z
- OutPut(7,1,"SC
- OutPut(8,1,LCAR2(18
- Pause
- Lbl 29
- ClrDraw
- AxesOff
- ZDecimal
- Horizontal -:Horizontal .6:Horizontal -.6
- Line(-4.7,.6,-4.7,-.6
- Line(4.7,.6,4.7,-.6
- Line(4,.6,4,-.6
- If A<=6 and LCAR(17)=0
- Then If A=1:"Text 3,2,"Supra
- Else
- Text(3,2,:1: Racer
- Text(3,29,A
- End
- If R<=6 and LCAR2(17)=0
- Then
- If R=1:Text(50,2,"2: Supra
- Else
- Text(50,2,"2: Racer
- Text 50,29,R
- End
- If O=2
- 2->L
- If O=1
- 1->L
- -4.6->P
- P->U
- Pt-On(P,.3,L
- Pt-On(U,-.3,L
- (2000-LCAR(20))/15000->H
- (2000-LCAR2(20)/15000->I
- 2.5√(LCAR(18)->J
- 2.5√(LCAR2(18)->K
- 0->D
- D->E
- .6->N
- (((900√((W+J)/750))(1-(LCAR(14)-LCAR(13)))^Lcar(15)^-1->F
- (((900√((Z+K)/750))(1-LCAR2(14)-LCAR2(13)))^(LCAR2(15)^-1->G
- Pause
- Goto 87
- Lbl 36
- Pause
- 1+LCAR(18)->LCAR(18
- 1+LCAR2(18)->LCAR2(18
- Lbl 30
- If P>U and V!=-88
- Then
- LCAR(19)+V->LCAR(19
- LCAR2(19)-V->LCAR2(19
- End
- If U>P and V!=-88
- then LCAR2(19)+V->LCAR2(19
- LCAR(19)-V->LCAR19
- End
- If P>U and V=-88
- Then
- 2.1*Z+LCAR(19)+LCAR2(19)->LCAR(19
- If L3(1)!=1.3
- ClrList LCAR2
- LCAR->LCAR2
- 5->L
- End
- If U>P and V=-88
- Then
- 2.1*W+(LCAR2(19)+LCAR(19)->LCAR2(19
- 1.7->T
- End
- 1->O
- If LCAR(15)>.8
- LCAR(15)-.015->LCAR(15
- If LCAR2(15)>.8
- LCAR2(15)-.015->LCAR2(15
- ClrHome
- If P>U
- OutPut(1,1,R
- If U>P
- round(LCAR(2)LCAR(2)LCAR(4)LCAR(5)LCAR(6)LCAR(7)LCAR(10)LCAR(11)LCAR(12)+LCAR(7)+LCAR(9)5*LCAR(16)+LCAR(17),1)->X:Goto V1
- Lvl V1
- OutPut(1,1,R
- randInt(500,600)->R:OutPut(2,1,"RT: 0.":OutPut(2,7,R
- randInt(100,276)->E
- randInt(100,276)->M
- If X>100 and X<150: Then
- OutPut(3,1,"1/8 mi: 9.":(OutPut(3,10,E
- OutPut(4,1,"1.4 Mi: 15.":OutPut(4,11,M:Pause
- randInt(130,660)->S
- OutPut(5,1,"MPH 188."
- OutPut(5,10,S
- OutPut(6,1,"You Win: ":Pause :"If V=-88:Then:Goto ZY:Else Goto ZZ:End
- Lbl ZY
- OutPut(7,1,"A Pink Slip!"
- Lbl ZZ
- OutPut(7,3,V
- If P=U
- Then
- rand+P->P
- rand+U->U
- Goto 30
- end
- Pause
- ClrDraw
- clrHome
- AxesOn
- FnOn
- If L3(1)=1.3
- Stop
- Goto 99
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement