<?xml version="1.0"?>
<!DOCTYPE TranscendenceExtension
	[
	;6300-Souped up Auton Bay
	;Mu for 'Multiverse'
	<!ENTITY MuSuAB							"0xE1286300">
	<!ENTITY vtCheckingstation				"0xE1286301">
	<!ENTITY dsRPCModifyAuton				"0xE1286302">
	<!ENTITY dsRPCRemoveItem				"0xE1286303">

	;overrides
	<!ENTITY dsAutonBay						"0x00810251">
	<!ENTITY dsAutonBay						"0x00810251">
	<!ENTITY dsAutonBayRepairArmor			"0x00810252">
	<!ENTITY dsAutonBayReplaceArmor			"0x00810253">
	<!ENTITY dsAutonBayInstallDevice		"0x00810254">
]>
<TranscendenceExtension UNID="&MuSuAB;" APIversion="22" name="Souped up Auton Bay" credit="RPC, Shrike for ideas, PM's Playership Drones for inspiration">

	<!--- This station will take care of all the work   --->

	<StationType UNID="&vtCheckingstation;"
		name=               "DockScreen Controller"
		scale=              "world"
		backgroundObject=   "true"
		sovereign=          "&svIndependent;"
		virtual=            "True"
		>
		<ImageVariants>
			<Image          imageID="&rsWorlds2;" imageX="0" imageY="0" imageWidth="1" imageHeight="1" />
		</ImageVariants>
	</StationType>

	<DockScreen UNID="&dsAutonBay;"
			type=				"itemPicker"
			backgroundID=		"&rsItemListScreen;"
			>
			<!--
-->
		<ListOptions
			dataFrom=	"player"
			list=		"* +auton;"

			initialItem="
				(or
					(not (scrGetData gScreen 'currentAuton))
					(itmIsEqual (scrGetItem gScreen) (scrGetData gScreen 'currentAuton))
					)"
			/>

		<Panes>
			<Default>
				<OnPaneInit>
					(block (autonItem autonConfig desc enableRepairs)

						(setq autonItem (scrGetItem gScreen))

						;	Compile the auton configuration, based either on the stored
						;	data or on the original auton ship class.

						(setq autonConfig (rpgGetAutonConfig autonItem))

						;	Set the description

						(switch
							(not autonItem)
								(setq desc "There are no autons in the bay.")

							(not autonConfig)
								(setq desc "Unknown auton")

							(not (itmIsKnown autonItem))
								(setq desc "Unfortunately, the bay cannot manipulate unknown autons.")

							(block (armorName armorCount armorHP armorMaxHP armorDamage weaponName shieldName miscName)

								;	Armor

								(setq armorCount 0)
								(setq armorHP 0)
								(setq armorMaxHP 0)
								(enum (@ autonConfig 'armor) armorDesc
									(block Nil
										(setq armorCount (add armorCount 1))
										(if (not armorName)
											(setq armorName (itmGetName (@ armorDesc 'item) 0x80))
											)
										(setq armorHP (add armorHP (@ armorDesc 'hp)))
										(setq armorMaxHP (add armorMaxHP (itmGetProperty (@ armorDesc 'item) 'completeHP)))
										)
									)

								(setq armorDamage
									(if (gr armorMaxHP 0)
										(divide (multiply 100 (subtract armorMaxHp armorHP)) armorMaxHP)
										0
										)
									)

								;	Devices

								(enum (@ autonConfig 'devices) deviceDesc
									(block (deviceItem deviceCat)
										(setq deviceItem (@ deviceDesc 'item))
										(setq deviceCat (itmGetProperty deviceItem 'category))

										(switch
											(eq deviceCat 'weapon)
												(setq weaponName (itmGetName deviceItem 0x80))

											(eq deviceCat 'shields)
												(setq shieldName (itmGetName deviceItem 0x80))

											(eq deviceCat 'device)
												(setq miscName (itmGetName deviceItem 0x80))
											)
										)
									)

								;	Compose

								(setq desc (cat
									"Armor: " (if armorName (cat armorName " &#xD7;" armorCount) "None")
									(if (gr armorDamage 0) (cat " (" armorDamage "% damaged)")) "\n"

									"Weapon: " (if weaponName weaponName "None") "\n"
									"Shields: " (if shieldName shieldName "None") "\n"
									(if miscName
										"Device: " miscName "\n"
										""
										)
									))

								(setq enableRepairs True)
								)
							)

						;	Initialize

						(scrSetDesc gScreen desc)
						(scrEnableAction gScreen 0 autonItem)
						(scrEnableAction gScreen 1 True)
						(scrEnableAction gScreen 2 enableRepairs)
						(scrEnableAction gScreen 3 enableRepairs)
						)
				</OnPaneInit>

				<Actions>
					<Action name="Scramble All" default="1" key="S">
						(block (autonItem)
							(enum (ObjGetItems gPlayership "* +auton;") autonitem (block Nil
								(plyUseItem gPlayer autonItem)
								))
							(scrExitScreen gScreen)
							)
					</Action>

					<Action name="Recall All" default="1" key="R">
						(block (autonItem)
							;enumerate through autons
							(enum (sysFindObject nil "*s") autoncandidate (block Nil
								(switch
									(ObjGetData autoncandidate "invoked")
										(block Nil
											(switch

												;	Make sure that there is enough cargo space in the ship to
												;	hold the auton.

												(gr (objFireEvent autoncandidate "CalcMass") (objGetCargoSpaceLeft gSource))
													(objSendMessage gSource autoncandidate (objTranslate autoncandidate 'ErrNoSpaceToReturn "\"Not enough space in cargo hold to return to ship\""))

												;	Return

												(block Nil
													(shpCancelOrders autoncandidate)
													(shpOrder autoncandidate 'gate gSource)

													(objSetData autoncandidate 'behavior 'returning)
													(objSendMessage gSource autoncandidate (objTranslate autoncandidate 'ReturnAck "\"Auton order acknowledged\""))
													)
												)
											(scrExitScreen gScreen)
											)
										(scrSetDesc gScreen "No autons to recall.")
									)
								))
							)
					</Action>

					<Action name="Launch Auton" default="1" key="L">
						(block (autonItem)
							(setq autonItem (scrGetItem gScreen))
							(scrExitScreen gScreen)
							(plyUseItem gPlayer autonItem)
							)
					</Action>

					<Action name="Modify Auton" default="1" key="M">
						(block Nil
							(setq autonItem (scrGetItem gScreen))
							(ScrShowScreen gScreen &dsRPCModifyAuton;)
							)
					</Action>

					<Action name="Cancel" cancel="1" key="C">
						<Exit/>
					</Action>
				</Actions>
			</Default>
		</Panes>
	</DockScreen>

	<DockScreen UNID="&dsRPCModifyAuton;"
			backgroundID=   "none"
			nestedScreen=   "true"
			>
		<Display>
			<!--
			LEGEND:
			idea:
			<text makes a box of text
				REMEMBER left=255 is right of right=0

				left: leftmost border


				right: rightmost border
				0 is at the center, leaning towards the left
				negative moves the text box to the right from the center (from right= 0)
				positive moves the text bos to the right from the leftmost border

				top: topmost border
				positive is how many pixels the top border should start from the top of the screen

			<image puts in an image


			left="12" right="-44" top="12" height="100" align="center"  transparent="true"


			valign="center"
			-->
			<Image left="0" right="-44" top="12" height="100" align="right"  transparent="true">
				(itmGetImageDesc autonItem)
			</Image>

			<Text left="0" right="-44" top="12" height="40" align="center" font="SubTitle" color="255,210,152">
				(itmGetName autonItem 0x020)
			</Text>

			<Text left="0" right="0" width="250" top="50" bottom="-140" align="right" font="MediumBold" color="200,206,199">
				(cat
					"device slots:\n"
					"Weapon slots:\n"
					"Non Weapon slots:\n"
					"max power:\n"
					"max speed:\n"
					"armor:\n"
					"max armor mass:\n"
					"shields:\n"
					"weapons:\n"
					)
			</Text>

			<Text left="255" width="250" top="50" bottom="-140" align="left" font="Medium" color="200,206,199">
				(block (autonthingy armorItem autonConfig armorTypes armorString shieldItem allWeapons string)
					(setq autonthingy (rpgCreateSuspendedAuton gSource autonItem))
					(setq armorItem (item (objGetItems gPlayership "aI") 0))

					;init armorTypes
					(setq armorTypes "")
					(setq armorString "")
					(setq autonConfig (rpgGetAutonConfig autonItem))
					(enum (@ autonConfig 'armor) armorDesc
						(block Nil
							;make a list of all the armor types
							(switch
								(eq armorTypes "")
									(setq armorTypes (list (itmGetType (@ armorDesc 'item))))
									;else
									(block Nil
										(setq armorTypes (Append armorTypes (list (itmGetType (@ armorDesc 'item)))))
										)
								)
							)
						)
					;get rid of duplicate armor types
					(enum armorTypes UNID (block Nil
						;remove all duplicates
						(setq armorTypes (filter armorTypes UNIDinList
							(not (eq UNID UNIDinList))
							))
						;add it back in since we removed all instances of UNID
						(setq armorTypes (Append armorTypes UNID))
						))

					(setq shieldItem (item (objGetItems gPlayership "sI") 0))

					; Get the list of weapons
					(setq allWeapons "")
					(enum (objGetItems autonthingy "wI") theWeapon (block Nil
						(Printto 'log (TypGetDataField (itmGetType theWeapon) 'name))
						(switch
							(eq AllWeapons "")
								(block Nil
									(setq AllWeapons (cat (TypGetDataField (itmGetType theWeapon) 'name)))
									)
								(setq AllWeapons (cat AllWeapons ", "(TypGetDataField (itmGetType theWeapon) 'name)))
							)
						))
					(if (eq allWeapons "")
						(setq allWeapons "None\n")
						)
					;START OF THE CAT!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
					(setq string (cat
						(typGetDataField (ObjGetType autonthingy) "deviceSlots")  "\n"
						(typGetDataField (ObjGetType autonthingy) "deviceSlotsWeapons")  "\n"
						(typGetDataField (ObjGetType autonthingy) "deviceSlotsNonWeapons") "\n"
						(divide (typGetDataField (ObjGetType autonthingy) "power") 1000) "MW \n"
						(TypGetDataField (itmGetStaticData autonItem "autonShipClass") "maxSpeed") "% lightspeed\n"
						(switch
							(geq (count armorTypes) 1)
								(block Nil
									(enum armorTypes element (block Nil
										(switch
											(eq armorString "")
												(setq armorString (TypGetDataField element 'name))
											(setq armorString (cat armorString ", " (TypGetDataField element 'name)))
											)
										))
									)
							"None"
							) "\n"
						(divide (TypGetDataField (itmGetStaticData autonItem "autonShipClass") "maxArmorMass") 1000) " tons \n"
						(switch
							(geq (count (@ (objGetItems autonthingy "Is") 0)) 1)
								(TypGetDataField (itmGetType (@ (objGetItems autonthingy "Is") 0)) 'name)
								"None"
							)"\n"
						allWeapons
						))
					(rpgCleanUpSuspendedAuton gSource)
					string
					)
			</Text>
			<!--

			<Text left="52" right="-84" bottom="-12" height="120" align="center" font="Large" color="200,206,199">
				(block (desc skill repBonus thaName prize rnd1 rnd2 fromPlace)
					(setq theName (objGetName gPlayership 0x00))
					(setq skill (objGetData gPlayership "arenaSkill"))
					(setq repBonus (objGetData gPlayership "arenaRepBonus"))
					(setq prize (bamComputePrize
						(objGetGlobalData gSource "arenaSkill")
						(objGetGlobalData gSource "arenaRep")
						skill
						(objGetData gPlayership "arenaPrizeBonus")
						))

					(setq rnd1 (modulo (objGetDestiny gPlayership) 24))
					(setq rnd2 (divide (objGetDestiny gPlayership) 24))

					(setq fromPlace (item '("Starton Eridani" "St. Katharine's Star" "Rigel Aurelius" "Centauri" "Kibo") (modulo rnd2 5)))

					(switch
						(leq skill 300)
							(setq desc (eval (item
								'(
									(cat theName " is a young gladiator from " fromPlace ".")
									(cat theName " flies a " (shpGetClassName gPlayership 1) ".")
									(cat theName " is a novice pilot flying a beautiful " (shpGetClassName gPlayership 1) ".")
									)
								(modulo rnd1 3)
								)))

						(setq desc (eval (item
							'(
								(cat theName " is a former Champion from " fromPlace ".")
								(cat "The battle-hardened pilot known as " theName " will give you the fight of your life!")
								(cat "Death comes quickly when you fight " theName ".")
								)
							(modulo rnd1 3)
							)))
						)

					(switch
						(geq repBonus 100)
							(setq desc (cat desc " This is the match the audience has been waiting for."))

						(geq repBonus 50)
							(setq desc (cat desc " Defeating " theName " will excite the crowd and bring you great fame!"))

						(geq repBonus 25)
							(setq desc (cat desc " This is a well-matched opponent that will draw the crowd."))
						)

					(setq desc (cat desc " For defeating " theName " you will receive " prize " credits."))
					)
			</Text>-->
		</Display>
		<Panes>
			<Default>
				<OnPaneInit>
					(scrSetDesc gScreen
						"You bring the auton aside from the cargo bay and place it atop a workbench."
						)
				</OnPaneInit>

				<Actions>
					<Action name="Repair Armor" key="R">
						(block (autonConfig hpDamage hpToRepair armorType armorToUse )

							;	Figure out how many armor segments we need to repair auton armor


							(setq autonConfig (rpgGetAutonConfig autonItem))

							(setq hpDamage 0)
							(enum (@ autonConfig 'armor) armorDesc
								(block Nil
									(if (not armorType)
										(setq armorType (itmGetType (@ armorDesc 'item)))
										)
									(setq hpDamage (add hpDamage (subtract (itmGetProperty (@ armorDesc 'item) 'completeHP) (@ armorDesc 'hp))))
									)
								)

							;	Make a list of armor segments that we can use from the player's cargo
							;	hold, sufficient to repair all the damage.

							(setq hpToRepair 0)
							(enum (objGetItems gPlayerShip "aU") theArmor
								(if (and (eq (itmGetType theArmor) armorType)
										(ls hpToRepair hpDamage)
										)
									(block (hpForThisArmor countToUse)
										(setq hpForThisArmor (itmGetProperty theArmor 'hp))
										(if (itmIsDamaged theArmor)
											(setq hpForThisArmor (divide hpForThisArmor 2))
											)

										(setq countToUse
											(min
												(divide (add (subtract hpDamage hpToRepair) (subtract hpForThisArmor 1)) hpForThisArmor)
												(itmGetCount theArmor)
												)
											)

										(setq armorToUse (append armorToUse (list (itmSetCount theArmor countToUse))))
										(setq hpToRepair (min hpDamage (add hpToRepair (multiply countToUse hpForThisArmor))))
										)
									)
								)

							;	Remember the current list selection

							(scrSetData gScreen 'currentAuton autonItem)

							;	Effect repairs

							(switch
								(eq hpDamage 0)
									(scrShowScreen gScreen &dsRPGMessage; {
										desc: "The auton's armor is undamaged. No repairs needed."
										})

								(eq hpToRepair 0)
									(scrShowScreen gScreen &dsRPGMessage; {
										desc: (cat "Unfortunately, you do not have any " (itmGetName armorType 0x02) " to repair the auton.")
										})

								(scrShowScreen gScreen &dsAutonBayRepairArmor; {
									autonConfig: autonConfig
									autonItem: autonItem
									armorToUse: armorToUse
									hpToRepair: hpToRepair
									})
								)
							)
					</Action>

					<Action name="Replace Armor" key="P">
						(block (autonConfig)
							(setq autonConfig (rpgGetAutonConfig autonItem))

							(scrShowScreen gScreen &dsAutonBayReplaceArmor; {
								autonConfig: autonConfig
								autonItem: autonItem
								})
							)
					</Action>

					<Action name="Install Device" key="D">
						(block (autonConfig)
							(setq autonConfig (rpgGetAutonConfig autonItem))

							(scrShowScreen gScreen &dsAutonBayInstallDevice; {
								autonConfig: autonConfig
								autonItem: autonItem
								})
							)
					</Action>

					<Action name="Remove Device" key="V" default="1">
						(block Nil
							(scrShowScreen gScreen "&dsRPCRemoveItem;")
							)
					</Action>

					<Action name="Enhance Device" key="E" default="1">

					</Action>

					<Action name="Use Items" key="U" default="1">

					</Action>

					<Action name="Back to auton list" key="B" cancel="1">
						(scrExitScreen gScreen)
					</Action>
				</Actions>
			</Default>
		</Panes>
	</DockScreen>
	<DockScreen UNID="&dsAutonBayRepairArmor;"
			backgroundID=   "none"
			nestedScreen=		"true"
			>
		<Panes>
			<Default>
				<OnPaneInit>
					(scrSetDesc gScreen
						"You can repair " (@ gData 'hpToRepair) " hit point" (if (gr (@ gData 'hpToRepair) 1) "s " " ")
						"of damage on " (itmGetName (@ gData 'autonItem) 0x04) " with "

						(switch
							(eq (count (@ gData 'armorToUse)) 1)
								(itmGetName (@ (@ gData 'armorToUse) 0) 0x08)

							(eq (count (@ gData 'armorToUse)) 2)
								(cat (itmGetName (@ (@ gData 'armorToUse) 0) 0x08) " and " (itmGetName (@ (@ gData 'armorToUse) 1) 0x08))

							(block Nil
								(setq i 0)
								(apply cat
									(map (@ gData 'armorToUse) Nil theArmor
										(if (eq (setq i (add i 1)) (count (@ gData 'armorToUse)))
											(cat "and " (itmGetName (@ (@ gData 'armorToUse) 0) 0x08))
											(cat (itmGetName (@ (@ gData 'armorToUse) 0) 0x08) ", ")
											)
										)
									)
								)
							)

						".\n\n"
						"Do you wish to continue?"
						)
				</OnPaneInit>

				<Actions>
					<Action name="Repair" key="R" default="1">
						(block (hpLeft)

							;	Repair the auton

							(setq hpLeft (@ gData 'hpToRepair))
							(setq newArmorList
								(map (@ (@ gData 'autonConfig) 'armor) armorDesc
									(block (hpNeeded hpUsed)
										(print "hpLeft: " hpLeft)

										(setq hpNeeded (subtract (itmGetProperty (@ armorDesc 'item) 'completeHP) (@ armorDesc 'hp)))
										(setq hpUsed (min hpNeeded hpLeft))
										(setq hpLeft (subtract hpLeft hpUsed))

										(print "hpNeeded: " hpNeeded)
										(print "hpUsed: " hpUsed)
										(print "hpLeft: " hpLeft)

										{
											item: (@ armorDesc 'item)
											hp: (add (@ armorDesc 'hp) hpUsed)
											}
										)
									)
								)

							(objSetItemData gPlayerShip (@ gData 'autonItem) 'autonConfig {
								armor: newArmorList
								devices: (@ (@ gData 'autonConfig) 'devices)
								})

							;	Consume the armor segments

							(enum (@ gData 'armorToUse) theArmor
								(objRemoveItem gPlayerShip theArmor)
								)

							(scrExitScreen gScreen)
							)
					</Action>

					<Action name="Cancel" key="C" cancel="1">
						(scrExitScreen gScreen)
					</Action>
				</Actions>
			</Default>
		</Panes>
	</DockScreen>
	<!-- Remove device screen -->

	<DockScreen UNID="&dsRPCRemoveItem;"
			type=				"customPicker"
			backgroundID=		"&rsItemListScreen;"
			nestedScreen=		"true"
			>

		<List>
			(block (auton ItemList)
				;(list [Title] (list [Image]) [Description])
				(setq auton (rpgCreateSuspendedAuton gSource autonItem))
				;init item list
				(setq ItemList "")
				;list installed items
				(enum (ObjGetItems auton "*I") itemthingy (block Nil
					(switch
						(eq ItemList "")
							(block Nil
								(setq ItemList (list
									(list
										(TypGetDataField (ItmGetType itemthingy) 'name)
										(itmGetImageDesc itemthingy)
										(itmGetProperty itemthingy 'description)
										)))
								)
							(setq ItemList (lnkAppend ItemList
								(list
									(TypGetDataField (ItmGetType itemthingy) 'name)
									(itmGetImageDesc itemthingy)
									(itmGetProperty itemthingy 'description)
									)
								))
						)
					))
				;(rpgGetAutonConfig autonItem)
				ItemList
				)
		</List>

		<Panes>
			<Default
					desc=	"Pick a device to remove.">

				<OnPaneInit>
				</OnPaneInit>

				<Actions>
					<Action name="Remove this Device" default="1" key="R">
						(block (auton)
							;	Get the suspended auton so we can operate on it
							(setq auton (rpgCreateSuspendedAuton gSource autonItem))
							(Printto 'log 'datestart)
							(enum (ObjGetItems auton "dI") itemthing (block Nil
								(switch
									(eq (item (ScrGetListEntry gScreen) 0) (TypGetDataField (ItmGetType itemthing) 'name))
										(block Nil
											(shpRemoveDevice auton itemthing)
											(Printto 'log itemthing)
											(ObjAddItem gSource itemthing)
											)
									)
								))
							(switch
								Nil
									Nil
								;check if there's enough cargospace
								;TO REMOVE:
									;take out the info from the auton
									;itmcreate the item back into the playership
									;more info:
									<!--
									(block (deviceItem auton oldDeviceItem)
										;	Get the device to install
										(setq deviceItem (scrGetItem gScreen))
										;	Remove the device from the player ship and move it to the auton
										(objRemoveItem gPlayerShip deviceItem)
										(objAddItem auton deviceItem)
										;	Install the device

										(shpInstallDevice auton deviceItem)

										;	Take any old devices and move them back to the player ship

										(enum (objGetItems auton "dU") theItem
											(block Nil
												(objRemoveItem auton theItem)
												(objAddItem gPlayerShip theItem)
												)
											)

										;	Convert back to the auton item

										(setq newAutonItem (objFireEvent auton 'ConvertToItem))
										(objSetItemData gSource (@ gData 'autonItem) 'autonConfig (itmGetData newAutonItem 'autonConfig))


										(scrExitScreen gScreen)
										)


									(typFireEvent autonUNID 'CreateFromItem { sourceObj:sourceObj type:autonUNID item:autonItem })


									;	If the source item has a configuration then we need to initialize the ship.

									(if (setq autonConfig (itmGetData sourceItem 'autonConfig))
										(block Nil

											;	Start by installing the proper armor

											(for i 0 (subtract (shpGetArmorCount auton) 1)
												(block (newArmorItem)
													(setq newArmorItem (@ (@ (@ autonConfig 'armor) i) 'item))

													(objAddItem auton newArmorItem)
													(shpInstallArmor auton newArmorItem i)

													;	Set the appropriate hit points

													(objSetItemProperty auton (shpGetArmor auton i) 'hp (@ (@ (@ autonConfig 'armor) i) 'hp))
													)
												)

											;	Uninstall all devices

											(enum (objGetItems auton "dI") theItem
												(shpRemoveDevice auton theItem)
												)

											;	Install required devices

											(enum (@ autonConfig 'devices) deviceDesc
												(block (newDeviceItem)
													(setq newDeviceItem (@ deviceDesc 'item))

													(objAddItem auton newDeviceItem)
													(shpInstallDevice auton newDeviceItem)
													)
												)

											;	Remove uninstalled armor and devices

											(enum (objGetItems auton "adU") theItem
												(objRemoveItem auton theItem)
												)

											;	Add items to cargo

											(enum (@ autonConfig 'cargo) theItem
												(objAddItem auton theItem)
												)
											)
										)
									-->
								)
							;	Done with the auton
							(rpgCleanUpSuspendedAuton gSource)
							(ScrSetDesc gScreen (cat (item (ScrGetListEntry gScreen) 0) " removed"))
							)
					</Action>

					<Action name="Cancel" cancel="1" key="C">
						(scrExitScreen gScreen)
					</Action>
				</Actions>
			</Default>
		</Panes>
	</DockScreen>
	<Globals>
		(block Nil
			(setq rpgDeployAutonFromItem (lambda (sourceObj autonUNID autonItem)
				(block (auton)
					;	Let the auton ship class create itself based on the item

					(setq auton (typFireEvent autonUNID 'CreateFromItem { sourceObj:sourceObj type:autonUNID item:autonItem }))

					;	Identify and remove the item from the source

					(itmSetKnown autonItem)
					(objRemoveItem sourceObj autonItem 1)

					;add auton data so we know it's the player's auton
					(ObjSetData auton "invoked" true)
					)
				))
			)
	</Globals>

</TranscendenceExtension>