ship costs

Freeform discussion about anything related to modding Transcendence.
Post Reply
sdw195
Militia Captain
Militia Captain
Posts: 779
Joined: Wed Nov 18, 2009 1:01 am
Location: Still looking for the csc Antarctica
Contact:
Contact sdw195

ship prices based on various data fields, with lots of steq's and blah blah blah

Code: Select all

EI100-class freighter             45604
Ronin/A-class gunship             32853
Ronin/B-class gunship             115119
Ronin/C-class gunship             149454
Tenhove-class sentinel            10276
EI100/M-class missileship         85656
Mikeno-class destroyer            456660
Sapphire-class yacht              69036
T31-class armed transport         51308
AutoSentinel®                     31656
330M mule auton                   914613
300D defender auton               80418
1M battle auton                   99030
1M/i battle auton                 115830
310A aegis auton                  379377
EI500-class freighter             81504
Wolfen-class gunship              173079
200A defender auton               79218
Salvager Nomad                    4200008
Centurion-class heavy gunship     224256
Scarab-class superfreighter       135202
Rama                              5258280
Centurion/X-class heavy gunship   499056
Aurochs-class transport           384644
Borer-class gunship               21602
Jenna                             1599912
Light IAV                         22962
Medium IAV                        37322
Heavy IAV                         129022
Manticore-class heavy gunship     182856
Light IAV                         20622
Borer-class gunship               21552
Medium IAV                        21922
Ronin/A-class gunship             33003
Ronin/A-class gunship             34053
Ronin/B-class gunship             142344
Ronin/C-class gunship             160209
Earthzone-class armed shuttle     31743
EI100-class freighter             45604
EI100-class freighter             49924
Heavy IAV                         24822
Heavy IAV                         36022
T31-class armed transport         96162
Sapphire-class yacht              116604
Sapphire-class yacht              97236
Sapphire-class yacht              108636
EI200-class freighter             63804
EI500-class freighter             57104
EI500-class freighter             114462
EI500-class freighter             149856
Manticore-class heavy gunship     120336
Manticore-class heavy gunship     136536
Manticore-class heavy gunship     223048
Wolfen-class gunship              88686
Wolfen-class gunship              104886
Wolfen-class gunship              248679
Centurion-class heavy gunship     242784
Centurion-class heavy gunship     208584
The Slicer                        549912
Corporate cruiser                 3531159
Antares I-class freighter         18501
Antares II-class freighter        82804
Antares V-class superfreighter    93903
EI200-class freighter             50404
EI7000-class freighter            102204
Volkov                            2280144
Ronin/C-class gunship             144054
Kate Morgental                    3531159
EI200-class freighter             64804
Corsair-class gunship             30963
Viking-class gunship              35943
Corsair II-class gunship          112194
Charon frigate                    262760
Pirate ship Kronosaurus           430760
Molotok bounty hunter             325269
Sung transport                    197403
Wind slaver                       73204
Steel slaver                      143166
Earth Slaver                      793910
Dragon Slaver                     3348010
Earth Slaver                      782660
Commonwealth Star Carrier         9397806
Commonwealth Star Carrier         9397806
Aquila-class cruiser              5034008
Commonwealth Star Carrier         12673857
Commonwealth Star Carrier         11945857
Freighter Forking Paths           1148958
Britannia-class heavy gunship     992034
Sandstorm-class gunship           174303
Ares sentry                       213401
Polar-class freighter             95001
Tundra-class heavy gunship        1480779
Cometfall-class missileship       1371906
Chasm-class heavy gunship         1525566
Deimos-class destroyer            4394408
Phobos-class dreadnought          16242408
Polar II-class freighter          540002
Iocrym command ship               104888008
Svalbard Explorer                 504602
Iocrym sentinel                   4584004
Huygens Explorer                  5697006
Plague-class gunship              28602
Revelations-class missileship     52304
Heliotrope gunship                124479
Heliotrope destroyer              120644
Xenophobe fighter                 54723
Xenophobe defender                370056
Xenophobe worldship               6455259
Xenophobe ark                     19282214
Ventari destroyer                 2773010
Meth enforcer                     44058
Centauri raider                   20862
Centauri command ship             24902
Centauri heavy raider             26422
Arco Vaughn                       57504
Kobol gunship                     169128
Kobol gunship                     259128
Kobol gunship                     289578
Luminous drone                    1266366
Hurin-class destroyer             1068408
Zoanthrope raider                 29662
Dwarg master                      133056
Zoanthrope behemoth               831066
Zulu-class gunship                31443
Sotho-class gunship               75006
Oromo-class gunship               35028
Zulu II-class gunship             32193
T55-class armed transport         34852
Tripoli-class destroyer           858564
Drake-class missileship           118476
Viking II-class gunship           91686
Marauder raid platform            142323
Barbary-class gunship             190404
Repentant-class gunship           105006
Atonement-class heavy gunship     201609
Aurochs-class mine layer          449644
Himal interceptor                 42204
Urak sentinel                     24612
Urak destroyer                    580510
Borer-class gunship               21602
Borer II-class gunship            45844
Hammerhead-class gunship          43484
Hammerhead II-class gunship       48404
Earthzone-class armed shuttle     65976
Hornet-class battlepod            41064
Ranx gunship                      87168
Ranx dreadnought                  1359453
Ferian miner                      60052
Ferian warrior                    478563
Gaian processor                   3590016

