Dogfight íí8ïÿ êSolo Dogfight @ R.Erskine 1983  í8000@ í9000(# ç1:Ú5:û Z í7100¼ è êmainloop í9úp(3)=q(3)Æp(4)=q(4)Ëí4000  òõ¬p(3),p(4);" " üsúp(1)<21ËõÙ1;¬p(1),p(2);Â(a+143):ñp(3)=p(1):ñp(4)=p(2) 9úp(1)=q(3)Æp(2)=q(4)Ëì4000  õ¬q(3),q(4);" " túq(1)<21ËõÙ0;¬q(1),q(2);Â(aa+151—):ñq(3)=q(1):ñq(4)=q(2) ú¦="x"Æg=1Ëñf=1 $dú¥>.5ÿÿÿÆg=-1ƽ(p(1)-q(1))<7ƽ(p(2)-q(2))<7Ëñf=2 .4ú¦="a"Æg=1Ëña=a+1:úa=9 Ëña=1 83ú¥>.9€ffffËñaa=aa+1:úaa=9 Ëñaa=1 B4ú¦="z"Æg=1Ëña=a-1:úa=0Ëña=8 L3ú¥>.9€ffffËñaa=aa-1:úaa=0Ëñaa=8 Vúf>0Ëí2000Ð [)úp(1)>20Ëñp(1)=0 \)úq(1)>20Ëñq(1)=0 ])úp(1)<0Ëñp(1)=20 ^)úq(1)<0Ëñq(1)=20 j@ñp(1)=p(1)+d(a):ñp(2)=p(2)+d(a+8) ˆ)úp(2)>31Ëñp(2)=0 ’)úp(2)<0Ëñp(2)=31 œBñq(1)=q(1)+e(aa):ñq(2)=q(2)+e(aa+8) º)úq(2)>31Ëñq(2)=0 Ä)úq(2)<0Ëñq(2)=31 Îñg=-g â ì1000è Ðêfire Ú5úf=1Ëñx=¨a(p(2)):ñy=¨b(p(1)):ñy=-y ä5úf=2Ëñx=¨a(q(2)):ñy=¨b(q(1)):ñy=-y î%úf=1Ëñxx=f(a):ñyy=f(a+8) ø'úf=2Ëñxx=g(aa):ñyy=g(aa+8) ý ñcnt=0 9úx>247÷Åx<8Åy<8Åy>175¯Ëì2200˜ úcnt>0ËöÙf;Þ1;x,y eúf=1Æ«(q(1),q(2))=41)Åf=2Æ«(p(1),p(2))=42*Ëì5000ˆ %ñcnt=cnt+1 *!öÙf;Þ1;x,y:ñx=x+xx:ñy=y+yy /úcnt<6Ëì2050 ˜ ñf=0:þ 5õÚ2;Ù6;Û1;¬20,q(2);" " Nëx=1Ì10 :×.1}LÌÌÌ,-20:óx:õÚ5;¬20,q(2);" " 3ñlives2=lives2-1:úlives2=0Ëì6000p &6ñaa=1:ñq(1)=20:ñq(2)=31 0 í7100¼ :þ   êcollision ª7õÙ2;Ú6;Û1;¬p(3),p(4);"*" ´,ñlives=lives-1:ñlives2=lives2-1 ¾+ël=1Ì10 :×.1}LÌÌÌ,-20:ól È*úlives=0Ålives2=0Ëì6000p Íõ¬p(3),p(4);" " ÒÆña=1:ñaa=1:ñp(1)=20:ñp(2)=0:ñq(1)=20:ñq(2)=31:ñp(3)=p(1):ñp(4)=p(2):ñq(3)=q(1):ñq(4)=q(2) Ü í7100¼ æ ì1000è ˆ0úf=1ËõÚ2;¬q(1),q(2);"*" ’0úf=2ËõÚ2;¬p(1),p(2);"*" ¦+ël=1Ì10 :×.1}LÌÌÌ,-20:ól °>úf=1Ëñlives2=lives2-1:úlives2=0Ëì6000p º;úf=2Ëñlives=lives-1:úlives=0Ëì6000p ÄAúf=1Ëñq(1)=20:ñq(2)=31:ñaa=1 Î@úf=2Ëñp(1)=20:ñp(2)=31:ña=1 Ø í7100¼ â ì21004 pHúlives=0Ælives2=0Ëõ¬18,4;"The result is a draw" zNúlives=0Ælives2>0Ëõ¬18,3;"The computer is the winner" „Iúlives>0Ælives2=0Ëõ¬18,4;" You are the winner" Ž.õ¬20,4;"Press any key to restart" ˜ú¦=""Ëì6040˜ ¢÷ ¼VõÚ1;Ù7;¬21,0;"PLYR LIVES: ";lives;" COMP. lives: ";lives2 Æþ @Ú1:Ù7:ç1:û J&õ¬0,9 ;"SOLO-DOGFIGHT":õ:õ Tšõ:õ" Player controls:":õ:õ" a = up z = down x = fire":õ:õ:õ:õ"The player controls the blue ","aircraft and the computer ","controls the black." r,õ¬21,4;"Press any key to start" |ú¦=""Ëì8060| †þ #( ép(4) #2 éq(4) #<ég$(2,1) #Féd(16):ée(16) #P ñg=1 #Z¯ñp(1)=20:ñp(2)=0:ñq(1)=20:ñq(2)=31:ñp(3)=p(1):ñp(4)=p(2):ñq(3)=q(1):ñq(4)=q(3) #dña=1:ñaa=a #nå:ëx=1Ì16 #x ãn:ñd(x)=n #‚ ãn:ñe(x)=n #Œóx #–‡ä0,0,-1,-1,-1,-1,-1,-1,0,0,1,1,1,1,1,1 # ‡ä1,-1,1,-1,0,0,-1,1,-1,1,-1,1,0,0,1,-1 #ª ñf=0 #´9ñg$(1)=Â(a+143):ñg$(2)=Â(aa+151—) #¾ëx=À"a"ÌÀ"p"+7 #Èãn #Òôx,n #Üóx #æGä0,15,132„,255ÿ,0,15,0,0 #ðGä8,26,524,9 ,18,164¤,64@,0 #úJä84T,84T,116t,84T,16,16,16,480 $Hä16,72H,36$,208Ð,72H,36$,2,4 $Hä0,240ð,0,255ÿ,33!,240ð,0,0 $Hä0,2,37%,72H,144,36$,88X,16 $"Fä12 ,8,8,8,42*,46.,42*,42* $,Hä32 ,64@,36$,18,11 ,36$,18,8 $1Hä0,240ð,33!,255ÿ,0,240ð,0,0 $6Iä16,88X,164¤,144,72H,37%,2,0 $;Eä42*,42*,46.,42*,8,8,8,8 $@Hä8,18,36$,11 ,18,36$,64@,32 $EGä0,0,15,0,255ÿ,132„,15,0 $FGä0,64@,164¤,18,5,36$,26,4 $GJä480,16,16,16,84T,116t,84T,84T $HHä4,2,36$,72H,208Ð,36$,72H,16 $Jñlives=3:ñlives2=3 $TÎa(x)=x*8+4 $^ Îb(x)=x*8-172¬ $héf(16):ég(16) $r"ëx=1Ì16:ãn:ñf(x)=n:óx $†‡ä8,8,0,-8,-8,-8,0,8,0,8,8,8,0,-8,-8,-8 $"ëx=1Ì16:ãn:ñg(x)=n:óx $š‡ä-8,-8,0,8,8,8,0,-8,0,8,8,8,0,-8,-8,-8 'þ C