AE Mod Collection

Post about your finished mods here.
Posts: 33
Joined: Mon Feb 13, 2017 1:37 am

Tue Feb 28, 2017 2:29 am

I'm enjoying TBR so far, but I've noticed that starting in Kibo with the AE - Playerships still errors out after generating the game. Zyr works fine, however. That said, I'm now exploring the new ships in TBR instead of using the Playerships mod - some real winners in there. :)

User avatar
Fleet Officer
Fleet Officer
Posts: 1024
Joined: Thu Aug 29, 2013 5:18 am
Location: On the other side of the screen.

Mon Jun 19, 2017 6:49 am

I’ve done another update on AE — Utility Pack, adding two new intro screen utilities. Intro Screen Janitor is conceptually similar to Intro Screen Sweeper, but with a ship that flies around to scuttle shipwrecks as they come up instead of simply having all of them explode at once. Intro Screen Target Acquired was written to give otherwise idle Viking IIs, Corsair IIs, and Viking chimeras hostile targets to attack instead of just sitting and twiddling their proverbial thumbs or aimlessly drifting off into infinity. The latter will likely be removed when George gets around to fixing the Ministry ticket the utility was written to rectify.

My mods on Xelerus: Click here!

Of all the things I’ve lost in life, I miss my mind the least. (I’m having a lot more fun without it!)

Militia Commander
Militia Commander
Posts: 460
Joined: Tue Mar 05, 2013 8:26 am

Mon Oct 02, 2017 6:51 am

I finally figured out how to address the last incorrect entry produced by AE Function Help.

The problem is that intTranslate is just a variable that's set to objTranslate (a primitive). So (eval 'intTranslate) returns objTranslate. In order to filter out aliases of primitives, we can use (neq (convertTo 'string (eval symbol)) symbol).

Here's my current version:

Code: Select all

<?xml version="1.0" ?>
<!DOCTYPE TranscendenceExtension
	<!ENTITY unidAEFunctionHelp	"0xDCC84000">
	<!ENTITY scAEFunctionHelp	"0xDCC84001">

<TranscendenceExtension UNID="&unidAEFunctionHelp;"
	name="Avian Enterprises - Function Help (modified)"
    credits="AssumedPseudonym; improvements by NMS"

	<ShipClass UNID="&scAEFunctionHelp;"
		type=				"Function List Generating"
				(block nil
					(sysAddObjTimerEvent 2 gSource 'AEBoom)
					(sysAddTypeTimerEvent 1 &scAEFunctionHelp; 'Run)
				(block (aeFunctionList aeDeprecatedList helpText)
					(enum (sysGlobals) symbol
							(not (isPrimitive (eval symbol)))
							(neq (convertTo 'string (eval symbol)) symbol)
							(not (setq helpText (fncHelp (eval symbol))))
								(setq aeFunctionList (cat aeFunctionList "(" symbol " ...)\n"))
							(strFind helpText "DEPRECATED")
								(setq aeDeprecatedList (cat aeDeprecatedList symbol ":  " helpText "\n"))
							(setq aeFunctionList (cat aeFunctionList helpText "\n"))
					(printTo 'log (cat
						"\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nF U N C T I O N   L I S T\n\n"
						"\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\nD E P R E C A T E D   F U N C T I O N S\n\n"
				(objDestroy gSource)


Post Reply