mirror of
https://github.com/CHOMPStation2/CHOMPStation2.git
synced 2025-12-10 10:12:45 +00:00
90 lines
3.0 KiB
Plaintext
90 lines
3.0 KiB
Plaintext
// This file is a modified version of https://raw2.github.com/Baystation12/OldCode-BS12/master/code/TakePicture.dm
|
|
|
|
#define NANOMAP_ICON_SIZE 4
|
|
#define NANOMAP_MAX_ICON_DIMENSION 1024
|
|
|
|
#define NANOMAP_TILES_PER_IMAGE (NANOMAP_MAX_ICON_DIMENSION / NANOMAP_ICON_SIZE)
|
|
|
|
#define NANOMAP_TERMINALERR 5
|
|
#define NANOMAP_INPROGRESS 2
|
|
#define NANOMAP_BADOUTPUT 2
|
|
#define NANOMAP_SUCCESS 1
|
|
#define NANOMAP_WATCHDOGSUCCESS 4
|
|
#define NANOMAP_WATCHDOGTERMINATE 3
|
|
|
|
|
|
//Call these procs to dump your world to a series of image files (!!)
|
|
//NOTE: Does not explicitly support non 32x32 icons or stuff with large pixel_* values, so don't blame me if it doesn't work perfectly
|
|
|
|
/client/proc/nanomapgen_DumpImage()
|
|
set name = "Generate NanoUI Map"
|
|
set category = "Server"
|
|
|
|
if(holder)
|
|
nanomapgen_DumpTile(1, 1, text2num(input(usr,"Enter the Z level to generate")))
|
|
|
|
/client/proc/nanomapgen_DumpTile(var/startX = 1, var/startY = 1, var/currentZ = 1, var/endX = -1, var/endY = -1)
|
|
|
|
if (endX < 0 || endX > world.maxx)
|
|
endX = world.maxx
|
|
|
|
if (endY < 0 || endY > world.maxy)
|
|
endY = world.maxy
|
|
|
|
if (currentZ < 0 || currentZ > world.maxz)
|
|
usr << "NanoMapGen: <B>ERROR: currentZ ([currentZ]) must be between 1 and [world.maxz]</B>"
|
|
|
|
sleep(3)
|
|
return NANOMAP_TERMINALERR
|
|
|
|
if (startX > endX)
|
|
usr << "NanoMapGen: <B>ERROR: startX ([startX]) cannot be greater than endX ([endX])</B>"
|
|
|
|
sleep(3)
|
|
return NANOMAP_TERMINALERR
|
|
|
|
if (startY > endX)
|
|
usr << "NanoMapGen: <B>ERROR: startY ([startY]) cannot be greater than endY ([endY])</B>"
|
|
sleep(3)
|
|
return NANOMAP_TERMINALERR
|
|
|
|
var/icon/Tile = icon(file("nano/mapbase1024.png"))
|
|
if (Tile.Width() != NANOMAP_MAX_ICON_DIMENSION || Tile.Height() != NANOMAP_MAX_ICON_DIMENSION)
|
|
world.log << "NanoMapGen: <B>ERROR: BASE IMAGE DIMENSIONS ARE NOT [NANOMAP_MAX_ICON_DIMENSION]x[NANOMAP_MAX_ICON_DIMENSION]</B>"
|
|
sleep(3)
|
|
return NANOMAP_TERMINALERR
|
|
|
|
world.log << "NanoMapGen: <B>GENERATE MAP ([startX],[startY],[currentZ]) to ([endX],[endY],[currentZ])</B>"
|
|
usr << "NanoMapGen: <B>GENERATE MAP ([startX],[startY],[currentZ]) to ([endX],[endY],[currentZ])</B>"
|
|
|
|
var/count = 0;
|
|
for(var/WorldX = startX, WorldX <= endX, WorldX++)
|
|
for(var/WorldY = startY, WorldY <= endY, WorldY++)
|
|
|
|
var/atom/Turf = locate(WorldX, WorldY, currentZ)
|
|
|
|
var/icon/TurfIcon = new(Turf.icon, Turf.icon_state)
|
|
TurfIcon.Scale(NANOMAP_ICON_SIZE, NANOMAP_ICON_SIZE)
|
|
|
|
Tile.Blend(TurfIcon, ICON_OVERLAY, ((WorldX - 1) * NANOMAP_ICON_SIZE), ((WorldY - 1) * NANOMAP_ICON_SIZE))
|
|
|
|
count++
|
|
|
|
if (count % 8000 == 0)
|
|
world.log << "NanoMapGen: <B>[count] tiles done</B>"
|
|
sleep(1)
|
|
|
|
var/mapFilename = "nanomap_z[currentZ]-new.png"
|
|
|
|
world.log << "NanoMapGen: <B>sending [mapFilename] to client</B>"
|
|
|
|
usr << browse(Tile, "window=picture;file=[mapFilename];display=0")
|
|
|
|
world.log << "NanoMapGen: <B>Done.</B>"
|
|
|
|
usr << "NanoMapGen: <B>Done. File [mapFilename] uploaded to your cache.</B>"
|
|
|
|
if (Tile.Width() != NANOMAP_MAX_ICON_DIMENSION || Tile.Height() != NANOMAP_MAX_ICON_DIMENSION)
|
|
return NANOMAP_BADOUTPUT
|
|
|
|
return NANOMAP_SUCCESS |