objbase.pas

翎风世界..传奇服务端..DELPHI源代码 包括DBServer,LogDataServer,LoginGate,LoginSrv,M2Server等..内容齐全.

    function  ClientGetButchItem(BaseObject:TBaseObject;nX,nY:Integer;btDir:Byte;var dwDelayTime:LongWord):Boolean;
    procedure ClientChangeMagicKey(nSkillIdx,nKey:integer);
    procedure ClientClickNPC(NPC:Integer);
    procedure ClientMerchantDlgSelect(nParam1: Integer;sMsg: String);
    procedure ClientMerchantQuerySellPrice(nParam1,nMakeIndex:Integer;sMsg: String);
    procedure ClientUserSellItem(nParam1,nMakeIndex:Integer;sMsg: String);
    procedure ClientUserBuyItem(nIdent,nParam1,nInt,nZz:Integer;sMsg: String);
    procedure ClientQueryRepairCost(nParam1,nInt:Integer;sMsg: String);
    procedure ClientRepairItem(nParam1,nInt:Integer;sMsg: String);

    procedure ClientGroupClose();
    procedure ClientCreateGroup(sHumName:String);
    procedure ClientAddGroupMember(sHumName:String);
    procedure ClientDelGroupMember(sHumName:String);
    procedure ClientDealTry(sHumName:String);
    procedure ClientAddDealItem(nItemIdx:integer;sItemName:String);
    procedure ClientDelDealItem(nItemIdx:integer;sItemName:String);
    procedure ClientCancelDeal();
    procedure ClientChangeDealGold(nGold:Integer);
    procedure ClientDealEnd();
    procedure ClientStorageItem(NPC:TObject;nItemIdx:Integer;sMsg:String);
    procedure ClientTakeBackStorageItem(NPC:TObject;nItemIdx:Integer;sMsg:String);
    procedure ClientGetMinMap();
    procedure ClientMakeDrugItem(NPC:TObject;nItemName:String);
    procedure ClientOpenGuildDlg();
    procedure ClientGuildHome();
    procedure ClientGuildMemberList();
    procedure ClientGuildAddMember(sHumName:String);
    procedure ClientGuildDelMember(sHumName:String);
    procedure ClientGuildUpdateNotice(sNotict:String);
    procedure ClientGuildUpdateRankInfo(sRankInfo:String);
    procedure ClientGuildAlly();
    procedure ClientGuildBreakAlly(sGuildName:String);
    procedure ClientAdjustBonus(nPoint:Integer;sMsg:String);
    function  ClientChangeDir(wIdent:Word;nX,nY,nDir:Integer;var dwDelayTime:LongWord):Boolean;
    function  ClientWalkXY(wIdent:Word;nX, nY:Integer;boLateDelivery:Boolean;var dwDelayTime:LongWord): Boolean;

    function  ClientHorseRunXY(wIdent:Word;nX,nY:Integer;boLateDelivery:Boolean;var dwDelayTime:LongWord):Boolean;
    function  ClientRunXY(wIdent:Word;nX,nY:Integer;nFlag:Integer;var dwDelayTime:LongWord):Boolean;
    function  ClientHitXY(wIdent:Word;nX,nY,nDir:Integer;boLateDelivery:Boolean;var dwDelayTime:LongWord):Boolean;
    function  ClientSitDownHit(nX,nY,nDir:Integer;var dwDelayTime:LongWord):Boolean;
    function  ClientSpellXY(wIdent:Word;nKey:Integer;nTargetX, nTargetY:Integer;TargeTBaseObject: TBaseObject;boLateDelivery:Boolean;var dwDelayTime:LongWord):Boolean;


    function  CheckTakeOnItems(nWhere: Integer;var StdItem:TStdItem):Boolean;
    function  GetUserItemWeitht(nWhere: Integer):Integer;

    procedure SendDelDealItem(UserItem:pTUserItem);
    procedure SendAddDealItem(UserItem:pTUserItem);



    procedure OpenDealDlg(BaseObject:TBaseObject);
    function  EatItems(StdItem:TItem):Boolean;
    function  EatUseItems(nShape:integer):Boolean;
    function  ReadBook(StdItem:TItem):Boolean;
    function  DayBright():Byte;
    procedure  BaseObjectMove(sMap,sX,sY:String);
    procedure  MoveToHome();
    function  RepairWeapon():Boolean;
    function  SuperRepairWeapon():Boolean;
    function  WinLottery():Boolean;
    procedure ChangeServerMakeSlave(SlaveInfo:pTSlaveInfo);
    function  WeaptonMakeLuck():Boolean;
    function  PileStones(nX,nY:Integer):Boolean;
    function  RunTo(btDir: Byte;boFlag:boolean;nDestX,nDestY:Integer):Boolean;
    procedure ThrustingOnOff(boSwitch:Boolean);
    procedure HalfMoonOnOff(boSwitch: Boolean);
    procedure RedHalfMoonOnOff(boSwitch: Boolean);
    procedure SkillCrsOnOff(boSwitch: Boolean);
    procedure SkillTwinOnOff(boSwitch: Boolean);
    procedure Skill43OnOff(boSwitch: Boolean);
    function  AllowFireHitSkill():Boolean;
    function  AllowTwinHitSkill():Boolean;
    procedure MakeMine();
    procedure MakeMine2();

    function  GetRangeHumanCount():Integer;
    procedure GetHomePoint();
    function  GetStartPoint(var StartPoint:pTStartPoint):Boolean;

    procedure MobPlace(sX, sY, sMonName, sCount: String);


    procedure LogonTimcCost;
    procedure SendNotice();
    procedure SendLogon();
    procedure SendServerConfig();
    procedure SendServerStatus();

//    procedure SendUserName(PlayObject:TPlayObject;nX,nY:Integer);
    function  CretInNearXY(TargeTBaseObject:TBaseObject;nX,nY:Integer):Boolean;
    procedure ClientQueryUserName(target: TBaseObject; x, y: integer);
    procedure SendUseitems();
    procedure SendUseMagic();
    procedure SendSaveItemList(nBaseObject:Integer);
    procedure SendDelItemList(ItemList:TStringList);
    procedure SendAdjustBonus();
    procedure SendChangeGuildName();
    procedure SendMapDescription();
    procedure SendGoldInfo(boSendName:Boolean);

    procedure ShowMapInfo(sMap, sX, sY: String);

    function  CancelGroup():Boolean;
    function  GetSpellPoint(UserMagic:pTUserMagic):Integer;
    function  DoMotaebo(nDir:Byte;nMagicLevel:Integer):Boolean;
    function  DoSpell(UserMagic:pTUserMagic;nTargetX,nTargetY:Integer;BaseObject:TBaseObject):boolean;
    procedure GetOldAbil(var OAbility:TOAbility);
    procedure ReadAllBook;
    function  CheckItemsNeed(StdItem:TItem):Boolean;
    function  CheckItemBindUse(UserItem:pTUserItem):Boolean;
    function  CheckActionStatus(wIdent:Word;var dwDelayTime:LongWord):Boolean;
    procedure RecalcAdjusBonus;
    procedure CheckMarry();
    procedure CheckMaster();
    procedure RefMyStatus;
    procedure ProcessClientPassword(ProcessMsg: pTProcessMessage);
    function CheckDenyLogon: Boolean;
    procedure ProcessSpiritSuite;
    function HorseRunTo(btDir: Byte; boFlag: boolean): Boolean;
  public
    constructor Create();override;
    destructor Destroy; override;
    procedure SendSocket(DefMsg: pTDefaultMessage; sMsg: String);virtual;
    procedure SendDefMessage(wIdent: Word; nRecog: Integer; nParam, nTag, nSeries: Word; sMsg: String);
    procedure SearchViewRange();override;
    procedure UpdateVisibleGay(BaseObject:TBaseObject);override;
    procedure PKDie(PlayObject: TPlayObject);
    procedure GameTimeChanged();
    procedure RunNotice();
    function  GetMyStatus():Integer;
    function  IncGold(tGold:Integer):Boolean;
    function  IsEnoughBag():Boolean;
    function  IsAddWeightAvailable(nWeight:Integer):Boolean;
    procedure SendAddItem(UserItem:pTUserItem );
    procedure SendDelItems(UserItem:pTUserItem);
    procedure Whisper(whostr, saystr: string);
    function  IsBlockWhisper(sName:String):Boolean;
    function  QuestCheckItem(sItemName:String;var nCount:Integer;var nParam:Integer;var nDura:Integer):pTUserItem;
    function  QuestTakeCheckItem(CheckItem:pTUserItem):Boolean;
    procedure GainExp(dwExp:LongWord);
    procedure GetExp(dwExp:LongWord);
    procedure WinExp(dwExp:LongWord);
    function  DecGold(nGold:Integer):Boolean;
    procedure Run();override;
    function  Operate(ProcessMsg:pTProcessMessage):Boolean;override;
    procedure RecalcAbilitys();override; //FFF7
    procedure MakeSaveRcd(var HumanRcd:THumDataInfo);
    procedure DealCancel();
    procedure DealCancelA();
    function  GetShowName():String;override;
    procedure GetBackDealItems();
    procedure Disappear();override;//FFFD
    procedure GoldChange(sChrName:String;nGold:Integer);
    procedure ProcessUserLineMsg(sData:String);
    procedure ProcessSayMsg(sData:String);override;
    procedure ClearStatusTime();
    procedure UserLogon();virtual;
    procedure RefRankInfo(nRankNo:Integer;sRankName:string);
    procedure RefUserState;
    procedure SendGroupMembers();
    procedure JoinGroup(PlayObject:TPlayObject);
    function  GeTBaseObjectInfo():String;
    function  GetHitMsgCount():Integer;
    function  GetSpellMsgCount():Integer;
    function  GetWalkMsgCount():Integer;
    function  GetRunMsgCount():Integer;
    function  GetTurnMsgCount():Integer;
    function  GetSiteDownMsgCount():Integer;
    function  GetDigUpMsgCount():Integer;
    procedure SetScriptLabel(sLabel: String);
    procedure GetScriptLabel(sMsg:String);
    function  LableIsCanJmp(sLabel:String):Boolean;
    function  GetMyInfo():String;
    procedure MakeGhost;override;
    procedure ScatterBagItems(ItemOfCreat:TBaseObject); override;
    procedure DropUseItems(BaseObject:TBaseObject); override;
    procedure RecallHuman(sHumName:String);
    procedure SendAddMagic(UserMagic:pTUserMagic);
    procedure SendDelMagic(UserMagic:pTUserMagic);
    procedure ReQuestGuildWar(sGuildName:String);
    procedure SendUpdateItem(UserItem:pTUserItem);
    procedure GetBagUseItems(var btDc:Byte;var btSc:Byte;var btMc:Byte;var btDura:Byte);

  //protected
    procedure CmdEndGuild();
    procedure CmdMemberFunction(sCmd,sParam:String);
    procedure CmdMemberFunctionEx(sCmd,sParam:String);

    procedure CmdSearchDear(sCmd,sParam:String);
    procedure CmdSearchMaster(sCmd,sParam:String);
    procedure CmdDearRecall(sCmd,sParam:String);
    procedure CmdMasterRecall(sCmd,sParam:String);
    procedure CmdSbkDoorControl(sCmd,sParam:String);

    procedure CmdClearBagItem(Cmd:pTGameCmd;sHumanName:String);
    procedure CmdShowUseItemInfo(Cmd:pTGameCmd;sHumanName:String);

    procedure CmdBindUseItem(Cmd:pTGameCmd;sHumanName,sItem,sType:String);
    procedure CmdUnBindUseItem(Cmd:pTGameCmd;sHumanName,sItem,sType:String);
    procedure CmdLockLogin(Cmd:pTGameCmd);
    procedure CmdViewDiary(sCMD:String;nFlag:Integer);
    procedure CmdUserMoveXY(sCMD,sX,sY:String);
    procedure CmdSearchHuman(sCMD,sHumanName:String);
    procedure CmdGroupRecall(sCMD:String);
    procedure CmdAllowGroupReCall(sCmd,sParam:String);

    procedure CmdGuildRecall(sCmd,sParam:String);


    procedure CmdChangeAttackMode(nMode:Integer;sParam1,sParam2,sParam3,sParam4,sParam5,sParam6,sParam7:String);
    procedure CmdChangeSalveStatus();
    procedure CmdTakeOnHorse(sCmd,sParam:String);
    procedure CmdTakeOffHorse(sCmd,sParam:String);


    procedure CmdPrvMsg(sCmd:String;nPermission:Integer;sHumanName:String);
    procedure CmdHumanLocal(Cmd:pTGameCmd;sHumanName:String);
    procedure CmdMapMove(Cmd:pTGameCmd;sMapName:String);

    procedure CmdPositionMove(Cmd:pTGameCmd;sMapName,sX,sY:String);

    procedure CmdHumanInfo(Cmd:pTGameCmd;sHumanName:String);
    procedure CmdReLoadAdmin(sCmd:String);
    procedure CmdReloadNpc(sParam:String);
    procedure CmdReloadManage(Cmd:pTGameCmd;sParam:String);
    procedure CmdReloadRobotManage;
    procedure CmdReloadRobot;
    procedure CmdReloadMonItems();
    procedure CmdAdjustExp(Human:TPlayObject;nExp:Integer);
    procedure CmdAddGuild(Cmd:pTGameCmd;sGuildName,sGuildChief:String);
    procedure CmdDelGuild(Cmd:pTGameCmd;sGuildName:String);
    procedure CmdGuildWar(sCmd,sGuildName:String);
    procedure CmdChangeSabukLord(Cmd:pTGameCmd;sCastleName,sGuildName:String;boFlag:Boolean);
    procedure CmdForcedWallconquestWar(Cmd:pTGameCmd;sCastleName:String);
    procedure CmdOPTraining(sHumanName,sSkillName:String;nLevel:Integer);
    procedure CmdOPDeleteSkill(sHumanName,sSkillName:String);
    procedure CmdReloadGuildAll();
    procedure CmdReAlive(Cmd:pTGameCmd;sHumanName:String);
    procedure CmdAdjuestLevel(Cmd:pTGameCmd;sHumanName:String;nLevel:Integer);
    procedure CmdAdjuestExp(Cmd:pTGameCmd;sHumanName,sExp:String);

    procedure CmdBackStep(sCmd:String;nType,nCount:Integer);
    procedure CmdFreePenalty(Cmd:pTGameCmd;sHumanName:String);
    procedure CmdPKpoint(Cmd:pTGameCmd;sHumanName:String);
    procedure CmdIncPkPoint(Cmd:pTGameCmd;sHumanName:String;nPoint:Integer);
    procedure CmdHunger(sCmd,sHumanName:String;nHungerPoint:Integer);
    procedure CmdHair(Cmd:pTGameCmd;sHumanName:String;nHair:Integer);
    procedure CmdTrainingSkill(Cmd:pTGameCmd;sHumanName,sSkillName:String;nLevel:Integer);
    procedure CmdTrainingMagic(Cmd:pTGameCmd;sHumanName,sSkillName:String;nLevel:Integer);

    procedure CmdDelSkill(Cmd:pTGameCmd;sHumanName,sSkillName:String);
    procedure CmdDeleteItem(Cmd:pTGameCmd;sHumanName,sItemName:String;nCount:Integer);
    procedure CmdClearMission(Cmd:pTGameCmd;sHumanName:String);

    procedure CmdTraining(sSkillName:String;nLevel:Integer);
    procedure CmdChangeJob(Cmd:pTGameCmd;sHumanName,sJobName:String);
    procedure CmdChangeGender(Cmd:pTGameCmd;sHumanName,sSex:String);
    procedure CmdMission(Cmd:pTGameCmd;sX,sY:String);
    procedure CmdMobPlace(Cmd:pTGameCmd;sX,sY,sMonName,sCount:String);
    procedure CmdMobLevel(Cmd:pTGameCmd;Param:String);
    procedure CmdMobCount(Cmd:pTGameCmd;sMapName:String);
    procedure CmdHumanCount(Cmd:pTGameCmd;sMapName:String);