Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

Yes!

14 (93.3%)

No!

1 (6.7%)

Total Members Voted: 14

Voting closed: December 25, 2012, 01:15:00 pm

[forsaken1111]

Welp I have bad news, especially for Fivex. Something caused two chunks in the middle of the contest area to revert to seed. Peewee's machine is okay but Fivex's processor got cut in half. I don't know what caused this, but I suspect it was the mystcraft portals. I've read about mystcraft portals + buildcraft causing a chunk error like this which forces minecraft to regenerate the chunk from seed.

No, no my machine is not ok.
I used >all< of the available space underground, the walls don't extend past the ground floor, so that tiny corner took out some MFSUs, some glass fiber cable, 4 item detectors, 4 regulators, a bunch of CF (easily replaced), and some magtubes. Most importantly, it may mean I need to redo some of the wiring, which could take hours to make sure I did it right.

The chunk that took out part of my machine didn't have any buildcraft stuff or mystcraft stuff in it. Gee, what changed in those chunks since before that glitch? How about the contest 'rewards' of black hole chests? Please revert to a save before ~3:30 AM this morning. Or if you'd like, MCedit or some such program could easily take the relevant chunks from a backup save and place them in the current world.

I will take a look when I can to see if I can reverse it. I tried several things already, including MCedit. The last copy of the server was during the reset this morning.

I'll test some more and see if I can get the data back but I don't have hourly backups, or even daily. This isn't a professional server, this is a free thing on hardware I already own which is provided for free. I already put way too much time into it because I like doing it.

[forsaken1111]

Everyone:

I had to do a server rollback due to the mod item glitch. If you're missing something please let me know and I will be happy to replace it.

[forsaken1111]

well, I'm missing my house I spent hours on (for some reason, I don't think replacing it will be easy)

Can you tell me what the coordinates were?

[forsaken1111]

the centre was about about +1133, 66, -327

Thanks. As I said, I am trying to fix it.

I'd suggest nobody do any major work on the server for the next several hours, or until I post otherwise in fact.

[forsaken1111]

Your house should be back Greatorder, please check for me.

[Ivefan]

Everyone:

I had to do a server rollback due to the mod item glitch. If you're missing something please let me know and I will be happy to replace it.

All three buildings up north of town, especially -287,+27 to -316, +14

[forsaken1111]

Everyone:

I had to do a server rollback due to the mod item glitch. If you're missing something please let me know and I will be happy to replace it.

All three buildings up north of town, especially -287,+27 to -316, +14

Unfortunately town was caught in the rollback. PM me a list of important stuff in the buildings and I can return them but the buildings themselves are gone unless they existed 2 days ago. x.x

[miauw62]

Finally got what i was doing wrong. I was trying to make MMC put a .zip called mods with the mods that should go in the mods folder in it, instead of the mods in that .zip

[electronics]

Everyone:

I had to do a server rollback due to the mod item glitch. If you're missing something please let me know and I will be happy to replace it.

New reactor building to the west of x=-300, z= +20

[Ivefan]

New reactor building to the west of x=-300, z= +20

I already said that, just ask for the materials.

[miauw62]

Is the pack compatible with optifine? I have a great computer, but it cant handle this pack without optifine.

[electronics]

Everyone:

I had to do a server rollback due to the mod item glitch. If you're missing something please let me know and I will be happy to replace it.

All three buildings up north of town, especially -287,+27 to -316, +14

Unfortunately town was caught in the rollback. PM me a list of important stuff in the buildings and I can return them but the buildings themselves are gone unless they existed 2 days ago. x.x

The buildings aren't in town, they're about 100 blocks away, did all that stuff get lost?

[forsaken1111]

Is the pack compatible with optifine? I have a great computer, but it cant handle this pack without optifine.

Should work with optifine, just drop it in last after the other .jar mods.

Everyone:

I had to do a server rollback due to the mod item glitch. If you're missing something please let me know and I will be happy to replace it.

All three buildings up north of town, especially -287,+27 to -316, +14

Unfortunately town was caught in the rollback. PM me a list of important stuff in the buildings and I can return them but the buildings themselves are gone unless they existed 2 days ago. x.x

The buildings aren't in town, they're about 100 blocks away, did all that stuff get lost?

I had to roll two region files back by 2 days. Mostly they covered the town, but things near the town would have been affected too. Sorry about that, but it's likely gone. Mod blocks caused some unrecoverable errors which caused minecraft to drop a few chunks and revert them to seed losing two weeks or more of work from several people. If you send me an approximate list of material you lost I will return it.

[Peewee]

Alright, I'm sick of screwing with FORTH bullshit.
Anyone who makes the inventory tracking system work correctly gets a free HV panel.

