cyberpresidentvanellope/Paradise
1
0
Fork 0
mirror of https://github.com/ParadiseSS13/Paradise.git synced 2026-08-22 11:37:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #938 from tigercat2000/PMGIP1

Browse Source 
Procedural Map Generator Improvements - Patch 1
This commit is contained in:
TheDZD
2015-05-09 13:10:52 -04:00
parent 3ff6339f04 984e337c47
commit b9227bd294
1 changed files with 10 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
code/modules/procedural mapping/mapGenerator.dm
+10 -12
View File
@@ -49,30 +49,28 @@
if(!checkRegion(Start, End))
return 0
var/centerX = abs(max(End.x-Start.x,1))
var/centerY = abs(max(End.y-Start.y,1))
var/centerX = max(abs((End.x+Start.x)/2),1)
var/centerY = max(abs((End.y+Start.y)/2),1)
var/lilZ = min(Start.z,End.z)
var/bigZ = max(Start.z,End.z)
var/centerZ = max(abs(bigZ-(lilZ/2)),1) //Spherical maps! woo!
var/sphereMagic = max(abs(bigZ-(lilZ/2)),1) //Spherical maps! woo!
var/radius = abs(max(centerX,centerY)) //take the biggest displacement as the radius
if(replace)
undefineRegion()
//Sphere mode engage
var/evenCheckZ = 0
if(max(bigZ,lilZ) % 2 == 0)
evenCheckZ = centerZ+1
//Even sphere correction engage
var/offByOneOffset = 1
if(bigZ % 2 == 0)
offByOneOffset = 0
for(var/i = lilZ, i <= bigZ, i++)
for(var/i = lilZ, i <= bigZ+offByOneOffset, i++)
var/theRadius = radius
if(i != centerZ)
if(i != evenCheckZ)
theRadius = max(radius/max((2*abs(centerZ-i)),1),1)
if(i != sphereMagic)
theRadius = max(radius/max((2*abs(sphereMagic-i)),1),1)
map |= circlerange(locate(centerX,centerY,i),theRadius)