localdb.pas

乐都SQL版传奇全套代码,绝对可编译

          if CompareLStr(s34, 'NODRUG', length('NODRUG')) then
          begin
            MapFlag.boNODRUG := True;
            Continue;
          end;
          if CompareLStr(s34, 'NOMANNOMON', length('NOMANNOMON')) then
          begin
            MapFlag.boNoManNoMon := True;
            Continue;
          end;
          if CompareLStr(s34, 'MINE', length('MINE')) then  //矿场
          begin
            MapFlag.boMINE := True;
            Continue;
          end;
          if CompareLStr(s34, 'NOPOSITIONMOVE', length('NOPOSITIONMOVE')) then
          begin
            MapFlag.boNOPOSITIONMOVE := True;
            Continue;
          end;
          if (s34[1] = 'L') then
          begin
            MapFlag.nL := Str_ToInt(Copy(s34, 2, length(s34) - 1), 1);
          end;
        end;
        if g_MapManager.AddMapInfo(sMapName, sMapDesc, nServerIndex, @MapFlag,
          QuestNPC) = nil then
          Result := -10;
        
      end;
    end;
    //加载地图连接点
    for i := 0 to LoadList.Count - 1 do
    begin
      s30 := LoadList.Strings[i];
      if (s30 <> '') and (s30[1] <> '[') and (s30[1] <> ';') then
      begin
        s30 := GetValidStr3(s30, s34, [' ', ',', #9]);
        sMapName := s34;
        s30 := GetValidStr3(s30, s34, [' ', ',', #9]);
        n14 := Str_ToInt(s34, 0);
        s30 := GetValidStr3(s30, s34, [' ', ',', #9]);
        n18 := Str_ToInt(s34, 0);
        s30 := GetValidStr3(s30, s34, [' ', ',', '-', '>', #9]);
        s44 := s34;
        s30 := GetValidStr3(s30, s34, [' ', ',', #9]);
        n1C := Str_ToInt(s34, 0);
        s30 := GetValidStr3(s30, s34, [' ', ',', ';', #9]);
        n20 := Str_ToInt(s34, 0);
        g_MapManager.AddMapRoute(sMapName, n14, n18, s44, n1C, n20);
        //sSMapNO,nSMapX,nSMapY,sDMapNO,nDMapX,nDMapY
      end;
    end;
    LoadList.Free;
  end;
end;


procedure TFrmDB.QFunctionNPC;
var
  sScriptFile                           : string;
  sScritpDir                            : string;
  SaveList                              : TStringList;
  sShowFile                             : string;
begin
  try
    sScriptFile := g_Config.sEnvirDir + sMarket_Def + 'QFunction-0.txt';
    sShowFile := ReplaceChar(sScriptFile, '\', '/');
    sScritpDir := g_Config.sEnvirDir + sMarket_Def;
    if not DirectoryExists(sScritpDir) then
      mkdir(PChar(sScritpDir));

    if not FileExists(sScriptFile) then
    begin
      SaveList := TStringList.Create;
      try
        SaveList.Add(';此脚为功能脚本，用于实现各种与脚本有关的功能');
        SaveList.SaveToFile(sScriptFile);
      finally
        SaveList.Free;
      End;
    end;
    if FileExists(sScriptFile) then
    begin
      g_FunctionNPC := TMerchant.Create;
      g_FunctionNPC.m_sMapName := '0';
      g_FunctionNPC.m_nCurrX := 0;
      g_FunctionNPC.m_nCurrY := 0;
      g_FunctionNPC.m_sCharName := 'QFunction';
      g_FunctionNPC.m_nFlag := 0;
      g_FunctionNPC.m_wAppr := 0;
      g_FunctionNPC.m_sFilePath := sMarket_Def;
      g_FunctionNPC.m_sScript := 'QFunction';
      g_FunctionNPC.m_boIsHide := True;
      g_FunctionNPC.m_boIsQuest := False;
      UserEngine.AddMerchant(g_FunctionNPC);
    end
    else
    begin
      g_FunctionNPC := nil;
    end;
  except
    g_FunctionNPC := nil;
  end;
end;

procedure TFrmDB.QMangeNPC();
var
  sScriptFile                           : string;
  sScritpDir                            : string;
  SaveList                              : TStringList;
  sShowFile                             : string;
begin
  try
    sScriptFile := g_Config.sEnvirDir + 'MapQuest_def\' + 'QManage.txt';
    sShowFile := ReplaceChar(sScriptFile, '\', '/');
    sScritpDir := g_Config.sEnvirDir + 'MapQuest_def\';
    if not DirectoryExists(sScritpDir) then
      mkdir(PChar(sScritpDir));

    if not FileExists(sScriptFile) then
    begin
      SaveList := TStringList.Create;
      try
          SaveList.Add(';此脚为登录脚本，人物每次登录时都会执行此脚本，所有人物初始设置都可以放在此脚本中。');
          SaveList.Add(';修改脚本内容，可用@ReloadManage命令重新加载该脚本，不须重启程序。');
          SaveList.Add('[@Login]');
          SaveList.Add('#if');
          SaveList.Add('#act');
          //    tSaveList.Add(';设置10倍杀怪经验');
          //    tSaveList.Add(';CANGETEXP 1 10');
          SaveList.Add('#say');
          SaveList.Add('乐都游戏登录脚本运行成功，欢迎进入本游戏！！！\ \');
          SaveList.Add('<关闭/@exit> \ \');
          SaveList.Add('登录脚本文件位于: \');
          SaveList.Add(sShowFile + '\');
          SaveList.Add('脚本内容请自行按自己的要求修改。');
          SaveList.SaveToFile(sScriptFile);
     finally
      SaveList.Free;
     End;
    end;
    if FileExists(sScriptFile) then
    begin
      g_ManageNPC := TMerchant.Create;
      g_ManageNPC.m_sMapName := '0';
      g_ManageNPC.m_nCurrX := 0;
      g_ManageNPC.m_nCurrY := 0;
      g_ManageNPC.m_sCharName := 'QManage';
      g_ManageNPC.m_nFlag := 0;
      g_ManageNPC.m_wAppr := 0;
      g_ManageNPC.m_sFilePath := 'MapQuest_def\';
      g_ManageNPC.m_boIsHide := True;
      g_ManageNPC.m_boIsQuest := False;
      UserEngine.QuestNPCList.Add(g_ManageNPC);
    end
    else
    begin
      g_ManageNPC := nil;
    end;
  except
    g_ManageNPC := nil;
  end;
end;

procedure TFrmDB.RobotNPC();
var
  sScriptFile                           : string;
  sScritpDir                            : string;
  tSaveList                             : TStringList;
begin
  try
    sScriptFile := g_Config.sEnvirDir + 'Robot_def\' + 'RobotManage.txt';
    sScritpDir := g_Config.sEnvirDir + 'Robot_def\';
    if not DirectoryExists(sScritpDir) then
      mkdir(PChar(sScritpDir));

    if not FileExists(sScriptFile) then
    begin
      tSaveList := TStringList.Create;
      try
          tSaveList.Add(';此脚为机器人专用脚本，用于机器人处理功能用的脚本。');
          tSaveList.SaveToFile(sScriptFile);
     finally

      tSaveList.Free;
     End;
    end;
    if FileExists(sScriptFile) then
    begin
      g_RobotNPC := TMerchant.Create;
      g_RobotNPC.m_sMapName := '0';
      g_RobotNPC.m_nCurrX := 0;
      g_RobotNPC.m_nCurrY := 0;
      g_RobotNPC.m_sCharName := 'RobotManage';
      g_RobotNPC.m_nFlag := 0;
      g_RobotNPC.m_wAppr := 0;
      g_RobotNPC.m_sFilePath := 'Robot_def\';
      g_RobotNPC.m_boIsHide := True;
      g_RobotNPC.m_boIsQuest := False;
      UserEngine.QuestNPCList.Add(g_RobotNPC);
    end
    else
    begin
      g_RobotNPC := nil;
    end;
  except
    g_RobotNPC := nil;
  end;
end;
//00489414

function TFrmDB.LoadMapQuest(): Integer;
var
  sFileName, tStr                       : string;
  tMapQuestList                         : TStringList;
  i                                     : Integer;
  s18, s1C, s20, s24, s28, s2C, s30, s34: string;
  n38, n3C                              : Integer;
  boGrouped                             : Boolean;
  Map                                   : TEnvirnoment;
begin
  Result := 1;
  sFileName := g_Config.sEnvirDir + 'MapQuest.txt';
  if FileExists(sFileName) then
  begin
    tMapQuestList := TStringList.Create;
    try
        tMapQuestList.LoadFromFile(sFileName);
        for i := 0 to tMapQuestList.Count - 1 do
        begin
          tStr := tMapQuestList.Strings[i];
          if (tStr <> '') and (tStr[1] <> ';') then
          begin
            tStr := GetValidStr3(tStr, s18, [' ', #9]);
            tStr := GetValidStr3(tStr, s1C, [' ', #9]);
            tStr := GetValidStr3(tStr, s20, [' ', #9]);
            tStr := GetValidStr3(tStr, s24, [' ', #9]);
            if (s24 <> '') and (s24[1] = '"') then
              ArrestStringEx(s24, '"', '"', s24);
            tStr := GetValidStr3(tStr, s28, [' ', #9]);
            if (s28 <> '') and (s28[1] = '"') then
              ArrestStringEx(s28, '"', '"', s28);
            tStr := GetValidStr3(tStr, s2C, [' ', #9]);
            tStr := GetValidStr3(tStr, s30, [' ', #9]);
            if (s18 <> '') and (s24 <> '') and (s2C <> '') then
            begin
              Map := g_MapManager.FindMap(s18);
              if Map <> nil then
              begin
                ArrestStringEx(s1C, '[', ']', s34);
                n38 := Str_ToInt(s34, 0);
                n3C := Str_ToInt(s20, 0);
                if CompareLStr(s30, 'GROUP', length('GROUP')) then
                  boGrouped := True
                else
                  boGrouped := False;
                if not Map.CreateQuest(n38, n3C, s24, s28, s2C, boGrouped) then
                  Result := -i;
                //nFlag,boFlag,Monster,Item,Quest,boGrouped
              end
              else
                Result := -i;
            end
            else
              Result := -i;
          end;
        end;
     finally
        tMapQuestList.Free;
     End;
  end;
  QMangeNPC();
  QFunctionNPC();
  MakeItemNPC();
  UNMakeItemNPC();
  RobotNPC();
end;
//0048784C

function TFrmDB.LoadMerchant(): Integer;
var
  sFileName, sLineText, sScript, sMapName, sX, sY, sName, sFlag, sAppr,
    sIsCalste, sCanMove, sMoveTime,tariff      : string;
  tMerchantList                         : TStringList;
  tMerchantNPC                          : TMerchant;
  i,nTariff                                     : Integer;
begin
  sFileName := g_Config.sEnvirDir + 'Merchant.txt';
  if FileExists(sFileName) then
  begin
    tMerchantList := TStringList.Create;
    try
        tMerchantList.LoadFromFile(sFileName);
        for i := 0 to tMerchantList.Count - 1 do
        begin
          sLineText := Trim(tMerchantList.Strings[i]);
          if (sLineText <> '') and (sLineText[1] <> ';') then
          begin
            sLineText := GetValidStr3(sLineText, sScript, [' ', #9]);
            sLineText := GetValidStr3(sLineText, sMapName, [' ', #9]);
            sLineText := GetValidStr3(sLineText, sX, [' ', #9]);
            sLineText := GetValidStr3(sLineText, sY, [' ', #9]);
            sLineText := GetValidStr3(sLineText, sName, [' ', #9]);
            if (sName <> '') and (sName[1] = '"') then
              ArrestStringEx(sName, '"', '"', sName);
            sLineText := GetValidStr3(sLineText, sFlag, [' ', #9]);
            sLineText := GetValidStr3(sLineText, sAppr, [' ', #9]);
            sLineText := GetValidStr3(sLineText, sIsCalste, [' ', #9]);
            sLineText := GetValidStr3(sLineText, sCanMove, [' ', #9]);
            sLineText := GetValidStr3(sLineText, sMoveTime, [' ', #9]);
           sLineText := GetValidStr3(sLineText, tariff, [' ', #9]);

           nTariff:=Str_ToInt(tariff,-1);
            if (sScript <> '') and (sMapName <> '') and (sAppr <> '') then
            begin
              tMerchantNPC := TMerchant.Create;
              tMerchantNPC.m_sScript := sScript;
              tMerchantNPC.m_sMapName := sMapName;
              tMerchantNPC.m_nCurrX := Str_ToInt(sX, 0);
              tMerchantNPC.m_nCurrY := Str_ToInt(sY, 0);
              tMerchantNPC.m_sCharName := sName;
              tMerchantNPC.m_nFlag := Str_ToInt(sFlag, 0);
              tMerchantNPC.m_wAppr := Str_ToInt(sAppr, 0);
              tMerchantNPC.m_dwMoveTime := Str_ToInt(sMoveTime, 0);
              if Str_ToInt(sIsCalste, 0) <> 0 then
                tMerchantNPC.m_boCastle := True;
              if (Str_ToInt(sCanMove, 0) <> 0) and (tMerchantNPC.m_dwMoveTime > 0)
                then
                tMerchantNPC.m_boCanMove := True;

           tMerchantNPC.TARIFF:=nTariff;
              UserEngine.AddMerchant(tMerchantNPC);             //00487B4D
            end;
          end;
        end;
     finally
       tMerchantList.Free;
     End;
  end;
  Result := 1;
end;
//004890C0

function TFrmDB.LoadMinMap: Integer;
var
  sFileName, tStr, sMapNO, sMapIdx      : string;
  tMapList                              : TStringList;
  i, nIdx                               : Integer;
begin
  Result := 0;
  sFileName := g_Config.sEnvirDir + 'MiniMap.txt';
  if FileExists(sFileName) then
  begin
    MiniMapList.Clear;
    tMapList := TStringList.Create;
    try
      tMapList.LoadFromFile(sFileName);
      for i := 0 to tMapList.Count - 1 do
      begin
        tStr := tMapList.Strings[i];
        if (tStr <> '') and (tStr[1] <> ';') then
        begin
          tStr := GetValidStr3(tStr, sMapNO, [' ', #9]);
          tStr := GetValidStr3(tStr, sMapIdx, [' ', #9]);
          nIdx := Str_ToInt(sMapIdx, 0);
          if nIdx > 0 then
            MiniMapList.AddObject(sMapNO, TObject(nIdx));
        end;
      end;
    finally
      tMapList.Free;
    End;
  end;
end;
//004867F4