# FOX

Game is designed for 1 or 2 players, trying to catch a target (a fox). The speed is given, you may adjust direction of your next move. The direction of the fox is random, as well as its starting position. Game ends, when one of the player is nearer than 20 units. You can set this value (line 28,29), as well as the iteration count of the algorithm (line 3). By replacing `REM 1` to `GOTO 1` (line 60), you'll change the game to 1 player version.

## Source code (746 B)

``` CLRT IF D>0 GOTO 2 K=20 STATxy A=70+50RANDOM B=A(.6+RANDOM Q=E2+900RANDOM R=E2+700RANDOM T=300 U=300 V=800 W=600 C=-K DATA A,B PRINT"SPEEDS GOSUB 3 LABEL 1 CLRT C=C+K D=E9 F=D X=360RANDOM LABEL 2 θ=√((Q-T)2+(R-U)2 E=√((Q-V)2+(R-W)2 D=.5(D+θ-ABS (D-θ F=.5(F+E-ABS (F-E IF θ<=20 GOTO 6 IF E>20+ABS E9C GOTO 4 C=C-1 Q=Q+G R=R+H T=T+I U=U+J V=V+Σx W=W+Σy IF E>20 GOTO 2 PRINT"2.PLAYER GOTO 7 LABEL 4 STATxy DATA Q,R PRINT"FOX -POS. GOSUB 3 PRINT"FOX -DIRECT. DATA X,0 GOSUB 3 PRINT"1.PL-DIST. DATA θ,D GOSUB 3 PRINT"1.PL-POS. DATA T,U GOSUB 3 PRINT"1.PL-DIRECT. G=AK-1cos X H=AK-1sin X INPUT Y I=BK-1cos Y J=BK-1sin Y REM 1 CLRT PRINT"2.PL-DIST. DATA E,F GOSUB 3 PRINT"2.PL-POS. DATA V,W GOSUB 3 PRINT"2.PL-DIRECT. INPUT Z DATA cos Z,sin Z,BK-1 GOTO 1 LABEL 3 S=INT Σx+E-3INT Σy STATxy PRINT S WAIT CLRT RETURN LABEL 6 PRINT"1.PLAYER LABEL 7 D= PRINT"WELL DONE! ```