2 files changed, 118 insertions, 0 deletions
diff --git a/programs/mine.rob b/programs/mine.rob
new file mode 100644
index 0000000..8c37a6a
--- /dev/null
+++ b/programs/mine.rob
@@ -0,0 +1,18 @@
+; RoboCombat program
+
+Published Name Mine
+Published Author Dennis C. Bemmann
+;Country Germany
+
+Bank MINE
+  @Loop
+  Turn 1             ; Turn right.
+  Set %Active, 0     ; Deactivate potential enemy.
+  Scan #1            ; Scan the field.
+  Comp #1, 1         ; Is an enemy?
+  Jump @Loop         ; No, turn again.
+  Trans 2, 1         ; Transfer Black Bank.
+  Set %Active, 1     ; Reactivate.
+                     ; Auto-Reboot
+Bank MINE MORTAL
+  Die                ; The classic Black Bank.
+\ No newline at end of file
diff --git a/programs/wl.rob b/programs/wl.rob
new file mode 100644
index 0000000..c1b47f0
--- /dev/null
+++ b/programs/wl.rob
@@ -0,0 +1,100 @@
+Published Name WL
+Published Author Tom Smeding
+Published Language RC300
+Published OptionSet RC3 Standards
+
+Define &code_lostbattle { 100 }
+Define &code_wonbattle { 200 }
+Define &code_killahead { 300 }
+Define &code_justdie { 666 }
+
+Bank WallBuild
+	comp #active, &code_justdie
+	jump @WB.startbuild
+	die
+@WB.startbuild
+	scan #1
+	comp #1, 0
+	jump @WB.notempty
+	create 2, 1, 0
+	scan #1
+	comp #1, 2
+	jump @WB.enemyfound
+	comp #active, 1
+	jump @WB.cancelbuild
+	trans 1, 1
+	set %active, 1
+	jump @WB.wait
+
+@WB.cancelbuild
+	set %active, &code_justdie
+@WB.justdie
+	die
+
+@WB.wait
+	comp #active, &code_lostbattle
+	jump @WB.wait.1
+	jump @WB.lostbattle
+@WB.wait.1
+	comp #active, &code_wonbattle
+	jump @WB.wait.2
+	jump @WB.wonbattle
+@WB.wait.2
+	comp #active, &code_killahead
+	jump @WB.wait
+	jump @WB.killahead
+
+@WB.notempty
+	comp #1, 1
+	jump @WB.walldone
+@WB.enemyfound
+	set %active, 0
+	comp #active, 1
+	jump @WB.wonbattle.pre.signalloss
+	set %active, &code_wonbattle
+	jump @WB.lostbattle
+
+@WB.lostbattle
+	turn 1
+	turn 1
+	scan #1
+	comp #1, 2
+	jump @WB.disabled
+	set %active, &code_lostbattle
+	die
+
+@WB.wonbattle.pre.signalloss
+	set %active, &code_lostbattle
+@WB.wonbattle
+	scan #1
+	comp #1, 2
+	jump @WB.wonbattle.1
+	set %active, &code_killahead
+@WB.wonbattle.1
+	turn 1
+	turn 1
+	scan #1
+	comp #1, 2
+	jump @WB.leader
+	set %active, &code_wonbattle
+	die
+
+@WB.killahead
+	scan #1
+	comp #1, 2
+	die
+	set %active, &code_killahead
+	die
+
+@WB.walldone
+	turn 1
+	jump @WB.walldone
+
+@WB.disabled
+	set #active, 0
+
+@WB.leader
+	turn 0
+	turn 0
+	turn 1
+	jump @WB.leader