Enjoy your source code with a lack of comments.
Also, enjoy compiling ~350 lines the first time.
I recommend using a script to make ctrl+v work in minecraft, one line at a time.

Spoiler: AHK script for pasting, ctrl+v to start, v for next line, r to cancel (click to show/hide)

http://piratepad.net/ep/pad/view/TAofK53rOw/rev.40

Spoiler: FORTH Code (click to show/hide)

Code: (Inventory Tracking) [Select]

1 BLOCK WIPE
0 PP 32 CONSTANT INPUTOFFSET
1 PP : GETLOGCOUNT INPUTOFFSET 1 + IOXADDR ! IOX@ ;
2 PP : GETREDSTONECOUNT INPUTOFFSET 2 + IOXADDR ! IOX@ ;
3 PP : GETGLASSCOUNT INPUTOFFSET 3 + IOXADDR ! IOX@ ;
4 PP : GETIRONCOUNT INPUTOFFSET 4 + IOXADDR ! IOX@ ;
5 PP : GETREFINEDCOUNT INPUTOFFSET 5 + IOXADDR ! IOX@ ;
6 PP : GETRUBBERCOUNT INPUTOFFSET 6 + IOXADDR ! IOX@ ;
7 PP : GETCOBBLECOUNT INPUTOFFSET 7 + IOXADDR ! IOX@ ;
8 PP : GETGOLDCOUNT INPUTOFFSET 8 + IOXADDR ! IOX@ ;
9 PP : GETCOPPERCOUNT INPUTOFFSET 9 + IOXADDR ! IOX@ ;
10 PP : GETTINCOUNT INPUTOFFSET 10 + IOXADDR ! IOX@ ;
11 PP : GETCOALDUSTCOUNT INPUTOFFSET 11 + IOXADDR ! IOX@ ;
12 PP : GETDIAMONDCOUNT INPUTOFFSET 12 + IOXADDR ! IOX@ ;
FLUSH
1 LOAD

2 BLOCK WIPE
0 PP 64 CONSTANT OUTPUTOFFSET
1 PP : SETLOGCOUNT OUTPUTOFFSET 1 + IOXADDR ! IOX! ;
2 PP : SETREDSTONECOUNT OUTPUTOFFSET 2 + IOXADDR ! IOX! ;
3 PP : SETGLASSCOUNT OUTPUTOFFSET 3 + IOXADDR ! IOX! ;
4 PP : SETIRONCOUNT OUTPUTOFFSET 4 + IOXADDR ! IOX! ;
5 PP : SETREFINEDCOUNT OUTPUTOFFSET 5 + IOXADDR ! IOX! ;
6 PP : SETRUBBERCOUNT OUTPUTOFFSET 6 + IOXADDR ! IOX! ;
7 PP : SETCOBBLECOUNT OUTPUTOFFSET 7 + IOXADDR ! IOX! ;
8 PP : SETGOLDCOUNT OUTPUTOFFSET 8 + IOXADDR ! IOX! ;
9 PP : SETCOPPERCOUNT OUTPUTOFFSET 9 + IOXADDR ! IOX! ;
10 PP : SETTINCOUNT OUTPUTOFFSET 10 + IOXADDR ! IOX! ;
11 PP : SETCOALDUSTCOUNT OUTPUTOFFSET 11 + IOXADDR ! IOX! ;
12 PP : SETDIAMONDCOUNT OUTPUTOFFSET 12 + IOXADDR ! IOX! ;
FLUSH
2 LOAD

3 BLOCK WIPE
0 PP : RESETALLCOUNTS
1 PP 0 SETLOGCOUNT 0 SETREDSTONECOUNT
2 PP 0 SETGLASSCOUNT 0 SETDIAMONDCOUNT
3 PP 0 SETIRONCOUNT 0 SETREFINEDCOUNT
4 PP 0 SETRUBBERCOUNT 0 SETCOBBLECOUNT
5 PP 0 SETGOLDCOUNT 0 SETCOPPERCOUNT
6 PP 0 SETTINCOUNT 0 SETCOALDUSTCOUNT ;
FLUSH
3 LOAD

4 BLOCK WIPE
0 PP VARIABLE LOGCOUNT
1 PP VARIABLE REDSTONECOUNT
2 PP VARIABLE GLASSCOUNT
3 PP VARIABLE DIAMONDCOUNT
4 PP VARIABLE IRONCOUNT
5 PP VARIABLE REFINEDCOUNT
6 PP VARIABLE RUBBERCOUNT
7 PP VARIABLE COBBLECOUNT
8 PP VARIABLE GOLDCOUNT
9 PP VARIABLE COPPERCOUNT
10 PP VARIABLE TINCOUNT
11 PP VARIABLE COALDUSTCOUNT
12 PP VARIABLE TICKCOUNT
FLUSH
4 LOAD

