English 简体 繁體
  • 注册
  • 手游教程 手游教程 关注:423 内容:1338

    【战神引擎】脚本变量大全

  • 查看作者
  • 打赏作者
  • 此版块是用户分享手游资源相关内容的论坛,其中包含了作者原创、搬砖、转载,以及可能存在网盘失效的情况。

    如果需要联系楼主,请点击帖子右侧聊天。如果发现虚假资源,请举报!

    当前位置: 35博客圈 > 手游分享 > 手游教程 > 正文
    • 4
    • 手游教程
    • 战神引擎脚本变量大全一、私有类型:变量名 类型 说明

      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;

      LV11
      水晶之恋

      楼主辛苦了,谢谢楼主,楼主好人一生平安!

      回复

      这个 是什么意思啊 楼主 看不懂

      回复

      这个 是什么意思啊 楼主 看不懂


      回复
      ssss
      回复

      手游分享板块严查恶意、辱骂、讽刺等评论,如发现此类评论轻则小黑屋,重则永久封禁!

      如果发现帖子违规,用户可以点击帖子标题旁的向下箭头,选择举报内容

      如果联系请站内私信联系,禁止留下QQ,微信等联系方式否则会被系统拦截

      如果想挣取水币,请在[手游分享] [端游分享]版块分享资源赚取水币

      请登录之后再进行评论

      登录
    • 任务
    • 管理
    • 回底部
    • 帖子间隔 侧栏位置: