Minecraft के लिए एक विश्व जनरेटर बनाना

परिचय

मुझे लगता है कि लगभग सभी हब्र के पाठकों ने माइनक्राफ्ट के बारे में सुना, किसी ने एकल में खेला, किसी ने कई सर्वरों में से एक, यहां तक ​​कि एक हब्रयूज़र्स के पास एक छोटा सर्वर था। दो महीने खेलने के बाद, मुझे आश्चर्य हुआ - क्या मेरा अपना मैप जनरेटर लिखना संभव है? जैसा कि यह निकला, यह कुछ दिनों के इत्मीनान से गुगली और कोडिंग में करना संभव है।

थोड़ा तकनीकी हिस्सा

खदान विकी परियोजना के अनुसार, नक्शे क्षेत्रीय फ़ाइलों (16x16x128 क्यूब्स के 32x32 ब्लॉक, कुल 262144 वर्ग ब्लॉक प्रति क्षेत्र) में संग्रहीत किए जाते हैं, जिनकी निम्न संरचना है:

1. 4096 बाइट्स जिनमें चोक ऑफ़सेट (तथाकथित 16x16x128 ब्लॉक) और 4kb के ब्लॉक में उनका आकार, गोल आकार, 3 बाइट्स ऑफ़सेट, 1 - आकार
2. टाइमस्टैम्प विखंडू के 4096 बाइट्स, प्रत्येक प्रति 4 बाइट्स
3. फ़ाइल के अंत तक शेष स्थान, वास्तव में, ज़्लिब द्वारा संपीड़ित डेटा का हिस्सा है। 4 बाइट्स - संपीड़ित डेटा का आकार, 1 - संपीड़न विधि (डिफ़ॉल्ट 2, Zlib (RFC1950)), आकार -1 NBT संरचना zlib के साथ पैक की जाती है, अर्थात क्यूब कंटेनर स्वयं
   यदि पैक किया गया डेटा 4 केबी के सेक्टरों के पूर्णांक संख्या से कम होता है, तो शेष सेक्टर शून्य से भर जाता है, क्योंकि प्रत्येक बंक को ऑफसेट के साथ शुरू करना चाहिए, जिसे 4096 बाइट्स के सेक्टरों के पूर्णांक संख्या के रूप में व्यक्त किया गया है।

भाषा चयन

आप किसी भी भाषा में इस तरह की संरचना को लागू कर सकते हैं, मैंने डेल्फी 7. बंद कर दिया। सबसे पहले, यह एकमात्र ऐसी भाषा है जिसे मैं जानता हूं, और दूसरी बात, यह 4 साल पहले के संस्करण 7 पर थी कि मैंने जुआ से मैनुअल पर नोटबुक लिखना शुरू कर दिया था।

कोड

चूंकि डेटा संपीड़ित रूप में संग्रहीत किया जाता है, इसलिए हमें zlib मॉड्यूल की आवश्यकता होती है।
मैंने ZlibEx का इस्तेमाल किया

सबसे पहले, एक चंक क्लास बनाएं, जिसमें हम बाद में डेटा लिखेंगे

Tchunk = class(TObject) private public Data: tmemorystream; c_data: tmemorystream; c_stream: tzcompressionstream; constructor Create; procedure writeblock(x, y, z, block: integer); overload; procedure writeblock(x, y, z, block, color: integer); overload; procedure compress; end; 

इस वर्ग के लिए कोड है:

 constructor tchunk.Create; begin Data := TMemoryStream.Create; Data.size := 82360; Data.LoadFromFile('data.bin'); c_data := TMemoryStream.Create; c_stream := tzcompressionstream.Create(c_data, zcdefault, 15, 8, zsdefault); end; procedure tchunk.writeblock(x, y, z, block: integer); begin Data.Seek(form1.getoffset(x, y, z) + 16487, 0); Data.Write(block, 1); end; procedure tchunk.compress; var buffer: array [0..82360] of byte; begin c_data.Position := 0; Data.Position := 0; Data.Read(buffer, 82360); c_stream.writebuffer(buffer, 82360); c_stream.Free; c_data.SaveToFile('file' + IntToStr(n)); end; 

गेटऑफ़सेट फ़ंक्शन फॉर्मूला y + ( z *128 + ( x * 128 * 16 ) ) द्वारा वांछित ऑफसेट लौटाता है y + ( z *128 + ( x * 128 * 16 ) )

 function tform1.getoffset(x, y, z: integer): integer; begin Result := y + (z * 128 + (x * 128 * 16)); end; 

चर में जोड़े के कुछ जोड़े:

 chunks:array[0..32] of array[0..32] of tchunk; n: integer=0; 

