• You've discovered RedGuides, an EverQuest multi-boxing and scripting community 🧙‍♀️⚙️. We want you to play several EQ characters at once, come join us and say hello! 👋

  • A TLP without truebox has thawed (Very Vanilla ready)
    Frostreaver

Posting Code for Fixing?

R

Riddlerr

New member
Joined
May 21, 2005
RedCents
30¢
Iam New to these fourms. and i have a plugin that a friend wrote. and has givin me permission to do as i with. cause he no longer plays. was wondering if i could post it here. and someone is willing to update it. just wanted to ask before posting. didnt want to stir shit up :)
 
feel free to post code when you have it as long as author gives permision and it is open code (ie dont swipe code from VIP forums at MQ or other forums) but feel free to post that plugin we can all take a gander at it :p
 
Rich (BB code): 
/*
This Plugin contains the commands to /zone to a different zone; /warp to locations, waypoints,
targets; call a zoning command to simulate a "Fade"; Produce fake item links; Turns on maps in
all zones. Causes the character to have no drunk effects, 0 encumberance and permanaent EB.
*/

#include "../MQ2Plugin.h" 




PreSetup("MQ2MiscPF");

/*Zone Comand*/			VOID ZoneTo(PSPAWNINFO pChar, PCHAR szLine);   
/*Fading Memories*/ 	VOID doFade(PSPAWNINFO pChar, PCHAR szLine);
/*gate*/				VOID Gate(PSPAWNINFO pChar, PCHAR szLine);
/*Warping*/				VOID warp(PSPAWNINFO pChar, PCHAR szLine); 
/*Waypoint Management*/ VOID waypoint(PSPAWNINFO pChar, PCHAR szLine); 

						 

////////////////////////////////////////////////////////////////////////////////////////
// Variables ///////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////

// For Zoning and Warping //
/*Warp & Zone*/		DWORD SpawnID;
/*Warp & Zone*/		ZONELIST *GetZone(DWORD ZoneID);

////////////////////////////////////////////////////////////////////////////////////////
// Pluging API Functions ///////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////


PLUGIN_API VOID InitializePlugin(VOID)
{
	
	AddCommand("/zone",ZoneTo);
	AddCommand("/fade",doFade);
	AddCommand("/gate",Gate);
	AddCommand("/home",Gate);
	AddCommand("/warp",warp); 
	AddCommand("/waypoint", waypoint); 
	}


PLUGIN_API VOID ShutdownPlugin(VOID)
{
	DebugSpewAlways("Shutting down MQ2MiscPF");
	RemoveCommand("/zone");
	RemoveCommand("/fade");
	RemoveCommand("/gate");
	RemoveCommand("/home");
	RemoveCommand("/warp"); 
	RemoveCommand("/waypoint"); 
	} 
 
