mirror of
https://github.com/goonstation/goonstation-2016.git
synced 2026-07-13 10:02:33 +01:00
Kyle2143
939 lines
29 KiB
Plaintext
939 lines
29 KiB
Plaintext
//
|
|
// This file contains stuff that was originally made by me and then expanded on or butchered by other people.
|
|
// - Keelin
|
|
//
|
|
|
|
/proc/scaleatomall()
|
|
var/scalex = input(usr,"X Scale","1 normal, 2 double etc","1") as num
|
|
var/scaley = input(usr,"Y Scale","1 normal, 2 double etc","1") as num
|
|
logTheThing("admin", usr, null, "scaled every goddamn atom by X:[scalex] Y:[scaley]")
|
|
logTheThing("diary", usr, null, "scaled every goddamn atom by X:[scalex] Y:[scaley]", "admin")
|
|
message_admins("[key_name(usr)] scaled every goddamn atom by X:[scalex] Y:[scaley]")
|
|
for(var/atom/A in world)
|
|
A.Scale(scalex,scaley)
|
|
return
|
|
|
|
/proc/rotateatomall()
|
|
var/rot = input(usr,"Rotation","Rotation","0") as num
|
|
logTheThing("admin", usr, null, "rotated every goddamn atom by [rot] degrees")
|
|
logTheThing("diary", usr, null, "rotated every goddamn atom by [rot] degrees", "admin")
|
|
message_admins("[key_name(usr)] rotated every goddamn atom by [rot] degrees")
|
|
for(var/atom/A in world)
|
|
A.Turn(rot)
|
|
return
|
|
|
|
/proc/scaleatom()
|
|
var/atom/target = input(usr,"Target","Target") as mob|obj in world
|
|
var/scalex = input(usr,"X Scale","1 normal, 2 double etc","1") as num
|
|
var/scaley = input(usr,"Y Scale","1 normal, 2 double etc","1") as num
|
|
logTheThing("admin", usr, null, "scaled [target] by X:[scalex] Y:[scaley]")
|
|
logTheThing("diary", usr, null, "scaled [target] by X:[scalex] Y:[scaley]", "admin")
|
|
message_admins("[key_name(usr)] scaled [target] by X:[scalex] Y:[scaley]")
|
|
target.Scale(scalex, scaley)
|
|
return
|
|
|
|
/proc/rotateatom()
|
|
var/atom/target = input(usr,"Target","Target") as mob|obj in world
|
|
var/rot = input(usr,"Rotation","Rotation","0") as num
|
|
logTheThing("admin", usr, null, "rotated [target] by [rot] degrees")
|
|
logTheThing("diary", usr, null, "rotated [target] by [rot] degrees", "admin")
|
|
message_admins("[key_name(usr)] rotated [target] by [rot] degrees")
|
|
target.Turn(rot)
|
|
return
|
|
|
|
//proc/can_see(var/atom/source, var/atom/target, var/length=5)
|
|
|
|
/*
|
|
/verb/fuck_this_shit()
|
|
set name = "Press this if the server is so badly fucked up that it will never recover or restart"
|
|
set category = "Debug"
|
|
//del(world)
|
|
*/
|
|
|
|
/proc/is_null_or_space(var/input)
|
|
if(input == " " || input == "" || isnull(input)) return 1
|
|
else return 0
|
|
|
|
/proc/lolcat_parse(var/datum/text_roamer/R)
|
|
var/new_string = ""
|
|
var/used = 0
|
|
|
|
switch(lowertext(R.curr_char))
|
|
|
|
if("d")
|
|
if( !is_null_or_space(R.prev_char) && lowertext(R.next_char) == "e" && is_null_or_space(R.next_next_char))
|
|
new_string = "ded"
|
|
used = 2
|
|
|
|
if("a")
|
|
if( is_null_or_space(R.prev_char) && lowertext(R.next_char) == "m" && is_null_or_space(R.next_next_char))
|
|
new_string = "are"
|
|
used = 2
|
|
//else if(!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "d" && lowertext(R.next_next_char) == "e")
|
|
// new_string = "aid"
|
|
// used = 3
|
|
else if( !is_null_or_space(R.prev_char) && lowertext(R.next_char) == "y" && !is_null_or_space(R.next_next_char))
|
|
new_string = "eh"
|
|
used = 2
|
|
else if(!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "u" && !is_null_or_space(R.next_next_char))
|
|
new_string = "oo"
|
|
used = 2
|
|
else if(is_null_or_space(R.prev_char) && lowertext(R.next_char) == "r" && lowertext(R.next_next_char) == "e" && is_null_or_space(R.next_next_next_char))
|
|
new_string = "r"
|
|
used = 3
|
|
|
|
if("h")
|
|
if(lowertext(R.next_char) == "a" && lowertext(R.next_next_char) == "v" && lowertext(R.next_next_next_char) == "e")
|
|
new_string = "has"
|
|
used = 4
|
|
else if(is_null_or_space(R.prev_char) && lowertext(R.next_char) == "e" && is_null_or_space(R.next_next_char))
|
|
new_string = "him"
|
|
used = 2
|
|
else if(is_null_or_space(R.prev_char) && lowertext(R.next_char) == "i" && lowertext(R.next_next_char) == "s" && is_null_or_space(R.next_next_next_char))
|
|
new_string = "him"
|
|
used = 3
|
|
else if(lowertext(R.next_char) == "e" && lowertext(R.next_next_char) == "r" && lowertext(R.next_next_next_char) == "e")
|
|
new_string = "ere"
|
|
used = 4
|
|
|
|
if("m")
|
|
if(is_null_or_space(R.prev_char) && lowertext(R.next_char) == "e" && is_null_or_space(R.next_next_char))
|
|
new_string = "i"
|
|
used = 2
|
|
|
|
if("g")
|
|
if(!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "h" && !is_null_or_space(R.next_next_char))
|
|
new_string = ""
|
|
used = 2
|
|
|
|
if("n")
|
|
if(!is_null_or_space(R.prev_char)&& lowertext(R.next_char) == "d" && lowertext(R.next_next_char) == "s" && is_null_or_space(R.next_next_char))
|
|
new_string = "nz"
|
|
used = 3
|
|
else if(is_null_or_space(R.prev_char)&& lowertext(R.next_char) == "o" && is_null_or_space(R.next_next_char))
|
|
new_string = "noes"
|
|
used = 2
|
|
|
|
if("t")
|
|
if(!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "i" && lowertext(R.next_next_char) == "o" && lowertext(R.next_next_next_char) == "n")
|
|
new_string = "shun"
|
|
used = 4
|
|
else if(lowertext(R.next_char) == "h" && lowertext(R.next_next_char) == "e" && lowertext(R.next_next_next_char) == "y")
|
|
new_string = "dem"
|
|
used = 4
|
|
else if(lowertext(R.next_char) == "h" && lowertext(R.next_next_char) == "e")
|
|
new_string = "teh" //da
|
|
used = 3
|
|
else if(!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "l" && lowertext(R.next_next_char) == "e" && is_null_or_space(R.next_next_next_char))
|
|
new_string = "tul"
|
|
used = 3
|
|
else if(!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "e" && is_null_or_space(R.next_next_char))
|
|
new_string = "ted"
|
|
used = 2
|
|
else if(lowertext(R.next_char) == "h")
|
|
new_string = pick("d","f")
|
|
used = 2
|
|
else if(!is_null_or_space(R.prev_char) && is_null_or_space(R.next_char))
|
|
new_string = "te"
|
|
used = 1
|
|
|
|
if("q")
|
|
new_string = "kw"
|
|
used = 1
|
|
|
|
if("o")
|
|
if (!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "u" && is_null_or_space(R.next_next_char))
|
|
new_string = "o"
|
|
used = 2
|
|
if (!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "u" && !is_null_or_space(R.next_next_char))
|
|
new_string = "ow"
|
|
used = 2
|
|
else if (R.in_word() && lowertext(R.next_char) == "o")
|
|
new_string = "u"
|
|
used = 2
|
|
else if (R.in_word())
|
|
new_string = "u"
|
|
used = 1
|
|
else if (R.alone())
|
|
new_string = "u"
|
|
used = 1
|
|
|
|
if("e")
|
|
if (!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "m" && is_null_or_space(R.next_next_char))
|
|
new_string = "am"
|
|
used = 2
|
|
else if (!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "n" && is_null_or_space(R.next_next_char))
|
|
new_string = "un"
|
|
used = 2
|
|
else if (!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "r" && is_null_or_space(R.next_next_char))
|
|
new_string = pick("ah","ur")
|
|
used = 2
|
|
else if (!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "l" && is_null_or_space(R.next_next_char))
|
|
new_string = "ul"
|
|
used = 2
|
|
else if (!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "n" && lowertext(R.next_next_char) == "t" && is_null_or_space(R.next_next_next_char))
|
|
new_string = "unt"
|
|
used = 3
|
|
else if (!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "d" && is_null_or_space(R.next_next_char))
|
|
new_string = "eded"
|
|
used = 2
|
|
|
|
if("k")
|
|
if(lowertext(R.next_char) == "n" && !is_null_or_space(R.next_next_char))
|
|
new_string = "n"
|
|
used = 2
|
|
|
|
if("w")
|
|
if(lowertext(R.next_char) == "h" && lowertext(R.next_next_char) == "y" && is_null_or_space(R.next_next_next_char))
|
|
new_string = "y"
|
|
used = 3
|
|
|
|
if("y")
|
|
if(is_null_or_space(R.prev_char) && lowertext(R.next_char) == "o" && lowertext(R.next_next_char) == "u")
|
|
new_string = "u"
|
|
used = 3
|
|
else if(!is_null_or_space(R.prev_char) && is_null_or_space(R.next_char))
|
|
new_string = "ai" //eh
|
|
used = 1
|
|
|
|
if("i")
|
|
if(is_null_or_space(R.prev_char) && lowertext(R.next_char) == "m" && is_null_or_space(R.next_next_char))
|
|
new_string = "iz"
|
|
used = 2
|
|
else if(is_null_or_space(R.prev_char) && lowertext(R.next_char) == "'" && lowertext(R.next_next_char) == "m" && is_null_or_space(R.next_next_next_char))
|
|
new_string = "iz"
|
|
used = 3
|
|
else if(!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "n" && lowertext(R.next_next_char) == "g" && is_null_or_space(R.next_next_next_char))
|
|
new_string = "in"
|
|
used = 3
|
|
else if(!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "t" && lowertext(R.next_next_char) == "e" && is_null_or_space(R.next_next_next_char))
|
|
new_string = "iet"
|
|
used = 3
|
|
else if(!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "o" && lowertext(R.next_next_char) == "u" && is_null_or_space(R.next_next_next_char))
|
|
new_string = "u"
|
|
used = 3
|
|
|
|
if("s")
|
|
if(!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "s")
|
|
new_string = "z"
|
|
used = 2
|
|
else if(!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "h" && lowertext(R.next_next_char) == "e" && is_null_or_space(R.next_next_next_char))
|
|
new_string = "her"
|
|
used = 3
|
|
else if(!is_null_or_space(R.prev_char) && is_null_or_space(R.next_char))
|
|
new_string = "z"
|
|
used = 1
|
|
|
|
if("w")
|
|
if(!is_null_or_space(R.prev_char) && lowertext(R.next_char) == "h" && !is_null_or_space(R.next_next_char))
|
|
new_string = "w"
|
|
used = 2
|
|
|
|
if("u")
|
|
if(R.in_word())
|
|
new_string = "oo"
|
|
used = 1
|
|
|
|
if(new_string == "")
|
|
new_string = R.curr_char
|
|
used = 1
|
|
|
|
var/datum/parse_result/P = new/datum/parse_result
|
|
P.string = uppertext(new_string)
|
|
P.chars_used = used
|
|
return P
|
|
|
|
/proc/lolcat(var/string)
|
|
var/modded = ""
|
|
var/datum/text_roamer/T = new/datum/text_roamer(string)
|
|
|
|
for(var/i = 0, i < length(string), i=i)
|
|
var/datum/parse_result/P = lolcat_parse(T)
|
|
modded += P.string
|
|
i += P.chars_used
|
|
T.curr_char_pos = T.curr_char_pos + P.chars_used
|
|
T.update()
|
|
|
|
if(prob(16))
|
|
switch(pick(1,2))
|
|
if(1)
|
|
modded += " SRSLY"
|
|
if(2)
|
|
modded += " LUL"
|
|
|
|
return modded
|
|
|
|
/*/area/forest
|
|
name = "Strange Forest"
|
|
icon_state = "null"
|
|
luminosity = 1
|
|
RL_Lighting = 0
|
|
requires_power = 0
|
|
|
|
/area/forest/entrance
|
|
name = "Strange Forest - Entrance"
|
|
icon_state = "null"
|
|
luminosity = 1
|
|
RL_Lighting = 0
|
|
requires_power = 0*/
|
|
|
|
|
|
var/reverse_mode = 0
|
|
|
|
/proc/reverse_text(var/string)
|
|
var/new_string=""
|
|
for(var/i=length(string)+1, i>0, i--)
|
|
new_string += copytext(string,i,i+1)
|
|
return new_string
|
|
|
|
/proc/reverse()
|
|
reverse_mode = !reverse_mode
|
|
for(var/atom/A)
|
|
A.name = reverse_text(A.name)
|
|
if(hasvar(A,"real_name")) A:real_name = reverse_text(A:real_name)
|
|
if(hasvar(A,"registered")) A:registered = reverse_text(A:registered)
|
|
|
|
/proc/circlerange(center=usr,radius=3)
|
|
|
|
var/turf/centerturf = get_turf(center)
|
|
var/list/turfs = new/list()
|
|
var/rsq = radius * (radius+0.5)
|
|
|
|
for(var/atom/T in range(radius, centerturf))
|
|
var/dx = T.x - centerturf.x
|
|
var/dy = T.y - centerturf.y
|
|
if(dx*dx + dy*dy <= rsq)
|
|
turfs += T
|
|
|
|
//turfs += centerturf
|
|
return turfs
|
|
|
|
/proc/circleview(center=usr,radius=3)
|
|
|
|
var/turf/centerturf = get_turf(center)
|
|
var/list/turfs = new/list()
|
|
var/rsq = radius * (radius+0.5)
|
|
|
|
for(var/atom/T in view(radius, centerturf))
|
|
var/dx = T.x - centerturf.x
|
|
var/dy = T.y - centerturf.y
|
|
if(dx*dx + dy*dy <= rsq)
|
|
turfs += T
|
|
|
|
//turfs += centerturf
|
|
return turfs
|
|
|
|
/proc/fireflash_sm(atom/center, radius, temp, falloff, capped = 1, bypass_RNG = 0)
|
|
var/list/affected = fireflash_s(center, radius, temp, falloff)
|
|
for (var/turf/T in affected)
|
|
if (istype(T, /turf/simulated))
|
|
var/mytemp = affected[T]
|
|
var/melt = 1643.15 // default steel melting point
|
|
if (T.material && T.material.hasProperty(PROP_MELTING))
|
|
melt = T.material.getProperty(PROP_MELTING)
|
|
var/divisor = melt
|
|
if (mytemp >= melt * 2)
|
|
var/chance = mytemp / divisor
|
|
if (capped)
|
|
chance = min(chance, T:default_melt_cap)
|
|
if (prob(chance) || bypass_RNG) // The bypass is for thermite (Convair880).
|
|
T.visible_message("<span style=\"color:red\">[T] melts!</span>")
|
|
T.burn_down()
|
|
return affected
|
|
|
|
/proc/ff_cansee(var/atom/A, var/atom/B)
|
|
var/AT = get_turf(A)
|
|
var/BT = get_turf(B)
|
|
if (AT == BT)
|
|
return 1
|
|
var/list/line = getline(A,B)
|
|
for (var/turf/T in line)
|
|
if (T == AT || T == BT)
|
|
break
|
|
if (T.density)
|
|
return 0
|
|
var/obj/blob/BL = locate() in T
|
|
if (istype(BL, /obj/blob/wall) || istype(BL, /obj/blob/firewall) || istype(BL, /obj/blob/reflective))
|
|
return 0
|
|
return 1
|
|
|
|
/proc/fireflash_s(atom/center, radius, temp, falloff)
|
|
if (locate(/obj/blob/firewall) in center)
|
|
return list()
|
|
if (temp < T0C + 60)
|
|
return list()
|
|
var/list/open = list()
|
|
var/list/affected = list()
|
|
var/list/closed = list()
|
|
var/list/hotspots = list()
|
|
var/turf/Ce = get_turf(center)
|
|
var/max_dist = radius
|
|
if (falloff)
|
|
max_dist = min((temp - (T0C + 60)) / falloff, radius)
|
|
open[Ce] = 0
|
|
while (open.len)
|
|
var/turf/T = open[1]
|
|
var/dist = open[T]
|
|
open -= T
|
|
closed += T
|
|
|
|
if (istype(T, /turf/space))
|
|
continue
|
|
if (dist > max_dist)
|
|
continue
|
|
if (!ff_cansee(Ce, T))
|
|
continue
|
|
|
|
var/obj/hotspot/existing_hotspot = locate(/obj/hotspot) in T
|
|
var/prev_temp = 0
|
|
var/need_expose = 0
|
|
var/expose_temp = 0
|
|
if (!existing_hotspot)
|
|
var/obj/hotspot/h = unpool(/obj/hotspot)
|
|
need_expose = 1
|
|
h.temperature = temp - dist * falloff
|
|
expose_temp = h.temperature
|
|
h.volume = 400
|
|
h.set_loc(T)
|
|
T.active_hotspot = h
|
|
hotspots += h
|
|
existing_hotspot = h
|
|
else if (existing_hotspot.temperature < temp - dist * falloff)
|
|
expose_temp = (temp - dist * falloff) - existing_hotspot.temperature
|
|
prev_temp = existing_hotspot.temperature
|
|
if (expose_temp > prev_temp * 3)
|
|
need_expose = 1
|
|
existing_hotspot.temperature = temp - dist * falloff
|
|
|
|
affected[T] = existing_hotspot.temperature
|
|
if (need_expose && expose_temp)
|
|
T.hotspot_expose(expose_temp, existing_hotspot.volume)
|
|
if (T == ff_debug_turf && ff_debugger)
|
|
boutput(ff_debugger, "<span style='color:#ff8800'>Fireflash affecting tile at [showCoords(T.x, T.y, T.z)], exposing to temperature [expose_temp], central tile is at [showCoords(Ce.x, Ce.y, Ce.z)], previous temperature: [prev_temp]</span>")
|
|
if(istype(T, /turf/simulated/floor)) T:burn_tile()
|
|
for (var/mob/living/L in T)
|
|
L.update_burning(min(55, max(0, expose_temp - 100 / 550)))
|
|
L.bodytemperature = (2 * L.bodytemperature + temp) / 3
|
|
spawn(0)
|
|
for (var/obj/critter/C in T)
|
|
C.health -= (30 * C.firevuln)
|
|
C.check_health()
|
|
|
|
if (T.density)
|
|
continue
|
|
for (var/obj/O in T)
|
|
if (O.density)
|
|
continue
|
|
if (dist == max_dist)
|
|
continue
|
|
|
|
for (var/dir in cardinal)
|
|
var/turf/link = get_step(T, dir)
|
|
if (!link)
|
|
continue
|
|
var/dx = link.x - Ce.x
|
|
var/dy = link.y - Ce.y
|
|
var/target_dist = max((dist + 1 + sqrt(dx * dx + dy * dy)) / 2, dist)
|
|
if (!(link in closed))
|
|
if (link in open)
|
|
if (open[link] > target_dist)
|
|
open[link] = target_dist
|
|
else
|
|
open[link] = target_dist
|
|
|
|
spawn(1) // dumb lighting hotfix
|
|
for(var/obj/hotspot/A in hotspots)
|
|
A.set_real_color() // enable light
|
|
|
|
spawn(30)
|
|
for(var/obj/hotspot/A in hotspots)
|
|
if (!A.disposed)
|
|
pool(A)
|
|
hotspots.len = 0
|
|
|
|
return affected
|
|
|
|
|
|
/proc/fireflash(atom/center, radius)
|
|
tfireflash(center, radius, rand(2800,3200))
|
|
|
|
/proc/tfireflash(atom/center, radius, temp)
|
|
if (locate(/obj/blob/firewall) in center)
|
|
return
|
|
var/list/hotspots = new/list()
|
|
for(var/turf/T in range(radius,get_turf(center)))
|
|
if(istype(T, /turf/space)) continue
|
|
if(locate(/obj/hotspot) in T) continue
|
|
if(!can_line(get_turf(center), T, radius+1)) continue
|
|
for(var/obj/spacevine/V in T) qdel(V)
|
|
// for(var/obj/alien/weeds/V in T) qdel(V)
|
|
|
|
var/obj/hotspot/h = unpool(/obj/hotspot)
|
|
h.temperature = temp
|
|
h.volume = 400
|
|
h.set_real_color()
|
|
h.set_loc(T)
|
|
T.active_hotspot = h
|
|
hotspots += h
|
|
|
|
T.hotspot_expose(h.temperature, h.volume)
|
|
//spawn(15) T.hotspot_expose(2000, 400)
|
|
|
|
if(istype(T, /turf/simulated/floor)) T:burn_tile()
|
|
spawn(0)
|
|
for(var/mob/living/L in T)
|
|
L.set_burning(55)
|
|
L.bodytemperature = max(temp/3, L.bodytemperature)
|
|
for(var/obj/critter/C in T)
|
|
if(istype(C, "/obj/critter/zombie")) C.health -= 15
|
|
C.health -= (30 * C.firevuln)
|
|
C.check_health()
|
|
spawn(5)
|
|
if(C)
|
|
C.health -= (2 * C.firevuln)
|
|
C.check_health()
|
|
sleep(5)
|
|
if(C)
|
|
C.health -= (2 * C.firevuln)
|
|
C.check_health()
|
|
sleep(5)
|
|
if(C)
|
|
C.health -= (2 * C.firevuln)
|
|
C.check_health()
|
|
sleep(5)
|
|
if(C)
|
|
C.health -= (2 * C.firevuln)
|
|
C.check_health()
|
|
sleep(5)
|
|
if(C)
|
|
C.health -= (2 * C.firevuln)
|
|
C.check_health()
|
|
sleep(5)
|
|
if(C)
|
|
C.health -= (2 * C.firevuln)
|
|
C.check_health()
|
|
/*
|
|
// Take that, you flaming bastards
|
|
if(istype(center, /obj) || istype(center, /mob))
|
|
var/message = "<b>A [pick("burst", "gout", "pillar", "column")] of flame bursts from"
|
|
if(istype(center, /obj))
|
|
message += " the"
|
|
message += " [center]"
|
|
for(var/mob/living/L in range(2,get_turf(center)))
|
|
if(center.fingerprintslast == L.key)
|
|
L.visible_message("[message], striking you squarely in the [pick("face", "chest", "groin")]! It burns!</b>")
|
|
if(prob(10))
|
|
L.ex_act(2.0)
|
|
else
|
|
L.ex_act(3.0)
|
|
else
|
|
L.visible_message("[message]!</b>")
|
|
center.ex_act(2.0)
|
|
*/
|
|
spawn(30)
|
|
for(var/obj/hotspot/A in hotspots)
|
|
if (!A.disposed)
|
|
pool(A)
|
|
hotspots.len = 0
|
|
|
|
/obj/item/relic
|
|
icon = 'icons/misc/hstation.dmi'
|
|
icon_state = "relic"
|
|
name = "strange relic"
|
|
desc = "It feels cold..."
|
|
var/active = 0
|
|
var/using = 0
|
|
var/beingUsed = 0
|
|
|
|
New()
|
|
loop()
|
|
return
|
|
|
|
proc/loop()
|
|
if(!active)
|
|
spawn(10) loop()
|
|
return
|
|
|
|
if(prob(1) && prob(50) && ismob(src.loc))
|
|
var/mob/M = src.loc
|
|
boutput(M, "<span style=\"color:red\">You feel uneasy ...</span>")
|
|
|
|
if(prob(25))
|
|
for(var/obj/machinery/light/L in range(6, get_turf(src)))
|
|
if(prob(25)) L.broken()
|
|
|
|
if(prob(1) && prob(50) && !using)
|
|
new/obj/critter/spirit( get_turf(src) )
|
|
|
|
if(prob(3) && prob(50))
|
|
var/obj/o = new/obj/spook( get_turf(src) )
|
|
spawn(600) qdel(o)
|
|
|
|
if(prob(25))
|
|
for(var/obj/storage/L in range(6, get_turf(src)))
|
|
if(prob(45))
|
|
L.toggle()
|
|
|
|
if(prob(25))
|
|
for(var/obj/stool/chair/L in range(6, get_turf(src)))
|
|
if(prob(15)) L.rotate()
|
|
|
|
spawn(10) loop()
|
|
return
|
|
|
|
pickup(var/mob/living/M)
|
|
spawn(600) active = 1
|
|
|
|
attack_self(var/mob/user)
|
|
if(user != loc)
|
|
return
|
|
if(using)
|
|
boutput(user, "<span style=\"color:red\">The relic is humming loudly.</span>")
|
|
return
|
|
else
|
|
if(!beingUsed) //I guess you could use this thing in-hand a lot and gain its powers repeatedly!
|
|
beingUsed = 1
|
|
switch( input(user,"What now?","???") in list("Let the relics power flow through you", "Bend the relics power to your will", "Use the relics power to heal your wounds" ,"Attempt to absorb the relics power"))
|
|
if("Let the relics power flow through you")
|
|
using = 1
|
|
var/turf/T = get_turf(src)
|
|
if (isrestrictedz(T.z))
|
|
user.gib()
|
|
else
|
|
user.shock(src, rand(5000, 250000), "chest", 1, 1)
|
|
/*harmless_smoke_puff(get_turf(src))
|
|
playsound(user, "sound/effects/ghost2.ogg", 60, 0)
|
|
user.flash(60)
|
|
var/mob/oldmob = user
|
|
var/mob/dead/observer/O = new/mob/dead/observer()
|
|
O.set_loc(get_turf(src))
|
|
oldmob.sleeping = 1
|
|
oldmob.weakened = 600
|
|
var/datum/mind/M = user.mind
|
|
if(M) //Why would this happen? Why wouldn't it happen?
|
|
M.transfer_to(O)
|
|
spawn(600)
|
|
if(M && oldmob)
|
|
var/mob/newmob = M.current
|
|
M.transfer_to(oldmob)
|
|
qdel(newmob)
|
|
oldmob.paralysis += 3
|
|
oldmob.sleeping = 0
|
|
oldmob.weakened = 0
|
|
|
|
using = 0*/
|
|
if("Bend the relics power to your will")
|
|
using = 1
|
|
boutput(user, "<span style=\"color:red\">You can feel the power of the relic coursing through you...</span>")
|
|
user:TakeDamage("chest", 0, 50)
|
|
user.bioHolder.AddEffect("telekinesis")
|
|
spawn(1200)
|
|
using = 0
|
|
user.bioHolder.RemoveEffect("telekinesis")
|
|
if("Use the relics power to heal your wounds")
|
|
var/obj/shield/s = new/obj/shield( get_turf(src) )
|
|
s.name = "energy"
|
|
spawn(13) qdel(s)
|
|
user:stunned = 10
|
|
user.take_toxin_damage(-INFINITY)
|
|
user:HealDamage("All", 1000, 1000)
|
|
if(prob(75))
|
|
boutput(user, "<span style=\"color:red\">The relic crumbles into nothingness</span>")
|
|
qdel(src)
|
|
spawn(600) using = 0
|
|
if("Attempt to absorb the relics power")
|
|
if(prob(1))
|
|
user.bioHolder.AddEffect("telekinesis")
|
|
user.bioHolder.AddEffect("thermal_resist")
|
|
user.bioHolder.AddEffect("xray")
|
|
user.bioHolder.AddEffect("hulk")
|
|
boutput(user, "<span style=\"color:red\">The relic crumbles into nothingness</span>")
|
|
src.invisibility = 101
|
|
var/obj/effects/explosion/E = new/obj/effects/explosion( get_turf(src) )
|
|
E.fingerprintslast = src.fingerprintslast
|
|
sleep(5)
|
|
E = new/obj/effects/explosion( get_turf(src) )
|
|
E.fingerprintslast = src.fingerprintslast
|
|
sleep(5)
|
|
E = new/obj/effects/explosion( get_turf(src) )
|
|
E.fingerprintslast = src.fingerprintslast
|
|
qdel(src)
|
|
else
|
|
switch(pick(175;1,30;2,25;3,85;4))
|
|
if(1)
|
|
boutput(user, "<span style=\"color:red\">The relics power overwhelms you.</span>")
|
|
user:weakened += 10
|
|
user:TakeDamage("chest", 0, 33)
|
|
if(2)
|
|
boutput(user, "<span style=\"color:red\">The relic explodes in a bright flash, blinding you.</span>")
|
|
user.flash(60)
|
|
user:bioHolder.AddEffect("blind")
|
|
qdel(src)
|
|
if(3)
|
|
boutput(user, "<span style=\"color:red\">The relic explodes violently.</span>")
|
|
var/obj/effects/explosion/E = new/obj/effects/explosion( get_turf(src) )
|
|
E.fingerprintslast = src.fingerprintslast
|
|
user:gib()
|
|
qdel(src)
|
|
if(4)
|
|
boutput(user, "<span style=\"color:red\">The relics power completely overwhelms you.</span>")
|
|
using = 1
|
|
harmless_smoke_puff( get_turf(src) )
|
|
playsound(user, "sound/effects/ghost2.ogg", 60, 0)
|
|
user.flash(60)
|
|
var/mob/oldmob = user
|
|
oldmob.ghostize()
|
|
oldmob.death()
|
|
using = 0
|
|
beingUsed = 0
|
|
|
|
|
|
/obj/effect_sparker
|
|
icon = 'icons/misc/mark.dmi'
|
|
icon_state = "x4"
|
|
invisibility = 101
|
|
anchored = 1
|
|
density = 0
|
|
|
|
New()
|
|
src.sparks()
|
|
return ..()
|
|
|
|
proc/sparks()
|
|
var/area/A = get_area(src)
|
|
if (A.active)
|
|
var/datum/effects/system/spark_spread/E = unpool(/datum/effects/system/spark_spread)
|
|
E.set_up(3,0,get_turf(src))
|
|
E.start()
|
|
spawn(rand(10,300))
|
|
src.sparks()
|
|
|
|
/obj/creepy_sound_trigger
|
|
icon = 'icons/misc/mark.dmi'
|
|
icon_state = "ydn"
|
|
invisibility = 101
|
|
anchored = 1
|
|
density = 0
|
|
var/active = 0
|
|
HasEntered(atom/movable/AM as mob|obj)
|
|
if(active) return
|
|
if(ismob(AM))
|
|
if(AM:client)
|
|
if(prob(75))
|
|
active = 1
|
|
spawn(600) active = 0
|
|
playsound(get_turf(AM), pick('sound/ambience/ambimo1.ogg','sound/ambience/ambimo2.ogg'), 75, 0)
|
|
|
|
// cogwerks- variant for glaciers
|
|
|
|
/obj/creepy_sound_trigger_glacier
|
|
icon = 'icons/misc/mark.dmi'
|
|
icon_state = "ydn"
|
|
invisibility = 101
|
|
anchored = 1
|
|
density = 0
|
|
var/active = 0
|
|
HasEntered(atom/movable/AM as mob|obj)
|
|
if(active) return
|
|
if(ismob(AM))
|
|
if(AM:client)
|
|
if(prob(75))
|
|
active = 1
|
|
spawn(600) active = 0
|
|
if(prob(10))
|
|
playsound(get_turf(AM), pick('sound/misc/wendigo_scream.ogg', 'sound/misc/wendigo_cry.ogg'),25, 1) // play these quietly so as to spook
|
|
else
|
|
playsound(get_turf(AM), pick('sound/ambience/glacier1.ogg','sound/ambience/glacier2.ogg', 'sound/ambience/glacier3.ogg', 'sound/ambience/glacier4.ogg', 'sound/ambience/glacier5.ogg', 'sound/ambience/glacier6.ogg'), 75, 0)
|
|
////////////
|
|
/proc/set_on_all()
|
|
var/type = input(usr, "Typepath:")
|
|
type = text2path(type)
|
|
if(!type) return
|
|
|
|
var/varname = input(usr, "Varname:")
|
|
var/thetype = input(usr,"Select variable type:" ,"Type") in list("text","number","mob-reference","obj-reference","turf-reference","icon","random-number","random-color")
|
|
if(!thetype) return
|
|
|
|
var/thevalue = null
|
|
var/minrnd = null
|
|
var/maxrnd = null
|
|
var/is_icon = 0
|
|
switch(thetype)
|
|
if("text")
|
|
thevalue = input(usr,"Enter variable value:" ,"Value", "value") as text
|
|
if("number")
|
|
thevalue = input(usr,"Enter variable value:" ,"Value", 123) as num
|
|
if("mob-reference")
|
|
thevalue = input(usr,"Enter variable value:" ,"Value") as mob in world
|
|
if("obj-reference")
|
|
thevalue = input(usr,"Enter variable value:" ,"Value") as obj in world
|
|
if("turf-reference")
|
|
thevalue = input(usr,"Enter variable value:" ,"Value") as turf in world
|
|
if("icon")
|
|
thevalue = input(usr,"Select icon:" ,"Value") as icon
|
|
is_icon = 1
|
|
if("random-number")
|
|
minrnd = input(usr,"Min:" ,"Value", 0) as num
|
|
maxrnd = input(usr,"Max:" ,"Value", 0) as num
|
|
thevalue = 1
|
|
if("random-color")
|
|
thevalue = rgb(rand(0,255),rand(0,255),rand(0,255))
|
|
|
|
if(thevalue == null && !is_icon) return
|
|
|
|
var/oldVal = null
|
|
|
|
if(ispath(type, /client))
|
|
for(var/client/C)
|
|
if(minrnd != null || maxrnd != null)
|
|
C.vars[varname] = rand(minrnd,maxrnd)
|
|
else
|
|
C.vars[varname] = thevalue
|
|
return
|
|
|
|
for(var/datum/A in world)
|
|
if(!istype(A,type)) continue
|
|
oldVal = A.vars[varname]
|
|
if(minrnd != null || maxrnd != null)
|
|
A.vars[varname] = rand(minrnd,maxrnd)
|
|
else
|
|
A.vars[varname] = thevalue
|
|
A.onVarChanged(varname, oldVal, A.vars[varname])
|
|
if(thetype == "random-color")
|
|
thevalue = rgb(rand(0,255),rand(0,255),rand(0,255))
|
|
sleep(1)
|
|
/*
|
|
if(minrnd != null || maxrnd != null)
|
|
logTheThing("admin", usr, null, "randomized all [type]s [varname] from [minrnd] to [maxrnd].")
|
|
logTheThing("diary", usr, null, "randomized all [type]s [varname] from [minrnd] to [maxrnd].", "admin")
|
|
message_admins("[key_name(usr)] randomized all [type]s [varname] from [minrnd] to [maxrnd].")
|
|
else
|
|
logTheThing("admin", usr, null, "modified all [type]s [varname] to [thevalue].")
|
|
logTheThing("diary", usr, null, "modified all [type]s [varname] to [thevalue].", "admin")
|
|
message_admins("[key_name(usr)] modified all [type]s [varname] to [thevalue].")
|
|
*/
|
|
return
|
|
|
|
/proc/testa()
|
|
fake_attack(usr)
|
|
|
|
/proc/testb()
|
|
fake_attack(input(usr) as mob in world)
|
|
|
|
/obj/fake_attacker
|
|
icon = null
|
|
icon_state = null
|
|
name = ""
|
|
desc = ""
|
|
density = 0
|
|
anchored = 1
|
|
opacity = 0
|
|
var/mob/living/carbon/human/my_target = null
|
|
var/weapon_name = null
|
|
|
|
/obj/fake_attacker/attackby()
|
|
step_away(src,my_target,2)
|
|
for(var/mob/M in oviewers(world.view,my_target))
|
|
boutput(M, "<span style=\"color:red\"><B>[my_target] flails around wildly.</B></span>")
|
|
my_target.show_message("<span style=\"color:red\"><B>[src] has been attacked by [my_target] </B></span>", 1) //Lazy.
|
|
return
|
|
|
|
/obj/fake_attacker/HasEntered(var/mob/M, somenumber)
|
|
if(M == my_target)
|
|
step_away(src,my_target,2)
|
|
if(prob(30))
|
|
for(var/mob/O in oviewers(world.view , my_target))
|
|
boutput(O, "<span style=\"color:red\"><B>[my_target] stumbles around.</B></span>")
|
|
|
|
/obj/fake_attacker/New(location, target)
|
|
spawn(300) qdel(src)
|
|
src.my_target = target
|
|
step_away(src,my_target,2)
|
|
process()
|
|
|
|
/obj/fake_attacker/proc/process()
|
|
if(!my_target)
|
|
qdel(src)
|
|
return
|
|
if(get_dist(src,my_target) > 1)
|
|
step_towards(src,my_target)
|
|
else
|
|
if(prob(15))
|
|
if(weapon_name)
|
|
if (narrator_mode)
|
|
my_target << sound('sound/vox/weapon.ogg')
|
|
else
|
|
my_target << sound(pick('sound/weapons/genhit1.ogg', 'sound/weapons/genhit2.ogg', 'sound/weapons/genhit3.ogg'))
|
|
my_target.show_message("<span style=\"color:red\"><B>[my_target] has been attacked with [weapon_name] by [src.name] </B></span>", 1)
|
|
if(prob(20)) my_target.change_eye_blurry(3)
|
|
if(prob(33))
|
|
if(!locate(/obj/overlay) in my_target.loc)
|
|
fake_blood(my_target)
|
|
else
|
|
if (narrator_mode)
|
|
my_target << sound('sound/vox/hit.ogg')
|
|
else
|
|
my_target << sound(pick('sound/weapons/punch1.ogg','sound/weapons/punch2.ogg','sound/weapons/punch3.ogg','sound/weapons/punch4.ogg'))
|
|
my_target.show_message("<span style=\"color:red\"><B>[src.name] has punched [my_target]!</B></span>", 1)
|
|
if(prob(33))
|
|
if(!locate(/obj/overlay) in my_target.loc)
|
|
fake_blood(my_target)
|
|
|
|
if(prob(15)) step_away(src,my_target,2)
|
|
spawn(5) .()
|
|
|
|
/proc/fake_blood(var/mob/target)
|
|
var/obj/overlay/O = new/obj/overlay(target.loc)
|
|
O.name = "blood"
|
|
var/image/I = image('icons/effects/blood.dmi',O,"floor[rand(1,7)]",O.dir,1)
|
|
target << I
|
|
spawn(300)
|
|
qdel(O)
|
|
return
|
|
|
|
/proc/fake_attack(var/mob/target)
|
|
var/list/possible_clones = new/list()
|
|
var/mob/living/carbon/human/clone = null
|
|
var/clone_weapon = null
|
|
|
|
for(var/mob/living/carbon/human/H in mobs)
|
|
if(H.stat || H.lying || H.dir == NORTH) continue
|
|
possible_clones += H
|
|
|
|
if(!possible_clones.len) return
|
|
clone = pick(possible_clones)
|
|
|
|
if(clone.l_hand)
|
|
clone_weapon = clone.l_hand.name
|
|
else if (clone.r_hand)
|
|
clone_weapon = clone.r_hand.name
|
|
|
|
var/obj/fake_attacker/F = new/obj/fake_attacker(target.loc, target)
|
|
|
|
F.name = clone.name
|
|
//F.my_target = target
|
|
F.weapon_name = clone_weapon
|
|
|
|
var/image/O = image(clone,F)
|
|
target << O
|
|
|
|
//Same as the thing below just for density and without support for atoms.
|
|
/proc/can_line(var/atom/source, var/atom/target, var/length=5)
|
|
var/turf/current = get_turf(source)
|
|
var/turf/target_turf = get_turf(target)
|
|
var/steps = 0
|
|
|
|
while(current != target_turf)
|
|
if(steps > length) return 0
|
|
if(!current) return 0
|
|
if(current.density) return 0
|
|
//for(var/atom/A in current)
|
|
// if(A.density) return 0
|
|
current = get_step_towards(current, target_turf)
|
|
steps++
|
|
|
|
return 1
|
|
|
|
|
|
|