29 procedure GenPreview(out Preview: TPreview); |
29 procedure GenPreview(out Preview: TPreview); |
30 |
30 |
31 implementation |
31 implementation |
32 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, SysUtils, |
32 uses uConsole, uStore, uRandom, uLandObjects, uIO, uLandTexture, SysUtils, |
33 uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures, |
33 uVariables, uUtils, uCommands, adler32, uDebug, uLandPainted, uTextures, |
34 uLandGenMaze, uLandOutline, uPhysFSLayer; |
34 uLandGenMaze, uLandOutline, uPhysFSLayer, uScript; |
35 |
35 |
36 var digest: shortstring; |
36 var digest: shortstring; |
37 |
37 |
38 procedure ResizeLand(width, height: LongWord); |
38 procedure ResizeLand(width, height: LongWord); |
39 var potW, potH: LongInt; |
39 var potW, potH: LongInt; |
884 adler:= 1; |
884 adler:= 1; |
885 for i:= 0 to LAND_HEIGHT-1 do |
885 for i:= 0 to LAND_HEIGHT-1 do |
886 adler:= Adler32Update(adler, @Land[i,0], LAND_WIDTH); |
886 adler:= Adler32Update(adler, @Land[i,0], LAND_WIDTH); |
887 s:= 'M' + IntToStr(adler) + cScriptName; |
887 s:= 'M' + IntToStr(adler) + cScriptName; |
888 |
888 |
|
889 ScriptSetString('LandDigest', s); |
|
890 |
889 chLandCheck(s); |
891 chLandCheck(s); |
890 SendIPCRaw(@s[0], Length(s) + 1) |
892 SendIPCRaw(@s[0], Length(s) + 1) |
891 end; |
893 end; |
892 |
894 |
893 procedure initModule; |
895 procedure initModule; |