PLUGIN_API VOID OnPulse(VOID) 
{ 
   
////////////////////////////////////////////////////////////////////////////////////////
// Zoning Command //////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////

VOID ZoneTo(PSPAWNINFO pChar, PCHAR szLine) 
 { 
    PCHARINFO pCharInfo = GetCharInfo(); 
    char szMsg[MAX_STRING] = {0}; 
    char szZone[MAX_STRING] = {0}; 
    int nZoneID = 0; 
    GetArg(szZone, szLine, 1); 
    if (!strnicmp(szZone, "", 1)) 
    { 
       WriteChatColor("You must specify a zone shortname.", 
COLOR_PURPLE); 
    } 
    else 
    { 
       nZoneID = GetZoneID(szZone); 
       if (nZoneID < 0) 
       { 
          WriteChatColor("Invalid zone shortname.", COLOR_PURPLE); 
       } 
       else 
       { 

		  pCharInfo->ZoneBoundId = nZoneID;
          pChar->pCharInfo->ZoneBoundY = 0;
	      pChar->pCharInfo->ZoneBoundX = 0;
	      pChar->pCharInfo->ZoneBoundZ = 0; 
          DWORD ZoneToGoTo;
		  ZoneToGoTo = GetZoneID(szLine);
          sprintf(szMsg,"Going to zone %s, id %d",szLine,ZoneToGoTo); 
		  WriteChatColor(szMsg, COLOR_PURPLE);
          pChar->Type = SPAWN_CORPSE;
       }
     }
  }

////////////////////////////////////////////////////////////////////////////////////////
// Fading Memories /////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////


VOID doFade(PSPAWNINFO pChar, PCHAR szLine) {
	
	PCHARINFO pCharInfo = GetCharInfo();
	PZONEINFO Zone = (PZONEINFO)pZoneInfo; 
	int nZoneID = 0;
	nZoneID = GetZoneID(Zone->ShortName);
	
	pCharInfo->ZoneBoundId = nZoneID;
    pChar->pCharInfo->ZoneBoundY = 0;
	pChar->pCharInfo->ZoneBoundX = 0;
	pChar->pCharInfo->ZoneBoundZ = 0; 
    WriteChatColor("Fading Memories.", 
COLOR_PURPLE);
	
	
    pChar->Type = SPAWN_CORPSE;

}

////////////////////////////////////////////////////////////////////////////////////////
// Gate ////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////

VOID Gate(PSPAWNINFO pChar, PCHAR szLine) 
{ 
	WriteChatColor("Gating.", COLOR_PURPLE);
	pChar->Type = SPAWN_CORPSE; 
} 

////////////////////////////////////////////////////////////////////////////////////////
// Waypoint Management /////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////

VOID waypoint(PSPAWNINFO pChar, PCHAR szLine) 
{ 
   PZONEINFO Zone = (PZONEINFO)pZoneInfo; 
   CHAR WaypointsINI[MAX_STRING] = {0}; 
   CHAR szTemp[10] = {0}; 
   CHAR szData[MAX_STRING] = {0}; 
   CHAR szDesc[MAX_STRING] = {0}; 
   CHAR szName[MAX_STRING] = {0}; 
   CHAR szCommand[MAX_STRING] = {0}; 
   CHAR szBuffer[MAX_STRING] = {0}; 
   CHAR szMsg[MAX_STRING] = {0}; 
   CHAR WaypointList[MAX_STRING*10] = {0}; 
   PCHAR pWaypointList = WaypointList; 
   CHAR szKey[MAX_STRING] = {0}; 
   CHAR szValue[MAX_STRING] = {0}; 

   sprintf(WaypointsINI,"%s\\waypoints.ini",gszINIPath); 
    
   GetArg(szCommand, szLine, 1); 

   if (!strnicmp(szCommand, "add", 3)) 
   { 
      GetArg(szName, szLine, 2); 
       
      if(!strnicmp(szName, "", 1)) 
      { 
         WriteChatColor("You didn't specify a name for the waypoint.", COLOR_LIGHTGREY); 
      }          
      else 
      { 
         GetPrivateProfileString(Zone->ShortName,szName,"",szBuffer,MAX_STRING,WaypointsINI); 

         if (!strnicmp(szBuffer, "", 1)) 
         { 
            GetArg(szDesc, szLine, 3); 
             
            sprintf(szData, "%1.2f %1.2f %1.2f %1.2f:%s", pChar->Y, pChar->X, pChar->Z, (float)pChar->Heading*0.703125f, szDesc); 
            WritePrivateProfileString(Zone->ShortName,szName,szData,WaypointsINI); 
            sprintf(szMsg, "Waypoint \'%s\' added.", szName); 
            WriteChatColor(szMsg, COLOR_LIGHTGREY); 
         } 
         else 
         { 
            sprintf(szMsg, "Waypoint \'%s\' already exists.", szName); 
            WriteChatColor(szMsg, COLOR_LIGHTGREY); 
         } 
      } 
   } 
   else if (!strnicmp(szCommand, "delete", 6)) 
   { 
      GetArg(szName, szLine, 2); 
       
      if(!strnicmp(szName, "", 1)) 
      { 
         WriteChatColor("You didn't specify a waypoint to delete.", COLOR_LIGHTGREY); 
      }          
      else 
      { 
         GetPrivateProfileString(Zone->ShortName,szName,"",szBuffer,MAX_STRING,WaypointsINI); 

         if (!strnicmp(szBuffer, "", 1)) 
         { 
            sprintf(szMsg, "Waypoint \'%s\' does not exist.", szName); 
            WriteChatColor(szMsg, COLOR_LIGHTGREY); 
         } 
         else 
         { 
            WritePrivateProfileString(Zone->ShortName,szName,"",WaypointsINI); 
          
            // rewrite the section minus the deleted waypoint 
            GetPrivateProfileSection(Zone->ShortName,WaypointList,MAX_STRING*10,WaypointsINI); 
            WritePrivateProfileSection(Zone->ShortName,"",WaypointsINI); 
            pWaypointList = WaypointList; 
                         
            while (pWaypointList[0]!=0) 
            { 
               GetArg(szKey,pWaypointList,1,0,0,0,'='); 
               GetArg(szValue,pWaypointList,2,0,0,0,'='); 
               if (strnicmp(szValue, "", 1)) 
               { 
                  WritePrivateProfileString(Zone->ShortName,szKey,szValue,WaypointsINI); 
               } 
               pWaypointList+=strlen(pWaypointList)+1; 
            } 

            sprintf(szMsg, "Waypoint \'%s\' deleted.", szName); 
            WriteChatColor(szMsg, COLOR_LIGHTGREY); 
         } 
      } 
   } 
   else if (!strnicmp(szCommand, "list", 4)) 
   { 
      GetPrivateProfileSection(Zone->ShortName,WaypointList,MAX_STRING*10,WaypointsINI); 
      pWaypointList = WaypointList; 

      sprintf(szMsg, "Waypoints for %s", Zone->LongName); 
      WriteChatColor(szMsg, CONCOLOR_YELLOW); 
       
      while (pWaypointList[0]!=0) 
      { 
         GetArg(szName,pWaypointList,1,0,0,0,'='); 
         GetArg(szData,pWaypointList,2,0,0,0,'='); 
         GetArg(szDesc,szData,2,0,0,0,':'); 
          
         if (strnicmp(szDesc,"",1)) 
         { 
            sprintf(szMsg, "- %s   ( %s )", szName, szDesc); 
         } 
         else 
         { 
            sprintf(szMsg, "- %s", szName); 
         } 
         WriteChatColor(szMsg, COLOR_LIGHTGREY); 
         pWaypointList+=strlen(pWaypointList)+1; 
      } 
   } 
   else 
   { 
      WriteChatColor("Invalid syntax.  Usage:", COLOR_LIGHTGREY); 
      WriteChatColor("/waypoint add name", COLOR_LIGHTGREY); 
      WriteChatColor("/waypoint delete name", COLOR_LIGHTGREY); 
      WriteChatColor("/waypoint list", COLOR_LIGHTGREY); 
   } 
} 

////////////////////////////////////////////////////////////////////////////////////////
// Warping /////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////
void warp(PSPAWNINFO pChar, PCHAR szLine) 
{ 
   DOUBLE DegToRad = 57.295779513082320876846364344191; 
   PZONEINFO Zone = (PZONEINFO)pZoneInfo; 
   PSPAWNINFO Target = (PSPAWNINFO)pTarget; 
    
   char szWarpType[MAX_STRING] = {0}; 
   char szMsg[MAX_STRING] = {0}; 
   char szBuf[MAX_STRING] = {0}; 
   char szDestWarpX[MAX_STRING] = {0}; 
   char szDestWarpY[MAX_STRING] = {0}; 
   char szDestWarpZ[MAX_STRING] = {0}; 
   char szBehindFront[MAX_STRING] = {0}; 
   char szDoorItem[MAX_STRING] = {0}; 
   char szDestZoneID[MAX_STRING] = {0}; 
   char szHeading[MAX_STRING] = {0}; 
    
   float* SafeYLoc = &Zone->Unknown0x1ec[0]; 
   float* SafeXLoc = &Zone->Unknown0x1ec[1]; 
   float* SafeZLoc = &Zone->Unknown0x1ec[2]; 
    
   float fSafeX = *SafeXLoc; // get original safe locs 
   float fSafeY = *SafeYLoc; 
   float fSafeZ = *SafeZLoc; 
    
   float fCharX = pChar->X; // get current char info 
   float fCharY = pChar->Y; 
   float fCharZ = pChar->Z; 
   float fCharHeading = pChar->Heading; 
   float fCharCameraAngle = pChar->CameraAngle; 

   GetArg(szWarpType, szLine, 1); // determine type of warp 
    
   // warp to target 
   if (!strnicmp(szWarpType, "target", 6)) 
   { 
      if (pTarget) 
      { 
         GetArg(szBehindFront, szLine, 2); 
          
         // set zone safe locations to that of your target 
         *SafeXLoc = Target->X; 
         *SafeYLoc = Target->Y; 
         *SafeZLoc = Target->Z; 
       
         // change locs to be 10 steps behind or in front of the target, if necessary 
         if (!strnicmp(szBehindFront, "behind", 6)) 
         { 
            *SafeXLoc = Target->X - (float)(10*sin(Target->Heading*0.703125f/DegToRad)); 
            *SafeYLoc = Target->Y - (float)(10*cos(Target->Heading*0.703125f/DegToRad)); 
         } 
         else if (!strnicmp(szBehindFront, "front", 5)) 
         { 
            *SafeXLoc = Target->X + (float)(10*sin(Target->Heading*0.703125f/DegToRad)); 
            *SafeYLoc = Target->Y + (float)(10*cos(Target->Heading*0.703125f/DegToRad));    
         } 
          
         //sprintf(szMsg, "Warping to target at: %3.2f, %3.2f, %3.2f.", *SafeYLoc, *SafeXLoc, *SafeZLoc); 
         //WriteChatColor(szMsg, COLOR_PURPLE); 
       
         // do the warp 
         pDisplay->MoveLocalPlayerToSafeCoords(); 
          
         // face the target's loc if we moved behind or in front of them 
         if (!strnicmp(szBehindFront, "behind", 6) || !strnicmp(szBehindFront, "front", 5)) 
         { 
            Face(pChar, "fast nolook"); 
         }          
      } 
      else 
      { 
         WriteChatColor("You can't warp to your target when you don't have one.", COLOR_PURPLE); 
      } 
   } 
   // warp to a waypoint 
   else if (!strnicmp(szWarpType, "wp", 2)) 
   { 
      CHAR szLoc[MAX_STRING] = {0}; 
      CHAR szName[MAX_STRING] = {0}; 
      CHAR WaypointsINI[MAX_STRING] = {0}; 

      sprintf(WaypointsINI,"%s\\waypoints.ini",gszINIPath); 
      GetArg(szName, szLine, 2); 

      if(!strnicmp(szName, "", 1)) 
      { 
         WriteChatColor("You didn't specify a waypoint.", COLOR_LIGHTGREY); 
      } 
      else 
      { 
         GetPrivateProfileString(Zone->ShortName,szName,"",szLoc,MAX_STRING,WaypointsINI); 
          
         if (!strnicmp(szLoc, "", 1)) 
         { 
            sprintf(szMsg, "Waypoint \'%s\' does not exist.", szName); 
            WriteChatColor(szMsg, COLOR_LIGHTGREY); 
         } 
         else 
         { 
            // get destination locs 
            GetArg(szDestWarpX, szLoc, 2); 
            GetArg(szDestWarpY, szLoc, 1); 
            GetArg(szDestWarpZ, szLoc, 3); 
             
            // get heading 
            GetArg(szBuf, szLoc, 4); 
            GetArg(szHeading,szBuf,1,0,0,0,':'); 

            if (szDestWarpX[0]!=0 && szDestWarpY[0]!=0 && szDestWarpZ[0]!=0) 
            { 
               // set zone safe locs 
               *SafeXLoc = (float)atof(szDestWarpX); 
               *SafeYLoc = (float)atof(szDestWarpY); 
               *SafeZLoc = (float)atof(szDestWarpZ); 
       
               sprintf(szMsg, "Warping to waypoint \'%s\' at: %3.2f, %3.2f, %3.2f.", szName, *SafeYLoc, *SafeXLoc, *SafeZLoc); 
               WriteChatColor(szMsg, COLOR_PURPLE); 
          
               // do the warp 
               pDisplay->MoveLocalPlayerToSafeCoords(); 

               // face heading 
               if (strnicmp(szHeading, "", 1)) 
               { 
                  sprintf(szBuf, "fast nolook heading %s", szHeading); 
                  Face(pChar, szBuf); 
               } 
            } 
            else 
            { 
               WriteChatColor("Invalid location. Verify the location in the ini."); 
            } 
         } 
      } 
   } 
   // warp to standard zone safe loc 
   else if (!strnicmp(szWarpType, "safe", 4)) 
   { 
      sprintf(szMsg, "Warping to zone safe loc at: %3.2f, %3.2f, %3.2f.", *SafeYLoc, *SafeXLoc, *SafeZLoc); 
      WriteChatColor(szMsg, COLOR_PURPLE); 
       
      // no changes necessary, just warp 
      pDisplay->MoveLocalPlayerToSafeCoords(); 
   } 
   // warp to user defined loc 
   else if (!strnicmp(szWarpType, "loc", 3)) 
   { 
      // get destination locs 
      GetArg(szDestWarpX, szLine, 3); 
      GetArg(szDestWarpY, szLine, 2); 
      GetArg(szDestWarpZ, szLine, 4); 
       
      if (szDestWarpX[0]!=0 && szDestWarpY[0]!=0 && szDestWarpZ[0]!=0) 
      { 
         // set zone safe locs 
         *SafeXLoc = (float)atof(szDestWarpX); 
         *SafeYLoc = (float)atof(szDestWarpY); 
         *SafeZLoc = (float)atof(szDestWarpZ); 
       
         sprintf(szMsg, "Warping to loc at: %3.2f, %3.2f, %3.2f.", *SafeYLoc, *SafeXLoc, *SafeZLoc); 
         WriteChatColor(szMsg, COLOR_PURPLE); 
          
         // do the warp 
         pDisplay->MoveLocalPlayerToSafeCoords(); 
      } 
      else 
      { 
         WriteChatColor("Invalid location.  Usage: /warp loc x y z"); 
      } 
   } 
   // click an item remotely by warping, clicking, and warping back 
   // doesn't work well with anything other than ground spawns 
   else if (!strnicmp(szWarpType, "clickitem", 9)) 
   { 
      if (pTarget) 
      { 
         *SafeXLoc = Target->X; 
         *SafeYLoc = Target->Y; 
         *SafeZLoc = Target->Z; 
          
         if (pDoorTarget || pGroundTarget) // it's valid 
         { 
            sprintf(szMsg, "Clicking item at loc: %3.2f, %3.2f, %3.2f.", *SafeYLoc, *SafeXLoc, *SafeZLoc); 
            WriteChatColor(szMsg, COLOR_PURPLE); 
       
            // warp to it 
            pDisplay->MoveLocalPlayerToSafeCoords(); 
       
            // click it 
            GetArg(szDoorItem, szLine, 2); 
            if (!strnicmp(szDoorItem, "door", 4)) // door 
            { 
               Face(pChar, "fast"); 
               //Press(pChar, "u"); 
                
               // set heading and camera angle back to original since /face fubared it 
               pChar->Heading = fCharHeading; 
               pChar->CameraAngle = fCharCameraAngle; 
            } 
            else // ground spawn 
            { 
               Click(pChar, "left item"); 
            } 
       
            // warp back to your original location 
            *SafeXLoc = fCharX; 
            *SafeYLoc = fCharY; 
            *SafeZLoc = fCharZ; 
            pDisplay->MoveLocalPlayerToSafeCoords(); 
         } 
         else 
         { 
            WriteChatColor("Invalid target.", COLOR_PURPLE); 
         } 
      } 
      else 
      { 
         WriteChatColor("You need to target an item first, douchebag."); 
      } 
   } 
   else 
   { 
      WriteChatColor("Usage:", COLOR_LIGHTGREY); 
      WriteChatColor("/warp loc x y z", COLOR_LIGHTGREY); 
      WriteChatColor("/warp safe", COLOR_LIGHTGREY); 
      WriteChatColor("/warp target", COLOR_LIGHTGREY); 
      WriteChatColor("/warp target behind/front", COLOR_LIGHTGREY); 
      WriteChatColor("/warp clickitem door/item (default item)", COLOR_LIGHTGREY); 
      WriteChatColor("/warp wp (default item)", COLOR_LIGHTGREY); 
      WriteChatColor("/waypoint add, delete, list"); 
   }    
    
   // cleanup 
   *SafeXLoc = fSafeX; 
   *SafeYLoc = fSafeY; 
   *SafeZLoc = fSafeZ; 
}


////////////////////////////////////////////////////////////////////////////////////////
// End of File /////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////
 
Last edited:
Siddin have more detail but right off the bat It looks like the same issues that gave Zone and Warp some issues will also apply to this
 
Yeah i tried doing what he did by undefineing the code that was placed by the devs. but it was raid time and didnt really have much time to mess with it. and my harddrive just crashed. so it will be a few before i can work on it. thanks sidd if you can get around to it.

also what i pm'd sidd was another version of this with some stuff iam not sure if should be public. if it is feel free to update that if you can :).
 
c:\MacroQuest\MQ2Warp\MQ2MiscPF.cpp(269): error C2601: 'jump' : local function definitions are illegal
c:\MacroQuest\MQ2Warp\MQ2MiscPF.cpp(107): error C2601: 'loseaggro' : local function definitions are illegal
c:\MacroQuest\MQ2Warp\MQ2MiscPF.cpp(68): error C2601: 'PortTo' : local function definitions are illegal
c:\MacroQuest\MQ2Warp\MQ2MiscPF.cpp(131): error C2601: 'ReturnHome' : local function definitions are illegal
c:\MacroQuest\MQ2Warp\MQ2MiscPF.cpp(141): error C2601: 'zonepoint' : local function definitions are illegal
c:\MacroQuest\MQ2Warp\MQ2MiscPF.cpp(510): fatal error C1075: end of file found before the left brace '{' at 'MQ2MiscPF.cpp(62)' was matched

Keep getting these errors no matter what I change it to. Also modifed Mq2Main. What exactly am I doing wrong?
 
Yeap, same thing that i changed when i tried to fix. still get same errors that i got.

Compiling...
MQ2MiscPF.cpp
EQLIB_IMPORTS
D:\MQ2-522\MQ2MiscPF\MQ2MiscPF.cpp(75) : error C2601: 'ZoneTo' : local function definitions are illegal
D:\MQ2-522\MQ2MiscPF\MQ2MiscPF.cpp(114) : error C2601: 'doFade' : local function definitions are illegal
D:\MQ2-522\MQ2MiscPF\MQ2MiscPF.cpp(138) : error C2601: 'Gate' : local function definitions are illegal
D:\MQ2-522\MQ2MiscPF\MQ2MiscPF.cpp(148) : error C2601: 'waypoint' : local function definitions are illegal
D:\MQ2-522\MQ2MiscPF\MQ2MiscPF.cpp(276) : error C2601: 'warp' : local function definitions are illegal
D:\MQ2-522\MQ2MiscPF\MQ2MiscPF.cpp(518) : fatal error C1004: unexpected end of file found
Error executing cl.exe.

MQ2MiscPF.dll - 6 error(s), 0 warning(s)
 
Remove the following 2 lines, which should fix the above problem (although I haven't tested it).
Rich (BB code): 
PLUGIN_API VOID OnPulse(VOID)
{
I presume this is where no drunk/enc/eb code was removed?

Also, make sure that the first line has a / before the *, otherwise the quote part may not work.
 
just a syntax error off

c:\MQ2Miscpf\MQ2Miscpf.cpp(395): error C2447: '{' : missing function header (old-style formal list?)


combined sid's warp with this source to add waypoint and fade

/*
This Plugin contains the commands to /zone to a different zone; /warp to locations, waypoints,
targets; call a zoning command to simulate a "Fade"; Produce fake item links; Turns on maps in
all zones. Causes the character to have no drunk effects, 0 encumberance and permanaent EB.
*/

#include "../MQ2Plugin.h"




PreSetup("MQ2Miscpf");

#undef CDisplay__MoveLocalPlayerToSafeCoords
#define CDisplay__MoveLocalPlayerToSafeCoords 0x444C21
#undef safe
#undef zWarp
#undef Warp
#undef SafeYLoc
#undef SafeXLoc
#undef SafeZLoc
#undef GateBind
#undef ZoneShift
#undef ZoneToGoTo
#undef DoWarp
#undef ExactLocation
VOID DoWarp(float y, float x, float z);
VOID Warp(PSPAWNINFO pChar, PCHAR szLine);
VOID zWarp(PSPAWNINFO pChar, PCHAR szLine);
VOID ExactLocation(PSPAWNINFO pChar);


/*Zone Comand*/ VOID ZoneTo(PSPAWNINFO pChar, PCHAR szLine);
/*Fading Memories*/ VOID doFade(PSPAWNINFO pChar, PCHAR szLine);
/*gate*/ VOID Gate(PSPAWNINFO pChar, PCHAR szLine);
/*Warping*/
/*Waypoint Management*/ VOID waypoint(PSPAWNINFO pChar, PCHAR szLine);




////////////////////////////////////////////////////////////////////////////////////////
// Variables ///////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////

// For Zoning and Warping //
/*Warp & Zone*/ DWORD SpawnID;
/*Warp & Zone*/ ZONELIST *GetZone(DWORD ZoneID);

////////////////////////////////////////////////////////////////////////////////////////
// Pluging API Functions ///////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////


PLUGIN_API VOID InitializePlugin(VOID)
{

AddCommand("/zone",ZoneTo);
AddCommand("/fade",doFade);
AddCommand("/gate",Gate);
AddCommand("/home",Gate);
AddCommand("/warp",Warp);
AddCommand("/waypoint", waypoint);
AddCommand("/warp",Warp);
AddCommand("/zwarp",zWarp);


}


PLUGIN_API VOID ShutdownPlugin(VOID)
{
DebugSpewAlways("Shutting down MQ2MiscPF");
RemoveCommand("/zone");
RemoveCommand("/fade");
RemoveCommand("/gate");
RemoveCommand("/home");
RemoveCommand("/warp");
RemoveCommand("/waypoint");
RemoveCommand("/exactloc");
RemoveCommand("/zwarp");
}



////////////////////////////////////////////////////////////////////////////////////////
// Zoning Command //////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////

VOID ZoneTo(PSPAWNINFO pChar, PCHAR szLine)
{
PCHARINFO pCharInfo = GetCharInfo();
char szMsg[MAX_STRING] = {0};
char szZone[MAX_STRING] = {0};
int nZoneID = 0;
GetArg(szZone, szLine, 1);
if (!strnicmp(szZone, "", 1))
{
WriteChatColor("You must specify a zone shortname.",
COLOR_PURPLE);
}
else
{
nZoneID = GetZoneID(szZone);
if (nZoneID < 0)
{
WriteChatColor("Invalid zone shortname.", COLOR_PURPLE);
}
else
{

pCharInfo->ZoneBoundId = nZoneID;
pChar->pCharInfo->ZoneBoundY = 0;
pChar->pCharInfo->ZoneBoundX = 0;
pChar->pCharInfo->ZoneBoundZ = 0;
DWORD ZoneToGoTo;
ZoneToGoTo = GetZoneID(szLine);
sprintf(szMsg,"Going to zone %s, id %d",szLine,ZoneToGoTo);
WriteChatColor(szMsg, COLOR_PURPLE);
pChar->Type = SPAWN_CORPSE;
}
}
}

////////////////////////////////////////////////////////////////////////////////////////
// Fading Memories /////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////


VOID doFade(PSPAWNINFO pChar, PCHAR szLine) {

PCHARINFO pCharInfo = GetCharInfo();
PZONEINFO Zone = (PZONEINFO)pZoneInfo;
int nZoneID = 0;
nZoneID = GetZoneID(Zone->ShortName);

pCharInfo->ZoneBoundId = nZoneID;
pChar->pCharInfo->ZoneBoundY = 0;
pChar->pCharInfo->ZoneBoundX = 0;
pChar->pCharInfo->ZoneBoundZ = 0;
WriteChatColor("Fading Memories.",
COLOR_PURPLE);


pChar->Type = SPAWN_CORPSE;

}

////////////////////////////////////////////////////////////////////////////////////////
// Gate ////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////

VOID Gate(PSPAWNINFO pChar, PCHAR szLine)
{
WriteChatColor("Gating.", COLOR_PURPLE);
pChar->Type = SPAWN_CORPSE;
}

////////////////////////////////////////////////////////////////////////////////////////
// Waypoint Management /////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////

VOID waypoint(PSPAWNINFO pChar, PCHAR szLine)
{
PZONEINFO Zone = (PZONEINFO)pZoneInfo;
CHAR WaypointsINI[MAX_STRING] = {0};
CHAR szTemp[10] = {0};
CHAR szData[MAX_STRING] = {0};
CHAR szDesc[MAX_STRING] = {0};
CHAR szName[MAX_STRING] = {0};
CHAR szCommand[MAX_STRING] = {0};
CHAR szBuffer[MAX_STRING] = {0};
CHAR szMsg[MAX_STRING] = {0};
CHAR WaypointList[MAX_STRING*10] = {0};
PCHAR pWaypointList = WaypointList;
CHAR szKey[MAX_STRING] = {0};
CHAR szValue[MAX_STRING] = {0};

sprintf(WaypointsINI,"%s\\waypoints.ini",gszINIPath);

GetArg(szCommand, szLine, 1);

if (!strnicmp(szCommand, "add", 3))
{
GetArg(szName, szLine, 2);

if(!strnicmp(szName, "", 1))
{
WriteChatColor("You didn't specify a name for the waypoint.", COLOR_LIGHTGREY);
}
else
{
GetPrivateProfileString(Zone->ShortName,szName,"",szBuffer,MAX_STRING,WaypointsINI);

if (!strnicmp(szBuffer, "", 1))
{
GetArg(szDesc, szLine, 3);

sprintf(szData, "%1.2f %1.2f %1.2f %1.2f:%s", pChar->Y, pChar->X, pChar->Z, (float)pChar->Heading*0.703125f, szDesc);
WritePrivateProfileString(Zone->ShortName,szName,szData,WaypointsINI);
sprintf(szMsg, "Waypoint \'%s\' added.", szName);
WriteChatColor(szMsg, COLOR_LIGHTGREY);
}
else
{
sprintf(szMsg, "Waypoint \'%s\' already exists.", szName);
WriteChatColor(szMsg, COLOR_LIGHTGREY);
}
}
}
else if (!strnicmp(szCommand, "delete", 6))
{
GetArg(szName, szLine, 2);

if(!strnicmp(szName, "", 1))
{
WriteChatColor("You didn't specify a waypoint to delete.", COLOR_LIGHTGREY);
}
else
{
GetPrivateProfileString(Zone->ShortName,szName,"",szBuffer,MAX_STRING,WaypointsINI);

if (!strnicmp(szBuffer, "", 1))
{
sprintf(szMsg, "Waypoint \'%s\' does not exist.", szName);
WriteChatColor(szMsg, COLOR_LIGHTGREY);
}
else
{
WritePrivateProfileString(Zone->ShortName,szName,"",WaypointsINI);

// rewrite the section minus the deleted waypoint
GetPrivateProfileSection(Zone->ShortName,WaypointList,MAX_STRING*10,WaypointsINI) ;
WritePrivateProfileSection(Zone->ShortName,"",WaypointsINI);
pWaypointList = WaypointList;

while (pWaypointList[0]!=0)
{
GetArg(szKey,pWaypointList,1,0,0,0,'=');
GetArg(szValue,pWaypointList,2,0,0,0,'=');
if (strnicmp(szValue, "", 1))
{
WritePrivateProfileString(Zone->ShortName,szKey,szValue,WaypointsINI);
}
pWaypointList+=strlen(pWaypointList)+1;
}

sprintf(szMsg, "Waypoint \'%s\' deleted.", szName);
WriteChatColor(szMsg, COLOR_LIGHTGREY);
}
}
}
else if (!strnicmp(szCommand, "list", 4))
{
GetPrivateProfileSection(Zone->ShortName,WaypointList,MAX_STRING*10,WaypointsINI) ;
pWaypointList = WaypointList;

sprintf(szMsg, "Waypoints for %s", Zone->LongName);
WriteChatColor(szMsg, CONCOLOR_YELLOW);

while (pWaypointList[0]!=0)
{
GetArg(szName,pWaypointList,1,0,0,0,'=');
GetArg(szData,pWaypointList,2,0,0,0,'=');
GetArg(szDesc,szData,2,0,0,0,':');

if (strnicmp(szDesc,"",1))
{
sprintf(szMsg, "- %s ( %s )", szName, szDesc);
}
else
{
sprintf(szMsg, "- %s", szName);
}
WriteChatColor(szMsg, COLOR_LIGHTGREY);
pWaypointList+=strlen(pWaypointList)+1;
}
}
else
{
WriteChatColor("Invalid syntax. Usage:", COLOR_LIGHTGREY);
WriteChatColor("/waypoint add name", COLOR_LIGHTGREY);
WriteChatColor("/waypoint delete name", COLOR_LIGHTGREY);
WriteChatColor("/waypoint list", COLOR_LIGHTGREY);
}
}

////////////////////////////////////////////////////////////////////////////////////////
// Warping /////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////
VOID ExactLocation(PSPAWNINFO pChar, PCHAR szLine)
{ CHAR LocMsg[MAX_STRING] = {0};
sprintf(LocMsg, "Your location is %3.6f, %3.6f, %3.6f", pChar->Y, pChar->X, pChar->Z);
WriteChatColor(LocMsg);
return;
}

VOID zWarp(PSPAWNINFO pChar, PCHAR szLine)
{ CHAR Z[MAX_STRING] = {0};
GetArg(Z,szLine,1);
float MyY = pChar->Y;
float MyX = pChar->X;


if (Z[0]==0) {
WriteChatColor("Usage: /zwarp <dist>", CONCOLOR_RED);
return;
}

float NewZ = pChar->Z;
NewZ = NewZ + (FLOAT)atof(Z);
DoWarp(MyY, MyX, NewZ);
return;
}

VOID Warp(PSPAWNINFO pChar, PCHAR szLine)
{
static float LastY;
static float LastX;
static float LastZ;
bRunNextCommand = TRUE;
PSPAWNINFO psTarget = NULL;
PZONEINFO Zone = (PZONEINFO)pZoneInfo;
CHAR command[MAX_STRING]; GetArg(command,szLine,1);
CHAR Y[MAX_STRING]; GetArg(Y,szLine,2);
CHAR X[MAX_STRING]; GetArg(X,szLine,3);
CHAR Z[MAX_STRING]; GetArg(Z,szLine,4);
char szDestWarpX[MAX_STRING] = {0};
char szDestWarpY[MAX_STRING] = {0};
char szDestWarpZ[MAX_STRING] = {0};

if (
stricmp(command, "succor") != 0 &&
stricmp(command, "loc") != 0 &&
stricmp(command, "last") != 0 &&
stricmp(command, "target") != 0 &&
stricmp(command, "dir") != 0 &&
stricmp(command, "wp") != 0
) {
WriteChatColor("Usage: /warp <succor|last|loc <y x z>|dir <dist>| target wp>", CONCOLOR_RED);
return;
} else {
if (!stricmp(command,"target")) {
if (ppTarget && pTarget) {
psTarget = (PSPAWNINFO)pTarget;
}
if (!psTarget) {
WriteChatColor("You must have a target for /warp target.", CONCOLOR_RED);
return;
}
float TargetZ = float (psTarget->Z);
float TargetY = float (psTarget->Y);
float TargetX = float (psTarget->X);
LastY = TargetY;
LastX = TargetX;
LastZ = TargetZ;
DoWarp(TargetY, TargetX, TargetZ);
} else if (!stricmp(command,"succor")) {
static float north = 0;
((PSPAWNINFO)pCharSpawn)->Heading = north;
DWORD MLPTSC = CDisplay__MoveLocalPlayerToSafeCoords;
__asm call dword ptr [MLPTSC];
return;
} else if (!stricmp(command,"loc")) {
if ((Y[0] == 0) || (X[0] == 0) || (Z[0] == 0))
{
WriteChatColor("You must provide <y> <x> <z> if going to a location.", CONCOLOR_RED);
return;
}
LastY = (float)atof(Y);
LastX = (float)atof(X);
LastZ = (float)atof(Z);
DoWarp((float)atof(Y), (float)atof(X), (float)atof(Z));
return;
} else if (!stricmp(command,"last")) {
if ((LastY==0) || (LastX==0) || (LastZ==0))
{
WriteChatColor("You must have warped before to use this command!.", CONCOLOR_RED);
return;
}
DoWarp(LastY, LastX, LastZ);
return;
} else if (!stricmp(command,"dir")) {
if (Y[0]==0) {
WriteChatColor("You MUST provide <dist> if going in your current direction.", CONCOLOR_RED);
return;
}
FLOAT angle = (FLOAT)((pChar->Heading)*0.0123);
FLOAT dissafegoto = (FLOAT)atof(Y);
DoWarp(pChar->Y + (FLOAT)(dissafegoto * cos(angle)), pChar->X + (FLOAT)(dissafegoto * sin(angle)), pChar->Z);
return;
}
}
} // warp to a waypoint
{ if (!strnicmp(command, "wp", 2))

CHAR szLoc[MAX_STRING] = {0};
CHAR szName[MAX_STRING] = {0};
CHAR WaypointsINI[MAX_STRING] = {0};

sprintf(WaypointsINI,"%s\\waypoints.ini",gszINIPath);
GetArg(szName, szLine, 2);

if(!strnicmp(szName, "", 1))
{
WriteChatColor("You didn't specify a waypoint.", COLOR_LIGHTGREY);
}
else
{
GetPrivateProfileString(Zone->ShortName,szName,"",szLoc,MAX_STRING,WaypointsINI);

if (!strnicmp(szLoc, "", 1))
{
sprintf(szMsg, "Waypoint \'%s\' does not exist.", szName);
WriteChatColor(szMsg, COLOR_LIGHTGREY);
}
else
{
// get destination locs
GetArg(szDestWarpX, szLoc, 2);
GetArg(szDestWarpY, szLoc, 1);
GetArg(szDestWarpZ, szLoc, 3);

// get heading
GetArg(szBuf, szLoc, 4);
GetArg(szHeading,szBuf,1,0,0,0,':');

if (szDestWarpX[0]!=0 && szDestWarpY[0]!=0 && szDestWarpZ[0]!=0)
{
// set zone safe locs
LastX = (float)atof(szDestWarpX);
LastY = (float)atof(szDestWarpY);
LastZ = (float)atof(szDestWarpZ);



// do the warp
dowarp((float)atof(szDestWarpY), (float)atof(szDestWarpX), (float)atof(szDestWarpZ);

// face heading
if (strnicmp(szHeading, "", 1))
{
sprintf(szBuf, "fast nolook heading %s", szHeading);
Face(pChar, szBuf);
}
}
else
{
WriteChatColor("Invalid location. Verify the location in the ini.");
}
}
}
}


VOID DoWarp(float y, float x, float z)
{

PZONEINFO Zone = (PZONEINFO)pZoneInfo;
float SafeY = Zone->SafeYLoc;
float SafeX = Zone->SafeXLoc;
float SafeZ = Zone->SafeZLoc;

Zone->SafeYLoc = y;
Zone->SafeXLoc = x;
Zone->SafeZLoc = z;

CHAR szMsg[MAX_STRING] = {0};
sprintf(szMsg, "Warping to: %3.2f, %3.2f, %3.2f.", Zone->SafeYLoc, Zone->SafeXLoc, Zone->SafeZLoc);
WriteChatColor(szMsg, COLOR_PURPLE);

DWORD MLPTSC = CDisplay__MoveLocalPlayerToSafeCoords;
__asm call dword ptr [MLPTSC];

Zone->SafeYLoc = SafeY;
Zone->SafeXLoc = SafeX;
Zone->SafeZLoc = SafeZ;
}
 
You must log in or register to reply here.
Posting Code for Fixing?
Next unread thread 🦁

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top
Cart

Cart

Total -