战神引擎函数整理和私有类型：变量名、类型、说明

Delphi/Pascal

一、私有类型：变量名 类型 说明

FGMLevel: Word;

FYBNum: Integer;

FUsedYBNum: Integer;

FNickLinFu: integer;

FHaveTimeNum: integer;

FHaveValidHero: Boolean;

FTrendDataValid: Boolean;

FJiaYouPoint: Cardinal;

FBoReferUser: Boolean;

FBoSpreader: Boolean;

FLevel: Word;

FName: String;

FFreeBagNum: Integer;

FJob: Byte;

FGender: Byte;

FIsDead: Boolean;

FMy_X: integer;

FMy_Y: integer;

FIsDeleted: Boolean;

FNormalHide: Boolean;

FIntParam: integer;

FStrParam: String;

FGoldNum: Integer;

FMyShengwan: Integer;

FMyUsedLfNum: Integer;

FMyDiamondnum: Integer;

FMyPKpoint: integer;

FLuckNum: Integer;

FHitRate: Byte;

FQuickRate: Byte;

FAC: Word;

FMaxAC: Word;

FDC: Word;

FMaxDC: Word;

FMC: Word;

FMaxMC: Word;

FSC: Word;

FMaxSC: Word;

FHP: Integer;

FMaxHP: Integer;

FMP: integer;

FMaxMP: Integer;

FMyLFnum: Integer;

FMyExp: Cardinal;

FDominateLevel: Word;

FGuildName: string;

FGuildLord: string;

FIsGroupOwner: Boolean;

FIsTeamMember: Boolean;

FIsAStudent: Boolean;

FGuildOrder: Integer;

FLingXiValue: Integer;

FHeroGender: Integer;

FHeroLevel: Integer;

FHeroJob: Integer;

FHeroTypeExt: Integer;

FPlatLv: Byte;

FGuildPoint: Integer;

FCallOutParam: string;

FGetTrustByWine: Byte;

FMyExpQuestValue: Cardinal;

FMemberCount: Integer;

FGloryPoint: Integer;

FIsNetCafeUser: Boolean;

FCombineHeroTrainType: byte;

FMyAttackMode: byte;

FAccumulatedTime: Double;

FAccumulateFlag: Boolean;

FPeiouName: string;

FCurGlory: Integer;

FLevelOrder: Word;

FTryExchangeItemName: string;

FTryExchangeItemMode: Cardinal;

FEnterMapTick: longword;

FActiveValue: Word;

FTenYearImpress: Cardinal;

二、发布型：变量名 类型 说明

property GMLevel: Word read FGMLevel;

property YBNum: Integer read FYBNum;

property UsedYBNum: Integer read FUsedYBNum;

property NickLinFu: integer read FNickLinFu;

property HaveTimeNum: integer read FHaveTimeNum;

property HaveValidHero: Boolean read FHaveValidHero;

property TrendDataValid: Boolean read FTrendDataValid;

property JiaYouPoint: Cardinal read FJiaYouPoint;

property BoReferUser: Boolean read FBoReferUser;

property BoSpreader: Boolean read FBoSpreader;

property Level: Word read FLevel;

property Name: String read FName;

property FreeBagNum: Integer read FFreeBagNum;

property Job: Byte read FJob;

property Gender: Byte read FGender;

property IsDead: Boolean read FIsDead;

property My_X: integer read FMy_X;

property My_Y: integer read FMy_Y;

property IsDeleted: Boolean read FIsDeleted;

property NormalHide: Boolean read FNormalHide;

property IntParam: integer read FIntParam write FIntParam;

property StrParam: String read FStrParam write FStrParam;

property GoldNum: Integer read FGoldNum;

property MyShengwan: Integer read FMyShengwan write FMyShengwan;

property MyUsedLfNum: Integer read FMyUsedLfNum;

property MyDiamondnum: Integer read FMyDiamondnum;

property MyPKpoint: integer read FMyPKpoint;

property LuckNum: Integer read FLuckNum;

property HitRate: Byte read FHitRate;

property QuickRate: Byte read FQuickRate;

property AC: Word read FAC;

property MaxAC: Word read FMaxAC;

property DC: Word read FDC;

property MaxDC: Word read FMaxDC;

property MC: Word read FMC;

property MaxMC: Word read FMaxMC;

property SC: Word read FSC;

property MaxSC: Word read FMaxSC;

property HP: Integer read FHP;

property MaxHP: Integer read FMaxHP;

property MP: integer read FMP;

property MaxMP: Integer read FMaxMP;

property MyLFnum: Integer read FMyLFnum;

property MyExp: Cardinal read FMyExp;

property DominateLevel: Word read FDominateLevel write FDominateLevel;

property GuildName: string read FGuildName;

property GuildLord: string read FGuildLord;

property IsGroupOwner: Boolean read FIsGroupOwner;

property IsTeamMember: Boolean read FIsTeamMember;

property IsAStudent: Boolean read FIsAStudent;

property GuildOrder: Integer read FGuildOrder;

property LingXiValue: Integer read FLingXiValue write FLingXiValue;

property HeroGender: Integer read FHeroGender;

property HeroLevel: Integer read FHeroLevel;

property HeroJob: Integer read FHeroJob;

property HeroTypeExt: Integer read FHeroTypeExt;

property PlatLv: Byte read FPlatLv write FPlatLv;

property GuildPoint: Integer read FGuildPoint;

property CallOutParam: string read FCallOutParam write FCallOutParam;

property GetTrustByWine: Byte read FGetTrustByWine;

property MyExpQuestValue: Cardinal read FMyExpQuestValue;

property MemberCount: Integer read FMemberCount;

property GloryPoint: Integer read FGloryPoint;

property IsNetCafeUser: Boolean read FIsNetCafeUser;

property CombineHeroTrainType: byte read FCombineHeroTrainType;

property MyAttackMode: byte read FMyAttackMode;

property AccumulatedTime: Double read FAccumulatedTime;

property AccumulateFlag: Boolean read FAccumulateFlag write FAccumulateFlag;

property PeiouName: string read FPeiouName;

property CurGlory: Integer read FCurGlory;

property LevelOrder: Word read FLevelOrder;

property TryExchangeItemName: string read FTryExchangeItemName write FTryExchangeItemName;

property TryExchangeItemMode: Cardinal read FTryExchangeItemMode write FTryExchangeItemMode;

property EnterMapTick: longword read FEnterMapTick;

property ActiveValue: Word read FActiveValue;

property TenYearImpress: Cardinal read FTenYearImpress;

三、公共型：变量名 类型 说明

function GetBagItemCount(const ItemName: string): Integer;

function GetBagItemCountEx(const ItemName: string; iParam: Integer): Integer;

function Give(const ItemName: string; ItemCount: Integer): Boolean;

function BindGive(const ItemName: string; ItemCount: Integer): Boolean;

function LoopGive(const ItemName: string; ItemCount: Integer; const loopCnt: Integer): Boolean;

function Take(const ItemName: string; ItemCount: Integer): Boolean;

function TakeExpand(const ItemName: string; ItemCount: Integer; iParam: Integer): Boolean;

function TakeEx(const ItemName: string; ItemCount: Word;sReason:string;bIncludeEqp:Boolean): Boolean;

procedure Flyto(const MapName: string; x: Word; y: Word);

function FlyToDynRoom(sRoomName: string; x: Integer; y:Integer): integer;

function FlyToDynEnvirWithIdx(sRoomName: string; idx, x, y:Integer): Boolean;

function MapName: string;

function DynRoomName: string;

function DynRoomIdx: Integer;

function IsCastle: Boolean;

procedure PlayerNotice(const Msg: string; const vColor: word);

procedure QuestInfo(const Msg: string);

function GetV(const nTaskNo, nFieldNo: integer): Integer;

function SetV(const nTaskNo, nFieldNo, nValue: integer): Boolean;

function GetS(const nActNo, nFieldNo: integer): Integer;

function SetS(const nActNo, nFieldNo, nValue: integer): Boolean;

procedure PlayerDialog(const Msg: string);

function DelAllThisItem(const ItemName: string): integer;

procedure IncPkpoint(const AddNum: integer);

function CheckBagItemEx(const ItemName: string; var ChkNum, ChkDura, ChkAllDura: integer): Cardinal;

procedure CallOut(PsNPC: TObject; SpTime: integer; TimeOutProc : string);

procedure CallOutEx(PsNpc: TObject; SpTime: integer; TimeOutProc : string);

function IsGuildLord: Boolean;

function IsFirstGuildLord: Boolean;

procedure DecPkPoint(const X: integer);

function ChgHair(const Kind: Byte): Boolean;

function ChgSkillLv(const SkillName: string; ToLv: Byte; skillexp: integer): Boolean;

procedure DoDamageWeapon(const nDamage: integer);

function AddGold(Value: integer): Boolean;

function DecGold(const Num: integer): Boolean;

procedure RandomFlyTo(const MapName : string);

function ReqCastleWar: Boolean;

function BuildGuild(const GuildStr: string): integer;

procedure AgreeMarry(Npc: Tobject);

procedure DisAgreeMarry;

procedure NpcDivMarry(Npc: TObject);

function AgreeBaishi(Npc: Tobject): Boolean;

procedure DisAgreeBaishi(Npc: TObject);

procedure NpcLeaveTec(Npc: TObject);

function TakeBodyEquipByName(const ItemStr: string; TakeNum: integer): Boolean;

function TakeBodyEquipByPos(const nPos: integer): string;

procedure AddLF(const nType, nNum : Integer);

procedure AddLimLF(const nType, nNum : Integer);

procedure DecLF(const nType, nNum : Integer; recordFlag : Boolean);

function GetMyPositionInGuild: Integer;

function GetHeroBagItemCount(const ItemName: string): Integer;

function TakeFromHeroBag(const ItemName: string; ItemCount: Byte): Boolean;

function GetItemNameOnBody(const nPos : Integer): string;

procedure GroupFly(const sTargetMap : string);

function GroupFlyEx(const sTargetMap : string): word;

procedure ShiMenFly(const sTargetMap : string; mode: Integer);

procedure CoupleFly(const sTargetMap : string);

function ConfiscateBodyItem(const nPos : Integer): Boolean;

function UpGradeHeroSkill(const skill_idx: Integer; skill_exp : Integer): Boolean;

function TakeDiamond(TakeNum: integer; Npc: TObject): Boolean;

procedure ChangeMapWithOths(const SeachMap: string);

function CreateHero(heroName: string; hType, heroJob: Integer): Integer;

procedure MakeDiamondWithYB(const Num : Integer);

procedure Donatediam(const InPutStr: string);

procedure RequestGuildWar(const TargGuildStr: string);

procedure GiveBindItem(const ItemName: string; ItemNum : Integer);

function GiveTimeOutItem(const itemName: string; endTime: TDateTime; iNum: Integer; bBind: Boolean): Boolean;

procedure ReqOpenStorage(const InPutStr: string);

procedure GroupFlyToDynRoom(roomName: string; roomIdx: Integer);

procedure GroupFlyToDynRoomInRange(roomName: string; roomIdx, x, y, iRange: Integer);

procedure GroupCallOut(npc: TObject; procName, param: string; deltTime: Integer);

function GroupSetV(const nTaskNo, nFieldNo, nValue: integer): Boolean;

procedure FlyToObserverMap;

function GetLeiTaiState: Integer;

function DoSendPlayerToLeitai: Integer;

function GetWarResult: Integer;

function GetMyLeiTaiFlag: Integer;

procedure PsConsumeYb(const NeedYb : integer);

procedure ReqBuildDiamond(const InPutStr: string);

procedure IncNickLinFu(value: integer);

procedure DecNickLinFu(value: integer);

function GetHeroSkillStr: string;

function MyHeroState(HeroType : Integer): Integer;

procedure AddTaskToUIList(const id, ShowUIFlag: Integer);

procedure UpdateTaskDetail(const id, ShowUIFlag: Integer);

procedure UpdateTaskProgress(const id, ShowUIFlag: Integer);

procedure DeleteTaskFromUIList(const id, ShowUIFlag: Integer);

procedure DoRelive(const delayTime, hp : Integer);

procedure LeftTime(const MsgStr : string; iLine, iSec : Integer);

procedure AutoGotoMap(const mapName: string; x, y: Integer);

function AddSkillExp(const name: string; const exp: Integer): Boolean;

function AddHeroSkillExp(const name: string; const exp: Integer): Boolean;

function UpgradeHeroSkillLv(const name: string): Boolean;

function NewBieGiftConsume: Boolean;

function GetLimitLinfu: Integer;

function ShowLingfu3: Integer;

function DecGloryPoint(vsId, nPrize, nNum: Integer; bAddPoint: Boolean; const desc: string): Boolean;

function AddGloryPoint(nNum: Integer): Boolean;

procedure AddLogRec(const Cmd: word; const ItemName: string; const ItemId: Cardinal; const ItemNum: integer; const Desc: string);

function PsYBConsum(npc: TCreature; const callbackProc: string; vsId, nPrice, nNum: Integer): Boolean;

function PsYBConsumEx(exeTag: Byte; const callbackProc, DescName: string; vsId, nPrice, nNum: Integer): Boolean;

procedure AddDbLinfuTime(secTime: Cardinal);

function BoInDbLinfu: Boolean;

function ChkIfCanAddUSExp: Integer;

function AddUSExp(const lfNum, powerVal, skillExp: Integer): Integer;

function MakeSlave(const SlaveName: string; const MagicLv, nCount: Integer; RoyaltySec: Cardinal; const BoFromHero: Boolean; hpAfterSlave: Integer): TCreature;

function CheckSkill(skillId: Integer): Integer;

function CheckHeroSkill(skillId: Integer): Integer;

procedure GiveConfigPrize(const PrizeIdx: integer; const InfoStr: string; TempTransferFlag : Boolean);

function GiveHeroExp(exp: Cardinal; bAddBall: Boolean): Boolean;

function GiveHeroSuperExp(exp: Cardinal; bAddBall: Boolean): Boolean;

function GiveHeroSuperExpLoop(exp: Cardinal; bAddBall: Boolean; const loopCnt: Integer): Boolean;

function GiveHeroForceExp(exp: Cardinal; bAddBall: Boolean): Boolean;

function GiveItemWithDura(const itemName:string; ItemNum:Integer; ItemDura:Word): Boolean;

procedure GetAwardItem(const ActOrder: string);

function TakeFullDuraItem(const ItemName: string; ItemCount: Integer): Boolean;

function SignIn: Boolean;

function GetSignInActPrize: Integer;

function GetSignInActPrizer(var lucker1, lucker2: string): string;

procedure SignInDayAct;

function GetSignInDayActPrizer(prizeLv: Integer): string;

function GetSignInDayActTag: Integer;

function GetWeaponLucky(boAddBase: Boolean; bHero: Boolean): Integer;

function SetWeaponLucky(val: Integer; bHero: Boolean): Boolean;

function GetNecklaceLucky: Integer;

function UpWeaponNoBroken(upType: Byte; bSureSuc: Boolean; bHero: Boolean): Integer;

procedure FinishCombineHeroTrain;

procedure ClearMulExpTime;

function SetAllGroupMemTag(const nNode, nVal: Integer): Boolean;

function AddAllGroupMemTag(const nNode, nVal: Integer): Boolean;

function SetSelfGroupMemTag(const nNode, nVal: Integer): Boolean;

function GetSelfGroupMemTag(const nNode: Integer): Integer;

procedure AddGuildPoint(const nVal: Integer);

procedure ReqPieceUpNewYearPicture(const iMod, iNum, iNeedValue: Integer);

function GroupChkTagV(const nNum, nField, nVal, nTag: Integer): Boolean;

function GroupChkTagS(const nNum, nField, nVal, nTag: Integer): Boolean;

function QueryGloryPointByGoodsNum(const goodsType, goodsNum: Integer): Integer;

function QueryGoodsNumByYBNum(const goodsType, ybNum: Integer): Integer;

function SellGoodsToGetGloryPoint(const goodsType, goodsNum: Integer): Integer;

function ConsumeYBToBuyGoods(const goodsType, consumeYbNum: Integer): Integer;

function GetGoodsCurrentStorage(const goodsType: Integer): Integer;

function AddStoreItem(itemStr: string): Boolean;

function AddAccountStorageCnt(num: Integer): Boolean;

function GetAccountStorageCnt: Integer;

procedure GroupFlyInRange(mapName: string; x, y, iRange: Integer);

function SendItemsToOther(const playerName, takeItemName, giveItemName: string; const takeItemNum, giveItemNum, needBagNum: Integer): Integer;

procedure DropItemDownExt(itemName:string;itemNum:Integer);

function QueryTeamMemberLevelInfo(const limitLv: word): Integer;

procedure GroupExecuteProc(npcObj: TObject; procName: string);

function TakeCastleStone(nTakeType:Word): Integer;

function GetCastleStoneOwners(nTeamID:Word;var Status:Word): string;

function GetEquipmentBreakLevel(const nPos:integer;bHero:Boolean): Integer;

function ChgEquipmentBreakLevel(const nPos:integer;Value:Integer;bHero:Boolean;bAdd:Boolean): Integer;

procedure ReqStartTransferArea(const iTransferMode: Word; iZoneId, iGroupId: Word);

procedure ReqAddRemoteTAScore(const wScoreType, wScore: Word);

function QueryTAScore(const wScoreType: Word): Integer;

function DecTAScore(const wScoreType, wDecScore: Word): Boolean;

procedure AddPlayerAbil(abilType, abilVal, lastSec: Word);

procedure AddHeroAbil(abilType, abilVal, lastSec: Word);

procedure SetHeroLevel(level: Word);

function AutoReLive(sMapName:string;x,y:Integer;bMaxHP:Boolean;bMaxMP:Boolean): Boolean;

function GetAroundMonNum(const sMonName: string;x,y,Rang:Integer): Integer;

function FindPlayer(sHumanName:string): Boolean;

function FindPlayerByName(sHumanName:string): TPlayer;

function SetVEx(const nTaskNo, nFieldNo,nValue:Integer;sHumanName:string): Boolean;

function GetVEx(const nTaskNo, nFieldNo: Integer;sHumanName: string): Integer;

function GiveItemsToOther(const npc:TCreature;const TargName,ItemName:string;const ItemNum,nPrice:Integer;bUseGp:Boolean): Integer;

function GetPlayerGender(const sHumanName: string): Integer;

function GetSpouse: TPlayer;

function GetSkillLevelExt(const SkillName:string;bHero:Boolean): Integer;

function UpdateEverydayActOrder(const iActNo, iFieldNo: Integer;const sName: string; const iScore: Integer): Integer;

function QueryAllVoteTopTen: string;

procedure ShowCurrentBless(const lv: Integer; const info1, info2, info3: string);

function ChgTenYearImpress(value:Integer): Boolean;

function GetCastleOrdDesc: String;

function GetCastleGift(Npc:TCreature;iOrd:Integer): Integer;

procedure CreateCampAnimal(const monName: string; const campIdx, MonX, MonY, MonNum, Range, targX, targY: Integer);

procedure DominaterCall;

function VIPCall(const s:string;isCall:Boolean): Boolean;

procedure CreateGuildHero(const heroName, mapName: string; initX, initY, targX, targY, Num: Integer);

procedure SetGuildHeroTargXY(const targX, targY: Integer);

function CreateProtectHero(const heroName: string): Boolean;

function GetMyGuildHeroNum: Integer;

procedure AddMyGuildResource(const num: Integer);

function DecMyGuildResource(const num, castleType: Integer): Boolean;

function CurMyGuildResource: Integer;

function MyGuildDreamCastCost: Integer;

procedure SetGuildParam(const pType, pNum: Integer);

function GetGuildParam(Const pType: Integer): Integer;

procedure InputDialog(MsgStr: string; DlgType, InputType: Integer);

procedure SetPlayerLevel(level: Word);

function PreSentItem(const TargName,ItemName:string;ItemNum:Integer;sex:Byte;bReUsed:Boolean;bBind:Boolean): Integer;

function GiveHumLevelBuffer(bufType, initLv, coldTimeSec: Integer; bHero: Boolean): Integer;

function OpenEquipmentMascotToMax(const ALevel: Integer): Boolean;

function IsInlayRabbitMascot(AItemName: String): Boolean;

function GetEquipmentMascotLevel: Integer;

function GetEquipmentMascotLevelHero: Integer;

function UnShutupSelf: Integer;

function OpenEquipmentMascotToMaxHero(const ALevel: Integer): Boolean;

function IsInlayRabbitMascotHero(AItemName: String): Boolean;

procedure setMyGuildTag(idx, val: Integer);

function getMyGuildTag(idx: integer): Integer;

procedure ClientSellerCancelYBDeal;

procedure QueryTaskDispatch;

procedure DoScriptHpMpRecover(const nHp, nMp, nHeroHp, nHeroMp: Integer);

procedure SetVipTag;

procedure TryOpenZillion(iType: Integer);

procedure CreateMon(const MapName: string; X, Y, Ranger: Integer; MonName: string; MonNum: Integer);

function GetObPoint: integer;

procedure DeleteObPoint;

procedure AddGuanMoPoint(gmPoint: Integer);

function IsGroupMember(const chrName: String): Boolean;

function RepairBodyEquip(EquipPos: Byte): Boolean;

function AddPointToMarkStoneCharm(const point: Cardinal; const isMaster: Boolean): Boolean;

function GetTrendV(const fieldName:string): Integer;

procedure DecJiaYouPoint(point: Integer);

function OpenStorage(storageType: Integer): Integer;

procedure PlayerEnterXinfaMap(enterType: Byte; mapLevel: Integer);

function DeleteSkill(const SkillName: string): Boolean;

function LearnMagic(const magName: string): Boolean;

procedure LearnLNJN(const iType:Integer);

procedure UpLevelLNJN(const iType: Integer);

procedure DelBagItemOfAll;

procedure HeroLearnLNJN(const iType:Integer);

procedure HeroUpLevelLNJN(const iType: Integer);

