updates to R-DOCKED

daelsepara · Sep 8, 2020 · e49aabf · e49aabf
1 parent ee30d57
commit e49aabf
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/wartorn.zil b/src/wartorn.zil
@@ -617,6 +617,7 @@
 						)>
 					)(<AND <EQUAL? .TYPE ,R-DOCKED> .REQUIREMENTS <L=? .CHOICE <GET .REQUIREMENTS 0>>>
 						<COND (<CHECK-DOCKED .LIST>
+							<COND (<N=? ,CURRENT-SHIP <CHECK-DOCKED .LIST>> <SETG CURRENT-SHIP <CHECK-DOCKED .LIST>>)>
 							<SETG HERE <GET .DESTINATIONS .CHOICE>>
 							<CRLF>
 						)(ELSE