REM $Include dh1:Hbasic/Includes/Libdefs2.inc
SCREEN 1,320,256,4,1
WINDOW 1,"",(0,0)-(310,240),0,1
REM $option K200
FOR x = 0 TO 15 : PALETTE x,x/15,x/15,x/15 : NEXT x
setwindow WINDOW(7)
file$ = "dh1:hbasic/my_progs/game/newsprites.iff"+CHR$(0)
loadiff SADD(file$)
DIM a%(20000)
GET (0,0)-(300,240),a%
CLS

main:
	GOSUB remwindow
	GOSUB clist
	makedoublebuffer
	doublebufferon

	GOSUB mainprog

	doublebufferoff
	abortdoublebuffer    
	LIBRARY CLOSE
SYSTEM

mainprog:
	PUT(0,0),a%,PSET
	DIM b%(20000)
	DIM c%(20000)
	DIM t%(8000)
	DIM t2%(8000)
	GET (79,80)-(107,105),b%(1)
	GET (79,110)-(107,135),b%(10000)
	GET (119,85)-(159,145),c%(1)
	GET (172,86)-(211,145),c%(10000)
	CLS
	transmit
	px = 150 : py = 100
	WHILE MOUSE(0) <> 0 : WEND
	WHILE MOUSE(0) = 0 
		x = x + dx
		y = y + dy
		IF x>290 THEN dx = -1
		IF x<1   THEN dx = 1
		IF y>215 THEN dy = -1
		IF y< 1  THEN dy = 1
		GET(x,y)-(x+30,y+30),t%
		PUT(x,y),b%(1),PSET
		
		vx=vx + STICK(2)
		vy=vy + STICK(3)
		IF (px+vx)>270 THEN vx=vx * -1
		IF (px+vx)<1 THEN vx=vx * -1
		IF (py+vy)>180 THEN vy=vy * -1
		IF (py+vy)<1 THEN vy=vy * -1
		px=px + vx
		py=py + vy
		GET(px,py)-(px+41,py+61),t2%
		PUT(px,py),c%(1),PSET
		waittof
		transmit
		
		
		PUT(x,y),t%,PSET
		PUT(px,py),t2%,PSET
		PUT(x,y),b%(10000),PSET
		vx=vx + STICK(2)
		vy=vy + STICK(3)
		IF (px+vx)>270 THEN vx=vx * -1
		IF (px+vx)<1 THEN vx=vx * -1
		IF (py+vy)>180 THEN vy=vy * -1
		IF (py+vy)<1 THEN vy=vy * -1
		px=px + vx
		py=py + vy
		GET(px,py)-(px+41,py+61),t2%
		PUT(px,py),c%(10000),PSET
		waittof
		transmit
		PUT(x,y),t%,PSET
		PUT(px,py),t2%,PSET
	WEND
	x = MOUSE(1) : y = MOUSE(2)
	WHILE MOUSE(0) <> 0 
		PUT(0,0),a%,PSET
		LOCATE 1,1
		PRINT x,y
		x1 = MOUSE(1)
		y1 = MOUSE(2)
		PRINT x1,y1
		LINE (x1,y1)-(x,y),1,b
		waittof
		transmit
	WEND
RETURN

clist:
	PALETTE 0,0,0,0
	GOSUB initcopvals
	initcop
	waitc 0,xc%
	movec c0%,&H000
	movec c1%,&Hfff
	movec c2%,&Hf00
	movec c3%,&H0f0
	movec c4%,&H00f
	movec c5%,&Hff0
	movec c6%,&H0ff
	movec c7%,&Hf0f
	acticop
RETURN		
	
REM $Include dh1:Hbasic/Includes/CopRoutines.inc
REM $Include dh1:Hbasic/Includes/DBFRoutines2.inc
REM $Include dh1:Hbasic/Includes/misc.inc
REM $include dh1:Hbasic/Includes/fonts.inc
REM $include dh1:Hbasic/Includes/mouse2.inc

REM -- Updated for EXTEND.LIBRARY on 24-4-1992