AW: Ist das hier Delphi ?
Zitat:
und diese Alte ist Absicht,denn passt besser, weil da noch nicht so viel Schnickschnack drin ist. aber wenn ihr mir jetzt sagt mit der Neuen ist es einfacher, vergnuege ich mich gerne auch mit der neuen Version. lG Moni |
AW: Ist das hier Delphi ?
so ich habe mal um mich verstaendlicher zu machen, in der zuvor geposteten Quelldatei alles erforderliche uebersetzt.
ausser dem Befehl den Chatlog zu oeffnen. es liest "ChatLogbuch geoeffnet" aber es sollte lesen "Chat Log opened" ich denke das es daran liegt, das in der deutschen Version ChatLog ohne Trennzeichen geschrieben ist und ich weiss nicht welche von den Befehlen in denen ChatLog steht auf das bezogen ist, was es finden soll. ich moechte nicht falsch verstanden werden also ich erwarte nicht, das mir das jemand hier kompiliert. ich wuerde nur gerne wissen, welchem Code und welchem Compiler ich den Kampf ansagen muss.
Code:
/*****************************************************************************/
/* */ /* Moras Ausrüstungsplaner für Dark Age of Camelot */ /* Copyright (C) 2003 - 2004 Mora */ /* */ /* This program is free software; you can redistribute it and/or modify */ /* it under the terms of the GNU General Public License as published by */ /* the Free Software Foundation; either version 2 of the License, or */ /* (at your option) any later version. */ /* */ /* This program is distributed in the hope that it will be useful, */ /* but WITHOUT ANY WARRANTY; without even the implied warranty of */ /* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ /* GNU General Public License for more details. */ /* */ /* You should have received a copy of the GNU General Public License */ /* along with this program; if not, write to the Free Software */ /* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */ /* */ /*****************************************************************************/ //--------------------------------------------------------------------------- #include <assert.h> #include <StrUtils.hpp> #pragma hdrstop #include "ChatLog.h" #include "Utils.h" #include "MainFrame.h" // Brauch die xml_config Struktur // Mit diesem String beginnt der Info-Bereich const char strInfoStart[] = "<Begin Info:"; // Mit diesem String endet der Info-Bereich const char strInfoStop[] = "<End Info>"; // Mit diesem String beginnt der Info-Bereich const char strMagBoniStart[] = "Magical Bonuses:"; // Ein paar Strings zur identifikation bestimmter Werte const char strAF[] = "Base Factor"; const char strAbsorb[] = "Absorption"; // Daraus läßt sich Rüstungsklasse gewinnen const char strQuality[] = "Quality"; const char strSpeed[] = "Weapon Speed"; const char strUnique[] = "Unique Item"; const char strCrafted[] = "Crafted by:"; const char strBonus[] = "Bonus auf"; const char strBonus2[] = "Bonus zum"; const char strRestriction[] = "Geeignet für:"; const char strArtifact[] = "Artefakt:"; const char strActivLevel[] = " (Level Requirement:"; //--------------------------------------------------------------------------- CChatLog::CChatLog() { fChatLog = NULL; arItemNames = new TStringList; }; CChatLog::~CChatLog() { CloseChatLog(); delete arItemNames; }; // Öffnet die ChatLog-Datei für Lesezugriff int CChatLog::OpenChatLog(const char* Filename) { if (fChatLog != NULL) delete fChatLog; // Seek funktioniert nur richtig im binary-mode. Nur ist jetzt immer /r hinter einem String fChatLog = new fstream(Filename, ios_base::in | ios_base::binary); iLineNo = 0; if (fChatLog->is_open()) return true; else return false; }; void CChatLog::CloseChatLog() { if (fChatLog != NULL) { fChatLog->close(); delete fChatLog; } fChatLog = NULL; }; // enumwerte des Parsers in Init enum ParserStateInit { STATE_START, // Scanne nach Start einer Info-Section STATE_ITEM, // Suche danach in der Sektion, das es ein Gegenstand ist }; // Diese Funktion scannt erstmal das gesamte Log nach Gegenständen und merkt // sich deren Position. In einem zweiten durchlauf wird versucht, die Herkunft // der Gegenstände herauszubekommen. Doppelte Items werden herausgefiltert void CChatLog::Init(void) { int posStart; // Startposition des aktuellen Info-Bereichs AnsiString strName; // Name des aktuellen Info-Bereichs char Line[1024]; // Hier eine maximale Länge eines Textes heruasfinden bool bIsItem; nItems = 0; iLineNo = 0; arItemNames->Clear(); arOffsets.Length = 0; ParserStateInit State = STATE_START; fChatLog->seekg(0, ios::beg); // Lesezeiger auf Dateianfang fChatLog->getline(Line, 1024); while(!fChatLog->eof()) { assert(StrLen(Line) < 1024); iLineNo++; switch (State) { case STATE_START: { // Suche nach dem Start eines Info-Bereichs char *pStart = AnsiStrPos(Line, (char*)strInfoStart); if (pStart != NULL) { posStart = fChatLog->tellg() - fChatLog->gcount(); AnsiString sTemp = pStart; strName = sTemp.SubString(sizeof(strInfoStart) + 1, StrLen(pStart) - sizeof(strInfoStart)- 2); // Jetzt mal schauen, ob es einen Doppelpunkt gibt. int p = strName.AnsiPos(':'); if (p > 0) { // Wenn ja, dann den String bis dorthin abschneiden strName = strName.SubString(p + 2, strName.Length() - p - 1); } bIsItem = false; State = STATE_ITEM; } } break; case STATE_ITEM: { // Suche nach Magieboni oder Info-Sektion Ende char *pStart = AnsiStrPos(Line, (char*)strMagBoniStart); if (pStart != NULL) bIsItem = true; // Ist Info-Sektion zu Ende? pStart = AnsiStrPos(Line, (char*)strInfoStop); if (pStart != NULL) { State = STATE_START; // Nach der nächsten Info-Sektion suchen if (bIsItem) { // Ende Info-Sektion und es ist ein Gegenstand // Also in die Liste der zu untersuchenden Gegenstände aufnehmen int index; if ((index = arItemNames->IndexOf(strName)) == -1) { // Item mit diesem Namen gibts noch nicht (im Logfile) arItemNames->Add(strName); arOffsets.Length = nItems + 1; arOffsets[nItems] = posStart; nItems++; } else { // Name gibts schon. Offset aber auf diesen setzen, // da immer das letzte das aktuellste sein sollte arOffsets[index] = posStart; } } } } break; } fChatLog->getline(Line, 1024); } } // Diese Funktion macht die eigentliche Lesearbeit // Input ist dabei der Index des zu beschaffenden Items und einen Zeiger // auf eine CItem-Klasse, welche ausgefüllt werden soll // Rückgabe ist true für keinen Fehler int CChatLog::GetItem(int index, CItem* Item) { int i; char Line[1024]; // Hier eine maximale Länge eines Textes heruasfinden char sArg[64]; // Längere Bonusbezeichnungen gibts glaub nicht int NextBonus = 0; // Welche Position soll der nächste Bonus eingetragen werden int NextRestriction = 0; // Nächster Index einer Klassenbeschränkung bool bRestriction = false; if ((index < 0) && (index >= nItems)) return false; // Itemindex nicht im gültigen Bereich Item->Init(); Item->Name = arItemNames->Strings[index]; Item->Realm = player->Realm; // Immer Realm des Spielers annehmen Item->Quality = 0; // Versuche Aufgrund des Namen auf den Itemslot zu schliessen AnsiString strTemp = Item->Name.LowerCase(); for (i = 0; i < 18; i++) { for (int j = 0; j < xml_config.arItemSlots[i].arIds.Length; j++) { if (strTemp.AnsiPos(xml_config.arItemSlots[i].arIds[j]) > 0) Item->Position = i; } } // Lesezeiger auf Beginn der entsprechenden Info-Sektion stellen fChatLog->clear(); // Ist nötig, da wir eventuell noch im eof-state sind fChatLog->seekg(arOffsets[index], ios::beg); fChatLog->getline(Line, 1024); // Erste Zeile Lesen (kann ignoriert werden) fChatLog->getline(Line, 1024); // Erste Zeile mit Infos while(!fChatLog->eof()) { assert(StrLen(Line) < 1024); int Value = 0; // Ist Info-Sektion zu Ende? char *pStart = AnsiStrPos(Line, (char*)strInfoStop); if (pStart!= NULL) break; if (Line[11] == '-') { // Alles danach ist ein Wert, der mich interessiert // Suche erstmal nach einem Zahlenwert. Sollte immer nur einer sein // Bonus-Argument ist immer der String vor einem Doppelpunkt, // oder der String hinter einer Zahl bool bValue = false; // Gibts eine Zahl? bool bDoppel = false; // gibt es einen Doppelpunkt im String bool bPercent = false; // Es ist ein Prozent-Wert int pArg = 0; // Aktuelle Position im Argument-String for (i = 13; i < StrLen(Line); i++) { if ((Line[i] >= '0') && (Line[i] <= '9')) { bValue = true; Value = Value * 10 + Line[i] - '0'; } else if (Line[i] == ':') bDoppel = true; else if (Line[i] == ' ') { if (bValue && (bDoppel || (pArg > 0))) break; pArg = 0; } else if (Line[i] == '%') bPercent = true; else if ((Line[i] == '\r') || (Line[i] == '.')) {} // Diese Zeichen ignorieren else { sArg[pArg++] = Line[i]; sArg[pArg] = 0; } } if (bValue) { // In xml_config nach einem entsprechendem Boni suchen int bid = xml_config.GetBonusId(sArg, bPercent); if (bid < 0) { // testen, ob der gesamte Text nicht vielleicht doch ein Bonus ist bid = xml_config.GetBonusId(MidStr(Line, 14, i - 16), bPercent); } if (bid >= 0) { // Es ist ein regulärer Bonus Item->Effect[NextBonus] = bid; Item->EffectValue[NextBonus] = Value; NextBonus++; } else { // Hier ein paar zusätzliche Werte nehmen, die keine Boni sind if (strcmp(sArg, strAF) == 0) Item->Base Factor = Value; if (strcmp(sArg, strQuality) == 0) Item->Quality = Value; if (strcmp(sArg, strSpeed) == 0) Item->Weapon Speed = Value; if (strcmp(sArg, strAbsorb) == 0) { // Value in Rüstungsklasse umwandeln switch (Value) { case 0: Item->Class = 0; Item->Level = Item->AF;break; case 10: Item->Class = 1; Item->Level = Item->AF / 2; break; case 19: Item->Class = 2; Item->Level = Item->AF / 2; break; case 27: Item->Class = 3; Item->Level = Item->AF / 2; break; case 34: Item->Class = 4; Item->Level = Item->AF / 2; break; } //if (Item->Position < 0) // Item->Position = 0; // Alle Rüstungen als Handschuhe annehmen // Es gibt leider keine Info darüber im Log // Wenn wir die Position auf -1 lassen, dann kommt automatisch eine Auswahlbox } if (strcmp(sArg, "DPS") == 0) { // Nur ersten DPS-Wert speichern if (Item->Base DPS == 0) { Item->Base DPS = Value; // Berechne den Itemlevel int level = (Value - 11) / 3; if (level > 51) level = 51; Item->Level = level; } } } } } // else { // noch ein paar besondere Strings auswerten if (strncmp(&Line[11], strUnique, sizeof(strUnique) - 1) == 0) { // Unique Gegenstände nicht importieren return false; } if (strncmp(&Line[11], strCrafted, sizeof(strCrafted) - 1) == 0) { // Craftet Gegenstände nicht importieren return false; } if (strncmp(&Line[11], strArtifact, sizeof(strArtifact) - 1) == 0) { Item->MaxLevel = 10; Item->Realm = 7; } if ((strncmp(&Line[11], strBonus, sizeof(strBonus) - 1) == 0) \ || (strncmp(&Line[11], strBonus2, sizeof(strBonus2) - 1) == 0)) { // Spezielle Werte (meist Bonuserhöhungen) // Bonus auf BONUS: VALUE unsigned int i; for (i = 21; i < StrLen(Line); i++) { // Alles bis zum Doppelpunkt in sArg kopieren if (Line[i] == ':') break; sArg[i - 21] = Line[i]; } sArg[i - 21] = 0; for (; i < StrLen(Line); i++) { if ((Line[i] >= '0') && (Line[i] <= '9')) { Value = Value * 10 + Line[i] - '0'; } } // In xml_config nach einem entsprechendem Boni suchen int bid = xml_config.GetBonusId(sArg); if (bid >= 0) { // Es ist ein regulärer Bonus Item->Effect[NextBonus] = bid; Item->EffectValue[NextBonus] = Value; NextBonus++; } else { // Fehlermeldung Application->MessageBoxA(AnsiString("Ein Bonus '" + AnsiString(sArg) + "' ist unbekannt!\nDie Datei 'config.xml' bzw. die entsprechende Sprachdatei anpassen!").c_str(), "Fehler"); } } if (strncmp(&Line[11], strActivLevel, sizeof(strActivLevel) - 1) == 0) { // Danach kommt ne Zahl, welche den Level angibt int level = Str2Int(&Line[11 + sizeof(strActivLevel)]); Item->EffectLevel[NextBonus - 1] = level; } unsigned int cp = 12; if ((strncmp(&Line[11], strRestriction, sizeof(strRestriction) - 1) == 0) \ || (strncmp(&Line[12], strRestriction, sizeof(strRestriction) - 1) == 0)) { // Solange nachfolgende Strings eine Klasse darstellen, solange // diese bei den Beschränkungen eintragen bRestriction = true; cp = 12 + sizeof(strRestriction); } while (bRestriction && (cp < StrLen(Line))) { int pArg = 0; for (; cp < StrLen(Line); cp++) { if ((Line[cp] == ' ') || (Line[cp] == ',') || (Line[cp] == '-') || (Line[cp] == '\r')) { sArg[pArg] = 0; if (pArg > 0) { // Es gibt einen String. Schauen obs ne Klasse ist int cid = xml_config.GetClassId(sArg); if (cid >= 0) { Item->ClassRestriction[NextRestriction++] = cid; } else { // Keine Klasse mehr, Modus aufheben bRestriction = false; } } pArg = 0; } else { sArg[pArg++] = Line[cp]; } } } } fChatLog->getline(Line, 1024); } return true; } #pragma package(smart_init)\ |
AW: Ist das hier Delphi ?
Den Compiler gibt es kostenlosen in einer älteren Version. Weiß aber nicht ob da alles dabei ist was du brauchst..
Kenn mich sogut nicht aus mit Borland C++! Was für eine Sprache das ist,steht übrigens auch auf der Seite von Soureforge... http://sfile.multimediasoftwaredownl...iler%205.5.rar |
AW: Ist das hier Delphi ?
Liebe EifelHexe es wäre zuckersüß von Dir, wenn du den Quelltext in Beitrag 12 und das Log in Beitrag 10 mit den Code-Tags versehen könntest.
Wie du wahrscheinlich schon bemerkt hast (hast du?) zerhaut es ansonsten die Formatierung, weil doppelte Leerzeichen entfernt werden und der Zeichensatz keine feste Breite hat. Als dies passiert nicht, wenn man die Code-Tags benutzt. Davon kriegt man ja Augenkrebs ... |
AW: Ist das hier Delphi ?
Code-Tags? hm...:gruebel:
hehe ok schon wieder an einem Haken haengen geblieben :) |
AW: Ist das hier Delphi ?
[ CODE ] hier den Code rein [ /CODE ]
Die Leerzeichen in den Klammern mußt du natürlich weglassen.
Code:
Das ist Code
|
AW: Ist das hier Delphi ?
Liste der Anhänge anzeigen (Anzahl: 1)
Drücke den „Ändern“-Button neben deinem Beitrag, wähle den C-Code im Beitragseditor aus und drücke den folgenden Button in der Symbolleiste (oder schreibe manuell [code] davor und [/code] dahinter)
Anhang 33456 |
AW: Ist das hier Delphi ?
done :)
danke fuer den Hinweis und sorry :) |
AW: Ist das hier Delphi ?
Zitat:
also diesen Borland Compiler habe ich mir runtergeladen und installiert allerdings krieg ich den nicht auf auch nicht im Command Prompt :( mit Programmen wie Dev C++ kann ich das nicht machen ? Ich habs schon versucht, aber wenn ich kompilieren will, bekomme ich 237 Fehlermeldungen. |
AW: Ist das hier Delphi ?
Hab da von C++ auch keine Ahnung, aber muss man nicht auch die ganzen Include-Dateien auch haben?
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:09 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz