5. 函数接口：procedure NpcNotice(MsgStr: string);
功能描述：NPC发系统红字
函数参数：显示的对话内容
函数返回值：无
6. 函数接口：procedure NpcDialog(const Player : TPlayer; Str : string);
功能描述：NPC给玩家弹出对话框（左上角的）
函数参数：玩家对象，对话内容
函数返回值：无
脚本调用示例：
This_Npc.NpcDialog( This_Player,
'恩？好像那密室有其他人在\' +
'我们先稍等片刻\' +
'<关闭/@DoExit>'
);
7. 函数接口：procedure CloseDialog(const Player: TPlayer);
功能描述：关闭NPC弹出的对话框（左上角的）
函数参数：玩家对象
函数返回值：无
8. 函数接口：procedure FillGoods(const GoodName : string; Num, Interval : Integer);
功能描述：商人NPC初始化时用于初始化商铺的物品列表,见
脚本初始化函数参数：物品名，数量， Interval表示此类物品刷新时间（少了就补充，多了就去掉，以秒为单位）
函数返回值：无
脚本调用示例：
//加载道具
This_NPC.FillGoods('木剑', 100, 1);
This_NPC.FillGoods('乌木剑', 21, 1);
9. 函数接口：procedure AddStdMode(nMode: Word);
功能描述：设置可以在此商人NPC商铺中修理和卖的东西类型，见
脚本初始化函数参数：属性（mode的参照表）
函数返回值：无
10. 函数接口：procedure SetRebate(nRebate : Word);
功能描述：设置商人买卖倍率
函数参数：倍率
函数返回值：This_Npc.SetRebate(120); //当前价格是实际价格的120%
11. 函数接口：procedure Click_Buy(Clicker: TPlayer);
功能描述：商人NPC打开物品列表，待玩家买物品
函数参数：玩家类
函数返回值：无
脚本调用示例：
This_Npc.Click_Buy(This_Player);
12. 函数接口：procedure Click_Sell(Clicker: TPlayer);
功能描述：商人NPC打开卖物品的框，待玩家卖物品
函数参数：玩家类
函数返回值：无
13. 函数接口：procedure Click_Repair(Clicker: TPlayer);
功能描述：NPC打开物品修理框，待玩家进行修理
函数参数：玩家类
函数返回值：无
14. 函数接口：procedure procedure Click_SRepair(Clicker: TPlayer);
功能描述：NPC打开物品特别修理框，待玩家进行特别修理
函数参数：玩家类
函数返回值：无
15. 函数接口：procedure Click_Storage(Clicker: TPlayer);
功能描述：调出仓库存物品的窗口，待玩家存物品
函数参数：属性（mode的参照表）
函数返回值：无
16. 函数接口：procedure Click_GetBack(Clicker: TPlayer);
功能描述：调出仓库中的物品列表，待玩家取物品
函数参数：属性（mode的参照表）
函数返回值：无
17. 函数接口：procedure Click_GoldChgBar(Clicker: TPlayer);
功能描述：将玩家身上金币换金条
函数参数：玩家对象
函数返回值：无
18. 函数接口：procedure Click_BartoBrick(Clicker: TPlayer);
功能描述：金条换金砖
函数参数：玩家对象
函数返回值：无
19. 函数接口：procedure Click_BricktoBar(Clicker: TPlayer);
功能描述：金砖换金条
函数参数：玩家对象
函数返回值：无
20. 函数接口：procedure Click_BartoGold(Clicker: TPlayer);
功能描述：金条换金币
函数参数：玩家对象
函数返回值：无
21. 函数接口：procedure Click_Makedrug(Clicker: TPlayer);
功能描述：做药
函数参数：玩家对象
函数返回值：无
22. 函数接口：procedure InputDialog(Hum: TPlayer; MsgStr : string; DlgType, InputType : Integer);
功能描述：客户端弹出有确定和取消按钮的输入框
函数参数：玩家对象，提示信息，对话框类型，对话框处理函数
函数返回值：无返回值，但脚本可以根据NPC属性中的InputStr和InputOK这两个属性来读取对话框相关属性。详见
输入对话框。
23. 函数接口：function GetCastleTotalGold()：Integer;
功能描述：沙城总收入
函数参数：无
函数返回值：无
24. 函数接口：function GetCastleTodayIncome（）：Integer;
功能描述：沙城今天收入
函数参数：无
函数返回值：无
25. 函数接口：procedure Click_TakeOutGold(Hum: TPlayer; const GoldNumStr: string);
功能描述：沙巴克城主取钱
函数参数：玩家类，取钱数量（字符串类型）
函数返回值：无
26. 函数接口：procedure Click_SaveGold(Hum: TPlayer; const GoldNumStr: string);
功能描述：沙巴克城主存钱
函数参数：玩家类，存钱数量（字符串类型）
函数返回值：无
27. 函数接口：function GetCastleDoorState():string;
功能描述：获取沙巴克城门状态
函数参数：无
函数返回值：返回‘打开’，‘关闭’，‘未知’。
28. 函数接口：procedure Click_RepairDoor(Hum: TPlayer);
功能描述：沙巴克城主修城门
函数参数：玩家类（沙巴克城主）
函数返回值：无
29. 函数接口：procedure Click_RepairWall(Hum: TPlayer;const nPos: Integer);
功能描述：沙巴克城主修城墙
函数参数：玩家类（沙巴克城主）， 标记哪面墙（参数与老脚本一样）
函数返回值：无
30. 函数接口：procedure Click_HireGuard(Hum: TPlayer; nPos: Integer);
功能描述：沙巴克城主雇佣卫兵
函数参数：玩家类（沙巴克城主），标记卫兵位置
函数返回值：无
31. 函数接口：procedure Click_ HireArcher(Hum: TPlayer; nPos: Integer);
功能描述：沙巴克城主雇佣弓箭手
函数参数：玩家类（沙巴克城主），标记弓箭手位置
函数返回值：无
32. 函数接口：procedure OpenCastleDoor(bOpen : Boolean);
功能描述：沙巴克城主开城门
函数参数： True为打开，False为不打开
函数返回值：无
/**********************Npc扩展接口*******************************/
33. 函数接口：function ChkStrInFile(const sFileName, sSearchStr : string) : Boolean;
功能描述：在指定文件中查找字符串
函数参数： 进行查找的文件, 要搜索的字符串
函数返回值：找到则返回true,找不到返回false
注: 这个文件是在脚本的Envir文件夹下某文件(或子路径)
脚本调用示例:
This_Npc.ChkStrInFile(‘temp1.txt’, This_Player.Name);
//在Ennvir文件夹下的temp1.txt文件中查找当前玩家角色名是否在文件中.
//temp1.txt是一行一条记录的.
This_Npc.ChkStrInFile(‘PascalScript\temp2.txt’, ‘hello’);
//在Envir文件夹下,查找子文件夹PascalScript中的temp2.txt文件中是否有’hello’
34. 函数接口：function AddStrToFile(const sFileName, sAddStr : string) : Boolean;
功能描述：向指定文件中添加字符串
函数参数：文件名, 要添加的字符串
函数返回值：添加成功true, 添加失败false(字符串已存在)
35. 函数接口：function DelStrFromFile(const sFileName, sDelStr : string) : Boolean;
功能描述：从指定文件中删除字符串
函数参数：文件名, 要删除的字符串
函数返回值：删除成功true, 删除失败false(字符串不存在)
36. 函数接口：function GetAroundMonNum(const sMonName : string) : Integer;
功能描述：获取当前NPC周围3*3格子中，某种怪物的数量
函数参数：怪物名称
函数返回值：返回要查询的数量
37. 函数接口：procedure SetMonTargetXY(const x, y : Integer);
功能描述：让地图上所有由NPC刷出来的怪物(而不是通过配置文件,地图自己刷的怪),走到指定的地图坐标.(函数的功能比较简单,不能完成比较复杂的寻路)
函数参数：指定的地图坐标
函数返回值：无
38. 函数接口：procedure NpcRecallPlayers(const sSrcMap : string; num : Integer);
功能描述：由NPC召集本GS上某地图内玩家若干名,来当前NPC所在地图
程序中限制了召唤的玩家数量不超过100个,取先进入当前地图的玩家
想法:由这个接口可以开发的东西可能是一堆玩家在某张地图上
到某时间,由某个NPC将抽取前面的一些人来自己的地图
函数参数：指定的地图名称,
函数返回值：无
39. 函数接口：procedure PlayDice(Player : TPlayer; iDiceNum : Integer; sFunc : string);
功能描述：扔骰子
函数参数：iDiceNum表示扔几个骰子, sFunc定义了扔完骰子后调用的脚本函数
函数返回值：无
脚本调用示例:
(以前骰子最后的点数是存在人物的d0-d9这10个变量身上,现在则是用人物的0号任务的1-10号变量来存最多10个骰子的大小)
//扔完骰子后的操作
procedure _AfterPlayDice(); //注意这里需要下画线
var
i : Integer;
j : Integer;
begin
i:=This_Player.GetV(0, 1);
j:=This_Player.GetV(0, 2);
This_Npc.NpcDialog(This_Player, ‘你扔的骰子数是’ + IntToStr(i) + IntToStr(j));
end;
//扔骰子
procedure DoPlayDice();
var
i : Integer;
begin
This_Player.SetV(0, 1, (Random(6) + 1));
This_Player.SetV(0, 2, (Random(6) + 1));
This_Npc.PlayDice(This_Player, 2, '@AfterPlayDice'); //注意这里需要@
end;
40. 函数接口：procedure ClickUpgradeJewels(Player: TPlayer; const nPos : Integer): Integer;
功能描述：升级头盔,项链,戒指,腰带,靴子,手镯这类首饰物品
函数参数：nPos:3项链,4头盔,5右手镯,6左手镯,7右戒指,8左戒指,10腰带,11靴子
函数返回值：无
41. 函数接口：procedure ClientAskYBDuanZao(Player: TPlayer);
功能描述：查询元宝锻造情况
函数参数：玩家对象
函数返回值：无
42. 函数接口：procedure ClientQuestGetDiam(Player: TPlayer; Num: integer);
功能描述：领取锻造的金刚石
函数参数：玩家对象, 领取的数量
函数返回值：无
43. 函数接口：procedure RefreshCredit(Player: TPlayer);
功能描述：查询元宝充值情况
函数参数：玩家对象
函数返回值：无
44. 函数接口：procedure ClientReqGetBackLostItem(Player: TPlayer; const LostType: integer);
功能描述：找回或者补领物品
函数参数：//LostType为1对应原脚本的@GetLostBuyGoods
// 为2对应原脚本的@GetLostDealItem
// 为3对应原脚本的@GetLostDiamond
函数返回值：无
45. 函数接口：procedure ReqItemByGoldID(Player: TPlayer);
功能描述：领取金牌帐号的奖励
函数参数：玩家对象
函数返回值：无
46. 函数接口：procedure ReqItemByGoldAct(Player: TPlayer);
功能描述：领取热血勇士奖品
函数参数：玩家对象
函数返回值：无
47. 函数接口：procedure ReqItemByPlatina(Player: TPlayer);
功能描述：领取白金角色奖励
函数参数：玩家对象
函数返回值：无
48. 函数接口：procedure ClientQueryLastDealMsg(Player: TPlayer);
功能描述：查询最后一次元宝交易记录
函数参数：玩家对象
函数返回值：无
49. 函数接口：procedure ClientQueryYbDealItem(Player: TPlayer; flag : Boolean);
功能描述：查询寄售或者是购买的物品
函数参数：flag为true表示寄售,flag为false表示购买
函数返回值：无
50. 函数接口：procedure ClientAskOpenYB(Player: TPlayer);
功能描述：开通元宝交易
函数参数：玩家对象
函数返回值：无
51. 函数接口：procedure ReqGetFirstUsedGift(Player: TPlayer);
功能描述：领取分红系统奖励,盟重金牌特使中的<分红系统领取奖励/@firstusedyb>
函数参数：玩家对象
函数返回值：无
52. 函数接口：procedure OpenEquipAttr(Player : TPlayer);
功能描述：解除封印
函数参数：玩家对象
函数返回值：无
53. 函数接口：procedure ClientYBbuyLF(Player: TPlayer; const Num: integer);
功能描述：用元宝买灵符
函数参数：玩家对象
函数返回值：无
54. 函数接口：procedure BuyWineFromNpc(Player: TPlayer);
功能描述：买烧酒
函数参数：玩家对象
函数返回值：无
55. 函数接口：function UseGuildPoint(Player: TPlayer) : Integer;
功能描述：查询行会酒泉
函数参数：玩家对象
函数返回值： 0表示关闭,1表示开启,-1表示没有行会
56. 函数接口：function GetSomeGuildPoint(Player: TPlayer) : Integer;
功能描述：领取行会酒泉泉水
函数参数：玩家对象
函数返回值：// 1表示领取成功 '~@GetPoint_OK'
// 0表示没有 '~@PointOver'
// -1表示无行会 '~@NotGuild'
// -2表示无足够包裹 '~@NotEnoughBag'
// -3表示今天领过了 '~@ToDayOver'
// -4表示行会酒泉关闭中 '~@GuildPointClose'
57. 函数接口：function ChangeGPSwitch(Player: TPlayer) : Integer;
功能描述：开启或者关闭行会酒泉
函数参数：玩家对象
函数返回值： 1是开启,0是关闭,-1是无行会, -2是非会长
58. 函数接口：procedure GiveWine(Player: TPlayer; const sName: string; iQuality, iDrinkVal: integer);
功能描述：npc根据酒名,品质,酒精度,给玩家造一瓶酒
函数参数：玩家对象, 酒名,品质,酒精度
函数返回值：无
59. 函数接口：procedure ClientDrinkWithNpc(Player: TPlayer; const mode : Integer);
功能描述：玩家与NPC喝酒.
函数参数：玩家对象, mode为1表示为招募,为2表示为寄放,为3表示为解雇,为4表示为取回
函数返回值： //无返回值,但要求脚本提供回调函数
//Qh_Hvalid_Err
//Qh_NoHave_Err
//Jg_IsFirst_Err
//Jf_Htwo_Err
//NoCall_Err
//Zm_Hvalid_Err
//Zm_Hdisdr_Err
//Zm_Lv_Err
60. 函数接口：procedure ClientDrinkAfter(Player: TPlayer; const mode : Integer);
功能描述：斗酒结束后的动作
函数参数：mode为1表示为招募,为2表示为寄放,为3表示为解雇,为4表示为取回
函数返回值：无返回值,单此函数要回调脚本函数procedure zhaomu2()!!!!;
61. 函数接口：function ClickUpWeaponNow(Hum: TPlayer): Integer;
功能描述：武器升级
函数参数：玩家对象
函数返回值：0表示升级失败，对应原脚本的 @upgradenow_fail
1表示正在升级，对应原脚本的 @upgradenow_ing
2表示升级成功，对应原脚本的 @upgradenow_ok
62. 函数接口：function ClickGetBackUpWeapon(Clicker: TPlayer): Integer;
功能描述：取回升级后的武器
函数参数：玩家对象
函数返回值：-1表示系统发红字，“对不起，你无法再携带了”
0表示取回失败，对应原脚本的 @ getbackupgnow _fail
1表示正在取回，对应原脚本的 @ getbackupgnow _ing
2表示取回成功，对应原脚本的 @ getbackupgnow _ok
63. 函数接口：procedure ClickComposeDress(Player: TPlayer; const ProcStr: string);
功能描述：npc根据藏宝图换衣服
函数参数：玩家对象, 藏宝图
函数返回值：无
64. 函数接口：function GetCastleGuildName() : string;
功能描述：返回当前沙巴克行会名称
函数参数：无
函数返回值：行会名称
65. 函数接口：function GetCastleLoadName() : string;
功能描述：返回当前沙巴克城主名
函数参数：无
函数返回值：沙巴克城主名
发表于 2019-8-22 20:40:47