战神引擎php,战神引擎常用脚本接口
GowLom2战神引擎常用脚本接口
给物品 :
This_Player.Give('屠龙',2);
***给物品前务必判断包裹中是否有足够的空间,否则将不能给予物品,但相应货币或者材料将会正常扣除***
空包裹:
This_Player.FreeBagNum
如要给玩家2个屠龙,屠龙不可堆叠,所以至少需要两个包裹空位:
if This_Player.FreeBagNum >= 2 then
This_Player.Give('屠龙',2);
包裹中物品数量:
This_Player.GetBagItemCount('物品')
扣除物品
This_Player.Take('屠龙',2');
***扣除物品前物品判断包裹中是否有足够的物品,切记在扣除的方法中判断***
if This_Player.GetBagItemCount ('屠龙') >= 2 then
This_Player.Take('屠龙',2');
随机数:
random(x) 返回值为0到 x-1 中的随机一个整数数
比如random(10) 返回值为0-9 中随机一个整数
*综合以上常用接口,活动为使用100个金刚石可抽取随机一个武器,1%的概率抽取屠龙档武器 19%怒斩档 80%裁决
procedure _getRdmWP;
var Rdm_int : integer;
WpName : string;
begin
Rdm_int := random(100); //获取随机数,随机数为 0-99中随机一个数字
if This_Player.GetBagItemCount('金刚石') >= 100 then// 查看包裹中是否有足够的金刚石
begin
if This_Player.FreeBagNum >=1 then// 查看是否有足够的包裹空间
begin
if Rdm_int < 1 then // 随机到0的概率为1%
begin
case random(3) of
0 : WpName := '屠龙';
1 : WpName := '嗜魂法杖';
2 : WpName := '逍遥扇';
end;
end else if Rdm_int < 20 then //随机到1-19的概率为19%
begin
case random(3) of
0 : WpName := '怒斩';
1 : WpName := '龙牙';
2 : WpName := '龙纹剑';
end;
end else if Rdm_int < 100 then //随机到20-99的概率为80%
begin
case random(3) of
0 : WpName := '裁决之杖';
1 : WpName := '骨玉权杖';
2 : WpName := '无极棍';
end;
end;
This_Player.Take('金刚石',100);
This_Player.Give(WpName , 1);
This_NPC.NpcDialog(This_Player,
WpName + '已放入您的包裹!\|'
+'{cmd}');
end else
This_NPC.NpcDialog(This_Player,
'没有足够的包裹空间!\|'
+'{cmd}');
end else
This_NPC.NpcDialog(This_Player,
'没有足够的金刚石,不可抽取\|'
+'{cmd}');
end;
begin //脚本入口 使用 可跳转到此处
This_NPC.NpcDialog(This_Player,
'巴拉巴拉巴拉一堆废话\|'
+'{cmd}<100金刚石抽取武器/@getRdmWP>');
end.
获取时间 :
GetYear : 返回当前年份
GetMonth : 返回当前月份
GetDay : 返回当前日期
GetDayOfWeek : 返回星期几
GetHour : 返回当前小时数
GetMin: 返回当前分钟数
GetNow() : 获取当前时间浮点数,返回值为double
GetDateNum(datatime : double) 返回值为datatime 所对应的数字
如2019年1月1日 使用GetDateNum(GetNow) 返回值为43466
查改变量:
私人变量为V,S ,服务器变量为G
使用方法详见《程序变量操作指南》
增加、查询、扣除灵符:
增加 :This_Player.AddLF(nType,LF_NUM);
查询 :This_Player.MyLFnum
扣除 :This_Player.DecLF(nType, LF_NUM, false);
LF_NUM : 灵符数量
nType : 编号,一般为0
***扣除前务必查询是否有足够的灵符***
增加、查询、扣除金币:
增加 : This_Player.AddGold(GoldNum);
查询 :This_Player.GoldNum
扣除 :This_Player.DecGold(GoldNum);
GoldNum : 金币数量
***扣除前务必查询是否有足够的金币***
增加、查询、扣除声望:
查询:This_Player.MyShengwan
声望的增加和扣除直接赋值即可
如扣除10点声望
if This_Player.MyShengwan >= 10 then
This_Player.MyShengwan := This_Player.MyShengwan - 10;
增加10点声望
This_Player.MyShengwan := This_Player.MyShengwan + 10;
***扣除前务必查询是否有足够的声望***
元宝购买:
This_Player.PsYBConsum(This_NPC,'回调函数名称',交易编号,元宝数量,购买个数);
交易编号为大于20000的整数,建议每次活动使用不同的编号,方便后期统计使用
回调函数必须返回boolean值,回调函数名称及逻辑都需自定义编写,请参照下面例子中的 function YB_NewComeBag(price, num: Integer):boolean;
***调用该接口时请判断好前置条件,该接口一经调用先扣除元宝,再执行回调函数***
如:2018年10月1日至7日每天12:00-19:00 可使用2元宝或2灵符随机抽奖(优先扣除灵符),奖励为5灵符(9%)、10声望(20%)、10000经验(40%)、10万金币(30%)、2个金条(1%)
procedure giveYBprz(); //灵符和元宝抽取奖励完全一样,自定义一个方法,方便调用 ,*****自定义方法内容需要写在调用之前*****
var rmd : integer;
itemStr : string;
begin
rmd := random(100);
if rmd < 9 then
begin
This_Player.AddLF(0,5);
itemStr := '5灵符';
end else if rmd < 29 then
begin
This_Player.MyShengwan := This_Player.MyShengwan + 10;
itemStr := '10声望';
end else if rmd < 69 then
begin
This_Player.Give('经验',10000);
itemStr := '1万经验';
end else if rmd < 99 then
begin
This_Player.AddGold(100000);
itemStr := '10万金币';
end else
begin
This_Player.Give('金条',2);
itemStr := '2个金条';
This_NPC.NpcNotice('恭喜“' + This_Player.Name + ' ”参加两元宝抽奖时获得了' + itemStr + '!!!'); //系统公告红字,全服可见
end;
This_Npc.NpcDialog(This_Player,
'你获得了:' + itemStr + '\|'+
'{cmd}'
);
end;
procedure _RdmYBPrz;
begin
if (GetYear = 2018) and (GetMonth = 10) and (GetDay >= 1) and (GetDay <= 7) then
begin
if (GetHour >= 12) and (GetHour < 19) then //注意结束时间,19:00:00-19:59:59 GetHour均返回19
begin
if This_Player.FreeBagNum >= 2 then
begin
if This_Player.MyLFnum >= 2 then //优先使用灵符,灵符足够直接扣除灵符并给与奖励
begin
This_Player.DecLF(0,2,false);
giveYBprz(); //直接调用给奖励方法 *****自定义方法内容需要写在调用之前*****
end else //灵符不足则使用元宝
This_Player.PsYBConsum(This_NPC,'YB_NewComeBag',20001,2,1); //YB_NewComeBag为自定义回调函数名称, 20001为扣除编号,方便统计,2为元宝数量,1为个数(一般使用1即可)
本帖隐藏的内容
end else
This_NPC.NpcDialog(This_Player, '包裹空间不足,请整理后再来抽取奖励!');
end else
This_NPC.NpcDialog(This_Player, '每日抽奖时间为12:00-19:00!');
end else
This_NPC.NpcDialog(This_Player, '活动时间为10月1日至7日!');
end;
function YB_NewComeBag(price, num: Integer):boolean; //YB_NewComeBag为自定义回调函数名称,其余参数为固定格式 ,不可以改变
begin
result := true;
giveYBprz(); //直接调用给奖励方法 *****自定义方法内容需要写在调用之前*****
end;
begin
This_NPC.NpcDialog(This_Player, '巴拉巴拉巴拉巴拉废话先来一段\|'
+'{cmd}<2元宝抽奖/@RdmYBPrz>');
end.
地图刷怪 检测地图怪物数量:
检测某地图指定怪物数量:This_NPC.CheckMapMonByName(mapName , monName)
检测指定地图所有怪物数量:CheckOtherMapMon(mapname) ;该接口不需要npc调用
指定地图刷怪:This_NPC.CreateMon(地图名,X,Y,R,怪物名称,数量);
如:This_NPC.CreateMon('D5071',20,23,10,'混沌牛魔王',1);
传送:
This_Player.Flyto(地图名,x,y); 将角色传送至某地图的x、y点
This_Player.RandomFlyTo(地图名); 将角色传送至某地图的随机点
如:
This_Player.Flyto('D711',200 + random(3) - 1,204 + random(3) - 1);
表示将角色传送至地图 D711的 200,204的 3*3范围内随机点
获取角色信息:
This_Player.Name 角色名称
This_Player.Gender 角色性别0:男 1:女
This_Player.Level 角色等级
This_Player.Job 角色职业0:战士 1:法师 2:道士
行会相关:
This_Player.IsCastle 是否为沙巴克行会
This_Player.GuildName 返回行会名称,没有行会返回''
This_npc.GetCastleGuildName 获取沙巴克行会行会名称
组队,for循环:
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _SP_Wealth_5_1;
begin
This_NPC.NpcDialog(This_Player,
' '
);
end;
procedure SP_Wealth_open(roomIdx:integer);
var
Group: TBaseGroup;
MemberCount,i: Integer;
APlayer: TPlayer;
bIsstu: boolean;
s: string;
begin
if This_Player.MapName <> 'GA0' then
Exit;
Group := This_Player.MyGroup;
if Group = nil then
begin
This_NPC.NpcDialog(This_Player,
'财神宝库需要组队才能进入。');
exit;
end
if not This_Player.IsGroupOwner then
begin
This_Npc.NpcDialog(This_Player,
'您不是所在队伍的队长,不能进入。'
);
Exit;
end;
if This_Player.Level < 35 then
begin
This_Npc.NpcDialog(This_Player,
'你的等级未到35级,不能带领大家进入宝库。'
);
Exit;
end;
if (This_Player.MyLFnum < 10) then
begin
This_Npc.NpcDialog(This_Player,
'你身上携带的灵符不足10张,不能带领大家进入宝库。'
);
Exit;
end
MemberCount := Group.GetMemberCount;
//整队飞到房间中
bIsstu := True;
for i := 0 to MemberCount - 1 do
begin
APlayer := TPlayer(Group.GetMember(i));
if APlayer <> This_Player then
begin
if compareText(APlayer.MapName,'GA0') <> 0 then
begin
s := '你队伍里' + APlayer.Name + '不在庄园,不能进入。\';
bIsstu := false;
break;
end;
end;
end;
if bIsstu = false then
begin
This_NPC.NpcDialog(This_Player,s);
exit;
end
else
begin
This_Player.DecLF(30018,10,false);
This_Player.CallOut(This_NPC,1800,'callOutFlyBack');
for i := 0 to MemberCount - 1 do
begin
APlayer := TPlayer(Group.GetMember(i));
if APlayer <> This_Player then
begin
if compareText(APlayer.MapName,'GA0') = 0 then
begin
APlayer.CallOut(This_NPC,1800,'callOutFlyBack'); //1800秒后执行传出房间的函数
end;
end;
end;
case roomIdx of
1:This_Player.GroupFly('D5074~04');
2:This_Player.GroupFly('D5074~02');
3:This_Player.GroupFly('D5074~03');
end;
end;
end;
procedure callOutFlyBack; //传出房间的函数,判断是否在活动地图,如果在活动地图,传送回庄园
begin
if (CompareText(This_Player.MapName,'D5074~04') = 0) or (CompareText(This_Player.MapName,'D5074~02') = 0)
or (CompareText(This_Player.MapName,'D5074~03') = 0) then
This_Player.RandomFlyTo('GA0');
end;
procedure _SP_Wealth_5_1_1;
begin
SP_Wealth_open(1);
end;
procedure _SP_Wealth_5_1_2;
begin
SP_Wealth_open(2);
end;
procedure _SP_Wealth_5_1_3;
begin
SP_Wealth_open(3);
end;
begin
This_NPC.NpcDialog(This_Player,
'宝库中每过一段时间出现守卫,击败守卫掉落大量珍贵道具,\'
+'还可能出现传说中的“夕兽”,记得要带够足量的“爆竹”哦。\'
+'进入条件:35级玩家为队长,由35级玩家消耗10张灵符,\'
+'带领小队进入,进入后,你的小队有30分钟探宝时间。\ \'
+' '
);
end.
战神引擎php,战神引擎常用脚本接口相关推荐
- java fel_Java表达式引擎fel/groovy/expression4j/java脚本引擎的性能对比【原创】
又是性能对比,最近跟性能较上劲了. 产品中需要用到数学表达式,表达式不复杂,但是对性能要求比较高.选用了一些常用的表达式引擎计算方案,包含:java脚本引擎(javax/script).groovy脚 ...
- mysql引擎模式_mysql引擎,完整的见表语句,数据库模式, 常用数据类型,约束条件...
引擎 show engines : 查看引擎 innodb(默认引擎):支持事务,行级锁,外键myisam:查询效率由于innodb,不需要支持事务,行级锁,外键,可以选用myisam来优化数据库 m ...
- Win7使用金山毒霸提示“安装引擎失败,不支持此接口”的解决方法
很多Win7系统用户在使用金山毒霸的时候,会遇到金山毒霸提示示"安装引擎失败,不支持此接口"的情况.那么,金山毒霸提示安装引擎失败该怎么办呢?下面小编为大家带来Win7使用金山毒霸 ...
- 游戏引擎与游戏引擎开发入门
早想写一点游戏设计的文章与大家交流,一是经验的问题,二是公司正在紧张的游戏制作期,实在抽不出多少时间,一直没有动手,今天忽然头脑发热,写了一段,以后准备陆续写一些游戏创意,策划,制作,流程管理,和制作 ...
- DX9贴图-------VB6编程学习DX9游戏编程DirectX9编程2D小游戏源码冷风引擎CoolWind2D游戏引擎(11)
DX9贴图 先准备2张图片,蜘蛛为m1.png,单眼怪物为m2.png 创建一个Form1.frm,输入如下源码: Private Sub Form_Load()'新手注意:游戏编程中, '通常将窗体 ...
- DX9显示文字-------VB6编程学习DX9游戏编程DirectX9编程2D小游戏源码冷风引擎CoolWind2D游戏引擎(14)
DX9显示文字 创建Form1,输入以下源码: Private Sub Form_Load()'新手注意:游戏编程中, '通常将窗体的 BorderStyle 设置为"Fixed singl ...
- 传奇引擎介绍及引擎的选择
传奇引擎介绍及引擎的选择 奇引擎可以理解为服务端脚本和传奇数据库的支持程序及启动程序,游戏功能的呈现都是用传奇引擎来实现. 不同的传奇引擎在功能上会有差异,比如目前火爆的单职业或靓装版本几乎都是采 ...
- 浏览器内核、排版引擎、js引擎
[定义] 浏览器最重要或者说核心的部分是"Rendering Engine",可大概译为"渲染引擎",不过我们一般习惯将之称为"浏览器内核" ...
- 【大数据分析必备】超全国内常用API接口汇总
下面列举了100多个国内常用API接口,并按照 笔记.出行.词典.电商.地图.电影.即时通讯.开发者网站.快递查询.旅游.社交.视频.天气.团队协作.图片与图像处理.外卖.消息推送.音乐.云.语义识别 ...
- DX9绘制虚线抗锯齿线-------VB6编程学习DX9游戏编程DirectX9编程2D小游戏源码冷风引擎CoolWind2D游戏引擎(13)
DX9绘制虚线抗锯齿线 划线扩展 绘制划线的实际效果图如下: 新建一个Form1,代码如下: Private Sub Form_Load()'新手注意:游戏编程中, '通常将窗体的 BorderSty ...
最新文章
- JavaScript_下_Dom
- qsort与sort()
- 系统集成资质培训 - 标准系列 -软件文档管理指南
- linux centos7 安装最新版git 教程
- dubbo的invoke命令_dubbo 调试服务telnet命令
- 【 .NET Core 3.0 】框架之五 || JWT权限验证
- 【maven】No plugin found for prefix ‘install‘ in the current project
- 【Elasticsearch】 es join 多表关联如何设计
- 开课吧Java课堂:StringBuffer全解,非常详细
- PCTFREEITLCONSISTANT READ
- 5.4 Components -- Wrapping Content in A Component(在组件中包裹内容)
- Package sqlite3 was not found in the pkg-config search path.add the directory containing `sqlite3.pc
- hadoop安装教程(一次填完所有的坑)
- 数值计算方法matlab课后答案,《现代的数值计算方法matlab版》习题解答.pdf
- PFC颗粒6.0软件模拟---工程案例
- 手机如何无线投屏到电视/电脑
- 上位机软件系统开发工具简介
- 约翰霍普金斯大学计算机专业,约翰霍普金斯大学计算机专业排名第几?
- OpenStack配置分布式路由(neutron)
- 14款S400升级20款S450外观套件
热门文章
- 小米手机系统wifi服务器,手机时间变慢,小米高管科普:3招即可解决
- UCSD ECE225A Syllabus
- 08Ansible jinjia2模板的使用和管理大项目
- action mutation 调用_Vuex源码学习(七)action和mutation如何被调用的(调用篇)
- gmoj 6842. 【2020.11.5提高组模拟】淘淘蓝蓝之扮猪吃愉悦
- 12000 颗卫星为地球织网!马斯克昨夜踏上改变世界的第6个征程
- 深入浅出数据库索引原理
- clickhouse索引原理介绍
- ftp服务器打开文件时浏览器,ftp服务器怎样浏览器打开文件
- opencv: C++实现将彩色图转换为灰色图