localdb.pas

来自「2009最新 传奇汉化0599代码 传奇汉化」· PAS 代码 · 共 1,924 行 · 第 1/5 页

unit LocalDB;
// If you get an error on the next line, you need to reextract SourceFiles.rar
{$I defines.inc}
interface

uses
  svn, nixtime, Windows, Messages, SysUtils, StrUtils, Variants, Classes, Graphics, Controls, Forms, ActiveX, ExtCtrls,
  Dialogs, GuildTerritory, M2Share, ADODB, DB, HUtil32, Grobal2, SDK, ObjNpc, ItmUnit, DateUtils, EDcode,ObjBase, math;


type
  TDefineInfo = record
    sName:String;
    sText:String;
  end;
  pTDefineInfo = ^TDefineInfo;
  TQDDinfo = record
    n00     :Integer;
    s04     :String;
    sList   :TStringList;
  end;
  pTQDDinfo = ^TQDDinfo;
  TGoodFileHeader = record
    nItemCount    :Integer;
    Resv          :array[0..251] of Integer;
  end;
  TFrmDB = class
  private
    LastSQLTime: LongInt;
    procedure QMangeNPC;
    procedure QFunctionNPC;
    procedure RobotNPC();
    procedure DeCodeStringList(StringList:TStringList);
    { Private declarations }
  public
    SQLTimer: TTimer;
    Query: TADOQuery;
    QueryCommand: TADOCommand;    
//    SQLDBM: TADOQuery;

    constructor Create();
    destructor Destroy; override;
    procedure InitDBM();
    procedure DoSQLTimer(Sender: TObject);
    procedure UseSQL();
    function GetBoolean(MyQuery: TADOQuery; Field: String): boolean;
    function LoadMonitems(MonName:String;var ItemList:TList):Integer;
    function LoadItemsDB():Integer;
    {$IFDEF UseTXT}
      function LoadMinMap():Integer;
    {$ELSE}
      function LoadMapRoute():Integer;
    {$ENDIF}
    function LoadMapInfo():Integer;
    function LoadMonsterDB():Integer;
    function LoadMagicDB():Integer;
    function LoadMonGen():Integer;
    function LoadUnbindList():Integer;
    function LoadMapQuest():Integer;
    function LoadQuestDiary():Integer;
    function LoadAdminList():Boolean;
    function LoadMerchant():Integer;
    function LoadGuardList():Integer;
    function LoadNpcs():Integer;
    function LoadMakeItem():Integer;
    function LoadStartPoint():Integer;
    function LoadNpcScript(NPC:TNormNpc;sPatch,sScritpName:String):Integer;
    function LoadScriptFile(NPC:TNormNpc;sPatch,sScritpName:String;boFlag:Boolean):Integer;
    function LoadGoodRecord(NPC:TMerchant;sFile:String):Integer;
    function LoadGoodPriceRecord(NPC:TMerchant;sFile:String):Integer;

    function SaveGoodRecord(NPC:TMerchant;sFile:String):Integer;
    function SaveGoodPriceRecord(NPC:TMerchant;sFile:String):Integer;

    function  LoadUpgradeWeaponRecord(sNPCName:String;DataList:TList):Integer;
    function  SaveUpgradeWeaponRecord(sNPCName:String;DataList:TList):Integer;
    procedure ReLoadMerchants();
    procedure ReLoadNpc();

    function ConsignItem(Useritem: pTUserItem; Cost: String; Name: string): boolean;
    procedure GetAuctionItems(Section: integer; CurrPage: Integer; SearchString: String; PlayObject: TPlayObject);
    procedure BuyAuctionItem(PlayObject: TPlayObject; AuctionID: Integer);
    procedure EndOfAuction(PlayObject: TPlayObject; AuctionID: Integer);

    function  SaveAdminList():Boolean;
    procedure LoadGT(Number,ListNumber:Integer);
    procedure LoadGTDecorations(GT:TTerritory);
    procedure SaveGT(GT:TTerritory);
    procedure SetupGT(GT:TTerritory);
    procedure SaveDeco(looks,GTNumber:Byte;x,y:integer;mapname:String; starttime:dword);
    procedure DeleteDeco(GTNumber:Byte; x,y: integer; mapname:String);
    function  LoadDecorationList():Integer;
    function  LoadBBSMsgList(GuildName:String;PageCount:integer):TList;
    function  LoadBBSMsg(Index:integer):pTBBSMSGL;
    procedure SaveBBSMsg(BBSMSGL:pTBBSMSGL;GuildName:String);
    procedure DeleteBBSMsg(index:integer);
  end;
  
var
  FrmDB: TFrmDB;
  nDeCryptString:Integer= -1;
implementation

uses
  Envir, svMain;

{ TFrmDB }
//00487630
function TFrmDB.LoadAdminList():Boolean;
var
  i:Integer;
  AdminInfo :pTAdminInfo;
ResourceString
  sSQLString = 'SELECT * FROM TBL_ADMIN';
begin
  Result:=False;
  EnterCriticalSection(ProcessHumanCriticalSection);
  try
  try
    UseSQL();
    Query.SQL.Clear;
    Query.SQL.Add(sSQLString);
    try
      Query.Open;
    except
    end;

    UserEngine.m_AdminList.Lock;
    try
      UserEngine.m_AdminList.Clear;
      for i:=0 to Query.RecordCount -1 do begin
        New(AdminInfo);
        AdminInfo.nLv         := Query.FieldByName('FLD_ADMINLEVEL').AsInteger;
        AdminInfo.sChrName    := Query.FieldByName('FLD_PLAYERNAME').AsString;
        AdminInfo.sIPaddr     := Query.FieldByName('FLD_IP').AsString;

        UserEngine.m_AdminList.Add(AdminInfo);

        Query.Next;
      end;
    finally
      UserEngine.m_AdminList.UnLock;
    end;
  finally
    Query.Close;
  end;
  finally
    LeaveCriticalSection(ProcessHumanCriticalSection);
  end;
  Result:=True;
end;

function TFrmDB.SaveAdminList():Boolean;
var
  i:Integer;
  AdminInfo :pTAdminInfo;
ResourceString
  sSQLString = 'DELETE * FROM TBL_ADMIN';
  sSQLString2= 'INSERT INTO TBL_ADMIN(FLD_ADMINLEVEL, FLD_PLAYERNAME, FLD_IP) VALUES( %d, ''%s'', ''%s'' )';
begin
  Result:=False;
  EnterCriticalSection(ProcessHumanCriticalSection);
  try
  try
    UseSQL();
    Query.SQL.Clear;
    Query.SQL.Add(sSQLString);
    try
      Query.ExecSQL;
    except
    end;

    try
      UserEngine.m_AdminList.Lock;
      Query.SQL.Clear;
      for I := 0 to UserEngine.m_AdminList.Count - 1 do begin
        AdminInfo:=pTAdminInfo(UserEngine.m_AdminList.Items[I]);

        Query.Close;
        Query.SQL.Text:=Format(sSQLString2, [AdminInfo.nLv, AdminInfo.sChrName, AdminInfo.sIPaddr]);

        if (Query.ExecSQL<=0) then begin
	  Break;
        end;
      end;

    finally
      UserEngine.m_AdminList.UnLock;
    end;
  finally
    Query.Close;
  end;
  finally
    LeaveCriticalSection(ProcessHumanCriticalSection);
  end;
  Result:=True;
end;


//00488A68
function TFrmDB.LoadGuardList(): Integer;
{$IFDEF UseTXT}
var
  sFileName,s14,s1C,s20,s24,s28,s2C:String;
  tGuardList:TStringList;
  i:Integer;
  tGuard   :TBaseObject;
begin
  EnterCriticalSection(ProcessHumanCriticalSection);
  try
    Result:= -1;
    sFileName:=g_Config.sEnvirDir + 'GuardList.txt';
    if FileExists(sFileName) then begin
      tGuardList:=TStringList.Create;
      tGuardList.LoadFromFile(sFileName);
      for i:=0 to tGuardList.Count -1 do begin
        s14:=tGuardList.Strings[i];
        if (s14 <> '') and (s14[1] <> ';') then begin
          s14:=GetValidStrCap(s14, s1C, [' ']);
          if (s1C <> '') and (s1C[1] = '"') then
            ArrestStringEx(s1C,'"','"',s1C);
          s14:=GetValidStr3(s14, s20, [' ']);
          s14:=GetValidStr3(s14, s24, [' ',',']);
          s14:=GetValidStr3(s14, s28, [' ',',',':']);
          s14:=GetValidStr3(s14, s2C, [' ',':']);
          if (s1C <> '') and (s20 <> '') and (s2C <> '') then begin
            tGuard:=UserEngine.RegenMonsterByName(s20,Str_ToInt(s24,0),Str_ToInt(s28,0),s1C);
              //sMapName,nX,nY,sName
            if tGuard <> nil then tGuard.m_btDirection:=Str_ToInt(s2C,0);
          end;
        end;
      end;
      tGuardList.Free;
      Result:=1;
    end;
  finally
    LeaveCriticalSection(ProcessHumanCriticalSection);
  end;
{$ELSE}
var
  i,nX,nY,nDir:Integer;
  sGuardName,sMap:String;
  tGuard:TBaseObject;
ResourceString
  sSQLString = 'SELECT * FROM TBL_GUARD';
begin
  EnterCriticalSection(ProcessHumanCriticalSection);
  try
  try
    Result := -1;
    UseSQL();
    Query.SQL.Clear;
    Query.SQL.Add(sSQLString);
    try
      Query.Open;
    except
      Result:= -2;
    end;
    for i:=0 to Query.RecordCount -1 do begin
      sGuardName        := Query.FieldByName('FLD_GUARDNAME').AsString;
      sMap              := Query.FieldByName('FLD_MAPNAME').AsString;
      nX                := Query.FieldByName('FLD_X').AsInteger;
      nY                := Query.FieldByName('FLD_Y').AsInteger;
      nDir              := Query.FieldByName('FLD_DIRECTION').AsInteger;

      if (sGuardName <> '') and (sMap <> '') then begin
        tGuard:=UserEngine.RegenMonsterByName(sMap,nX,nY,sGuardName);
        //sMapName,nX,nY,sName
        if tGuard <> nil then tGuard.m_btDirection:=nDir;
      end;

      Result := 1;
      Query.Next;
    end;
  finally
    Query.Close;
  end;
  finally
    LeaveCriticalSection(ProcessHumanCriticalSection);
  end;
{$ENDIF}
end;
//004855E0
function TFrmDB.LoadItemsDB: Integer;
var
  i,Idx:Integer;
  Item:TItem;
ResourceString
  sSQLString = 'SELECT * FROM TBL_STDITEMS ORDER BY FLD_ID';
