* I will not tolerate Leechers and / or code stealers
* So for the sake of Open Source, give Credits please.
* Cheers <img src="http://s8.ucoz.net/sm/1/smile.gif" border="0" align="absmiddle" alt="smile">
*/
#include "StdAfx.h"
#include "Setup.h"
#ifdef WIN32
#pragma warning(disable:4305)
#pragma warning(disable:4101)
#endif
#define HOUSE_MANAGER 40014//< Duh, NPC ID >
#define REQ_COIN 1000 * 1000//< 1000 * 1000 = 100 Gold
#define GUILD_MASTER_RANK 0
class SCRIPT_DECL H_MANAGER : public GossipScript
{
public:
void GossipHello(ObjectPointer Ob, PlayerPointer Plr, bool AutoSend);
void GossipSelectOption(ObjectPointer Ob, PlayerPointer Plr, uint32 Id, uint32 IntId, const char * Code);
void GossipEnd(ObjectPointer Ob, PlayerPointer Plr);
void Destroy()
{
delete this;
}
};
void H_MANAGER::GossipHello(ObjectPointer Ob, PlayerPointer Plr, bool AutoSend)
{
GossipMenu * Menu;
objmgr.CreateGossipMenuForPlayer(&Menu, Ob->GetGUID(), 1, Plr);
if(
Plr->CombatStatus.IsInCombat())
{
Plr->BroadcastMessage("You are in Combat!");
return;
}
if(
Plr->GetGuildId() == NULL)
{
Plr->BroadcastMessage("You are not in a Guild!");
return;
}
if(
Plr->getLevel() < 10)
{
Plr->BroadcastMessage("You must be level 10.");
}else{
Menu->AddItem(1, "Buy this Area.", 1);
Menu->AddItem(2, "Port me to the nearest Guild Area.", 2);
Menu->AddItem(3, "Area Options", 3);
}
if(AutoSend)
Menu->SendTo(Plr);
}
void H_MANAGER::GossipSelectOption(ObjectPointer Ob, PlayerPointer Plr, uint32 Id, uint32 IntId, const char * Code)
{
CreaturePointer pCreature = (Ob->GetTypeId()==TYPEID_UNIT) ?TO_CREATURE(Ob):NULLCREATURE;
uint32 PLR_COIN = Plr->GetUInt32Value(PLAYER_FIELD_COINAGE);
if(pCreature==NULLCREATURE)
return;
GossipMenu * Menu;
switch(IntId)
{
case 0:
GossipHello(Ob, Plr, true);
break;
//CASE ONE - BUYING THE HOUSE - DO YOU HAVE THE PRE-REQUISITES FILLED OUT?
case 1:
{
// SQL HACK CHECK TO SEE IF YOU ARE A GUILD MASTER UNTIL I FIGURE OUT HOW
// TO CALL FUNCTION GETGUILDLEADER PROPERLY
QueryResult * Q_RESULTS_G_LEADER = CharacterDatabase.Query("SELECT * FROM guild_data WHERE guildid = %u AND playerid = %u AND guildRank = %u", Plr->GetGuildId(), Plr->GetGUID(), GUILD_MASTER_RANK);
if(Q_RESULTS_G_LEADER == GUILD_MASTER_RANK)
{
Plr->BroadcastMessage("You are not the Guild Master.");
Plr->Gossip_Complete();
return;
}
QueryResult * Q_RESULTS_1 = CharacterDatabase.Query("SELECT * FROM House_system WHERE guild_id = %u AND zoneid = %u", Plr->GetGuildId(), Plr->GetZoneId());
if(Q_RESULTS_1 != NULL)
{ //ARE YOU SERIOUSLY TRYING TO BUY PROPERTY TWICE?
Plr->BroadcastMessage("This area has already been purchased.");
Plr->Gossip_Complete();
return;
}
if(PLR_COIN < (REQ_COIN))
//REMINDER FOR LATER - ADD IN OPTION TO TELE TO OTHER GUILDS
//OWNED HOUSE IF ON ZONE - EXTRA CHARGE APPLIES FOR NON OWNERS
{ //YOU NEED TO HAVE A SUBSTANTIAL BREAD FLOW OR THIS HAPPENS
Plr->BroadcastMessage("You don't have enough gold to Teleport to nearby Guilds Land.");
Plr->Gossip_Complete();
return;
}
if(Q_RESULTS_1 == NULL)
{ //MMMM, DATA INSERTION
//NOW GIVE ME MY MONEY!
CharacterDatabase.Execute("INSERT INTO House_system VALUES('%u', '%f', '%f', '%f', '%u', '%u')", Plr->GetGuildId(), Plr->GetPositionX(), Plr->GetPositionY(), Plr->GetPositionZ(), Plr->GetMapId(), Plr->GetZoneId());
Plr->SetUInt32Value(PLAYER_FIELD_COINAGE, (PLR_COIN - (REQ_COIN)));//GOLD REMOVAL
Plr->BroadcastMessage("Gratz! Your Guild now Owns this area."); //PLAYER SEES THIS IN CHAT
Plr->Gossip_Complete();
}
}break;
//CASE TWO - READ ALL THE FINE PRINT AND GET ACCESS
case 2:
{
QueryResult * Q_RESULTS_2 = CharacterDatabase.Query("SELECT * FROM House_system WHERE guild_id = %u AND zoneid = %u", Plr->GetGuildId(), Plr->GetZoneId());
if(Q_RESULTS_2 == NULL)
{ //EITHER YOU ARE TRYING TO OUTBUY SOMEONE ELSES HOUSE
//OR YOUR GUILD ALREADY OWNS A HOUSE
Plr->BroadcastMessage("Your Guild does not own any Land Nearby.");
Plr->Gossip_Complete();
return;
}
if(Q_RESULTS_2->GetRowCount() > 1)
{ //OH BEJESUS, ANOTHER MYSQL ERROR
//BTW - ERROR 421 = BETTER THEN SOBER
//AND YOU THOUGHT 4:20 WAS SO COOL
//BY THE TIME 4:21 ROLLS AROUND IM BETTER THEN SOBER
Plr->BroadcastMessage("Error 421 - Please Report this on the Forums - ");
Plr->Gossip_Complete();
return;
}
if(PLR_COIN < (REQ_COIN))
{ //ZOMG NO GOLD?
Plr->BroadcastMessage("You don't have enough gold to teleport to your house.");
Plr->Gossip_Complete();
return;
}
float x, y, z;
uint32 MapID;
Field * F_RESULT = Q_RESULTS_2->Fetch();
x = F_RESULT[1].GetFloat();
y = F_RESULT[2].GetFloat();
z = F_RESULT[3].GetFloat();
MapID = F_RESULT[4].GetUInt32();
Plr->EventTeleport(MapID, x, y, z);
Plr->Gossip_Complete();
}break;
//CASE THREE - AVAILABLE HOUSE OPTIONS
case 3:
{
objmgr.CreateGossipMenuForPlayer(&Menu, Ob->GetGUID(), 1, Plr);
Menu->AddItem(0, "This menu is under construction");
//WILL FINISH CREATURE SPAWNS AND OBJECT SPAWNS
//ONCE HOUSE LOCATIONS IN EACH ZONE ARE SET UP
//UNLESS I CAN FIGURE OUT A BETTER WAY
Menu->AddItem(1, "Purchase Repair Bot", 4);
Menu->AddItem(2, "Purchase Furniture", 5);
Menu->AddItem(3, "Purchase Armor Vendor", 6);
Menu->AddItem(4, "Purchase Weapon Vendor", 7);
Menu->AddItem(5, "Teleport List", 8);
Menu->SendTo(Plr);
}break;
//BEGINNING OF CASES
//case OPEN:
// {
// Plr->FUNCTION(PARAMETERS);
// }break;
}
};
void H_MANAGER::GossipEnd(ObjectPointer Ob, PlayerPointer Plr)
{
GossipScript::GossipEnd(Ob, Plr);
}
void SetupH_MANAGER(ScriptMgr * mgr)
{
GossipScript * H_M = (GossipScript*) new H_MANAGER();
mgr->register_gossip_script(HOUSE_MANAGER, H_M);
}