function ExchangeEquip_SameIden(SourceEquip, DestEquip: string; boBind : Boolean): Boolean;

procedure OpenMilRank;

procedure StartPaodian(DuraSec:integer);

procedure BeginTransLog(Logtype:integer);

procedure EndTransLog;

function GetLianTiLv: Integer;

function GetQiangTiLv: Integer;

function GetTiPoLv: Integer;

function GetQiangTiPhase: Integer;

function GetTiPoPhase: Integer;

function GetLianTiLv_hero: Integer;

function GetQiangTiLv_hero: Integer;

function GetTiPoLv_hero: Integer;

function GetQiangTiPhase_hero: Integer;

function GetTiPoPhase_hero: Integer;

function LearnSkillByScript(skillName: string; boHero: Boolean; initLevel: Integer): Boolean;

function UpgradeSkillByScript(skillName: string; boHero: Boolean): Boolean;

function GetSkillLevelByScript(skillName: string; boHero: Boolean): Integer;

procedure FlyToWeSpot;

function AddPlayerDailyCount(TaskID, Count: Integer): Boolean;

function SubmitLegendBook: Boolean;

function GetWWSQPassNum: Integer;

function JoinMirMatch: Boolean;

function GetMirMatchPrize: Boolean;

function GetPneumaTotalLevel: Word;

function ExpandStorageSpace(AddedCount: Integer): Integer;

function GetStorageSpaceCount: Integer;

procedure HelperDialog(const msg: string);

procedure NewFullMailEx(const ATitle,AContext: string; AMailType: Integer; AMonyCount: Integer;AMonyType: Integer; const AItemInfo: string; ACreateDateTime: string);

function CreateSelfCorps(const CorpsName: String): Integer;

function CreateSelfGild(const GildName: String): Integer;

function GetCorpsName: string;

function GetGildName: string;

function GetVitalityValue(ValueIdx : Integer): Integer;

function GetVExpToBeConverted: Cardinal;

procedure SetVExpToBeConverted(Value : Cardinal);

function IncVExpToBeConverted(Value : Cardinal): Boolean;

function DecVExpToBeConverted(Value : Cardinal): Boolean;

function IncActivePoint(const Value : Integer): Integer;

function DecActivePoint(const Value : Integer): Integer;

function GetActivePoint: Integer;

function GetTmpActivePoint: Integer;

function CanEnterActiveMap(const MapStr : string): Boolean;

procedure NotifyClientCommitItem(AResult: Integer; const AMsg: string);

function ActiveAuthen(AuthenLv : Integer; AuthenOrder : Integer): Integer;

function ActiveDelAuthen(AuthenLv : Integer; AuthenOrder : Integer): Integer;

function CheckAuthen(AuthenLv : Integer; AuthenOrder : Integer): Boolean;

function HelpOtherAuthen: Integer;

function AuthByHelped(AuthenLv : Integer; AuthenOrder : Integer): Integer;

function TakeByClientID(const AClientItemID: Integer): Boolean;

function SysGiveGift(const ItemStr: string;Num: integer;BoBind: Boolean): Boolean;

function GetCreateTime: Double;

procedure SystemMsg(const AType: Char; const AMsg: string);

function learnLivingSkill(Id : Integer): Integer;

procedure SendLivingSkillStatus;

function AddToBuyGoodsLogByScript(const GoodsName: string; const GoodsIdx, GoodsWantNum, TotalPrice: Integer): Integer;

function HumanPush(const Content: string; const OpenActType: Integer): Integer;

function GetMyTaskState(const TaskID: Integer): Integer;

function GetMyTaskDetail(const TaskID, ShowUIFlag: Integer): string;

procedure TaskDialog(const TaskID: Integer; const Msg: string);

procedure QueryAwardCode(const CodeStr: string);

procedure SetAwardCodeActiveParam(const CodeStr: string; const ActiveParam: Integer);

procedure ScriptRequestAddYBNum(const AddNum: Integer);

procedure ScriptRequestSubYBNum(const SubNum: Integer);

四、特殊变量

FRepDoorGold: Integer;

FRepWallGold: Integer;

FHireGuardGold: Integer;

FHireArcherGold: Integer;

FInputStr: string;

FInputOK: Boolean;

FInputButton: Word;

FMy_X: Integer;

FMy_Y: Integer;

property RepDoorGold: Integer read FRepDoorGold write FRepDoorGold;

property RepWallGold: Integer read FRepWallGold write FRepWallGold;

property HireGuardGold: Integer read FHireGuardGold write FHireGuardGold;

property HireArcherGold: Integer read FHireArcherGold write FHireArcherGold;

property InputStr: string read FInputStr;

property InputOK: Boolean read FInputOK;

property InputButton: Word read FInputButton;

property My_X: Integer read FMy_X;

property My_Y: Integer read FMy_Y;

procedure NPCSay(const MsgStr: string);

procedure CreateMon(const MapName : string; X, Y, Ranger : Integer; MonName : string; MonNum : Integer);

procedure CreateFamePlayerMon(const MapName: string; X, Y: Integer; MonName: string; iRank, MonNum: Integer);

procedure ClearMon(const MapName : string);

procedure ClearMonEx(const MapName: string;bAll:Boolean);

function CheckCurrMapMon: Integer;

function CheckMapMonByName(const sMapName, sMonName: string): Integer;

function CheckCurrMapHum: Integer;

procedure FillGoods(const GoodName : string; Num, Interval : Integer);

procedure AddStdMode(nMode: Word);

procedure Click_Buy(Clicker: TPlayer);

procedure Click_Sell(Clicker: TPlayer);

procedure Click_Repair(Clicker: TPlayer);

procedure Click_Open_Mosaic_Hole(Clicker: TPlayer);

procedure Click_Open_Duihuan_Contri(Clicker: TPlayer);

procedure Click_Open_MyOffiRankUI(Clicker: TPlayer);

procedure Click_Open_AttachAbilUI(Clicker: TPlayer);

procedure Click_Open_MirTianTiOrder(Clicker: TPlayer);

procedure Click_RepairEx(Clicker: TPlayer;RepairMode:Word);

procedure Click_SRepair(Clicker: TPlayer);

procedure Click_Storage(Clicker: TPlayer);

procedure Click_GetBack(Clicker: TPlayer);

procedure Click_Acc_Storage(Clicker: TPlayer);

procedure Click_Acc_GetBack(Clicker: TPlayer);

procedure Click_EQP_Operate(Clicker:TPlayer;OpCode:word);

procedure Click_GoldChgBar(Clicker: TPlayer);

procedure Click_BartoBrick(Clicker: TPlayer);

procedure Click_BricktoBar(Clicker: TPlayer);

procedure Click_BartoGold(Clicker: TPlayer);

procedure Click_Makedrug(Clicker: TPlayer);

procedure NpcNotice(MsgStr: string);

procedure NpcSideNotice(const MsgStr: string);

procedure NpcMapNotice(const MsgStr: string; const iColor: Integer);

function GetCastleTotalGold: Integer;

function GetCastleTodayIncome: Integer;

function GetCastleDoorState: string;

procedure Click_TakeOutGold(Hum: TPlayer; const GoldNumStr: string);

procedure Click_SaveGold(Hum: TPlayer; const GoldNumStr: string);

procedure Click_RepairDoor(Hum: TPlayer);

procedure Click_RepairWall(Hum: TPlayer; const nPos: Integer);

procedure Click_HireGuard(Hum: TPlayer; nPos: Integer);

procedure Click_HireArcher(Hum: TPlayer; nPos: Integer);

procedure OpenCastleDoor(bOpen : Boolean);

procedure InputDialog(Hum: TPlayer; MsgStr : string; DlgType, InputType : Integer);

function ReqBecomeCeleb(Hum: TPlayer): Integer;

function GetCelebName: String;

function GetCelebLv: Integer;

procedure ChgCelebColor(ColIdx : Integer);

procedure ReqBecomeCeleb(Hum: TPlayer);

function ReqCastleOwnerNpc(Hum : TPlayer): Integer;

function StorageAllBagItems(Sender: TPlayer): string;

function ClickUpWeaponNow(Hum: TPlayer): Integer;

function ClickUpWeaponNoBreak(Hum: TPlayer): Integer;

function ClickGetBackUpWeapon(Clicker: TPlayer): Integer;

procedure AddNpcProp(npcProp : Integer);

function ChkStrInFile(const sFileName, sSearchStr : string): Boolean;

function AddStrToFile(const sFileName, sAddStr : string): Boolean;

function DelStrFromFile(const sFileName, sDelStr : string): Boolean;

function GetAroundMonNum(const sMonName : string): Integer;

procedure SetMonTargetXY(const x, y : Integer);

procedure NpcRecallPlayers(const sSrcMap : string; num : Integer);

procedure PlayDice(Player : TPlayer; iDiceNum : Integer; sFunc : string);

procedure ClickUpgradeJewels(Player: TPlayer; const nPos : Integer);

procedure ClientAskYBDuanZao(Player: TPlayer);

procedure ClientQuestGetDiam(Player: TPlayer; Num: integer);

procedure RefreshCredit(Player: TPlayer);

procedure ClientReqGetBackLostItem(Player: TPlayer; const LostType: integer);

procedure ReqItemByGoldID(Player: TPlayer);

procedure ReqItemByGoldAct(Player: TPlayer);

procedure ReqItemByPlatina(Player: TPlayer);

procedure ClientQueryLastDealMsg(Player: TPlayer);

procedure ClientQueryYbDealItem(Player: TPlayer; flag : Boolean);

procedure ClientAskOpenYB(Player: TPlayer);

procedure ReqGetFirstUsedGift(Player: TPlayer);

procedure ClientYBbuyLF(Player: TPlayer; const Num: integer);

procedure BuyWineFromNpc(Player: TPlayer);

function UseGuildPoint(Player: TPlayer): Integer;

function GetSomeGuildPoint(Player: TPlayer): Integer;

function ChangeGPSwitch(Player: TPlayer): Integer;

procedure GiveWine(Player: TPlayer; const sName: string; iDrinkVal, iQuality: integer);

function MapName: string;

procedure RequestBaishi(Hum: TPlayer; const InPutStr: string);

procedure SendKaiChuList(Hum: TPlayer);

procedure NpcKickOutStu(Hum: TPlayer; const stuNo: Integer);

procedure RequestMarry(Hum: TPlayer; const InPutStr: string);

procedure ClickComposeDress(Player: TPlayer; const ProcStr: string);

function GetCastleGuildName: string;

function GetCastleLoadName: string;

procedure GiveConfigPrize(Player: TPlayer; const PrizeIdx: integer; const InfoStr: string);

procedure UpgradeSelfMagicShield(Player: TPlayer);

procedure UpgradeHeroMagicShield(Player: TPlayer);

function CheckMarry(Player: TPlayer): Integer;

procedure ReqPopGift(Player: TPlayer);

procedure EngageArcher(Hum: TPlayer; Idx: integer);

function IsExistArcher(Hum: TPlayer; Idx: integer): Boolean;

function GetMoveChance(Hum: TPlayer; Idx: integer): Boolean;

function GetEngageChance(Hum: TPlayer): Boolean;

