localdb.~pas

M2原代码 M2原代码

              MapFlag.boINCHP:=True;
              ArrestStringEx(s34,'(',')',s38);

              MapFlag.nINCHPPOINT:=Str_ToInt(GetValidStr3(s38,s38,['/']),-1);
              MapFlag.nINCHPTIME:=Str_ToInt(s38,-1);
              Continue;
            end;
            if CompareLStr(s34,'DECGAMEGOLD',length('DECGAMEGOLD')) then begin
              MapFlag.boDECGAMEGOLD:=True;
              ArrestStringEx(s34,'(',')',s38);

              MapFlag.nDECGAMEGOLD:=Str_ToInt(GetValidStr3(s38,s38,['/']),-1);
              MapFlag.nDECGAMEGOLDTIME:=Str_ToInt(s38,-1);
              Continue;
            end;
            if CompareLStr(s34,'DECGAMEPOINT',length('DECGAMEPOINT')) then begin
              MapFlag.boDECGAMEPOINT:=True;
              ArrestStringEx(s34,'(',')',s38);

              MapFlag.nDECGAMEPOINT:=Str_ToInt(GetValidStr3(s38,s38,['/']),-1);
              MapFlag.nDECGAMEPOINTTIME:=Str_ToInt(s38,-1);
              Continue;
            end;
            if CompareLStr(s34,'INCGAMEGOLD',length('INCGAMEGOLD')) then begin
              MapFlag.boINCGAMEGOLD:=True;
              ArrestStringEx(s34,'(',')',s38);

              MapFlag.nINCGAMEGOLD:=Str_ToInt(GetValidStr3(s38,s38,['/']),-1);
              MapFlag.nINCGAMEGOLDTIME:=Str_ToInt(s38,-1);
              Continue;
            end;
            if CompareLStr(s34,'INCGAMEPOINT',length('INCGAMEPOINT')) then begin
              MapFlag.boINCGAMEPOINT:=True;
              ArrestStringEx(s34,'(',')',s38);

              MapFlag.nINCGAMEPOINT:=Str_ToInt(GetValidStr3(s38,s38,['/']),-1);
              MapFlag.nINCGAMEPOINTTIME:=Str_ToInt(s38,-1);
              Continue;
            end;
            if CompareLStr(s34,'RUNHUMAN',length('RUNHUMAN')) then begin
              MapFlag.boRUNHUMAN:= True;
              Continue;
            end;
            if CompareLStr(s34,'RUNMON',length('RUNMON')) then begin
              MapFlag.boRUNMON:= True;
              Continue;
            end;
            if CompareLStr(s34,'NEEDHOLE',length('NEEDHOLE')) then begin
              MapFlag.boNEEDHOLE := True;
              Continue;
            end;
            if CompareLStr(s34,'NORECALL',length('NORECALL')) then begin
              MapFlag.boNORECALL := True;
              Continue;
            end;
            if CompareLStr(s34,'NOGUILDRECALL',length('NOGUILDRECALL')) then begin
              MapFlag.boNOGUILDRECALL := True;
              Continue;
            end;
            if CompareLStr(s34,'NODEARRECALL',length('NODEARRECALL')) then begin
              MapFlag.boNODEARRECALL := True;
              Continue;
            end;
            if CompareLStr(s34,'NOMASTERRECALL',length('NOMASTERRECALL')) then begin
              MapFlag.boNOMASTERRECALL := True;
              Continue;
            end;
            if CompareLStr(s34,'NORANDOMMOVE',length('NORANDOMMOVE')) then begin
              MapFlag.boNORANDOMMOVE := True;
              Continue;
            end;
            if CompareLStr(s34,'NODRUG',length('NODRUG')) then begin
              MapFlag.boNODRUG := 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;
          {
          if EnvirList.AddMapInfo(s40,
                                  s48,
                                  nServerIndex,
                                  n10,
                                  boSAFE,
                                  boFIGHT,
                                  boFIGHT3,
                                  boDARK,
                                  boDAY,
                                  boQUIZ,
                                  boNORECONNECT,
                                  boNEEDHOLE,
                                  boNORECALL,
                                  boNORANDOMMOVE,
                                  boNODRUG,
                                  boMINE,
                                  boNOPOSITIONMOVE,
                                  sReConnectMap,
                                  QuestNPC,
                                  nNEEDSETONFlag,
                                  nNeedONOFF) = 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;
    SaveList.Add(';此脚为功能脚本，用于实现各种与脚本有关的功能');
    SaveList.SaveToFile(sScriptFile);
    SaveList.Free;
  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;
    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);
    SaveList.Free;
  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;
    tSaveList.Add(';此脚为机器人专用脚本，用于机器人处理功能用的脚本。');
    tSaveList.SaveToFile(sScriptFile);
    tSaveList.Free;
  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;
      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;
      tMapQuestList.Free;
    end;
    QMangeNPC();
    QFunctionNPC();
    RobotNPC();
end;
//0048784C
function TFrmDB.LoadMerchant(): Integer;
var
  sFileName,sLineText,sScript,sMapName,sX,sY,sName,sFlag,sAppr,sIsCalste,sCanMove,sMoveTime:String;
  tMerchantList:TStringList;
  tMerchantNPC:TMerchant;
  i:Integer;
begin
    sFileName:=g_Config.sEnvirDir + 'Merchant.txt';
    if FileExists(sFileName) then begin
      tMerchantList:=TStringList.Create;
      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]);

          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;
            UserEngine.AddMerchant(tMerchantNPC); //00487B4D
          end;
        end;
      end;
      tMerchantList.Free;
    end;
    Result:= 1;
end;
//004890C0
function TFrmDB.LoadMinMap: Integer;
var
  sFileName,tStr,sMapNO,sMapIdx:String;
  tMapList:TStringList;
  i,nIdx:Integer;
begin