तैयार फ़ाइल में सभी विखंडू को सम्‍मिलित करने की प्रक्रिया:

 procedure tform1.SwapEndiannessOfBytes(var Value: cardinal); var tmp: cardinal; i: integer; begin tmp := 0; for i := 0 to sizeof(Value) - 1 do Inc(tmp, ((Value shr (8 * i)) and $FF) shl (8 * (sizeof(Value) - i - 1))); Value := tmp; end; procedure tform1.generatefile; var fileoffset: integer; time, compressiontype, counter: integer; filename: string; regionfile: tfilestream; tmp: cardinal; size: integer; n_x, n_z: integer; bu: array[0..99999] of byte; n: integer; roundedsize: integer; neededsize: integer; d: byte; begin fileoffset := 2; time := $d8de2f4e; compressiontype := $02; filename := GetVar('Appdata') + '\.minecraft\saves\NewWorld\region\r.0.0.mcr'; regionfile := tfilestream.Create(filename, fmcreate); n := 0; for n_x := 0 to 31 do for n_z := 0 to 31 do begin chunks[n_x][n_z].compress; roundedsize := ((chunks[n_x][n_z].c_data.Size) div 4096); if (((chunks[n_x][n_z].c_data.Size) mod 4096) > 0) then Inc(roundedsize); regionfile.seek((4 * ((n_x mod 32) + (n_z mod 32) * 32)), 0); tmp := fileoffset; SwapEndiannessOfBytes(tmp); tmp := tmp shr 8; regionfile.Write(tmp, 4); regionfile.seek(4 * ((n_x mod 32) + (n_z mod 32) * 32) + 3, 0); regionfile.Write(roundedsize, 1); size := chunks[n_x][n_z].c_data.Size + 1; regionfile.seek(fileoffset * 4096, 0); tmp := size; SwapEndiannessOfBytes(tmp); regionfile.Write(tmp, 4); regionfile.Write(compressiontype, 1); chunks[n_x][n_z].c_data.Position := 0; chunks[n_x][n_z].c_data.readbuffer(bu, chunks[n_x][n_z].c_data.size); regionfile.Writebuffer(bu, chunks[n_x][n_z].c_data.size); regionfile.seek((n) * 4 + 4096, 0); regionfile.Write(time, 4); fileoffset := fileoffset + ((chunks[n_x][n_z].c_data.Size) div 4096); if (((chunks[n_x][n_z].c_data.Size) mod 4096) > 0) then fileoffset := fileoffset + 1; Inc(n); end; neededsize := 4096 * fileoffset - regionfile.Size - 1; regionfile.Seek(regionfile.Size, 0); d := 00; for n := 0 to neededsize do regionfile.Write(d, 1); regionfile.Free; end; 

यही है, अब हमारे पास क्षेत्र के भीतर किसी भी समन्वय द्वारा किसी भी ब्लॉक को रिकॉर्ड करने का एक तरीका है। यदि वांछित है, तो बाकी क्षेत्रों के लिए समान दोहराना आसान है, आपको कोड 10 की पंक्तियों की आवश्यकता है।

लिखने के लिए लपेटें:

 procedure tform1.writeworld(x, y, z, block: integer); var xw, zw: integer; begin xw := (x div 16); zw := (z div 16); chunks[xw][zw].writeblock(x mod 16, y, z mod 16, block); end; 

दुनिया की पीढ़ी, इसके संपीड़न और संरक्षण।

 procedure TForm1.Button4Click(Sender: TObject); var x, y, z: integer; xx, zz: integer; image: tbitmap; begin for xx := 0 to 31 do for zz := 0 to 31 do begin chunks[xx][zz] := tchunk.Create; end; image := tbitmap.Create; image.LoadFromFile('image.bmp'); for x:=0 to 127 do for y:=0 to 116 do begin if image.Canvas.Pixels[x,y]=clblack then form1.writeworld(x,117-y,0,49); if image.Canvas.Pixels[x,117-y]=clwhite then form1.writeworld(x,y,0,80); end; form1.generatefile; 

परिणाम:



आप न केवल पिक्सेल कला, बल्कि मनमाने आकार उत्पन्न कर सकते हैं, यह सब किसी भी सूत्र द्वारा निर्धारित किया जा सकता है। उदाहरण के लिए, एक साइनसॉइड के रूप में लिंग:


यहां प्रोजेक्ट डाउनलोड किया जा सकता है ।

ज्ञात कीड़े:

• उत्पन्न क्षेत्र में परिवर्तनों को सहेजना असंभव है (संभवतः इस तथ्य के कारण कि उसी टाइमस्टैम्प को लिखा गया है, जो level.dat में अंतिम बचत के समय के साथ मेल नहीं खाता है, जैसा कि मैं बाद के प्रारूप के साथ इसका पता लगाता हूं - मैं इसे लागू करने का प्रयास करूंगा)
• मैकएडिट का उपयोग करके स्पॉन को फिर से व्यवस्थित करना बेहतर है, क्योंकि यह काफी संभव है कि पीढ़ी के बाद यह जमीन के ऊपर एक सौ ब्लॉक होगा, जो मौत से भरा हुआ है (इसे लेवलटैट में भी बदला जा सकता है)
• कोई प्रकाश पीढ़ी नहीं है, इसके बजाय, सभी ब्लॉकों को रोशन किया जाता है, यहां तक ​​कि भूमिगत (प्रकाश गणना एक अलग गंभीर कार्य है जब तक कि इसे हल करने के लिए तैयार न हो)

टूडू:

• सेव की मरम्मत करें, क्योंकि इसके बिना, आधा अर्थ खो जाता है
• अतिरिक्त जानकारी रिकॉर्ड करने के लिए समर्थन करें (ऊन का रंग, पत्ते, स्टोव का उन्मुखीकरण, आदि) // आंशिक रूप से तैयार
• किसी प्रकार का परिदृश्य (पहाड़ियाँ / घर / झीलें)

अपडेट:

• संशोधित generatefile , एक सामान्य प्रसार किया
• कोड स्वरूपण
• एक dditional block data रेखांकित dditional block data , प्रोजेक्ट में देखें, लिंक अपडेट किया गया

संदर्भ:

• कार्ड प्रारूप विवरण
• राइटब्लॉक / रिटव्यूअर फ़ंक्शन के लिए ब्लॉक आईडी
• डेल्फी के लिए ज़ालिब