Bjorn Neergaard
6f05af73a3
Empty crates are now sold properly, as well as being sold only when centcomm is reached
122 lines
4.0 KiB
Plaintext
122 lines
4.0 KiB
Plaintext
|
|
/datum/supply_order
|
|
var/ordernum
|
|
var/datum/supply_packs/object = null
|
|
var/orderedby = null
|
|
var/orderedbyRank
|
|
var/comment = null
|
|
|
|
/datum/supply_order/proc/generateRequisition(atom/_loc)
|
|
if(!object)
|
|
return
|
|
|
|
var/obj/item/weapon/paper/reqform = new /obj/item/weapon/paper(_loc)
|
|
reqform.name = "requisition form - [object.name]"
|
|
reqform.info += "<h3>[station_name] Supply Requisition Form</h3><hr>"
|
|
reqform.info += "INDEX: #[ordernum]<br>"
|
|
reqform.info += "REQUESTED BY: [orderedby]<br>"
|
|
reqform.info += "RANK: [orderedbyRank]<br>"
|
|
reqform.info += "REASON: [comment]<br>"
|
|
reqform.info += "SUPPLY CRATE TYPE: [object.name]<br>"
|
|
reqform.info += "ACCESS RESTRICTION: [get_access_desc(object.access)]<br>"
|
|
reqform.info += "CONTENTS:<br>"
|
|
reqform.info += object.manifest
|
|
reqform.info += "<hr>"
|
|
reqform.info += "STAMP BELOW TO APPROVE THIS REQUISITION:<br>"
|
|
|
|
reqform.update_icon() //Fix for appearing blank when printed.
|
|
|
|
return reqform
|
|
|
|
/datum/supply_order/proc/createObject(atom/_loc, errors=0)
|
|
if(!object)
|
|
return
|
|
|
|
//create the crate
|
|
var/atom/Crate = new object.containertype(_loc)
|
|
Crate.name = "[object.containername] [comment ? "([comment])":"" ]"
|
|
if(object.access)
|
|
Crate:req_access = list(text2num(object.access))
|
|
|
|
//create the manifest slip
|
|
var/obj/item/weapon/paper/manifest/slip = new /obj/item/weapon/paper/manifest()
|
|
slip.erroneous = errors
|
|
slip.points = object.cost
|
|
slip.ordernumber = ordernum
|
|
|
|
var/stationName = (errors & MANIFEST_ERROR_NAME) ? new_station_name() : station_name()
|
|
var/packagesAmt = SSshuttle.shoppinglist.len + ((errors & MANIFEST_ERROR_COUNT) ? rand(1,2) : 0)
|
|
|
|
slip.info = "<h3>[command_name()] Shipping Manifest</h3><hr><br>"
|
|
slip.info +="Order #[ordernum]<br>"
|
|
slip.info +="Destination: [stationName]<br>"
|
|
slip.info +="[packagesAmt] PACKAGES IN THIS SHIPMENT<br>"
|
|
slip.info +="CONTENTS:<br><ul>"
|
|
|
|
//we now create the actual contents
|
|
var/list/contains
|
|
if(istype(object, /datum/supply_packs/misc/randomised))
|
|
var/datum/supply_packs/misc/randomised/SO = object
|
|
contains = list()
|
|
if(object.contains.len)
|
|
for(var/j=1, j<=SO.num_contained, j++)
|
|
contains += pick(object.contains)
|
|
else
|
|
contains = object.contains
|
|
|
|
for(var/typepath in contains)
|
|
if(!typepath)
|
|
continue
|
|
var/atom/A = new typepath(Crate)
|
|
if(object.amount && A.vars.Find("amount") && A:amount)
|
|
A:amount = object.amount
|
|
slip.info += "<li>[A.name]</li>" //add the item to the manifest (even if it was misplaced)
|
|
|
|
if(istype(Crate, /obj/structure/closet/critter)) // critter crates do not actually spawn mobs yet and have no contains var, but the manifest still needs to list them
|
|
var/obj/structure/closet/critter/CritCrate = Crate
|
|
if(CritCrate.content_mob)
|
|
var/mob/crittername = CritCrate.content_mob
|
|
slip.info += "<li>[initial(crittername.name)]</li>"
|
|
|
|
if((errors & MANIFEST_ERROR_ITEM))
|
|
//secure and large crates cannot lose items
|
|
if(findtext("[object.containertype]", "/secure/") || findtext("[object.containertype]","/largecrate/"))
|
|
errors &= ~MANIFEST_ERROR_ITEM
|
|
else
|
|
var/lostAmt = max(round(Crate.contents.len/10), 1)
|
|
//lose some of the items
|
|
while(--lostAmt >= 0)
|
|
qdel(pick(Crate.contents))
|
|
|
|
//manifest finalisation
|
|
slip.info += "</ul><br>"
|
|
slip.info += "CHECK CONTENTS AND STAMP BELOW THE LINE TO CONFIRM RECEIPT OF GOODS<hr>" // And now this is actually meaningful.
|
|
slip.loc = Crate
|
|
if(istype(Crate, /obj/structure/closet/crate))
|
|
var/obj/structure/closet/crate/CR = Crate
|
|
CR.manifest = slip
|
|
CR.update_icon()
|
|
if(istype(Crate, /obj/structure/largecrate))
|
|
var/obj/structure/largecrate/LC = Crate
|
|
LC.manifest = slip
|
|
LC.update_icon()
|
|
|
|
return Crate
|
|
|
|
/datum/subsystem/shuttle/proc/generateSupplyOrder(packId, _orderedby, _orderedbyRank, _comment)
|
|
if(!packId)
|
|
return
|
|
var/datum/supply_packs/P = supply_packs[packId]
|
|
if(!P)
|
|
return
|
|
|
|
var/datum/supply_order/O = new()
|
|
O.ordernum = ordernum++
|
|
O.object = P
|
|
O.orderedby = _orderedby
|
|
O.orderedbyRank = _orderedbyRank
|
|
O.comment = _comment
|
|
|
|
return O
|
|
|