Code: Select all

<globals>
(block nil
(setq shpcost  (lambda nil
(block Nil
(setq List1  (typfind "s +isPlayerClass:false"))
(objSetData gplayership "shipList" list1)
(enum (objgetData gplayership "shipList") shp 
(block (theShip)
(setq theShip (sysCreateShip shp (objGetPos gplayership) &svPlayer;))
(setq gList (lnkAppend gList theShip))
(objSetData gplayership "shipList" 
(lnkReplace (objgetData gplayership "ShipList") (find (objgetData gplayership "ShipList") shp) (objGetID theShip))
)
(objSuspend theShip)

(dbglog	"Ship " (shpGetClassName theShip 1) " Price " (sdw195shpprice theShip)) 
)
))


))	

(setq sdw195shpprice (lambda (ship)
(block nil
; I am bored, so I am making a really complicated math function 
; to get the value of the ship

;	(dbglog ship)
(setq theShip	(objGetType ship))
(objResume ship)
; items/devices/armor 
(setq cost1 1)
(objEnumItems ship "*" instWeap
(block nil ;(dbglog (itmGetName instWeap 0))
(setq tmp (itmGetActualPrice instWeap))
(setq cost1 (add cost1 tmp))
)	);(dbglog cost1)

(setq slots  (typGetDataField  theShip 'deviceSlots))
;	(dbglog	slots)	(dbglog	"slots")	
(setq deviceSlotsWeapons (typGetDataField theShip 'deviceSlotsWeapons ))
;	(dbglog deviceSlotsWeapons)(dbglog "deviceSlotsWeapons")
(setq armormass (typGetDataField theShip 'maxArmorMass ))
;	(dbglog armormass)(dbglog "armormass")
(setq armorcount (shpGetArmorCount theship)) 
;	(dbglog armorcount)	(dbglog "armorcount")	
(setq power		(typGetDataField theShip 'power ))
;	(dbglog power)	(dbglog "power")			
(setq hullMass (typGetDataField theShip 'hullMass ))
;	(dbglog hullMass)(dbglog "hullMass")
(setq maxCargoSpace (typGetDataField theShip 'maxCargoSpace ))
; 	(dbglog maxCargoSpace)(dbglog "maxCargoSpace")
(setq temp2  (multiply armorcount armormass))
(setq todo (add hullMass power  temp2 armorcount armormass cost1 maxCargoSpace))
;(dbglog todo) (dbglog "todo") 
(setq maxSpeed (typGetDataField theShip 'maxSpeed ))
;	(dbglog maxSpeed)(dbglog "maxSpeed")
(setq maxSpeed 	(wvrDecShift-1 maxSpeed 1))

(if (leq maxspeed 1)
(setq maxspeed (add maxspeed 1))
nil 
)
;	(dbglog maxSpeed)
(setq holdbouns (divide  (add (multiply maxCargoSpace maxspeed)	hullMass) maxspeed))	
;(dbglog holdbouns)
(setq price (add todo holdbouns))
;(dbglog maxSpeed)(dbglog "maxSpeed1")
(setq price	(multiply maxspeed todo))
;(dbglog price)		(dbglog "price1")	
(setq price	(multiply price slots))
;(dbglog price)(dbglog "price2")	
;(setq price	(divide price maxspeed))
;(dbglog price)	(dbglog "price3")		

;(setq price 	(wvrDecShift-1 price 1 nil true))	
;(dbglog price)(dbglog "price4")	
;(dbglog "name-price")			 
;(dbglog (shpGetClassName theShip 1))	
;(dbglog price)	
(objSuspend ship)
price

; end of really complicated math function
)))  

)
</globals>
(yeah i was bored)
Image
Image
Image
Image
"Dash_Merc - George is a genius, in that he created this game engine that is infinitely extendable"
"<@sheepluva>Good night everybody, may the source be with you." <-- FOSG dev
"You only need THREE tools in life - WD-40 to make things go, Duct Tape to make things stop And C-4 to make things go away"
Top
User avatar
Ttech
Fleet Admiral
Fleet Admiral
Posts: 2767
Joined: Tue Nov 06, 2007 12:03 am
Location: Traveling in the TARDIS
Contact:
Contact Ttech

this is pretty cool. really like the price list, gives you some perspective, you should make your code more complicated then it is now. :) Niuce work tough.
Image
Image
Top
sdw195
Militia Captain
Militia Captain
Posts: 779
Joined: Wed Nov 18, 2009 1:01 am
Location: Still looking for the csc Antarctica
Contact:
Contact sdw195

um Ttech i think its complicated enough as i can't seem to understand it anymore :?
Image
Image
Image
Image
"Dash_Merc - George is a genius, in that he created this game engine that is infinitely extendable"
"<@sheepluva>Good night everybody, may the source be with you." <-- FOSG dev
"You only need THREE tools in life - WD-40 to make things go, Duct Tape to make things stop And C-4 to make things go away"
Top
User avatar
Song
Fleet Admiral
Fleet Admiral
Posts: 2831
Joined: Mon Aug 17, 2009 4:27 am

I agree with Ttech that there's more you can do to improve the values....currently I wouldn't say the specific costs are accurate, but I would *definitely* say that the *relative* values are pretty much right. It's certainly an interesting table. :)
Mischievous local moderator. She/Her pronouns.
Top
sdw195
Militia Captain
Militia Captain
Posts: 779
Joined: Wed Nov 18, 2009 1:01 am
Location: Still looking for the csc Antarctica
Contact:
Contact sdw195

yeah they could be better (they could also be worse) but atm i dont know how to improve them (which is why i posted it) so any comments/recommendations would be nice :)

edit

also shrike i just noticed that we are only a few months appart form signing up yet you have posted ~500 more times :?:
Image
Image
Image
Image
"Dash_Merc - George is a genius, in that he created this game engine that is infinitely extendable"
"<@sheepluva>Good night everybody, may the source be with you." <-- FOSG dev
"You only need THREE tools in life - WD-40 to make things go, Duct Tape to make things stop And C-4 to make things go away"
Top
User avatar
Song
Fleet Admiral
Fleet Admiral
Posts: 2831
Joined: Mon Aug 17, 2009 4:27 am

I am just that awesome. YEAAAAAAAAAAAH! :twisted:

[/jest]
Mischievous local moderator. She/Her pronouns.
Top
User avatar
Ttech
Fleet Admiral
Fleet Admiral
Posts: 2767
Joined: Tue Nov 06, 2007 12:03 am
Location: Traveling in the TARDIS
Contact:
Contact Ttech

If one were to take a look at the posting practices of Shrike and other users on the forums, one one note an obvious trend, one where posts were more like instant-messages then forum topics. :P


But who can complain, it makes everything that much more awesome.


oh and for an inside irc joke... wiki?
Image
Image
Top
sdw195
Militia Captain
Militia Captain
Posts: 779
Joined: Wed Nov 18, 2009 1:01 am
Location: Still looking for the csc Antarctica
Contact:
Contact sdw195

Ttech wrote:If one were to take a look at the posting practices of Shrike and other users on the forums, one one note an obvious trend, one where posts were more like instant-messages then forum topics. :P


But who can complain, it makes everything that much more awesome.


oh and for an inside irc joke... wiki?
soon ttech, soon

(aka tomorrow, to escape the rents)
Image
Image
Image
Image
"Dash_Merc - George is a genius, in that he created this game engine that is infinitely extendable"
"<@sheepluva>Good night everybody, may the source be with you." <-- FOSG dev
"You only need THREE tools in life - WD-40 to make things go, Duct Tape to make things stop And C-4 to make things go away"
Top
User avatar
Song
Fleet Admiral
Fleet Admiral
Posts: 2831
Joined: Mon Aug 17, 2009 4:27 am

Ttech wrote:If one were to take a look at the posting practices of Shrike and other users on the forums, one one note an obvious trend, one where posts were more like instant-messages then forum topics. :P
Indeed. I sometimes don't have enough time to refresh the page before you've posted a reply. :P

Anyway, in terms of values, maybe you should keep the formula, but lower the values it generates (no other changes, just lowering the values)....until it feels right.
Mischievous local moderator. She/Her pronouns.
Top
User avatar
alterecco
Fleet Officer
Fleet Officer
Posts: 1658
Joined: Wed Jan 14, 2009 3:08 am
Location: Previously enslaved by the Iocrym

now with readable list (that's right, I took the liberty of formatting the list)

Nice job sdw. I think if you clean up and format the code nicely (when it wont hurt looking at it again), then it will be clearer what you can do to tweak the pricing even more.
Top
User avatar
Prophet
Militia Captain
Militia Captain
Posts: 826
Joined: Tue Nov 18, 2008 6:09 pm

All of those variables are globals as you did not block them! :evil:

Just kidding, very nice.

It's much more verbose than what I had in my ship purchase mod.

One problem that was exposed when I was working on mine was that you cannot account for any special abilites like having a fixed weapon mounted in an omni slot or scripted events. There's no way to get at those though.

Advanced level pricing options:

Code: Select all

Increase price for smaller ships
Add taxes, commission, fees and round all prices up to ~ 999
There are some oddities that emerge however:
330M mule auton - 914613
The Slicer - 549912
Huygens Explorer - 5697006

I will not pay 1 million creds for a mule!
Coming soon: The Syrtian War adventure mod!
A Turret defense genre mod exploring the worst era in Earth's history.
Can you defend the Earth from the Syrtian invaders?
Stay tuned for updates!
Top
sdw195
Militia Captain
Militia Captain
Posts: 779
Joined: Wed Nov 18, 2009 1:01 am
Location: Still looking for the csc Antarctica
Contact:
Contact sdw195

Prophet wrote:All of those variables are globals as you did not block them! :evil:

Just kidding, very nice.

It's much more verbose than what I had in my ship purchase mod.

One problem that was exposed when I was working on mine was that you cannot account for any special abilites like having a fixed weapon mounted in an omni slot or scripted events. There's no way to get at those though.

Advanced level pricing options:

Code: Select all

Increase price for smaller ships
Add taxes, commission, fees and round all prices up to ~ 999
There are some oddities that emerge however:
330M mule auton - 914613
The Slicer - 549912
Huygens Explorer - 5697006

I will not pay 1 million creds for a mule!

heh yeah about that, i think its because the size of the hold and armor mass, max armor mass items on the ship oh and drive (max speed)hull mass ect
Image
Image
Image
Image
"Dash_Merc - George is a genius, in that he created this game engine that is infinitely extendable"
"<@sheepluva>Good night everybody, may the source be with you." <-- FOSG dev
"You only need THREE tools in life - WD-40 to make things go, Duct Tape to make things stop And C-4 to make things go away"
Top
Post Reply

Return to “Shipyards”