fun with filter

[Betelgeuse]

filter is a nice and fun function that can make things that seemed slow and painful before easy.

look at this bit of code

Code: Select all

;first let's get all the asteroids
(setq miningAsteroids (sysFindObject gSource "t:asteroid"))
;then filter out all the ones without ore	
(setq miningAsteroids (filter miningAsteroids asteroid (objGetItems asteroid "*U +Ore")))

;find the closest one
(loop miningAsteroids
	(block nil
		;make a guess that the first one on the list is the closest
		(setq guessAsteroid (item miningAsteroids 0))
		;filter out any asteroids that are farther away or the same distance
		(setq miningAsteroids (filter miningAsteroids asteroid
			(ls (objGetDistance asteroid gSource) (objGetDistance guessAsteroid gSource))))
	)
)

It finds the closest asteroid with ore in it. You can put this in a device or a consumable item and have the player ship target it but that wasn't the point. The point is to show off what filter can do.

[Periculi]

Ok, I am thinking that filter is going to be one of my new favorite functions.

Cute exploit, Betel.

[evilbob]

woah, that's some awesome code, I'll have to try it sometime.

Time to ponder uses past selecting stuff...

[FAD]

Time to ponder uses past selecting stuff...

Yeah, like targeting all wrecks within the system and make them go boom!
...after looting them, of course.

[Periculi]

Yeah, like targeting all wrecks within the system and make them go boom!
...after looting them, of course.

That's an interesting idea!

I wonder...

[evilbob]

Sadly my imagination seems limited to selecting the closest enemy or friendly station

[Betelgeuse]

hmm FAD that could be an interesting idea but instead of exploding after you loot them they explode after a certain amount of time. (after they are checked so many times make them explode)
It would solve the wrecks problem and make an interesting problem, you see a wreck sitting there do you risk looting knowing that it might explode.

[Aury]

I know what I can use this for...

[F50]

I know what I can use this for...

...Out...of...loop...must...ask. What?

[Petrus]

Can you bind a key that makes your targeting ROM make the current ship type the "preferred" target of your omni weapon or missiles?

[Aury]

I know what I can use this for...

...Out...of...loop...must...ask. What?

(with modifications to it)
1) CSC mission fix
2) delivery transport code
3) missile targeting system
4) ship control codes

[FAD]

hmm FAD that could be an interesting idea but instead of exploding after you loot them they explode after a certain amount of time. (after they are checked so many times make them explode)
It would solve the wrecks problem and make an interesting problem, you see a wreck sitting there do you risk looting knowing that it might explode.

That sounds even better. And having each one set at random timers to make it even more interesting.

[Betelgeuse]

well having one random event per system to check that would save cpu. You can still make it that it is random (just have each wreck store a random number when first checked and decrement it each time you check it and when it reaches zero boom)

[Periculi]

(filter (sysGetNodes) node (eq (sysGetLevel node) 2))

(filter (sysGetNodes) node (eq (sysHasAttribute node "outerRealm") True))

8)

[Betelgeuse]

(filter (sysGetNodes) node (sysHasAttribute node "outerRealm"))

(filter (sysGetNodes) node (sysGetStarGates node))
(filter (sysGetNodes) node (not (sysGetStarGates node)))
(filter (sysGetNodes) node (sysGetData node "Visited"))