cyberpresidentvanellope/vgstation13
1
0
Fork 0
mirror of https://github.com/vgstation-coders/vgstation13.git synced 2025-12-10 18:32:03 +00:00
Code Issues Packages Projects Releases Wiki Activity
Files
7a3ff4efc3da7ed39eebb91d1a7b7af290fc8403
vgstation13/code/WorkInProgress/buildmode.dm
D3athrow 7a3ff4efc3 THE LIGHTING IS DEAD, LONG LIVE DAL
2015-07-18 23:05:18 -05:00

514 lines
21 KiB
Plaintext
Raw Blame History

#define MASS_FILL 0
#define MASS_DELETE 1
#define SELECTIVE_DELETE 2
#define SELECTIVE_FILL 3
/proc/togglebuildmode(mob/M as mob in player_list)
set name = "Toggle Build Mode"
set category = "Special Verbs"
writepanic("[__FILE__].[__LINE__] (no type)([usr ? usr.ckey : ""]) \\/proc/togglebuildmode() called tick#: [world.time]")
if(M.client)
if(M.client.buildmode)
log_admin("[key_name(usr)] has left build mode.")
M.client.buildmode = 0
M.client.show_popup_menus = 1
var/obj/effect/bmode/buildholder/holder = null
for(var/obj/effect/bmode/buildholder/H in buildmodeholders)
if(H.cl == M.client)
holder = H
break
if(holder) holder.buildmode.copycat = null
if(M.client.buildmode_objs && M.client.buildmode_objs.len)
for(var/BM in M.client.buildmode_objs)
returnToPool(BM)
else
log_admin("[key_name(usr)] has entered build mode.")
M.client.buildmode = 1
M.client.show_popup_menus = 0
var/obj/effect/bmode/buildholder/hold = getFromPool(/obj/effect/bmode/buildholder)
hold.builddir = getFromPool(/obj/effect/bmode/builddir,hold)
hold.buildhelp = getFromPool(/obj/effect/bmode/buildhelp,hold)
hold.buildmode = getFromPool(/obj/effect/bmode/buildmode,hold)
hold.buildquit = getFromPool(/obj/effect/bmode/buildquit,hold)
M.client.screen += list(hold.builddir,hold.buildhelp,hold.buildmode,hold.buildquit)
hold.cl = M.client
M.client.buildmode_objs |= list(hold,hold.builddir,hold.buildhelp,hold.buildmode,hold.buildquit)
/obj/effect/bmode//Cleaning up the tree a bit
density = 1
anchored = 1
layer = 20
dir = NORTH
icon = 'icons/misc/buildmode.dmi'
var/obj/effect/bmode/buildholder/master = null
/obj/effect/bmode/New()
..()
master = loc
/obj/effect/bmode/Destroy()
..()
if(master && master.cl)
master.cl.buildmode_objs &= ~src
master.cl.screen -= src
/obj/effect/bmode/builddir
icon_state = "build"
screen_loc = "NORTH,WEST"
Click()
switch(dir)
if(NORTH)
dir = EAST
if(EAST)
dir = SOUTH
if(SOUTH)
dir = WEST
if(WEST)
dir = SOUTHWEST
if(SOUTHWEST)
dir = NORTH
return 1
DblClick(object,location,control,params)
return Click(object,location,control,params)
/obj/effect/bmode/buildhelp
icon = 'icons/misc/buildmode.dmi'
icon_state = "buildhelp"
screen_loc = "NORTH,WEST+1"
Click()
switch(master.cl.buildmode)
if(1)
usr << "<span class='notice'>***********************************************************</span>"
usr << "<span class='notice'>Left Mouse Button = Construct / Upgrade</span>"
usr << "<span class='notice'>Right Mouse Button = Deconstruct / Delete / Downgrade</span>"
usr << "<span class='notice'>Left Mouse Button + ctrl = R-Window</span>"
usr << "<span class='notice'>Left Mouse Button + alt = Airlock</span>"
usr << ""
usr << "<span class='notice'>Use the button in the upper left corner to</span>"
usr << "<span class='notice'>change the direction of built objects.</span>"
usr << "<span class='notice'>***********************************************************</span>"
if(2)
usr << "<span class='notice'>***********************************************************</span>"
usr << "<span class='notice'>Right Mouse Button on buildmode button = Set object type</span>"
usr << "<span class='notice'>Left Mouse Button on turf/obj = Place objects</span>"
usr << "<span class='notice'>Right Mouse Button = Delete objects</span>"
usr << ""
usr << "<span class='notice'>Use the button in the upper left corner to</span>"
usr << "<span class='notice'>change the direction of built objects.</span>"
usr << "<span class='notice'>***********************************************************</span>"
if(3)
usr << "<span class='notice'>***********************************************************</span>"
usr << "<span class='notice'>Right Mouse Button on buildmode button = Select var(type) & value</span>"
usr << "<span class='notice'>Left Mouse Button on turf/obj/mob = Set var(type) & value</span>"
usr << "<span class='notice'>Right Mouse Button on turf/obj/mob = Reset var's value</span>"
usr << "<span class='notice'>***********************************************************</span>"
if(4)
usr << "<span class='notice'>***********************************************************</span>"
usr << "<span class='notice'>Left Mouse Button on turf/obj/mob = Select</span>"
usr << "<span class='notice'>Right Mouse Button on turf/obj/mob = Throw</span>"
usr << "<span class='notice'>***********************************************************</span>"
return 1
DblClick(object,location,control,params)
return Click(object,location,control,params)
/obj/effect/bmode/buildquit
icon_state = "buildquit"
screen_loc = "NORTH,WEST+3"
Click()
togglebuildmode(master.cl.mob)
return 1
DblClick(object,location,control,params)
return Click(object,location,control,params)
var/global/list/obj/effect/bmode/buildholder/buildmodeholders = list()
/obj/effect/bmode/buildholder
density = 0
anchored = 1
var/client/cl = null
var/obj/effect/bmode/builddir/builddir = null
var/obj/effect/bmode/buildhelp/buildhelp = null
var/obj/effect/bmode/buildmode/buildmode = null
var/obj/effect/bmode/buildquit/buildquit = null
var/atom/movable/throw_atom = null
var/turf/fill_left
var/turf/fill_right
obj/effect/bmode/buildholder/New()
..()
buildmodeholders |= src
/obj/effect/bmode/buildholder/Destroy()
..()
cl.screen -= list(builddir,buildhelp,buildmode,buildquit)
cl.buildmode_objs &= ~list(builddir,buildhelp,buildmode,buildquit,src)
buildmodeholders -= src
/obj/effect/bmode/buildmode
icon_state = "buildmode1"
screen_loc = "NORTH,WEST+2"
var/varholder = "name"
var/valueholder = "derp"
var/objholder = /obj/structure/closet
var/atom/copycat
/obj/effect/bmode/buildmode/Click(location, control, params)
var/list/pa = params2list(params)
if(pa.Find("left"))
switch(master.cl.buildmode)
if(1)
master.cl.buildmode = 2
src.icon_state = "buildmode2"
if(2)
master.cl.buildmode = 3
src.icon_state = "buildmode3"
if(3)
master.cl.buildmode = 4
src.icon_state = "buildmode4"
if(4)
master.cl.buildmode = 1
src.icon_state = "buildmode1"
else if(pa.Find("right"))
switch(master.cl.buildmode)
if(1)
return 1
if(2)
copycat = null
objholder = text2path(input(usr,"Enter typepath:" ,"Typepath","/obj/structure/closet"))
if(!ispath(objholder))
objholder = /obj/structure/closet
alert("That path is not allowed.")
else
if(ispath(objholder,/mob) && !check_rights(R_DEBUG,0))
objholder = /obj/structure/closet
if(3)
var/list/locked = list("vars", "key", "ckey", "client", "firemut", "ishulk", "telekinesis", "xray", "virus", "viruses", "cuffed", "ka", "last_eaten", "urine")
master.buildmode.varholder = input(usr,"Enter variable name:" ,"Name", "name")
if(master.buildmode.varholder in locked && !check_rights(R_DEBUG,0))
return 1
var/thetype = input(usr,"Select variable type:" ,"Type") in list("text","number","mob-reference","obj-reference","turf-reference")
if(!thetype) return 1
switch(thetype)
if("text")
master.buildmode.valueholder = input(usr,"Enter variable value:" ,"Value", "value") as text
if("number")
master.buildmode.valueholder = input(usr,"Enter variable value:" ,"Value", 123) as num
if("mob-reference")
master.buildmode.valueholder = input(usr,"Enter variable value:" ,"Value") as mob in mob_list
if("obj-reference")
master.buildmode.valueholder = input(usr,"Enter variable value:" ,"Value") as obj in world
if("turf-reference")
master.buildmode.valueholder = input(usr,"Enter variable value:" ,"Value") as turf in world
return 1
/obj/effect/bmode/buildmode/DblClick(object,location,control,params)
return Click(object,location,control,params)
/client/verb/fillmouse_down()
//set instant = 1
set hidden = 1
set name = ".fillmouse_down"
if(src.buildmode == 2 && !src.filling)
filling = !filling
src.mouse_pointer_icon = 'icons/mouse/buildfill.dmi'
/client/verb/fillmouse_released()
//set instant = 1
set hidden = 1
set name = ".fillmouse_released"
if(src.filling)
src.mouse_pointer_icon = initial(src.mouse_pointer_icon)
/proc/build_click(var/mob/user, buildmode, params, var/obj/object)
writepanic("[__FILE__].[__LINE__] (no type)([usr ? usr.ckey : ""]) \\/proc/build_click() called tick#: [world.time]")
var/obj/effect/bmode/buildholder/holder = null
for(var/obj/effect/bmode/buildholder/H in buildmodeholders)
if(H.cl == user.client)
holder = H
break
if(!holder) return
var/list/pa = params2list(params)
var/turf/RT = get_turf(object)
switch(buildmode)
if(1)
if(istype(object,/turf) && pa.Find("left") && !pa.Find("alt") && !pa.Find("ctrl") )
if(istype(object,/turf/space))
var/turf/T = object
T.ChangeTurf(/turf/simulated/floor)
log_admin("[key_name(usr)] made a floor at [formatJumpTo(T)]")
return
else if(istype(object,/turf/simulated/floor))
var/turf/T = object
T.ChangeTurf(/turf/simulated/wall)
log_admin("[key_name(usr)] made a wall at [formatJumpTo(T)]")
return
else if(istype(object,/turf/simulated/wall))
var/turf/T = object
T.ChangeTurf(/turf/simulated/wall/r_wall)
log_admin("[key_name(usr)] made a rwall at [formatJumpTo(T)]")
return
else if(pa.Find("right"))
if(istype(object,/turf/simulated/wall))
var/turf/T = object
T.ChangeTurf(/turf/simulated/floor)
log_admin("[key_name(usr)] removed a wall at [formatJumpTo(T)]")
return
else if(istype(object,/turf/simulated/floor))
var/turf/T = object
T.ChangeTurf(/turf/space)
log_admin("[key_name(usr)] removed flooring at [formatJumpTo(T)]")
return
else if(istype(object,/turf/simulated/wall/r_wall))
var/turf/T = object
T.ChangeTurf(/turf/simulated/wall)
log_admin("[key_name(usr)] downgraded an rwall at [formatJumpTo(T)]")
return
else if(istype(object,/obj))
del(object)
return
else if(istype(object,/turf) && pa.Find("alt") && pa.Find("left"))
new/obj/machinery/door/airlock(get_turf(object))
log_admin("[key_name(usr)] made an airlock at [formatJumpTo(RT)]")
else if(istype(object,/turf) && pa.Find("ctrl") && pa.Find("left"))
log_admin("[key_name(usr)] made a window at [formatJumpTo(RT)]")
switch(holder.builddir.dir)
if(NORTH)
var/obj/structure/window/reinforced/WIN = new/obj/structure/window/reinforced(get_turf(object))
WIN.dir = NORTH
if(SOUTH)
var/obj/structure/window/reinforced/WIN = new/obj/structure/window/reinforced(get_turf(object))
WIN.dir = SOUTH
if(EAST)
var/obj/structure/window/reinforced/WIN = new/obj/structure/window/reinforced(get_turf(object))
WIN.dir = EAST
if(WEST)
var/obj/structure/window/reinforced/WIN = new/obj/structure/window/reinforced(get_turf(object))
WIN.dir = WEST
if(SOUTHWEST)
new/obj/structure/window/full/reinforced(get_turf(object))
if(2)
if(pa.Find("ctrl") && pa.Find("shift"))
if(!holder)
return
if(pa.Find("left"))
holder.fill_left = RT
usr << "<span class='notice'>Set bottom left fill corner to ([formatJumpTo(RT)])</span>"
else if(pa.Find("right"))
holder.fill_right = RT
usr << "<span class='notice'>Set top right fill corner to ([formatJumpTo(RT)])</span>"
if(holder.fill_left && holder.fill_right)
var/turf/start = holder.fill_left
var/turf/end = holder.fill_right
if(start.z != end.z)
usr << "<span class='warning'>You can't do a fill across zlevels you silly person.</span>"
holder.fill_left = null
holder.fill_right = null
return
var/list/fillturfs = block(start,end)
if(fillturfs.len)
if(alert("You're about to do a fill operation spanning [fillturfs.len] tiles, are you sure?","Panic","Yes","No") == "Yes")
if(fillturfs.len > 150)
if(alert("Are you completely sure about filling [fillturfs.len] tiles?","Panic!!!!","Yes","No") != "Yes")
holder.fill_left = null
holder.fill_right = null
usr << "<span class='notice'>Cleared filling corners.</span>"
return
var/areaAction = alert("FILL tiles or DELETE them? areaAction will destroy EVERYTHING IN THE SELECTED AREA", "Create or destroy, your chance to be a GOD","FILL","DELETE") == "DELETE"
if(areaAction) areaAction = (alert("Selective(TYPE) Delete or MASS Delete?", "Scorched Earth or selective destruction?", "Selective", "MASS") == "Selective" ? 2 : 1)
else
areaAction = (alert("Mass FILL or Selective(Type => Type) FILL?", "Do they really need [fillturfs.len] of closets?", "Selective", "Mass") == "Selective" ? 3 : 0)
var/msglog = "<span class='danger'>[key_name_admin(usr)] just buildmode"
var/strict = 1
var/chosen
switch(areaAction)
if(MASS_DELETE)
msglog += " <big>DELETED EVERYTHING</big> in [fillturfs.len] tile\s "
if(SELECTIVE_DELETE)
chosen = easyTypeSelector()
if(!chosen) return
strict = alert("Delete all children of [chosen]?", "Children being all types and subtypes of [chosen]", "Yes", "No") == "No"
msglog += " <big>DELETED [!strict ? "ALL TYPES OF " :""][chosen]</big> in [fillturfs.len] tile\s "
if(SELECTIVE_FILL)
chosen = easyTypeSelector()
if(!chosen) return
strict = alert("Change all children of [chosen]?", "Children being all types and subtypes of [chosen]", "Yes", "No") == "No"
msglog += " Changed all [chosen] in [fillturfs.len] tile\s to [holder.buildmode.objholder] "
else
msglog += " FILLED [fillturfs.len] tile\s with [holder.buildmode.objholder] "
msglog += "at ([formatJumpTo(start)] to [formatJumpTo(end)])</span>"
message_admins(msglog)
log_admin(msglog)
usr << "<span class='notice'>If the server is lagging the operation will periodically sleep so the fill may take longer than typical.</span>"
var/turf_op = ispath(holder.buildmode.objholder,/turf)
var/deletions = 0
for(var/turf/T in fillturfs)
if(areaAction == MASS_DELETE || areaAction == SELECTIVE_DELETE)
if(ispath(chosen, /turf))
T.ChangeTurf(chosen)
deletions++
else
for(var/atom/thing in T.contents)
if(thing==usr) continue
if(strict && (thing.type == chosen))
qdel(thing)
else if(istype(thing, chosen))
qdel(thing)
else
qdel(thing)
deletions++
tcheck(80,1)
T.ChangeTurf(get_base_turf(T.z))
else
if(turf_op)
if(areaAction == SELECTIVE_FILL)
if(strict)
if(T.type != chosen) continue
else
if(!istype(T, chosen)) continue
T.ChangeTurf(holder.buildmode.objholder)
else
if(areaAction == SELECTIVE_FILL)
for(var/atom/thing in T.contents)
if(strict)
if(thing.type != chosen) continue
else
if(!istype(thing, chosen)) continue
var/atom/A = new holder.buildmode.objholder(T)
A.dir = thing.dir
qdel(thing)
tcheck(80,1)
else
var/obj/A = new holder.buildmode.objholder(T)
if(istype(A))
A.dir = holder.builddir.dir
tcheck(80,1)
holder.fill_left = null
holder.fill_right = null
if(deletions) usr << "<span class='info'>Successfully deleted [deletions] [chosen]'\s</span>"
return
if(pa.Find("left"))
if(holder.buildmode.copycat)
if(isturf(holder.buildmode.copycat))
var/turf/T = get_turf(object)
T.ChangeTurf(holder.buildmode.copycat.type)
spawn(1)
T.icon = holder.buildmode.copycat.icon
T.icon_state = holder.buildmode.copycat.icon_state
T.dir = holder.builddir.dir
if(holder.buildmode.copycat.overlays.len)
T.overlays.len = 0
for(var/i = 1; i <= holder.buildmode.copycat.overlays.len; i++)
var/datum/thing = holder.buildmode.copycat.overlays[i]
T.overlays += thing
if(holder.buildmode.copycat.underlays.len)
T.underlays.len = 0
for(var/i = 1; i <= holder.buildmode.copycat.underlays.len; i++)
var/datum/thing = holder.buildmode.copycat.underlays[i]
T.underlays += thing
else
var/atom/movable/A = new holder.buildmode.copycat.type(get_turf(object))
if(istype(A))
A.dir = holder.builddir.dir
A.icon = holder.buildmode.copycat.icon
A.gender = holder.buildmode.copycat.gender
A.name = holder.buildmode.copycat.name
A.icon_state = holder.buildmode.copycat.icon_state
A.alpha = holder.buildmode.copycat.alpha
A.color = holder.buildmode.copycat.color
A.maptext = holder.buildmode.copycat.maptext
A.maptext_height = holder.buildmode.copycat.maptext_height
A.maptext_width = holder.buildmode.copycat.maptext_width
A.l_color = holder.buildmode.copycat.l_color
A.luminosity = holder.buildmode.copycat.luminosity
A.molten = holder.buildmode.copycat.molten
A.pixel_x = holder.buildmode.copycat.pixel_x
A.pixel_y = holder.buildmode.copycat.pixel_y
A.invisibility = holder.buildmode.copycat.invisibility
if(holder.buildmode.copycat.overlays.len)
A.overlays.len = 0
for(var/i = 1; i <= holder.buildmode.copycat.overlays.len; i++)
var/datum/thing = holder.buildmode.copycat.overlays[i]
A.overlays += thing
if(holder.buildmode.copycat.underlays.len)
A.underlays.len = 0
for(var/i = 1; i <= holder.buildmode.copycat.underlays.len; i++)
var/datum/thing = holder.buildmode.copycat.underlays[i]
A.underlays += thing
log_admin("[key_name(usr)] made a [holder.buildmode.copycat.type] at [formatJumpTo(RT)]")
else
if(ispath(holder.buildmode.objholder,/turf))
var/turf/T = get_turf(object)
T.ChangeTurf(holder.buildmode.objholder)
else
var/obj/A = new holder.buildmode.objholder (get_turf(object))
if(istype(A))
A.dir = holder.builddir.dir
log_admin("[key_name(usr)] made a [holder.buildmode.objholder] at [formatJumpTo(RT)]")
else if(pa.Find("right"))
log_admin("[key_name(usr)] deleted a [object] at [formatJumpTo(RT)]")
if(isobj(object)) del(object)
else if(pa.Find("middle"))
if(istype(object,/mob) && !check_rights(R_DEBUG,0))
usr << "<span class='notice'>You don't have sufficient rights to clone [object.type]</span>"
else
if(ismob(object))
holder.buildmode.objholder = object.type
usr << "<span class='info'>You will now build [object.type] when clicking.</span>"
else
holder.buildmode.copycat = object
usr << "<span class='info'>You will now build a lookalike of [object] when clicking.</span>"
if(3)
if(pa.Find("left")) //I cant believe this shit actually compiles.
if(object.vars.Find(holder.buildmode.varholder))
log_admin("[key_name(usr)] modified [object.name]'s [holder.buildmode.varholder] to [holder.buildmode.valueholder]")
object.vars[holder.buildmode.varholder] = holder.buildmode.valueholder
else
usr << "<span class='warning'>[initial(object.name)] does not have a var called '[holder.buildmode.varholder]'</span>"
if(pa.Find("right"))
if(object.vars.Find(holder.buildmode.varholder))
log_admin("[key_name(usr)] modified [object.name]'s [holder.buildmode.varholder] to [holder.buildmode.valueholder]")
object.vars[holder.buildmode.varholder] = initial(object.vars[holder.buildmode.varholder])
else
usr << "<span class='warning'>[initial(object.name)] does not have a var called '[holder.buildmode.varholder]'</span>"
if(4)
if(pa.Find("left"))
log_admin("[key_name(usr)] is selecting [object] for throwing at [formatJumpTo(RT)]")
holder.throw_atom = object
if(pa.Find("right"))
if(holder.throw_atom)
holder.throw_atom.throw_at(object, 10, 1)
log_admin("[key_name(usr)] is throwing a [holder.throw_atom] at [object] - [formatJumpTo(RT)]")
/proc/easyTypeSelector()
writepanic("[__FILE__].[__LINE__] (no type)([usr ? usr.ckey : ""]) \\/proc/easyTypeSelector() called tick#: [world.time]")
var/chosen = null
var/list/matches = new()
var/O = input("What type? Leave as /atom to choose from a global list of types.", "Gibs me dat", "/atom") as text
for(var/path in typesof(/atom))
if(findtext("[path]", O))
matches += path
if(matches.len==0)
usr << "<span class='warning'>No types of [O] found.</span>"
return
if(matches.len==1)
chosen = matches[1]
else
chosen = input("Select an atom type", "Selected Atom", matches[1]) as null|anything in matches
if(!chosen)
return
return chosen
#undef BOTTOM_LEFT
#undef TOP_RIGHT
#undef MASS_FILL
#undef MASS_DELETE
#undef SELECTIVE_DELETE
#undef SELECTIVE_FILL
Reference in New Issue View Git Blame Copy Permalink