API tools faq
paste
Advertisement
Guest User

GTALIB

a guest
Apr 17th, 2015
268
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.59 KB | None | 0 0
raw download clone embed print report
  1. ClrDraw
  2. Horizontal 0
  3. Horizontal 62
  4. Vertical 0
  5. Vertical 94
  6. For(T,1,5
  7. Text(10,1,"MADIAN CORP
  8. End
  9. For(T,1,7
  10. Text(20,35,"PRESENTE
  11. End
  12. For(T,1,37
  13. Text(30,70,"GTA
  14. End
  15. For(T,1,50
  16. Text(40,10,"LIBERTY CITY STORY
  17. Pause
  18. ClrDraw
  19. ClrHome
  20. Menu("LIBERTY CITY STORY","NEW GAME",1,"LOAD GAME",2,"INSTRUCTIONS",3,"QUITTER",4
  21. Lbl 4
  22. Stop
  23. Lbl 3
  24. Output(1,1,"DEPLACE TOI ACCOMPLI DES MISSIONS POUR DEVENIR LE NOUVEAU BOSS DE LA MAFIA
  25. Pause
  26. ClrHome
  27. prgmGTALCS
  28. Lbl 1
  29. Output(4,4,"ATTENTION!
  30. For(T,0,300
  31. End
  32. ClrHome
  33. Output(4,4,"CE JEU EST
  34. Output(5,4,"EXAGERE"
  35. For(T,0,600
  36. End
  37. ClrHome
  38. Output(3,4,"NE PAS TENTER
  39. Output(4,4,"DE REPRODUIRE
  40. Output(5,4,"SON ACTION
  41. Output(6,4,"EN VILLE
  42. For(T,0,1000
  43. End
  44. ClrHome
  45. ClrList L6
  46. 27->dim(L6
  47. 100->L6(1
  48. 25->L6(2
  49. 1->L6(3
  50. 6->L6(4
  51. ClrDraw
  52. Goto 2
  53. Lbl 2
  54. Menu("JEU","VOIR STATS",5,"BANQUE",6,"MEDECIN",13,"DEALER",14,"ARMUERIE",23,"MISSIONS",60,"TUER INOCENT",70
  55. Lbl 73
  56. Disp "TONY:C LA IL","EST OU LE DEALER","MINCE LES","FORRELIS SONT","LA BON","J ATTAQUE
  57. 5->L6(26
  58. 400->L6(23
  59. 9->L6(24
  60. 3->L6(25
  61. Lbl 72
  62. Disp "FORELLIS:","LES MAINS EN","L AIR C EST UN","HOLD UP","TONY:LES MAINS","EN L AIR JE VAIS","TE TUER
  63. Pause
  64. ClrHome
  65. 300->L6(23
  66. 9->L6(24
  67. 4->L6(25
  68. 4->L6(26
  69. Goto 46
  70. Lbl 71
  71. Disp "TONY:POURQUOI","TU VEUX PLUS","TAFFER","DEALER:","J AI PA A TE","REPONDRE","BOUFFON
  72. Pause
  73. ClrHome
  74. Disp "TONY:","TU ME LAISSE","PAS LE CHOIX","ALLO SALVATORE","IL VEUX PLUS","BOSSER CE CON","SALVATORE:TUE LE
  75. Pause
  76. ClrHome
  77. 100->L6(23
  78. 6->L6(24
  79. 1->L6(25
  80. 2->L6(26
  81. Goto 46
  82. Lbl 70
  83. 50->L6(23
  84. 4->L6(24
  85. 1->L6(25
  86. Goto 46
  87. Lbl 60
  88. If not(L6(26
  89. Goto 61
  90. If L6(26)=1
  91. Goto 62
  92. If L6(26)=2
  93. Goto 63
  94. If L6(26)=3
  95. Goto 64
  96. If L6(26)=4
  97. Goto 65
  98. If L6(26)=5
  99. Goto 66
  100. If L6(26)=6
  101. Goto 67
  102. Goto 2
  103. Lbl 61
  104. Disp "TONY:HEY","SALVATORE TA","PAS 1 TAF POUR","MOI ?
  105. Pause
  106. ClrHome
  107. Disp "SALVATORE:","OUI MAIS...","TU EST CAPABLE?","BON TUE 1 KEUF","ET REVIENS
  108. Pause
  109. ClrHome
  110. 1->L6(26
  111. Goto 39
  112. Lbl 62
  113. 500+L6(5->L6(5
  114. Disp "SALVATORE:","BON TU PEUX","VOIR MON DEALER","IL NE VEUX","PLUS TAFFER
  115. 1.5->L6(26
  116. Pause
  117. ClrHome
  118. Goto 2
  119. Lbl 63
  120. 1000+L6(5->L6(5
  121. Disp "TONY:TU MA","APPELE?","SALVATORE:OUI","J AI FAIT UNE","ENQUETE ET","C ETAIT LES","FORELLIS
  122. Pause
  123. ClrHome
  124. Disp "LES RESPONSABLES","DU FAITS QUE","MON DEALER NE ","NE TAFFE PLUS","TUE ENS","POUR ME VENGER
  125. Pause
  126. ClrHome
  127. 200->L6(23
  128. 7->L6(24
  129. 2->L6(25
  130. 3->L6(26
  131. Goto 46
  132. Lbl 64
  133. 2500+L6(5->L6(5
  134. Disp "TONY:QU EST CE","QUE JPEUX FAIRE","POUR TOI?","SALVATORE:LES","FORRELIS ONT","PREVU UN CASSE","MASSACRE LES
  135. Pause
  136. ClrHome
  137. 3.5->L6(26
  138. Goto 2
  139. Lbl 65
  140. 5000+L6(5->L6(5
  141. Disp "TONY:YA UN","PROB SALVATORE","ON VEUT ME","BUTTER ICI","SALVATORE:BIEN","SUR ON EST EN","GUERRE DE GANG
  142. Pause
  143. ClrHome
  144. Disp "CONTRE LES","FORRELLIS","AU FAIT TU","PEUX PROTEGER","MON DEALER
  145. Pause
  146. ClrHome
  147. 4.5->L6(26
  148. Goto 2
  149. Lbl 66
  150. 10000+L6(5->L6(5
  151. Disp "TONY:TA","TENTE DE ME","BAISE PAN","BON JVE TUE LE","CHEF FORRELIS
  152. Pause
  153. ClrHome
  154. 6->L6(26
  155. 500->L6(23
  156. 10->L6(24
  157. 5->L6(25
  158. Goto 46
  159. Lbl 67
  160. Disp "JEU FINI
  161. Pause
  162. ClrHome
  163. Stop
  164. Lbl 39
  165. Disp "MERDE LES KEUFS
  166. For(T,0,300
  167. End
  168. ClrHome
  169. Lbl 40
  170. If L6(6)<10
  171. Goto 41
  172. If L6(6)<25
  173. Goto 42
  174. If L6(6)<50
  175. Goto 43
  176. If L6(6)<75
  177. Goto 44
  178. Goto 45
  179. Lbl 41
  180. 100->L6(23
  181. 4->L6(24
  182. 1->L6(25
  183. Goto 46
  184. Lbl 42
  185. 150->L6(23
  186. 5->L6(24
  187. 2->L6(25
  188. Goto 46
  189. Lbl 43
  190. 300->L6(23
  191. 6->L6(24
  192. 3->L6(25
  193. Goto 46
  194. Lbl 44
  195. 350->L6(23
  196. 7->L6(24
  197. 4->L6(25
  198. Goto 46
  199. Lbl 45
  200. 500->L6(23
  201. 8->L6(24
  202. 5->L6(25
  203. Goto 46
  204. Lbl 46
  205. Disp "TA",L6(1),"ET L AUTRE",L6(23
  206. For(T,0,300
  207. End
  208. ClrHome
  209. Menu("COMBAT","ATTAQUER",47,"COURIR",48,"SE RENDRE",49,"COCTAIL MOLOTOF",55,"GRENADE",56,"EXPLOSIF",57,"ROQUETTE",58
  210. Lbl 55
  211. If L6(14)=0
  212. Goto 50
  213. L6(14)-1->L6(14
  214. randInt(1,6)->L6(21
  215. 5L6(21)->L6(19
  216. Goto 90
  217. Lbl 56
  218. If not(L6(15
  219. Goto 50
  220. L6(15)-1->L6(15
  221. randInt(1,6->L6(21
  222. 10L6(21->L6(19
  223. Goto 90
  224. Lbl 57
  225. If not(L6(16
  226. Goto 50
  227. L6(16)-1->L6(16
  228. randInt(1,6->L6(21
  229. 15L6(21->L6(19
  230. Goto 90
  231. Lbl 58
  232. If not(L6(17
  233. Goto 50
  234. L6(17)-1->L6(17
  235. randInt(1,6->L6(21
  236. 20L6(21->L6(19
  237. Goto 90
  238. Lbl 49
  239. .5L6(5->L6(5
  240. 1->L6(3
  241. Disp "EN TAULE
  242. Pause
  243. ClrHome
  244. Goto 2
  245. Lbl 94
  246. Disp "PLUS DE MUNITIONS
  247. For(T,0,800
  248. End
  249. ClrHome
  250. Goto 50
  251. Lbl 48
  252. randInt(1,5->L6(21
  253. If 1=L6(21
  254. Goto 2
  255. Disp "ILS T'ONT","RATRAPPE
  256. For(T,0,400
  257. End
  258. ClrHome
  259. Goto 50
  260. Lbl 47
  261. If not(L6(2
  262. Goto 94
  263. L6(2)-1->L6(2
  264. randInt(1,12->L6(21
  265. If L6(21)>L6(4
  266. Goto 80
  267. Lbl 90
  268. 5(L6(4)-L6(21)+L6(3->L6(19)
  269. Lbl 90
  270. Disp "TOUCHE"
  271. For(T,0,300
  272. End
  273. ClrHome
  274. Disp "TU AS FAIT",L6(19),"DEGATS
  275. For(T,0,800
  276. End
  277. ClrHome
  278. L6(23)-L6(19->L6(23
  279. If L6(23)<=0
  280. Goto 93
  281. Goto 50
  282. Lbl 80
  283. Disp "RATE
  284. For(T,0,500
  285. End
  286. ClrHome
  287. Lbl 50
  288. randInt(1,12->L6(21
  289. If L6(21)>L6(24
  290. Goto 81
  291. Disp "TOUCHE
  292. For(T,0,300
  293. End
  294. ClrHome
  295. 5(L6(24)-L6(21)+L6(25->L6(19
  296. Disp "IL TA FAIT",L6(19),"DEGATS
  297. For(T,0,800
  298. End
  299. ClrHome
  300. L6(1)-L6(19->L6(1
  301. Goto 51
  302. Lbl 81
  303. Disp "RATE
  304. For(T,0,500
  305. End
  306. ClrHome
  307. Lbl 51
  308. If L6(1)<=0
  309. Goto A
  310. Goto 46
  311. Lbl A
  312. Disp "GAME OVER"
  313. For(T,0,400
  314. End
  315. ClrHome
  316. Goto 1
  317. Lbl 93
  318. Output(4,1,"TA TUE L ENNEMI
  319. Pause
  320. ClrHome
  321. L6(5)+1000->L6(5
  322. L6(6)+1->L6(6
  323. L6(7)+1->L6(7
  324. If L6(7)<6
  325. Goto 2
  326. If L6(7)<11 and L6(7)>5
  327. 7->L6(4)
  328. If L6(7)<16 and L6(7)>10
  329. 8->L6(4)
  330. If L6(7)<21 and L6(7)>15
  331. 9->L6(4)
  332. If L6(7)<26 and L6(7)>20
  333. 10->L6(4)
  334. If L6(7)<31 and L6(7)>35
  335. 11->L6(4)
  336. If L6(7)>35
  337. 12->L6(4
  338. Goto 2
  339. Lbl 23
  340. Menu("ACHETER","ARME",24,"AUTRES",25,"RETOUR",2
  341. Lbl 25
  342. Menu("AUTRES","COCTAIL MOLOTOF",33,"GRENADE",34,"EXPLOSIF",35,"ROQUETTE",36,"MUNITIONS",37,"GILLET",38
  343. Lbl 33
  344. 7->L6(19)
  345. Goto theta
  346. Lbl 34
  347. 8->L6(19)
  348. Goto theta
  349. Lbl 35
  350. 9->L6(19)
  351. Goto theta
  352. Lbl 36
  353. 10->L6(19)
  354. Goto theta
  355. Lbl 37
  356. 11->L6(19)
  357. Goto theta
  358. Lbl 38
  359. If L6(5)<5000
  360. Goto 2
  361. L6(5)-5000->L6(5
  362. 25+L6(1->L6(1
  363. Output(4,1,"GILLET ACHETE
  364. Pause
  365. ClrHome
  366. Goto 2
  367. Lbl 24
  368. Menu("ARME","DEAGLE",26,"PIUPIU",27,"FAMAS",28,"KALACHNIKOF",29,"M4",30,"MACHINE GUN",31,"RETOUR",29
  369. Lbl 26
  370. If L6(5)<5000
  371. Goto 2
  372. L6(5)-5000->L6(5
  373. 2->L6(3
  374. Goto 32
  375. Lbl 27
  376. If L6(5)<10000
  377. Goto 2
  378. L6(5)-10000->L6(5
  379. 3->L6(3
  380. Goto 32
  381. Lbl 28
  382. If L6(5)<50000
  383. Goto 2
  384. L6(5)-50000->L6(5
  385. 4->L6(3
  386. Goto 32
  387. Lbl 29
  388. If L6(5)<100000
  389. Goto 2
  390. L6(5)-100000->L6(5
  391. 5->L6(3
  392. Goto 32
  393. Lbl 30
  394. If L6(5)<500000
  395. Goto 2
  396. L6(5)-500000->L6(5
  397. 6->L6(3
  398. Goto 32
  399. Lbl 31
  400. If L6(5)<1000000
  401. Goto 2
  402. L6(5)-1000000->L6(5
  403. 7->L6(3
  404. Goto 32
  405. Lbl 32
  406. Output(4,1,"ARME ACHETE"
  407. Pause
  408. ClrHome
  409. Goto theta
  410. Lbl 5
  411. ClrDraw
  412. Output(1,1,"ARGENT:
  413. Output(1,8,L6(5
  414. Output(2,1,"ARME:
  415. If L6(3)=1
  416. Output(2,6,"GLOCK
  417. If L6(3)=2
  418. Output(2,6,"DEAGLE
  419. If L6(3)=3
  420. Output(2,6,"PIU PIU
  421. If L6(3)=4
  422. Output(2,6,"FAMAS
  423. If L6(3)=5
  424. Output(2,6,"KALACHNIKOF
  425. If L6(3)=6
  426. Output(2,6,"M4
  427. If L6(3)=7
  428. Output(2,6,"MACHINE GUN
  429. Output(3,1,"MUNITIONS:
  430. Output(3,11,L6(2
  431. Output(4,1,"VIE:
  432. Output(4,5,L6(1
  433. Output(5,1,"HABILETE:
  434. Output(5,10,L6(4
  435. Output(6,1,"REPUTATION:
  436. Output(6,12,L6(6
  437. Output(7,1,"MEURTRES:
  438. Output(7,10,L6(7
  439. Pause
  440. ClrHome
  441. Output(1,1,"COCAINE:
  442. Output(1,9,L6(8
  443. Output(2,1,"HEROINE:
  444. Output(2,9,L6(9
  445. Output(3,1,"HASHISH:
  446. Output(3,9,L6(10
  447. Output(4,1,"METANFETAMINE:
  448. Output(4,15,L6(11
  449. Output(5,1,"MAJIJUANA:
  450. Output(5,11,L6(12
  451. Output(6,1,"OPIUM:
  452. Output(6,7,L6(13
  453. Pause
  454. ClrHome
  455. Output(1,1,"COCTAIL MOLOTOF:
  456. Output(2,1,L6(14
  457. Output(3,1,"GRENADE:
  458. Output(3,9,L6(15
  459. Output(4,1,"EXPLOSIF:
  460. Output(4,10,L6(16
  461. Output(5,1,"ROQUETTE:
  462. Output(5,10,L6(17
  463. Pause
  464. ClrHome
  465. Goto 2
  466. Lbl 6
  467. If 3.5=L6(26
  468. Goto 72
  469. Disp "HAUT LES MAINS","C EST UN HOLD UP
  470. For(T,0,800
  471. End
  472. ClrHome
  473. Menu("POINTER ARME SUR","PRENDRE OTAGE",7,"DIRECTEUR",8,"GUICHETIER",9,"CLIENTE",10,"CLIENT",11,"FUITE",2
  474. Lbl 7
  475. Disp "C EST BON VOILA","L ARGENT"
  476. Pause
  477. ClrHome
  478. 5->L6(18
  479. Goto 12
  480. Lbl 8
  481. Disp "PAS DE CONNERIE","C'EST BON
  482. Pause
  483. ClrHome
  484. 4->L6(18
  485. Goto 12
  486. Lbl 9
  487. Disp "C'EST BON...","ON OUVRE"
  488. Pause
  489. ClrHome
  490. 3->L6(18
  491. Goto 12
  492. Lbl 10
  493. Disp "TIRE PAS"
  494. Pause
  495. ClrHome
  496. 2->L6(18
  497. Goto 12
  498. Lbl 11
  499. Disp "POLICE RENDEZ","VOUS"
  500. Pause
  501. ClrHome
  502. 1->L6(18
  503. Goto 12
  504. Lbl 12
  505. randInt(500,1000->L6(19
  506. L6(5)+L6(19->L6(5
  507. Disp "TU EMPORTE",L6(19),"EUROS
  508. Pause
  509. ClrHome
  510. 1+L6(6->L6(6
  511. randInt(1,6->L6(19
  512. If L6(19)>L6(18
  513. Goto 39
  514. Goto 2
  515. Lbl 13
  516. If L6(5)<1000
  517. Goto 2
  518. L6(5)-1000->L6(5
  519. 10(L6(6)+L6(7->L6(18
  520. Disp "VOILA T SOIGNE"
  521. Pause
  522. ClrHome
  523. If L6(18)>L6(1
  524. L6(18)->L6(1
  525. If L6(18)<L6(1
  526. 1000+L6(5->L6(5
  527. Goto 2
  528. Lbl 14
  529. If 4.5=L6(26
  530. Goto 73
  531. If 1.5=L6(26
  532. Goto 71
  533. Menu("DROGUE","ACHETER",15,"VENDRE",16,"RETOUR",2
  534. Lbl 16
  535. L6(5)+200L6(8->L6(5
  536. L6(5)+1000L6(9->L6(5
  537. L6(5)+2000L6(10->L6(5
  538. L6(5)+10000L6(11->L6(5
  539. L6(5)+20000L6(12->L6(5
  540. L6(5)+100000L6(13->L6(5
  541. 0->L6(8
  542. 0->L6(9
  543. 0->L6(10
  544. 0->L6(11
  545. 0->L6(12
  546. 0->L6(13
  547. Disp "CAM VENDU
  548. Pause
  549. ClrHome
  550. randInt(1,2->L6(27
  551. If 1=L6(27
  552. Goto 39
  553. Goto 2
  554. Lbl 15
  555. Menu("ACHETER","COCAINE",17,"HEROINE",18,"HASHIS",19,"METANFETAMINE",20,"MAJIJUANA",21,"OPIUM",22
  556. Lbl 17
  557. 1->L6(19)
  558. Goto theta
  559. Lbl 18
  560. 2->L6(19)
  561. Goto theta
  562. Lbl 19
  563. 3->L6(19)
  564. Goto theta
  565. Lbl 20
  566. 4->L6(19)
  567. Goto theta
  568. Lbl 21
  569. 5->L6(19)
  570. Goto theta
  571. Lbl 22
  572. 6->L6(19)
  573. Goto theta
  574. Lbl theta
  575. If L6(19)=1
  576. 100->L6(27
  577. If L6(19)=2
  578. 500->L6(27
  579. If L6(19)=3
  580. 1000->L6(27
  581. If L6(19)=4
  582. 5000->L6(27
  583. If L6(19)=5
  584. 10000->L6(27
  585. If L6(19)=6
  586. 50000->L6(27
  587. If L6(19)=7
  588. 5000->L6(27
  589. If L6(19)=8
  590. 10000->L6(27
  591. If L6(19)=9
  592. 25000->L6(27
  593. If L6(19)=10
  594. 50000->L6(27
  595. If L6(19)=11
  596. 10->L6(27)
  597. ClrHome
  598. Output(8,1,"ACHAT MAX:
  599. Output(8,11,L6(5)/L6(27
  600. Output(4,1,"PRIX:
  601. Output(4,6,L6(27)
  602. Input "TU EN VEUX:",R
  603. ClrHome
  604. R*L6(27->L6(27
  605. If L6(27)>L6(5
  606. Goto 2
  607. L6(5)-L6(27)->L6(5
  608. If 1=L6(19
  609. L6(8)+R->L6(8
  610. If 2=L6(19
  611. L6(9)+R->L6(9
  612. If L6(19)=3
  613. L6(10)+R->L6(10
  614. If L6(19)=4
  615. L6(11)+R->L6(11
  616. If L6(19)=5
  617. L6(12)+R->L6(12
  618. If L6(19)=6
  619. L6(13)+R->L6(13
  620. If L6(19)=7
  621. L6(14)+R->L6(14
  622. If L6(19)=8
  623. L6(15)+R->L6(15
  624. If L6(19)=9
  625. L6(16)+R->L6(16
  626. If L6(19)=10
  627. L6(17)+R->L6(17
  628. If L6(19)=11
  629. L6(2)+R->L6(2
  630. ClrHome
  631. Output(4,1,"ACHAT EFFECTUE
  632. Pause
  633. ClrHome
  634. Goto 2
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!