Files
GS13NG/code/modules/cargo/exports/research.dm
T

23 lines
678 B
Plaintext

// Sell tech levels
/datum/export/tech
cost = 500
unit_name = "technology data disk"
export_types = list(/obj/item/disk/tech_disk)
var/list/datum/techweb_node/sold_nodes = list()
/datum/export/tech/get_cost(obj/O)
var/obj/item/disk/tech_disk/D = O
var/cost = 0
for(var/V in D.stored_research.researched_nodes)
if(sold_nodes[V]) //Already sold before, don't want it.
continue
var/datum/techweb_node/TWN = D.stored_research.researched_nodes[V]
cost += TWN
return ..() * cost
/datum/export/tech/sell_object(obj/O)
..()
var/obj/item/disk/tech_disk/D = O
for(var/V in D.stored_research.researched_nodes)
sold_nodes[V] = D.stored_research.researched_nodes[V]