From 5dff5ccc4362e08fed71a3face41586664432116 Mon Sep 17 00:00:00 2001 From: caelaislinn Date: Sat, 16 Jun 2012 11:34:39 +1000 Subject: [PATCH] adding missing shield files Signed-off-by: caelaislinn --- .../WorkInProgress/Cael_Aislinn/shield_gen.dm | 280 ++++++++++++++++++ .../WorkInProgress/Cael_Aislinn/shielding.dmi | Bin 0 -> 2412 bytes 2 files changed, 280 insertions(+) create mode 100644 code/WorkInProgress/Cael_Aislinn/shield_gen.dm create mode 100644 code/WorkInProgress/Cael_Aislinn/shielding.dmi diff --git a/code/WorkInProgress/Cael_Aislinn/shield_gen.dm b/code/WorkInProgress/Cael_Aislinn/shield_gen.dm new file mode 100644 index 00000000000..46f1f4c6abb --- /dev/null +++ b/code/WorkInProgress/Cael_Aislinn/shield_gen.dm @@ -0,0 +1,280 @@ +//renwicks: fictional unit to describe shield strength +//a small meteor hit will deduct 1 renwick of strength from that shield tile +//light explosion range will do 1 renwick's damage +//medium explosion range will do 2 renwick's damage +//heavy explosion range will do 3 renwick's damage +//explosion damage is cumulative. if a tile is in range of light, medium and heavy damage, it will take a hit from all three + +/obj/machinery/shield_gen + name = "shield generator" + desc = "Machine that generates an impenetrable field of energy when activated." + icon = 'shielding.dmi' + icon_state = "generator0" + var/active = 0 + var/field_radius = 3 + var/list/field + density = 1 + anchored = 1 + var/locked = 0 + var/average_field_strength = 0 + var/strengthen_rate = 0.2 + var/max_strengthen_rate = 0.2 + var/powered = 0 + var/check_powered = 1 + var/obj/machinery/shield_capacitor/owned_capacitor + var/max_field_strength = 10 + var/time_since_fail = 100 + var/energy_conversion_rate = 0.01 //how many renwicks per watt? + var/flicker_shield_glitch = 1 //shield is slightly faulty, and flickers + // + use_power = 1 //0 use nothing + //1 use idle power + //2 use active power + idle_power_usage = 20 + active_power_usage = 100 + +/obj/machinery/shield_gen/New() + ..() + field = new/list() + for(var/obj/machinery/shield_capacitor/possible_cap in range(1)) + if(get_dir(possible_cap, src) == possible_cap.dir) + owned_capacitor = possible_cap + break + /*spawn(10) + check_powered()*/ + +//copied from a copypaste. DRY, right? +/obj/machinery/shield_gen/proc/check_powered() + /* + check_powered = 1 + if(!anchored) + powered = 0 + return 0 + var/turf/T = src.loc + var/obj/structure/cable/C = T.get_cable_node() + var/net + if (C) + net = C.netnum // find the powernet of the connected cable + + if(!net) + powered = 0 + return 0 + var/datum/powernet/PN = powernets[net] // find the powernet. Magic code, voodoo code. + + if(!PN) + powered = 0 + return 0 + var/surplus = max(PN.avail-PN.load, 0) + var/shieldload = min(rand(50,200), surplus) + if(shieldload==0 && !storedpower) // no cable or no power, and no power stored + powered = 0 + return 0 + else + powered = 1 + if(PN) + storedpower += shieldload + PN.newload += shieldload //uses powernet power. + */ + +/obj/machinery/shield_gen/process() + + if(!owned_capacitor) + for(var/obj/machinery/shield_capacitor/possible_cap in range(1)) + if(get_dir(possible_cap, src) == possible_cap.dir) + owned_capacitor = possible_cap + break + + if(active && field.len) + var/stored_renwicks = 0 + var/target_field_strength = min(average_field_strength + strengthen_rate, max_field_strength) + if(owned_capacitor) + var/assumed_charge = min(owned_capacitor.stored_charge, (target_field_strength / energy_conversion_rate) * field.len) + stored_renwicks = assumed_charge * energy_conversion_rate + owned_capacitor.stored_charge -= assumed_charge + + time_since_fail++ + + average_field_strength = 0 + target_field_strength = stored_renwicks / field.len + + if(!flicker_shield_glitch) + for(var/obj/effect/energy_field/E in field) + //check to see if the shield is strengthening or failing + if(E.strength > target_field_strength) + E.strength = target_field_strength + else if(E.strength + strengthen_rate > target_field_strength) + E.strength = target_field_strength + else + E.strength += strengthen_rate + + if(stored_renwicks - E.strength < 0) + E.strength = stored_renwicks + stored_renwicks -= E.strength + + average_field_strength += E.strength + //check if the current shield tile has enough energy to maintain itself + if(E.strength >= 1) + E.density = 1 + E.invisibility = 0 + else + E.density = 0 + E.invisibility = 2 + else + //the flicker shield glitch is an intersting quirk in 'older' and/or faulty shielding models + //basically, it strengthens the shields continuously until it can no longer sustain them... then it drops out for a few seconds and starts again + //this makes the shield 'flicker' every now and then until it stabilises + //when this glitch is fixed, shields will only be charged as much as is sustainable + for(var/obj/effect/energy_field/E in field) + //check to see if the shield is strengthening or failing + if(E.strength < target_field_strength) + E.strength += strengthen_rate + + retry: + if(stored_renwicks - E.strength < 0) + if(owned_capacitor.stored_charge > 0) + var/emergency_renwicks = min(E.strength, owned_capacitor.stored_charge * energy_conversion_rate) + owned_capacitor.stored_charge -= emergency_renwicks / energy_conversion_rate + stored_renwicks += emergency_renwicks + goto retry + else + E.strength = stored_renwicks + stored_renwicks -= E.strength + + average_field_strength += E.strength + //check if the current shield tile has enough energy to maintain itself + if(E.strength >= 1) + E.density = 1 + E.invisibility = 0 + else + E.density = 0 + E.invisibility = 2 + + //add any leftover charge back to the capacitor + if(owned_capacitor && stored_renwicks >= 0) + owned_capacitor.stored_charge += stored_renwicks / energy_conversion_rate + + average_field_strength /= field.len + if(average_field_strength < 0) + time_since_fail = 0 + else + average_field_strength = 0 + // + updateDialog() + +/obj/machinery/shield_gen/attack_hand(mob/user as mob) + + interact(user) + src.add_fingerprint(user) + +/obj/machinery/shield_gen/attackby(obj/item/W, mob/user) + + if(istype(W, /obj/item/weapon/card/id)||istype(W, /obj/item/device/pda)) + if (src.allowed(user)) + src.locked = !src.locked + user << "Controls are now [src.locked ? "locked." : "unlocked."]" + else + user << "\red Access denied." + + else + src.add_fingerprint(user) + user << "\red You hit the [src.name] with your [W.name]!" + for(var/mob/M in viewers(src)) + if(M == user) continue + M.show_message("\red The [src.name] has been hit with the [W.name] by [user.name]!") + +/obj/machinery/shield_gen/power_change() + if(stat & BROKEN) + icon_state = "broke" + else + if( powered() ) + if (src.active) + icon_state = "generator1" + else + icon_state = "generator0" + stat &= ~NOPOWER + else + spawn(rand(0, 15)) + src.icon_state = "generator0" + stat |= NOPOWER + if (src.active) + toggle() + +/obj/machinery/shield_gen/proc/toggle() + active = !active + power_change() + if(active) + var/list/covered_turfs = get_shielded_turfs() + if(get_turf(src) in covered_turfs) + covered_turfs.Remove(get_turf(src)) + for(var/turf/O in covered_turfs) + var/obj/effect/energy_field/E = new(O) + field.Add(E) + del covered_turfs + + for(var/mob/M in view(5,src)) + M << "\icon[src] You hear heavy droning start up." + else + for(var/obj/effect/energy_field/D in field) + field.Remove(D) + del D + + for(var/mob/M in view(5,src)) + M << "\icon[src] You hear heavy droning fade out." + +/obj/machinery/shield_gen/Topic(href, href_list[]) + ..() + if( href_list["close"] ) + usr << browse(null, "window=shield_generator") + usr.machine = null + return + else if( href_list["toggle"] ) + toggle() + else if( href_list["change_radius"] ) + field_radius += text2num(href_list["change_radius"]) + if(field_radius > 200) + field_radius = 200 + else if(field_radius < 0) + field_radius = 0 + else if( href_list["strengthen_rate"] ) + strengthen_rate += text2num(href_list["strengthen_rate"]) + if(strengthen_rate > 0.2) + strengthen_rate = 0.2 + else if(strengthen_rate < 0) + strengthen_rate = 0 + else if( href_list["max_field_strength"] ) + max_field_strength += text2num(href_list["max_field_strength"]) + if(max_field_strength > 1000) + max_field_strength = 1000 + else if(max_field_strength < 0) + max_field_strength = 0 + // + updateDialog() + +/obj/machinery/shield_gen/proc/interact(mob/user) + if ( (get_dist(src, user) > 1 ) || (stat & (BROKEN|NOPOWER)) ) + if (!istype(user, /mob/living/silicon)) + user.machine = null + user << browse(null, "window=shield_generator") + return + var/t = "Shield Generator Control Console
" + t += "[owned_capacitor ? "Charge capacitor connected." : "Unable to locate charge capacitor!"]
" + t += "This generator is: [active ? "Online" : "Offline" ] [active ? "\[Deactivate\]" : "\[Activate\]"]
" + t += "[time_since_fail > 2 ? "Field is stable." : "Warning, field is unstable!"]
" + t += "Coverage radius (generator will need a restart to take effect): -- - [field_radius * 2]m + ++
" + t += "Overall field strength: [average_field_strength] Renwicks ([100 * average_field_strength / max_field_strength]%)
" + t += "Charge consumption: [( (min(average_field_strength + strengthen_rate, max_field_strength)) / energy_conversion_rate) * field.len] Watts/sec
" + t += "Field charge rate (approx): -- -[strengthen_rate] Renwicks/sec + ++
" + t += "Maximum field strength (avg across field): \[min\] -- -[max_field_strength] Renwicks + ++ \[max\]
" + t += "
" + t += "Close
" + user << browse(t, "window=shield_generator;size=500x800") + user.machine = src + +/obj/machinery/shield_gen/proc/get_shielded_turfs() + return list() + +/obj/machinery/shield_gen/ex_act(var/severity) + + if(active) + toggle() + return ..() diff --git a/code/WorkInProgress/Cael_Aislinn/shielding.dmi b/code/WorkInProgress/Cael_Aislinn/shielding.dmi new file mode 100644 index 0000000000000000000000000000000000000000..99eadeba4d79cdebec99f18423063e5ab67c5559 GIT binary patch literal 2412 zcmV-y36u7TP)turU|?`CI7rO@|2Q~EczB2a%m5e|7$6`pFgQQ}nE*gQ zKzL{XNJv<~z`(kuKhppJ00DGTPE!Ct=GbNc005$TR9JLGWpiV4X>fFDZ*Bkpc$`yK zaB_9`^iy#0_2eo`Eh^5;&r`5fFwryM;w;ZhDainGjE%TBGg33tGfE(w;*!LYR3KAH ziHkEOv#1!zH00t;D@x2wg|OiY(o^$NixNxniwuZYYDiFNaYklpPD*h>Vo`QZYB55& z36gR%plE7NVkJnY4jdxPNKPzBOwI&ahh4iNm$HJZp9?rt01akPveYxGYybcVDoI2^ zRCt{2U5Rq*C=fI^R@C2RW;YX1nKk?WOz@6kFT0f>|;n1%~7#=B2T;P|Zt zig`V_%helBLM&bjba|!!2jd~&{xiW2C2)LbfkF!qmvO-~A54A`C>{Ra_^=GH_&Avf zOT#2!>fc$QSXWf>c>GTP{XWJ)8vJeLe;xkk$27p^W3*tqzMxr?fJxqC5-3&y<0w@3 z{XTxD?eWfEc7C+@N&e#p4pAfLmi#z1e+q_NjA`H{=xVs{|@9vY78M$2J24j2ON_x>)1=Ti&ZcFPujXY#Io z-{B)OpL-0FbAL^f-W1UH_g*~p?s8bBw95}Xer@mMe4vh$C+gU|kAUiK)nmJW`G7c| z52WVr5dUQHm_|Y!!^Z6ym>=1@F$JFUzt5*o?JNEc^A`@U+akgu0prN*a#%tVhJXbZ zq4`gYmkb`$6zMSW?DDy+Ur$efR7Xpx`xE9*G{5$t+iq@XaW}vS%Q-ly!!gP(`y7g| zj`t6*H#8iBk{1+iQs`hDLX2xB53x4wWry}eQDH^PNXAkgNBU~^EzlJ$pMEYTH&ao) z9V`Mi71x0Y+gZCiy%}oI#Oy_`0^qrWR14*{?N!Z$1LGWKlKyt}U;=NIS0JS>3I1o*bMwxT z;2bWtl{KU6fd(=r_*%7B+_+f?tc7F`akn7gO?`xmabemOu@=U|+cfFFEW1*7t6n3a zr0hoE`s=xvQ2n)9&8|1Jts_(OfwY!aXGCf~sNRA%xs}AMNPczz_X&CyC^6+km+En` zQou0-ybT2t$pgs>>R@8!0W+Y_6XRQ7cw&JOU_Oo=_LPy|`dU7-Ha!UkcBZ2WWFuBm zPFN(wMMhzKc(DxkVW%qaC83QJ4w*DGG&FG0c^}>k>snH4`@GbiR%~B4IyYfWH-f=w zZScT7yrSQ}PF~Ho8WK63fjHJPwzz>U1XWlgWGAB!pe*4XtO+;+GFsp*P^b$Tv+zoE z)5d;K86sg=&KZHaejo|FYljYst7Y4AbW|iaXcjq~>{B`S5R)EG+^Q&)2QL#Y&A3= z@`1MC`V9juDQEwe3uZAtu0{p0T;5CPN5E`=of&Zf;?X&oB-Jyqhc3eiS@qyW(X*dC}}U|ZMQ%CJmrC{7n}o$Ukol4 z{`OOsb9>2Ou~9aATbKDXaf>H3!|GV-M;YD+G)IsIn<;c}9qgLi^W3+dR&BeFY{eoFM^Px*9Tl9Y6lsN*-=FQa@y&+JF8N!gDvzBbDmVY zPfBgp*ajRm$0O@;4XC#Ozs7*__bOP!e|H41$NS~a00HEPi96V;2E=cNy_;U>cU)G6 zVg>;2IOY97-d+245<-4mT{Y^Eb|3-uqiILSeJEo{_jRxV+3yE>i2qtOgF8qI*C(F`~m&48ov_6EHDcDkXV ep`qb_jsF0$o_$E0NW8iL0000