modify warrior set

warriors/bait.red

@@ -1,5 +1,5 @@
 ;author Benji Dial
-;name Big Nothing
+;name Bait
 
 start
   for 19

warriors/dwarf-replicator.red

@@ -1,55 +0,0 @@
-;author Benji Dial
-;name Dwarf Replicator
-
-;not a particularly good warrior, but is sufficient to test a few things
-
-start
-  mov 0, 2908
-  nop }start, >start
-  jmp 2
-
-  dat
-
-  seq.a #the_end - start, start
-  jmp start
-  jmp 2
-
-  dat
-
-  sub.ab #the_end - start, start
-  spl @start
-  jmp 2, <start
-
-  dat
-
-dwarf
-  mov the_end, the_end + 4
-  add.ab #4, dwarf
-  jmp 2
-
-  dat
-
-  seq.ab #start + 723 - dwarf, dwarf
-  jmp dwarf
-  jmp 2
-
-  dat
-
-core_clear
-  mov the_end, the_end + 1
-  add.ab #1, -1
-  jmp 2
-
-  dat
-
-  seq.a #0-1, core_clear
-  jmp core_clear
-  jmp 2
-
-  dat
-
-  mov.ab #the_end + 1, core_clear
-  jmp core_clear
-  dat
-
-the_end

warriors/dwarf.red

@@ -2,5 +2,5 @@
 ;name Dwarf
 
 mov 3, 7
-add.ab #4, -1
+add.ab #4948, -1
 jmp -2

warriors/train.red

@@ -0,0 +1,25 @@
+;author Benji Dial
+;name Train
+
+step equ 4943
+
+  spl 1
+  spl 1
+  spl 1
+
+paper
+  mov.f var + 1, var
+  spl @var
+  mov }var, >var
+
+  mov.a #step / 2, the_end + 2
+
+stone
+  mov the_end + 1, }the_end + 2
+  jmp stone, }the_end + 2
+
+var
+  dat
+  dat paper + 1, paper + step + 1
+
+the_end