战神引擎脚本变量大全。。。。。。。。
2020-7-5

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

    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;


最新回复 (3)
返回