\ X! (N1 addr -- N) (assigns 0 to addr value, returns sum)
5 BLOCK WIPE
0 PP : X! SWAP OVER @ + 0 ROT ! ; VARIABLE TIMING 14 TIMING !
1 PP : UPDATEOUTPUTS TICKCOUNT @ 1+ TIMING / DUP TICKCOUNT !
2 PP DUP 0 = IF GETLOGCOUNT LOGCOUNT X! SETLOGCOUNT THEN DUP 1
3 PP = IF GETREDSTONECOUNT REDSTONECOUNT X! SETREDSTONECOUNT THEN
4 PP DUP 2 = IF GETGLASSCOUNT GLASSCOUNT X! SETGLASSCOUNT THEN
5 PP DUP 3 = IF GETIRONCOUNT IRONCOUNT X! SETIRONCOUNT THEN
6 PP DUP 4 = IF GETREFINEDCOUNT REFINEDCOUNT X! SETREFINEDCOUNT THEN
7 PP DUP 5 = IF GETRUBBERCOUNT RUBBERCOUNT X! SETRUBBERCOUNT THEN
8 PP DUP 6 = IF GETCOBBLECOUNT COBBLECOUNT X! SETCOBBLECOUNT THEN
9 PP DUP 7 = IF GETGOLDCOUNT GOLDCOUNT X! SETGOLDCOUNT THEN
10 PP DUP 8 = IF GETCOPPERCOUNT COPPERCOUNT X! SETCOPPERCOUNT THEN
11 PP DUP 9 = IF GETTINCOUNT TINCOUNT X! SETTINCOUNT THEN DUP 10
12 PP = IF GETCOALDUSTCOUNT COALDUSTCOUNT X! SETCOALDUSTCOUNT THEN
13 PP 11 = IF GETDIAMONDCOUNT DIAMONDCOUNT X! SETDIAMONDCOUNT THEN
14 PP ;
FLUSH
5 LOAD

6 BLOCK WIPE
0 PP : UPDATEINPUT 131 IOXADDR ! IOX@
1 PP 2 /MOD SWAP 8 * LOGCOUNT +!
2 PP 2 /MOD SWAP 64 * REDSTONECOUNT +!
3 PP 2 /MOD SWAP 32 * GLASSCOUNT +!
4 PP 2 /MOD SWAP 64 * IRONCOUNT +!
5 PP 2 /MOD SWAP 64 * REFINEDCOUNT +!
6 PP 2 /MOD SWAP 63 * RUBBERCOUNT +!
7 PP 2 /MOD SWAP 64 * COBBLECOUNT +!
8 PP 2 /MOD SWAP 64 * GOLDCOUNT +!
9 PP 2 /MOD SWAP 64 * COPPERCOUNT +!
10 PP 2 /MOD SWAP 64 * TINCOUNT +!
11 PP 2 /MOD SWAP 60 * COALDUSTCOUNT +!
12 PP 2 / SWAP 1 * DIAMONDCOUNT +!
13 PP ;
FLUSH
6 LOAD

: MAINLOOP
BEGIN TICK KEY? 0= WHILE UPDATEINPUT UPDATEOUTPUTS REPEAT
." Key pressed, program terminated" CR ;


Code: (item generation AKA lobby computer) [Select]

32 CONSTANT INPUTOFFSET
: GETLOGCOUNT INPUTOFFSET 1 + IOXADDR ! IOX@ ;
: GETREDSTONECOUNT INPUTOFFSET 2 + IOXADDR ! IOX@ ;
: GETGLASSCOUNT INPUTOFFSET 3 + IOXADDR ! IOX@ ;
: GETIRONCOUNT INPUTOFFSET 4 + IOXADDR ! IOX@ ;
: GETREFINEDCOUNT INPUTOFFSET 5 + IOXADDR ! IOX@ ;
: GETRUBBERCOUNT INPUTOFFSET 6 + IOXADDR ! IOX@ ;
: GETCOBBLECOUNT INPUTOFFSET 7 + IOXADDR ! IOX@ ;
: GETGOLDCOUNT INPUTOFFSET 8 + IOXADDR ! IOX@ ;
: GETCOPPERCOUNT INPUTOFFSET 9 + IOXADDR ! IOX@ ;
: GETTINCOUNT INPUTOFFSET 10 + IOXADDR ! IOX@ ;
: GETCOALDUSTCOUNT INPUTOFFSET 11 + IOXADDR ! IOX@ ;
: GETDIAMONDCOUNT INPUTOFFSET 12 + IOXADDR ! IOX@ ;

64 CONSTANT OUTPUTOFFSET
: SETLOGCOUNT OUTPUTOFFSET 1 + IOXADDR ! IOX! ;
: SETREDSTONECOUNT OUTPUTOFFSET 2 + IOXADDR ! IOX! ;
: SETGLASSCOUNT OUTPUTOFFSET 3 + IOXADDR ! IOX! ;
: SETIRONCOUNT OUTPUTOFFSET 4 + IOXADDR ! IOX! ;
: SETREFINEDCOUNT OUTPUTOFFSET 5 + IOXADDR ! IOX! ;
: SETRUBBERCOUNT OUTPUTOFFSET 6 + IOXADDR ! IOX! ;
: SETCOBBLECOUNT OUTPUTOFFSET 7 + IOXADDR ! IOX! ;
: SETGOLDCOUNT OUTPUTOFFSET 8 + IOXADDR ! IOX! ;
: SETCOPPERCOUNT OUTPUTOFFSET 9 + IOXADDR ! IOX! ;
: SETTINCOUNT OUTPUTOFFSET 10 + IOXADDR ! IOX! ;
: SETCOALDUSTCOUNT OUTPUTOFFSET 11 + IOXADDR ! IOX! ;
: SETDIAMONDCOUNT OUTPUTOFFSET 12 + IOXADDR ! IOX! ;

: RESETALLCOUNTS
0 SETLOGCOUNT
0 SETREDSTONECOUNT
0 SETGLASSCOUNT
0 SETDIAMONDCOUNT
0 SETIRONCOUNT
0 SETREFINEDCOUNT
0 SETRUBBERCOUNT
0 SETCOBBLECOUNT
0 SETGOLDCOUNT
0 SETCOPPERCOUNT
0 SETTINCOUNT
0 SETCOALDUSTCOUNT
;

VARIABLE TOTALUUMATTER

 VARIABLE nHVPANEL VARIABLE nHVTRANS VARIABLE nIHVCABLE VARIABLE nHVCABLE
 VARIABLE nECRYSTAL VARIABLE nMVPANEL VARIABLE nMVTRANS VARIABLE nMACHINE
 VARIABLE nIGOLDCABLE VARIABLE nGOLDCABLE VARIABLE nLVPANEL VARIABLE nLVTRANS
 VARIABLE nPLANK VARIABLE nPANEL VARIABLE nCIRCUIT VARIABLE nCABLE
 VARIABLE nBATTERY VARIABLE nIFURNACE VARIABLE nFURNACE VARIABLE nLOG
 VARIABLE nCOPPER VARIABLE nTIN VARIABLE nRUBBER VARIABLE nIRON VARIABLE nREFINED
 VARIABLE nCOBBLE VARIABLE nREDSTONE VARIABLE nCOALDUST VARIABLE nGLASS
 VARIABLE nGOLD VARIABLE nGENERATOR VARIABLE nDIAMOND

 VARIABLE LOGCOUNT VARIABLE FURNACECOUNT VARIABLE REDSTONECOUNT VARIABLE IFURNACECOUNT
 VARIABLE GLASSCOUNT VARIABLE BATTERYCOUNT VARIABLE DIAMONDCOUNT VARIABLE GENERATORCOUNT
 VARIABLE IRONCOUNT VARIABLE CABLECOUNT VARIABLE REFINEDCOUNT VARIABLE CIRCUITCOUNT
 VARIABLE RUBBERCOUNT VARIABLE PANELCOUNT VARIABLE COBBLECOUNT VARIABLE PLANKCOUNT
 VARIABLE GOLDCOUNT VARIABLE LVTRANSCOUNT VARIABLE COPPERCOUNT VARIABLE LVPANELCOUNT
 VARIABLE TINCOUNT VARIABLE GOLDCABLECOUNT VARIABLE COALDUSTCOUNT VARIABLE IGOLDCABLECOUNT
 VARIABLE UPDATETURN VARIABLE MACHINECOUNT VARIABLE MVTRANSCOUNT VARIABLE MVPANELCOUNT
 VARIABLE HVCABLECOUNT VARIABLE IHVCABLECOUNT VARIABLE ECRYSTALCOUNT VARIABLE HVTRANSCOUNT

 VARIABLE TICKCOUNT
 VARIABLE TIMING
 
28 TIMING !

