Insert this into the "SPSET" area: REPEAT EX[I-1]=RND(400) EY[I-1]=RND(240) D=SQR(POW(EX[I-1]-PX,2)+POW(EY[I-1]-PY,2)) UNTIL D>100 Insert this somewhere in the loop: FOR I=0 TO 9 A=DEG(ATAN(EX[I]-{player X},EY[I]-{player Y}))+180 INC EX[I],SIN(RAD(A)) INC EY[I],COS(RAD(A)) SPOFS I+1,EX[I],EY[I] NEXT