![Board logo](images/default/logo.gif)
标题: [魔力私服分享] LUA腳本 簡易生蛋 道具參數LUA_usePetEgg [打印本页]
作者: jeff10363 时间: 2016-4-27 11:18 标题: LUA腳本 簡易生蛋 道具參數LUA_usePetEgg
今天分享一個寫出來 很簡單的腳本+ {' J# N* [1 d- [- Q: B
' d1 T5 x H- ^ k: o* M( g—魔力私服,魔力宝贝私服技术,DELPHI编程,魔力寶貝, 魔力宝贝, 크로스게이트,クロスゲート這個腳本 可以拿來做為 道具參數的呼應 參考文章吧?
e ]- l/ A. a8 O. M9 ]魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表懂得應用的話 可以弄成各種東西=""=
( F4 `/ K# S/ ^) Y魔力私服,最新魔力宝贝私服技术交流
; H$ v5 P) ~! ]0 J5 }8 d妖城在线论坛9 k% x" i, n0 l- ] @6 E' @% u
0 q5 h$ F9 @" F, h7 f我們通常要寫寵物蛋
" Q8 ?. T2 V, S4 g [魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表都會反覆的在 npc 底下 新增對應的txt 檢查道具 刪除道具 產生寵物
- r/ B Y# _* g妖城在线论坛可是對我來說 繁瑣的去新增txt 煩煩的=""=魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表8 `# M& s' C" J- ~6 I6 K
妖城在线论坛4 m) \! |4 Z$ H# {/ w5 [7 N9 J
所以就寫了 一個簡易生蛋的功能,下面附上GBK的檔案~((轉檔沒測試過 有問題在跟我講妖城在线论坛+ r7 C& G) u6 S" j! t
: Z1 t; }& U. j0 E" m
【示演】
* I; l6 l0 h6 X0 k8 R妖城在线论坛在道具itemset.txt新增LUA_usePetEgg類型的道具4 z/ J" [# T1 g7 Z
參數 則設定enemy裡頭的怪物ID 下方參數 設定 1 代表虎人編號魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表 H; `6 _0 |' r$ l3 K) j% K$ F
套用LUA後 以後只要新增itemset.txt 就可以了~~~魔力私服,最新魔力宝贝私服技术交流: k( m# ` r+ Z/ d+ [ z7 K7 ?
魔力私服,最新魔力宝贝私服技术交流: A) d+ y- y0 Y( K5 }
1 C& G3 a* r; G' i蛋? 虎人的蛋 1 LUA_usePetEgg 90001078 99451 0 43 0 1 0 93 1 1 1 1 0 0 0 0 1 0 100 0 0 0
. |+ L, w! ?9 g2 o8 o: B3 h魔力私服,最新魔力宝贝私服技术交流( L; T, q$ r& z7 t- }! O: W& Y# H
. G+ E) J( q" D0 l1 c魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表【腳本內容】复制内容到剪贴板
代码:
--2016/04/27 阿晉
--简易生蛋功能
--
--
--免新增npc底下 生蛋脚本 直接透过item参数诞生宝宝
--
--注册一个道具使用参数
NL.RegItemString(nil, "PetEgg", "LUA_usePetEgg");
function PetEgg(player,toplayer,itemSlot)
--取到道具的自定參數
local ItemIndex=Char.GetItemIndex(player,itemSlot);
--复制内值
local itemval=Item.GetData(ItemIndex,%道具_自用参数%);
if(Char.PetNum(player)==5)then
NLG.SystemMessage(player,"宠物栏已满,无法使用。");
return;
end
Item.Kill(player,ItemIndex,itemSlot);
Char.GivePet(player,itemval,0);
--Char.GivePet(player,itemval,1);--满档
end
【後記】
- t/ |) G; O$ C, o0 [3 j5 `, B魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表" D& ~ h0 C) d# [7 B2 X4 f5 Z
1.這個蛋只會檢查是否 有寵物欄空間
, }+ x! j7 _8 a: v; x8 {. [# p妖城在线论坛2.請勿讓他堆疊 刪除道具 是刪除那一整格 而非數量 否則可能整格蛋 刪光光
( D% ?9 w1 t) J7 l8 w! H魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表3.符合寵物空間 刪除道具 產生寵物
# W2 A( p" `2 S/ ]7 k/ sbbs.mocwww.com4.Char.GivePet(player,itemval,1); 更改這個可以產生 滿檔寶寶bbs.mocwww.com/ {! h# C- R W `7 d% w }7 R
5.另外 這個lua產生的效果很陽春-..-沒有窗口魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表4 O/ Q- ]% d# W5 P: m
* O7 R2 K( p+ J3 V4 e' s8 D% z) N. Rbbs.mocwww.com
' Q1 M v. y5 U- c' p$ R魔力私服,最新魔力宝贝私服技术交流【安裝方法】9 {- D6 \& S/ `0 c
1.版本確認 GA版本bbs.mocwww.com6 _" p! k5 H6 E( n
2.把PetEgg.lua 丟到 lua\Module 下面
4 I% m1 i7 H+ `/ b9 d3.Config內新增
/ n; M* ~; F7 H" K) }3 xbbs.mocwww.comuseModule("PetEgg");
& e2 _ M6 r1 I8 [% [5 D, j4 \9 S魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表妖城在线论坛* p" L/ y5 v2 n9 a( F# s! [3 [; c
[ 本帖最后由 jeff10363 于 2016-4-27 13:53 编辑 ]
附件: PetEgg.rar (2016-4-27 11:18, 500 Bytes) / 该附件被下载次数 245
http://bbs.mocwww.com/attachment.php?aid=17192
作者: 易凡 时间: 2016-4-27 13:49
感谢分享,我抛装引玉一下。。。。因为这个道具功能,我当初也做过。不过因为引擎不一样,所以我下面发的代码仅供参考~~
作者: 易凡 时间: 2016-4-27 13:57
道具使用事件代码:复制内容到剪贴板
代码:
--_player:使用道具的角色
--_item:使用道具的索引实例
--_slot:被使用道具所在栏位
--返回值:1表示正常使用道具,0表示禁止使用道具
function RItemUseEvent(_player,_item,_slot)
--容错
if _slot < 0 or _slot > 27 then
return 0;
end
if _item == -1 then
return 0;
end
--判断是否已鉴定
if Item.GetData(_item,%ITEM_LEAKLEVEL%) == 0 then
NLG.SystemMessage(_player,"未鉴定道具不可使用");
return 0;
end
local _itemid = Item.GetData(_item,%ITEM_ID%);
local _itemname = Item.GetData(_item,%ITEM_TRUENAME%);
local _itemusefunc = Item.GetData(_item,%ITEM_USEFUNC%);
--给予宠物,参数有一个或者两个:宠物编号,是否满档
if _itemusefunc == "LUA_useGivePet" then
Char.SetData(_player,LuaSetup.TMP_ItemSelect,_slot);
NLG.CallNpcTalked(tbl_npc.GivePetNpc_id16,_player);
return 1;
end;
return 1;
end
功能NPC的实现代码复制内容到剪贴板
代码:
--GivePet——GivePetNpc_id16——Lua脚本
function GivePetNpc_id16_Talked(_npc,_player)
--判断玩家身上是否有足够的宠物栏空位
if Char.PetSpace(_player) == 0 then
MyFun.EndWindow(_player,"\\n\\n\\n\\n@c您的宠物栏满了,请先整理!");
return;
end
--验证缓存的道具
local _item = MyFun.CheckItemBuffer(_player,"LUA_useGivePet");
if _item == nil then
return;
end;
local _itemname = Item.GetData(_item,%ITEM_TRUENAME%);
local _arg = Item.GetData(_item,%ITEM_ARGUMENT%);
local _argstl = MyFun.Split(_arg,",");
local _enemyid = tonumber(_argstl[1]);
if _enemyid == nil then
MyFun.EndWindow(_player,"\\n\\n\\n\\n@c道具参数有误,请截图联系GM\\nError:LUA_useGivePet");
return;
end
local _full = 0;
if (#_argstl == 2) and (_argstl[2] == "1") then
_full = 1;
end
local _enemyindex = Data.GetIndex(%FILE_ENEMY%,_enemyid);
if _enemyindex == nil then
return;
end
local _enemybaseid = Data.GetInt(%FILE_ENEMY%,_enemyindex,%ENEMYDATA_TEMPNO%);
local _enemybaseindex = Data.GetIndex(%FILE_ENEMYBASE%,_enemybaseid);
local _enemylv = Data.GetInt(%FILE_ENEMY%,_enemyindex,%ENEMYDATA_LV_MAX%);
if _enemybaseindex == nil then
return;
end
local _enemybasename = Data.GetChar(%FILE_ENEMYBASE%,_enemybaseindex,%E_T_NAME%);
local _str = "\\n\\n 您确定要使用“".._itemname.."”吗?\\n"
.."\\n 召唤魔族:".._enemybasename
.."\\n 魔族等级:".._enemylv.."级";
if _full == 1 then
_str = _str.."\\n 魔族档次:满档";
else
_str = _str.."\\n 魔族档次:随机档";
end
NLG.ShowWindowTalked(_player,_npc,%WINDOW_MESSAGETYPE_MESSAGE%,%BUTTON_OK_CANCEL%,LuaSetup.MySeqno+1,_str);
return;
end
function GivePetNpc_id16_WTalked(_npc,_player,_seqno,_select,_data)
local _seqno = _seqno - LuaSetup.MySeqno;
--验证缓存的道具
local _item = MyFun.CheckItemBuffer(_player,"LUA_useGivePet");
if _item == nil then
return;
end;
local _itemid = Item.GetData(_item,%ITEM_ID%);
local _arg = Item.GetData(_item,%ITEM_ARGUMENT%);
local _argstl = MyFun.Split(_arg,",");
local _enemyid = tonumber(_argstl[1]);
local _full = 0;
if (#_argstl == 2) and (_argstl[2] == "1") then
_full = 1;
end
if (tonumber(_seqno)==1) then
if (tonumber(_select) == %BUTTON_OK%) then
Char.DelItem(_player,_itemid,1);
local _pet = Char.GivePet(_player,_enemyid,_full);
if _pet ~= nil then
NLG.SystemMessage(_player,"获得了宠物『"..Char.GetData(_pet,%CHAR_Name%).."』");
NLG.UpChar(_pet);
end
return;
else
return;
end
return;
end
return;
end
function GivePetNpc_id16_LoopEvent(_npc)
return;
end
创建这个功能NPC的createnpc代码复制内容到剪贴板
代码:
--GivePet——GivePetNpc_id16
function GivePetNpc_id16_Create()
if (GivePetNpc_id16 == nil) then
GivePetNpc_id16 = NL.CreateNpc("GivePet",100453,0,779,0,11,4);
tbl_npc.GivePetNpc_id16=GivePetNpc_id16;
Char.SetTalkedEvent("lua/Npc/GivePet_id16.lua","GivePetNpc_id16_Talked", GivePetNpc_id16);
Char.SetWindowTalkedEvent(nil,"GivePetNpc_id16_WTalked", GivePetNpc_id16);
--Char.SetLoopEvent(nil,"GivePetNpc_id16_LoopEvent", GivePetNpc_id16,1000);
end
end
itemset数据范例
) p# N0 y9 }. D7 c# C: z召唤卡? 『满档黄蜂』召唤卡 314,1 LUA_useGivePet 60501 27489 26 0 1 0 0 1 1 1 1 0 0 0 0 1 0 0 605011 605011 100 0 0 0魔力私服,最新魔力宝贝私服技术交流. |; a3 e& ?& z8 x+ r0 O. \ ^
比如参数直接写314就是随机档次了,314,1就是满档
* @/ h; {( d( _+ N* J- p魔力私服,最新魔力宝贝私服技术交流bbs.mocwww.com; F- W5 m; q* S. W
确实比较方便
2 R+ k' V( X4 n妖城在线论坛
图片附件: 11.jpg (2016-4-27 13:57, 102.9 KB) / 该附件被下载次数 124
http://bbs.mocwww.com/attachment.php?aid=17193
作者: jeff10363 时间: 2016-4-27 14:07
感謝站長提供 語法參照魔力私服,最新魔力宝贝私服技术交流) l' R. r2 m! i' O
哈 原來拖GA接口的福 才可以寫的這麼簡短bbs.mocwww.com/ z/ |/ X& w5 D$ w3 v6 g% S* m
1 Y! h4 p( }0 x& L5 t$ e# U- p" [- z% v, r$ b
現在還在試寫-...-
' f5 L. x+ b# I1 B; l/ p妖城在线论坛bbs.mocwww.com, D9 h5 Y3 N! S: P
1.寵物技能捲軸(點寵 開窗 選寵學) 妖城在线论坛' z. i- U4 N& D3 T& [7 G
學習特殊技能使用..
# E8 E- T8 @4 ^魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表=>不用開 寵技npc
! X% z( S3 R+ K$ ybbs.mocwww.com還怕別人一次學五隻! s0 m% p4 [. s/ p
或是另外做一個獨立 隔開的地圖 來限制
( u! u* ^$ o$ G6 R( y# q魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表
7 M K) |- K: a( M5 g4 G2.封印盒子魔力私服,最新魔力私服,魔力宝贝私服,魔力宝贝私服技术,魔力宝贝私服,私服架设技术,妖城,FLASH,电影,黑客,网络,网吧,破解,入侵,注册表( J7 [4 m2 c! _* s; G( Y0 N% D
把不可交異的東西 水鏡、哥、弟戒、放大鏡
. i+ o4 g( a6 e) Mbbs.mocwww.com裝進去 只有本人(檢查CDK 跟 角色ID) : W& M i" Z! d; X
才可以打開 方便收到分身那 節省道具攔空間% ]* q8 c6 s$ S t. e& x7 ~" z+ s
7 X% |+ ~" w n& ]& v
[ 本帖最后由 jeff10363 于 2016-4-27 14:09 编辑 ]
作者: 易凡 时间: 2016-4-27 15:55
复制内容到剪贴板
代码:
--宠物技能学习——Pet_AddSkillNpc_id13——Lua脚本
--道具参数格式:techid,cost
--cost可选,不填写,则表示免费,如果填写-1则表示使用tech.txt中定义的价格
function Pet_AddSkillNpc_id13_Talked(_npc,_player)
local _str = MyFun.ShowSelectPetstr(_player,"学习技能");
NLG.ShowWindowTalked(_player,_npc,%WINDOW_MESSAGETYPE_SELECT%,%BUTTON_CANCEL%,LuaSetup.MySeqno+1,_str);
return;
end
function Pet_AddSkillNpc_id13_WTalked(_npc,_player,_seqno,_select,_data)
local _seqno = _seqno - LuaSetup.MySeqno;
--验证缓存的道具
local _item = MyFun.CheckItemBuffer(_player,"LUA_usePetAddSkill");
if _item == nil then
return;
end;
local _arg = Item.GetData(_item,%ITEM_ARGUMENT%);
local _argstl = MyFun.Split(_arg,",");
local _techid = tonumber(_argstl[1]);
local _needgold = 0;
local _techindex = Data.GetIndex(%FILE_TECH%,_techid);
if _techindex == nil then
MyFun.EndWindow(_player,"\\n\\n\\n\\n@c技能ID错误,请截图联系GM");
return;
end
local _techname = Data.GetChar(%FILE_TECH%,_techindex,%TECH_NAME%);
if #_argstl == 2 then
if tonumber(_argstl[2]) ~= -1 then
_needgold = tonumber(_argstl[2]);
else
local _techcost = Data.GetInt(%FILE_TECH%,_techindex,%TECH_COST%);
if _techcost ~= "" then
_needgold = tonumber(_techcost);
end
end
end
--选择宠物后确认
if (tonumber(_seqno)==1 and _data~=nil) then
if tonumber(_select) == %BUTTON_CANCEL% then
return;
end
--容错
if MyFun.CheckSelectWindowData(_player,_data,5) == false then
return;
end
local _petpos = tonumber(_data) - 1;
local _pet = Char.GetPet(_player,_petpos);
if _pet == nil then
MyFun.EndWindow(_player,"\\n\\n\\n\\n@c您选择的位置没有宠物,请重新选择!");
return;
end
--这里加一个验证,禁止部分宠物学习指定技能
if (Char.GetData(_pet,%PET_PetId%) >= 20921) and (Char.GetData(_pet,%PET_PetId%) <= 20924) and (_techid == 8900) then
MyFun.EndWindow(_player,"\\n\\n\\n\\n@c很抱歉,出生系列牛头怪禁止学习宠物邮件");
return;
end
local _itemname = Item.GetData(_item,%ITEM_TRUENAME%);
local _petname = Char.GetData(_pet,%CHAR_Name%);
local _petlv = Char.GetData(_pet,%CHAR_Lv%);
Char.SetData(_player,LuaSetup.TMP_PetSelect,_petpos);
local _str = "\\n\\n 已选宠物:".._petname.."\\n 当前等级:".._petlv.." 级\\n\\n 您确定要让这只宠物学习新技能——\\n “".._techname.."”吗?";
if _needgold > 0 then
_str = _str.."\\n 这将需要花费".._needgold.."G";
end
NLG.ShowWindowTalked(_player,
_npc,
%WINDOW_MESSAGETYPE_MESSAGE%,
%BUTTON_YES_NO%,
LuaSetup.MySeqno+2,
_str);
return;
end
--进行学习技能操作
if (tonumber(_seqno)==2) then
if tonumber(_select) == %BUTTON_NO% then
--将缓存释放
Char.SetData(_player,LuaSetup.TMP_ItemSelect,0);
Char.SetData(_player,LuaSetup.TMP_PetSelect,0);
return;
end
local _pet = MyFun.CheckPetBuffer(_player);
if _pet == nil then
return;
end
local _petname = Char.GetData(_pet,%CHAR_Name%);
local _petlv = Char.GetData(_pet,%CHAR_Lv%);
local _itemid = Item.GetData(_item,%ITEM_ID%);
if Char.ItemNum(_player,_itemid) > 0 then
--先判断金币是否充足
if Char.GetData(_player,%PLAYER_Gold%) < _needgold then
MyFun.EndWindow(_player,"\\n\\n\\n\\n@c您的魔币不足以支付该技能学习费用!");
return;
end
--尝试学习技能
local _ret = Pet.AddSkill(_pet,_techid);
if _ret == nil then
MyFun.EndWindow(_player,"\\n\\n\\n\\n@c学习失败,可能宠物的技能已满了!");
return;
end
Char.DelItem(_player,_itemid,1);--删除道具
if _needgold > 0 then
Char.AddGold(_player,-_needgold);
end
NLG.UpChar(_pet);
NLG.SystemMessage(_player,"[系统提示] 您的宠物“".._petname.."”已成功习得新技能“".._techname.."”");
--将缓存释放
Char.SetData(_player,LuaSetup.TMP_ItemSelect,0);
Char.SetData(_player,LuaSetup.TMP_PetSelect,0);
return;
end
end
return;
end
function Pet_AddSkillNpc_id13_LoopEvent(_npc)
return;
end
复制内容到剪贴板
代码:
--组合宠物选择框
function MyFun.ShowSelectPetstr(_player,_keystr)
local _keystrnew = "操作";
if _keystr ~= nil then
_keystrnew = _keystr;
end
local _str = "3|\\n\\n 请选择您要".._keystrnew.."的宠物!\\n\\n";
local _str2 = "";
local _str3 = "";
for i=0,4 do
local _pet = Char.GetPet(_player,i);
if (_pet == nil) then
_str = _str .. " *空*\\n";
else
_str2 = Char.GetData(_pet,%CHAR_Name%);
_str2 = " "..string.format("%-20s",_str2);
_str3 = "LV"..Char.GetData(_pet,%CHAR_Lv%);
_str2 = string.format("%20s",_str2);
_str = _str.._str2.._str3.."\\n";
end
end
return _str;
end
复制内容到剪贴板
代码:
--验证缓存的所选择宠物
function MyFun.CheckPetBuffer(_player)
local _slot = Char.GetData(_player,LuaSetup.TMP_PetSelect);
if _slot < 0 or _slot > 4 then
MyFun.EndWindow(_player,"\\n\\n\\n\\n@c宠物栏异常,请截图联系GM");
return;
end
local _pet = Char.GetPet(_player,_slot)
if _pet == nil then
MyFun.EndWindow(_player,"\\n\\n\\n\\n@c您所选择的宠物异常,请截图联系GM");
return;
else
return _pet;
end
end
复制内容到剪贴板
代码:
--分割字符串
function MyFun.Split(szFullString, szSeparator)
local nFindStartIndex = 1;
local nSplitIndex = 1;
local nSplitArray = {};
while true do
local nFindLastIndex = string.find(szFullString, szSeparator, nFindStartIndex);
if not nFindLastIndex then
nSplitArray[nSplitIndex] = string.sub(szFullString, nFindStartIndex, string.len(szFullString));
break;
end
nSplitArray[nSplitIndex] = string.sub(szFullString, nFindStartIndex, nFindLastIndex - 1);
nFindStartIndex = nFindLastIndex + string.len(szSeparator);
nSplitIndex = nSplitIndex + 1;
end
return nSplitArray;
end
--结束窗口
function MyFun.EndWindow(_player,_str)
local _fd = Char.GetData(_player,%PLAYERWORK_Fd%);
local _objindex = Char.GetData(_player,%CHARWORK_ObjIndex%);
Protocol.WN_Send(_fd,%WINDOW_MESSAGETYPE_MESSAGE%,%BUTTON_OK%,LuaSetup.EndWindowSeqno,_objindex,_str);
return;
end
--判断选择窗口异常
function MyFun.CheckSelectWindowData(_player,_data,_max)
if (_data == "") or (_data == nil) or (tonumber(_data) == nil) then
MyFun.EndWindow(_player,"@c\\n\\n\\n\\n异常选项处理失败,请截图联系客服!");
return false;
end
if (tonumber(_data) > _max or tonumber(_data) < 1) then
MyFun.EndWindow(_player,"@c\\n\\n\\n\\n异常选项处理失败,请截图联系客服!");
return false;
end
return true;
end
欢迎光临 妖城在线论坛 (http://bbs.mocwww.com/) |
Powered by Discuz! 6.0.0 |