: GETTICKS TICKCOUNT @ 1+ TIMING @ / DUP TICKCOUNT ! ;
: UPDATEINPUTS
DUP 0 = IF GETLOGCOUNT LOGCOUNT ! THEN
DUP 1 = IF GETREDSTONECOUNT REDSTONECOUNT ! THEN
DUP 2 = IF GETGLASSCOUNT GLASSCOUNT ! THEN
DUP 3 = IF GETIRONCOUNT IRONCOUNT ! THEN
DUP 4 = IF GETREFINEDCOUNT REFINEDCOUNT ! THEN
DUP 5 = IF GETRUBBERCOUNT RUBBERCOUNT ! THEN
DUP 6 = IF GETCOBBLECOUNT COBBLECOUNT ! THEN
DUP 7 = IF GETGOLDCOUNT GOLDCOUNT ! THEN
DUP 8 = IF GETCOPPERCOUNT COPPERCOUNT ! THEN
DUP 9 = IF GETTINCOUNT TINCOUNT ! THEN
DUP 10 = IF GETCOALDUSTCOUNT COALDUSTCOUNT ! THEN
11 = IF GETDIAMONDCOUNT DIAMONDCOUNT ! THEN
;

\ Prerequisite calculation
: XY SWAP @ SWAP /MOD SWAP 1 MIN + * SWAP +! ;

: UPDATEREQUESTS
nHVTRANS 1 nHVPANEL 1 XY nIHVCABLE 2 nHVTRANS 1 XY
nECRYSTAL 1 nHVTRANS 1 XY nDIAMOND 1 nECRYSTAL 1 XY
nREDSTONE 8 nECRYSTAL 1 XY nCIRCUIT 1 nHVTRANS 1 XY
nMVTRANS 1 nHVTRANS 1 XY nHVCABLE 1 nIHVCABLE 1 XY
nRUBBER 3 nIHVCABLE 1 XY nREFINED 3 nHVCABLE 12 XY
nMVPANEL 8 nHVPANEL 1 XY nMVTRANS 1 nMVPANEL 1 XY
nIGOLDCABLE 2 nMVTRANS 1 XY nRUBBER 2 nIGOLDCABLE 1 XY
nGOLDCABLE 1 nIGOLDCABLE 1 XY nGOLD 3 nGOLDCABLE 12 XY
nMACHINE 1 nMVTRANS 1 XY nREFINED 8 nMACHINE 1 XY
nLVPANEL 8 nMVPANEL 1 XY nLVTRANS 1 nLVPANEL 1 XY nCABLE 2 nLVTRANS 1 XY
nCOPPER 3 nLVTRANS 1 XY nPLANK 4 nLVTRANS 1 XY
nLOG 1 nPLANK 4 XY nPANEL 8 nLVPANEL 1 XY
nCIRCUIT 2 nPANEL 1 XY nCABLE 6 nCIRCUIT 1 XY
nREFINED 1 nCIRCUIT 1 XY nREDSTONE 2 nCIRCUIT 1 XY
nGENERATOR 1 nPANEL 1 XY nCOALDUST 3 nPANEL 1 XY
nGLASS 3 nPANEL 1 XY nBATTERY 1 nGENERATOR 1 XY
nCABLE 1 nBATTERY 1 XY nREDSTONE 2 nBATTERY 1 XY
nTIN 4 nBATTERY 1 XY nCOPPER 3 nCABLE 6 XY
nRUBBER 6 nCABLE 6 XY nIFURNACE 1 nGENERATOR 1 XY
nREFINED 3 nGENERATOR 1 XY nFURNACE 1 nIFURNACE 1 XY
nIRON 5 nIFURNACE 1 XY nCOBBLE 8 nFURNACE 1 XY
;

: CALCULATEUU 0 TOTALUUMATTER !
TOTALUUMATTER 9 nDIAMOND 1 XY TOTALUUMATTER 1 nLOG 8 XY
TOTALUUMATTER 3 nCOPPER 10 XY TOTALUUMATTER 3 nTIN 10 XY
TOTALUUMATTER 4 nRUBBER 63 XY TOTALUUMATTER 5 nIRON 4 XY
TOTALUUMATTER 5 nREFINED 4 XY TOTALUUMATTER 1 nCOBBLE 16 XY
TOTALUUMATTER 4 nREDSTONE 24 XY TOTALUUMATTER 3 nCOALDUST 20 XY
TOTALUUMATTER 4 nGLASS 32 XY TOTALUUMATTER 5 nGOLD 2 XY
CR ." UU matter left to use: " TOTALUUMATTER @ 64 /MOD . SPACE ." stacks + " .
;

