diff --git a/TransCore/BattleArena.xml b/TransCore/BattleArena.xml
index bad67ceb..410368a2 100644
--- a/TransCore/BattleArena.xml
+++ b/TransCore/BattleArena.xml
@@ -172,6 +172,9 @@
 				(block (
 					(arenaRank (typGetData &stBattleArena; 'arenaRank))
 					(katamiStatus (typGetData &stBattleArena; 'katamiStatus))
+					(usedIllegal (typGetData &stBattleArena; 'usedIllegal))
+					(usedMilitary (typGetData &stBattleArena; 'usedMilitary))
+					(usedAlien (typGetData &stBattleArena; 'usedAlien))
 					)
 					(append
 						(if (and arenaRank (!= arenaRank 'rookie))
@@ -189,7 +192,29 @@
 								(typTranslate &unidCommonText; 'achievementsAndRegrets)
 								))
 							)
-
+						
+						(if usedIllegal
+							(list (list
+								"Used illegal items in the Arena"
+								Nil
+								(typTranslate &unidCommonText; 'notes)
+								))
+							)
+						(if usedMilitary
+							(list (list
+								"Used military items in the Arena"
+								Nil
+								(typTranslate &unidCommonText; 'notes)
+								))
+							)
+						(if usedAlien
+							(list (list
+								"Used alien items in the Arena"
+								Nil
+								(typTranslate &unidCommonText; 'notes)
+								))
+							)
+							
 						;	Missions
 						(rpgMissionAchievements &stBattleArena; "* +gladiatorFight;")
 						)
diff --git a/TransCore/BattleArenaChallenger.xml b/TransCore/BattleArenaChallenger.xml
index cf32009e..a06bdcfd 100644
--- a/TransCore/BattleArenaChallenger.xml
+++ b/TransCore/BattleArenaChallenger.xml
@@ -39,6 +39,11 @@
 			>
 
 		<Events>
+			<GetGlobalAchievements>
+				(if (typGetData &msBattleArenaChallenger; 'shatteredSlicer)
+					(list (list "Invoked Shatter on The Slicer in the Arena" Nil (typTranslate &unidCommonText; 'notes)))
+					)
+			</GetGlobalAchievements>
 			<OnCreate>
 				(switch
 					;	This mission only works in Rigel Aurelius
@@ -86,6 +91,9 @@
 
 			<OnCompleted>
 				(block Nil
+					(if (eq (msnGetData gSource 'destroyReason) 'shatter)
+						(typSetData &msBattleArenaChallenger; 'shatteredSlicer True)
+						)
 					(msnSetData gSource 'nextSoundTrack &muArenaChampion;)
 					(typFireObjEvent &msBattleArenaFight; gSource 'OnCompleted)
 					(switch
diff --git a/TransCore/BattleArenaFight.xml b/TransCore/BattleArenaFight.xml
index d16b8442..2c4f7cec 100644
--- a/TransCore/BattleArenaFight.xml
+++ b/TransCore/BattleArenaFight.xml
@@ -129,6 +129,18 @@
 					(arenaObj (objGetObjByID (msnGetProperty gSource 'ownerID)))
 					(theShip (objGetObjByID (msnGetData gSource 'opponentID)))
 					)
+					
+					;	Note whether player is using military or illegal items
+					(if (objGetItems gPlayerShip "*I +military;")
+						(typSetData &stBattleArena; 'usedMilitary True)
+						)
+					(if (objGetItems gPlayerShip "*I +illegal;")
+						(typSetData &stBattleArena; 'usedIllegal True)
+						)
+					(if (objGetItems gPlayerShip "*I +alien;")
+						(typSetData &stBattleArena; 'usedAlien True)
+						)
+					
 					;	Position the opponent at the right spot
 					(objMoveTo theShip (sysVectorPolarOffset arenaObj (random 204 336) 45))
 					(objResume theShip)
@@ -383,6 +395,9 @@
 					(block (
 						(fightTime (msnGetData gSource 'fightTime))
 						)
+						
+						(msnSetData gSource 'destroyReason aDestroyReason)
+						
 						;	Adjust timers in case we miss the window
 						(if (gr (msnGetData gSource 'timeTo50) fightTime) (msnSetData gSource 'timeTo50 fightTime))
 						(if (gr (msnGetData gSource 'timeTo25) fightTime) (msnSetData gSource 'timeTo25 fightTime))
diff --git a/TransCore/Code.xml b/TransCore/Code.xml
index 76e8242c..ba65ba8d 100644
--- a/TransCore/Code.xml
+++ b/TransCore/Code.xml
@@ -90,7 +90,9 @@
 				(block (theList 
 						resurrectCount
 						totalGMProfit totalArmsProfit totalEquipProfit totalMedsProfit totalLuxProfit totalIllegalProfit
+						totalItemsConfiscated
 						friendlyShipsDestroyed friendlyStationsDestroyed
+						killsByAutons killsByWingmen
 						systemData neverBacktracked
 						slavesFreed slaveSales
 						neverReachedBA neverReachedStK neverReachedJiangs neverReachedPointJuno neverReachedHeretic)
@@ -118,12 +120,17 @@
 						(plyGetItemStat gPlayer "itemsBoughtValue" "*~wsam +Illegal"))
 						)
 						
+					(setq totalItemsConfiscated (objGetData gPlayerShip 'totalConfiscatedList))
+						
 					; Conducts
 					(setq systemData (plyGetStat gPlayer "systemData"))
 					(setq neverBacktracked (not (filter systemData theData (not (eq (item theData 1) (item theData 2))))))
 					(setq friendlyShipsDestroyed (plyGetStat gPlayer "friendlyShipsDestroyed"))
 					(setq friendlyStationsDestroyed (plyGetStat gPlayer "friendlyStationsDestroyed"))
 					
+					(setq killsByAutons (objGetData gPlayerShip 'killsByAutons))
+					(setq killsByWingmen (objGetData gPlayerShip 'killsByWingmen))
+					
 					; Exploration
 					(setq neverReachedBA (not (find systemData "BA" 0)))
 					(setq neverReachedStK (not (find systemData "SK" 0)))
@@ -164,6 +171,13 @@
 								(list (list "Never destroyed friendly stations" Nil "conducts"))
 								)
 							)
+						
+						(if killsByAutons
+							(list (list "Kills by autons" killsByAutons (typTranslate &unidCommonText; 'autonsAndWingmen) -1))
+							)
+						(if killsByWingmen
+							(list (list "Kills by wingmen" killsByWingmen (typTranslate &unidCommonText; 'autonsAndWingmen) -1))
+							)
 							
 						; Exploration
 						(if	neverReachedBA
@@ -204,6 +218,10 @@
 							(list (list "Profit on ship's equipment" totalEquipProfit "commerce"))
 							)
 							
+						(if totalItemsConfiscated
+							(map (@ totalItemsConfiscated) theItemName (list theItemName (@ totalItemsConfiscated theItemName) "items confiscated"))
+							)
+							
 						; Slave sales
 						(if slaveSales
 							(list (list "Profit on slave sales" slaveSales "commerce"))
@@ -214,7 +232,8 @@
 							(list (list "Slaves freed" slavesFreed "missions &amp; activities"))
 							)
 						))
-						
+					
+					
 					theList
 					)
 				))
diff --git a/TransCore/Commonwealth.xml b/TransCore/Commonwealth.xml
index 9fef4f9e..85c27bf6 100644
--- a/TransCore/Commonwealth.xml
+++ b/TransCore/Commonwealth.xml
@@ -1609,7 +1609,7 @@
 		<Panes>
 			<Default>
 				<OnPaneInit>
-					(block (desc itemToRemove itemsToConfiscate)
+					(block (desc itemToRemove itemsToConfiscate playerData)
 					
 						; If we don't have a smuggler's cargo hold, then we confiscate
 						; all illegal items.
@@ -1627,11 +1627,17 @@
 								))
 							)
 					
-						; Remove items
+						(setq recordList (objGetData gPlayerShip 'totalConfiscatedList))
+						; Remove items (and track losses at the player's expense)
 						(enum itemsToConfiscate itemToRemove
-							(objRemoveItem gPlayerShip itemToRemove)
+							(block (itemName)
+								(setq itemName (itmGetName itemToRemove (list 'plural 'actual)))
+								(set@ recordList itemName (add (@ recordList itemName) (itmGetCount itemToRemove)))
+								(objRemoveItem gPlayerShip itemToRemove)
+								)
 							)
-
+						(objSetData gPlayerShip 'totalConfiscatedList recordList)
+						
 						; Compose text
 						(setq desc "Commonwealth Customs has inspected your ship's cargo hold and confiscated ")
 						(if (eq (count itemsToConfiscate) 1)
diff --git a/TransCore/Gaians.xml b/TransCore/Gaians.xml
index 8194e505..f079af3a 100644
--- a/TransCore/Gaians.xml
+++ b/TransCore/Gaians.xml
@@ -48,7 +48,64 @@
 				sound=				"&snRecoillessCannon;"
 				>
 		</Weapon>
-
+		<Events>
+			<GetGlobalAchievements>
+				(block	(
+							(wrecks (objGetData gPlayerShip 'demolitionWrecksDestroyed))
+							(enemies (objGetData gPlayerShip 'demolitionEnemiesDestroyed))
+							(friends (objGetData gPlayerShip 'demolitionFriendsDestroyed))
+							)
+					(print gType)
+					(append
+						(if wrecks
+							(list (list
+								"Wrecks destroyed by Gaian Demolition Cannon"
+								wrecks
+								(typTranslate &unidCommonText; 'notes)
+								1
+								))
+							)
+						(if enemies
+							(list (list
+								"Enemies destroyed by Gaian Demolition Cannon"
+								enemies
+								(typTranslate &unidCommonText; 'notes)
+								2
+								))
+							)
+						(if friends
+							(list (list
+								"Friends destroyed by Gaian Demolition Cannon"
+								friends
+								(typTranslate &unidCommonText; 'notes)
+								3
+								))
+							)
+						)
+					)
+			</GetGlobalAchievements>
+			<OnDestroyObj>
+				;	Track the player's kills for this item
+				(switch
+					(neq aDestroyer gPlayerShip)
+						Nil
+					
+					;	Wrecks
+					(objHasAttribute aObjDestroyed 'shipwreck)
+						(objIncData gPlayerShip 'demolitionWrecksDestroyed)
+					
+					(not (objIsShip aObjDestroyed))
+						Nil
+
+					;	Enemies
+					(objIsEnemy gPlayerShip aObjDestroyed)
+						(objIncData gPlayerShip 'demolitionEnemiesDestroyed)
+					
+					;	Friends
+					(objIncData gPlayerShip 'demolitionFriendsDestroyed)
+					)
+			</OnDestroyObj>
+		</Events>
 	</ItemType>
 
 	<!-- Gaian Processor -->
diff --git a/TransCore/Jenna.xml b/TransCore/Jenna.xml
index 6c77308f..e319c6f5 100644
--- a/TransCore/Jenna.xml
+++ b/TransCore/Jenna.xml
@@ -60,6 +60,7 @@
 			<Text id="ArmorRepaired">			"\"Good as new!\""</Text>
 			<Text id="AttackTargetAck">			"\"I got it!\""</Text>
 			<Text id="CancelAttackAck">			"\"Roger, I'm inbound\""</Text>
+			<Text id="DestroyedTarget">			"\"Done!\""</Text>
 			<Text id="FormUpAck">				"\"Roger, I'm inbound\""</Text>
 			<Text id="IcantAttackFriends">		"\"Aren't they the good guys?\""</Text>
 			<Text id="IcantAttackMyself">		"\"Yeah, right!\""</Text>
@@ -79,7 +80,6 @@
 			<Text id="WatchYourTargets">		"\"Hey, watch it!\""</Text>
 			<Text id="WingmanJoined">			"\"Ready for action, boss\""</Text>
 			<Text id="WingmanKilled">			"You have a sad feeling for a moment, then it passes"</Text>
-
 			<Text id="Intro">
 				(list
 					{
@@ -112,8 +112,9 @@
 
 		<Events>
 			<GetGlobalAchievements>
-				(block (theList status)
+				(block (theList status kills)
 					(setq status (typGetData &chJenna; "status"))
+					(setq kills (typGetData &chJenna; 'kills))
 
 					(if status
 						(setq theList (list
@@ -131,10 +132,17 @@
 								)
 							))
 						)
+					(if kills
+						(setq theList (append theList
+							(list (list "Kills by Jenna" kills (typTranslate &unidCommonText; 'autonsAndWingmen) 3))
+							))
+						)
 						
 					theList
 					)
 			</GetGlobalAchievements>
+			
+			
 
 			<OrderCreateShip>
 				(sysCreateShip &scRoninJenna; (@ gData 'pos) &svCommonwealth;)
diff --git a/TransCore/Penitents.xml b/TransCore/Penitents.xml
index 341f1f7d..86a47969 100644
--- a/TransCore/Penitents.xml
+++ b/TransCore/Penitents.xml
@@ -522,8 +522,77 @@
 				effect=				"&efDarkAcidBoltDefault;"
 				sound=				"&snRecoillessCannon;"
 				/>
+		<Events>
+			<GetGlobalAchievements>
+				(block	(
+							(killsPenitent (objGetData gPlayerShip 'absolutionKillsPenitent))
+							(killsEnemy (objGetData gPlayerShip 'absolutionKillsEnemy))
+							(killsFriend (objGetData gPlayerShip 'absolutionKillsFriend))
+							(killsTotal (add killsPenitent killsEnemy killsFriend))
+							)
+					(append
+						(if (gr killsTotal 0)
+							(list (list
+								"Ships destroyed by Penitent Cannon"
+								killsTotal
+								(typTranslate &unidCommonText; 'notes)
+								1
+								))
+							)
+						(if killsPenitent
+							(list (list
+								"Penitents destroyed by Penitent Cannon"
+								killsPenitent
+								(typTranslate &unidCommonText; 'notes)
+								2
+								))
+							)
+						(if killsEnemy
+							(list (list
+								(if killsPenitent
+									"Other enemies destroyed by Penitent Cannon"
+									"Enemies destroyed by Penitent Cannon"
+									)
+								killsEnemy
+								(typTranslate &unidCommonText; 'notes)
+								3
+								))
+							)
+						(if killsFriend
+							(list (list
+								"Friends destroyed by Penitent Cannon"
+								killsFriend
+								(typTranslate &unidCommonText; 'notes)
+								4
+								))
+							)
+						)
+					)
+			</GetGlobalAchievements>
+			<OnDestroyObj>
+				;	Track the player's kills for this item
+				(switch
+					(neq aDestroyer gPlayerShip)
+						Nil
+					
+					(not (objIsShip aObjDestroyed))
+						Nil
+					
+					;	Track irony
+					(objHasAttribute aObjDestroyed 'penitents)
+						(objIncData gPlayerShip 'absolutionKillsPenitent)
+
+					;	Enemies
+					(objIsEnemy gPlayerShip aObjDestroyed)
+						(objIncData gPlayerShip 'absolutionKillsEnemy)
+					
+					;	Friends
+					(objIncData gPlayerShip 'absolutionKillsFriend)
+					)
+			</OnDestroyObj>
+		</Events>
 	</ItemType>
-
+	
 	<!-- Level 4: PX3 Hexagene MAG -->
 
 	<ItemType UNID="&itPX3HexageneMAG;"
diff --git a/TransCore/RPGAnalyzers.xml b/TransCore/RPGAnalyzers.xml
index 8a6c1996..5fdb4ed8 100644
--- a/TransCore/RPGAnalyzers.xml
+++ b/TransCore/RPGAnalyzers.xml
@@ -250,6 +250,13 @@
 				You run the analyzer but are unable to reveal any additional information about %itemName%.
 			</Text>
 		</Language>
+		<Events>
+			<GetGlobalAchievements>
+				(if (not (typGetData &dsRPGAnalyzeItem; 'hasAnalyzedItems))
+					(list (list "Never analyzed any items" Nil (typTranslate &unidCommonText; 'notes)))
+					)
+			</GetGlobalAchievements>
+		</Events>
 	</DockScreen>
 
 <!-- GLOBAL FUNCTIONS ==========================================================
@@ -344,6 +351,8 @@
 						
 						(setq result (objFireItemEvent sourceObj itemToAnalyze 'OnAnalyzeItem))
 							(block Nil
+								(typIncData &dsRPGAnalyzeItem; 'hasAnalyzedItem True)
+								
 								(setq desc (@ result 'desc))
 								(setq modifiedItem (@ result 'modifiedItem))
 								)
@@ -352,6 +361,8 @@
 						
 						(not (itmIsKnown itemToAnalyze))
 							(block Nil
+								(typIncData &dsRPGAnalyzeItem; 'hasAnalyzedItem True)
+								
 								(itmSetKnown itemToAnalyze)
 								(setq desc (typTranslate &dsRPGAnalyzeItem; 'descIdentified {
 												itemName:(itmGetName itemToAnalyze '(article escapeQuotes))
diff --git a/TransCore/RPGAutons.xml b/TransCore/RPGAutons.xml
index 253fe5d3..8de6c56f 100644
--- a/TransCore/RPGAutons.xml
+++ b/TransCore/RPGAutons.xml
@@ -452,6 +452,18 @@
 						)
 					)
 			</OnCreate>
+
+			<OnDestroyObj>
+				(if (objGetProperty gSource 'playerWingman)
+					(block Nil
+						(if (eq (objGetTarget gSource) aObjDestroyed)
+							(objSendMessage gSender gSource (objTranslate gSource 'DestroyedTarget))
+							)
+						(objSetTypeData gSource 'kills (add (objGetTypeData gSource 'kills)))
+						(objIncData gPlayerShip 'killsByAutons)
+						)
+					)
+			</OnDestroyObj>
 			
 			<OnEnteredGate>
 				;	If we returned to a ship or non-gate station, convert back to an item
@@ -529,6 +541,7 @@
 			<String id="AttackTargetAck">"Auton order acknowledged"</String>
 			<Text id="DeployAck">(objTranslate gSource 'DeployAckString { autonName:(objGetName auton 0x01) } )</Text>
 			<String id="DeployAckString">"%autonName% online"</String>
+			<String id="DestroyedTarget">"Target destroyed"</String>
 			<String id="ErrNoSpaceToReturn">"Not enough space in cargo hold to return to ship"</String>
 			<String id="FormUpAck">"Auton order acknowledged"</String>
 			<String id="NiceShooting"></String>
diff --git a/TransCore/RPGCommonText.xml b/TransCore/RPGCommonText.xml
index 5a0b23e4..3a83ea45 100644
--- a/TransCore/RPGCommonText.xml
+++ b/TransCore/RPGCommonText.xml
@@ -38,6 +38,8 @@
 			<Text id="conducts">conducts</Text>
 			<Text id="criminalRecord">criminal record</Text>
 			<Text id="missionsAndActivities">missions &amp; activities</Text>
+			<Text id="notes">notes</Text>
+			<Text id="autonsAndWingmen">autons &amp; wingmen</Text>
 
 			<!-- Basic -->
 
diff --git a/TransCore/RPGUsefulItems.xml b/TransCore/RPGUsefulItems.xml
index 0265f0f8..ff6b6bea 100644
--- a/TransCore/RPGUsefulItems.xml
+++ b/TransCore/RPGUsefulItems.xml
@@ -207,6 +207,10 @@
 								itemToUseOn: dstItem
 								shipObj: theShip
 								}))
+								
+							(if (not (itmIsKnown dstItem))
+								(typSetData &dsRPGUseItemBase; 'hasUsedUnidentifiedItem True)
+								)
 
 							;	Restore the cursor position
 							(scrSetListCursor gScreen theCursor)
@@ -290,6 +294,13 @@
 
 			<Text id="descCanNotUse">You cannot use %useItem% on %dstItem%.</Text>
 		</Language>
+		<Events>
+			<GetGlobalAchievements>
+				(if (not (typGetData &dsRPGUseItemBase; 'hasUsedUnidentifiedItem))
+					(list (list "Never used any unidentified items" Nil (typTranslate &unidCommonText; 'notes)))
+					)
+			</GetGlobalAchievements>
+		</Events>
 	</DockScreen>
 
 
diff --git a/TransCore/RPGWingmen.xml b/TransCore/RPGWingmen.xml
index 3a114df9..c3caf561 100644
--- a/TransCore/RPGWingmen.xml
+++ b/TransCore/RPGWingmen.xml
@@ -203,6 +203,7 @@
 					""
 					)
 			</Text>
+			<String id="DestroyedTarget">"Target neutralized"</String>
 			<String id="FormUpAck">"Acknowledged"</String>
 			<String id="IcantAttackFriends">"Unable to comply"</String>
 			<String id="IcantAttackMyself">"Unable to comply"</String>
@@ -225,7 +226,6 @@
 			<String id="WatchYourTargets">"Watch your targets!"</String>
 			<String id="WingmanJoined">"Ready"</String>
 			<String id="WingmanKilled">Wingman killed</String>
-
 			<Text id="msgRefusesToDowngradeShip">
 
 				%name% refuses to switch to an inferior ship.
@@ -319,7 +319,7 @@
 					(sysAddObjRecurringTimerEvent 60 gSource "OnBehavior")
 					)
 			</OnCreate>
-
+			
 			<OnDestroy>
 				(switch
 					(eq (objGetCharacterData gSource 'status) 'returnedHome)
@@ -334,6 +334,18 @@
 						)
 					)
 			</OnDestroy>
+
+			<OnDestroyObj>
+				(if (objGetProperty gSource 'playerWingman)
+					(block Nil
+						(if (eq (objGetTarget gSource) aObjDestroyed)
+							(objSendMessage gSender gSource (objTranslate gSource 'DestroyedTarget))
+							)
+						(objSetCharacterData gSource 'kills (add (objGetCharacterData gSource 'kills) 1))
+						(objIncData gPlayerShip 'killsByWingmen)
+						)
+					)
+			</OnDestroyObj>
 			
 			<OnEnteredGate>
 				(if (eq (objGetData gSource "behavior") 'goingHome)
diff --git a/TransCore/Rama.xml b/TransCore/Rama.xml
index 76a86a05..b7043cf0 100644
--- a/TransCore/Rama.xml
+++ b/TransCore/Rama.xml
@@ -54,6 +54,7 @@
 			<Text id="ArmorRepaired">			"\"My ship's as good as new\""</Text>
 			<Text id="AttackTargetAck">			"\"Target acquired\""</Text>
 			<Text id="CancelAttackAck">			"\"Acknowledged\""</Text>
+			<Text id="DestroyedTarget">			"\"Target destroyed\""</Text>
 			<Text id="FormUpAck">				"\"Acknowledged\""</Text>
 			<Text id="IcantAttackFriends">		"\"I won't kill innocents!\""</Text>
 			<Text id="IcantAttackMyself">		"\"Someday, perhaps...\""</Text>
@@ -132,8 +133,9 @@
 		
 		<Events>
 			<GetGlobalAchievements>
-				(block (theList status)
+				(block (theList status kills)
 					(setq status (typGetGlobalData &chRama; "status"))
+					(setq kills (typGetData &chRama; 'kills))
 
 					(if status
 						(setq theList (list
@@ -152,6 +154,12 @@
 							))
 						)
 						
+					(if kills
+						(setq theList (append theList
+							(list (list "Kills by Rama" kills (typTranslate &unidCommonText; 'autonsAndWingmen) 4))
+							))
+						)
+						
 					theList
 					)
 			</GetGlobalAchievements>
diff --git a/TransCore/Volkov.xml b/TransCore/Volkov.xml
index cf14c7a8..f1968e33 100644
--- a/TransCore/Volkov.xml
+++ b/TransCore/Volkov.xml
@@ -242,6 +242,7 @@
 			<Text id="ArmorRepaired">			"\"Good! Armor is repaired\""</Text>
 			<Text id="AttackTargetAck">			"\"Da! Target acquired\""</Text>
 			<Text id="CancelAttackAck">			"\"Da! Returning now\""</Text>
+			<Text id="DestroyedTarget">			"\"Target destroyed\""</Text>
 			<Text id="FormUpAck">				"\"Da! Returning now\""</Text>
 			<Text id="IcantAttackFriends">		"\"Helena would not want me to\""</Text>
 			<Text id="IcantAttackMyself">		"\"Is joke?\""</Text>
@@ -296,8 +297,9 @@
 		
 		<Events>
 			<GetGlobalAchievements>
-				(block (theList status)
-				(setq status (typGetGlobalData &chVolkov; "status"))
+				(block (theList status kills)
+					(setq status (typGetGlobalData &chVolkov; "status"))
+					(setq kills (typGetData &chVolkov; 'kills))
 
 					(if status
 						(setq theList (list
@@ -315,6 +317,11 @@
 								)
 							))
 						)
+					(if kills
+						(setq theList (append theList
+							(list (list "Kills by Volkov" kills (typTranslate &unidCommonText; 'autonsAndWingmen) 2))
+							))
+						)
 						
 					theList
 					)