usrengn.pas

M2原代码 M2原代码

               iname := '';
               ////if (BoUniqueItemEvent) and (not mon.BoAnimal) then begin
               ////   if GetUniqueEvnetItemName (iname, numb) then begin
                     //numb; //iname
               ////   end;
               ////end;
               if iname = '' then
                  iname := MonItem.ItemName;

               New(UserItem);
               if CopyToUserItemFromName (iname, UserItem) then begin
                  UserItem.Dura := Round ((UserItem.DuraMax / 100) * (20+Random(80)));

                  StdItem:=GetStdItem(UserItem.wIndex);
                  ////if pstd <> nil then
                  ////   if pstd.StdMode = 50 then begin  //惑前鼻
                  ////      pu.Dura := numb;
                  ////   end;
                  if Random(g_Config.nMonRandomAddValue{10}) = 0 then
                     RandomUpgradeItem (UserItem);
                  if StdItem.StdMode in [15,19,20,21,22,23,24,26] then begin
                    if (StdItem.Shape = 130) or (StdItem.Shape = 131) or (StdItem.Shape = 132) then begin
                      GetUnknowItemValue(UserItem);
                    end;                      
                  end;                      
                  mon.m_ItemList.Add(UserItem)
               end else
                  Dispose(UserItem);
            end;
         end;
      end;
   end;
   Result:= 1;
end;
procedure TUserEngine.RandomUpgradeItem(Item:PTUserItem);//004AD0C8
var
  StdItem:pTStdItem;
begin
  StdItem:=GetStdItem(Item.wIndex);
  if StdItem = nil then exit;
  case StdItem.StdMode of
    5,6: ItemUnit.RandomUpgradeWeapon(Item); //004AD14A
    10,11: ItemUnit.RandomUpgradeDress(Item);
    19: ItemUnit.RandomUpgrade19(Item);
    20,21,24: ItemUnit.RandomUpgrade202124(Item);
    26: ItemUnit.RandomUpgrade26(Item);
    22: ItemUnit.RandomUpgrade22(Item);
    23: ItemUnit.RandomUpgrade23(Item);
    15: ItemUnit.RandomUpgradeHelMet(Item);
  end;
end;

procedure TUserEngine.GetUnknowItemValue(Item: PTUserItem);//004AD1D4
var
  StdItem:pTStdItem;
begin
  StdItem:=GetStdItem(Item.wIndex);
  if StdItem = nil then exit;
  case StdItem.StdMode of    
    15: ItemUnit.UnknowHelmet(Item);
    22,23: ItemUnit.UnknowRing(Item);
    24,26: ItemUnit.UnknowNecklace(Item);
  end;
end;

//004AC404
function TUserEngine.CopyToUserItemFromName(sItemName:String;Item:pTUserItem):Boolean;
var
  I: Integer;
  StdItem:pTStdItem;