: TF 2OVER SWAP -! -! ;
: MADECABLE 3 nCOPPER COPPERCOUNT TF 6 nRUBBER RUBBERCOUNT TF 6 CABLECOUNT +! ;
: MADECIRCUIT 6 nCABLE CABLECOUNT TF 1 nREFINED REFINEDCOUNT 2 TF nREDSTONE REDSTONECOUNT TF 1 CIRCUITCOUNT +! ;
: MADEFURNACE 8 nCOBBLE COBBLECOUNT TF 1 FURNACECOUNT +! ;
: MADEIFURNACE 1 nFURNACE FURNACECOUNT TF 5 nIRON IRONCOUNT TF 1 IFURNACECOUNT +! ;
: MADEBATTERY 1 nCABLE CABLECOUNT TF 2 nREDSTONE REDSTONECOUNT TF 4 nTIN TINCOUNT TF 1 BATTERYCOUNT +! ;
: MADEGENERATOR 1 nBATTERY BATTERYCOUNT TF 1 nIFURNACE IFURNACECOUNT TF
3 nREFINED REFINEDCOUNT TF 1 GENERATORCOUNT +! ;
: MADEPANEL 2 nCIRCUIT CIRCUITCOUNT TF 1 nGENERATOR GENERATORCOUNT TF
3 nCOALDUST COALDUSTCOUNT TF 3 nGLASS GLASSCOUNT TF 1 PANELCOUNT +! ;
: MADEPLANK 1 nLOG LOGCOUNT TF 4 PLANKCOUNT +! ;
: MADELVTRANS 2 nCABLE CABLECOUNT TF 3 nCOPPER COPPERCOUNT TF 4 nPLANK PLANKCOUNT TF 1 LVTRANSCOUNT +! ;
: MADELVPANEL 8 nPANEL PANELCOUNT TF 1 nLVTRANS LVTRANSCOUNT TF 1 LVPANELCOUNT +! ;
: MADEGOLDCABLE 3 nGOLD GOLDCOUNT TF 12 GOLDCABLECOUNT +! ;
: MADEIGOLDCABLE 1 nGOLDCABLE GOLDCABLECOUNT TF 2 nRUBBER RUBBERCOUNT TF 1 IGOLDCABLECOUNT +! ;
: MADEMACHINE 8 nREFINED REFINEDCOUNT TF 1 MACHINECOUNT +! ;
: MADEMVTRANS 1 nMACHINE MACHINECOUNT TF 2 nIGOLDCABLE IGOLDCABLECOUNT TF MVTRANSCOUNT +! ;
: MADEMVPANEL 1 nMVTRANS MVTRANSCOUNT TF 8 nLVPANEL LVPANELCOUNT TF 1 MVPANELCOUNT +! ;
: MADEECRYSTAL 1 nDIAMOND DIAMONDCOUNT TF 8 nREDSTONE REDSTONECOUNT TF 1 ECRYSTALCOUNT +! ;
: MADEHVCABLE 3 nREFINED REFINEDCOUNT TF 12 HVCABLECOUNT +! ;
: MADEIHVCABLE 1 nHVCABLE HVCABLECOUNT TF 3 nRUBBER RUBBERCOUNT TF 1 IHVCABLECOUNT +! ;
: MADEHVTRANS 1 nECRYSTAL ECRYSTALCOUNT TF 2 nIHVCABLE IHVCABLECOUNT TF
1 nCIRCUIT CIRCUITCOUNT TF 1 nMVTRANS MVTRANSCOUNT TF 1 HVTRANSCOUNT +! ;
: MADEHVPANEL 1 nHVTRANS HVTRANSCOUNT TF 8 nMVPANEL MVPANELCOUNT TF 1 HVTRANSCOUNT +! ;

