;Robot's name		: Inferno
;Author      		: (c) Christian Hammerschmidt
;Author's Country  	: Germany
;Author's E-mail	: webmaster@securitypages.de
;Date of completion	: 28/04/2001 (dd/mm/yyyy)
;Tournament		: Standard, FastCPU
;Version		: v1.0
;
; Comment: You can take parts from this bot, but don't copy the whole bot and
;	   change some values. Please mention that you took parts from inferno!
;	   Thank you...
; folgende cfg

  #config engine=1	; Motor
  #config weapon=5	; Waffe
  #config scanner=3	; Scanner
  #config armor=2	; Armor
  #config heatsinks=1	; Kühler

; oder doch weapon=2 und armor=4?

  #def speed		; Geschwindigkeit
  #def winkel		; Scannwinkel
  #def ergebniss	; Entfernung zum Gegner
  #def turm		; Richtung des Turms
  #def hitze		; Hitzekontrolle
  #def accu		; Genauigkeit des letzten Scanns
  #def fb

	mov	ax,	1
	int	4
	mov	speed,	100			; speed=100
	mov	winkel,	32			; winkel=90 (32 botgrad)
	int	3
:1
	opo	11,	speed			; 100% Speed
	ipo	4,	turm			; wohin schaut der Turm?
	opo	14,	turm			; nach dort drehen!
	neg	turm				; Vorzeichen umdrehen
	opo	12,	turm			; turm zurückdrehen
	opo	17,	winkel			; Scanner auf winkel
	jeq	4				; 4
	jne	4				; 4

:2	; Kollisionsabfrage
	int	12				; Kollisionsabfrage
	cmp	fx,	0			; compare
	jeq	1				; Kein Zusammenstoss.
	mov	fb,	1
	jgr	3				; wenn wir hier sind: fx <> 0

:3
	neg	speed			; Speed=Speed * (-1)
	int	13			; null=kollisioncount
	opo	11,		speed	; vollgas!
	jgr	fb
	jne	fb

:4	; Gegner suchen
	sar	winkel,	1			; winkel/2
	ipo	2,	hitze	 		; Hitze checken.
	cmp	hitze,	240			; vergleichen
	jgr	120				; zu heiss!
	opo	17,	winkel
	ipo	7,	ergebniss		; Scannen.
	cmp	ergebniss,	1500		; Jemand da?
	jgr	50				; jmp	50
	cmp	winkel,	2			; Winkel=2?
	jeq	100				; jmp   100
	ipo	8,	accu
	mov	cx,	202
	add	cx,	accu
	jmp	cx
	jne	4
	jeq	4

:50

	cmp	winkel,	128
	jeq	60
	sal 	winkel,	1			; winkel*2
	opo	17,	winkel
	ipo	7,	ergebniss		; Scannen.
	cmp	ergebniss,	1500		; Jemand da?
	jgr	50				; jmp	50
	ipo	8,	accu
	mov	cx,	202
	add	cx,	accu
	jmp	cx
	jne	1
	jeq	1

:60

	mov	winkel,	32
	opo	17,	32			; arc auf 8
	opo	12,	winkel			; turm drehen
	int	12
	cmp	fx,	0
	mov	fb,	50
	jgr	3
	jne	50
	jeq	50

:100
	ipo	8,	accu			; Genauigkeit?
	opo	15,	accu
	opo	15,	accu
	sal	winkel,	1
	jne	4
	jeq	4

:120
	sal	winkel,	1
	jeq	2
	jne	2

:200

	mov	cx,	winkel
	neg	cx
	opo	12,	cx	
	jne	4
	jeq	4

:201

	mov	cx,	winkel
	sar	cx,	1
	neg	cx
	opo	12,	cx
	jne	4
	jeq	4

:202

	jne	4
	jeq	4

:203

	mov	cx,	winkel
	sar	cx,	1
	opo	12,	cx
	jne	4
	jeq	4

:204
	mov	cx,	winkel
	opo	12,	cx	
	jne	4
	jeq	4