%Header Record Format:MCS1 Type Number:1 File Name:AIRSOFT Option Name: Communication SW:0 Capacity:2621 Data Type:PG %Data Record Password: BaseN:0 \AxesOff \LabelOff \S-WindMan \ViewWindow 1,127,0,1,63,0 27\->C 50\->E 40\->F 30\->D 35\->G 63\->I 20\->B 31\->U 32\->A 34\->S 36\->R 41\->T 25\->H 51\->M 56\->N 104\->K 500\->O {16,11,16,11,O,21,21,24,26,26,O,U,A,S,A,S,R,O,T,46,T,46,O,M,M,M,N,N,O,61,61,64,66,66,O,71,72,75,72,74,76,O,81,86,81,86,O,96,91,91,91,96,O,106,101,K,106,101,O,111,111,111,116,O,1,4,124,127,127,124,4,1,1,O,3,6,122,125,125,122,6,3,3}\->\List 1 {E,F,D,B,O,B,G,D,G,B,O,B,H,H,H,G,B,O,B,D,F,E,O,E,B,C,G,B,O,B,G,D,G,B,O,B,C,C,C,G,B,O,B,D,F,E,O,B,D,E,F,F,O,B,C,G,C,C,O,B,G,D,G,O,4,1,1,4,60,I,I,60,4,O,6,3,3,6,58,61,61,58,6}\->\List 2 \S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Dot \DrawStat \For 13\->A \To 300 \Step 3 A<43\=>\Text 51,A," PRESENTE" \Next \Do \ClrText \Cls \ViewWindow \(-)63,63,1,\(-)31,31,1 \BG-None \Locate 1,1,"=====================" \Locate 8,2,"AIRSOFT" \Locate 1,3,"=====================" \Locate 1,4,"( )\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)JOUER" \Locate 1,5,"( )\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)AIDE" \Locate 1,6,"( )\(-)\(-)\(-)\(-)\(-)\(-)\(-)INITIALISER" \Locate 1,7,"( )\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)SCORE" 4\->\theta \Do \Getkey\->G \Locate 2,\theta," " G=28\=>\theta-1\->\theta G=37\=>\theta+1\->\theta \theta=3\=>7\->\theta \theta=8\=>4\->\theta \Locate 2,\theta,"+" G=47\=>0\->\theta \LpWhile G\<>31\ And G\<>47 \ClrText \If \theta=7 \Then \Locate 1,1,"HIGH SCORE:" \For 1\->A \To 10 \If A\<=5 \Then \Locate 1,A+2,A \Locate 2,A+2,")" \Locate 4,A+2,\Mat D[1,A] \Else \Locate 14,A-3,A \Locate 16,A-3,")" \Locate 18,A-3,\Mat D[1,A] \IfEnd \Next \Do \Getkey \LpWhile \Not \Ans \IfEnd \If \theta=6 \Then \Deg {1,10}\->\Dim \Mat D \For 0\->A \To 360 \Step 4 \F-Line 22\cos A,22\sin A,25\cos A,25\sin A \F-Line 27\cos A,26\sin A,25\cos A,36\sin A A>246\=>A<294\=>\F-Line 26\cos A,27\sin A,26\cos A,\(-)31 \Next \F-Line \(-)22,0,22,0 \F-Line 0,\(-)22,0,22 \For \(-)20\->A \To 20 \Step 5 \F-Line \(-)1,A,1,A \F-Line A,\(-)1,A,1 \Next \StoPict 2 \Cls \IfEnd \If \theta=5 \Then \Text 1,1,"I.BUT DU JEU" \Text 9,1,"VOUS DEVEZ TIRER SUR UN" \Text 15,1,"FRELON AVEC VOTRE SNIPER." \Text 21,1,"VOUS DEVEZ FAIRE ATTENTION:" \Text 27,1,"A LA GRAVITE" \Text 33,1,"A LA DISTANCE FRELON\->SNIPER" \Text 39,5,"(MARQUE EN HAUT A GAUCHE)" \Text 45,1,"A LA VITESS/DIRECTION DU VENT" \Text 51,5,"(MARQUE EN HAUT A DROITE)" \Do \Getkey \LpWhile \Not \Ans \Cls \Text 1,1,"II.COMMANDE" \Text 10,1,"[REPLAY]=DEPLACER LE SNIPER" \Text 16,1,"[SHIFT]=TIRER" \Do \Getkey \LpWhile \Not \Ans \IfEnd \If \theta=4 \Then \ClrText 0\->S 0\->T {0}\->\List 1 {0}\->\List 2 \S-Gph1 \DrawOn,\xyLine,\List 1,\List 2,1,\Cross \Do 0\->I 25\->L 20+\Int (20\Ran#)\->A 50+\Int (20\Ran#)\->B 500+\Int (500\Ran#)\->D \(-)100+\Int (200\Ran#)\->V \ClrText \RclPict 2 \Text 1,1," " \Text 1,1,D \Text 1,110," " \Text 1,110,\Abs V \Text 7,114," " \Text 7,121," " \Text 13,114," " \Text 13,121," " \F-Line 50,20,60,20 \If V\>=0 \Then \F-Line 60,20,57,17 \F-Line 60,20,57,23 \Else \F-Line 50,20,53,23 \F-Line 50,20,53,17 \IfEnd \StoPict 2 \BG-Pict 2 0\->H \Do \Cls \(-)1+\Int (3\Ran#)+A\->A \(-)1+\Int (3\Ran#)+B\->B \Text A,B,"\theta" \Horizontal H \Getkey\->G \If G=37 \Then H+2\->H A-2\->A \IfEnd \If G=28 \Then H-2\->H A+2\->A \IfEnd G=27\=>B-2\->B G=38\=>B+2\->B I\=>I-1\->I T+1\->T \If A\<=0\ Or A\>=60\ Or B\<=0\ Or B\>=120 \Then "LE FRELON EST HORS DE VU:"\Disp0\->H S-20\->S 30\->A 60\->B \IfEnd \If (G=31\ Or G=78\ Or G=77)\ And \Not I \Then \Int (D/100\->W \Int (V/10\->U \(-)W\->\List 2[1] U\->\List 1[1] U+63\->O W+30\->P \sqrt((O-B)\x^2+(P-A)\x^2)\->L L\<>0\=>10/L+S\->S \DrawStat 8\->I \IfEnd \LpWhile L\>=2\ And T\<=100\ And G\<>47 \If T<100\ And G\<>47 \Then L\=>"TOUCHE!"\Disp\Not L\=>"HEADSHOT!"\DispL\=>50+S\->S \Not L\=>80+S\->S \IfEnd \Cls \LpWhile T\<=100\ And G\<>47 "GAME OVER"\Disp"SCORE FINAL:" \Int S\DispS>\Mat D[1,10]\=>"VOTRE SCORE A ETE SAUVEGARDER"\Disp{0,0,0,0,0,0,0,0,0,0,0}\->\List 3 \For 1\->A \To 10 \Mat D[1,A]\->\List 3\@E7E4 \Next \Int S\->\List 3[11] \SortD(\List 3) \For 1\->A \To 10 \List 3\@E7E4\->\Mat D[1,A] \Next 0\->G \IfEnd \LpWhile G\<>47 \ClrText\xrt %End