procedure SetRebate(nRebate : Word);

procedure EnterRouteWayByLF(Hum: TPlayer; BoClientClick: Boolean);

procedure EnterRouteWayByLFEx(Hum: TPlayer; BoClientClick: Boolean;bFree:Boolean);

procedure EnterGuan(Hum: TPlayer);

procedure EnterNewGuan(Hum: TPlayer);

procedure ChkMonAndItem(Hum: TPlayer);

procedure WantWarMon(Hum: TPlayer);

procedure GetSkyPrize(Hum: TPlayer);

procedure EnterMyStery(Hum: TPlayer);

procedure ClientGetPrize(Hum: TPlayer);

procedure EnterNext(Hum: TPlayer; BoMyStery: Boolean);

procedure EnterNext2(Hum: TPlayer);

procedure OpenActionBox(Hum: TPlayer);

procedure ShowBook(Player: TPlayer; i, j: Integer; s: string);

procedure CreateDynRoomMon(const sRoomName: string; idx, X, Y, Ranger: Integer; MonName: string; MonNum: Integer);

function GetAIdleDynRoomIndex(roomName: string): Integer;

function GetAIdleDynRoomIndexEx(roomName: string;owner:TPlayer): Integer;

procedure UpHelmet(Hum: TPlayer);

procedure FoundryList(Clicker: TPlayer);

procedure MakeItemUseDiam(Hum: TPlayer);

procedure DiaPeif(Hum: TPlayer; const nCmd: integer);

function NewYearOrderPresent: string;

function NewYearOrderAccept: string;

function CurrentNewYearOrderPresent: string;

function CurrentNewYearOrderAccept: string;

function GetCurrentNewYearOrder(Hum: TPlayer): string;

function GetLastNewYearOrder(Hum: TPlayer): string;

function NewYearGetMyGift(Hum: TPlayer): Integer;

function SubmitBallQuest(Player: TPlayer): Integer;

function CheckCastleWarDate: string;

function GetListOfWar: string;

function GetGuildWarGold: Integer;

procedure RndGetMedal(Hum: TPlayer; const ProcStr: string);

procedure SpeGetMedalByRy(Hum: TPlayer; const ProcStr: string);

procedure SpeGetMedalBySW(Hum: TPlayer; const ProcStr: string);

procedure UpMedalAbil(Hum: TPlayer);

procedure ReqUseTimeBuyLF(Hum: TPlayer; const Num: integer);

procedure UpFeeUserAct(Hum: TPlayer);

procedure OpenNeedKeyBox(Hum: TPlayer);

procedure OpenNeedKeyBox2(Hum: TPlayer);

procedure OpenLuckBox(Hum: TPlayer);

procedure OpenLuckBox2(Hum: TPlayer);

procedure UseNick(Hum: TPlayer; Usetype: integer);

procedure NPCDropItem(ItemName: string; nRanger, ItemNum: integer);

procedure NPCDropItemToAllMapRnd(ItemName: string; ItemNum: integer);

procedure BuyLfBag(Sender: TPlayer);

function UpdateEverydayActOrder(const iActNo, iFieldNo: Integer; const sName: string; const iScore: Integer): Integer;

function GetCurrentEAPeriod(const iActNo, iFieldNo: Integer): Integer;

function GetCurrentEAIdxByName(const iActNo, iFieldNo: Integer; const sName: string): Integer;

function GetCurrentEANameByIdx(const iActNo, iFieldNo, idx: Integer): string;

function GetCurrentEAScoreByIdx(const iActNo, iFieldNo, idx: Integer): Integer;

function GetLastEAIdxByName(const iActNo, iFieldNo: Integer; const sName: string): Integer;

function GetLastEANameByIdx(const iActNo, iFieldNo, idx: Integer): string;

function GetLastEAScoreByIdx(const iActNo, iFieldNo, idx: Integer): Integer;

function GetEAOrderInfo(const iActNo,iFieldNo,Page,TotalPage,PrePage:Word;isCurrent:Boolean;sProcName:string): string;

function EAOrderIsStart(const iActNo,iFieldNo:Integer): Boolean;

procedure GiveConfigPrizeTemp(Player: TPlayer; const PrizeIdx: integer; const InfoStr: string);

procedure SetWineTreat(wtType: Byte; boDesk: Boolean);

function GetTreatWine(Hum: TPlayer): Integer;

procedure ResetHeroExpFealty(player: TPlayer);

function HeroRename(player: TPlayer; const oldName, newName: string): Integer;

function AddPlayerBodyLuck(player: TPlayer; const addPoint: Integer): Integer;

procedure TryEnterSuperSky(player: TPlayer);

function GetRandItem(idx: Integer): string;

function GetRandItemEx(curTimeTag: Cardinal; idx: Integer): string;

procedure MoveAllHumInMap(const desMap: string; x, y: Word);

procedure MoveAllHumInMapByLevel(const desMap: string; const x, y: Word; const humLv, humForceLv, humSuperForceLv: Integer; const opType: Integer);

procedure RegDelayProc(const procName: string; delaySec: Integer);

procedure CreateMapEvent(const eventType, lineNo, columnNo, lastSecond, startDamage, intervalSecond, incDamage: Integer);

procedure RemoveMapEvent(const eventType, lineNo, columnNo: Integer);

procedure Click_Vote(Clicker:TPlayer;VoteMode:Word);

procedure ComposeItem(Player:TCreature;iMode:Integer;NeedItemNum:Integer);

procedure OpenDialogsWindows(Player:TCreature;WindowsID,SubID:Integer);

procedure LoadPlayerStatuary(job, gender: Byte);

procedure AppearanceTransform(objCret: TCreature);

procedure UpdateFameNpc(const iRank: Integer);

function GetFamePlayerNameByRank(const iRank: Integer): string;

procedure DoHitAction;

procedure DoHideAction;

procedure DoShowAction;

procedure DoFlyAction(const desMapName: string; var desX, desY: Integer);

procedure DoHideNpcEx(const sMapName, sNpcName: string);

procedure DoShowNpcEx(const sMapName, sNpcName: string);

procedure SendRollMsgInCurrentMap(const sMsgStr: string; const iType: Integer);

function GetNormalCastleFlagOwner(const flagName: string): string;

function GetNormalCastleScoreRslt(page: Integer): string;

function GetNormalCastleMatchTakeInfo: string;

function GetNormalCastleTakeInfo(page: Integer): string;

procedure PlayRepairSwordEffect(const playTime: Integer);

function GetRecycleItemFeeName(stuffIdx: Integer): string;

function GetFreeRetrieveList(Listid:Integer): string;

procedure ClickOpenFreeRetrieve(Clicker: TPlayer);

procedure SetPaoDianPrizeAndperiod(Prize:string;PeriodSec:Integer);

procedure SetMapParam(param:string);

procedure YBDealDialogShowMode(APlayer: TPlayer; BoFirst: Boolean);

function MaxStrengthenEquipLv(APlayer: TPlayer): Integer;

function GivePositiveVValue(const Value : Integer; Order : Integer; APlayer : TPlayer): Integer;

function ConvertVExp(APlayer : TPlayer; VValue : Integer; VTypeIdx : Integer): Cardinal;

procedure AddPlayerHonorValue(const Value: Integer);

procedure SubPlayerHonorValue(const Value: Integer);

function GetPlayerHonorValue: Integer;

procedure NotifyClientUPdBagItem(APlayer : TPlayer; Item : TBaseItem);

procedure NewFullMailEx(const ARecvName, ATitle,AContext: string; AMailType: Integer;);

procedure NotifyClientOpenUpdateClothes(APlayer: TPlayer);

procedure Click_CommitItem(Clicker: TPlayer; Series: Word; HintInfo: string);

function GetComingVersion(idx:Integer): string;

function GetValidStr(Str: string; var Dest: string; const divier: Char): string;

procedure DeBUGOut(const s: string);

procedure ServerSay(const MsgStr : string; nColor : integer);

function CheckOtherMapMon(const MapName: string): Integer;

function CheckOtherMapHum(const MapName: string): Integer;

function GetNow: Double;

function GetYear: Word;

function GetMonth: Word;

function GetDay: Word;

function GetHour: Word;

function GetMin: Word;

function MirStrToDateTime(const str: string): Double;

function MirDateTimeToStr(const FormatStr: string; date: Double): string;

function GetDayOfWeek: Word;

function minusDataTime(dt1, dt2: Double): Integer;

function SecondsBetween(dt1, dt2: Double): Integer;

procedure PsDecodeDate(const dt: Double; var Year, Month, Day: Word);

procedure PsDecodeTime(const dt: Double; var Hour, Min, Sec, MSec: Word);

function AddDateTimeWithSec(const dtNow: Double; ASec: Integer): Double;

function ConvertDateTimeToDB(dt : Double): Integer;

function ConvertDBToDateTime(dt : Integer): Double;

function GetDateNum(datetime : Double): Integer;

function GetMapCanWalkXY(MapName : string;var x:Integer; var y : Integer;BoOver: Boolean; BoForce: Boolean): Boolean;

function GetG(const paramNo, index : Integer): Integer;

function SetG(const paramNo, index, value : Integer): Boolean;

function PsPower(const base, exponent: Double): Double;

procedure RollMsg(const MsgStr: string);

procedure RollMsgEx(const MsgStr: string; const iType: Word);

function SendYBShopConfig(const NeedLoadGoodsNames: string): Boolean;

procedure SetYBShopRefreshTime(const str: string);

function GetDynRoomHumNum(const roomName: string; roomIdx: Integer): Integer;

function GetDynRoomCnt(const roomName: string): Integer;

function PsHaveFreeDynRoom(const roomName: string): Boolean;

procedure MakeCattleCrazy;

function GetAdvPlayerNum: Integer;

function PsIsDynRoomValid(roomName: string; roomIdx: Integer): Boolean;

procedure KickAllHumToMap(srcMap, desMap: string; x,y: Word);

function GetCurrentEANameByIdx(const iActNo, iFieldNo, idx: Integer): string;

function UpdateEverydayActOrder(const iActNo, iFieldNo: Integer;const sName: string; const iScore: Integer): Integer;

function GetEAOrderInfo(const iActNo,iFieldNo,Page,TotalPage,PrePage:Word;isCurrent:Boolean;sProcName:string): string;

function GetScoreByName(const iActNo,iFieldNo:Integer;const sHumanName:string;isCurrent: Boolean): Integer;

function EAOrderIsStart(const iActNo,iFieldNo:Integer): Boolean;

procedure PlayerCry(const chrName: string; iType: Word; strMsg: string);

procedure PlayerGive(const chrName: string; const ItemName: string; ItemCount: Integer);

function ReadIniSectionStr(const sFileName, sSection, sIdent: string): string;

function WriteIniSectionStr(const sFileName, sSection, sIdent, sValue: string): Boolean;

function PsCeil(const X: Extended): Integer;

procedure InitTaskDispatchInfo(cmpCost, acceptCnt, dispatchCnt, bronzeCost, silverCost, goldCost: Integer);

function GetOpenGameTime: Double;

function G_Version: string;

