void Client::CheckQuests(const char* zonename, const char * message, int32 npc_id, uint16 item_id, Mob* other)
{
bool ps = false;
bool tt = false;
bool ti = false;
bool tt2 = false;
bool ti2 = false;
bool stt = false;
bool std = false;
bool td = false;
bool sta = false;
bool ta = false;
bool sti = false;
bool stf = false;
bool tf = false;
bool tk = false;
bool stk = false;
bool levelcheck = false;
int8 fac = GetFactionLevel(GetID(),other->GetNPCTypeID(), GetRace(), GetClass(), DEITY_AGNOSTIC, other->CastToNPC()->GetPrimaryFaction(), other);
FILE * pFile;
long lSize;
char * buffer;
char filename[255];
#ifdef WIN32
snprintf(filename, 254, "quests\\%i.qst", npc_id);
#else
snprintf(filename, 254, "quests/%i.qst", npc_id);
#endif
adverrorinfo = 940;
if ((pFile=fopen(filename,"rb")))
{
#ifdef DEBUG
printf("Reading quests from %s\n", filename);
#endif
}
else {
#ifdef DEBUG
printf("Error: No quests file found for %s\n", filename);
#endif
return;
}
if (pFile==NULL) exit (1);
// obtain file size.
fseek (pFile , 0 , SEEK_END);
lSize = ftell (pFile);
rewind (pFile);
adverrorinfo = 941;
// allocate memory to contain the whole file.
buffer = (char*) malloc (lSize);
if (buffer == NULL) exit (2);
// copy the file into the buffer.
fread (buffer,1,lSize,pFile);
fclose(pFile);
Seperator3 sep3(buffer);
for(int i=0; i < 2048; ++i)
{
// printf("Temp: %s\n", sep3.arghz[i]);
char * command;
char * temp;
temp = sep3.arghz[i];
if (temp == NULL) return;
Seperator sep(temp);
Seperator4 sep4(temp);
command = sep4.arghza[0];
command = strupr(command);
#ifdef DEBUG
cout<<sep.argplus[0]<<endl;
#endif
if (!IsCommented(temp))
{
if (strstr(command,"END_FILE") != NULL || command == NULL)
{
break;
}
if (ti2 || tt2 || tf || td || ta) {
char lvl[5];
sprintf(lvl, "%i", this->GetLevel());
strcpy(sep4.arghza[1], strreplace(sep4.arghza[1],"%CHARRACE%", GetRaceName(this->GetRace())));
strcpy(sep4.arghza[1], strreplace(sep4.arghza[1],"%CHARLEVEL%", lvl));
strcpy(sep4.arghza[1], strreplace(sep4.arghza[1],"%CHARCLASS%", GetEQClassName(this->GetClass(), 50)));
char * nmessage = strreplace(sep4.arghza[1],"%CHARNAME%", this->GetName());
nmessage[strlen(nmessage) - 1] = '\0';
if (ti2 || tt2 || ta)
{
other->CastToNPC()->FaceTarget(this, true);
}
if ((fac == 7 || fac == 6) && (ti2 || tt2))
{
entity_list.NPCMessage(other,true,200,0,"%s says, 'I will have nothing to do with such as you. Begone.'",other->GetName());
break;
}
else if (strstr(command,"FACTION_CHECK") != NULL) {
int8 fac2 = atoi(sep.arg[1]);
if ((fac2 <= 5 && fac > fac2) || (fac2 == 6 && fac == 8))
{
entity_list.NPCMessage(other,true,200,0,"%s says, 'I will have nothing to do with such as you. Begone.'",other->GetName());
break;
}
ps = true;
}
else if (strstr(command,"SAY") != NULL) {
entity_list.NPCMessage(this, false, 400, 0, "%s says, '%s'", other->GetName(), nmessage);
ps = true;
}
else if (strstr(command,"EMOTE") != NULL) {
cout<<"Emoting!"<<endl;
entity_list.NPCMessage(this, false, 400, 0, "%s %s", other->GetName(), nmessage);
ps = true;
}
else if (strstr(command,"TEXT") != NULL) {
entity_list.NPCMessage(this, false, 400, 0, "%s", nmessage);
ps = true;
}
else if (strstr(command,"SHOUT") != NULL) {
entity_list.NPCMessage(this, false, 0, 13, "%s shouts, '%s'", other->GetName(), nmessage);
ps = true;
}
else if (strstr(command,"SPAWN_ITEM") != NULL) {
this->SummonItem(atoi(sep.arg[1]));
ps = true;
}
else if (strstr(command,"ADD_HATELIST") != NULL) {
other->CastToNPC()->AddToHateList(this, 100);
ps = true;
}
else if (strstr(command,"DEPOP") != NULL) {
other->CastToNPC()->Depop();
ps = true;
}
#ifdef GUILDWARS
else if (strstr(command,"CITYTAKE") != NULL) {
if(IsClient() && GuildDBID() != 0)
{
if(target->CastToNPC()->GetGuildOwner() == GuildDBID())
{
entity_list.NPCMessage(this, false, 400, 0, "%s says, 'You are a member of the guild that owns this city, why would you want to conquere it?'", other->GetName(), nmessage);
}
else if(!IsAttackAllowed(other))
{
entity_list.NPCMessage(this, false, 400, 0, "%s says, 'You cannot conquere an allied city.'", other->GetName(), nmessage);
}
else if(database.CityDefense(zone->GetZoneID(),0))
{
entity_list.NPCMessage(this, false, 400, 0, "%s says, 'This city still has men standing, I will not surrender!'", other->GetName(), nmessage);
}
else if(database.SetCityGuildOwned(GuildDBID(),other->GetNPCTypeID()))
{
entity_list.NPCMessage(this, false, 400, 0, "%s says, 'You have won, I surrender to you.'", other->GetName(), nmessage);
zone->SetGuildOwned(GuildDBID());
zone->Repop();
}
}
ps = true;
}
#endif
else if (strstr(command,"SPAWN_NPC") != NULL) {
adverrorinfo = 751;
const NPCType* tmp = 0;
adverrorinfo = 752;
int16 grid = atoi(sep.arg[2]);
int8 guildwarset = atoi(sep.arg[3]);
if ((tmp = database.GetNPCType(atoi(sep.arg[1]))))
{
adverrorinfo = 753;
NPC* npc = new NPC(tmp, 0, other->GetX(), other->GetY(), other->GetZ(), heading);
adverrorinfo = 754;
npc->AddLootTable();
adverrorinfo = 755;
entity_list.AddNPC(npc,true,true);
adverrorinfo = 756;
Sleep(200);
if(npc != 0)
{
if(grid > 0)
npc->AssignWaypoints(grid);
adverrorinfo = 757;
#ifdef GUILDWARS
if(guildwarset > 0 && guildwarset == 1 && GuildDBID() > 0)
npc->SetGuildOwner(GuildDBID());
#endif
adverrorinfo = 758;
npc->SendPosUpdate();
}
}
ps = true;
}
else if (strstr(command,"LEVEL_CHECK") != NULL)
{
int8 Level1 = atoi(sep.arg[1]);
int8 Level2 = atoi(sep.arg[2]);
int8 Levelp = this->GetLevel();
if(Level2 == 0 || Level2 == NULL){
//Min Level
if(Level1 > Levelp)
{
//not high enough to talk too
break;
}
}
else{
//Level Range
if(Level1 < Levelp && Level2 < Levelp)
{
//not in the req level range
break;
}
}
levelcheck = true;
}
else if (strstr(command,"CUMULATIVE_FLAG") != NULL) {
other->flag[50] = other->flag[50] + 1;
ps = true;
}
else if (strstr(command,"NPC_FLAG") != NULL) {
other->flag[atoi(sep.arg[1])] = atoi(sep.arg[2]);
ps = true;
}
else if (strstr(command,"PLAYER_FLAG") != NULL) {
this->flag[atoi(sep.arg[1])] = atoi(sep.arg[2]);
ps = true;
}
else if (strstr(command,"EXP") != NULL) {
this->AddEXP (atoi(sep.arg[1]));
ps = true;
}
else if (strstr(command,"LEVEL") != NULL) {
this->SetLevel(atoi(sep.arg[1]), true);
ps = true;
}
else if (strstr(command,"SAFEMOVE") != NULL) {
this->MovePC(zone->GetShortName(),database.GetSafePoint(zone->GetShortName(),"x"),database.GetSafePoint(zone->GetShortName(),"y"),database.GetSafePoint(zone->GetShortName(),"z"),false,false);
ps = true;
}
else if (strstr(command,"RAIN") != NULL) {
zone->zone_weather = atoi(sep.arg[1]);
APPLAYER* outapp = new APPLAYER;
outapp = new APPLAYER;
outapp->opcode = OP_Weather;
outapp->pBuffer = new uchar[8];
memset(outapp->pBuffer, 0, 8);
outapp->size = 8;
outapp->pBuffer[4] = atoi(sep.arg[1]); // Why not just use 0x01/2/3?
entity_list.QueueClients(this, outapp);
delete outapp;
ps = true;
}
else if (strstr(command,"SNOW") != NULL) {
zone->zone_weather = atoi(sep.arg[1]) + 1;
APPLAYER* outapp = new APPLAYER;
outapp = new APPLAYER;
outapp->opcode = OP_Weather;
outapp->pBuffer = new uchar[8];
memset(outapp->pBuffer, 0, 8);
outapp->size = 8;
outapp->pBuffer[0] = 0x01;
outapp->pBuffer[4] = atoi(sep.arg[1]);
entity_list.QueueClients(this, outapp);
delete outapp;
ps = true;
}
else if (strstr(command,"GIVE_CASH") != NULL) {
this->AddMoneyToPP(atoi(sep.arg[1]),true);
ps = true;
}
else if (strstr(command,"GIVE_ITEM") != NULL) {
int16 ItemID = atoi(sep.arg[1]);
sint8 ItemCharges = atoi(sep.arg[2]);
this->SummonItem(ItemID, ItemCharges);
ps = true;
}
else if (strstr(command,"CAST_SPELL") != NULL) {
other->CastSpell(atoi(sep.arg[1]),this->GetID());
ps = true;
}
else if (strstr(command,"PVP") != NULL) {
if (strstr(strupr(sep.arg[1]),"ON") != NULL)
this->CastToClient()->SetPVP(true);
else
this->CastToClient()->SetPVP(false);
ps = true;
}
/*else if (strstr(command,"CHANGEFACTION") != NULL) {
if ((sep.IsNumber(1)) && (sep.IsNumber(2))) {
this->CastToClient()->SetFactionLevel2(this->CastToClient()->CharacterID(),atoi(sep.arg[1]), this->CastToClient()->GetClass(), this->CastToClient()->GetRace(), this->CastToClient()->GetDeity(), atoi(sep.arg[2]));
this->CastToClient()->Message(0,BuildFactionMessage(GetCharacterFactionLevel(atoi(sep.arg[1])),atoi(sep.arg[1])));
}
else
{
cout << "Error in script!!!!! Bad CHANGEFACTION Line! " << endl;
}
ps = true;
}*/
else if (strstr(command,"DO_ANIMATION") != NULL) {
other->DoAnim(atoi(sep.arg[1]));
ps = true;
}
else if (strstr(command,"ADDSKILL") != NULL) {
if (sep.IsNumber(1) && sep.IsNumber(2) && (atoi(sep.arg[2]) >= 0 || atoi(sep.arg[2]) <= 252) && (atoi(sep.arg[1]) >= 0 && atoi(sep.arg[1]) < 74)) {
this->AddSkill(atoi(sep.arg[1]), atoi(sep.arg[2]));
}
else
cout << "Error in script!!!! Bad ADDSKILL line!" << endl;
ps = true;
}
else if (strstr(command,"FLAG_CHECK") != NULL)
{
if (this->flag[atoi(sep.arg[1])] == 0)
break;
else
this->flag[atoi(sep.arg[1])] = 0;
ps = true;
}
else if (strstr(command,"CHANCE") != NULL)
{
if (rand()%100 > atoi(sep.arg[1]))
break;
ps = true;
}
}
if (IsEnd(temp))
{
tt = false; tt2 = false; stt = false; ti = false; ti2 = false; sti = false; tk = false; td = false; std = false; ta = false; sta = false; tf = false; stf = false; stk = false;
}
if (strstr(command,"TRIGGER_ATTACK") != NULL)
{
if (strstr(message,"%%ATTACK%%") != NULL) {
adverrorinfo = 943;
ta = true;
}
else { sta = true; }
}
else if (strstr(command,"TRIGGER_DEATH") != NULL)
{
if (strstr(message,"%%DEATH%%") != NULL)
{
td = true;
}
else { std = true; }
}
else if (strstr(command,"TRIGGER_KILLED") != NULL)
{
if (strstr(message,"%%KILLED%%") != NULL)
{
tk = true;
}
else { stk = true; }
}
else if (strstr(command,"TRIGGER_FLAGS") != NULL)
{
int8 flag1 = atoi(sep.arg[1]);
int8 flag2 = atoi(sep.arg[2]);
int8 flag3 = atoi(sep.arg[3]);
int8 flag4 = atoi(sep.arg[4]);
if (flag1 == 50)
{
if (other->flag[50] >= atoi(sep.arg[2]))
{
tf = true;
other->flag[50] = 0;
}
else
stf = true;
}
else
{
if (ta || tt || ti)
stf = true;
else if (flag1 > 0 && other->flag[flag1] == 0)
stf = true;
else if (flag2 > 0 && other->flag[flag2] == 0)
stf = true;
else if (flag3 > 0 && other->flag[flag3] == 0)
stf = true;
else if (flag4 > 0 && other->flag[flag4] == 0)
stf = true;
else
{
tf = true;
if (flag1 > 0)
other->flag[flag1] = 0;
if (flag2 > 0)
other->flag[flag2] = 0;
if (flag3 > 0)
other->flag[flag3] = 0;
if (flag4 > 0)
other->flag[flag4] = 0;
}
}
}
else if (strstr(command,"TRIGGER_ITEM") != NULL) {
if (!ta && !tt && !ti)
{
if ((uint16)item_id == atoi(sep4.arghza[1]))
{
ti = true; ti2 = true;
}
else { sti = true; }
}
else
{
printf("TRIGGER_ITEM Error at line %d: missing left curly bracket\n", i);
return;
}
}
else if (strstr(command,"TRIGGER_TEXT") != NULL)
{
if (strstr(message,"%%DEATH%%") == NULL && strstr(message,"%%ITEM%%") == NULL && strstr(message,"%%ATTACK%%") == NULL && strstr(message,"%%KILLED%%") == NULL && Dist(other) <= 50) {
char* tmp = new char[strlen(message)+1];
strcpy(tmp, message);
strupr(tmp);
if (strstr(tmp,strupr(sep4.arghza[1])) != NULL)
{
tt2 = true; tt = true;
}
else
{
stt = true;
}
delete tmp;
}
else if (strstr(message,"%%DEATH%%") != NULL || strstr(message,"%%item%%") != NULL || strstr(message,"%%attack%%")) { stt = true; }
else if (!ps) { printf("TRIGGER_TEXT Error at line %d: Not in NPC_Script\n", i); return; }
else
{
printf("TRIGGER_TEXT Error at line %d: missing left curly bracket\n", i);
return;
}
}
/*#ifdef WIN32
delete command;
delete temp;
#endif*/
}
}
if (!ps && item_id != 0)
{
entity_list.NPCMessage(this,true,200,0,"%s has no use for this item.",other->GetName());
SummonItem(item_id);
}
delete buffer;
}
string
Lsystem::parse_lsystem(char const* filename, int iteration) {
//Falls Datei noch nicht geparsed
if(lsystem_.empty() == true){
//Datei einlesen
file_iterator<> first = load(filename);
file_iterator<> last = first.make_end();
typedef char char_t;
typedef file_iterator <char_t> iterator_t;
string input(first, last);
// std::cout << "Eingabe:" << "\n" << input << "\n" << std::endl;
lsystem_grammer lsys;
//Parsevorgang
parse_info<iterator_t> pi = parse(first, last, lsys, space_p);
if (pi.hit) {
if (pi.full) {
std::cout << "LSystem: file reading successfully" << std::endl;
std::cout << "LSystem: " << pi.length << "characters read" << std::endl;
std::cout << "LSystem: parsing ..." << std::endl;
// std::cout << "Vektor:" << gl_lsys_file.size() << "\n" << std::endl;
//Eingabe splitten
typedef boost::tokenizer<boost::char_separator<char> > tokenizer;
//Axiom
//string s1 = get_axiom();
//boost::char_separator<char> sep1(": ");
//tokenizer tok(s1, sep1);
//tokenizer::iterator it = tok.begin();
//string start = *(++it);
boost::char_separator<char> sep1(": ");
string start = get_axiom();
std::string ret;
//Produkion(en)
vector<string> s2 = get_production();
//
int last_pos = 0;
int left = 1;
//Zufallszahlen bis 100
// srand(j * time(0));
//int prob = rand() % 100 + 1;
// std::cout << "ZZ:" << prob << std::endl;
// std::cout<<s2.size()<<std::endl;
std::map<int, string> mapProbToProd;
int zaehler=0;
for (int i = 0; i < s2.size(); i++)
{
int position;
tokenizer tok2(s2[i], sep1);
tokenizer::iterator it = tok2.begin();
string temp = *(++it); //Alles nach dem Doppelpunkt
boost::char_separator<char> sep2("=");
tokenizer tok3(temp, sep2);
tokenizer::iterator it2 = tok3.begin();
string temp1 = *(it2); //Alles vor dem Gleichheitszeichen
string temp2 = *(++it2); //Alles nach dem Gleichheitszeichen
if (temp2.find(",") == string::npos)
{ //DOL
stochastic_ = false;
//Ersetzung
boost::replace_all(start, temp1, temp2);
lsystem_.push_back(start);
lsystem_.push_back(start); //DOL mit meherere Produktionen existieren
}
else if (temp2.find(",") != string::npos)
{ //stochastische L-Systeme
stochastic_ = true;
boost::char_separator<char> sep3(",");
tokenizer tok4(temp2, sep3);
tokenizer::iterator it3 = tok4.begin();
string sto = *(it3); //Alles vor Komma (Wahrscheinlichkeit)
string temp3 = *(++it3); //Alles nach Komma (Regel)
int cur_pos = atof(sto.data()) * 100; //aktuelle Wahrscheinlichkeit
int right = last_pos + cur_pos; //Bereich rechts
for(int k = 0; k < cur_pos ; ++k )
{
mapProbToProd.insert ( std::pair<int, string>(zaehler,temp3));
++zaehler;
}
//
}
}
for (int j = 1; j <= iteration * 2; j++)
{
std::string result;
// result.reserve(14*start.size());
for(int i = 0 ; i < start.size() ; ++i)
{
srand(i*time(0));
int k = rand() % 100;
if(start[i]=='F')
result += mapProbToProd[k];
else
result += start[i];
}
lsystem_.push_back(result);
start=result;
}
std::cout << "LSystem: parsing finished\n\n";
//}
if (stochastic_ == false) {
// std::cout << "Ergebnis: " << lsystem_[(s2.size()) * iteration - 1] << std::endl;
return lsystem_[(s2.size() * iteration - 1)];
} else if (stochastic_ == true) {
// std::cout << "Ergebnis: " << lsystem_[iteration - 1] << std::endl;
return lsystem_[iteration - 1];
}
} else {
std::cout << "LSystem: ERROR parsing data partially" << std::endl;
std::cout << "LSystem: ERROR " << pi.length << "characters parsed \n\n" << std::endl;
}
} else
std::cout << "LSystem: ERROR parsing failed; stopped at '" << pi.stop << "'\n\n" << std::endl;
}
//erneutes Parsen verhindern
else if(iteration <= lsystem_.size())
{
if (stochastic_ == false)
{
// std::cout << "Ergebnis: " << lsystem_[(get_production().size()) * iteration - 1] << std::endl;
return lsystem_[(get_production().size() * iteration - 1)];
}
else if (stochastic_ == true)
{
// std::cout << "Ergebnis: " << lsystem_[iteration - 1] << std::endl;
return lsystem_[iteration - 1];
}
}
//Vektor vergrößern
else if(iteration > lsystem_.size()){
erase_old();
parse_lsystem(filename, iteration);
if (stochastic_ == false) {
// std::cout << "Ergebnis: " << lsystem_[(get_production().size()) * iteration - 1] << std::endl;
return lsystem_[(get_production().size() * iteration - 1)];
} else if (stochastic_ == true) {
// std::cout << "Ergebnis: " << lsystem_[iteration - 1] << std::endl;
return lsystem_[iteration - 1];
}
}
return std::string();
}
