objbase.~pas

M2原代码 M2原代码

    procedure SendAddDealItem(UserItem:pTUserItem);



    procedure OpenDealDlg(BaseObject:TBaseObject);
    function  EatItems(StdItem:pTStdItem):Boolean;
    function  EatUseItems(nShape:integer):Boolean;
    function  ReadBook(StdItem:pTStdItem):Boolean;
    function  DayBright():Byte;
    procedure  BaseObjectMove(sMap,sX,sY:String);
    procedure  MoveToHome();
    function  RepairWeapon():Boolean;
    function  SuperRepairWeapon():Boolean;
    function  WinLottery():Boolean;
    procedure ChangeServerMakeSlave(SalveInfo: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 SkillCrsOnOff(boSwitch: Boolean);
    procedure Skill42OnOff(boSwitch: Boolean);
    procedure Skill43OnOff(boSwitch: Boolean);
    function  AllowFireHitSkill():Boolean;
    procedure MakeMine();

    function  GetRangeHumanCount():Integer;
    procedure GetStartPoint();

    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  GetMagicInfo(nMagicID:Integer):pTUserMagic;
    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:pTStdItem):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 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);

    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);

    procedure CmdDisableFilter(sCmd,sParam1:String);
    procedure CmdChangeUserFull(sCmd,sUserCount:String);
    procedure CmdChangeZenFastStep(sCmd,sFastStep:String);

    procedure CmdReconnection(sCmd,sIPaddr,sPort:String);
    procedure CmdContestPoint(Cmd:pTGameCmd;sGuildName:String);
    procedure CmdStartContest(Cmd:pTGameCmd;sParam1:String);
    procedure CmdEndContest(Cmd:pTGameCmd;sParam1:String);

    procedure CmdAnnouncement(Cmd:pTGameCmd;sGuildName:String);
    procedure CmdKill(Cmd:pTGameCmd;sHumanName:String);
    procedure CmdMakeItem(Cmd:pTGameCmd;sItemName:String;nCount:Integer);
    procedure CmdSmakeItem(Cmd:pTGameCmd;nWhere,nValueType,nValue:Integer);
    procedure CmdBonuPoint(Cmd:pTGameCmd;sHumName:String;nCount:Integer);
    procedure CmdDelBonuPoint(Cmd:pTGameCmd;sHumName:String);
    procedure CmdRestBonuPoint(Cmd:pTGameCmd;sHumName:String);

    procedure CmdFireBurn(nInt,nTime,nN:Integer);
    procedure CmdTestFire(sCmd:String;nRange,nType,nTime,nPoint:Integer);

    procedure CmdTestStatus(sCmd:String;nType,nTime:Integer);

    procedure CmdDelGold(Cmd:pTGameCmd;sHumName:String;nCount:Integer);
    procedure CmdAddGold(Cmd:pTGameCmd;sHumName:String;nCount:Integer);
    procedure CmdDelGameGold(sCmd,sHumName:String;nPoint:Integer);
    procedure CmdAddGameGold(sCmd,sHumName:String;nPoint:Integer);
    procedure CmdGameGold(Cmd:pTGameCmd;sHumanName:String;sCtr:String;nGold:Integer);
    procedure CmdGamePoint(Cmd:pTGameCmd;sHumanName:String;sCtr:String;nPoint:Integer);
    procedure CmdCreditPoint(Cmd:pTGameCmd;sHumanName:String;sCtr:String;nPoint:Integer);

    procedure CmdMob(Cmd:pTGameCmd;sMonName:String;nCount,nLevel:Integer);

    procedure CmdRefineWeapon(Cmd:pTGameCmd;nDC,nMC,nSC,nHit:Integer);
    procedure CmdRecallMob(Cmd:pTGameCmd;sMonName:String;nCount,nLevel,nAutoChangeColor,nFixColor:Integer);
    procedure CmdLuckPoint(sCmd:String;nPerMission:Integer;sHumanName,sCtr,sPoint:String);
    procedure CmdLotteryTicket(sCmd:String;nPerMission:Integer;sParam1:String);
    procedure CmdReloadGuild(sCmd:String;nPerMission:Integer;sParam1:String);
    procedure CmdReloadLineNotice(sCmd:String;nPerMission:Integer;sParam1:String);
    procedure CmdReloadAbuse(sCmd:String;nPerMission:Integer;sParam1:String);

    procedure CmdMobNpc(sCmd:String;nPermission:Integer;sParam1,sParam2,sParam3,sParam4:String);
    procedure CmdNpcScript(sCmd:String;nPermission:Integer;sParam1,sParam2,sParam3:String);
    procedure CmdDelNpc(sCmd:String;nPermission:Integer;sParam1:String);
    procedure CmdKickHuman(Cmd:pTGameCmd;sHumName:String);
    procedure CmdTing(Cmd:pTGameCmd;sHumanName:String);
    procedure CmdSuperTing(Cmd:pTGameCmd;sHumanName,sRange:String);