function BroadcastPush(const Content: string; const OpenActType: Word): Integer;

一、私有类型：变量名 类型 说明

FGMLevel: Word;

FYBNum: Integer;

FUsedYBNum: Integer;

FNickLinFu: integer;

FHaveTimeNum: integer;

FHaveValidHero: Boolean;

FTrendDataValid: Boolean;

FJiaYouPoint: Cardinal;

FBoReferUser: Boolean;

FBoSpreader: Boolean;

FLevel: Word;

FName: String;

FFreeBagNum: Integer;

FJob: Byte;

FGender: Byte;

FIsDead: Boolean;

FMy_X: integer;

FMy_Y: integer;

FIsDeleted: Boolean;

FNormalHide: Boolean;

FIntParam: integer;

FStrParam: String;

FGoldNum: Integer;

FMyShengwan: Integer;

FMyUsedLfNum: Integer;

FMyDiamondnum: Integer;

FMyPKpoint: integer;

FLuckNum: Integer;

FHitRate: Byte;

FQuickRate: Byte;

FAC: Word;

FMaxAC: Word;

FDC: Word;

FMaxDC: Word;

FMC: Word;

FMaxMC: Word;

FSC: Word;

FMaxSC: Word;

FHP: Integer;

FMaxHP: Integer;

FMP: integer;

FMaxMP: Integer;

FMyLFnum: Integer;

FMyExp: Cardinal;

FDominateLevel: Word;

FGuildName: string;

FGuildLord: string;

FIsGroupOwner: Boolean;

FIsTeamMember: Boolean;

FIsAStudent: Boolean;

FGuildOrder: Integer;

FLingXiValue: Integer;

FHeroGender: Integer;

FHeroLevel: Integer;

FHeroJob: Integer;

FHeroTypeExt: Integer;

FPlatLv: Byte;

FGuildPoint: Integer;

FCallOutParam: string;

FGetTrustByWine: Byte;

FMyExpQuestValue: Cardinal;

FMemberCount: Integer;

FGloryPoint: Integer;

FIsNetCafeUser: Boolean;

FCombineHeroTrainType: byte;

FMyAttackMode: byte;

FAccumulatedTime: Double;

FAccumulateFlag: Boolean;

FPeiouName: string;

FCurGlory: Integer;

FLevelOrder: Word;

FTryExchangeItemName: string;

FTryExchangeItemMode: Cardinal;

FEnterMapTick: longword;

FActiveValue: Word;

FTenYearImpress: Cardinal;

二、发布型：变量名 类型 说明

property GMLevel: Word read FGMLevel;

property YBNum: Integer read FYBNum;

property UsedYBNum: Integer read FUsedYBNum;

property NickLinFu: integer read FNickLinFu;

property HaveTimeNum: integer read FHaveTimeNum;

property HaveValidHero: Boolean read FHaveValidHero;

property TrendDataValid: Boolean read FTrendDataValid;

property JiaYouPoint: Cardinal read FJiaYouPoint;

property BoReferUser: Boolean read FBoReferUser;

property BoSpreader: Boolean read FBoSpreader;

property Level: Word read FLevel;

property Name: String read FName;

property FreeBagNum: Integer read FFreeBagNum;

property Job: Byte read FJob;

property Gender: Byte read FGender;

property IsDead: Boolean read FIsDead;

property My_X: integer read FMy_X;

property My_Y: integer read FMy_Y;

property IsDeleted: Boolean read FIsDeleted;

property NormalHide: Boolean read FNormalHide;

property IntParam: integer read FIntParam write FIntParam;

property StrParam: String read FStrParam write FStrParam;

property GoldNum: Integer read FGoldNum;

property MyShengwan: Integer read FMyShengwan write FMyShengwan;

property MyUsedLfNum: Integer read FMyUsedLfNum;

property MyDiamondnum: Integer read FMyDiamondnum;

property MyPKpoint: integer read FMyPKpoint;

property LuckNum: Integer read FLuckNum;

property HitRate: Byte read FHitRate;

property QuickRate: Byte read FQuickRate;

property AC: Word read FAC;

property MaxAC: Word read FMaxAC;

property DC: Word read FDC;

property MaxDC: Word read FMaxDC;

property MC: Word read FMC;

property MaxMC: Word read FMaxMC;

property SC: Word read FSC;

property MaxSC: Word read FMaxSC;

property HP: Integer read FHP;

property MaxHP: Integer read FMaxHP;

property MP: integer read FMP;

property MaxMP: Integer read FMaxMP;

property MyLFnum: Integer read FMyLFnum;

property MyExp: Cardinal read FMyExp;

property DominateLevel: Word read FDominateLevel write FDominateLevel;

property GuildName: string read FGuildName;

property GuildLord: string read FGuildLord;

property IsGroupOwner: Boolean read FIsGroupOwner;

property IsTeamMember: Boolean read FIsTeamMember;

property IsAStudent: Boolean read FIsAStudent;

property GuildOrder: Integer read FGuildOrder;

property LingXiValue: Integer read FLingXiValue write FLingXiValue;

property HeroGender: Integer read FHeroGender;

property HeroLevel: Integer read FHeroLevel;

property HeroJob: Integer read FHeroJob;

property HeroTypeExt: Integer read FHeroTypeExt;

property PlatLv: Byte read FPlatLv write FPlatLv;

property GuildPoint: Integer read FGuildPoint;

property CallOutParam: string read FCallOutParam write FCallOutParam;

property GetTrustByWine: Byte read FGetTrustByWine;

property MyExpQuestValue: Cardinal read FMyExpQuestValue;

property MemberCount: Integer read FMemberCount;

property GloryPoint: Integer read FGloryPoint;

property IsNetCafeUser: Boolean read FIsNetCafeUser;

property CombineHeroTrainType: byte read FCombineHeroTrainType;

property MyAttackMode: byte read FMyAttackMode;

property AccumulatedTime: Double read FAccumulatedTime;

property AccumulateFlag: Boolean read FAccumulateFlag write FAccumulateFlag;

property PeiouName: string read FPeiouName;

property CurGlory: Integer read FCurGlory;

property LevelOrder: Word read FLevelOrder;

property TryExchangeItemName: string read FTryExchangeItemName write FTryExchangeItemName;

property TryExchangeItemMode: Cardinal read FTryExchangeItemMode write FTryExchangeItemMode;

property EnterMapTick: longword read FEnterMapTick;

property ActiveValue: Word read FActiveValue;

property TenYearImpress: Cardinal read FTenYearImpress;

三、公共型：变量名 类型 说明

function GetBagItemCount(const ItemName: string): Integer;

function GetBagItemCountEx(const ItemName: string; iParam: Integer): Integer;

function Give(const ItemName: string; ItemCount: Integer): Boolean;

function BindGive(const ItemName: string; ItemCount: Integer): Boolean;

function LoopGive(const ItemName: string; ItemCount: Integer; const loopCnt: Integer): Boolean;

function Take(const ItemName: string; ItemCount: Integer): Boolean;

function TakeExpand(const ItemName: string; ItemCount: Integer; iParam: Integer): Boolean;

function TakeEx(const ItemName: string; ItemCount: Word;sReason:string;bIncludeEqp:Boolean): Boolean;

procedure Flyto(const MapName: string; x: Word; y: Word);

function FlyToDynRoom(sRoomName: string; x: Integer; y:Integer): integer;

function FlyToDynEnvirWithIdx(sRoomName: string; idx, x, y:Integer): Boolean;

function MapName: string;

function DynRoomName: string;

function DynRoomIdx: Integer;

function IsCastle: Boolean;

procedure PlayerNotice(const Msg: string; const vColor: word);

procedure QuestInfo(const Msg: string);

function GetV(const nTaskNo, nFieldNo: integer): Integer;

function SetV(const nTaskNo, nFieldNo, nValue: integer): Boolean;

function GetS(const nActNo, nFieldNo: integer): Integer;

function SetS(const nActNo, nFieldNo, nValue: integer): Boolean;

procedure PlayerDialog(const Msg: string);

function DelAllThisItem(const ItemName: string): integer;

procedure IncPkpoint(const AddNum: integer);

function CheckBagItemEx(const ItemName: string; var ChkNum, ChkDura, ChkAllDura: integer): Cardinal;

procedure CallOut(PsNpc: TObject; SpTime: integer; TimeOutProc : string);

procedure CallOutEx(PsNpc: TObject; SpTime: integer; TimeOutProc : string);

function IsGuildLord: Boolean;

function IsFirstGuildLord: Boolean;

procedure DecPkPoint(const X: integer);

function ChgHair(const Kind: Byte): Boolean;

function ChgSkillLv(const SkillName: string; ToLv: Byte; skillexp: integer): Boolean;

procedure DoDamageWeapon(const nDamage: integer);

function AddGold(Value: integer): Boolean;

function DecGold(const Num: integer): Boolean;

procedure RandomFlyTo(const MapName : string);

function ReqCastleWar: Boolean;

function BuildGuild(const GuildStr: string): integer;

procedure AgreeMarry(Npc: Tobject);

procedure DisAgreeMarry;

procedure NpcDivMarry(Npc: TObject);

function AgreeBaishi(Npc: Tobject): Boolean;

procedure DisAgreeBaishi(Npc: TObject);

procedure NpcLeaveTec(Npc: TObject);

function TakeBodyEquipByName(const ItemStr: string; TakeNum: integer): Boolean;

function TakeBodyEquipByPos(const nPos: integer): string;

procedure AddLF(const nType, nNum : Integer);

procedure AddLimLF(const nType, nNum : Integer);

procedure DecLF(const nType, nNum : Integer; recordFlag : Boolean);

function GetMyPositionInGuild: Integer;

function GetHeroBagItemCount(const ItemName: string): Integer;

function TakeFromHeroBag(const ItemName: string; ItemCount: Byte): Boolean;

function GetItemNameOnBody(const nPos : Integer): string;

procedure GroupFly(const sTargetMap : string);

function GroupFlyEx(const sTargetMap : string): word;

procedure ShiMenFly(const sTargetMap : string; mode: Integer);

procedure CoupleFly(const sTargetMap : string);

function ConfiscateBodyItem(const nPos : Integer): Boolean;

function UpGradeHeroSkill(const skill_idx: Integer; skill_exp : Integer): Boolean;

function TakeDiamond(TakeNum: integer; Npc: TObject): Boolean;

procedure ChangeMapWithOths(const SeachMap: string);

function CreateHero(heroName: string; hType, heroJob: Integer): Integer;

procedure MakeDiamondWithYB(const Num : Integer);

procedure Donatediam(const InPutStr: string);

procedure RequestGuildWar(const TargGuildStr: string);

procedure GiveBindItem(const ItemName: string; ItemNum : Integer);

function GiveTimeOutItem(const itemName: string; endTime: TDateTime; iNum: Integer; bBind: Boolean): Boolean;

procedure ReqOpenStorage(const InPutStr: string);

procedure GroupFlyToDynRoom(roomName: string; roomIdx: Integer);

procedure GroupFlyToDynRoomInRange(roomName: string; roomIdx, x, y, iRange: Integer);

