; RoboCom program

; Instead of having to change all the values below with every new program,
; it's suggested that you adjust the template header to your needs once
; in the Prefs->Editor dialog. You can also remove these comments.
; See documentation for the meaning of these and more header fields.

Published  Name        Brommis Robo     ; Name of this program
Published  Author      Benjamin Bromberger                ; Name of author
Published  EMail       benjbrom@gaussschule-bs.de       ; Author's e-mail address
Published  Country     Germany			; Author's home country
Published  Comment     MAKE_A_COMMENT           ; 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   RC3 Standards            ; Recommended OptionSet

Bank Lamer(1)

BJUMP 7, 1

Bank Drehen (2)

@beginn
CREATE 1, 2, 1 			;jack baun
TRANS 4, 1		 	;haupt bank rüba
TRANS 3, 2			;die bank rüba
SET %Active, 1			;aktivieren
CREATE 2, 3, 0			;wall baun
TRANS 5, 1			;start rübba
TRANS 6, 2			;main rübba
TRANS 3, 3			;die rübba
SET %Active, 1
TURN 1				;rechts drehen
ADD #2, 500
JUMP @beginn

Bank Die (3)

DIE				;wird übertragen um zu zerstören

Bank Jackmain (4)

TURN 0				;links drehen
SCAN #1				;#1 ist "felt?"
COMP #1, 1
JUMP 2
JUMP 9
COMP #1, 0
JUMP 2
JUMP 4
COMP #1, 2
JUMP -8
JUMP 7
MOVE
JUMP -11
SET %Active, 0
TRANS 2, 1
SET %Active, 1
JUMP -15
TURN 1
JUMP -17

Bank Wallstart (5)

BJUMP 2, 1

Bank Wallmain (6)

CREATE 2, 3, 0			;wall baun
TRANS 1, 1			;start rübba
TRANS 2, 2			;main rübba
TRANS 3, 3			;die rübba
SET %Active, 1			;aktivieren
TURN 0
SCAN #1				;#1 ist "felt?"
COMP #1, 1
JUMP 2
JUMP 9
COMP #1, 0
JUMP 2
JUMP -12
COMP #1, 2
JUMP -8
SET %Active, 1 
TURN 0
JUMP -11
SET %Active, 0
TRANS 3, 1
SET %Active, 1
JUMP -16


Bank Drehen (7)

@beginnn
COMP #2, 9000
JUMP 2
BJUMP 8, 1
CREATE 1, 2, 1 			;jack baun
TRANS 4, 1		 	;haupt bank rüba
TRANS 3, 2			;die bank rüba
SET %Active, 1			;aktivieren
CREATE 2, 3, 0			;wall baun
TRANS 5, 1			;start rübba
TRANS 6, 2			;main rübba
TRANS 3, 3			;die rübba
SET %Active, 1
TURN 1				;rechts drehen
ADD #2, 500
JUMP @beginnn

Bank Final Destination (8)

ADD #6, 1
SET #4, %Banks
COMP #10, 1
JUMP 3 
TRANS 10, 1
JUMP 25 
COMP #4, 2
JUMP 4
TRANS 10, 1
TRANS 9, 2
JUMP 20 
COMP #4, 3
JUMP 5
TRANS 10, 1
TRANS 9, 2
TRANS 10, 3
JUMP 14 
COMP #4, 4
JUMP 6
TRANS 10, 1
TRANS 9, 2
TRANS 10, 3
TRANS 10, 4
JUMP 7
COMP #4, 5
TRANS 10, 1
TRANS 9, 2
TRANS 10, 3
TRANS 10, 4
TRANS 10, 5
TURN 1
COMP #6, 5
JUMP -32
DIE

Bank Last sonde (9)

ADD #6, 1
SET #4, %Banks
COMP #4, 1
JUMP 3 
TRANS 1, 1
JUMP 25 
COMP #4, 2
JUMP 4
TRANS 1, 1
TRANS 2, 2
JUMP 20 
COMP #4, 3
JUMP 5
TRANS 1, 1
TRANS 2, 2
TRANS 1, 3
JUMP 14 
COMP #4, 4
JUMP 6
TRANS 1, 1
TRANS 2, 2
TRANS 1, 3
TRANS 1, 4
JUMP 7
COMP #4, 5
TRANS 1, 1
TRANS 2, 2
TRANS 1, 3
TRANS 1, 4
TRANS 1, 5
TURN 1
COMP #6, 5
JUMP -32
DIE

Bank 10

BJUMP 2, 1