mirror of
https://github.com/PolarisSS13/Polaris.git
synced 2026-01-05 23:12:26 +00:00
e78f6c0d50
git-svn-id: http://tgstation13.googlecode.com/svn/trunk@944 316c924e-a436-60f5-8080-3fe189b3f50e
290 lines
7.9 KiB
Plaintext
290 lines
7.9 KiB
Plaintext
#define TOUCH 1
|
|
#define INGEST 2
|
|
|
|
///////////////////////////////////////////////////////////////////////////////////
|
|
|
|
datum
|
|
reagents
|
|
var/list/reagent_list = new/list()
|
|
var/total_volume = 0
|
|
var/maximum_volume = 100
|
|
var/atom/my_atom = null
|
|
|
|
New(maximum=100)
|
|
maximum_volume = maximum
|
|
|
|
proc
|
|
|
|
remove_any(var/amount=1)
|
|
var/total_transfered = 0
|
|
var/current_list_element = 1
|
|
|
|
current_list_element = rand(1,reagent_list.len)
|
|
|
|
while(total_transfered != amount)
|
|
if(total_transfered >= amount) break
|
|
if(total_volume <= 0 || !reagent_list.len) break
|
|
|
|
if(current_list_element > reagent_list.len) current_list_element = 1
|
|
var/datum/reagent/current_reagent = reagent_list[current_list_element]
|
|
|
|
src.remove_reagent(current_reagent.id, 1)
|
|
|
|
current_list_element++
|
|
total_transfered++
|
|
src.update_total()
|
|
|
|
handle_reactions()
|
|
return total_transfered
|
|
|
|
get_master_reagent_name()
|
|
var/the_name = null
|
|
var/the_volume = 0
|
|
for(var/datum/reagent/A in reagent_list)
|
|
if(A.volume > the_volume)
|
|
the_volume = A.volume
|
|
the_name = A.name
|
|
|
|
return the_name
|
|
|
|
get_master_reagent_id()
|
|
var/the_id = null
|
|
var/the_volume = 0
|
|
for(var/datum/reagent/A in reagent_list)
|
|
if(A.volume > the_volume)
|
|
the_volume = A.volume
|
|
the_id = A.id
|
|
|
|
return the_id
|
|
|
|
trans_to(var/obj/target, var/amount=1, var/multiplier=1, var/preserve_data=1)//if preserve_data=0, the reagents data will be lost. Usefull if you use data for some strange stuff and don't want it to be transferred.
|
|
var/total_transfered = 0
|
|
var/current_list_element = 1
|
|
var/datum/reagents/R = target.reagents
|
|
var/trans_data = null
|
|
//if(R.total_volume + amount > R.maximum_volume) return 0
|
|
|
|
current_list_element = rand(1,reagent_list.len) //Eh, bandaid fix.
|
|
|
|
while(total_transfered != amount)
|
|
if(total_transfered >= amount) break //Better safe than sorry.
|
|
if(total_volume <= 0 || !reagent_list.len) break
|
|
if(R.total_volume >= R.maximum_volume) break
|
|
|
|
if(current_list_element > reagent_list.len) current_list_element = 1
|
|
var/datum/reagent/current_reagent = reagent_list[current_list_element]
|
|
if(preserve_data)
|
|
trans_data = current_reagent.data
|
|
R.add_reagent(current_reagent.id, (1 * multiplier), trans_data)
|
|
src.remove_reagent(current_reagent.id, 1)
|
|
|
|
current_list_element++
|
|
total_transfered++
|
|
src.update_total()
|
|
R.update_total()
|
|
|
|
R.handle_reactions()
|
|
handle_reactions()
|
|
|
|
return total_transfered
|
|
|
|
metabolize(var/mob/M)
|
|
for(var/A in reagent_list)
|
|
var/datum/reagent/R = A
|
|
R.on_mob_life(M)
|
|
update_total()
|
|
|
|
conditional_update_move(var/atom/A, var/Running = 0)
|
|
for(var/datum/reagent/R in reagent_list)
|
|
R.on_move (A, Running)
|
|
update_total()
|
|
|
|
conditional_update(var/atom/A, )
|
|
for(var/datum/reagent/R in reagent_list)
|
|
R.on_update (A)
|
|
update_total()
|
|
|
|
handle_reactions()
|
|
if(ismob(my_atom)) return //No reactions inside mobs :I
|
|
|
|
for(var/A in typesof(/datum/chemical_reaction) - /datum/chemical_reaction)
|
|
var/datum/chemical_reaction/C = new A()
|
|
var/total_required_reagents = C.required_reagents.len
|
|
var/total_matching_reagents = 0
|
|
var/list/multipliers = new/list()
|
|
|
|
for(var/B in C.required_reagents)
|
|
if(has_reagent(B, C.required_reagents[B]))
|
|
total_matching_reagents++
|
|
multipliers += round(get_reagent_amount(B) / C.required_reagents[B])
|
|
|
|
if(total_matching_reagents == total_required_reagents)
|
|
var/multiplier = min(multipliers)
|
|
for(var/B in C.required_reagents)
|
|
del_reagent(B)
|
|
|
|
var/created_volume = C.result_amount*multiplier
|
|
if(C.result)
|
|
multiplier = max(multiplier, 1) //this shouldnt happen ...
|
|
add_reagent(C.result, C.result_amount*multiplier)
|
|
|
|
for(var/mob/M in viewers(4, get_turf(my_atom)) )
|
|
M << "\blue \icon[my_atom] The solution begins to bubble."
|
|
playsound(get_turf(my_atom), 'bubbles.ogg', 80, 1)
|
|
|
|
C.on_reaction(src, created_volume)
|
|
|
|
update_total()
|
|
return 0
|
|
|
|
isolate_reagent(var/reagent)
|
|
for(var/A in reagent_list)
|
|
var/datum/reagent/R = A
|
|
if (R.id != reagent)
|
|
del_reagent(R.id)
|
|
update_total()
|
|
|
|
del_reagent(var/reagent)
|
|
for(var/A in reagent_list)
|
|
var/datum/reagent/R = A
|
|
if (R.id == reagent)
|
|
reagent_list -= A
|
|
del(A)
|
|
update_total()
|
|
my_atom.on_reagent_change()
|
|
return 0
|
|
|
|
|
|
return 1
|
|
|
|
update_total()
|
|
total_volume = 0
|
|
for(var/datum/reagent/R in reagent_list)
|
|
if(R.volume < 1)
|
|
del_reagent(R.id)
|
|
else
|
|
total_volume += R.volume
|
|
|
|
return 0
|
|
|
|
clear_reagents()
|
|
for(var/datum/reagent/R in reagent_list)
|
|
del_reagent(R.id)
|
|
return 0
|
|
|
|
reaction(var/atom/A, var/method=TOUCH, var/volume_modifier=0)
|
|
|
|
switch(method)
|
|
if(TOUCH)
|
|
for(var/datum/reagent/R in reagent_list)
|
|
if(ismob(A))
|
|
spawn(0)
|
|
if(!R) return
|
|
else R.reaction_mob(A, TOUCH, R.volume+volume_modifier)
|
|
if(isturf(A))
|
|
spawn(0)
|
|
if(!R) return
|
|
else R.reaction_turf(A, R.volume+volume_modifier)
|
|
if(isobj(A))
|
|
spawn(0)
|
|
if(!R) return
|
|
else R.reaction_obj(A, R.volume+volume_modifier)
|
|
if(INGEST)
|
|
for(var/datum/reagent/R in reagent_list)
|
|
if(ismob(A) && R)
|
|
spawn(0)
|
|
if(!R) return
|
|
else R.reaction_mob(A, INGEST, R.volume+volume_modifier)
|
|
if(isturf(A) && R)
|
|
spawn(0)
|
|
if(!R) return
|
|
else R.reaction_turf(A, R.volume+volume_modifier)
|
|
if(isobj(A) && R)
|
|
spawn(0)
|
|
if(!R) return
|
|
else R.reaction_obj(A, R.volume+volume_modifier)
|
|
return
|
|
|
|
add_reagent(var/reagent, var/amount, var/data=null)
|
|
if(!isnum(amount)) return 1
|
|
update_total()
|
|
if(total_volume + amount > maximum_volume) amount = (maximum_volume - total_volume) //Doesnt fit in. Make it disappear. Shouldnt happen. Will happen.
|
|
|
|
for(var/A in reagent_list)
|
|
var/datum/reagent/R = A
|
|
if (R.id == reagent)
|
|
R.volume += amount
|
|
update_total()
|
|
my_atom.on_reagent_change()
|
|
return 0
|
|
|
|
for(var/A in typesof(/datum/reagent) - /datum/reagent)
|
|
var/datum/reagent/R = new A()
|
|
if (R.id == reagent)
|
|
reagent_list += R
|
|
R.holder = src
|
|
R.volume = amount
|
|
R.data = data
|
|
//debug
|
|
//world << "Adding data"
|
|
//for(var/D in R.data)
|
|
// world << "Container data: [D] = [R.data[D]]"
|
|
//debug
|
|
update_total()
|
|
my_atom.on_reagent_change()
|
|
return 0
|
|
|
|
return 1
|
|
|
|
remove_reagent(var/reagent, var/amount)
|
|
|
|
if(!isnum(amount)) return 1
|
|
|
|
for(var/A in reagent_list)
|
|
var/datum/reagent/R = A
|
|
if (R.id == reagent)
|
|
R.volume -= amount
|
|
update_total()
|
|
handle_reactions()
|
|
my_atom.on_reagent_change()
|
|
return 0
|
|
|
|
return 1
|
|
|
|
has_reagent(var/reagent, var/amount = -1)
|
|
|
|
for(var/A in reagent_list)
|
|
var/datum/reagent/R = A
|
|
if (R.id == reagent)
|
|
if(!amount) return 1
|
|
else
|
|
if(R.volume >= amount) return 1
|
|
else return 0
|
|
|
|
return 0
|
|
|
|
get_reagent_amount(var/reagent)
|
|
for(var/A in reagent_list)
|
|
var/datum/reagent/R = A
|
|
if (R.id == reagent)
|
|
return R.volume
|
|
|
|
return 0
|
|
|
|
get_reagents()
|
|
var/res = ""
|
|
for(var/datum/reagent/A in reagent_list)
|
|
if (res != "") res += ","
|
|
res += A.name
|
|
|
|
return res
|
|
|
|
///////////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
// Convenience proc to create a reagents holder for an atom
|
|
// Max vol is maximum volume of holder
|
|
atom/proc/create_reagents(var/max_vol)
|
|
reagents = new/datum/reagents(max_vol)
|
|
reagents.my_atom = src
|