procedure GroupCallOut(npc: TObject; procName, param: string; deltTime: Integer);

function GroupSetV(const nTaskNo, nFieldNo, nValue: integer): Boolean;

procedure FlyToObserverMap;

function GetLeiTaiState: Integer;

function DoSendPlayerToLeitai: Integer;

function GetWarResult: Integer;

function GetMyLeiTaiFlag: Integer;

procedure PsConsumeYb(const NeedYb : integer);

procedure ReqBuildDiamond(const InPutStr: string);

procedure IncNickLinFu(value: integer);

procedure DecNickLinFu(value: integer);

function GetHeroSkillStr: string;

function MyHeroState(HeroType : Integer): Integer;

procedure AddTaskToUIList(const id, ShowUIFlag: Integer);

procedure UpdateTaskDetail(const id, ShowUIFlag: Integer);

procedure UpdateTaskProgress(const id, ShowUIFlag: Integer);

procedure DeleteTaskFromUIList(const id, ShowUIFlag: Integer);

procedure DoRelive(const delayTime, hp : Integer);

procedure LeftTime(const MsgStr : string; iLine, iSec : Integer);

procedure AutoGotoMap(const mapName: string; x, y: Integer);

function AddSkillExp(const name: string; const exp: Integer): Boolean;

function AddHeroSkillExp(const name: string; const exp: Integer): Boolean;

function UpgradeHeroSkillLv(const name: string): Boolean;

function NewBieGiftConsume: Boolean;

function GetLimitLinfu: Integer;

function ShowLingfu3: Integer;

function DecGloryPoint(vsId, nPrize, nNum: Integer; bAddPoint: Boolean; const desc: string): Boolean;

function AddGloryPoint(nNum: Integer): Boolean;

procedure AddLogRec(const Cmd: word; const ItemName: string; const ItemId: Cardinal; const ItemNum: integer; const Desc: string);

function PsYBConsum(npc: TCreature; const callbackProc: string; vsId, nPrice, nNum: Integer): Boolean;

function PsYBConsumEx(exeTag: Byte; const callbackProc, DescName: string; vsId, nPrice, nNum: Integer): Boolean;

procedure AddDbLinfuTime(secTime: Cardinal);

function BoInDbLinfu: Boolean;

function ChkIfCanAddUSExp: Integer;

function AddUSExp(const lfNum, powerVal, skillExp: Integer): Integer;

function MakeSlave(const SlaveName: string; const MagicLv, nCount: Integer; RoyaltySec: Cardinal; const BoFromHero: Boolean; hpAfterSlave: Integer): TCreature;

function CheckSkill(skillId: Integer): Integer;

function CheckHeroSkill(skillId: Integer): Integer;

procedure GiveConfigPrize(const PrizeIdx: integer; const InfoStr: string; TempTransferFlag : Boolean);

function GiveHeroExp(exp: Cardinal; bAddBall: Boolean): Boolean;

function GiveHeroSuperExp(exp: Cardinal; bAddBall: Boolean): Boolean;

function GiveHeroSuperExpLoop(exp: Cardinal; bAddBall: Boolean; const loopCnt: Integer): Boolean;

function GiveHeroForceExp(exp: Cardinal; bAddBall: Boolean): Boolean;

function GiveItemWithDura(const itemName:string; ItemNum:Integer; ItemDura:Word): Boolean;

procedure GetAwardItem(const ActOrder: string);

function TakeFullDuraItem(const ItemName: string; ItemCount: Integer): Boolean;

function SignIn: Boolean;

function GetSignInActPrize: Integer;

function GetSignInActPrizer(var lucker1, lucker2: string): string;

procedure SignInDayAct;

function GetSignInDayActPrizer(prizeLv: Integer): string;

function GetSignInDayActTag: Integer;

function GetWeaponLucky(boAddBase: Boolean; bHero: Boolean): Integer;

function SetWeaponLucky(val: Integer; bHero: Boolean): Boolean;

function GetNecklaceLucky: Integer;

function UpWeaponNoBroken(upType: Byte; bSureSuc: Boolean; bHero: Boolean): Integer;

procedure FinishCombineHeroTrain;

procedure ClearMulExpTime;

function SetAllGroupMemTag(const nNode, nVal: Integer): Boolean;

function AddAllGroupMemTag(const nNode, nVal: Integer): Boolean;

function SetSelfGroupMemTag(const nNode, nVal: Integer): Boolean;

function GetSelfGroupMemTag(const nNode: Integer): Integer;

procedure AddGuildPoint(const nVal: Integer);

procedure ReqPieceUpNewYearPicture(const iMod, iNum, iNeedValue: Integer);

function GroupChkTagV(const nNum, nField, nVal, nTag: Integer): Boolean;

function GroupChkTagS(const nNum, nField, nVal, nTag: Integer): Boolean;

function QueryGloryPointByGoodsNum(const goodsType, goodsNum: Integer): Integer;

function QueryGoodsNumByYBNum(const goodsType, ybNum: Integer): Integer;

function SellGoodsToGetGloryPoint(const goodsType, goodsNum: Integer): Integer;

function ConsumeYBToBuyGoods(const goodsType, consumeYbNum: Integer): Integer;

function GetGoodsCurrentStorage(const goodsType: Integer): Integer;

function AddStoreItem(itemStr: string): Boolean;

function AddAccountStorageCnt(num: Integer): Boolean;

function GetAccountStorageCnt: Integer;

procedure GroupFlyInRange(mapName: string; x, y, iRange: Integer);

function SendItemsToOther(const playerName, takeItemName, giveItemName: string; const takeItemNum, giveItemNum, needBagNum: Integer): Integer;

procedure DropItemDownExt(itemName:string;itemNum:Integer);

function QueryTeamMemberLevelInfo(const limitLv: word): Integer;

procedure GroupExecuteProc(npcObj: TObject; procName: string);

function TakeCastleStone(nTakeType:Word): Integer;

function GetCastleStoneOwners(nTeamID:Word;var Status:Word): string;

function GetEquipmentBreakLevel(const nPos:integer;bHero:Boolean): Integer;

function ChgEquipmentBreakLevel(const nPos:integer;Value:Integer;bHero:Boolean;bAdd:Boolean): Integer;

procedure ReqStartTransferArea(const iTransferMode: Word; iZoneId, iGroupId: Word);

procedure ReqAddRemoteTAScore(const wScoreType, wScore: Word);

function QueryTAScore(const wScoreType: Word): Integer;

function DecTAScore(const wScoreType, wDecScore: Word): Boolean;

procedure AddPlayerAbil(abilType, abilVal, lastSec: Word);

procedure AddHeroAbil(abilType, abilVal, lastSec: Word);

procedure SetHeroLevel(level: Word);

function AutoReLive(sMapName:string;x,y:Integer;bMaxHP:Boolean;bMaxMP:Boolean): Boolean;

function GetAroundMonNum(const sMonName: string;x,y,Rang:Integer): Integer;

function FindPlayer(sHumanName:string): Boolean;

function FindPlayerByName(sHumanName:string): TPlayer;

function SetVEx(const nTaskNo, nFieldNo,nValue:Integer;sHumanName:string): Boolean;

function GetVEx(const nTaskNo, nFieldNo: Integer;sHumanName: string): Integer;

function GiveItemsToOther(const npc:TCreature;const TargName,ItemName:string;const ItemNum,nPrice:Integer;bUseGp:Boolean): Integer;

function GetPlayerGender(const sHumanName: string): Integer;

function GetSpouse: TPlayer;

function GetSkillLevelExt(const SkillName:string;bHero:Boolean): Integer;

function UpdateEverydayActOrder(const iActNo, iFieldNo: Integer;const sName: string; const iScore: Integer): Integer;

function QueryAllVoteTopTen: string;

procedure ShowCurrentBless(const lv: Integer; const info1, info2, info3: string);

function ChgTenYearImpress(value:Integer): Boolean;

function GetCastleOrdDesc: String;

function GetCastleGift(Npc:TCreature;iOrd:Integer): Integer;

procedure CreateCampAnimal(const monName: string; const campIdx, MonX, MonY, MonNum, Range, targX, targY: Integer);

procedure DominaterCall;

function VIPCall(const s:string;isCall:Boolean): Boolean;

procedure CreateGuildHero(const heroName, mapName: string; initX, initY, targX, targY, Num: Integer);

procedure SetGuildHeroTargXY(const targX, targY: Integer);

function CreateProtectHero(const heroName: string): Boolean;

function GetMyGuildHeroNum: Integer;

procedure AddMyGuildResource(const num: Integer);

function DecMyGuildResource(const num, castleType: Integer): Boolean;

function CurMyGuildResource: Integer;

function MyGuildDreamCastCost: Integer;

procedure SetGuildParam(const pType, pNum: Integer);

function GetGuildParam(Const pType: Integer): Integer;

procedure InputDialog(MsgStr: string; DlgType, InputType: Integer);

procedure SetPlayerLevel(level: Word);

function PreSentItem(const TargName,ItemName:string;ItemNum:Integer;sex:Byte;bReUsed:Boolean;bBind:Boolean): Integer;

function GiveHumLevelBuffer(bufType, initLv, coldTimeSec: Integer; bHero: Boolean): Integer;

function OpenEquipmentMascotToMax(const ALevel: Integer): Boolean;

function IsInlayRabbitMascot(AItemName: String): Boolean;

function GetEquipmentMascotLevel: Integer;

function GetEquipmentMascotLevelHero: Integer;

function UnShutupSelf: Integer;

function OpenEquipmentMascotToMaxHero(const ALevel: Integer): Boolean;

function IsInlayRabbitMascotHero(AItemName: String): Boolean;

procedure setMyGuildTag(idx, val: Integer);

function getMyGuildTag(idx: integer): Integer;

procedure ClientSellerCancelYBDeal;

procedure QueryTaskDispatch;

procedure DoScriptHpMpRecover(const nHp, nMp, nHeroHp, nHeroMp: Integer);

procedure SetVipTag;

procedure TryOpenZillion(iType: Integer);

procedure CreateMon(const MapName: string; X, Y, Ranger: Integer; MonName: string; MonNum: Integer);

function GetObPoint: integer;

procedure DeleteObPoint;

procedure AddGuanMoPoint(gmPoint: Integer);

function IsGroupMember(const chrName: String): Boolean;

function RepairBodyEquip(EquipPos: Byte): Boolean;

function AddPointToMarkStoneCharm(const point: Cardinal; const isMaster: Boolean): Boolean;

function GetTrendV(const fieldName:string): Integer;

procedure DecJiaYouPoint(point: Integer);

function OpenStorage(storageType: Integer): Integer;

procedure PlayerEnterXinfaMap(enterType: Byte; mapLevel: Integer);

function DeleteSkill(const SkillName: string): Boolean;

function LearnMagic(const magName: string): Boolean;

procedure LearnLNJN(const iType:Integer);

procedure UpLevelLNJN(const iType: Integer);

procedure DelBagItemOfAll;

procedure HeroLearnLNJN(const iType:Integer);

procedure HeroUpLevelLNJN(const iType: Integer);

function ExchangeEquip_SameIden(SourceEquip, DestEquip: string; boBind : Boolean): Boolean;

