Sorry your browser is not supported!

Sync On 
Sync Rate 30 
Hide mouse 
Backdrop on 
Set camera range 1,5000 

EnemyX=sphere
PlayerX=cylinder

Fog on 
Fog distance 4000 
Fog color RGB(128,128,128) 
Color Backdrop RGB(128,128,128) 

Rem make matrix 
Make matrix 1,10000,10000,20,20 

Rem Sphere with A.I.
Make object sphere 3,2
If PlayerX > EnemyX
   inc EnemyX
endif

If PlayerX < EnemyX
   dec EnemyX
endif

rem Make Gun
Load object "DarkMATTER/H-AK47-Static.x" ,1
XRotate Object 1,90
Fix object pivot 1
Scale object 1,100,100,500
position object 1,0,-7,15
Lock object on 1

Rem Make bullet
Make Object Sphere 2,2
Hide Object 2

rem Randomize the matrix 
randomize matrix 1,125 
X#=5000 
Z#=5000 

Rem Main loop 
Do 
	OldCamAngleY# = CameraAngleY# 
	OldCamAngleX# = CameraAngleX# 
	CameraAngleY# = WrapValue(CameraAngleY#+MousemoveX()*0.2) 
	CameraAngleX# = WrapValue(CameraAngleX#+MousemoveY()*0.2) 
	
	Rem  Control input for camera 
	If Upkey()=1 
		XTest# = Newxvalue(X#,CameraAngleY#,10) 
		ZTest# = Newzvalue(Z#,CameraAngleY#,10) 
		If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
			X#=XTest# 
			Z#=ZTest# 
		Endif 
	Endif 
	
	If Downkey()=1 
		XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-180),10) 
		ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-180),10) 
		If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000 
			X#=XTest# 
			Z#=ZTest# 
		Endif 
	Endif 
	
	Yrotate camera CurveAngle(CameraAngleY#,OldCamAngleY#,24) 
	Xrotate camera CurveAngle(CameraAngleX#,OldCamAngleX#,24) 
	
	Y# = Get ground height(1,X#,Z#) 
	Position Camera X#,Y#+50,Z# 
Rem Strafing
If Leftkey()=1
	XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#-90),10)
	ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#-90),10)
	If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
		X#=XTest#
		Z#=ZTest#
	Endif
Endif

If Rightkey()=1
	XTest# = Newxvalue(X#,Wrapvalue(CameraAngleY#+90),10)
	ZTest# = Newzvalue(Z#,Wrapvalue(CameraAngleY#+90),10)
	If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
		X#=XTest#
		Z#=ZTest#
	Endif
Endif



	
	Rem Refresh Screen 
	Sync 
Loop 

If PlayerX<EnemyX
   EnemyX=EnemyX-1
ELSE
   EnemyX=EnemyX+1
ENDIF

IF PlayerZ<EnemyZ
   Dec EnemyZ
ELSE
   Inc EnemyZ
ENDIF

If PlayerX > EnemyX
   inc EnemyX
endif

If PlayerX < EnemyX
   dec EnemyX
endif

sync on
cx#=320
cy#=240
cv#=3

ex#=5
ey#=10
ev#=3
ehead#=60

repeat
	REM THIS PROVES THAT PI>CAKE!!!
	tx#=ex#+((ev#/cv#)*(d(ex#,ey#,cx#,cy#)/(3.14/3)))*cos(ehead#)
	ty#=ey#+((ev#/cv#)*(d(ex#,ey#,cx#,cy#)/(3.14/3)))*sin(ehead#)
	angle#=atan((ty#-cy#)/(tx#-cx#))
`	angle#=angle#+180
	x#=(tx#)-cx#
	y#=ey#-cy#
	if x#<0
		angle#=angle#+180
	endif
	chead#=angle#

	angle2#=atan((ey#-cy#)/(ex#-cx#))
	if d(ex#,ey#,cx#,cy#)<=25 then ehead#=angle2#+180
	ex#=ex#+ev#*cos(ehead#)
	ey#=ey#+ev#*sin(ehead#)
	if ex#>=640
`		ehead#=ehead#+180
		ex#=639
	endif
	if ex#<=0
`		ehead#=ehead#+180
		ex#=1
	endif
	if ey#<=0
`		ehead#=ehead#+180
		ey#=1
	endif
	if ey#>=480
`		ehead#=ehead#+180
		ey#=479
	endif



	cx#=cx#+cv#*cos(chead#)
	cy#=cy#+cv#*sin(chead#)
	ink rgb(0,0,255),0
`	dot ex#,ey#
	circle ex#,ey#,3
	ink rgb(255,0,0),0
`	dot cx#,cy#
	circle cx#,cy#,3
`until int(cx#)=int(ex#) and int(cy#)=int(ey#)
sync
cls
until d(cx#,cy#,ex#,ey#)<5

end


function d(x1#,y1#,x2#,y2#)
distance#=sqrt((x1#-x2#)*(x1#-x2#)+(y1#-y2#)*(y1#-y2#))
endfunction distance#

Point object sphere,player x position,sphere y position,player z position
Move object sphere,3