: SUBTRACTINV
nCABLE @ 0 > COPPERCOUNT @ 3 >= RUBBERCOUNT @ 6 >= AND AND IF MADECABLE THEN
nCIRCUIT @ 0 > CABLECOUNT @ 6 >= REFINEDCOUNT @ 1 >= REDSTONECOUNT @ 2 >= AND AND AND IF MADECIRCUIT
THEN
nFURNACE @ 0 > COBBLECOUNT @ 8 >= AND IF MADEFURNACE THEN
nIFURNACE @ 0 > FURNACECOUNT @ 1 >= IRONCOUNT @ 5 >= AND AND IF MADEIFURNACE THEN
nBATTERY @ 0 > CABLECOUNT @ 1 >= REDSTONECOUNT @ 2 >= TINCOUNT @ 4 >= AND AND AND IF MADEBATTERY THEN
nGENERATOR @ 0 > REFINEDCOUNT @ 3 >= BATTERYCOUNT @ 1 >= IFURNACECOUNT @ 1 >= AND AND AND IF
MADEGENERATOR THEN
nPANEL @ 0 > CIRCUITCOUNT @ 2 >= GENERATORCOUNT @ 1 >= COALDUSTCOUNT @ 3 >= GLASSCOUNT @ 3 >= AND AND
AND AND IF MADEPANEL THEN
nPLANK @ 0 > LOGCOUNT @ 1 >= AND IF MADEPLANK THEN
nLVTRANS @ 0 > CABLECOUNT @ 2 >= COPPERCOUNT @ 3 >= PLANKCOUNT @ 4 >= AND AND AND IF MADELVTRANS THEN
nLVPANEL @ 0 > PANELCOUNT @ 8 >= LVTRANSCOUNT @ 1 >= AND AND IF MADELVPANEL THEN
nGOLDCABLE @ 0 > GOLDCOUNT @ 3 >= AND IF MADEGOLDCABLE THEN
nIGOLDCABLE @ 0 > GOLDCABLECOUNT @ 1 >= RUBBERCOUNT @ 2 >= AND AND IF MADEIGOLDCABLE THEN
nMACHINE @ 0 > REFINEDCOUNT @ 8 >= AND IF MADEMACHINE THEN
nMVTRANS @ 0 > IGOLDCABLECOUNT @ 2 >= MACHINECOUNT @ 1 >= AND AND IF MADEMVTRANS THEN
nMVPANEL @ 0 > LVPANELCOUNT @ 8 >= MVTRANSCOUNT @ 1 >= AND AND IF MADEMVPANEL THEN
nECRYSTAL @ 0 > DIAMONDCOUNT 1 @ >= REDSTONECOUNT @ 8 >= AND AND IF MADEECRYSTAL THEN
nHVCABLE @ 0 > REFINEDCOUNT @ 3 >= AND IF MADEHVCABLE THEN
nIHVCABLE @ 0 > HVCABLECOUNT @ 1 >= RUBBERCOUNT @ 3 >= AND AND IF MADEIHVCABLE THEN
nHVTRANS @ 0 > MVTRANSCOUNT @ 1 >= CIRCUITCOUNT @ 1 >= IHVCABLECOUNT @ 1 >= ECRYSTALCOUNT @ 1 >= AND
AND AND AND IF MADEHVTRANS THEN
nHVPANEL @ 0 > HVTRANSCOUNT @ 1 >= MVPANELCOUNT @ 8 >= AND AND IF MADEHVPANEL THEN
;

HEX
: UPDATEOUTPUT
nLOG @ LOGCOUNT @ > 1 AND nREDSTONE @ REDSTONECOUNT @ > 2 AND OR
nGLASS @ GLASSCOUNT @ > 4 AND OR nIRON @ IRONCOUNT @ > 8 AND OR
nREFINED @ REFINEDCOUNT @ > 10 AND OR nRUBBER @ RUBBERCOUNT @ > 20 AND OR
nCOBBLE @ COBBLECOUNT @ > 40 AND OR nGOLD @ GOLDCOUNT @ > 80 AND OR
nCOPPER @ COPPERCOUNT @ > 100 AND OR nTIN @ TINCOUNT @ > 200 AND OR
nCOALDUST @ COALDUSTCOUNT @ > 400 AND OR nDIAMOND @ DIAMONDCOUNT @ > 800 AND OR
3 IOXADDR ! IOX!
;
DECIMAL

: RESETOUTPUT 3 IOXADDR ! 0 IOX! ;

: SETINPUTS
DUP 14 = IF LOGCOUNT @ SETLOGCOUNT THEN
DUP 15 = IF REDSTONECOUNT @ SETREDSTONECOUNT THEN
DUP 16 = IF GLASSCOUNT @ SETGLASSCOUNT THEN
DUP 17 = IF IRONCOUNT @ SETIRONCOUNT THEN
DUP 18 = IF REFINEDCOUNT @ SETREFINEDCOUNT THEN
DUP 19 = IF RUBBERCOUNT @ SETRUBBERCOUNT THEN
DUP 20 = IF COBBLECOUNT @ SETCOBBLECOUNT THEN
DUP 21 = IF GOLDCOUNT @ SETGOLDCOUNT THEN
DUP 22 = IF COPPERCOUNT @ SETCOPPERCOUNT THEN
DUP 23 = IF TINCOUNT @ SETTINCOUNT THEN
DUP 24 = IF COALDUSTCOUNT @ SETCOALDUSTCOUNT THEN
25 = IF DIAMONDCOUNT @ SETDIAMONDCOUNT THEN
;