procedure OpenMilRank;

procedure StartPaodian(DuraSec:integer);

procedure BeginTransLog(Logtype:integer);

procedure EndTransLog;

function GetLianTiLv: Integer;

function GetQiangTiLv: Integer;

function GetTiPoLv: Integer;

function GetQiangTiPhase: Integer;

function GetTiPoPhase: Integer;

function GetLianTiLv_hero: Integer;

function GetQiangTiLv_hero: Integer;

function GetTiPoLv_hero: Integer;

function GetQiangTiPhase_hero: Integer;

function GetTiPoPhase_hero: Integer;

function LearnSkillByScript(skillName: string; boHero: Boolean; initLevel: Integer): Boolean;

function UpgradeSkillByScript(skillName: string; boHero: Boolean): Boolean;

function GetSkillLevelByScript(skillName: string; boHero: Boolean): Integer;

procedure FlyToWeSpot;

function AddPlayerDailyCount(TaskID, Count: Integer): Boolean;

function SubmitLegendBook: Boolean;

function GetWWSQPassNum: Integer;

function JoinMirMatch: Boolean;

function GetMirMatchPrize: Boolean;

function GetPneumaTotalLevel: Word;

function ExpandStorageSpace(AddedCount: Integer): Integer;

function GetStorageSpaceCount: Integer;

procedure HelperDialog(const msg: string);

procedure NewFullMailEx(const ATitle,AContext: string; AMailType: Integer; AMonyCount: Integer;AMonyType: Integer; const AItemInfo: string; ACreateDateTime: string);

function CreateSelfCorps(const CorpsName: String): Integer;

function CreateSelfGild(const GildName: String): Integer;

function GetCorpsName: string;

function GetGildName: string;

function GetVitalityValue(ValueIdx : Integer): Integer;

function GetVExpToBeConverted: Cardinal;

procedure SetVExpToBeConverted(Value : Cardinal);

function IncVExpToBeConverted(Value : Cardinal): Boolean;

function DecVExpToBeConverted(Value : Cardinal): Boolean;

function IncActivePoint(const Value : Integer): Integer;

function DecActivePoint(const Value : Integer): Integer;

function GetActivePoint: Integer;

function GetTmpActivePoint: Integer;

function CanEnterActiveMap(const MapStr : string): Boolean;

procedure NotifyClientCommitItem(AResult: Integer; const AMsg: string);

function ActiveAuthen(AuthenLv : Integer; AuthenOrder : Integer): Integer;

function ActiveDelAuthen(AuthenLv : Integer; AuthenOrder : Integer): Integer;

function CheckAuthen(AuthenLv : Integer; AuthenOrder : Integer): Boolean;

function HelpOtherAuthen: Integer;

function AuthByHelped(AuthenLv : Integer; AuthenOrder : Integer): Integer;

function TakeByClientID(const AClientItemID: Integer): Boolean;

function SysGiveGift(const ItemStr: string;Num: integer;BoBind: Boolean): Boolean;

function GetCreateTime: Double;

procedure SystemMsg(const AType: Char; const AMsg: string);

function learnLivingSkill(Id : Integer): Integer;

procedure SendLivingSkillStatus;

function AddToBuyGoodsLogByScript(const GoodsName: string; const GoodsIdx, GoodsWantNum, TotalPrice: Integer): Integer;

function HumanPush(const Content: string; const OpenActType: Integer): Integer;

function GetMyTaskState(const TaskID: Integer): Integer;

function GetMyTaskDetail(const TaskID, ShowUIFlag: Integer): string;

procedure TaskDialog(const TaskID: Integer; const Msg: string);

procedure QueryAwardCode(const CodeStr: string);

procedure SetAwardCodeActiveParam(const CodeStr: string; const ActiveParam: Integer);

procedure ScriptRequestAddYBNum(const AddNum: Integer);

procedure ScriptRequestSubYBNum(const SubNum: Integer);

四、特殊变量

FRepDoorGold: Integer;

FRepWallGold: Integer;

FHireGuardGold: Integer;

FHireArcherGold: Integer;

FInputStr: string;

FInputOK: Boolean;

FInputButton: Word;

FMy_X: Integer;

FMy_Y: Integer;

property RepDoorGold: Integer read FRepDoorGold write FRepDoorGold;

property RepWallGold: Integer read FRepWallGold write FRepWallGold;

property HireGuardGold: Integer read FHireGuardGold write FHireGuardGold;

property HireArcherGold: Integer read FHireArcherGold write FHireArcherGold;

property InputStr: string read FInputStr;

property InputOK: Boolean read FInputOK;

property InputButton: Word read FInputButton;

property My_X: Integer read FMy_X;

property My_Y: Integer read FMy_Y;

procedure NPCSay(const MsgStr: string);

procedure CreateMon(const MapName : string; X, Y, Ranger : Integer; MonName : string; MonNum : Integer);

procedure CreateFamePlayerMon(const MapName: string; X, Y: Integer; MonName: string; iRank, MonNum: Integer);

procedure ClearMon(const MapName : string);

procedure ClearMonEx(const MapName: string;bAll:Boolean);

function CheckCurrMapMon: Integer;

function CheckMapMonByName(const sMapName, sMonName: string): Integer;

function CheckCurrMapHum: Integer;

procedure FillGoods(const GoodName : string; Num, Interval : Integer);

procedure AddStdMode(nMode: Word);

procedure Click_Buy(Clicker: TPlayer);

procedure Click_Sell(Clicker: TPlayer);

procedure Click_Repair(Clicker: TPlayer);

procedure Click_Open_Mosaic_Hole(Clicker: TPlayer);

procedure Click_Open_Duihuan_Contri(Clicker: TPlayer);

procedure Click_Open_MyOffiRankUI(Clicker: TPlayer);

procedure Click_Open_AttachAbilUI(Clicker: TPlayer);

procedure Click_Open_MirTianTiOrder(Clicker: TPlayer);

procedure Click_RepairEx(Clicker: TPlayer;RepairMode:Word);

procedure Click_SRepair(Clicker: TPlayer);

procedure Click_Storage(Clicker: TPlayer);

procedure Click_GetBack(Clicker: TPlayer);

procedure Click_Acc_Storage(Clicker: TPlayer);

procedure Click_Acc_GetBack(Clicker: TPlayer);

procedure Click_EQP_Operate(Clicker:TPlayer;OpCode:word);

procedure Click_GoldChgBar(Clicker: TPlayer);

procedure Click_BartoBrick(Clicker: TPlayer);

procedure Click_BricktoBar(Clicker: TPlayer);

procedure Click_BartoGold(Clicker: TPlayer);

procedure Click_Makedrug(Clicker: TPlayer);

procedure NpcNotice(MsgStr: string);

procedure NpcSideNotice(const MsgStr: string);

procedure NpcMapNotice(const MsgStr: string; const iColor: Integer);

function GetCastleTotalGold: Integer;

function GetCastleTodayIncome: Integer;

function GetCastleDoorState: string;

procedure Click_TakeOutGold(Hum: TPlayer; const GoldNumStr: string);

procedure Click_SaveGold(Hum: TPlayer; const GoldNumStr: string);

procedure Click_RepairDoor(Hum: TPlayer);

procedure Click_RepairWall(Hum: TPlayer; const nPos: Integer);

procedure Click_HireGuard(Hum: TPlayer; nPos: Integer);

procedure Click_HireArcher(Hum: TPlayer; nPos: Integer);

procedure OpenCastleDoor(bOpen : Boolean);

procedure InputDialog(Hum: TPlayer; MsgStr : string; DlgType, InputType : Integer);

function ReqBecomeCeleb(Hum: TPlayer): Integer;

function GetCelebName: String;

function GetCelebLv: Integer;

procedure ChgCelebColor(ColIdx : Integer);

procedure ReqBecomeCeleb(Hum: TPlayer);

function ReqCastleOwnerNpc(Hum : TPlayer): Integer;

function StorageAllBagItems(Sender: TPlayer): string;

function ClickUpWeaponNow(Hum: TPlayer): Integer;

function ClickUpWeaponNoBreak(Hum: TPlayer): Integer;

function ClickGetBackUpWeapon(Clicker: TPlayer): Integer;

procedure AddNpcProp(npcProp : Integer);

function ChkStrInFile(const sFileName, sSearchStr : string): Boolean;

function AddStrToFile(const sFileName, sAddStr : string): Boolean;

function DelStrFromFile(const sFileName, sDelStr : string): Boolean;

function GetAroundMonNum(const sMonName : string): Integer;

procedure SetMonTargetXY(const x, y : Integer);

procedure NpcRecallPlayers(const sSrcMap : string; num : Integer);

procedure PlayDice(Player : TPlayer; iDiceNum : Integer; sFunc : string);

procedure ClickUpgradeJewels(Player: TPlayer; const nPos : Integer);

procedure ClientAskYBDuanZao(Player: TPlayer);

procedure ClientQuestGetDiam(Player: TPlayer; Num: integer);

procedure RefreshCredit(Player: TPlayer);

procedure ClientReqGetBackLostItem(Player: TPlayer; const LostType: integer);

procedure ReqItemByGoldID(Player: TPlayer);

procedure ReqItemByGoldAct(Player: TPlayer);

procedure ReqItemByPlatina(Player: TPlayer);

procedure ClientQueryLastDealMsg(Player: TPlayer);

procedure ClientQueryYbDealItem(Player: TPlayer; flag : Boolean);

procedure ClientAskOpenYB(Player: TPlayer);

procedure ReqGetFirstUsedGift(Player: TPlayer);

procedure ClientYBbuyLF(Player: TPlayer; const Num: integer);

procedure BuyWineFromNpc(Player: TPlayer);

function UseGuildPoint(Player: TPlayer): Integer;

function GetSomeGuildPoint(Player: TPlayer): Integer;

function ChangeGPSwitch(Player: TPlayer): Integer;

procedure GiveWine(Player: TPlayer; const sName: string; iDrinkVal, iQuality: integer);

function MapName: string;

procedure RequestBaishi(Hum: TPlayer; const InPutStr: string);

procedure SendKaiChuList(Hum: TPlayer);

procedure NpcKickOutStu(Hum: TPlayer; const stuNo: Integer);

procedure RequestMarry(Hum: TPlayer; const InPutStr: string);

procedure ClickComposeDress(Player: TPlayer; const ProcStr: string);

function GetCastleGuildName: string;

function GetCastleLoadName: string;

procedure GiveConfigPrize(Player: TPlayer; const PrizeIdx: integer; const InfoStr: string);

procedure UpgradeSelfMagicShield(Player: TPlayer);

procedure UpgradeHeroMagicShield(Player: TPlayer);

function CheckMarry(Player: TPlayer): Integer;

procedure ReqPopGift(Player: TPlayer);

procedure EngageArcher(Hum: TPlayer; Idx: integer);

function IsExistArcher(Hum: TPlayer; Idx: integer): Boolean;

function GetMoveChance(Hum: TPlayer; Idx: integer): Boolean;

function GetEngageChance(Hum: TPlayer): Boolean;

procedure SetRebate(nRebate : Word);

