Added support for more GS queries

ba-st · Jan 12, 2024 · 6f33f34 · 6f33f34
1 parent 4ed4a91
commit 6f33f34
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/source/Buoy-GS64-Compatibility/GsQuery.class.st b/source/Buoy-GS64-Compatibility/GsQuery.class.st
@@ -57,8 +57,11 @@ GsQuery >> on: anUnorderedCollection [
 			             each name = 'SDF-1' and: ( each fleet anySatisfy: [ :ship | ship name = 'VF-1D' ] ) ]
 		].
 
-	( queryString includesSubstring: 'firepower' ) ifTrue: [
-		^ results := anUnorderedCollection select: [ :each | each firepower between: 2117 + 1 and: 8000 ] ]
+	( queryString includesSubstring: '2117' ) ifTrue: [
+		^ results := anUnorderedCollection select: [ :each | each firepower between: 2117 + 1 and: 8000 ] ].
+
+	( queryString includesSubstring: '2001' ) ifTrue: [
+		^ results := anUnorderedCollection select: [ :each | each firepower between: 2001 and: 6000 - 1 ] ]
 ]
 
 { #category : 'accessing' }