Doors for Newer Zones

[LostZaphod]

Originally Posted by Angelox

Azone patch is for the source, I don't think it compiles under windows - but need to have it there.

Instructions for compiling on for windows.
Make Derision's modifications "http://www.rama.demon.co.uk/azone.patch" to the original azone (Build 1110).
Does any one have the watermap patch? If so please PM it to me.

For Windows Compile, you will have to add files to the project (file.cpp, zon.cpp, ter.cpp, pfs.cpp)

Add to azone.cpp near #include "ter.hpp" (you many have to add the path to the project for zlib)

#ifdef WIN32
#pragma comment(lib, "Ws2_32.lib")
#pragma comment(lib, "zlib.lib")
#endif

Add to pfs.cpp near #include <string.h>
#ifdef WIN32
#include <winsock2.h>
#endif

Change global.hpp, put #ifndef around #include <netinet/in.h>
#ifndef WIN32
#include <netinet/in.h>
#endif

Move some variable definitions from wld.c to wld.h
unsigned short d6size;
char *encstr;
float f1, f2, f3, f4;

Build Azone, this will create Azone.exe (copy this to c:\temp)

Use this SQL to make a batch file, save the csv file to c:\temp\kopy.bat (run in mysql query browser, and save as csv. then delete all double quotes)

select CONCAT(CONCAT('copy \\umEQE\\', short_name),'.EQG c:\\temp') as name from zone union all select CONCAT(CONCAT('copy \\umEQE\\', short_name),'.S3D c:\\temp') as name from zone

make sure you change \\umEQE\\ to the directory of where you installed EQ Titanium (NOTE in mysql \\ means \ )
Save the Visual Basic Script as c:\temp\RunAzone.vbs

make sure the directory c:\temp exists and only has these files (kopy.bat, Azone.exe, RunAzone.vbs)

run kopy.bat (start, run, type "cmd", cd \temp, kopy)
run RunAzone.vbs (double click)
'copy the newly created map files to your server's map directory (you may want to back up first)

'**********************************************************************
'  Visual Basic Script
'**********************************************************************
Function Main()
	Dim objshell
	Set objShell = CreateObject("WScript.Shell")
	startloc = objShell.CurrentDirectory
	CheckFiles startloc
End Function

Function CheckFiles(startloc)
	Dim fso, f, f1, fc, s, thefilename, ext
	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.GetFolder(startloc)
	Set fc1 = f.Files
	for each f1 in fc1
		thefilename= LCase(f1.Name)
		ext = right(thefilename,3)
		if(InStr(thefilename,"_") = 0) then
			if ext = "s3d"and (thefilename <> "tutoriala.s3d" and thefilename <> "tutorialb.s3d" ) then
				thefilename = Replace(thefilename,".s3d","")
				Run startloc & "\Azone.exe " & chr(34)  & thefilename & chr(34)
			else
				if ext = "eqg" then
					thefilename = Replace(thefilename,".eqg","")
					Run startloc & "\Azone.exe " & chr(34) & thefilename & chr(34)
				end if
			end if			 			
		end if
	next
End Function

Sub Run(ByVal sFile)
	Dim shell
	Set shell = CreateObject("WScript.Shell")
	shell.Run Chr(34) & sFile & Chr(34), 1, true
	Set shell = Nothing
End Sub


main()
msgbox("done")