mirror of
https://github.com/richardharrington/robotwar.git
synced 2024-05-28 08:41:28 +00:00
separated source programs out into regular and dev
This commit is contained in:
Richard Harrington
parent
07bb7db5c9
commit
d03d64bd6a
|
|
@ -12,7 +12,7 @@
|
|||
|
||||
|
||||
(def progs
|
||||
(repeat 3 (:mover source-programs/programs)))
|
||||
(repeat 3 (:mover source-programs/dev-programs)))
|
||||
(def world
|
||||
(world/init-world progs))
|
||||
(defn combined-worlds []
|
||||
|
|
|
|||
|
|
@ -1,137 +1,156 @@
|
|||
(ns robotwar.source-programs)
|
||||
|
||||
(def programs
|
||||
{:multi-use
|
||||
" START
|
||||
0 TO A
|
||||
TEST
|
||||
IF A > 2 GOTO START
|
||||
GOSUB INCREMENT
|
||||
GOTO TEST
|
||||
100 TO A
|
||||
INCREMENT
|
||||
A + 1 TO A
|
||||
ENDSUB
|
||||
200 TO A "
|
||||
{
|
||||
:speedy
|
||||
"
|
||||
140 TO SPEEDX
|
||||
250 TO SPEEDY
|
||||
"
|
||||
|
||||
:index-data
|
||||
; to test the INDEX/DATA pair of registers
|
||||
" 300 TO A
|
||||
1 TO INDEX
|
||||
DATA TO B"
|
||||
:mover
|
||||
"
|
||||
; Note: # means !=
|
||||
|
||||
:random
|
||||
; to test the RANDOM register
|
||||
" 1000 TO RANDOM
|
||||
RANDOM TO A
|
||||
RANDOM TO A
|
||||
RANDOM TO A
|
||||
RANDOM TO A
|
||||
RANDOM TO A "
|
||||
360 TO RANDOM
|
||||
RANDOM TO AIM ; Set a random direction to aim the gun
|
||||
|
||||
:speedy
|
||||
" 140 TO SPEEDX
|
||||
250 TO SPEEDY "
|
||||
256 TO RANDOM ; All random numbers will now have as their maximum
|
||||
; the width and height of the arena (in meters).
|
||||
|
||||
:mover
|
||||
"
|
||||
; Note: # means !=
|
||||
LOOP
|
||||
0 TO SPEEDX ; STOP THE ROBOT!
|
||||
0 TO SPEEDY
|
||||
RANDOM TO A ; Store a random X-coordinate in the arena.
|
||||
RANDOM TO B ; Store a random Y-coordinate in the arena.
|
||||
|
||||
360 TO RANDOM
|
||||
RANDOM TO AIM ; Set a random direction to aim the gun
|
||||
MOVE
|
||||
AIM + 5 TO AIM
|
||||
IF A # X GOSUB MOVEX ; If we're moving in the X direction, recalibrate SPEEDX.
|
||||
TO N ; N is for no-op. (needed because there's no ELSE command).
|
||||
IF B # Y GOSUB MOVEY ; If we're moving in the Y direction, recalibrate SPEEDY.
|
||||
IF A = X GOTO LOOP ; A = X and B = Y, so we've stopped moving, so start over.
|
||||
GOTO MOVE ; Continue to move.
|
||||
|
||||
256 TO RANDOM ; All random numbers will now have as their maximum
|
||||
; the width and height of the arena (in meters).
|
||||
MOVEX
|
||||
A - X TO SPEEDX ; Take distance from destination in meters and use
|
||||
; it to set SPEEDX, which is measured in decimeters/second.
|
||||
ENDSUB
|
||||
|
||||
LOOP
|
||||
0 TO SPEEDX ; STOP THE ROBOT!
|
||||
0 TO SPEEDY
|
||||
RANDOM TO A ; Store a random X-coordinate in the arena.
|
||||
RANDOM TO B ; Store a random Y-coordinate in the arena.
|
||||
MOVEY
|
||||
B - Y TO SPEEDY ; Take distance from destination in meters and use
|
||||
; it to set SPEEDY, which is measured in decimeters/second.
|
||||
ENDSUB
|
||||
"
|
||||
|
||||
MOVE
|
||||
AIM + 5 TO AIM
|
||||
IF A # X GOSUB MOVEX ; If we're moving in the X direction, recalibrate SPEEDX.
|
||||
TO N ; N is for no-op. (needed because there's no ELSE command).
|
||||
IF B # Y GOSUB MOVEY ; If we're moving in the Y direction, recalibrate SPEEDY.
|
||||
IF A = X GOTO LOOP ; A = X and B = Y, so we've stopped moving, so start over.
|
||||
GOTO MOVE ; Continue to move.
|
||||
:left-shooter
|
||||
"
|
||||
; Note: # means !=
|
||||
|
||||
MOVEX
|
||||
A - X TO SPEEDX ; Take distance from destination in meters and use
|
||||
; it to set SPEEDX, which is measured in decimeters/second.
|
||||
ENDSUB
|
||||
90 TO AIM ; Set the gun to shoot right
|
||||
|
||||
MOVEY
|
||||
B - Y TO SPEEDY ; Take distance from destination in meters and use
|
||||
; it to set SPEEDY, which is measured in decimeters/second.
|
||||
ENDSUB "
|
||||
15 TO A ; Set the coordinates for the left side.
|
||||
128 TO B
|
||||
|
||||
:left-shooter
|
||||
"
|
||||
; Note: # means !=
|
||||
MOVE
|
||||
IF A # X GOSUB MOVEX ; If we're moving in the X direction, recalibrate SPEEDX.
|
||||
TO N ; N is for no-op. (needed because there's no ELSE command).
|
||||
IF B # Y GOSUB MOVEY ; If we're moving in the Y direction, recalibrate SPEEDY.
|
||||
IF A = X GOTO SHOOT ; A = X and B = Y, so we've stopped moving, so shoot.
|
||||
GOTO MOVE ; Continue to move.
|
||||
|
||||
90 TO AIM ; Set the gun to shoot right
|
||||
MOVEX
|
||||
A - X TO SPEEDX ; Take distance from destination in meters and use
|
||||
; it to set SPEEDX, which is measured in decimeters/second.
|
||||
ENDSUB
|
||||
|
||||
15 TO A ; Set the coordinates for the left side.
|
||||
128 TO B
|
||||
MOVEY
|
||||
B - Y TO SPEEDY ; Take distance from destination in meters and use
|
||||
; it to set SPEEDY, which is measured in decimeters/second.
|
||||
ENDSUB
|
||||
|
||||
MOVE
|
||||
IF A # X GOSUB MOVEX ; If we're moving in the X direction, recalibrate SPEEDX.
|
||||
TO N ; N is for no-op. (needed because there's no ELSE command).
|
||||
IF B # Y GOSUB MOVEY ; If we're moving in the Y direction, recalibrate SPEEDY.
|
||||
IF A = X GOTO SHOOT ; A = X and B = Y, so we've stopped moving, so shoot.
|
||||
GOTO MOVE ; Continue to move.
|
||||
SHOOT
|
||||
200 TO SHOT
|
||||
GOTO MOVE
|
||||
"
|
||||
|
||||
MOVEX
|
||||
A - X TO SPEEDX ; Take distance from destination in meters and use
|
||||
; it to set SPEEDX, which is measured in decimeters/second.
|
||||
ENDSUB
|
||||
:top-shooter
|
||||
"
|
||||
; Note: # means !=
|
||||
|
||||
MOVEY
|
||||
B - Y TO SPEEDY ; Take distance from destination in meters and use
|
||||
; it to set SPEEDY, which is measured in decimeters/second.
|
||||
ENDSUB
|
||||
180 TO AIM ; Set the gun to shoot down
|
||||
|
||||
SHOOT
|
||||
200 TO SHOT
|
||||
GOTO MOVE "
|
||||
128 TO A ; Set the coordinates for the top.
|
||||
15 TO B
|
||||
|
||||
:top-shooter
|
||||
"
|
||||
; Note: # means !=
|
||||
MOVE
|
||||
IF A # X GOSUB MOVEX ; If we're moving in the X direction, recalibrate SPEEDX.
|
||||
TO N ; N is for no-op. (needed because there's no ELSE command).
|
||||
IF B # Y GOSUB MOVEY ; If we're moving in the Y direction, recalibrate SPEEDY.
|
||||
IF A = X GOTO SHOOT ; A = X and B = Y, so we've stopped moving, so shoot.
|
||||
GOTO MOVE ; Continue to move.
|
||||
|
||||
180 TO AIM ; Set the gun to shoot down
|
||||
MOVEX
|
||||
A - X TO SPEEDX ; Take distance from destination in meters and use
|
||||
; it to set SPEEDX, which is measured in decimeters/second.
|
||||
ENDSUB
|
||||
|
||||
128 TO A ; Set the coordinates for the top.
|
||||
15 TO B
|
||||
MOVEY
|
||||
B - Y TO SPEEDY ; Take distance from destination in meters and use
|
||||
; it to set SPEEDY, which is measured in decimeters/second.
|
||||
ENDSUB
|
||||
|
||||
MOVE
|
||||
IF A # X GOSUB MOVEX ; If we're moving in the X direction, recalibrate SPEEDX.
|
||||
TO N ; N is for no-op. (needed because there's no ELSE command).
|
||||
IF B # Y GOSUB MOVEY ; If we're moving in the Y direction, recalibrate SPEEDY.
|
||||
IF A = X GOTO SHOOT ; A = X and B = Y, so we've stopped moving, so shoot.
|
||||
GOTO MOVE ; Continue to move.
|
||||
SHOOT
|
||||
200 TO SHOT
|
||||
GOTO MOVE
|
||||
"
|
||||
|
||||
MOVEX
|
||||
A - X TO SPEEDX ; Take distance from destination in meters and use
|
||||
; it to set SPEEDX, which is measured in decimeters/second.
|
||||
ENDSUB
|
||||
:shooter
|
||||
"
|
||||
90 TO AIM
|
||||
200 - Y TO S
|
||||
SHOOT
|
||||
S TO SHOT
|
||||
GOTO SHOOT
|
||||
"
|
||||
})
|
||||
|
||||
MOVEY
|
||||
B - Y TO SPEEDY ; Take distance from destination in meters and use
|
||||
; it to set SPEEDY, which is measured in decimeters/second.
|
||||
ENDSUB
|
||||
(def dev-programs
|
||||
(merge
|
||||
programs
|
||||
{
|
||||
:multi-use
|
||||
"
|
||||
START
|
||||
0 TO A
|
||||
TEST
|
||||
IF A > 2 GOTO START
|
||||
GOSUB INCREMENT
|
||||
GOTO TEST
|
||||
100 TO A
|
||||
INCREMENT
|
||||
A + 1 TO A
|
||||
ENDSUB
|
||||
200 TO A
|
||||
"
|
||||
|
||||
SHOOT
|
||||
200 TO SHOT
|
||||
GOTO MOVE "
|
||||
:index-data
|
||||
; to test the INDEX/DATA pair of registers
|
||||
"
|
||||
300 TO A
|
||||
1 TO INDEX
|
||||
DATA TO B
|
||||
"
|
||||
|
||||
:shooter
|
||||
"
|
||||
90 TO AIM
|
||||
200 - Y TO S
|
||||
SHOOT
|
||||
S TO SHOT
|
||||
GOTO SHOOT "
|
||||
})
|
||||
:random
|
||||
; to test the RANDOM register
|
||||
"
|
||||
1000 TO RANDOM
|
||||
RANDOM TO A
|
||||
RANDOM TO A
|
||||
RANDOM TO A
|
||||
RANDOM TO A
|
||||
RANDOM TO A
|
||||
"
|
||||
|
||||
}))
|
||||
|
|
|
|||
|
|
@ -7,7 +7,7 @@
|
|||
[robotwar.source-programs :as source-programs]))
|
||||
|
||||
(def initial-world
|
||||
(world/init-world [(:multi-use source-programs/programs)]))
|
||||
(world/init-world [(:multi-use source-programs/dev-programs)]))
|
||||
|
||||
(def combined-worlds (world/build-combined-worlds initial-world))
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user