; **************** KissMe v1.0 *********************** ;
;  by Georg Schnabel
;  georg.schnabel@mycity.at
; ***********************************************
;  my answer to BotGod32 :-)
; ***********************************************


#config scanner=4
#config weapon=2
#config engine=2
#config armor=2
#config heatsinks=2

#def Spd

	opo P_ARC, 4
	mov Spd, 75
!MAIN
	int 4
	opo P_TROTATE, 5
	ipo P_SCAN , ax
	cmp ax, 1500
	ja !Drive

	mov cx, [6]
	add cx, 32
	and cx, 255
	shr cx, 6	
	
	cmp cx, 2
	jeq !Drive
	cmp cx, 0
	jeq !Drive

	mov bx, [13]
	shr bx, 6	

	cmp cx, 1
	jeq !ov128

	neg bx
!ov128
	opo P_TROTATE, bx

	mov ax, @03
	opo P_FIRE, ax
	opo P_FIRE, ax
	add ax, 2
	opo P_FIRE, ax
	
!Drive
	opo P_STEERING, 2
	cmp [0], 0
	jne !MAIN

	neg Spd
	opo P_THROTTLE, Spd
	jmp !MAIN