; RoboCom program

Published  Name        fighter-defensive-1      ; Name of this program
Published  Author      Rick van der Zwet        ; Name of author
Published  EMail       hvdzwet@liacs.nl         ; Author's e-mail address
Published  Country     The Netherlands          ; Author's home country
Published  Comment     Part AI Course @ LIACS   ; A comment on this prog
Secret     Password    YOUR_PASSWORD_HERE       ; Password for competitons

Published  OpenSource  yes                      ; This prog is open source
Published  Language    RC300                    ; Written in RC300 language
Published  OptionSet   Classic                  ; Recommended OptionSet

; General overview:
; * Create really simple shield around mother bot with very simple virus,
;   called protectors
; * After some cycles call autodestroy on all affected bots, called
;   kamikazes
; * Start creating 'destroyers' with basicly kill all robots
;

; Jump bank to safer grounds 
Bank SafeJump
	Bjump 25,1

; Bank 2-20, empty buffer banks
Bank Bank2
Bank Bank3
Bank Bank4
Bank Bank5
Bank Bank6
Bank Bank7
Bank Bank8
Bank Bank9
Bank Bank10
Bank Bank11
Bank Bank12
Bank Bank13
Bank Bank14
Bank Bank15
Bank Bank16
Bank Bank17
Bank Bank18
Bank Bank19
Bank Bank20
Bank Bank21
Bank Bank22
Bank Bank23
Bank Bank24

;Bank 25
Bank MainParent
	;Protectors build
	@MainParentProtectorStart
	Scan #10
	Comp #10,0
	Jump @MainParentExists
	Create 1,1,0
	@MainParentExists
	Trans 26,1
	Set %active,1
	Turn 0
	Add #1,1
	Comp #1,50
	Jump @MainParentProtectorStart
	Set #1,1
	Add #2,1
	Comp #2,4
	Jump @MainParentProtectorStart

	;Kamikazes build	
	Set #1,1
	@MainParentKamikazeStart
	Trans 27,1
	Turn 0
	
	Add #1,1
	Comp #1,30
	Jump @MainParentKamikazeStart

	;Destroyer build
	@MainParentDestroyerStart
	Turn 0
	Scan #1
	Comp #1,0
	Jump @MainParentDestroyerStart
	Create 2,6,0
	Trans 28,5
	Trans 29,4
	Trans 28,1
	Set %active,1
	Jump @MainParentDestroyerStart
	
;Bank 26
Bank Protectors
	Trans 1,1
	Trans 1,2
	Trans 1,4
	Turn 1
		
;Bank27
Bank Kamikazes
	Trans 1,1
	Add #1,1
	Turn 0

;Bank28
;SafeJump Destroyers
Bank DestroyerJump
Bjump 4,1

;Bank29
Bank DestroyerMain
	@DestroyerStart
	Turn 0
	Scan #1
	Comp #1,1
	Jump @DestroyerFriendly
	Set #2,%banks
	@DestroyerBankwhipe
	Trans 7,#2
	Sub #2,1
	Comp #2,0
	Jump @DestroyerBankWhipe
	Set %active, 1
	Jump @DestroyerStart
	@DestroyerFriendly
	Comp #1,0
	Jump @DestroyerStart
	Create 2,6,0
	Trans 4,4
	Trans 5,5
	Trans 5,1
	Set %active,1
	Jump @DestroyerStart

		
;Bank 30-50, empty buffer banks	
Bank Bank30
Bank Bank31
Bank Bank32
Bank Bank33
Bank Bank34
Bank Bank35
Bank Bank36
Bank Bank37
Bank Bank38
Bank Bank39
Bank Bank40
Bank Bank41
Bank Bank42
Bank Bank43
Bank Bank44
Bank Bank45
Bank Bank46
Bank Bank47
Bank Bank48
Bank Bank49
Bank Bank50