objbase.pas

传奇源代码的delphi版本

    procedure ClientMerchantQuerySellPrice(nParam1,nMakeIndex:Integer;sMsg: String; nAmount:Integer);
    procedure ClientUserSellItem(nParam1,nMakeIndex:Integer;sMsg: String; nAmount:Integer);
    procedure ClientUserBuyItem(nIdent,nParam1,nInt,nZz:Integer;sMsg: String);
    procedure ClientQueryRepairCost(nParam1,nInt:Integer;sMsg: String);
    procedure ClientRepairItem(nParam1,nInt:Integer;sMsg: String);
    procedure ClientTradeGT(nParam1:Integer);
    procedure ClientOpenShop(nParam1:integer;sData:String);
    procedure ClientRequestGameShopList;
    {lover}
    procedure ChangeAvailability;
    procedure RequestRelay;
    procedure SendRequestRelay(name:string);
    procedure SendRequestFail(name:string);
    procedure RequestDivorce;
    procedure OpenLoverWindow;
    {}
    procedure ClientGroupClose();
    procedure ClientCreateGroup(sHumName:String);
    procedure ClientAddGroupMember(sHumName:String);
    procedure ClientDelGroupMember(sHumName:String);
    procedure ClientDealTry(sHumName:String);
    procedure ClientAddDealItem(nItemIdx:integer;sItemName:String; nAmount:Integer);
    procedure ClientDelDealItem(nItemIdx:integer;sItemName:String);
    procedure ClientCancelDeal();
    procedure ClientChangeDealGold(nGold:Integer);
    procedure ClientDealEnd();
    procedure ClientCancelRefine();
    procedure ClientStorageItem(NPC:TObject;nItemIdx:Integer;sMsg:String; nAmount:Integer);
    procedure ClientTakeBackStorageItem(NPC:TObject;nItemIdx:Integer;sMsg:String);
    procedure ConsignItem(NPC:TObject;nItemIdx:Integer;sMsg:String);
    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);
    procedure ClientSendFriendsList();
    procedure ClientFriendStatusChanged(sPlayerName: String;Status: Byte);
    procedure ClientFriendChangeState(Online: Boolean = True);
    procedure ClientAddFriend(sPlayerName:String;BlackList:Byte);
    procedure ClientDelFriend(sPlayerName:String);
    procedure ClientReqAddFriend(sPlayerName:String;BlackList:Byte);
    procedure ClientReqDelFriend(sPlayerName:String);
    procedure ClientUpdateMemoFriend(body:String);
    procedure ClientReqMemoFriend(sFriendName:String);

    procedure ClientRequestMailList(ProcessMsg: pTProcessMessage);
    procedure ClientSendMail(ProcessMsg: pTProcessMessage);
    procedure ClientReadMail(ProcessMsg: pTProcessMessage);
    procedure ClientDeleteMail(ProcessMsg: pTProcessMessage);
    procedure ClientSetMailStatus(ProcessMsg: pTProcessMessage);
    procedure ClientRequestBlockList(ProcessMsg: pTProcessMessage);
    procedure ClientAddBlock(ProcessMsg: pTProcessMessage);
    procedure ClientDelBlock(ProcessMsg: pTProcessMessage);

    procedure ClientRequestGTList(ProcessMsg: pTProcessMessage);
    procedure ClientRequestDecoList(ProcessMsg: pTProcessMessage);
    procedure ClientBuyGT(ProcessMsg:pTProcessMessage);
    procedure ClientBuyDecoItem(ProcessMsg:pTProcessMessage);
    procedure ClientRequestBBSList(ProcessMsg: pTProcessMessage);
    procedure ClientRequestBBSMsg(ProcessMsg: pTProcessMessage);
    procedure ClientPostBBSMsg(ProcessMsg: pTProcessMessage;Body:String);
    procedure ClientDeleteBBSMsg(ProcessMsg: pTProcessMessage);

    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;UserItem:pTUserItem):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);
    function  AllowFireHitSkill():Boolean;
    function  AllowTwinHitSkill():Boolean;
    function  RandomOreDura: integer;
    procedure MakeMine();
    procedure MakeMine2();
    procedure MakeMine3();

    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 SendAttatckMode();
    procedure SendAdjustBonus();
    procedure SendChangeGuildName();
    procedure SendMapDescription();
    procedure SendGoldInfo(boSendName:Boolean);

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

    function  CancelGroup():Boolean;

    function  DoMotaebo(nDir:Byte;nMagicLevel:Integer):Boolean;
    function  DoSpell(UserMagic:pTUserMagic;nTargetX,nTargetY:Integer;BaseObject:TBaseObject):boolean;
    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  GemItem(Gem:Integer;ItemIdx:Integer):integer;
    procedure GemItemFail(UserItem:pTUserItem;msg:String);
    function  ItemRepair(Gem:Integer;ItemIdx:Integer):integer;
    procedure CraftFailed(datat:string);
    procedure CreateGem(datat:string);
    function  GetMyStatus():Integer;
    function  IncGold(tGold:Integer):Boolean;
    function  IsEnoughBag():Boolean;
    function  IsAddWeightAvailable(nWeight:Integer):Boolean;
    procedure SendAddItem(UserItem:pTUserItem );
    procedure SendAddStorage(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
    function  GetSpellPoint(UserMagic:pTUserMagic):Integer;
    procedure MakeSaveRcd(var HumanRcd:THumData);
    procedure DealCancel();
    procedure DealCancelA();
    procedure RefineCancel();
    function  GetShowName():String;override;
    procedure GetBackDealItems();
    procedure GetBackRefineItems();
    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);
    procedure RecallGuild();
    function MoveToGT(Number:Integer):Boolean;
  //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);