: RESETVARS
0 nHVPANEL ! 0 nHVTRANS ! 0 nIHVCABLE ! 0 nHVCABLE ! 0
nECRYSTAL ! 0 nMVPANEL ! 0 nMVTRANS ! 0 nMACHINE ! 0
nIGOLDCABLE ! 0 nGOLDCABLE ! 0 nLVPANEL ! 0 nLVTRANS ! 0
nPLANK ! 0 nPANEL ! 0 nCIRCUIT ! 0 nCABLE ! 0
nBATTERY ! 0 nIFURNACE ! 0 nFURNACE ! 0 nLOG ! 0
nCOPPER ! 0 nTIN ! 0 nRUBBER ! 0 nIRON ! 0 nREFINED ! 0
nCOBBLE ! 0 nREDSTONE ! 0 nCOALDUST ! 0 nGLASS ! 0
nGOLD ! 0 nGENERATOR ! 0 nDIAMOND ! 0
LOGCOUNT ! 0 FURNACECOUNT ! 0 REDSTONECOUNT ! 0 IFURNACECOUNT ! 0
GLASSCOUNT ! 0 BATTERYCOUNT ! 0 DIAMONDCOUNT ! 0 GENERATORCOUNT ! 0
IRONCOUNT ! 0 CABLECOUNT ! 0 REFINEDCOUNT ! 0 CIRCUITCOUNT ! 0
RUBBERCOUNT ! 0 PANELCOUNT ! 0 COBBLECOUNT ! 0 PLANKCOUNT ! 0
GOLDCOUNT ! 0 LVTRANSCOUNT ! 0 COPPERCOUNT ! 0 LVPANELCOUNT ! 0
TINCOUNT ! 0 GOLDCABLECOUNT ! 0 COALDUSTCOUNT ! 0 IGOLDCABLECOUNT ! 0
UPDATETURN ! 0 MACHINECOUNT ! 0 MVTRANSCOUNT ! 0 MVPANELCOUNT ! 0
HVCABLECOUNT ! 0 IHVCABLECOUNT ! 0 ECRYSTALCOUNT ! 0 HVTRANSCOUNT !
;

: PRINTINVENTORY
PAGE CR
." PROGRESS REPORT" CR
." Logs left:" nLOG @ LOGCOUNT @ - 0 MAX . CR
." Redstone left:" nREDSTONE @ REDSTONECOUNT @ - 0 MAX . CR
." Glass left:" nGLASS @ GLASSCOUNT @ - 0 MAX . CR
." Iron left:" nIRON @ IRONCOUNT @ - 0 MAX . CR
." Refined Iron left:" nREFINED @ REFINEDCOUNT @ - 0 MAX . CR
." Rubber left:" nRUBBER @ RUBBERCOUNT @ - 0 MAX . CR
." Cobble left:" nCOBBLE @ COBBLECOUNT @ - 0 MAX . CR
." Gold left:" nGOLD @ GOLDCOUNT @ - 0 MAX . CR
." Copper left:" nCOPPER @ COPPERCOUNT @ - 0 MAX . CR
." Tin left:" nTIN @ TINCOUNT @ - 0 MAX . CR
." Coal Dust left:" nCOALDUST @ COALDUSTCOUNT @ - 0 MAX . CR
." Diamond left:" nDIAMOND @ DIAMONDCOUNT @ - 0 MAX . CR
;

: DOMAINLOOP
GETTICKS
DUP 11 <= IF DUP UPDATEINPUTS THEN
DUP 12 = IF SUBTRACTINV THEN
DUP 13 = IF UPDATEOUTPUT THEN
DUP DUP 14 >= SWAP 25 <= AND IF DUP SETINPUTS THEN
DUP 26 = IF RESETOUTPUT THEN
DUP 27 = IF PRINTINVENTORY CALCULATEUU THEN
DROP
;

: MAINLOOP
4 TICKS
DEPTH 0<> IF nHVPANEL ! UPDATEREQUESTS THEN
BEGIN TICK nHVPANEL @ 0 > KEY? 0= OR WHILE DOMAINLOOP REPEAT
SUBTRACTINV
." Key pressed, program halted. Enter 0 MAINLOOP to continue." CR
;


legal disclaimer: I, the sole contributor to the above FORTH code, release it under LGPL (Short version: It's open source, distribute and use it as you wish, modifications must remain open source and use the same license. Stuff that uses the program but does not modify it doesn't have to stay open source, but you have to say you used it). Alfie275 gave me the AHK script, and I claim no credit.

[Sergius]

Just wanted to let everyone know, I've flattened a new 3x3 lot area west of Town. Mostly used a Filler to clear it.

Each house fits exactly in a chunk, minus 2 blocks on each side for the streets (so streets are 4 wide).

I've "zoned" 8 houses, the center lot is supposed to be a Plaza or something. I'm claiming the northern middle lot for myself. There are some caves underground so it's up to each one to clear it or whatever if they want to be able to use beds without annoying messages.

Also, I ran out of torches, I've lighted what I could but please be careful with mob spawns, specially creepers.

Have a nice day

EDIT: Also, I've just vacated the South East house so whoever moves in first gets a FREE PREBUILT HOUSE.