一、私有类型：变量名 类型 说明
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;