procedure EnterRouteWayByLF(Hum: TPlayer; BoClientClick: Boolean);

procedure EnterRouteWayByLFEx(Hum: TPlayer; BoClientClick: Boolean;bFree:Boolean);

procedure EnterGuan(Hum: TPlayer);

procedure EnterNewGuan(Hum: TPlayer);

procedure ChkMonAndItem(Hum: TPlayer);

procedure WantWarMon(Hum: TPlayer);

procedure GetSkyPrize(Hum: TPlayer);

procedure EnterMyStery(Hum: TPlayer);

procedure ClientGetPrize(Hum: TPlayer);

procedure EnterNext(Hum: TPlayer; BoMyStery: Boolean);

procedure EnterNext2(Hum: TPlayer);

procedure OpenActionBox(Hum: TPlayer);

procedure ShowBook(Player: TPlayer; i, j: Integer; s: string);

procedure CreateDynRoomMon(const sRoomName: string; idx, X, Y, Ranger: Integer; MonName: string; MonNum: Integer);

function GetAIdleDynRoomIndex(roomName: string): Integer;

function GetAIdleDynRoomIndexEx(roomName: string;owner:TPlayer): Integer;

procedure UpHelmet(Hum: TPlayer);

procedure FoundryList(Clicker: TPlayer);

procedure MakeItemUseDiam(Hum: TPlayer);

procedure DiaPeif(Hum: TPlayer; const nCmd: integer);

function NewYearOrderPresent: string;

function NewYearOrderAccept: string;

function CurrentNewYearOrderPresent: string;

function CurrentNewYearOrderAccept: string;

function GetCurrentNewYearOrder(Hum: TPlayer): string;

function GetLastNewYearOrder(Hum: TPlayer): string;

function NewYearGetMyGift(Hum: TPlayer): Integer;

function SubmitBallQuest(Player: TPlayer): Integer;

function CheckCastleWarDate: string;

function GetListOfWar: string;

function GetGuildWarGold: Integer;

procedure RndGetMedal(Hum: TPlayer; const ProcStr: string);

procedure SpeGetMedalByRy(Hum: TPlayer; const ProcStr: string);

procedure SpeGetMedalBySW(Hum: TPlayer; const ProcStr: string);

procedure UpMedalAbil(Hum: TPlayer);

procedure ReqUseTimeBuyLF(Hum: TPlayer; const Num: integer);

procedure UpFeeUserAct(Hum: TPlayer);

procedure OpenNeedKeyBox(Hum: TPlayer);

procedure OpenNeedKeyBox2(Hum: TPlayer);

procedure OpenLuckBox(Hum: TPlayer);

procedure OpenLuckBox2(Hum: TPlayer);

procedure UseNick(Hum: TPlayer; Usetype: integer);

procedure NPCDropItem(ItemName: string; nRanger, ItemNum: integer);

procedure NPCDropItemToAllMapRnd(ItemName: string; ItemNum: integer);

procedure BuyLfBag(Sender: TPlayer);

function UpdateEverydayActOrder(const iActNo, iFieldNo: Integer; const sName: string; const iScore: Integer): Integer;

function GetCurrentEAPeriod(const iActNo, iFieldNo: Integer): Integer;

function GetCurrentEAIdxByName(const iActNo, iFieldNo: Integer; const sName: string): Integer;

function GetCurrentEANameByIdx(const iActNo, iFieldNo, idx: Integer): string;

function GetCurrentEAScoreByIdx(const iActNo, iFieldNo, idx: Integer): Integer;

function GetLastEAIdxByName(const iActNo, iFieldNo: Integer; const sName: string): Integer;

function GetLastEANameByIdx(const iActNo, iFieldNo, idx: Integer): string;

function GetLastEAScoreByIdx(const iActNo, iFieldNo, idx: Integer): Integer;

function GetEAOrderInfo(const iActNo,iFieldNo,Page,TotalPage,PrePage:Word;isCurrent:Boolean;sProcName:string): string;

function EAOrderIsStart(const iActNo,iFieldNo:Integer): Boolean;

procedure GiveConfigPrizeTemp(Player: TPlayer; const PrizeIdx: integer; const InfoStr: string);

procedure SetWineTreat(wtType: Byte; boDesk: Boolean);

function GetTreatWine(Hum: TPlayer): Integer;

procedure ResetHeroExpFealty(player: TPlayer);

function HeroRename(player: TPlayer; const oldName, newName: string): Integer;

function AddPlayerBodyLuck(player: TPlayer; const addPoint: Integer): Integer;

procedure TryEnterSuperSky(player: TPlayer);

function GetRandItem(idx: Integer): string;

function GetRandItemEx(curTimeTag: Cardinal; idx: Integer): string;

procedure MoveAllHumInMap(const desMap: string; x, y: Word);

procedure MoveAllHumInMapByLevel(const desMap: string; const x, y: Word; const humLv, humForceLv, humSuperForceLv: Integer; const opType: Integer);

procedure RegDelayProc(const procName: string; delaySec: Integer);

procedure CreateMapEvent(const eventType, lineNo, columnNo, lastSecond, startDamage, intervalSecond, incDamage: Integer);

procedure RemoveMapEvent(const eventType, lineNo, columnNo: Integer);

procedure Click_Vote(Clicker:TPlayer;VoteMode:Word);

procedure ComposeItem(Player:TCreature;iMode:Integer;NeedItemNum:Integer);

procedure OpenDialogsWindows(Player:TCreature;WindowsID,SubID:Integer);

procedure LoadPlayerStatuary(job, gender: Byte);

procedure AppearanceTransform(objCret: TCreature);

procedure UpdateFameNpc(const iRank: Integer);

function GetFamePlayerNameByRank(const iRank: Integer): string;

procedure DoHitAction;

procedure DoHideAction;

procedure DoShowAction;

procedure DoFlyAction(const desMapName: string; var desX, desY: Integer);

procedure DoHideNpcEx(const sMapName, sNpcName: string);

procedure DoShowNpcEx(const sMapName, sNpcName: string);

procedure SendRollMsgInCurrentMap(const sMsgStr: string; const iType: Integer);

function GetNormalCastleFlagOwner(const flagName: string): string;

function GetNormalCastleScoreRslt(page: Integer): string;

function GetNormalCastleMatchTakeInfo: string;

function GetNormalCastleTakeInfo(page: Integer): string;

procedure PlayRepairSwordEffect(const playTime: Integer);

function GetRecycleItemFeeName(stuffIdx: Integer): string;

function GetFreeRetrieveList(Listid:Integer): string;

procedure ClickOpenFreeRetrieve(Clicker: TPlayer);

procedure SetPaoDianPrizeAndperiod(Prize:string;PeriodSec:Integer);

procedure SetMapParam(param:string);

procedure YBDealDialogShowMode(APlayer: TPlayer; BoFirst: Boolean);

function MaxStrengthenEquipLv(APlayer: TPlayer): Integer;

function GivePositiveVValue(const Value : Integer; Order : Integer; APlayer : TPlayer): Integer;

function ConvertVExp(APlayer : TPlayer; VValue : Integer; VTypeIdx : Integer): Cardinal;

procedure AddPlayerHonorValue(const Value: Integer);

procedure SubPlayerHonorValue(const Value: Integer);

function GetPlayerHonorValue: Integer;

procedure NotifyClientUPdBagItem(APlayer : TPlayer; Item : TBaseItem);

procedure NewFullMailEx(const ARecvName, ATitle,AContext: string; AMailType: Integer;);

procedure NotifyClientOpenUpdateClothes(APlayer: TPlayer);

procedure Click_CommitItem(Clicker: TPlayer; Series: Word; HintInfo: string);

function GetComingVersion(idx:Integer): string;

function GetValidStr(Str: string; var Dest: string; const divier: Char): string;

procedure DebugOut(const s: string);

procedure ServerSay(const MsgStr : string; nColor : integer);

function CheckOtherMapMon(const MapName: string): Integer;

function CheckOtherMapHum(const MapName: string): Integer;

function GetNow: Double;

function GetYear: Word;

function GetMonth: Word;

function GetDay: Word;

function GetHour: Word;

function GetMin: Word;

function MirStrToDateTime(const str: string): Double;

function MirDateTimeToStr(const FormatStr: string; date: Double): string;

function GetDayOfWeek: Word;

function minusDataTime(dt1, dt2: Double): Integer;

function SecondsBetween(dt1, dt2: Double): Integer;

procedure PsDecodeDate(const dt: Double; var Year, Month, Day: Word);

procedure PsDecodeTime(const dt: Double; var Hour, Min, Sec, MSec: Word);

function AddDateTimeWithSec(const dtNow: Double; ASec: Integer): Double;

function ConvertDateTimeToDB(dt : Double): Integer;

function ConvertDBToDateTime(dt : Integer): Double;

function GetDateNum(datetime : Double): Integer;

function GetMapCanWalkXY(MapName : string;var x:Integer; var y : Integer;BoOver: Boolean; BoForce: Boolean): Boolean;

function GetG(const paramNo, index : Integer): Integer;

function SetG(const paramNo, index, value : Integer): Boolean;

function PsPower(const base, exponent: Double): Double;

procedure RollMsg(const MsgStr: string);

procedure RollMsgEx(const MsgStr: string; const iType: Word);

function SendYBShopConfig(const NeedLoadGoodsNames: string): Boolean;

procedure SetYBShopRefreshTime(const str: string);

function GetDynRoomHumNum(const roomName: string; roomIdx: Integer): Integer;

function GetDynRoomCnt(const roomName: string): Integer;

function PsHaveFreeDynRoom(const roomName: string): Boolean;

procedure MakeCattleCrazy;

function GetAdvPlayerNum: Integer;

function PsIsDynRoomValid(roomName: string; roomIdx: Integer): Boolean;

procedure KickAllHumToMap(srcMap, desMap: string; x,y: Word);

function GetCurrentEANameByIdx(const iActNo, iFieldNo, idx: Integer): string;

function UpdateEverydayActOrder(const iActNo, iFieldNo: Integer;const sName: string; const iScore: Integer): Integer;

function GetEAOrderInfo(const iActNo,iFieldNo,Page,TotalPage,PrePage:Word;isCurrent:Boolean;sProcName:string): string;

function GetScoreByName(const iActNo,iFieldNo:Integer;const sHumanName:string;isCurrent: Boolean): Integer;

function EAOrderIsStart(const iActNo,iFieldNo:Integer): Boolean;

procedure PlayerCry(const chrName: string; iType: Word; strMsg: string);

procedure PlayerGive(const chrName: string; const ItemName: string; ItemCount: Integer);

function ReadIniSectionStr(const sFileName, sSection, sIdent: string): string;

function WriteIniSectionStr(const sFileName, sSection, sIdent, sValue: string): Boolean;

function PsCeil(const X: Extended): Integer;

procedure InitTaskDispatchInfo(cmpCost, acceptCnt, dispatchCnt, bronzeCost, silverCost, goldCost: Integer);

function GetOpenGameTime: Double;

function G_Version: string;

function BroadcastPush(const Content: string; const OpenActType: Word): Integer;