Files
Paradise/code/modules/mining/minerals.dm
Rob Nelson 6ad3ca77f1 New stuff for mining
Conflicts:
	code/game/mining_surprise.dm
	code/game/objects/structures/wizmobile.dm
	code/modules/mining/mine_turfs.dm
	code/modules/mining/minerals.dm
	compare_report_tg.txt
	icons/obj/mining.dmi
	icons/turf/walls.dmi
2014-02-16 03:54:39 -05:00

101 lines
1.9 KiB
Plaintext

var/list/name_to_mineral
proc/SetupMinerals()
name_to_mineral = list()
for(var/type in typesof(/mineral) - /mineral)
var/mineral/new_mineral = new type
if(!new_mineral.name)
continue
name_to_mineral[new_mineral.name] = new_mineral
return 1
mineral
///What am I called?
var/name
var/display_name
///How much ore?
var/result_amount
///Does this type of deposit spread?
var/spread = 1
///Chance of spreading in any direction
var/spread_chance
///Path to the resultant ore.
var/ore
New()
. = ..()
if(!display_name)
display_name = name
proc/UpdateTurf(var/turf/simulated/mineral/T)
T.UpdateMineral()
mineral/uranium
name = "Uranium"
result_amount = 5
spread_chance = 10
ore = /obj/item/weapon/ore/uranium
mineral/iron
name = "Iron"
result_amount = 5
spread_chance = 25
ore = /obj/item/weapon/ore/iron
mineral/diamond
name = "Diamond"
result_amount = 5
spread_chance = 10
ore = /obj/item/weapon/ore/diamond
mineral/gold
name = "Gold"
result_amount = 5
spread_chance = 10
ore = /obj/item/weapon/ore/gold
mineral/silver
name = "Silver"
result_amount = 5
spread_chance = 10
ore = /obj/item/weapon/ore/silver
mineral/plasma
name = "Plasma"
result_amount = 5
spread_chance = 25
ore = /obj/item/weapon/ore/plasma
mineral/clown
display_name = "Bananium"
name = "Clown"
result_amount = 3
spread = 0
ore = /obj/item/weapon/ore/clown
mineral/gibtonite
display_name = "Gibtonite"
name = "Gibtonite"
result_amount = 1
spread_chance = 10
ore = /obj/item/weapon/twohanded/required/gibtonite
UpdateTurf(var/turf/T)
if(!istype(T,/turf/simulated/mineral/gibtonite))
T.ChangeTurf(/turf/simulated/mineral/gibtonite)
else
..()
mineral/cave
display_name = "Cave"
name = "Cave"
result_amount = 1
spread_chance = 10
ore = null
UpdateTurf(var/turf/T)
if(!istype(T,/turf/simulated/floor/plating/airless/asteroid/cave))
T.ChangeTurf(/turf/simulated/floor/plating/airless/asteroid/cave)
else
..()