begin
  EnterCriticalSection(ProcessHumanCriticalSection);
  try
  try
    for I := 0 to UserEngine.StdItemList.Count - 1 do begin
      TItem(UserEngine.StdItemList.Items[I]).Free;
    end;
    UserEngine.StdItemList.Clear;
    Result := -1;
    UseSQL();
    Query.SQL.Clear;
    Query.SQL.Add(sSQLString);
    try
      Query.Open;
    except
      Result:= -2;
    end;
    if Query.RecordCount = 0 then Result := -3;
    for i:=0 to Query.RecordCount -1 do begin
      Item := TItem.Create;
      Idx            := Query.FieldByName('FLD_ID').AsInteger;
      Item.Name      := Query.FieldByName('FLD_NAME').AsString;
      Item.StdMode   := Query.FieldByName('FLD_STDMode').AsInteger;
      Item.Shape     := Query.FieldByName('FLD_SHAPE').AsInteger;
      Item.Weight    := Query.FieldByName('FLD_WEIGHT').AsInteger;
      Item.AniCount  := Query.FieldByName('FLD_ANICOUNT').AsInteger;
      Item.Source    := Query.FieldByName('FLD_SOURCE').AsInteger;
      Item.Reserved  := Query.FieldByName('FLD_RESERVED').AsInteger;
      Item.Looks     := Query.FieldByName('FLD_IMGINDEX').AsInteger;
      Item.DuraMax   := Word(Query.FieldByName('FLD_DURAMAX').AsInteger);
      Item.AC        := ROUND(Query.FieldByName('FLD_AC').AsInteger * (g_Config.nItemsACPowerRate / 10));
      Item.AC2       := ROUND(Query.FieldByName('FLD_ACMAX').AsInteger * (g_Config.nItemsACPowerRate / 10));
      Item.MAC       := ROUND(Query.FieldByName('FLD_MAC').AsInteger * (g_Config.nItemsACPowerRate / 10));
      Item.MAC2      := ROUND(Query.FieldByName('FLD_MACMAX').AsInteger * (g_Config.nItemsACPowerRate / 10));
      Item.DC        := ROUND(Query.FieldByName('FLD_DC').AsInteger * (g_Config.nItemsPowerRate / 10));
      Item.DC2       := ROUND(Query.FieldByName('FLD_DCMAX').AsInteger * (g_Config.nItemsPowerRate / 10));
      Item.MC        := ROUND(Query.FieldByName('FLD_MC').AsInteger * (g_Config.nItemsPowerRate / 10));
      Item.MC2       := ROUND(Query.FieldByName('FLD_MCMAX').AsInteger * (g_Config.nItemsPowerRate / 10));
      Item.SC        := ROUND(Query.FieldByName('FLD_SC').AsInteger * (g_Config.nItemsPowerRate / 10));
      Item.SC2       := ROUND(Query.FieldByName('FLD_SCMAX').AsInteger * (g_Config.nItemsPowerRate / 10));
      Item.Need      := Query.FieldByName('FLD_NEED').AsInteger;
      Item.NeedLevel := Query.FieldByName('FLD_NEEDLEVEL').AsInteger;
      Item.Price     := Query.FieldByName('FLD_PRICE').AsInteger;
      Item.Unique    := GetBoolean(Query,'FLD_UNIQUEITEM');
      Item.Light     := Query.FieldByName('FLD_LIGHT').AsInteger;
      Item.Tox       := Query.FieldByName('FLD_TOX').AsInteger;
      Item.ToxAvoid  := Query.FieldByName('FLD_TOXAVOID').AsInteger;
      Item.SlowDown  := Query.FieldByName('FLD_SLOWDOWN').AsInteger;
      Item.MagAvoid  := Query.FieldByName('FLD_MGAVOID').AsInteger;
      Item.HpAdd     := Query.FieldByName('FLD_HPADD').AsInteger;
      Item.MpAdd     := Query.FieldByName('FLD_MPADD').AsInteger;
      Item.boCanTrade := Query.FieldByName('FLD_CanTrade').AsBoolean;
      Item.boCanDrop  := Query.FieldByName('FLD_CanDrop').AsBoolean;
      Item.boCanDeathDrop := Query.FieldByName('FLD_CanDeathDrop').AsBoolean;
      Item.boCanRepair    := Query.FieldByName('FLD_CanRepair').AsBoolean;
      Item.boCanSpecialRepair := Query.FieldByName('FLD_CanSpecialRepair').AsBoolean;
      Item.boCanStore         := Query.FieldByName('FLD_CanStore').AsBoolean;
      Item.boCanSell          := Query.FieldByName('FLD_CanSell').AsBoolean;
      Item.boVanishDrop       := Query.FieldByName('FLD_VanishDrop').AsBoolean;
      Item.NeedIdentify :=GetGameLogItemNameList(Item.Name);

      if Item.StdMode = 48 then
        g_Config.sGTDeco:=Item.Name;//set the name of the gt decoration base item
      case Item.StdMode of
        5,6: Item.ItemType := ITEM_WEAPON;
        10,11,12: Item.ItemType := ITEM_ARMOR;
        15,19,20,21,22,23,24,26,62,63,64: Item.ItemType := ITEM_ACCESSORY;
        else Item.ItemType := ITEM_ETC;
      end;
      if UserEngine.StdItemList.Count = Idx-1 then begin
        UserEngine.StdItemList.Add(Item);
        Result := 1;
      end else begin
        Memo.Lines.Add(format('Error: Invalid Index found(Idx:%d Name:%s)..',[Idx,Item.Name]));
        Result := -100;
        exit;
      end;
      Query.Next;
    end;
    g_boGameLogGold:=GetGameLogItemNameList(sSTRING_GOLDNAME) = 1;
    g_boGameLogHumanDie:=GetGameLogItemNameList(g_sHumanDieEvent) = 1;
    g_boGameLogGameGold:=GetGameLogItemNameList(g_Config.sGameGoldName) = 1;
    g_boGameLogGamePoint:=GetGameLogItemNameList(g_Config.sGamePointName) = 1;
  finally
    Query.Close;
  end;
  finally
    LeaveCriticalSection(ProcessHumanCriticalSection);
  end;
end;
//00486330
function TFrmDB.LoadMagicDB():Integer;
var
  i:Integer;
  Magic:pTMagic;
ResourceString