Code: Select all
<!-- TIC station -->
<Image UNID="&rsTICstation;" bitmap="battlestation.jpg" bitmask="battlestationmask.bmp" backColor="0x00000000"/>
<StationType UNID="&stTICstation;"
name= "Talon solutions"
sovereign= "&svIndependent;"
dockScreen= "&dsTICstation;"
abandonedScreen= "&dsAbandonedStation;"
dockingPorts= "8"
canAttack= "true"
multiHull= "true"
armorID= "&itDuralloyArmor;"
maxHitPoints= "350"
hitPoints= "350"
repairRate= "5"
ejectaType= "&vtWreckEjecta;"
attributes= "independent,friendly,envAir,envEarth,envFire,envWater,populated"
levelFrequency= "uuccu rrrr- -rrrr r---- -----"
locationCriteria= "+planetary,-asteroids"
noArticle= "true"
>
<Image imageID="&rsTICstation;" imageX="0" imageY="0" imageWidth="256" imageHeight="256" imageFrameCount="0" imageTicksPerFrame="0"/>
<Ships>
<Table count="1">
<Ship chance="25" count="1d3" class="&scEI100;" orders="gate" />
<Ship chance="50" count="2d3" class="&scTICfighterA;" orders="guard" />
<Ship chance="25" count="2d3" class="&scTICfighterB;" orders="guard" />
</Table>
</Ships>
<Devices>
<Device deviceID="&itTICflakcannon;" omnidirectional="true"/>
</Devices>
<Items>
<RandomItem count="10"
criteria= "* +TIC"
level= "10"
levelCurve= "2"
/>
<RandomItem count="10"
criteria= "* -Illegal; -Alien; -Specialty"
level= "6"
levelCurve= "2"
/>
<Item count="4d12" item="&itXenotiteFuelRod;" />
</Items>
<Names>Grey Eagle- Talon station; Brown Fox- Talon station; White Tiger- Talon station; Black Lynx- Talon station; Snow Leopard- Talon Station; Lightning Skink- Talon station; Leaper Cat- Talon station; Carrion Crow- Talon station; Night Wolf- Talon station; Torn Wolf- Talon station; Red Elk- Talon station;</Names>
<Events>
<OnDestroy>
(intCorporateOnDestroy)
</OnDestroy>
</Events>
<DockingPorts>
<Port x="0" y="100" />
<Port x="-80" y="40" />
<Port x="80" y="40" />
<Port x="-60" y="-40" />
<Port x="60" y="-40" />
<Port x="0" y="-105" />
<Port x="-130" y="-17" />
<Port x="130" y="-17" />
<Port x="-70" y="105" />
<Port x="70" y="105" />
</DockingPorts>
</StationType>
<!-- TIC station dockscreen -->
<DockScreen UNID="&dsTICstation;"
name= "=(objGetName gSource)"
backgroundID= "&rsShipInterior;"
>
<InitialPane>
(if (objGetStaticData gSource "Info")
"DefaultWithInfo"
"Default"
)
</InitialPane>
<Panes>
<Default
desc= "You are in the hub level of a large station of the Talon Industrial Corporation. An omnilift provides access to various points around the station.">
<Actions>
<Action name="Guidance" key="G">
<ShowPane pane="Information"/>
</Action>
<Action name="Techmarket" imageID="&rsItemListScreen;" imageIndex="1" default="1" key="T">
<ShowPane pane="CommoditiesExchange"/>
</Action>
<Action name="Dock Services" imageID="&rsItemListScreen;" imageIndex="1" key="D">
<ShowPane pane="DockServices"/>
</Action>
<Action name="Undock" imageID="&rsItemListScreen;" imageIndex="0" cancel="1" key="U">
<Exit/>
</Action>
</Actions>
</Default>
<DefaultWithInfo
desc= "You are in the hub level of a large station of the Talon Industrial Corporation. An omnilift provides access to various points around the station.">
<Actions>
<Action name="Guidance" key="G">
<ShowPane pane="Information"/>
</Action>
<Action name="Techmarket" imageID="&rsItemListScreen;" imageIndex="1" default="1" key="T">
<ShowPane pane="CommoditiesExchange"/>
</Action>
<Action name="Dock Services" imageID="&rsItemListScreen;" imageIndex="1" key="D">
<ShowPane pane="DockServices"/>
</Action>
<Action name="Undock" imageID="&rsItemListScreen;" imageIndex="0" cancel="1" key="U">
<Exit/>
</Action>
</Actions>
</DefaultWithInfo>
<CommoditiesExchange>
<Initialize>
(scrSetDesc gScreen (cat "Welcome to the " (objGetName gSource) " Commodities Exchange Market."))
</Initialize>
<Actions>
<Action name="Buy items" imageID="&rsItemListScreen;" imageIndex="1" default="1" key="B">
(block Nil
(setq gPrevScreen "&dsTICstation;")
(setq gMargin 10)
(setq gShowCriteria "*NU -Illegal;")
(scrShowScreen gScreen "&dsExchangeBuy;")
)
</Action>
<Action name="Sell items" imageID="&rsItemListScreen;" imageIndex="1" key="S">
(block Nil
(setq gPrevScreen "&dsTICstation;")
(setq gMargin 10)
(setq gBuyCriteria "*NU -Illegal; -ID;")
(setq gMaxPrice 100000)
(setq gTitle Nil)
(scrShowScreen gScreen "&dsExchangeSell;")
)
</Action>
<Action name="Done" imageID="&rsItemListScreen;" imageIndex="0" cancel="1" key="D">
<Navigate screen="&dsTICstation;"/>
</Action>
</Actions>
</CommoditiesExchange>
<DockServices
desc= "Your ship is docked.">
<Actions>
<Action name="Refuel" imageID="&rsItemListScreen;" imageIndex="1" key="R">
(block Nil
(setq gPrevScreen "&dsTICstation;")
(setq gPrevPane "DockServices")
(intSetCompatibleFuel '((&itHeliumAssembly; 75) (&itHelium3FuelRod; 25)))
(scrShowScreen gScreen "&dsRefuel;")
)
</Action>
<Action name="Repair or replace armor" imageID="&rsItemListScreen;" imageIndex="1" key="A" >
(block Nil
(setq gPrevScreen "&dsTICstation;")
(setq gPrevPane "DockServices")
(setq gTechLevel 6)
(setq gArmorSegment 0)
(setq gMargin 100)
(scrShowScreen gScreen "&dsRepairArmor;")
)
</Action>
<Action name="Install device" key="D" >
(block Nil
(setq gPrevScreen "&dsTICstation;")
(setq gPrevPane "DockServices")
(setq gTechLevel 6)
(setq gTechModifier Nil)
(setq gCheckMilitaryID True)
(setq gMargin 100)
(scrShowScreen gScreen "&dsInstallDevice;")
)
</Action>
<Action name="Remove device" imageID="&rsItemListScreen;" imageIndex="1" key="V" >
(block Nil
(setq gPrevScreen "&dsTICstation;")
(setq gPrevPane "DockServices")
(setq gMargin 100)
(scrShowScreen gScreen "&dsRemoveDevice;")
)
</Action>
<Action name="Upgrade reactor" imageID="&rsItemListScreen;" imageIndex="1" key="P" >
(block (maxPower)
(setq gPrevScreen "&dsTICstation;")
(setq gPrevPane "DockServices")
(setq gCheckMilitaryID True)
; Figure out what reactor to upgrade to
(setq maxPower (objGetMaxPower gPlayerShip))
(switch
(ls maxPower 250)
(block Nil
(setq gCost 3000)
(setq gItem (itmCreate &it25MWReactor; 1))
)
(ls maxPower 500)
(block Nil
(setq gCost 5500)
(setq gItem (itmCreate &it50MWReactor; 1))
)
(setq gItem Nil)
)
; Install screen
(if gItem
(scrShowScreen gScreen "&dsInstallSpecificDevice;")
(scrShowPane gScreen "NoReactorUpgrade")
)
)
</Action>
<Action name="Done" cancel="1" key="N">
<Navigate screen="&dsTICstation;"/>
</Action>
</Actions>
</DockServices>
<NoReactorUpgrade
desc= "The technology required to upgrade your reactor is not available at this station.">
<Actions>
<Action name="Continue" key="C" default="1" cancel="1">
<ShowPane pane="DockServices"/>
</Action>
</Actions>
</NoReactorUpgrade>
<Information
desc= "You enter a chamber, a strong smell of burning leaves reaching your nostrils. In the center of the chamber sits a man, wearing what appears to be leather trousers. His face and exposed chest are covered in tribal tatoos. Around his legs wanders a cat, which meows loudly when you enter, causing the man to look up from it to you.">
<Actions>
<Action name="Who are you?" key="W">
<ShowPane pane="TouristInfo"/>
</Action>
<Action name="What is a spirit guide?" key="G">
<ShowPane pane="spiritguide"/>
</Action>
<Action name="Is TIC not just a corporation?" key="T">
<ShowPane pane="answers"/>
</Action>
<Action name="What is your goal?" key="I">
<ShowPane pane="goal"/>
</Action>
<Action name="History" key="H">
<ShowPane pane="history"/>
</Action>
<Action name="Station information" key="S">
<ShowPane pane="station"/>
</Action>
<Action name="Done" key="D" cancel="1">
<ShowPane pane="DefaultWithInfo"/>
</Action>
</Actions>
</Information>
<TouristInfo
desc= "He smiles, and speaks slowly. "I am a Talon spirit guide. I am guiding the operations of this particular Talon station."">
<Actions>
<Action name="Done" key="D" cancel="1">
<ShowPane pane="Information"/>
</Action>
</Actions>
</TouristInfo>
<spiritguide
desc= "He smiles, and speaks slowly. "you ask many questions, but that is not the right one."">
<Actions>
<Action name="Done" key="D" cancel="1">
<ShowPane pane="Information"/>
</Action>
</Actions>
</spiritguide>
<answers
desc= "He smiles, and speaks slowly. "No, we are far more. TIC is simply a way to further our goal."">
<Actions>
<Action name="Done" key="D" cancel="1">
<ShowPane pane="Information"/>
</Action>
</Actions>
</answers>
<goal
desc= "He smiles, and speaks slowly. "I cannot tell you. Our goal is different for everyone who strives for it."">
<Actions>
<Action name="Done" key="D" cancel="1">
<ShowPane pane="Information"/>
</Action>
</Actions>
</goal>
<history
desc= "He smiles, and speaks slowly. "The history of Talon is long and interesting, but you do not have long enough to listen to it."">
<Actions>
<Action name="Done" key="D" cancel="1">
<ShowPane pane="Information"/>
</Action>
</Actions>
</history>
<station
desc= "He smiles, and speaks slowly. "Each Talon station is named after the spirit animal of the station commander. Usually, those of the same spirit end up on the same station."">
<Actions>
<Action name="Done" key="D" cancel="1">
<ShowPane pane="Information"/>
</Action>
</Actions>
</station>
</Panes>
</DockScreen>