begin
  Result:=False;
    if sItemName <> '' then begin
      for I := 0 to StdItemList.Count - 1 do begin
        StdItem:=StdItemList.Items[i];
        if CompareText(StdItem.Name,sItemName) = 0 then begin
          FillChar(Item^,SizeOf(TUserItem),#0);
          Item.wIndex:=i + 1;
          Item.MakeIndex:=GetItemNumber();
          Item.Dura:=StdItem.DuraMax;
          Item.DuraMax:=StdItem.DuraMax;
          Result:=True;
          break;
        end;
      end;
    end;
end;

procedure TUserEngine.ProcessUserMessage(PlayObject:TPlayObject;DefMsg:pTDefaultMessage;Buff:PChar); //004B232C
var
  sMsg:String;
ResourceString
  sExceptionMsg = '[Exception] TUserEngine::ProcessUserMessage..';
begin
  if (DefMsg = nil) then exit;
  try
    if Buff = nil then sMsg:=''
    else sMsg:=StrPas(Buff);

    case DefMsg.Ident of
      CM_SPELL: begin //3017
        //if PlayObject.GetSpellMsgCount <=2 then  //如果队排里有超过二个魔法操作，则不加入队排
        if g_Config.boSpellSendUpdateMsg then begin //使用UpdateMsg 可以防止消息队列里有多个操作
          PlayObject.SendUpdateMsg(PlayObject,
                            DefMsg.Ident,
                            DefMsg.Tag,
                            LoWord(DefMsg.Recog),
                            HiWord(DefMsg.Recog),
                            MakeLong(DefMsg.Param,
                            DefMsg.Series),
                            '');
        end else begin
          PlayObject.SendMsg(PlayObject,
                            DefMsg.Ident,
                            DefMsg.Tag,
                            LoWord(DefMsg.Recog),
                            HiWord(DefMsg.Recog),
                            MakeLong(DefMsg.Param,
                            DefMsg.Series),
                            '');
        end;
      end;

      CM_QUERYUSERNAME: begin//80
        PlayObject.SendMsg(PlayObject,DefMsg.Ident,0,DefMsg.Recog,DefMsg.Param{x},DefMsg.Tag{y},'');
      end;

      CM_DROPITEM,
      CM_TAKEONITEM,
      CM_TAKEOFFITEM,
      CM_1005,

      CM_MERCHANTDLGSELECT,
      CM_MERCHANTQUERYSELLPRICE,
      CM_USERSELLITEM,
      CM_USERBUYITEM,
      CM_USERGETDETAILITEM,

      CM_CREATEGROUP,
      CM_ADDGROUPMEMBER,
      CM_DELGROUPMEMBER,
      CM_USERREPAIRITEM,
      CM_MERCHANTQUERYREPAIRCOST,
      CM_DEALTRY,
      CM_DEALADDITEM,
      CM_DEALDELITEM,

      CM_USERSTORAGEITEM,
      CM_USERTAKEBACKSTORAGEITEM,
//      CM_WANTMINIMAP,
      CM_USERMAKEDRUGITEM,

//      CM_GUILDHOME,
      CM_GUILDADDMEMBER,
      CM_GUILDDELMEMBER,
      CM_GUILDUPDATENOTICE,
      CM_GUILDUPDATERANKINFO: begin
        PlayObject.SendMsg(PlayObject,
                          DefMsg.Ident,
                          DefMsg.Series,
                          DefMsg.Recog,
                          DefMsg.Param,
                          DefMsg.Tag,
                          DecodeString(sMsg));
      end;
      CM_PASSWORD,
      CM_CHGPASSWORD,
      CM_SETPASSWORD: begin
        PlayObject.SendMsg(PlayObject,
                          DefMsg.Ident,
                          DefMsg.Param,
                          DefMsg.Recog,
                          DefMsg.Series,
                          DefMsg.Tag,
                          DecodeString(sMsg));
      end;
      CM_ADJUST_BONUS: begin //1043
        PlayObject.SendMsg(PlayObject,
                          DefMsg.Ident,
                          DefMsg.Series,
                          DefMsg.Recog,
                          DefMsg.Param,
                          DefMsg.Tag,
                          sMsg);
      end;
      CM_HORSERUN,
      CM_TURN,
      CM_WALK,
      CM_SITDOWN,
      CM_RUN,
      CM_HIT,
      CM_HEAVYHIT,
      CM_BIGHIT,

      CM_POWERHIT,
      CM_LONGHIT,
      CM_CRSHIT,
      CM_TWNHIT,
      CM_WIDEHIT,
      CM_FIREHIT: begin
        if g_Config.boActionSendActionMsg then begin //使用UpdateMsg 可以防止消息队列里有多个操作
          PlayObject.SendActionMsg(PlayObject,
                          DefMsg.Ident,
                          DefMsg.Tag,
                          LoWord(DefMsg.Recog),{x}
                          HiWord(DefMsg.Recog),{y}
                          0,
                          '');
        end else begin
          PlayObject.SendMsg(PlayObject,
                          DefMsg.Ident,
                          DefMsg.Tag,
                          LoWord(DefMsg.Recog),{x}
                          HiWord(DefMsg.Recog),{y}
                          0,
                          '');
        end;
      end;
      CM_SAY: begin
        PlayObject.SendMsg(PlayObject,CM_SAY,0,0,0,0,DecodeString(sMsg));
      end;
      else begin
        PlayObject.SendMsg(PlayObject,
                          DefMsg.Ident,
                          DefMsg.Series,
                          DefMsg.Recog,
                          DefMsg.Param,
                          DefMsg.Tag,
                          sMsg);
      end;
    end;
    if PlayObject.m_boReadyRun then begin
      case DefMsg.Ident of
        CM_TURN,CM_WALK,CM_SITDOWN,CM_RUN,CM_HIT,CM_HEAVYHIT,CM_BIGHIT,
        CM_POWERHIT,CM_LONGHIT,
        CM_WIDEHIT,CM_FIREHIT,CM_CRSHIT,CM_TWNHIT: begin
          Dec(PlayObject.m_dwRunTick,100);
        end;
      end;
    end;      
  except
    MainOutMessage(sExceptionMsg);
  end;
end;
//004AF728
procedure TUserEngine.SendServerGroupMsg(nCode, nServerIdx: Integer;
  sMsg: String);
begin
  if nServerIndex = 0 then begin
    FrmSrvMsg.SendSocketMsg(IntToStr(nCode) + '/' + EncodeString(IntToStr(nServerIdx)) + '/' + EncodeString(sMsg));
  end else begin
    FrmMsgClient.SendSocket(IntToStr(nCode) + '/' + EncodeString(IntToStr(nServerIdx)) + '/' + EncodeString(sMsg));
  end;    
end;
function TUserEngine.AddBaseObject(sMapName:String;nX,nY:Integer;nMonRace:Integer;sMonName:String):TBaseObject;//004AD56C
var
  Map:TEnvirnoment;
  Cert:TBaseObject;
  n1C,n20,n24:Integer;
  p28:Pointer;
begin
  Result:=nil;
  Cert:=nil;
  
  Map:=g_MapManager.FindMap(sMapName);
  if Map = nil then exit;    
  case nMonRace of

    11: Cert:=TSuperGuard.Create;
    20: Cert:=TArcherPolice.Create;
    51: begin
      Cert:=TMonster.Create;
      Cert.m_boAnimal:=True;
      Cert.m_nMeatQuality:=Random(3500) + 3000;
      Cert.m_nBodyLeathery:=50;
    end;
    52: begin
      if Random(30) = 0 then begin
        Cert:=TChickenDeer.Create;
        Cert.m_boAnimal:=True;
        Cert.m_nMeatQuality:=Random(20000) + 10000;
        Cert.m_nBodyLeathery:=150;
      end else begin
        Cert:=TMonster.Create;
        Cert.m_boAnimal:=True;
        Cert.m_nMeatQuality:=Random(8000) + 8000;
        Cert.m_nBodyLeathery:=150;
      end;
    end;
    53: begin
      Cert:=TATMonster.Create;
      Cert.m_boAnimal:=True;
      Cert.m_nMeatQuality:=Random(8000) + 8000;
      Cert.m_nBodyLeathery:=150;
    end;
    55: begin
      Cert:=TTrainer.Create;
      Cert.m_btRaceServer:=55;
    end;
    80: Cert:=TMonster.Create;
    81: Cert:=TATMonster.Create;
    82: Cert:=TSpitSpider.Create;
    83: Cert:=TSlowATMonster.Create;
    84: Cert:=TScorpion.Create;
    85: Cert:=TStickMonster.Create;
    86: Cert:=TATMonster.Create;
    87: Cert:=TDualAxeMonster.Create;
    88: Cert:=TATMonster.Create;
    89: Cert:=TATMonster.Create;
    90: Cert:=TGasAttackMonster.Create;
    91: Cert:=TMagCowMonster.Create;
    92: Cert:=TCowKingMonster.Create;
    93: Cert:=TThornDarkMonster.Create;
    94: Cert:=TLightingZombi.Create;
    95: begin
      Cert:=TDigOutZombi.Create;
      if Random(2) = 0 then Cert.bo2BA:=True;
    end;
    96: begin
      Cert:=TZilKinZombi.Create;
      if Random(4) = 0 then Cert.bo2BA:=True;
    end;
    97: begin
      Cert:=TCowMonster.Create;
      if Random(2) = 0 then Cert.bo2BA:=True;
    end;

    100: Cert:=TWhiteSkeleton.Create;
    101: begin
      Cert:=TScultureMonster.Create;
      Cert.bo2BA:=True;
    end;
    102: Cert:=TScultureKingMonster.Create;
    103: Cert:=TBeeQueen.Create;
    104: Cert:=TArcherMonster.Create;
    105: Cert:=TGasMothMonster.Create;//楔蛾
    106: Cert:=TGasDungMonster.Create;
    107: Cert:=TCentipedeKingMonster.Create;
    110: Cert:=TCastleDoor.Create;
    111: Cert:=TWallStructure.Create;
    112: Cert:=TArcherGuard.Create;
    113: Cert:=TElfMonster.Create;
    114: Cert:=TElfWarriorMonster.Create;
    115: Cert:=TBigHeartMonster.Create;
    116: Cert:=TSpiderHouseMonster.Create;
    117: Cert:=TExplosionSpider.Create;
    118: Cert:=THighRiskSpider.Create;
    119: Cert:=TBigPoisionSpider.Create;
    120: Cert:=TSoccerBall.Create;
    200: Cert:=TElectronicScolpionMon.Create;
  en