%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1175
File Name:BUY
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 1:\Cls:1000\->C:5000\->D:10000\->E:50\->F:\If Z=0:\Then \Int 5\Ran#+1\->B:\IfEnd:B=1\=>\Text 1,1,"He! gars t'as du ble!":B=2\=>\Text 1,1,"Moin cher que gratuit!":B=3\=>\Text 1,1,"He! touche avec tes yeux!":B=4\=>\Text 1,1,"Voit ce que tonton a achete!":B=5\=>\Text 1,1,"\Doucement! \Doucement!":1\->Z:\Text 7,1,"Tunes:":\Text 7,30,\Mat G[1,6]:\Text 14,1,"Acheter:":\If \Mat G[1,11]\>=1:\Then \Text 21,1,"[F1]:Machine gun \->":\IfEnd:\If \Mat G[1,11]\>=2:\Then \Text 28,1,"[F2]:Bazooka       \->":\IfEnd:\If \Mat G[1,11]\>=3:\Then \Text 35,1,"[F3]:Sniper        \->":\IfEnd:\Text 42,1,"[F4]:Vie            \->":\Text 49,1,"[EXIT]:Quit":\Mat G[1,11]\>=1\=>\Text 21,90,C:\Mat G[1,11]\>=2\=>\Text 28,90,D:\Mat G[1,11]\>=3\=>\Text 35,90,E:\Text 42,90,F:0\->A:\While A=0:\Getkey\->A:A=79\ Or A=69\ Or A=59\ Or A=49\ Or A=47\=>\Break
:A\<>79\ Or A\<>69\ Or A\<>59\ Or A\<>49\ Or A\<>47\=>0\->A:\WhileEnd:A=47\=>\Return:\If A=79\ And \Mat G[1,6]\>=C:\Then 1\->\Mat G[1,7]:\Mat G[1,6]-C\->\Mat G[1,6]:\Goto1:\IfEnd:\If A=69\ And \Mat G[1,6]\>=D\ And \Mat G[1,11]\>=2:\Then 2\->\Mat G[1,7]:\Mat G[1,6]-D\->\Mat G[1,6]:\Goto1:\IfEnd:\If A=59\ And \Mat G[1,6]\>=E\ And \Mat G[1,11]\>=3:\Then 3\->\Mat G[1,7]:\Mat G[1,6]-E\->\Mat G[1,6]:\Goto1:\IfEnd:\If A=49\ And \Mat G[1,6]\>=F:\Then \Mat G[1,6]-F\->\Mat G[1,6]:\Mat G[1,10]+10\->\Mat G[1,10]:\Goto1:\IfEnd:\If (A=79\ And \Mat G[1,6]<C)\ Or (A=69\ And \Mat G[1,6]<D\ Or A=69\ And \Mat G[1,11]<2)\ Or (A=59\ And \Mat G[1,6]<E\ Or A=59\ And \Mat G[1,11]<3)\ Or (A=49\ And \Mat G[1,6]<F):\Then \Text 56,1,"No money\ Or no access":\For 1\->A \To 200:\Next:\IfEnd:\Goto1
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:536
File Name:FIN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls:{1,14}\->\Dim \Mat G:\Text 1,48,"You dead":\F-Line 45,17,59,17:\F-Line 45,18,60,18:\F-Line 45,18,55,28:\F-Line 59,18,69,28:\F-Line 60,18,70,28:\F-Line 55,28,70,28:\F-Line 55,28,55,39:\F-Line 70,28,70,39:\F-Line 69,28,69,39:\F-Line 57,41,68,41:\PlotOn 56,40:\PlotOn 68,40:\PlotOn 69,40:\F-Line 62,41,62,49:\F-Line 63,41,63,49:\F-Line 59,45,66,45:\F-Line 59,46,66,46:\Text 27,57,"RIP":\For 0\->A \To 799:\Next:\Graph Y>.1:\Cls:\Text 1,1,"Concepteur: Th":\Text 7,1,"\Prog rammeur: Th":\Text 14,1,"Testeur: Th AND J.M":\Text 21,1,"Idee \originale: Th":\Text 28,1,"G T A.TM":\Text 35,1,"Th \log itic":\Text 42,1,"C A S I O":\Text 49,1,"Copyright (2004-2005)":\For 1\->A \To 9999:\PlotOn (\Int 127\Ran#+1),(\Int 63\Ran#+1):\Next:\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:6274
File Name:GO TO
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls:0\->A~R:0\->T~Z:119\->E:40\->F:0\->\Mat G[1,9]:0\->\Mat G[1,12]:0\->\Mat G[1,13]:0\->\Mat G[1,14]:S=1\=>0\->S:S=2\=>10\->S:\Text 10,35,"[F1]:Heaven":\Text 20,35,"[F2]:Party":\Text 30,35,"[F3]:Street":\Text 40,35,"[ESC]:Quit":0\->A:\While A=0:\Getkey\->A:A=79\ Or A=69\ Or A=59\ Or A=47\=>\Break
:A\<>79\ Or A\<>69\ Or A\<>59\ Or A\<>47\=>0\->A:\WhileEnd:\Cls:A=47\=>\Return:\Int 3\Ran#+1\->B:\If A=79:\Then \Text 1,1,"Rasta:":\If B=1:\Then \Text 7,1,"Cool gars!":\Text 14,1,"Tiens,goute un peu ca!":\Text 21,1,"C'est bon pour ta tete."\Disp\IfEnd:\If B=2:\Then \Text 7,1,"He! pas cool,tu fais":\Text 14,1,"de l'ombre a mes yeps.":\Text 21,1,"Ils vont pas pousser!"\Disp\IfEnd:\If B=3:\Then \Text 7,1,"RRRRR....":\Text 14,1,"Peuh!":\Text 21,1,"\Degage!"\Disp\IfEnd:\IfEnd:\If A=69:\Then \Text 1,1,"Teufeur:":\If B=1:\Then \Text 7,1,"C'est chaud.":\Text 14,1,"Je suis arrashe,":\Text 21,1,"T'es qui toi?"\Disp\IfEnd:\If B=2:\Then \Text 7,1,"He! tu fais quoi?":\Text 14,1,"Touche pas au son.":\Text 21,1,"Casses-toi!"\Disp\IfEnd:\If B=3:\Then \Text 7,1,"Tu crois que":\Text 14,1,"C'est la fete pour toi!":\Text 21,1,"\Degage!"\Disp\IfEnd:\IfEnd:\If A=59:\Then \Text 1,1,"Clodo:":\If B=1:\Then \Text 7,1,"Petit gars!":\Text 14,1,"T'aurais pas":\Text 21,1,"Un petit dollard."\Disp\IfEnd:\If B=2:\Then \Text 7,1,"He! c'est chez moi,":\Text 14,1,"ne marche pas sur":\Text 21,1,"mon toncar."\Disp\IfEnd:\If B=3:\Then \Text 7,1,"Je vais te planter":\Text 14,1,"petit con!"\Disp\IfEnd:\IfEnd:\Lbl 1:\Cls:0\->A:\ClrText:"       *CHOIX*     ":"[1]:Massacrer":"[2]:S'arrasher":?\->C:\If (C\<>1\ And C\<>2):\Then \Goto1:\IfEnd:\If C=2:\Then \ClrText:\Return:\IfEnd:\Cls:\ClrText:\If C=1:\Then \Mat G[1,11]=1\=>\Int 100\Ran#\->D:\Mat G[1,11]=2\=>\Int 100\Ran#+10\->D:\Mat G[1,11]=3\=>\Int 100\Ran#+20\->D:\Mat G[1,11]=4\=>\Int 100\Ran#+30\->D:\Text 1,1,"T'as depouille le cadavre":\If A=79:\Then (\Mat G[1,1]+\Int (D\slash2))\->\Mat G[1,1]:(\Mat G[1,2]+\Int (D\slash2))\->\Mat G[1,2]:\Text 7,1,"Herbe:":\Text 7,25,(D\slash2):\Text 14,1,"Shit:":\Text 14,25,(D\slash2):\IfEnd:\If A=69:\Then (\Mat G[1,3]+\Int (D\slash2))\->\Mat G[1,3]:(\Mat G[1,4]+\Int (D\slash2))\->\Mat G[1,4]:\Text 7,1,"Coco:":\Text 7,25,(D\slash2):\Text 14,1,"Acid:":\Text 14,25,(D\slash2):\IfEnd:\If A=59:\Then (\Mat G[1,5]+D)\->\Mat G[1,5]:\Text 7,1,"Hero:":\Text 7,25,D:\IfEnd:\Text 50,1,""\Disp\IfEnd:\Int 2\Ran#\->A:\Mat G[1,11]=4\=>1\->A:A=0\=>\Return:\Mat G[1,11]=1\=>\Int 3\Ran#+1\->B:\Mat G[1,11]=2\=>\Int 3\Ran#+1\->B:\Mat G[1,11]=3\=>\Int 2\Ran#+2\->B:\Mat G[1,11]=4\=>3\->B:\Cls:\Text 29,25,"! Merde les flics !"\DispB=1\=>1\->\Mat G[1,12]:B=2\=>1\->\Mat G[1,12]:B=2\=>1\->\Mat G[1,13]:B=3\=>1\->\Mat G[1,12]:B=3\=>1\->\Mat G[1,13]:B=3\=>1\->\Mat G[1,14]:\Lbl 2:(\Mat G[1,12]=0\ And \Mat G[1,13]=0\ And \Mat G[1,14]=0)\=>\Return:\Mat G[1,10]\<=0\=>\Prog "FIN":\Cls:\Horizontal 10:\Text 58,1,"Vie:":\F-Line E,F,E+2,F:\F-Line E+2,F,E+3,F-1:\F-Line E+3,F-1,E+3,F-3:\F-Line E+3,F-3,E+2,F-4:\F-Line E+2,F-4,E,F-4:\F-Line E,F-4,E-1,F-3:\F-Line E-1,F-3,E-1,F-1:\F-Line E-1,F-1,E,F:\PlotOn E,F-1:\PlotOn E+2,F-1:\PlotOn E+1,F-3:\F-Line E-4,F-5,E+6,F-5:\F-Line E-4,F-5,E-4,F-9:\F-Line E+6,F-5,E+6,F-9:\F-Line E-2,F-6,E-2,F-15:\F-Line E-2,F-15,E,F-15:\F-Line E,F-15,E,F-11:\F-Line E,F-11,E+2,F-11:\F-Line E+2,F-11,E+2,F-15:\F-Line E+2,F-15,E+4,F-15:\F-Line E+4,F-15,E+4,F-6:\If \Mat G[1,7]=0:\Then \F-Line E-5,F-9,E-8,F-9:\F-Line E-5,F-9,E-5,F-11:\IfEnd:\If \Mat G[1,7]=1:\Then \F-Line E-5,F-9,E-5,F-11:\F-Line E-5,F-9,E-10,F-9:\F-Line E-8,F-9,E-8,F-10:\IfEnd:\If \Mat G[1,7]=2:\Then \F-Line E-5,F-8,E-11,F-8:\F-Line E-5,F-9,E-11,F-9:\F-Line E-8,F-7,E-8,F-11:\IfEnd:\If \Mat G[1,7]=3:\Then \F-Line E-7,F-8,E-9,F-8:\F-Line E-5,F-9,E-12,F-9:\F-Line E-8,F-9,E-8,F-11:\IfEnd:\StoPict 1:\Lbl 3:\Text 58,20,\Mat G[1,10]:(\Mat G[1,12]=0\ And \Mat G[1,13]=0\ And \Mat G[1,14]=0)\=>\Return:\Mat G[1,10]\<=0\=>\Prog "FIN":\If Z=0:\Then \Mat G[1,12]=1\=>\Int 26\Ran#+14\->G:\Mat G[1,12]=1\=>\Int 35\Ran#+18\->H:\Mat G[1,13]=1\=>\Int 26\Ran#+14\->I:\Mat G[1,13]=1\=>\Int 35\Ran#+18\->J:\Mat G[1,14]=1\=>\Int 26\Ran#+14\->K:\Mat G[1,14]=1\=>\Int 35\Ran#+18\->L:\If B\<>1\ And (H\>=(J-10)\ And H\<=(J+10)\ Or H\>=(L-10)\ And H\<=(L+10)\ Or L\>=(J-10)\ And L\<=(J+10)):\Then \Goto3:\IfEnd:\IfEnd:1\->Z:0\->V:\For 1\->A \To 3:V=2\ And \Mat G[1,12]=1\=>G\->M:V=2\ And \Mat G[1,12]=1\=>H\->N:V=1\ And \Mat G[1,13]=1\=>I\->M:V=1\ And \Mat G[1,13]=1\=>J\->N:V=0\ And \Mat G[1,14]=1\=>K\->M:V=0\ And \Mat G[1,14]=1\=>L\->N:V=2\ And \Mat G[1,12]=0\=>1\->W:V=1\ And \Mat G[1,13]=0\=>1\->W:V=0\ And \Mat G[1,14]=0\=>1\->W:\If W=0:\Then \F-Line M,N,M-2,N:\F-Line M-2,N,M-2,N-2:\F-Line M-3,N,M-3,N+3:\F-Line M-3,N+3,M-5,N+3:\F-Line M-5,N+3,M-5,N-6:\F-Line M-5,N-6,M-7,N-6:\F-Line M-7,N-6,M-7,N-2:\F-Line M-7,N-2,M-9,N-2:\F-Line M-9,N-2,M-9,N-6:\F-Line M-9,N-6,M-11,N-6:\F-Line M-11,N-6,M-11,N+3:\F-Line M-11,N+3,M-13,N+3:\F-Line M-13,N+3,M-13,N:\F-Line M-6,N+3,M-7,N+4:\F-Line M-10,N+3,M-9,N+4:\PlotOn M-7,N+2:\F-Line M-7,N+5,M-9,N+5:\F-Line M-9,N+5,M-10,N+6:\F-Line M-10,N+6,M-10,N+8:\F-Line M-10,N+8,M-9,N+9:\F-Line M-7,N+5,M-6,N+6:\F-Line M-6,N+6,M-6,N+8:\F-Line M-6,N+8,M-7,N+9:\PlotOn M-7,N+8:\PlotOn M-9,N+8:\PlotOn M-8,N+6:\F-Line M-11,N+9,M-5,N+9:\F-Line M-9,N+10,M-7,N+10:\IfEnd:V+1\->V:0\->W:\Next:\If \Mat G[1,9]=0:\Then 1\->\Mat G[1,9]:\Text 58,100,"ACTION":0\->A:\While A=0:\Getkey\->A:A=28\ Or A=37\ Or A=78\=>\Break
:A\<>28\ Or A\<>37\ Or A\<>78\=>0\->A:\WhileEnd:\If A=28:\Then F+5\->F:F>63\=>63\->F:\Goto2:\IfEnd:\If A=37:\Then F-5\->F:F<27\=>27\->F:\Goto2:\IfEnd:\If A=78:\Then \If \Mat G[1,7]=0:\Then ((\Int 25\Ran#)-(\Int 5\Ran#+1))\->P:\F-Line E-8,F-9,1,(F-9+P):\If (\Mat G[1,12]=1\ And (F-9+P)\>=(H-6)\ And (F-9+P)\<=(H+10)):\Then 0\->\Mat G[1,12]:\Mat G[1,8]+1\->\Mat G[1,8]:0\->G:0\->H:\IfEnd:\If (\Mat G[1,13]=1\ And (F-9+P)\>=(J-6)\ And (F-9+P)\<=(J+10)):\Then 0\->\Mat G[1,13]:\Mat G[1,8]+1\->\Mat G[1,8]:0\->I:0\->J:\IfEnd:\If (\Mat G[1,14]=1\ And (F-9+P)\>=(L-6)\ And (F-9+P)\<=(L+10)):\Then 0\->\Mat G[1,14]:\Mat G[1,8]+1\->\Mat G[1,8]:0\->K:0\->L:\IfEnd:\IfEnd:\If \Mat G[1,7]=1:\Then ((\Int 8\Ran#-2)+(\Int 8\Ran#-2)+(\Int 2\Ran#))\->P:((\Int 8\Ran#-2)+(\Int 8\Ran#-2)+(\Int 2\Ran#))\->Q:\F-Line E-10,F-9,1,(F-9+P):\F-Line E-10,F-9,1,(F-9+Q):\If (F-9+P)\>=(H-6)\ And (F-9+P)\<=(H+10)\ Or (F-9+Q)\>=(H-6)\ And (F-9+Q)\<=(H+10)\ And \Mat G[1,12]=1:\Then 0\->\Mat G[1,12]:\Mat G[1,8]+1\->\Mat G[1,8]:0\->G:0\->H:\IfEnd:\If (F-9+P)\>=(J-6)\ And (F-9+P)\<=(J+10)\ Or (F-9+Q)\>=(J-6)\ And (F-9+Q)\<=(J+10)\ And \Mat G[1,13]=1:\Then 0\->\Mat G[1,13]:\Mat G[1,8]+1\->\Mat G[1,8]:0\->I:0\->J:\IfEnd:\If (F-9+P)\>=(L-6)\ And (F-9+P)\<=(L+10)\ Or (F-9+Q)\>=(L-6)\ And (F-9+Q)\<=(L+10)\ And \Mat G[1,14]=1:\Then 0\->\Mat G[1,14]:\Mat G[1,8]+1\->\Mat G[1,8]:0\->K:0\->L:\IfEnd:\IfEnd:\If \Mat G[1,7]=2:\Then (\Int 3\Ran#+1)\->R:R=1\=>15\->P:R=2\=>0\->P:R=3\=>-15\->P:\F-Line E-11,F-8,1,(F-8+P):\F-Line E-11,F-8,1,(F-8+P-1):\F-Line E-11,F-8,1,(F-8+P-2):\If ((F-8+P)\>=(H-6)\ And (F-8+P)\<=(H+10)\ Or (F-8+P-1)\>=(H-6)\ And (F-8+P-1)\<=(H+10)\ Or (F-8+P-2)\>=(H-6)\ And (F-8+P-2)\<=(H+10)\ And \Mat G[1,12]=1):\Then 0\->\Mat G[1,12]:\Mat G[1,8]+1\->\Mat G[1,8]:0\->G:0\->H:\IfEnd:\If ((F-8+P)\>=(J-6)\ And (F-8+P)\<=(J+10)\ Or (F-8+P-1)\>=(J-6)\ And (F-8+P-1)\<=(J+10)\ Or (F-8+P-2)\>=(J-6)\ And (F-8+P-2)\<=(J+10)\ And \Mat G[1,13]=1):\Then 0\->\Mat G[1,13]:\Mat G[1,8]+1\->\Mat G[1,8]:0\->I:0\->J:\IfEnd:\If ((F-8+P)\>=(L-6)\ And (F-8+P)\<=(L+10)\ Or (F-8+P-1)\>=(L-6)\ And (F-8+P-1)\<=(L+10)\ Or (F-8+P-2)\>=(L-6)\ And (F-8+P-2)\<=(L+10)\ And \Mat G[1,14]=1):\Then 0\->\Mat G[1,14]:\Mat G[1,8]+1\->\Mat G[1,8]:0\->K:0\->L:\IfEnd:\IfEnd:\If \Mat G[1,7]=3:\Then \F-Line E-12,F-9,1,F-9:\If ((F-9)\>=(H-6)\ And (F-9)\<=(H+10)\ And \Mat G[1,12]=1):\Then B-1\->B:0\->\Mat G[1,12]:\Mat G[1,8]+1\->\Mat G[1,8]:0\->G:0\->H:\IfEnd:\If ((F-9)\>=(J-6)\ And (F-9)\<=(J+10)\ And \Mat G[1,13]=1):\Then 0\->\Mat G[1,13]:\Mat G[1,8]+1\->\Mat G[1,8]:0\->I:0\->J:\IfEnd:\If ((F-9)\>=(L-6)\ And (F-9)\<=(L+10)\ And \Mat G[1,14]=1):\Then 0\->\Mat G[1,14]:\Mat G[1,8]+1\->\Mat G[1,8]:0\->K:0\->L:\IfEnd:\IfEnd:\For 0\->A \To 150:\Next:\Cls:\RclPict 1:\Goto3:\IfEnd:\IfEnd:\If \Mat G[1,9]=1:\Then 0\->\Mat G[1,9]:\If \Mat G[1,12]=1:\Then \Int 51\Ran#+12\->O:\F-Line G,H,127,O:(O\>=(F-15)\ And O\<=F)\=>\Mat G[1,10]-10-S\->\Mat G[1,10]:\IfEnd:\If \Mat G[1,13]=1:\Then \Int 51\Ran#+12\->O:\F-Line I,J,127,O:(O\>=(F-15)\ And O\<=F)\=>\Mat G[1,10]-10-S\->\Mat G[1,10]:\IfEnd:\If \Mat G[1,14]=1:\Then \Int 51\Ran#+12\->O:\F-Line K,L,127,O:(O\>=(F-15)\ And O\<=F)\=>\Mat G[1,10]-10-S\->\Mat G[1,10]:\IfEnd:\Text 58,20,"                    ":\Text 58,20,\Mat G[1,10]:\For 0\->A \To 150:\Next:\Cls:\RclPict 1:\Goto3:\IfEnd
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1686
File Name:GTA
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->A~R:0\->T~Z:\Cls:\ClrText:\ClrGraph:\ViewWindow 1,127,0,1,63,0:\Text 1,1,"Copyright (2004-2005)":\Text 20,45,"Th \log itic":\Text 30,45,"Present":\Text 40,45,"G T A":\Text 51,1,"Droits d'auteur":\Text 58,1,"Copie interdite":\For 0\->A \To 250:\Next:\Cls:{1,14}\->\Dim \Mat G:\Text 20,48,"Parental":\Text 30,48,"Advis\ory":\Text 40,32,"\Explicit content":\For 0\->A \To 250:\Next:\Cls:\F-Line 20,25,20,37:\F-Line 21,25,21,37:\F-Line 22,25,22,37:\F-Line 23,25,23,37:\F-Line 23,30,27,30:\F-Line 27,30,27,34:\F-Line 17,38,40,38:\F-Line 18,37,40,37:\F-Line 19,36,40,36:\F-Line 20,35,40,35:\F-Line 20,34,40,34:\F-Line 24,33,25,32:\F-Line 25,34,23,32:\F-Line 41,35,41,37:\PlotOff 27,37:\PlotOff 28,37:\PlotOff 29,37:\PlotOff 30,37:\PlotOff 31,37:\PlotOff 19,38:\F-Line 42,37,44,39:\F-Line 44,39,45,37:\F-Line 45,37,47,39:\F-Line 47,39,46,36:\F-Line 46,36,47,33:\F-Line 47,33,45,35:\F-Line 45,35,44,33:\F-Line 44,33,42,35:\For 0\->A \To 52:\Getkey=31\=>\Goto1:\PlotOn 42+A,36:\PlotOff 42+A,36:A=25\=>\Text 26,65,"G":A=35\=>\Text 26,75,"T":A=45\=>\Text 26,85,"A":A=50\=>\Text 35,55,"Version 1.0":\Next:\Lbl 1:\Cls:\Text 1,50,"G  T  A":\Text 20,35,"[F1]:New game":\Text 40,35,"[F6]:Load game":\Text 58,1,"Mem use 14247":0\->A:\While A=0:\Getkey\->A:A=79\ Or A=29\=>\Break
:A\<>79\ Or A\<>29\=>0\->A:\WhileEnd:\Lbl 3:\Cls:\If A=79:\Then "Choisir la difficulte":"[1]:Facile":"[2]:Difficile":?\->S:{1,14}\->\Dim \Mat S:S=1\=>100\->\Mat G[1,10]:S=2\=>50\->\Mat G[1,10]:1\->\Mat G[1,11]:\Cls:\ClrText:(S<1\ Or S>2)\=>\Goto3:\IfEnd:\If A=29:\Then \Text 1,1,"Loading..":\For 1\->A \To 14:\Mat S[1,A]\->\Mat G[1,A]:\Next:\IfEnd:\Lbl 2:\Cls:(\Mat G[1,8]\>=10\ And \Mat G[1,8]<15)\=>2\->\Mat G[1,11]:(\Mat G[1,8]\>=15\ And \Mat G[1,8]<20)\=>3\->\Mat G[1,11]:\Mat G[1,8]\>=30\=>4\->\Mat G[1,11]:\Text 1,40,"[ESC]: Retour":\Text 10,40,"[F1]: Go to":\Text 20,40,"[F2]: Stats":\Text 30,40,"[F3]: Buy":\Text 40,40,"[F4]: Sell":\Text 50,40,"[F5]: Save":\Text 58,40,"[F6]: Help":0\->A:\While A=0:\Getkey\->A:A=79\ Or A=69\ Or A=59\ Or A=49\ Or A=39\ Or A=29\ Or A=47\=>\Break
:A\<>79\ Or A\<>69\ Or A\<>59\ Or A\<>49\ Or A\<>39\ Or A\<>29\ Or A\<>47\=>0\->A:\WhileEnd:A=47\=>\Goto1:A=79\=>\Prog "GO TO":A=69\=>\Prog "STATS":A=59\=>\Prog "BUY":A=49\=>\Prog "SELL":A=39\=>\Prog "SAVE":A=29\=>\Prog "HELP":\Mat G[1,10]\<=0\=>\Prog "FIN":0\->Z:\Goto2
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1686
File Name:HELP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->A~R:0\->T~Z:\Cls:\ClrText:\ClrGraph:\ViewWindow 1,127,0,1,63,0:\Text 1,1,"Copyright (2004-2005)":\Text 20,45,"Th \log itic":\Text 30,45,"Present":\Text 40,45,"G T A":\Text 51,1,"Droits d'auteur":\Text 58,1,"Copie interdite":\For 0\->A \To 250:\Next:\Cls:{1,14}\->\Dim \Mat G:\Text 20,48,"Parental":\Text 30,48,"Advis\ory":\Text 40,32,"\Explicit content":\For 0\->A \To 250:\Next:\Cls:\F-Line 20,25,20,37:\F-Line 21,25,21,37:\F-Line 22,25,22,37:\F-Line 23,25,23,37:\F-Line 23,30,27,30:\F-Line 27,30,27,34:\F-Line 17,38,40,38:\F-Line 18,37,40,37:\F-Line 19,36,40,36:\F-Line 20,35,40,35:\F-Line 20,34,40,34:\F-Line 24,33,25,32:\F-Line 25,34,23,32:\F-Line 41,35,41,37:\PlotOff 27,37:\PlotOff 28,37:\PlotOff 29,37:\PlotOff 30,37:\PlotOff 31,37:\PlotOff 19,38:\F-Line 42,37,44,39:\F-Line 44,39,45,37:\F-Line 45,37,47,39:\F-Line 47,39,46,36:\F-Line 46,36,47,33:\F-Line 47,33,45,35:\F-Line 45,35,44,33:\F-Line 44,33,42,35:\For 0\->A \To 52:\Getkey=31\=>\Goto1:\PlotOn 42+A,36:\PlotOff 42+A,36:A=25\=>\Text 26,65,"G":A=35\=>\Text 26,75,"T":A=45\=>\Text 26,85,"A":A=50\=>\Text 35,55,"Version 1.0":\Next:\Lbl 1:\Cls:\Text 1,50,"G  T  A":\Text 20,35,"[F1]:New game":\Text 40,35,"[F6]:Load game":\Text 58,1,"Mem use 14247":0\->A:\While A=0:\Getkey\->A:A=79\ Or A=29\=>\Break
:A\<>79\ Or A\<>29\=>0\->A:\WhileEnd:\Lbl 3:\Cls:\If A=79:\Then "Choisir la difficulte":"[1]:Facile":"[2]:Difficile":?\->S:{1,14}\->\Dim \Mat S:S=1\=>100\->\Mat G[1,10]:S=2\=>50\->\Mat G[1,10]:1\->\Mat G[1,11]:\Cls:\ClrText:(S<1\ Or S>2)\=>\Goto3:\IfEnd:\If A=29:\Then \Text 1,1,"Loading..":\For 1\->A \To 14:\Mat S[1,A]\->\Mat G[1,A]:\Next:\IfEnd:\Lbl 2:\Cls:(\Mat G[1,8]\>=10\ And \Mat G[1,8]<15)\=>2\->\Mat G[1,11]:(\Mat G[1,8]\>=15\ And \Mat G[1,8]<20)\=>3\->\Mat G[1,11]:\Mat G[1,8]\>=30\=>4\->\Mat G[1,11]:\Text 1,40,"[ESC]: Retour":\Text 10,40,"[F1]: Go to":\Text 20,40,"[F2]: Stats":\Text 30,40,"[F3]: Buy":\Text 40,40,"[F4]: Sell":\Text 50,40,"[F5]: Save":\Text 58,40,"[F6]: Help":0\->A:\While A=0:\Getkey\->A:A=79\ Or A=69\ Or A=59\ Or A=49\ Or A=39\ Or A=29\ Or A=47\=>\Break
:A\<>79\ Or A\<>69\ Or A\<>59\ Or A\<>49\ Or A\<>39\ Or A\<>29\ Or A\<>47\=>0\->A:\WhileEnd:A=47\=>\Goto1:A=79\=>\Prog "GO TO":A=69\=>\Prog "STATS":A=59\=>\Prog "BUY":A=49\=>\Prog "SELL":A=39\=>\Prog "SAVE":A=29\=>\Prog "HELP":\Mat G[1,10]\<=0\=>\Prog "FIN":0\->Z:\Goto2
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:54
File Name:SAVE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Text 1,1,"Saving..":\For 1\->A \To 14:\Mat G[1,A]\->\Mat S[1,A]:\Next:\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1103
File Name:SELL
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 1:\Cls:\Text 1,1,"Client:":\If Z=0:\Then \Int 5\Ran#+1\->B:\IfEnd:B=1\=>\Text 7,1,"Un clodo":B=2\=>\Text 7,1,"Un crevard":B=3\=>\Text 7,1,"Un gonze":B=4\=>\Text 7,1,"Un chaud":B=5\=>\Text 7,1,"Al capone":1\->Z:\Text 14,1,"Vendre:":\Text 21,1,"[F1]:Herbe \-> ":\Text 28,1,"[F2]:Shit  \-> ":\Text 35,1,"[F3]:Coco  \-> ":\Text 42,1,"[F4]:Acid  \-> ":\Text 49,1,"[F5]:Hero  \-> ":\Text 56,1,"[ESC]:Quit":\Text 1,50,"Tunes:":\Text 1,80,\Mat G[1,6]:\Text 21,55,\Mat G[1,1]:\Text 28,55,\Mat G[1,2]:\Text 35,55,\Mat G[1,3]:\Text 42,55,\Mat G[1,4]:\Text 49,55,\Mat G[1,5]:0\->A:\While A=0:\Getkey\->A:A=79\ Or A=69\ Or A=59\ Or A=49\ Or A=39\ Or A=47\=>\Break
:A\<>79\ Or A\<>69\ Or A\<>59\ Or A\<>49\ Or A\<>39\ Or A\<>47\=>0\->A:\WhileEnd:A=47\=>\Return:\If A=79:\Then B=1\=>.1\->C:B=2\=>.1\->C:B=3\=>.9\->C:B=4\=>.1\->C:B=5\=>.9\->C:\Mat G[1,1]*C+\Mat G[1,6]\->\Mat G[1,6]:0\->\Mat G[1,1]:\IfEnd:\If A=69:\Then B=1\=>.1\->C:B=2\=>.1\->C:B=3\=>.9\->C:B=4\=>.1\->C:B=5\=>.9\->C:\Mat G[1,2]*C*2+\Mat G[1,6]\->\Mat G[1,6]:0\->\Mat G[1,2]:\IfEnd:\If A=59:\Then B=1\=>.1\->C:B=2\=>.1\->C:B=3\=>.9\->C:B=4\=>.9\->C:B=5\=>.9\->C:\Mat G[1,3]*C*3+\Mat G[1,6]\->\Mat G[1,6]:0\->\Mat G[1,3]:\IfEnd:\If A=49:\Then B=1\=>.1\->C:B=2\=>.1\->C:B=3\=>.1\->C:B=4\=>.9\->C:B=5\=>.9\->C:\Mat G[1,4]*C*4+\Mat G[1,6]\->\Mat G[1,6]:0\->\Mat G[1,4]:\IfEnd:\If A=39:\Then B=1\=>.9\->C:B=2\=>.1\->C:B=3\=>.1\->C:B=4\=>.1\->C:B=5\=>.9\->C:\Mat G[1,5]*C*5+\Mat G[1,6]\->\Mat G[1,6]:0\->\Mat G[1,5]:\IfEnd:\Goto1
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:773
File Name:STATS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Cls:\Text 1,45,"S T A T S":\Text 7,1,"Herbe \->":\Text 7,35,\Mat G[1,1]:\Text 14,1,"Shit  \->":\Text 14,35,\Mat G[1,2]:\Text 21,1,"Coco  \->":\Text 21,35,\Mat G[1,3]:\Text 28,1,"Acid  \->":\Text 28,35,\Mat G[1,4]:\Text 35,1,"Hero  \->":\Text 35,35,\Mat G[1,5]:\Text 42,1,"Tunes:":\Text 42,31,\Mat G[1,6]:\Text 49,1,"Arme:":\Mat G[1,7]=0\=>\Text 49,28,"Gun":\Mat G[1,7]=1\=>\Text 49,28,"Machine gun":\Mat G[1,7]=2\=>\Text 49,28,"Bazooka":\Mat G[1,7]=3\=>\Text 49,28,"Sniper":\Text 56,1,"Vie:":\Text 56,18,\Mat G[1,10]:\Text 56,82,"[ESC]:Quit":\F-Line 93,50,126,50:\F-Line 126,50,126,43:\F-Line 126,43,93,43:\F-Line 93,43,93,50:\Mat G[1,11]=1\=>\Text 27,102,"Rien":\If \Mat G[1,11]=2:\Then \For 0\->A \To 11:\F-Line 94+A,49,94+A,44:\Next:\Text 27,87,"Demi-boss":\IfEnd:\If \Mat G[1,11]=3:\Then \For 0\->A \To 22:\F-Line 94+A,49,94+A,44:\Next:\Text 27,102,"Boss":\IfEnd:\If \Mat G[1,11]=4:\Then \For 0\->A \To 31:\F-Line 94+A,49,94+A,44:\Next:\Text 27,102,"Dieu":\IfEnd:0\->A:\While A=0:\Getkey\->A:A=47\=>\Return:A\<>47\=>0\->A:\WhileEnd
%End