Advertisement
dcomicboy

nitto legends calc FINISHED

Jan 29th, 2013
175
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.86 KB | None | 0 0
  1. HELP KEY
  2. LCAR or LCAR2 = a list of variables that the game grabs from
  3.  
  4.  
  5. Goto 35 // Goto Lbl 35
  6. Lbl 87
  7. if D<W and N<1.1
  8. (O((F^N/2000)+H).5->D
  9. if E<Z and N<1.1
  10. (O((G^N/2000)+I).5->E
  11. N+.03->N
  12. PT-On(round(U+E,1),-0.3,L //for on a graph grid
  13. if round(P+D,0)!=P
  14. Pt-Off(P,.3,L
  15. if round(U+E,2)!=U
  16. Pt-Off(U,-0.3,L
  17. P+D->P
  18. U+E->U
  19. if P<=4.1 or U<=4.1
  20. Goto 87
  21. Goto 36
  22. Lbl 35
  23. 20->dim(LCAR
  24. if I=8.76
  25. Then
  26. GetCalc(LCAR2
  27. LCAR2->LCAR
  28. 0->I
  29. Goto 99
  30. End
  31. ClrHome
  32. Lbl 99
  33. 1->Y
  34. 2->N
  35. if T=1.7
  36. Goto LS
  37. ClrHome
  38. Menu("Nitto Challenge+","Your Garage",25,"Part Shop",C,"Race Track",26,"Options",27,"Exit",88
  39. Lbl 25
  40. Menu("Your Garage","Your Car",B,"Sell It",A,"Back",99
  41. Lbl 26
  42. Menu("Race Track","Find a Racer",57,"Race",0,"Back",99
  43. Lbl 27
  44. Menu("Options","About",AB,"Pass",81,"Back",99
  45. Lbl AB
  46. ClrHome
  47. Output(1,5,"Nitto 84
  48. Output(2,1,"By KaptinBoxxi
  49. Output(4,1,"Version 1.0
  50. Output(5,1,"11/10
  51. Pause
  52. Goto 99
  53. Lbl 81
  54. ClrHome
  55. 1->A
  56. 2->S
  57. 9->C
  58. 3->I
  59. 4->L
  60. 10->G
  61. 5->P
  62. 6->W
  63. 11->T
  64. 7->O
  65. 8->R
  66. Input J
  67. 2J+1->J
  68. if J=110881
  69. Then
  70. fill(1,LCAR
  71. 200->LCAR(20) // filles section 20 of the list LCAR
  72. End
  73. if J=561
  74. LCAR(18)+50-LCAR(18) //adds 50 to any number in LCAR(18)
  75. if J=289
  76. 100000->LCAR(19) // Adds 100,000 to your money
  77. if J=49 and LCAR(17)=0
  78. Then
  79. ClrHome
  80. Disp "-Enter Alias"
  81. Input "Racer:",J
  82. J->LCAR(1) // basically your own custom username
  83. 1->LCAR(17)
  84. End
  85. if J=481
  86. Then
  87. 350->LCAR(2)
  88. 0->LCAR(20)
  89. 1.6->LCAR(3)
  90. End
  91. If J=121
  92. Then
  93. LCAR->L1 // saves LCAR to List 1
  94. LCAR2->LCAR // transfers LCAR2 to LCAR
  95. L1->LCAR2 // transfers LCAR to LCAR2
  96. End
  97. Goto 99
  98. Lbl 88
  99. LCAR2->L1
  100. LCAR->LCAR2
  101. ClrHome
  102. Stop
  103. Lbl LS
  104. 1->T
  105. Menu("DealerShip","94 Supra",1,"02 WRX STi",2,"04 Evo",3,"01 Skyline",4,"95 Neon SRT4",65,"01 Integra",66
  106. Lbl A
  107. Menu("DealerShip","94 Supra",1,"02 WRX STi",2,"04 Evo",3,"01 Skyline",4,"95 Neon SRT4",65,"01 Integra",66,"Back",99
  108. Lbl 65
  109. 5->LCAR(1)
  110. 265->LCAR(2)
  111. .9->LCAR(3
  112. .8->LCAR(6
  113. .08->LCAR(14
  114. 2000->LCAR(19
  115. 1900->LCAR(20
  116. goto 38
  117. Lbl 1
  118. 1->LCAR(1
  119. 260->LCAR(2
  120. 1.3->LCAR(3
  121. .9->LCAR(6
  122. 0.08->LCAR(14
  123. 6->LCAR(16
  124. 500->LCAR(19
  125. 2000->LCAR(20
  126. Goto 38
  127. Lbl 2
  128. 2->LCAR(1)
  129. 320->LCAR(2
  130. 1->LCAR(3
  131. 1->LCAR(6
  132. .1->LCAR(14
  133. .9->LCAR(15
  134. 750->LCAR(19
  135. 2100->LCAR(20
  136. Goto 38
  137. Lbl 3
  138. 3->LCAR(1
  139. 265->LCAR(2
  140. .95->LCAR(3
  141. .95->LCAR(4
  142. 1->LCAR(6
  143. 1500->LCAR(19
  144. .1->LCAR(14
  145. 1750->LCAR(20
  146. Goto 38
  147. Lbl 4
  148. 4->LCAR(1
  149. 280->LCAR(2
  150. 1.2->LCAR(3
  151. 1->LCAR(6
  152. .09->LCAR(14
  153. 750->LCAR(19
  154. 2100->LCAR(20
  155. Goto 38
  156. Lbl 66
  157. 6->LCAR(1
  158. 270->LCAR(2
  159. .9->LCAR(3
  160. .8->LCAR(6
  161. .08->LCAR(14
  162. 2000->LCAR(19
  163. 1900->LCAR(20
  164. Lbl 38
  165. If LCAR(1)!=3
  166. 1->LCAR(4
  167. 1->LCAR(5
  168. 0->LCAR(7
  169. 1->LCAR(8
  170. 0->LCAR(9
  171. 1->LCAR(10
  172. .9->LCAR(11
  173. .95->LCAR(12
  174. 0->LCAR(13
  175. If LCAR(1)!=2
  176. .8->LCAR(15
  177. If LCAR(1)!=1
  178. 0->LCAR(16
  179. 0->LCAR(17
  180. 1->LCAR(18
  181. Lbl B
  182. ClrHome
  183. If LCAR(1)<=6 and LCAR(17)=0
  184. Then
  185. If LCAR(1)=1
  186. Disp "94 Supra
  187. If LCAR(1)=2
  188. Disp "02 WRX STI
  189. If LCAR(1)=3
  190. Disp "04 Evo
  191. If LCAR(1)=4
  192. Disp "01 Skyline R34
  193. If LCAR(1)=5
  194. Disp "95 Neon
  195. If LCAR(1)=6
  196. Disp "01 GSR
  197. Else
  198. Disp "Racer
  199. OutPut(1,7,LCAR(1))
  200. End
  201. 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
  202. OutPut(3,1,"HP
  203. OutPut(3,4,X
  204. OutPut(4,1,"CASH
  205. OutPut(4,6,LCAR(19
  206. OutPut(7,1,"Drag Coef:
  207. OutPut(8,1,LCAR(14)-LCAR(13)
  208. OutPut(6,1,"Tires:
  209. If LCAR(15)<.9001
  210. OutPut(6,7,"Stock
  211. If LCAR(15)>= 0.9001
  212. OutPut(6,7,"Performance
  213. Pause
  214. ClrHome
  215. OutPut(1,1,"Weight
  216. OutPut(1,9,LCAR(20)
  217. OutPut(3,1,"StreetCred
  218. OutPut(4,2,LCAR(18)
  219. OutPut(6,1,"Top Speed
  220. OutPut(6,11,round(-36.5+30.64ln(X),2)
  221. Pause
  222. ClrHome
  223. Goto 99
  224. Lbl C
  225. Menu("Part Shop","Intake",5,"Internals",6,"Exhaust",7,"NOS",8,"Fuel Injectors",9,"Body Work",10,"Tires",11
  226. Lbl 5
  227. Menu("Which Intake System","K/N Filter",12,"Iceman ColdAir",13,"Supercharger",14,"Turbocharger",15,"Back",C
  228. Lbl 6
  229. Menu("Which Internals","Pistons",19,"Cams",20,"Clutch",21,"Flywheel",22,"Ignition",23,"ECU",24,"Back",C
  230. Lbl 43
  231. Y=1
  232. N=0
  233. Disp "Carbon Fiber", "Body Panels","","Cost: 10000","Buy? Y/N"
  234. Input QP
  235. If QP=Y and LCAR(20)> 1200 and LCAR(19)>=10000
  236. Then
  237. LCAR(20)-200->LCAR(20
  238. LCAR(19)-10000->LCAR(19
  239. Goto 99
  240. Else
  241. If LCAR(19)<10000
  242. Goto 53
  243. If LCAR(20)<1200 and QP=Y
  244. Goto 52
  245. Goto 99
  246. End
  247. Lbl ZZ
  248. Menu("Kits","Radz FBumper",Z1,"Radz RBumper",Z2,"Radz Skirts",Z3,"Radz Hood",Z4,"Back",C
  249. Lbl Z1
  250. Disp "Radz FBumper","","Cost 650","Buy? 1/0"
  251. Input QP
  252. ClrHome
  253. Goto 99
  254. Else
  255. Goto 53
  256. If LCAR(13)>.04 and QP=1
  257. Goto 52
  258. Goto 99
  259. end
  260. Lbl 11
  261. Disp ""Yokohama","255/40 ZR17","","Cost: 600","Buy? 1/0"
  262. 15->L
  263. 1->M
  264. 600->N
  265. Goto ST
  266. Lbl 19
  267. Disp "JE Racing Pistons","9:1 Comp","","Cost 625","Buy? 1/0"
  268. 4->L
  269. 1.1->M
  270. 625->N
  271. Goto ST
  272. Lbl 20
  273. Disp "Comp Cams","Magnum Camz","","Cost 300"
  274. 5->L
  275. 1.1->M
  276. 300->N
  277. Goto ST
  278. Lbl 12
  279. Disp "K/N Filter","","Cost 150"
  280. 3->L
  281. 1.1->M
  282. 150->N
  283. Goto ST
  284. Lbl 13
  285. Disp "Iceman ColdAir","","Cost 350
  286. 3->L
  287. 1.2->M
  288. 350->N
  289. Goto ST
  290. Lbl 14
  291. If LCAR(3)=1.4
  292. Then
  293. -Pi->B
  294. Goto CB
  295. Else
  296. Disp "Supercharger","","Cost: 2500
  297. 3->L
  298. 1.4->M
  299. 2500->N
  300. Goto ST
  301. End
  302. Lbl 15
  303. If LCAR(3)>=1.5 or -Pi=B
  304. Then
  305. Lbl CB
  306. Disp "Change Boost","Level? 1-35",""
  307. Input "$100 per lb", A
  308. If A>35 or A<0
  309. Goto 15
  310. LCAR(19-100(A-LCAR(16))->LCAR(19
  311. A->LCAR(16
  312. 1->B
  313. If LCAR(3)<1.5
  314. Goto 99
  315. End
  316. If LCAR(3)=1.5
  317. Then
  318. ClrHome
  319. Disp "Intercooler","","Cost 1300
  320. 3->L
  321. 1.55->M
  322. 1300->N
  323. Goto ST
  324. End
  325. If LCAR(3)<1.5
  326. Then
  327. Disp "TurboCharger","","Cost 4000
  328. 3->L
  329. 1.5->M
  330. 4000->N
  331. Goto ST
  332. End
  333. Goto 99
  334. Lbl 8
  335. Menu("NOS","50 Shot",16,"100 Shot",17,"200 Shot",18,"Back",C
  336. Lbl 16
  337. Disp "NOS: 50 Shot","","Cost 550
  338. 9->L
  339. 50->M
  340. 550->N
  341. Goto ST
  342. Goto 99
  343. Lbl 17
  344. Disp "NOS: 100 Shot","","Cost: 1000
  345. 9->L
  346. 100->M
  347. 1000->N
  348. Goto ST
  349. Lbl 18
  350. Disp "NOS 200 shot","","Cost 2500
  351. 9->L
  352. 200->M
  353. 2500->N
  354. Goto ST
  355. Lbl 21
  356. disp "CenterForce clutch","","Cost 500
  357. 11->L
  358. 1->M
  359. 500->N
  360. Goto ST
  361. Lbl 22
  362. Disp "CenterForce","Flywheel","","Cost 500
  363. 12->L
  364. 1.05->M
  365. 500->N
  366. Goto ST
  367. Lbl 7
  368. Disp "CatBack Exhaust","System","","Cost: 600
  369. 6->L
  370. 1.08->M
  371. 600->N
  372. Goto ST
  373. Lbl 9
  374. Disp "Fuel Injectors","And Fuel Rail","","Cost 300
  375. 10->L
  376. 1.1->M
  377. 300->N
  378. Goto ST
  379. Lbl 23
  380. Disp "MSD Ignition","Multi Spark","","cost 400
  381. 8->L
  382. 1.1->M
  383. 400->N
  384. Goto ST
  385. Lbl 24
  386. Disp "Jet ECU","Upgrade Kit", "","Cost 700
  387. 7->L
  388. 30->M
  389. 700->N
  390. Goto ST
  391.  
  392.  
  393. //RACING
  394. Lbl 57
  395. ClrHome
  396. Disp "Choose Class:","","1-Stock 2-Street","3-Pro"
  397. Input D
  398. If D>3 and D<0
  399. Goto 57
  400. iPart(D)->D
  401. clrHome
  402. Disp "G
  403. randInt(1,6)->LCAR2(1
  404. If LCAR2(1)=1:260->LCAR2(2
  405. If LCAR2(1)=2:320->LCAR2(2
  406. If LCAR2(1)=3:240->LCAR2(2
  407. If LCAR2(1)=4:235->LCAR2(2
  408. If LCAR2(1)=5:265->LCAR2(2
  409. If LCAR2(1)=6:270->LCAR2(2
  410. OutPut(1,2,"E
  411. 1+(randInt(-1,2)+D)/10->LCAR2(3
  412. If D<3:1->LCAR2(4
  413. If D=3:1.1->LCAR2(4
  414. OutPut(1.3,"n
  415. If D=1:1->LCAR2(6
  416. If D>1:1.1->LCAR2(6
  417. If D>3:1->LCAR2(6
  418. If D=3:1.1->LCAR2(6
  419. OutPut(1,4,"e
  420. If D=1:0->LCAR2(7
  421. If D>1:30->LCAR2(7
  422. If D<3:1->LCAR2(7
  423. If D=3:1.1->LCAR2(8
  424. OutPut(1,5,"r
  425. If D=1
  426. 0->LCAR2(9
  427. If D=2
  428. 75->LCAR(9
  429. If D=3
  430. 200->LCAR2(9
  431. If D=1:1->LCAR2(10
  432. If D>1:1.1->LCAR2(10
  433. OutPut(1,6,"a
  434. .9->LCAR2(11
  435. .95->LCAR2(12
  436. OutPut(1,7,"t
  437. If D=1:0->LCAR2(13
  438. If D>1:0.7->LCAR2(13
  439. randInt(10,20)/100->LCAR2(14
  440. OutPut(1,8,"i
  441. 1->LCAR2(15
  442. If LCAR2(3)>1.2
  443. randInt(0,35)-LCAR2(16
  444. OutPut(1,9,"n
  445. 0->LCAR2(17
  446. randInt(0,10)D->LCAR2(18
  447. OutPut(1,10,"g
  448. randInt(0,3000)D->LCAR2(19
  449. randInt(2000,2500)-400*D->LCAR2(20
  450. goto 0
  451. Lbl ST
  452. Disp "Buy? Yes-1 No-2
  453. Input QP
  454. If QP=1 and LCAR(L)<M and LCAR(19)>=N
  455. Then
  456. M->LCAR(L
  457. LCAR(19)-N->LCAR(19
  458. Goto 99
  459. Else
  460. If LCAR(19)<N
  461. Goto 53
  462. If LCAR(L)>=M and QP=1
  463. Goto 52
  464. Goto 99
  465. End
  466. Lbl 52
  467. ClrHome
  468. Disp "You have better","Parts installed"
  469. Pause
  470. Goto 99
  471. Lbl 53
  472. ClrHome
  473. Disp "Not Enough money"
  474. Pause
  475. Goto 99
  476.  
  477. //Racing
  478. Lbl 0
  479. 1->L3(1
  480. Lbl 31
  481. FnOff
  482. -88->QP
  483. Menu("Other Cars From-","This Calc",34,"Other Calc",33
  484. Lbl 33
  485. Menu("Race On","This Calc.",X,"Other Calc.",Z
  486. Lbl Z
  487. ClrHome
  488. LCAR->LCAR2
  489. Disp "After Race Press","Enter"
  490. 8.76->I
  491. Stop
  492. Lbl X
  493. Disp "Connect Other","Calc Now"
  494. Pause
  495. 0->A
  496. GetCalc(LCAR2
  497. While A<50
  498. A+1->A
  499. End
  500. 1.3->L3(1
  501. Lbl 34
  502. 0->S
  503. LCAR(1)->A
  504. LCAR(2)->B
  505. LCAR(3)->C
  506. LCAR(4)->D
  507. LCAR(5)->E
  508. LCAR(6)->F
  509. LCAR(7)->G
  510. LCAR(8)->H
  511. LCAR(9)->I
  512. LCAR(10)->J
  513. LCAR(11)->K
  514. LCAR(12)->L
  515. LCAR(13)->M
  516. LCAR(14)->N
  517. LCAR(15)->O
  518. LCAR(16)->P
  519. LCAR(17)->Q
  520. BCDEFHJKL+(5P)+G+I+Q->W
  521. LCAR2(1)->R
  522. LCAR2(2)->B
  523. LCAR2(3)->C
  524. LCAR2(4)->D
  525. LCAR2(5)->E
  526. LCAR2(6)->F
  527. LCAR2(7)->G
  528. LCAR2(8)->H
  529. LCAR2(9)->I
  530. LCAR2(10)->J
  531. LCAR2(11)->M
  532. LCAR2(12)->N
  533. LCAR2(13)->O
  534. LCAR2(14)->P
  535. LCAR2(15)->Q
  536. BCDEFHJKL+(5P)+G+I+Q->Z
  537. Menu("Which Track","1/4 Miles",QR,"1/8 Mile",ET
  538. Lbl ET
  539. 2->O
  540. Goto 28
  541. Lbl QR
  542. 1->O
  543. Lbl 28
  544. ClrHome
  545. Disp "How Much are you","Betting?
  546. Output(8,1,"For slip type S
  547. OutPut(6,1,"Max Bet
  548. If LCAR(19)>LCAR2(19
  549. Then
  550. OutPut(6,10,LCAR2(19
  551. else
  552. OutPut(6,10,LCAR(19
  553. End
  554. Input V
  555. ClrHome
  556. If V=-88
  557. Goto 45
  558. If V<0 or V>LCAR2(19) or V>LCAR19
  559. Goto 28
  560. round(V,2)->V
  561. Lbl 45
  562. If A<= 6 and LCAR(17)=0
  563. Then
  564. If A=1: Disp "Supra
  565. Else
  566. disp "Racer
  567. Output(1,7,A
  568. End
  569. round(W,1)->W
  570. OutPut(2,1,"HP
  571. OutPut(2,4,W
  572. OutPut(7,1,"SC"
  573. OutPut(8,1,(LCAR(18)
  574. Pause
  575. clrHome
  576. OutPut(2,7,"vs.
  577. Pause
  578. clrHome
  579. If R<= 6 and LCAR2(17)=0
  580. then
  581. If R=1: Disp "Supra
  582. Else
  583. Disp "Racer
  584. OutPut(1,7,R
  585. End
  586. round(Z,1)->Z
  587. OutPut(2,1,"HP
  588. OutPut(2,4,Z
  589. OutPut(7,1,"SC
  590. OutPut(8,1,LCAR2(18
  591. Pause
  592. Lbl 29
  593. ClrDraw
  594. AxesOff
  595. ZDecimal
  596. Horizontal -:Horizontal .6:Horizontal -.6
  597. Line(-4.7,.6,-4.7,-.6
  598. Line(4.7,.6,4.7,-.6
  599. Line(4,.6,4,-.6
  600. If A<=6 and LCAR(17)=0
  601. Then If A=1:"Text 3,2,"Supra
  602. Else
  603. Text(3,2,:1: Racer
  604. Text(3,29,A
  605. End
  606. If R<=6 and LCAR2(17)=0
  607. Then
  608. If R=1:Text(50,2,"2: Supra
  609. Else
  610. Text(50,2,"2: Racer
  611. Text 50,29,R
  612. End
  613. If O=2
  614. 2->L
  615. If O=1
  616. 1->L
  617. -4.6->P
  618. P->U
  619. Pt-On(P,.3,L
  620. Pt-On(U,-.3,L
  621. (2000-LCAR(20))/15000->H
  622. (2000-LCAR2(20)/15000->I
  623. 2.5√(LCAR(18)->J
  624. 2.5√(LCAR2(18)->K
  625. 0->D
  626. D->E
  627. .6->N
  628. (((900√((W+J)/750))(1-(LCAR(14)-LCAR(13)))^Lcar(15)^-1->F
  629. (((900√((Z+K)/750))(1-LCAR2(14)-LCAR2(13)))^(LCAR2(15)^-1->G
  630. Pause
  631. Goto 87
  632. Lbl 36
  633. Pause
  634. 1+LCAR(18)->LCAR(18
  635. 1+LCAR2(18)->LCAR2(18
  636. Lbl 30
  637. If P>U and V!=-88
  638. Then
  639. LCAR(19)+V->LCAR(19
  640. LCAR2(19)-V->LCAR2(19
  641. End
  642. If U>P and V!=-88
  643. then LCAR2(19)+V->LCAR2(19
  644. LCAR(19)-V->LCAR19
  645. End
  646. If P>U and V=-88
  647. Then
  648. 2.1*Z+LCAR(19)+LCAR2(19)->LCAR(19
  649. If L3(1)!=1.3
  650. ClrList LCAR2
  651. LCAR->LCAR2
  652. 5->L
  653. End
  654. If U>P and V=-88
  655. Then
  656. 2.1*W+(LCAR2(19)+LCAR(19)->LCAR2(19
  657. 1.7->T
  658. End
  659. 1->O
  660. If LCAR(15)>.8
  661. LCAR(15)-.015->LCAR(15
  662. If LCAR2(15)>.8
  663. LCAR2(15)-.015->LCAR2(15
  664. ClrHome
  665. If P>U
  666. OutPut(1,1,R
  667. If U>P
  668. 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
  669. Lvl V1
  670. OutPut(1,1,R
  671. randInt(500,600)->R:OutPut(2,1,"RT: 0.":OutPut(2,7,R
  672. randInt(100,276)->E
  673. randInt(100,276)->M
  674. If X>100 and X<150: Then
  675. OutPut(3,1,"1/8 mi: 9.":(OutPut(3,10,E
  676. OutPut(4,1,"1.4 Mi: 15.":OutPut(4,11,M:Pause
  677. randInt(130,660)->S
  678. OutPut(5,1,"MPH 188."
  679. OutPut(5,10,S
  680. OutPut(6,1,"You Win: ":Pause :"If V=-88:Then:Goto ZY:Else Goto ZZ:End
  681. Lbl ZY
  682. OutPut(7,1,"A Pink Slip!"
  683. Lbl ZZ
  684. OutPut(7,3,V
  685. If P=U
  686. Then
  687. rand+P->P
  688. rand+U->U
  689. Goto 30
  690. end
  691. Pause
  692. ClrDraw
  693. clrHome
  694. AxesOn
  695. FnOn
  696. If L3(1)=1.3
  697. Stop
  698. Goto 99
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement