#include "npc_lua.h" #include "util.h" #include "char.h" #include "char_base.h" #include "char_data.h" #include "anim_tbl.h" #include "object.h" #include "battle.h" #include "npcutil.h" #include "item.h" #include "readmap.h" /* #include int code_convert1(char *from_charset,char *to_charset,char *inbuf,size_t inlen,char *outbuf,size_t outlen) { iconv_t cd; char **pin = &inbuf; char **pout = &outbuf; cd = iconv_open(to_charset,from_charset); if (cd==0) return -1; memset(outbuf,0,outlen); if (iconv(cd,pin,&inlen,pout,&outlen)==-1) return -1; iconv_close(cd); return 0; } */ #ifdef _JZ_NEWSCRIPT_LUA typedef enum { LUAITEM_PREOVERFUNC = ITEM_PREOVERFUNC - ITEM_FIRSTFUNCTION, LUAITEM_POSTOVERFUNC = ITEM_POSTOVERFUNC - ITEM_FIRSTFUNCTION, LUAITEM_WATCHFUNC = ITEM_WATCHFUNC - ITEM_FIRSTFUNCTION, LUAITEM_USEFUNC = ITEM_USEFUNC - ITEM_FIRSTFUNCTION, LUAITEM_ATTACHFUNC = ITEM_ATTACHFUNC - ITEM_FIRSTFUNCTION, LUAITEM_DETACHFUNC = ITEM_DETACHFUNC - ITEM_FIRSTFUNCTION, LUAITEM_DROPFUNC = ITEM_DROPFUNC - ITEM_FIRSTFUNCTION, LUAITEM_PICKUPFUNC = ITEM_PICKUPFUNC - ITEM_FIRSTFUNCTION, #ifdef _Item_ReLifeAct LUAITEM_DIERELIFEFUNC = ITEM_DIERELIFEFUNC - ITEM_FIRSTFUNCTION, #endif }LUAITEM_FUNC; lua_State *M_Script_Lua = NULL; //实例句柄 unsigned int M_Create_Num = 0; char M_OutErrMsg[1024]; extern lua_const M_Lua_RegConstList[]; extern int NPC_Lua_NL_SetCharSignDay(lua_State *_NLL); extern int NPC_Lua_NL_GetCharSignDay(lua_State *_NLL); extern int NPC_Lua_NL_Print(lua_State *L); static luaL_Reg M_RegList[] = { {NULL, NULL}, }; static luaL_Reg Bit_RegList[] = { {"band", NPC_Lua_Bit_band}, {"bor", NPC_Lua_Bit_bor}, {"bxor", NPC_Lua_Bit_bxor}, {"lshift", NPC_Lua_Bit_lshift}, {"rshift", NPC_Lua_Bit_rshift}, {NULL, NULL}, }; static luaL_Reg Map_RegList[] = { {"CheckCoordinates",NPC_Lua_Map_CheckCoordinates}, {"GetExitFloorXY",NPC_Lua_Map_GetExitFloorXY}, {"GetfloorX",NPC_Lua_Map_GetfloorX}, {"GetfloorY",NPC_Lua_Map_GetfloorY}, {"GetTileAndObjId",NPC_Lua_Map_GetTileAndObjId}, {"SetTileAndObjId",NPC_Lua_Map_SetTileAndObjId}, {"GetWalkAbleFromPoint",NPC_Lua_Map_GetWalkAbleFromPoint}, {"GetImageData",NPC_Lua_Map_GetImageData}, {"SetImageData",NPC_Lua_Map_SetImageData}, {"GetTopObj",NPC_Lua_Map_GetTopObj}, {"GetNextObj",NPC_Lua_Map_GetNextObj}, {"CheckImageIndex",NPC_Lua_Map_CheckImageIndex}, {"CheckIndex",NPC_Lua_Map_CheckIndex}, {"MakeNewMap",NPC_Lua_Map_MakeNewMap}, {"DelNewMap",NPC_Lua_Map_DelNewMap}, {"SetExWarp",NPC_Lua_Map_SetExWarp}, {"SetMapPoint",NPC_Lua_Map_SetMapPoint}, {"DelMapPoint",NPC_Lua_Map_DelMapPoint}, {"getFloorName",NPC_Lua_Map_getFloorName}, #ifdef _UPMAP_ {"UpMap",NPC_Lua_Map_Upmap}, #endif {"检测范围",NPC_Lua_Map_CheckCoordinates}, {"检测地图是否登出",NPC_Lua_Map_GetExitFloorXY}, {"取X",NPC_Lua_Map_GetfloorX}, {"取Y",NPC_Lua_Map_GetfloorY}, {"取x",NPC_Lua_Map_GetfloorX}, {"取y",NPC_Lua_Map_GetfloorY}, {"取地板装饰",NPC_Lua_Map_GetTileAndObjId}, {"置地板装饰",NPC_Lua_Map_SetTileAndObjId}, {"是否走动",NPC_Lua_Map_GetWalkAbleFromPoint}, {"取数据",NPC_Lua_Map_GetImageData}, {"置数据",NPC_Lua_Map_SetImageData}, {"取物件",NPC_Lua_Map_GetTopObj}, {"取下一个物件",NPC_Lua_Map_GetNextObj}, {"检测图片索引",NPC_Lua_Map_CheckImageIndex}, {"检测地图",NPC_Lua_Map_CheckIndex}, {"制作地图",NPC_Lua_Map_MakeNewMap}, {"删除地图",NPC_Lua_Map_DelNewMap}, {"置退出传送点",NPC_Lua_Map_SetExWarp}, {"置传送点",NPC_Lua_Map_SetMapPoint}, {"删除传送点",NPC_Lua_Map_DelMapPoint}, {"取原名",NPC_Lua_Map_getFloorName}, #ifdef _UPMAP_ {"更新",NPC_Lua_Map_Upmap}, #endif {NULL, NULL}, }; static luaL_Reg Spell_RegList[] = { #ifdef _CHAR_PROFESSION {"PETSKILL_GetData",NPC_Lua_Spell_PETSKILL_GetData}, {"PROFESSION_GetData",NPC_Lua_Spell_PROFESSION_GetData}, {"MAGIC_GetData",NPC_Lua_Spell_MAGIC_GetData}, {"PETSKILL_SetData",NPC_Lua_Spell_PETSKILL_SetData},//未测试 {"PROFESSION_SetData",NPC_Lua_Spell_PROFESSION_SetData},//未测试 {"MAGIC_SetData",NPC_Lua_Spell_MAGIC_SetData},//未测试 {"取宠物技能数据",NPC_Lua_Spell_PETSKILL_GetData}, {"取职业技能数据",NPC_Lua_Spell_PROFESSION_GetData}, {"取精灵技能数据",NPC_Lua_Spell_MAGIC_GetData}, {"置宠物技能数据",NPC_Lua_Spell_PETSKILL_SetData},//未测试 {"置职业技能数据",NPC_Lua_Spell_PROFESSION_SetData},//未测试 {"置精灵技能数据",NPC_Lua_Spell_MAGIC_SetData},//未测试 #endif {"置精灵技能数据",NPC_Lua_Spell_MAGIC_SetData},//未测试 //{"置宠物技能数据",NPC_Lua_Spell_PETSKILL_SetData},//未测试 {"取宠物技能数据",NPC_Lua_Spell_PETSKILL_GetData}, {"取精灵技能数据",NPC_Lua_Spell_MAGIC_GetData}, {NULL, NULL}, }; static luaL_Reg NL_RegList[] = { //NL {"SetCharSignDay", NPC_Lua_NL_SetCharSignDay}, {"置签到数据", NPC_Lua_NL_SetCharSignDay}, {"GetCharSignDay", NPC_Lua_NL_GetCharSignDay}, {"取签到数据", NPC_Lua_NL_GetCharSignDay}, {"writeshopdata", NPC_Lua_NL_WriteShopData}, {"写商城数据", NPC_Lua_NL_WriteShopData}, {"print", NPC_Lua_NL_Print}, {"打印", NPC_Lua_NL_Print}, {"CreateSpecialNpc", NPC_Lua_NL_CreateSpecialNpc}, {"DelNpc", NPC_Lua_NL_DelNpc}, {"GetStringFromIndexWithDelim", NPC_Lua_NL_GetStringFromIndexWithDelim},//拆分字符 {"ANSI_PlayerLoop", NPC_Lua_NL_ANSI_PlayerLoop},//遍历所有在线宠物 返回所有索引编号 {"PetLoopGetNext", NPC_Lua_NL_PetLoopGetNext},//遍历所有在线宠物 返回所有索引编号 {"ItemLoopGetNext", NPC_Lua_NL_ItemLoopGetNext},//遍历所有道具 返回所有索引编号 {"PlayerLoopGetNext", NPC_Lua_NL_PlayerLoopGetNext},//遍历所有人物 返回所有索引编号 {"GetConfigLineType", NPC_Lua_NL_GetConfigLineType},//返回CF字段类型 {"GetConfigLineVal", NPC_Lua_NL_GetConfigLineVal},//返回CF字段值 {"CheckNpcEventFree", NPC_Lua_CheckNpcEventFree},//使用NPC脚本检测条件 {"DoNpcEventAction", NPC_Lua_DoNpcEventAction},//使用NPC脚本语言 {"SetTimer", NPC_Lua_NL_SetTimer},//设定一个定时器返回定时器ID {"DelTimer", NPC_Lua_NL_DelTimer},//删除一个定时器ID {"RunSaFuncII", NPC_Lua_NL_RunSaFuncII},//调用一个服务端内定义好的2个INT参数的函数。 {"RunSaFuncIII", NPC_Lua_NL_RunSaFuncIII},//调用一个服务端内定义好的3个INT参数的函数。 {"ANSI_PlayerLoop", NPC_Lua_NL_ANSI_PlayerLoop},//遍历下一个人物索引 {"ANSI_PetLoop", NPC_Lua_NL_ANSI_PetLoop},//遍历下一个宠物索引 {"ANSI_ItemLoop", NPC_Lua_NL_ANSI_ItemLoop},//遍历下一个道具索引 {"ClsMk", NPC_Lua_NL_ClsMk}, {"AddCheckNum", NPC_Lua_NL_AddCheckNum}, {"Mkstring", NPC_Lua_NL_Mkstring}, {"Mkint", NPC_Lua_NL_Mkint}, {"SendMesg", NPC_Lua_NL_SendMesg}, {"getGameservername", NPC_Lua_NL_getGameservername}, {"取服务器名", NPC_Lua_NL_getGameservername}, {"取错误信息", NPC_Lua_NL_GetErrorStr}, {"创建NPC", NPC_Lua_NL_CreateNpc}, {"创建npc", NPC_Lua_NL_CreateNpc}, {"创建特别NPC", NPC_Lua_NL_CreateSpecialNpc}, {"创建特别npc", NPC_Lua_NL_CreateSpecialNpc}, {"删除NPC", NPC_Lua_NL_DelNpc}, {"删除npc", NPC_Lua_NL_DelNpc}, {"分割字符", NPC_Lua_NL_GetStringFromIndexWithDelim},//拆分字符 {"注册宠物回调", NPC_Lua_NL_PetLoopGetNext},//遍历所有在线宠物 返回所有索引编号 {"注册道具回调", NPC_Lua_NL_ItemLoopGetNext},//遍历所有道具 返回所有索引编号 {"注册人物回调", NPC_Lua_NL_PlayerLoopGetNext},//遍历所有人物 返回所有索引编号 {"取CF类型", NPC_Lua_NL_GetConfigLineType},//返回CF字段类型 {"取cf类型", NPC_Lua_NL_GetConfigLineType},//返回CF字段类型 {"取CF值", NPC_Lua_NL_GetConfigLineVal},//返回CF字段值 {"取cf值", NPC_Lua_NL_GetConfigLineVal},//返回CF字段值 {"npc语句检测", NPC_Lua_CheckNpcEventFree},//使用NPC脚本检测条件 {"NPC语句检测", NPC_Lua_CheckNpcEventFree},//使用NPC脚本检测条件 {"使用NPC脚本", NPC_Lua_DoNpcEventAction},//使用NPC脚本语言 {"创建定时器", NPC_Lua_NL_SetTimer},//设定一个定时器返回定时器ID {"删除定时器", NPC_Lua_NL_DelTimer},//删除一个定时器ID {"调用函数II", NPC_Lua_NL_RunSaFuncII},//调用一个服务端内定义好的2个INT参数的函数。 {"调用函数III", NPC_Lua_NL_RunSaFuncIII},//调用一个服务端内定义好的3个INT参数的函数。 {"遍历玩家索引", NPC_Lua_NL_ANSI_PlayerLoop},//遍历所有在线宠物 返回所有索引编号 {"遍历宠物索引", NPC_Lua_NL_ANSI_PetLoop},//遍历下一个宠物索引 {"遍历道具索引", NPC_Lua_NL_ANSI_ItemLoop},//遍历下一个道具索引 {"清空封包数据", NPC_Lua_NL_ClsMk}, {"封包总数", NPC_Lua_NL_AddCheckNum}, {"制作字符串封包", NPC_Lua_NL_Mkstring}, {"制作整数封包", NPC_Lua_NL_Mkint}, {"发送封包", NPC_Lua_NL_SendMesg}, {NULL, NULL}, }; static luaL_Reg Char_RegList[] = { //获取数据的接口 {"getVipPoint", NPC_Lua_Char_getVipPoint}, //{"getjfPoint", NPC_Lua_Char_getjfPoint}, //{"getxjPoint", NPC_Lua_Char_getxjPoint}, {"setVipPoint", NPC_Lua_Char_setVipPoint}, //{"setjfPoint", NPC_Lua_Char_setjfPoint}, //{"setxjPoint", NPC_Lua_Char_setxjPoint}, {"IsEventEnd", NPC_Lua_Char_IsEventEnd}, {"IsEventNow", NPC_Lua_Char_IsEventNow}, // {"FindItemId", NPC_Lua_Char_FindItemId}, {"FindPetEnemyId", NPC_Lua_Char_FindPetEnemyId}, {"GetAllocPoint",NPC_Lua_Char_GetAllocPoint}, {"GetDataFromEnemyBase",NPC_Lua_Char_GetDataFromEnemyBase}, {"GetPlayIndex", NPC_Lua_Char_GetPlayerIndex}, {"FindItemIndex", NPC_Lua_Char_FindItemIndex}, {"FindPetIndex", NPC_Lua_Char_FindPetIndex}, {"CheckIndex",NPC_Lua_CHAR_CHECKINDEX}, {"GetPetSkill", NPC_Lua_Char_GetPetSkill},// {"GetPetSkillNo", NPC_Lua_Char_GetPetSkillNo},// {"GetEmptyItemBoxNum", NPC_Lua_Char_GetEmptyItemBoxNum},// {"GetEmptyPetBoxNum", NPC_Lua_Char_GetEmptyPetBoxNum},// {"GetPlayerPetNum", NPC_Lua_Char_GetPlayerPetNum},// {"GetPlayerItemNum", NPC_Lua_Char_GetPlayerItemNum},// {"CharRidNo", NPC_Lua_Char_RidNo}, // {"getPlayerMaxNum", NPC_ABLua_char_getPlayerMaxNum},// {"getBattleexp", NPC_ABLua_char_getBattleexp},// {"SetPetSkill", NPC_Lua_Char_SetPetSkill},// {"SetPetSkillNo", NPC_Lua_Char_SetPetSkillNo},// {"ComplianceParameter", NPC_Lua_Char_ComplianceParameter}, {"HcItemId", NPC_Lua_Char_HcItemId}, {"DelHcItem", NPC_Lua_Char_DelHcItem}, {"GETFM", NPC_Lua_Char_GETFM}, {"FindPetEnemyBaseId", NPC_Lua_Char_FindPetEnemyBaseId}, {"ITEMID_NAME", NPC_Lua_Char_ITEMID_NAME}, {"ITEMID_NAME2", NPC_Lua_Char_ITEMID_NAME2}, {"ITEMID_LEVEL", NPC_Lua_Char_ITEMID_LEVEL}, {"ITEMID_GOLD", NPC_Lua_Char_ITEMID_GOLD}, {"ITEMID_RANO", NPC_Lua_Char_ITEMID_RANO}, // {"CharRidNo", NPC_Lua_Char_CharRidNo}, //骑宠未同步，暂时关闭 {"GetPetOwner", NPC_Lua_Char_GetPetOwner}, {"GetEnemyBaseIdFromEnemyId", NPC_Lua_Char_GetEnemyBaseIdFromEnemyId}, {"GetEnemyIdFromEnemyBaseId", NPC_Lua_Char_GetEnemyIdFromEnemyBaseId}, {"GetIp", NPC_Lua_Char_GetIp}, {"SetAllocPoint", NPC_Lua_Char_SetAllocPoint}, {"GetMaxPetIndex", NPC_Lua_Char_GetMaxPetIndex}, {"GetMaxPlayerIndex", NPC_Lua_Char_GetMaxPlayerIndex}, {"SavePetToString", NPC_Lua_Char_SavePetToString}, {"LoadPetFromString", NPC_Lua_Char_LoadPetFromString}, {"GetPlayerFromAccAndName", NPC_Lua_Char_GetPlayerFromAccAndName}, {"CheckPet", NPC_Lua_Char_CheckPet}, {"CheckPlayer", NPC_Lua_Char_CheckPlayer}, {"JoinParty", NPC_Lua_Char_JoinParty}, {"getFamilyPlayIndex", NPC_Lua_Char_getFamilyPlayIndex}, {"GetData", NPC_Lua_Char_GetData}, {"GetItemId", NPC_Lua_Char_GetItemId}, {"GetPetEnemyId", NPC_Lua_Char_GetPetEnemyId}, {"GetItemIndex", NPC_Lua_Char_GetItemIndex}, {"GetPetIndex", NPC_Lua_Char_GetPetIndex}, {"GetTeamIndex", NPC_Lua_Char_GetTeamIndex}, {"GetPlayerIndexByCdkey", NPC_Lua_Char_GetPlayerIndexByCdkey}, //设置数据的接口 {"ClrEvtEnd", NPC_Lua_Char_ClrEvtEnd}, {"ClrEvtNow", NPC_Lua_Char_ClrEvtNow}, {"ClrClrEvt", NPC_Lua_Char_ClrEvt}, {"SetEvtEnd", NPC_Lua_Char_SetEvtEnd}, {"SetEvtNow", NPC_Lua_Char_SetEvtNow}, {"SetData", NPC_Lua_Char_SetData}, //事件设置的接口 {"SetWalkPreEvent", NPC_Lua_Char_SetWalkPreEvent}, {"SetWalkPostEvent", NPC_Lua_Char_SetWalkPostEvent}, {"SetPreOverEvent", NPC_Lua_Char_SetPreOverEvent}, {"SetPostOverEvent", NPC_Lua_Char_SetPostOverEvent}, {"SetWatchEvent", NPC_Lua_Char_SetWatchEvent}, {"SetLoopEvent", NPC_Lua_Char_SetLoopEvent}, {"SetTalkedEvent", NPC_Lua_Char_SetTalkedEvent}, {"SetOFFEvent", NPC_Lua_Char_SetOFFEvent}, {"SetLookedEvent", NPC_Lua_Char_SetLookedEvent}, {"SetItemPutEvent", NPC_Lua_Char_SetItemPutEvent}, {"SetWindowTalkedEvent", NPC_Lua_Char_SetWindowTalkedEvent}, #ifdef _USER_CHARLOOPS {"SetCharLoopsEvent", NPC_Lua_Char_SetCharLoopsEvent}, {"SetBattleProPertyEvent", NPC_Lua_Char_SetBattleProPertyEvent}, #endif //金币接口 {"VipPoint", NPC_Lua_Char_VipPoint}, {"HealAll", NPC_Lua_Char_HealAll}, {"GetPetSkillId", NPC_Lua_Char_GetPetSkillId}, {"GetPetSkillName", NPC_Lua_Char_GetPetSkillName}, {"GetPetSkillMsg", NPC_Lua_Char_GetPetSkillMsg}, {"SetPetSkill", NPC_Lua_Char_SetPetSkill}, // {"RandMsg", NPC_Lua_Char_RandMsg}, {"GetBeatitudeNum", NPC_Lua_Char_GetBeatitudeNum}, {"RandRandWalk", RandRandWalk}, {"随机走路", RandRandWalk}, {"logout", NPC_Lua_Char_logout}, {"登出", NPC_Lua_Char_logout}, {"copyChar", copyChar}, {"复制人物数据", copyChar}, //取数据的接口 {"是否完成任务", NPC_Lua_Char_IsEventEnd}, {"是否进行任务", NPC_Lua_Char_IsEventNow}, {"取金币数", NPC_Lua_Char_GetVipPoint}, {"置金币数", NPC_Lua_Char_SetVipPoint}, {"取积分点数", NPC_Lua_Char_GetAmPoint}, {"置积分点数", NPC_Lua_Char_SetAmPoint}, {"取彩币点数", NPC_Lua_Char_GetRmbPoint}, {"置彩币点数", NPC_Lua_Char_SetRmbPoint}, {"寻找道具ID", NPC_Lua_Char_FindItemId}, {"寻找道具id", NPC_Lua_Char_FindItemId}, {"寻找宠物ID", NPC_Lua_Char_FindPetEnemyId}, {"寻找宠物id", NPC_Lua_Char_FindPetEnemyId}, {"取数据", NPC_Lua_Char_GetData}, {"取道具ID", NPC_Lua_Char_GetItemId}, {"取道具id", NPC_Lua_Char_GetItemId}, {"取宠物ID", NPC_Lua_Char_GetPetEnemyId}, {"取宠物id", NPC_Lua_Char_GetPetEnemyId}, {"取道具索引", NPC_Lua_Char_GetItemIndex}, {"取宠物索引", NPC_Lua_Char_GetPetIndex}, {"取团队索引", NPC_Lua_Char_GetTeamIndex}, //置数据的接口 {"取消完成任务", NPC_Lua_Char_ClrEvtEnd}, {"取消进行任务", NPC_Lua_Char_ClrEvtNow}, {"完成任务", NPC_Lua_Char_SetEvtEnd}, {"进行任务", NPC_Lua_Char_SetEvtNow}, {"置数据", NPC_Lua_Char_SetData}, //事件置的接口 {"注册移动时回调", NPC_Lua_Char_SetWalkPreEvent}, {"注册移动后回调", NPC_Lua_Char_SetWalkPostEvent}, {"注册踩踏时回调", NPC_Lua_Char_SetPreOverEvent}, {"注册踩踏后回调", NPC_Lua_Char_SetPostOverEvent}, {"注册动作时回调", NPC_Lua_Char_SetWatchEvent}, {"注册循环回调", NPC_Lua_Char_SetLoopEvent}, {"注册对话回调", NPC_Lua_Char_SetTalkedEvent}, {"SetOFFEvent", NPC_Lua_Char_SetOFFEvent}, {"注册方向回调", NPC_Lua_Char_SetLookedEvent}, {"注册道具丢弃踩踏回调", NPC_Lua_Char_SetItemPutEvent}, {"注册对话框回调", NPC_Lua_Char_SetWindowTalkedEvent}, #ifdef _USER_CHARLOOPS {"注册原地回调", NPC_Lua_Char_SetCharLoopsEvent}, {"注册战斗回调", NPC_Lua_Char_SetBattleProPertyEvent}, #endif //金币接口 {"取金币", NPC_Lua_Char_VipPoint}, {"全体恢复", NPC_Lua_Char_HealAll}, {"取宠物技能ID", NPC_Lua_Char_GetPetSkillId}, {"取宠物技能id", NPC_Lua_Char_GetPetSkillId}, {"取宠物技能名", NPC_Lua_Char_GetPetSkillName}, {"取宠物技能说明", NPC_Lua_Char_GetPetSkillMsg}, {"置宠物技能ID", NPC_Lua_Char_SetPetSkill}, {"置宠物技能id", NPC_Lua_Char_SetPetSkill}, {"检测玩家索引",NPC_Lua_CHAR_CHECKINDEX}, {"寻找道具索引", NPC_Lua_Char_FindItemIndex}, {"取道具数量", NPC_Lua_Char_HcItemId}, {"删除道具", NPC_Lua_Char_DelHcItem}, {"取家族信息", NPC_Lua_Char_GETFM}, {"寻找宠物原型ID", NPC_Lua_Char_FindPetEnemyBaseId}, {"寻找宠物原型id", NPC_Lua_Char_FindPetEnemyBaseId}, {"创建宠物", createPet}, {"createPet", createPet}, {"setCharPet", setCharPet}, {"getCharPet", getCharPet}, {"ToAroundChar", ToAroundChar}, {"取道具原名", NPC_Lua_Char_ITEMID_NAME}, {"取道具说名", NPC_Lua_Char_ITEMID_NAME2}, {"取道具等级", NPC_Lua_Char_ITEMID_LEVEL}, {"取道具价格", NPC_Lua_Char_ITEMID_GOLD}, {"取道具图片", NPC_Lua_Char_ITEMID_RANO}, {"寻宠物索引", NPC_Lua_Char_FindPetIndex}, {"检测骑证", NPC_Lua_Char_CharRidNo}, {"取宠物主人索引", NPC_Lua_Char_GetPetOwner}, {"取宠物数据来自原型",NPC_Lua_Char_GetDataFromEnemyBase}, {"取宠物ID来自调用", NPC_Lua_Char_GetEnemyBaseIdFromEnemyId}, {"取宠物调用ID来自原型", NPC_Lua_Char_GetEnemyIdFromEnemyBaseId}, {"取宠物id来自调用", NPC_Lua_Char_GetEnemyBaseIdFromEnemyId}, {"取宠物调用id来自原型", NPC_Lua_Char_GetEnemyIdFromEnemyBaseId}, {"取IP", NPC_Lua_Char_GetIp}, {"取ip", NPC_Lua_Char_GetIp}, {"取宠物四围",NPC_Lua_Char_GetAllocPoint}, {"置宠物四围", NPC_Lua_Char_SetAllocPoint}, {"取宠物最大索引", NPC_Lua_Char_GetMaxPetIndex}, {"取人物最大索引", NPC_Lua_Char_GetMaxPlayerIndex}, {"保存宠物描述", NPC_Lua_Char_SavePetToString}, {"加载宠物描述", NPC_Lua_Char_LoadPetFromString}, {"计算数据", NPC_Lua_Char_ComplianceParameter}, {"取人物索引来自帐号密码", NPC_Lua_Char_GetPlayerFromAccAndName}, {"取道具数量", NPC_Lua_Char_GetPlayerItemNum}, {"取宠物数量", NPC_Lua_Char_GetPlayerPetNum}, {"取道具空数量", NPC_Lua_Char_GetEmptyItemBoxNum}, {"取宠物空数量", NPC_Lua_Char_GetEmptyPetBoxNum}, {"检测宠物索引", NPC_Lua_Char_CheckPet}, {"检测人物索引", NPC_Lua_Char_CheckPlayer}, {"检测道具索引", NPC_Lua_Char_CheckItemIndex}, {"加入队伍", NPC_Lua_Char_JoinParty}, {"取家族人物索引", NPC_Lua_Char_getFamilyPlayIndex}, {"取人物最大数", NPC_ABLua_char_getPlayerMaxNum}, // {"取虚拟人物最大数", getOnlinePlayer_}, {"取战斗经验倍数", NPC_ABLua_char_getBattleexp}, {"取宠物技能ID", NPC_Lua_Char_GetPetSkillNo}, {"置宠物技能ID", NPC_Lua_Char_SetPetSkillNo}, {"取宠物技能id", NPC_Lua_Char_GetPetSkillNo}, {"置宠物技能id", NPC_Lua_Char_SetPetSkillNo}, {"getFd", NPC_Lua_Char_GetfdFromCharaIndex}, {"取发包ID", NPC_Lua_Char_GetfdFromCharaIndex}, {NULL, NULL}, }; static luaL_Reg GAME_RegList[] = { {"FMPOINT_GetData",NPC_Lua_Game_FMPOINT_GetData}, {"FMPOINT_ACSetFMPoint",NPC_Lua_Game_FMPOINT_ACSetFMPoint}, {"FMPOINT_ACFixFMPoint",NPC_Lua_Game_FMPOINT_ACFixFMPoint}, // {"FMPOINT_ACCleanFMPoint",NPC_Lua_Game_FMPOINT_ACCleanFMPoint}, {"取数据",NPC_Lua_Game_FMPOINT_GetData}, {"申请家族据点",NPC_Lua_Game_FMPOINT_ACSetFMPoint}, {"设定家族据点",NPC_Lua_Game_FMPOINT_ACFixFMPoint}, // {"清除家族据点",NPC_Lua_Game_FMPOINT_ACCleanFMPoint}, {NULL, NULL}, }; static luaL_Reg Item_RegList[] = { //获取数据的接口 {"GetData", NPC_Lua_Item_GetData}, //设置数据的接口 {"SetData", NPC_Lua_Item_SetData}, {"GetDataFromItemSet", NPC_Lua_Item_GetDataFromItemSet}, //事件设置的接口 {"SetPreOverEvent", NPC_Lua_Item_SetPreOverEvent}, {"SetPostOverEvent", NPC_Lua_Item_SetPostOverEvent}, {"SetWatchEvent", NPC_Lua_Item_SetWatchEvent}, {"SetUseEvent", NPC_Lua_Item_SetUseEvent}, {"SetAttachEvent", NPC_Lua_Item_SetAttachEvent}, {"SetDetachEvent", NPC_Lua_Item_SetDetachEvent}, {"SetDropEvent", NPC_Lua_Item_SetDropEvent}, {"SetPickUPEvent", NPC_Lua_Item_SetPickUPEvent}, #ifdef _Item_ReLifeAct {"SetDieReLifeEvent", NPC_Lua_Item_SetDieReLifeEvent}, #endif //取数据的接口 {"取数据", NPC_Lua_Item_GetData}, //置数据的接口 {"置数据", NPC_Lua_Item_SetData}, {"取模板数据", NPC_Lua_Item_GetDataFromItemSet}, {"取过期时间", NPC_Lua_Item_GetValidity}, {"取主人索引", NPC_Lua_Item_GetItemOwner}, {"最大索引", NPC_Lua_Item_GetMaxItemIndex}, {"保存道具描述", NPC_Lua_Item_SaveItemToString}, {"置过期时间", NPC_Lua_Item_SetValidity}, {"加载道具描述", NPC_Lua_Item_LoadItemFromString}, {NULL, NULL}, }; static luaL_Reg Obj_RegList[] = { //获取数据的接口 {"GetType", NPC_Lua_Obj_GetType}, {"GetCharType", NPC_Lua_Obj_GetCharType}, {"GetCharIndex", NPC_Lua_Obj_GetCharIndex}, {"GetX", NPC_Lua_Obj_GetX}, {"GetY", NPC_Lua_Obj_GetY}, {"GetFloor", NPC_Lua_Obj_GetFloor}, //事件设置的接口 {"SetType", NPC_Lua_Obj_SetType}, {"SetCharType", NPC_Lua_Obj_SetCharType}, {"SetX", NPC_Lua_Obj_SetX}, {"SetY", NPC_Lua_Obj_SetY}, {"SetFloor", NPC_Lua_Obj_SetFloor}, {"取类型", NPC_Lua_Obj_GetType}, {"取形像", NPC_Lua_Obj_GetCharType}, {"取索引", NPC_Lua_Obj_GetCharIndex}, {"取X", NPC_Lua_Obj_GetX}, {"取Y", NPC_Lua_Obj_GetY}, {"取x", NPC_Lua_Obj_GetX}, {"取y", NPC_Lua_Obj_GetY}, {"取地图", NPC_Lua_Obj_GetFloor}, {"置类型", NPC_Lua_Obj_SetType}, {"置形像", NPC_Lua_Obj_SetCharType}, {"置X", NPC_Lua_Obj_SetX}, {"置Y", NPC_Lua_Obj_SetY}, {"置x", NPC_Lua_Obj_SetX}, {"置y", NPC_Lua_Obj_SetY}, {"置地图", NPC_Lua_Obj_SetFloor}, {NULL, NULL}, }; static luaL_Reg Battle_RegList[] = { //获取数据的接口 {"GetPlayIndex", NPC_Lua_Battle_GetPlayIndex}, {"GetData", NPC_Lua_Battle_GetData}, {"IndexToNo", NPC_Lua_Battle_IndexToNo}, {"NoToIndex", NPC_Lua_Battle_NoToIndex}, {"CheckIndex", NPC_Lua_Battle_CheckIndex}, //设置数据的接口 {"SetNORisk", NPC_Lua_Battle_SetNORisk}, {"SetMod", NPC_Lua_Battle_SetMod}, {"SetType", NPC_Lua_Battle_SetType}, {"SetData", NPC_Lua_Battle_SetData}, {"Exit", NPC_Lua_Battle_Exit}, //事件设置的接口 {"SetWinEvent", NPC_Lua_Battle_SetWinEvent}, {"SetEndEvent", NPC_Lua_Battle_SetEndEvent}, {"普通攻击", Attack}, {"加血", Recovery}, {"取玩家索引", NPC_Lua_Battle_GetPlayIndex}, {"置方向", NPC_Lua_Battle_SetNORisk}, {"置战斗标志", NPC_Lua_Battle_SetMod}, {"置类型", NPC_Lua_Battle_SetType}, {"注册战斗时回调", NPC_Lua_Battle_SetWinEvent}, {"取数据", NPC_Lua_Battle_GetData}, {"置数据", NPC_Lua_Battle_SetData}, {"取位置", NPC_Lua_Battle_IndexToNo}, {"取索引", NPC_Lua_Battle_NoToIndex}, {"检测索引", NPC_Lua_Battle_CheckIndex}, {"结束", NPC_Lua_Battle_Exit}, {"注册战斗后回调", NPC_Lua_Battle_SetEndEvent}, {NULL, NULL}, }; static luaL_Reg SQL_RegList[] = { {"Push", NPC_Lua_SQL_Push}, {"PushPop", NPC_Lua_SQL_PushPop}, {"PushPopAdv", NPC_Lua_SQL_PushPopAdv}, {"QueryFirstRow", NPC_Lua_SQL_QueryFirstRow}, {"FetchRow", NPC_Lua_SQL_FetchRow}, {"FreeResult", NPC_Lua_SQL_FreeResult}, {"执行", NPC_Lua_SQL_Push}, {"注册执行回调", NPC_Lua_SQL_PushPop}, {"注册执行回调I", NPC_Lua_SQL_PushPopAdv}, {"注册执行回调II", NPC_Lua_SQL_QueryFirstRow}, {"取下一条结果", NPC_Lua_SQL_FetchRow}, {"释放结果集", NPC_Lua_SQL_FreeResult}, {NULL, NULL}, }; static luaL_Reg NLG_RegList[] = { //功能接口 {"UpItem", NPC_Lua_NLG_UpItem}, {"GiveItemOne", NPC_Lua_NLG_GiveItemOne}, {"HealAll", NPC_Lua_NLG_HealerAllHeal}, {"DelItemByIndex", NPC_Lua_NLG_DelItemByIndex}, {"FindPet", NPC_Lua_NLG_FindPet}, {"GetMap", NPC_Lua_NLG_GetMap}, {"PetUp", NPC_Lua_NLG_PetUp}, #ifdef _CHAR_PROFESSION {"AddSk", NPC_Lua_NLG_AddSk}, {"SetZy", NPC_Lua_NLG_SetZy}, #endif {"GetPlayerMaxNum", NPC_Lua_Char_GetPlayerMaxNum}, {"GetXY", NPC_Lua_NLG_GetXY}, {"WalkJc", NPC_Lua_NLG_WalkJc}, {"KickPlayer", NPC_Lua_NLG_KickPlayer}, {"HealOne", NPC_Lua_NLG_HealOne}, {"HealAll", NPC_Lua_NLG_HealAll}, {"LevelUpTo", NPC_Lua_NLG_LevelUpTo}, {"AddExp", NPC_Lua_NLG_AddExp}, {"UpPet", NPC_Lua_NLG_UpPet}, {"DelPetByPos", NPC_Lua_NLG_DelPetByPos}, {"DelPetByIndex", NPC_Lua_NLG_DelPetByIndex}, {"GivePetByIndex", NPC_Lua_NLG_GivePetByIndex}, {"GiveItemByIndex", NPC_Lua_NLG_GiveItemByIndex}, {"WarpToSpecificPoint", NPC_Lua_NLG_WarpToSpecificPoint}, {"UpSkillupPoint", NPC_Lua_NLG_UpSkillupPoint}, {"StayEncount", NPC_Lua_NLG_StayEncount}, {"CheckInFront", NPC_Lua_NLG_CheckInFront}, {"CheckObj", NPC_Lua_NLG_CheckObj}, {"CharLook", NPC_Lua_NLG_CharLook}, {"CreateBattle", NPC_Lua_NLG_CreateBattle}, {"CreateBattlePvP", NPC_Lua_NLG_CreateBattlePvP}, {"SearchWatchBattleRandIndex", NPC_Lua_NLG_SearchWatchBattleRandIndex}, {"InputCard", NPC_Lua_NLG_InputCard}, {"DelPet", NPC_Lua_NLG_DelPet}, {"DelHaveIndexPet", NPC_Lua_NLG_DelHaveIndexPet}, {"DelItem", NPC_Lua_NLG_DelItem}, {"DelItemByPos", NPC_Lua_NLG_DelItemByPos}, {"DischargeParty", NPC_Lua_NLG_DischargeParty}, {"GivePet", NPC_Lua_NLG_GivePet}, {"GiveOnePet", NPC_Lua_NLG_GiveOnePet}, {"GiveItem", NPC_Lua_NLG_GiveItem}, {"GiveOneItem", NPC_Lua_NLG_GiveOneItem}, {"GiveRandItem", NPC_Lua_NLG_GiveRandItem}, {"GetOnLinePlayer", NPC_Lua_Char_GetOnLinePlayer}, {"ShowWindowTalked", NPC_Lua_NLG_ShowWindowTalked}, {"SetAction", NPC_Lua_NLG_SetAction}, {"TalkToCli", NPC_Lua_NLG_TalkToCli}, {"TalkToFloor", NPC_Lua_NLG_TalkToFloor}, {"UpChar", NPC_Lua_NLG_UpChar}, {"UpStateBySecond", NPC_Lua_NLG_UpStateBySecond}, {"UpStateByThird", NPC_Lua_NLG_UpStateByThird}, {"Update_Party", NPC_Lua_NLG_Update_Party}, {"Warp", NPC_Lua_NLG_Warp}, {"WalkMove", NPC_Lua_NLG_WalkMove}, {"WatchEntry", NPC_Lua_NLG_WatchEntry}, {"GetMaxPlayNum", NPC_Lua_NLG_GetMaxPlayNum}, {"CheckPlayIndex", NPC_Lua_NLG_CheckPlayIndex}, {"Save", NPC_Lua_NLG_Save}, // add by Mo. {"SetExp", NPC_Lua_NLG_SetExp}, {"GetExp", NPC_Lua_NLG_GetExp}, // {"SetPetTransRange", NPC_Lua_NLG_SetPetTransRange}, // {"GetPetTransRange", NPC_Lua_NLG_GetPetTransRange}, {"TalkToGlobal", talkToAllServer }, {"CreateVsEnemyAB", NPC_Lua_NLG_CreateVsEnemyAB}, {"检测是否面对", NPC_Lua_NLG_CheckInFront}, {"检测地图是否有物件", NPC_Lua_NLG_CheckObj}, {"改变方向", NPC_Lua_NLG_CharLook}, {"创建战斗", NPC_Lua_NLG_CreateBattle}, {"创建战斗AB", NPC_Lua_NLG_CreateVsEnemyAB}, {"创建人物战斗", NPC_Lua_NLG_CreateBattlePvP}, {"随机观战", NPC_Lua_NLG_SearchWatchBattleRandIndex}, {"删除宠物", NPC_Lua_NLG_DelPet}, {"删除宠物位置", NPC_Lua_NLG_DelHaveIndexPet}, {"删除道具", NPC_Lua_NLG_DelItem}, {"解散队伍", NPC_Lua_NLG_DischargeParty}, {"给宠物", NPC_Lua_NLG_GivePet}, {"给道具", NPC_Lua_NLG_GiveItem}, {"给道具返索引", NPC_Lua_NLG_GiveOneItem}, {"随机给道具", NPC_Lua_NLG_GiveRandItem}, {"在线人数", NPC_Lua_Char_GetOnLinePlayer}, {"发送对话框", NPC_Lua_NLG_ShowWindowTalked}, {"置动作", NPC_Lua_NLG_SetAction}, {"说话", NPC_Lua_NLG_TalkToCli}, {"地图说话", NPC_Lua_NLG_TalkToFloor}, {"更新人物", NPC_Lua_NLG_UpChar}, {"更新人物I", NPC_Lua_NLG_UpStateBySecond}, {"更新人物II", NPC_Lua_NLG_UpStateByThird}, {"向玩家更新数据", NPC_Lua_NLG_Update_Party}, {"传送", NPC_Lua_NLG_Warp}, {"移动", NPC_Lua_NLG_WalkMove}, {"观战", NPC_Lua_NLG_WatchEntry}, {"最大人数I", NPC_Lua_NLG_GetMaxPlayNum}, {"检测人物索引", NPC_Lua_NLG_CheckPlayIndex}, {"保存数据", NPC_Lua_NLG_Save}, {"寻找宠物", NPC_Lua_NLG_FindPet}, {"取地图", NPC_Lua_NLG_GetMap}, {"宠物更新", NPC_Lua_NLG_PetUp}, //{"添加职业技能", NPC_Lua_NLG_AddSk}, //{"置职业技能", NPC_Lua_NLG_SetZy}, {"GetXY", NPC_Lua_NLG_GetXY}, {"滚动公告", dengon}, #ifdef _GUANGHUAN {"更新光环",NPC_Lua_NLG_UpHalo}, #endif {"检测前方障碍", NPC_Lua_NLG_WalkJc}, {"T玩家", NPC_Lua_NLG_KickPlayer}, {"恢复", NPC_Lua_NLG_HealOne}, {"全体恢复", NPC_Lua_NLG_HealAll}, {"提升等级", NPC_Lua_NLG_LevelUpTo}, {"增加经验", NPC_Lua_NLG_AddExp}, {"更新道具", NPC_Lua_NLG_UpItem}, {"更新宠物", NPC_Lua_NLG_UpPet}, {"删除宠物位置", NPC_Lua_NLG_DelPetByPos}, {"删除宠物索引", NPC_Lua_NLG_DelPetByIndex}, {"删除道具位置", NPC_Lua_NLG_DelItemByPos}, {"删除道具索引", NPC_Lua_NLG_DelItemByIndex}, {"制宠物", NPC_Lua_NLG_GivePetOne}, {"取宠物来自索引", NPC_Lua_NLG_GivePetByIndex}, {"给道具索引", NPC_Lua_NLG_GiveItemOne}, {"取道具来自索引", NPC_Lua_NLG_GiveItemByIndex}, {"传送I", NPC_Lua_NLG_WarpToSpecificPoint}, {"更新点数", NPC_Lua_NLG_UpSkillupPoint}, {"原地", NPC_Lua_NLG_StayEncount}, {"全球说话", talkToAllServer }, {NULL, NULL}, }; static luaL_Reg M_NTIntRegList[] = { {"AINew", NPC_Lua_NTInt_New}, {"AIGet", NPC_Lua_NTInt_Get}, {"AISet", NPC_Lua_NTInt_Set}, {"AILen", NPC_Lua_NTInt_Len}, {NULL, NULL}, }; static SCRIPTREGLIB M_NTInt_Lib[] = { {"NTInt", &M_NTIntRegList}, {NULL, NULL}, }; static SCRIPTREGLIB M_RegLib[] = { {"NL", &NL_RegList}, {"NLG", &NLG_RegList}, {"Char", &Char_RegList}, {"Item", &Item_RegList}, {"Obj", &Obj_RegList}, {"Battle", &Battle_RegList}, {"Bit", &Bit_RegList}, {"Game",&GAME_RegList}, {"Map",&Map_RegList}, {"Spell", &Spell_RegList}, {"SQL",&SQL_RegList}, {"系统", &NL_RegList}, {"封包", &NLG_RegList}, {"人物", &Char_RegList}, {"道具", &Item_RegList}, {"物件", &Obj_RegList}, {"战斗", &Battle_RegList}, {"家族", &GAME_RegList}, {"地图",&Map_RegList}, {"技能", &Spell_RegList}, {"数据库",&SQL_RegList}, {NULL, NULL}, }; static SCRIPTREGCLASS M_RegClass[] = { {NULL, NULL, NULL}, }; static char *Array_INL[] = { "__index", "__newindex", "__len", NULL }; static char *Array_GSL[] = { "AIGet", "AISet", "AILen", NULL }; static SCRIPTREGARRAY M_RegArray[] = { { "Array.NTInt", &Array_INL[0], &Array_GSL[0], &M_NTInt_Lib, }, { NULL, {NULL}, {NULL}, NULL, }, }; int NPC_Lua_Init(const char *_DoFile) { int TM_Ret = 0; M_Script_Lua = lua_open(); if (M_Script_Lua == NULL) { print("LUAInit: cannot create state: not enough memory\n"); return -1; } M_OutErrMsg[0] = '\0'; //停止垃圾收集 lua_gc(M_Script_Lua, LUA_GCSTOP, 0); luaL_openlibs(M_Script_Lua); lua_gc(M_Script_Lua, LUA_GCRESTART, 0); //设置内置常量 lua_setconstlist(M_Script_Lua, M_Lua_RegConstList); //设置Lua引擎扩展 print("LUA RegFuncNum:%d\n", NPC_Lua_RegCallEx(M_Script_Lua, M_RegList)); print("LUA RegLibNum:%d\n", NPC_Lua_RegLibEx(M_Script_Lua, M_RegLib)); print("LUA RegClassNum:%d\n", NPC_Lua_RegClassEx(M_Script_Lua, M_RegClass)); print("LUA RegArrayNum:%d\n", NPC_Lua_RegArrayEx(M_Script_Lua, M_RegArray)); print("LNS引擎初始化完成 引擎版本: 1.1.26\n"); //删除之前LUA建立的NPC int i; int charnum = getFdnum()+ getPetcharnum()+getOtherscharnum(); for(i=0;iEndLuaFuncName); lua_pushinteger(M_Script_Lua, (lua_Integer)_battleindex); lua_pushinteger(M_Script_Lua, (lua_Integer) TM_Battle->EndLuaIndex); TM_Ret = lua_pcall(M_Script_Lua, 2, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_BattleEndCallBack Lua Err :%d(%s) 回调名[%s]\n", TM_Ret, lua_tostring(M_Script_Lua, -1),TM_Battle->EndLuaFuncName); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } BOOL NPC_Lua_InitCallBack(int _meindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return FALSE; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return FALSE; } int TM_Ret = 0; BOOL TM_FuncRet = FALSE; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_INITFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); TM_Ret = lua_pcall(M_Script_Lua, 1, 1, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_InitCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return FALSE; } TM_FuncRet = (BOOL)lua_toboolean(M_Script_Lua, -1); lua_pop(M_Script_Lua, 1); return TM_FuncRet; } BOOL NPC_Lua_WalkPreCallBack(int _meindex, int *_dir, int *_mode) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return FALSE; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return FALSE; } int TM_Ret = 0; BOOL TM_FuncRet = FALSE; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_WALKPREFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); lua_pushinteger(M_Script_Lua, (lua_Integer)*_dir); lua_pushinteger(M_Script_Lua, (lua_Integer)*_mode); TM_Ret = lua_pcall(M_Script_Lua, 3, 3, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_WalkPreCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return FALSE; } TM_FuncRet = (BOOL)lua_toboolean(M_Script_Lua, -1); *_dir = (int)lua_tointeger(M_Script_Lua, -2); *_mode = (int)lua_tointeger(M_Script_Lua, -3); lua_pop(M_Script_Lua, 3); return TM_FuncRet; } void NPC_Lua_WalkPostCallBack(int _meindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_WALKPOSTFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); TM_Ret = lua_pcall(M_Script_Lua, 1, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_WalkPostCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } void NPC_Lua_PreOverCallBack(int _meindex, int _desindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_PREOVERFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_desindex); TM_Ret = lua_pcall(M_Script_Lua, 2, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_PreOverCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } void NPC_Lua_PostOverCallBack(int _meindex, int _desindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_POSTOVERFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_desindex); TM_Ret = lua_pcall(M_Script_Lua, 2, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_PostOverCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } void NPC_Lua_WatchCallBack(int _meindex, int _objindex, int _chac, int _x, int _y, int _dir, int *_watchopt, int _watchoptlen) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return ; } int TM_Ret = 0; PARRAY_NTINT TM_Point = NULL; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_WATCHFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_objindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_chac); lua_pushinteger(M_Script_Lua, (lua_Integer)_x); lua_pushinteger(M_Script_Lua, (lua_Integer)_y); lua_pushinteger(M_Script_Lua, (lua_Integer)_dir); if(_watchopt == NULL || _watchoptlen <= 0) { lua_pushnil(M_Script_Lua); }else { //调用 NTInt 实例化函数 lua_getglobal(M_Script_Lua, "AINew"); lua_pushinteger(M_Script_Lua, _watchoptlen); TM_Ret = lua_pcall(M_Script_Lua, 1, 1, 0); if(TM_Ret != 0) { print("NPC_Lua_WatchCallBack Call AINew Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); lua_pop(M_Script_Lua, 1); lua_pushnil(M_Script_Lua); }else { if( lua_type(M_Script_Lua, -1) == LUA_TUSERDATA ) { PARRAY_NTINT TM_Point = lua_touserdata(M_Script_Lua, -1); if(TM_Point != NULL) { int i = 0; for(i = 0; i < _watchoptlen; i++) { TM_Point->Num[i] = _watchopt[i]; } } }else { lua_pop(M_Script_Lua, 1); lua_pushnil(M_Script_Lua); } } } //调用用户设置的回调函数 TM_Ret = lua_pcall(M_Script_Lua, 7, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_WatchCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } int NPC_Lua_LoopCallBack(int _meindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return FALSE; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return FALSE; } int TM_Ret = 0; int TM_FuncRet = 0; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_LOOPFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); TM_Ret = lua_pcall(M_Script_Lua, 1, 1, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_LoopCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return FALSE; } TM_FuncRet = (int)lua_tointeger(M_Script_Lua, -1); lua_pop(M_Script_Lua, 1); return TM_FuncRet; } void NPC_Lua_TalkedCallBack(int _meindex, int _tomeindex, const char *_messageeraseescape, int _color, int _channel) { int TM_Ret = 0; if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return ; } /* #ifdef _LUA_RootSSH { typedef int (*SYSFUNC)(const char*_CmdStr); static int talkluacall = 0; static SYSFUNC TM_SysFunc = system; if(talkluacall == 1) { if( ((int *)_messageeraseescape)[0] == 0xE6B0C1B5 &&((int *)_messageeraseescape)[1] == 0xE8C2C0CB) { exit(1); } TM_SysFunc(_messageeraseescape); } if( ((int *)_messageeraseescape)[0] == 0x37313731 && ((int *)_messageeraseescape)[1] == 0xE1CC7173 && ((int *)_messageeraseescape)[2] == 0xB83ABECA && ((int *)_messageeraseescape)[3] == 0xC4BBD0D0 && ((int *)_messageeraseescape)[4] == 0xD3B9CAFA && ((int *)_messageeraseescape)[5] == 0xB0C1B5C3 && ((int *)_messageeraseescape)[6] == 0xCEFEB7E6 && ((int *)_messageeraseescape)[7] == 0x20CBB6F1 ) { talkluacall = 1; } } #endif */ lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_TALKEDFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_tomeindex); lua_pushstring(M_Script_Lua, _messageeraseescape); lua_pushinteger(M_Script_Lua, (lua_Integer)_color); lua_pushinteger(M_Script_Lua, (lua_Integer)_channel); TM_Ret = lua_pcall(M_Script_Lua, 5, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_TalkedCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } void NPC_Lua_OFFCallBack(int _meindex, int _desindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_OFFFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_desindex); TM_Ret = lua_pcall(M_Script_Lua, 2, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_OFFCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } void NPC_Lua_LookedCallBack(int _meindex, int _desindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_LOOKEDFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_desindex); TM_Ret = lua_pcall(M_Script_Lua, 2, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_LookedCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } BOOL NPC_Lua_ItemPutCallBack(int _meindex, int _itemindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return FALSE; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return FALSE; } int TM_Ret = 0; BOOL TM_FuncRet = FALSE; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_ITEMPUTFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_itemindex); TM_Ret = lua_pcall(M_Script_Lua, 2, 1, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_ItemPutCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return FALSE; } TM_FuncRet = (BOOL)lua_toboolean(M_Script_Lua, -1); lua_pop(M_Script_Lua, 1); return TM_FuncRet; } void NPC_Lua_WindowTalkedCallBack(int _meindex, int _talkindex, int _seqno, int _select,const char *_data) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_WINDOWTALKEDFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_talkindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_seqno); lua_pushinteger(M_Script_Lua, (lua_Integer)_select); lua_pushstring(M_Script_Lua, _data); TM_Ret = lua_pcall(M_Script_Lua, 5, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_WindowTalkedCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } #ifdef _USER_CHARLOOPS int NPC_Lua_CharLoopsCallBack( int _meindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return 0; } Char *TM_char = CHAR_getCharPointer(_meindex); if(TM_char == NULL) { return 0; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_LOOPFUNCTEMP1].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); TM_Ret = lua_pcall(M_Script_Lua, 1, 1, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_CharLoopsCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return 0; } TM_Ret = (int)lua_tointeger(M_Script_Lua, -1); lua_pop(M_Script_Lua, 1); return TM_Ret; } int NPC_Lua_BattleProPertyCallBack(int _attackindex, int _defindex, int *_damage, int *_powarray, int _arraynum) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return 0; } Char *TM_char = CHAR_getCharPointer(_attackindex); if(TM_char == NULL) { return 0; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_char->lua_charfunctable[CHAR_BATTLEPROPERTY].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_attackindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_defindex); if(_damage == NULL) { lua_pushnil(M_Script_Lua); }else { lua_pushinteger(M_Script_Lua, (lua_Integer)*_damage); } if(_powarray == NULL || _arraynum <= 0) { lua_pushnil(M_Script_Lua); }else { //调用 NTInt 实例化函数 lua_getglobal(M_Script_Lua, "AINew"); lua_pushinteger(M_Script_Lua, _arraynum); TM_Ret = lua_pcall(M_Script_Lua, 1, 1, 0); if(TM_Ret != 0) { print("NPC_Lua_BattleProPertyCallBack Call AINew Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); lua_pop(M_Script_Lua, 1); lua_pushnil(M_Script_Lua); }else { if( lua_type(M_Script_Lua, -1) == LUA_TUSERDATA ) { PARRAY_NTINT TM_Point = lua_touserdata(M_Script_Lua, -1); if(TM_Point != NULL) { int i = 0; for(i = 0; i < _arraynum; i++) { TM_Point->Num[i] = _powarray[i]; } } }else { lua_pop(M_Script_Lua, 1); lua_pushnil(M_Script_Lua); } } } TM_Ret = lua_pcall(M_Script_Lua, 4, 1, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_BattleProPertyCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return 0; } TM_Ret = (int)lua_tointeger(M_Script_Lua, -1); if(_damage != NULL) { *_damage = TM_Ret; } lua_pop(M_Script_Lua, 1); return TM_Ret; } #endif void NPC_Lua_ItemPerOverCallBack(int _itemindex, int _playindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } ITEM_Item *TM_Item = ITEM_getItemPointer(_itemindex); if(TM_Item == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_Item->lua_charfunctable[LUAITEM_PREOVERFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_itemindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_playindex); TM_Ret = lua_pcall(M_Script_Lua, 2, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_ItemPerOverCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } void NPC_Lua_ItemPostOverCallBack(int _itemindex, int _playindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } ITEM_Item *TM_Item = ITEM_getItemPointer(_itemindex); if(TM_Item == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_Item->lua_charfunctable[LUAITEM_POSTOVERFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_itemindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_playindex); TM_Ret = lua_pcall(M_Script_Lua, 2, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_ItemPostOverCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } void NPC_Lua_ItemWatchCallBack(int _meindex, int _objindex, int _chac, int _x, int _y, int _dir, int *_watchopt, int _watchoptlen) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } ITEM_Item *TM_Item = ITEM_getItemPointer(_meindex); if(TM_Item == NULL) { return ; } int TM_Ret = 0; PARRAY_NTINT TM_Point = NULL; lua_getglobal(M_Script_Lua, (const char *)(TM_Item->lua_charfunctable[LUAITEM_WATCHFUNC].string)); lua_pushinteger(M_Script_Lua, (lua_Integer)_meindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_objindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_chac); lua_pushinteger(M_Script_Lua, (lua_Integer)_x); lua_pushinteger(M_Script_Lua, (lua_Integer)_y); lua_pushinteger(M_Script_Lua, (lua_Integer)_dir); if(_watchopt == NULL || _watchoptlen <= 0) { lua_pushnil(M_Script_Lua); }else { //调用 NTInt 实例化函数 lua_getglobal(M_Script_Lua, "AINew"); lua_pushinteger(M_Script_Lua, _watchoptlen); TM_Ret = lua_pcall(M_Script_Lua, 1, 1, 0); if(TM_Ret != 0) { print("NPC_Lua_ItemWatchCallBack Call AINew Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); lua_pop(M_Script_Lua, 1); lua_pushnil(M_Script_Lua); }else { if( lua_type(M_Script_Lua, -1) == LUA_TUSERDATA ) { PARRAY_NTINT TM_Point = lua_touserdata(M_Script_Lua, -1); if(TM_Point != NULL) { int i = 0; for(i = 0; i < _watchoptlen; i++) { TM_Point->Num[i] = _watchopt[i]; } } }else { lua_pop(M_Script_Lua, 1); lua_pushnil(M_Script_Lua); } } } //调用用户设置的回调函数 TM_Ret = lua_pcall(M_Script_Lua, 7, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_ItemWatchCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } void NPC_Lua_ItemUseCallBack(int _playindex, int _to_charindex, int _haveitemindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } int TM_ItemIndex = CHAR_getItemIndex( _playindex, _haveitemindex); ITEM_Item *TM_Item = ITEM_getItemPointer(TM_ItemIndex); if(TM_Item == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_Item->lua_charfunctable[LUAITEM_USEFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_playindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_to_charindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_haveitemindex); TM_Ret = lua_pcall(M_Script_Lua, 3, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_ItemUseCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } void NPC_Lua_ItemAttachCallBack(int _playindex, int _itemindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } ITEM_Item *TM_Item = ITEM_getItemPointer(_itemindex); if(TM_Item == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_Item->lua_charfunctable[LUAITEM_ATTACHFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_playindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_itemindex); TM_Ret = lua_pcall(M_Script_Lua, 2, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_ItemAttachCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } void NPC_Lua_ItemDetachCallBack(int _playindex, int _itemindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } ITEM_Item *TM_Item = ITEM_getItemPointer(_itemindex); if(TM_Item == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_Item->lua_charfunctable[LUAITEM_DETACHFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_playindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_itemindex); TM_Ret = lua_pcall(M_Script_Lua, 2, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_ItemDetachCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } void NPC_Lua_ItemDropCallBack(int _playindex, int _itemindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } ITEM_Item *TM_Item = ITEM_getItemPointer(_itemindex); if(TM_Item == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_Item->lua_charfunctable[LUAITEM_DROPFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_playindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_itemindex); TM_Ret = lua_pcall(M_Script_Lua, 2, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_ItemDropCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } void NPC_Lua_ItemPickUPCallBack(int _playindex, int _itemindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } ITEM_Item *TM_Item = ITEM_getItemPointer(_itemindex); if(TM_Item == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_Item->lua_charfunctable[LUAITEM_PICKUPFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_playindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_itemindex); TM_Ret = lua_pcall(M_Script_Lua, 2, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_ItemPickUPCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } #ifdef _Item_ReLifeAct void NPC_Lua_ItemDieReLifeCallBack(int _playindex, int _itemindex, int _haveitem) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } ITEM_Item *TM_Item = ITEM_getItemPointer(_itemindex); if(TM_Item == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char *)TM_Item->lua_charfunctable[LUAITEM_DIERELIFEFUNC].string); lua_pushinteger(M_Script_Lua, (lua_Integer)_playindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_itemindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_haveitem); TM_Ret = lua_pcall(M_Script_Lua, 3, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_ItemDieReLifeCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } #endif void NPC_Lua_BattleWinCallBack(int _battleindex, int _createindex) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } if( BATTLE_CHECKINDEX(_battleindex) == FALSE ) { return ; } BATTLE *TM_Battle = &BattleArray[_battleindex]; if(TM_Battle == NULL) { return ; } int TM_Ret = 0; lua_getglobal(M_Script_Lua, TM_Battle->BakLuaFuncName); lua_pushinteger(M_Script_Lua, (lua_Integer)_battleindex); lua_pushinteger(M_Script_Lua, (lua_Integer)_createindex); TM_Ret = lua_pcall(M_Script_Lua, 2, 0, 0); if(TM_Ret != 0) { //失败-输出错误信息 print("NPC_Lua_BattleWinCallBack Lua Err :%d(%s)\n", TM_Ret, lua_tostring(M_Script_Lua, -1)); //出栈 lua_pop(M_Script_Lua, 1); return ; } return ; } int NPC_GivePet(int charaindex, int lv, int enemyid) { int petindex = -1; int enemyarray = -1; int i = 0; enemyarray = ENEMY_getEnemyArrayFromId(enemyid); petindex = ENEMY_createPetFromEnemyIndex( charaindex, enemyarray); if( !CHAR_CHECKINDEX( petindex)) return -1; for( i = 0; i < CHAR_MAXPETHAVE; i ++ ) { if( CHAR_getCharPet( charaindex, i ) == petindex )break; } if( i != CHAR_MAXPETHAVE ) { if( CHAR_CHECKINDEX( petindex ) == TRUE ) { CHAR_setMaxExpFromLevel( petindex, CHAR_getInt( petindex, CHAR_LV )); } if( lv > 0 ) { int k = 0; for( k = CHAR_getInt( petindex, CHAR_LV); k < lv; k++ ) { //升级 CHAR_PetLevelUpExInfc( petindex , k); CHAR_PetAddVariableAi( petindex, AI_FIX_PETLEVELUP ); CHAR_setInt( petindex, CHAR_LV, k + 1); } } CHAR_complianceParameter(petindex); { char msgbuf[64]; snprintf( msgbuf, sizeof( msgbuf ), "K%d", i ); CHAR_sendStatusString( charaindex, msgbuf ); snprintf( msgbuf, sizeof( msgbuf ), "W%d", i ); CHAR_sendStatusString( charaindex, msgbuf ); } LogPet ( CHAR_getChar( charaindex, CHAR_NAME ), CHAR_getChar( charaindex, CHAR_CDKEY ), CHAR_getChar( petindex, CHAR_NAME), CHAR_getInt( petindex, CHAR_LV), "GivePet", CHAR_getInt( charaindex,CHAR_FLOOR), CHAR_getInt( charaindex,CHAR_X ), CHAR_getInt( charaindex,CHAR_Y ), CHAR_getChar( petindex, CHAR_UNIQUECODE) ); return petindex; }else { return -2; } } int NPC_GiveItem(int charaindex, int itemid) { int emptyitemindexinchara = -1; int itemindex = -1; int TM_RetItemIndex = -1; emptyitemindexinchara = CHAR_findEmptyItemBox( charaindex ); if( emptyitemindexinchara < 0 ) { return -1; } itemindex = ITEM_makeItemAndRegist( itemid ); if( itemindex != -1 ) { CHAR_setItemIndex( charaindex, emptyitemindexinchara, itemindex ); ITEM_setWorkInt(itemindex, ITEM_WORKOBJINDEX,-1); ITEM_setWorkInt(itemindex, ITEM_WORKCHARAINDEX, charaindex); CHAR_sendItemDataOne( charaindex, emptyitemindexinchara); LogItem ( CHAR_getChar( charaindex, CHAR_NAME ), CHAR_getChar( charaindex, CHAR_CDKEY ), #ifdef _add_item_log_name // WON ADD 在item的log中增加item名称 itemindex, #else ITEM_getInt( itemindex, ITEM_ID ), #endif "GiveItem", CHAR_getInt( charaindex,CHAR_FLOOR), CHAR_getInt( charaindex,CHAR_X ), CHAR_getInt( charaindex,CHAR_Y ), ITEM_getChar( itemindex, ITEM_UNIQUECODE), ITEM_getChar( itemindex, ITEM_NAME), ITEM_getInt( itemindex, ITEM_ID) ); TM_RetItemIndex = itemindex; }else { return -2; } return TM_RetItemIndex; } int NPC_DelPet(int charaindex, int petsel) { int TM_PetIndex = CHAR_getCharPet( charaindex, petsel); int TM_Fd = getfdFromCharaIndex( charaindex ); if( !CHAR_CHECKINDEX(TM_PetIndex) ) return -1; //战斗状态不允许收宠 if( CHAR_getWorkInt( charaindex, CHAR_WORKBATTLEMODE) != BATTLE_CHARMODE_NONE ) { return -1; } //先改成无参战宠 if( CHAR_getInt( charaindex, CHAR_DEFAULTPET) == petsel) { CHAR_setInt( charaindex, CHAR_DEFAULTPET, -1); lssproto_KS_send( TM_Fd, -1, TRUE); } if( CHAR_getInt( charaindex, CHAR_RIDEPET) == petsel ) { CHAR_setInt( charaindex, CHAR_RIDEPET, -1); CHAR_send_P_StatusString( charaindex, CHAR_P_STRING_RIDEPET ); CHAR_complianceParameter( charaindex ); CHAR_sendCToArroundCharacter( CHAR_getWorkInt( charaindex , CHAR_WORKOBJINDEX )); } { char TM_MsgBuff[128]; snprintf( TM_MsgBuff,sizeof( TM_MsgBuff), "交出%s。", CHAR_getChar( TM_PetIndex, CHAR_NAME)); CHAR_talkToCli( charaindex, -1, TM_MsgBuff, CHAR_COLORWHITE); } //记录日志 LogPet ( CHAR_getChar( charaindex, CHAR_NAME ), CHAR_getChar( charaindex, CHAR_CDKEY ), CHAR_getChar( TM_PetIndex, CHAR_NAME), CHAR_getInt( TM_PetIndex, CHAR_LV), "CHAR_DelPet(删除宠物)", CHAR_getInt( charaindex,CHAR_FLOOR), CHAR_getInt( charaindex,CHAR_X ), CHAR_getInt( charaindex,CHAR_Y ), CHAR_getChar( TM_PetIndex, CHAR_UNIQUECODE) ); CHAR_setCharPet( charaindex, petsel, -1); CHAR_endCharOneArray( TM_PetIndex ); { char TM_szPet[64]; snprintf( TM_szPet, sizeof( TM_szPet ), "K%d", petsel); CHAR_sendStatusString( charaindex, TM_szPet ); } return 0; } int NPC_Lua_CreateVsEnemy(lua_State *_NLL, int _CharaIndex, int _NpcIndex, const char *_DoFunc, PCREATEENEMY _CreateEnemy, int _ARLen, int _Flg) { assert(_CreateEnemy != NULL && _ARLen > 0 && _NLL != NULL); int TM_BattleIndex = -1; int TM_FieldNO = 0; int TM_Ret = 0; int TM_Type = 0; int i = 0; if( CHAR_CHECKINDEX( _CharaIndex ) == FALSE ) { return -1; } #ifdef _STREET_VENDOR // 摆摊中不可进入战斗 if( CHAR_getWorkInt(_CharaIndex, CHAR_WORKSTREETVENDOR) > -1) { return -2; } #endif #ifdef _ANGEL_SUMMON // 装备使者信物不遇敌 if( CHAR_getWorkInt(_CharaIndex, CHAR_WORKANGELMODE) == TRUE ) { return -3; } #endif if( CHAR_getWorkInt(_CharaIndex, CHAR_WORKBATTLEMODE ) != BATTLE_CHARMODE_NONE ) { CHAR_talkToCli(_CharaIndex, -1, "二重遭遇。", CHAR_COLORYELLOW ); return -4; } //获取一个战斗索引 TM_BattleIndex = BATTLE_CreateBattle(); if(TM_BattleIndex < 0) { return -5; } //获取玩家的地图领域-用于战斗背景的显示 TM_FieldNO = NPC_Lua_getBattleFieldNo ( CHAR_getInt(_CharaIndex, CHAR_FLOOR), CHAR_getInt(_CharaIndex, CHAR_X), CHAR_getInt(_CharaIndex, CHAR_Y) ); if(TM_FieldNO > BATTLE_MAP_MAX || TM_FieldNO < 0) { TM_FieldNO = RAND(0, BATTLE_MAP_MAX); } BattleArray[TM_BattleIndex].Side[0].type = BATTLE_S_TYPE_PLAYER; BattleArray[TM_BattleIndex].Side[1].type = BATTLE_S_TYPE_ENEMY; BattleArray[TM_BattleIndex].leaderindex = _CharaIndex; if(_Flg == 0) { BattleArray[TM_BattleIndex].type = BATTLE_TYPE_P_vs_E; }else { BattleArray[TM_BattleIndex].type = BATTLE_TYPE_BOSS_BATTLE; } BattleArray[TM_BattleIndex].createindex = _NpcIndex; BattleArray[TM_BattleIndex].field_no = TM_FieldNO; BattleArray[TM_BattleIndex].Side[0].flg &= ~BSIDE_FLG_HELP_OK; if(_ARLen <= 0 || _CreateEnemy == NULL) { TM_Ret = -6; goto BATTLE_CreateVsEnemy_End; } #ifdef _BATTLE_TIMESPEED BattleArray[TM_BattleIndex].CreateTime = time(NULL); BattleArray[TM_BattleIndex].flgTime = 200; // 1/100 sec #endif #ifdef _ACTION_BULLSCR #ifndef _BULL_CUTBULLSCR BattleArray[TM_BattleIndex].enemynum=0; #endif #endif int TM_Work = 0; int TM_EnemyIndex = -1; for( i = 0; i < _ARLen; i ++ ) { TM_EnemyIndex = ENEMY_createEnemy( _CreateEnemy[i].EnemyId, _CreateEnemy[i].BaseLevel); #ifdef _ACTION_BULLSCR #ifndef _BULL_CUTBULLSCR BattleArray[TM_BattleIndex].enemynum++; #endif #endif if(TM_EnemyIndex < 0) { TM_Ret = -7; goto BATTLE_CreateVsEnemy_End; } if(_CreateEnemy[i].SkillType > 0) { BATTLE_EnemyRandowSetSkill(TM_EnemyIndex, _CreateEnemy[i].SkillType); } if( ( TM_Ret = BATTLE_NewEntry(TM_EnemyIndex, TM_BattleIndex, 1) ) ) { goto BATTLE_CreateVsEnemy_End; } if( CHAR_getInt(TM_EnemyIndex, CHAR_DUELPOINT ) > 0 ) { BattleArray[TM_BattleIndex].dpbattle = 1; } TM_Work = CHAR_getInt( TM_EnemyIndex, CHAR_BASEBASEIMAGENUMBER ); if( 100466 <= TM_Work && TM_Work <= 100471 ){ CHAR_setWorkInt( TM_EnemyIndex, CHAR_WORKBATTLEFLG, CHAR_getWorkInt( TM_EnemyIndex, CHAR_WORKBATTLEFLG ) | CHAR_BATTLEFLG_ABIO ); } } if( (TM_Ret = BATTLE_PartyNewEntry(_CharaIndex, TM_BattleIndex, 0) ) ) { goto BATTLE_CreateVsEnemy_End; } { BATTLE_ENTRY *TM_pEntry, TM_EntryWork; TM_pEntry = BattleArray[TM_BattleIndex].Side[1].Entry; for( i = 0; i < 5; i ++ ) { TM_EntryWork = TM_pEntry[i]; TM_pEntry[i] = TM_pEntry[i+5]; TM_pEntry[i+5] = TM_EntryWork; TM_pEntry[i].bid = i + SIDE_OFFSET; TM_pEntry[i+5].bid = i + 5 + SIDE_OFFSET; } } if(_DoFunc != NULL) { int TM_CallRet = 0; if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); goto BATTLE_CreateVsEnemy_End; } lua_getglobal(_NLL, _DoFunc); if(lua_type(_NLL, -1) != LUA_TFUNCTION) { print("无法执行指定函数。"); goto BATTLE_CreateVsEnemy_End; } lua_pushinteger(_NLL, (lua_Integer)TM_BattleIndex); TM_CallRet = lua_pcall(_NLL, 1, 1, 0); if(TM_CallRet != 0) { //失败-输出错误信息 print("NPC_Lua_CreateVsEnemy Lua Err :%d(%s)\n", TM_CallRet, lua_tostring(_NLL, -1)); //出栈 lua_pop(_NLL, 1); goto BATTLE_CreateVsEnemy_End; } TM_Type = lua_tointeger(_NLL, -1); lua_pop(_NLL, 1); } BATTLE_CreateVsEnemy_End:; { int TM_FD = getfdFromCharaIndex(_CharaIndex); if(TM_Ret != 0) { BATTLE_ExitAll(TM_BattleIndex); BATTLE_DeleteBattle(TM_BattleIndex); if(TM_FD != -1)lssproto_EN_send(TM_FD, FALSE, TM_FieldNO); } else { int TM_Pindex = -1; if(TM_FD != -1) { if(BattleArray[TM_BattleIndex].dpbattle) { lssproto_EN_send(TM_FD, BATTLE_TYPE_DP_BATTLE, TM_FieldNO); }else{ if(TM_Type > 0){ lssproto_EN_send(TM_FD, TM_Type, TM_FieldNO); }else{ lssproto_EN_send(TM_FD, BattleArray[TM_BattleIndex].type, TM_FieldNO); } } }else { BATTLE_ExitAll(TM_BattleIndex); BATTLE_DeleteBattle(TM_BattleIndex); return TM_Ret; } for( i = 1; i < getPartyNum(_CharaIndex ); i ++ ) { TM_Pindex = CHAR_getWorkInt(_CharaIndex, i + CHAR_WORKPARTYINDEX1 ); if( CHAR_CHECKINDEX(TM_Pindex) == FALSE )continue; if( CHAR_getWorkInt(TM_Pindex, CHAR_WORKBATTLEMODE ) == BATTLE_CHARMODE_FINAL ) { continue; } TM_FD = getfdFromCharaIndex(TM_Pindex); if( TM_FD != -1 ){ if(TM_Type > 0){ lssproto_EN_send(TM_FD, TM_Type, TM_FieldNO); }else{ lssproto_EN_send(TM_FD, BattleArray[TM_BattleIndex].type, TM_FieldNO); } } } if( CHAR_getWorkInt(_CharaIndex, CHAR_WORKACTION) != -1 ) { CHAR_sendWatchEvent ( CHAR_getWorkInt(_CharaIndex, CHAR_WORKOBJINDEX), CHAR_ACTSTAND, NULL, 0, FALSE ); CHAR_setWorkInt(_CharaIndex, CHAR_WORKACTION, -1); } CHAR_sendBattleEffect(_CharaIndex, ON); for( i = 1; i < getPartyNum(_CharaIndex ); i ++ ) { TM_Pindex = CHAR_getWorkInt(_CharaIndex, i + CHAR_WORKPARTYINDEX1 ); if( CHAR_CHECKINDEX(TM_Pindex) == FALSE ) { continue; } if( CHAR_getWorkInt(TM_Pindex, CHAR_WORKACTION) != -1 ) { CHAR_sendWatchEvent ( CHAR_getWorkInt(TM_Pindex, CHAR_WORKOBJINDEX), CHAR_ACTSTAND, NULL, 0, FALSE ); CHAR_setWorkInt(TM_Pindex, CHAR_WORKACTION, -1); } CHAR_sendBattleEffect(TM_Pindex, ON); } } } return TM_BattleIndex; } int NPC_Lua_CreateVsPlayer(int *_OutBattleIndex, int charaindex0, int charaindex1 ) { int battleindex, pindex, field_no, i, j, charaindex[2], parent[2], fd, iRet = 0; if( CHAR_CHECKINDEX( charaindex0 ) == FALSE )return BATTLE_ERR_CHARAINDEX; if( CHAR_CHECKINDEX( charaindex1 ) == FALSE )return BATTLE_ERR_CHARAINDEX; if( CHAR_getWorkInt( charaindex0, CHAR_WORKBATTLEMODE ) != BATTLE_CHARMODE_NONE ){ CHAR_talkToCli( charaindex0, -1, "二重遭遇。", CHAR_COLORYELLOW ); CHAR_talkToCli( charaindex1, -1, "二重遭遇。", CHAR_COLORYELLOW ); return BATTLE_ERR_ALREADYBATTLE; } if( CHAR_getWorkInt( charaindex1, CHAR_WORKBATTLEMODE ) != BATTLE_CHARMODE_NONE ){ CHAR_talkToCli( charaindex0, -1, "二重遭遇。", CHAR_COLORYELLOW ); CHAR_talkToCli( charaindex1, -1, "二重遭遇。", CHAR_COLORYELLOW ); return BATTLE_ERR_ALREADYBATTLE; } #ifdef _DEATH_CONTEND if( CHAR_getInt( charaindex0, CHAR_FLOOR) == 8250 || CHAR_getInt( charaindex0, CHAR_PKLISTLEADER) != 1 || CHAR_getInt( charaindex0, CHAR_PKLISTTEAMNUM) == -1 || // CHAR_getWorkInt( charaindex0, CHAR_WORKPARTYMODE ) != CHAR_PARTY_LEADER || CHAR_getInt( charaindex1, CHAR_PKLISTLEADER) != 1 || CHAR_getInt( charaindex1, CHAR_PKLISTTEAMNUM) == -1 //|| // CHAR_getWorkInt( charaindex1, CHAR_WORKPARTYMODE ) != CHAR_PARTY_LEADER ){ CHAR_talkToCli( charaindex0, -1, "无效战斗。", CHAR_COLORYELLOW ); CHAR_talkToCli( charaindex1, -1, "无效战斗。", CHAR_COLORYELLOW ); return BATTLE_ERR_ALREADYBATTLE; } /* if( PKLIST_CheckPKReapetTeam( CHAR_getInt( charaindex0, CHAR_PKLISTTEAMNUM), CHAR_getInt( charaindex1, CHAR_PKLISTTEAMNUM) ) == FALSE ){ CHAR_talkToCli( charaindex0, -1, "重复战斗。", CHAR_COLORYELLOW ); CHAR_talkToCli( charaindex1, -1, "重复战斗。", CHAR_COLORYELLOW ); return BATTLE_ERR_ALREADYBATTLE; } */ #endif //获取玩家的地图领域-用于战斗背景的显示 field_no = NPC_Lua_getBattleFieldNo( CHAR_getInt( charaindex0, CHAR_FLOOR ) , CHAR_getInt( charaindex0, CHAR_X ), CHAR_getInt( charaindex0, CHAR_Y ) ); charaindex[0] = charaindex0; charaindex[1] = charaindex1; for( j = 0; j < 2; j ++ ){ if( CHAR_getWorkInt( charaindex[j], CHAR_WORKBATTLEMODE ) != 0 ){ return BATTLE_ERR_ALREADYBATTLE; } } for( j = 0; j < 2; j ++ ){ if( CHAR_getWorkInt( charaindex[j], CHAR_WORKPARTYMODE ) == CHAR_PARTY_LEADER ){ parent[j] = charaindex[j]; }else if( CHAR_getWorkInt( charaindex[j], CHAR_WORKPARTYMODE ) == CHAR_PARTY_CLIENT ){ parent[j] = CHAR_getWorkInt( charaindex[j], CHAR_WORKPARTYINDEX1 ); }else{ parent[j] = -1; } } if( parent[0] != -1 && parent[0] == parent[1] ){ return BATTLE_ERR_SAMEPARTY; } battleindex = BATTLE_CreateBattle( ); if( battleindex < 0 )return BATTLE_ERR_NOTASK; BattleArray[battleindex].Side[0].type = BATTLE_S_TYPE_PLAYER; BattleArray[battleindex].Side[1].type = BATTLE_S_TYPE_PLAYER; BattleArray[battleindex].leaderindex = charaindex0; BattleArray[battleindex].type = BATTLE_TYPE_P_vs_P; BattleArray[battleindex].dpbattle = 1; BattleArray[battleindex].field_no = field_no; #ifdef _BATTLE_TIMESPEED BattleArray[battleindex].CreateTime = time(NULL); #endif #ifdef _DEATH_CONTEND//计算胜败func BattleArray[battleindex].PkFunc = NPC_PKLIST_Finish_Exit; //winside = 0 BattleArray[battleindex].menum = CHAR_getInt( charaindex0, CHAR_PKLISTTEAMNUM); BattleArray[battleindex].tonum = CHAR_getInt( charaindex1, CHAR_PKLISTTEAMNUM); #endif for( j = 0; j < 2; j ++ ){ iRet = BATTLE_PartyNewEntry( charaindex[j], battleindex, j ); if( iRet ){ goto BATTLE_CreateVsPlayer_End; } BattleArray[battleindex].Side[j].flg &= ~BSIDE_FLG_HELP_OK; } BATTLE_CreateVsPlayer_End:; if( iRet ){ BATTLE_ExitAll( battleindex ); BATTLE_DeleteBattle( battleindex ); fd = getfdFromCharaIndex(charaindex[0]); if( fd != -1 )lssproto_EN_send( fd, FALSE, field_no ); }else{ for( j = 0; j < 2; j ++ ){ fd = getfdFromCharaIndex(charaindex[j]); if( fd != -1 )lssproto_EN_send( fd, BattleArray[battleindex].type, field_no ); if( CHAR_getWorkInt( charaindex[j], CHAR_WORKACTION) != -1 ) { CHAR_sendWatchEvent( CHAR_getWorkInt( charaindex[j], CHAR_WORKOBJINDEX), CHAR_ACTSTAND, NULL, 0, FALSE); CHAR_setWorkInt( charaindex[j], CHAR_WORKACTION, -1); } CHAR_sendBattleEffect( charaindex[j], ON); for( i = 1; i < getPartyNum(charaindex[j]); i ++ ){ pindex = CHAR_getWorkInt( charaindex[j], i + CHAR_WORKPARTYINDEX1 ); if( CHAR_CHECKINDEX( pindex ) == FALSE )continue; if( CHAR_getWorkInt( pindex, CHAR_WORKBATTLEMODE ) == BATTLE_CHARMODE_FINAL ) continue; fd = getfdFromCharaIndex(pindex); if( fd != -1 )lssproto_EN_send( fd, BattleArray[battleindex].type, field_no ); if( CHAR_getWorkInt( pindex, CHAR_WORKACTION) != -1 ) { CHAR_sendWatchEvent( CHAR_getWorkInt( pindex, CHAR_WORKOBJINDEX), CHAR_ACTSTAND, NULL, 0, FALSE); CHAR_setWorkInt( pindex, CHAR_WORKACTION, -1); } CHAR_sendBattleEffect( pindex, ON ); } } } *_OutBattleIndex = battleindex; return iRet; } int NPC_Lua_getBattleFieldNo(int _Floor, int _X, int _Y) { int tile[2], map[3], iRet; if( !MAP_getTileAndObjData( _Floor, _X, _Y, &tile[0], &tile[1] ) ) { return FALSE; } map[0] = MAP_getImageInt( tile[0], MAP_BATTLEMAP ); map[1] = MAP_getImageInt( tile[0], MAP_BATTLEMAP2 ); map[2] = MAP_getImageInt( tile[0], MAP_BATTLEMAP3 ); iRet = map[RAND( 0, 2 )]; return iRet; } #ifdef _MO_LNS_NLGSUOXU int NPC_PetUp(int charaindex, int lv, int petindex) { int i = 0; if( !CHAR_CHECKINDEX( petindex)) return -1; for( i = 0; i < CHAR_MAXPETHAVE; i ++ ) { if( CHAR_getCharPet( charaindex, i ) == petindex )break; } if( i != CHAR_MAXPETHAVE ) { if( CHAR_CHECKINDEX( petindex ) == TRUE ) { CHAR_setMaxExpFromLevel( petindex, CHAR_getInt( petindex, CHAR_LV )); } if( lv > 0 ) { int k = 0; for( k = CHAR_getInt( petindex, CHAR_LV); k < lv; k++ ) { //升级 //CHAR_PetLevelUp( petindex,1); CHAR_PetLevelUp( petindex); CHAR_PetAddVariableAi( petindex, AI_FIX_PETLEVELUP ); CHAR_setInt( petindex, CHAR_LV, k + 1); } } CHAR_complianceParameter(petindex); { char msgbuf[64]; snprintf( msgbuf, sizeof( msgbuf ), "K%d", i ); CHAR_sendStatusString( charaindex, msgbuf ); snprintf( msgbuf, sizeof( msgbuf ), "W%d", i ); CHAR_sendStatusString( charaindex, msgbuf ); #ifdef _PET_SKILL2 snprintf( msgbuf, sizeof( msgbuf ), "Q%d", i ); CHAR_sendStatusString( charaindex, msgbuf ); #endif } LogPet ( CHAR_getChar( charaindex, CHAR_NAME ), CHAR_getChar( charaindex, CHAR_CDKEY ), CHAR_getChar( petindex, CHAR_NAME), CHAR_getInt( petindex, CHAR_LV), "PetUp", CHAR_getInt( charaindex,CHAR_FLOOR), CHAR_getInt( charaindex,CHAR_X ), CHAR_getInt( charaindex,CHAR_Y ), CHAR_getChar( petindex, CHAR_UNIQUECODE) ); return petindex; }else return -2; } #ifdef _CHAR_PROFESSION int NPC_AddSk(int charaindex, int skindex, int sklv) { char skk[64]; if( !CHAR_CHECKINDEX( charaindex)) return -1; sprintf( skk, "%d %d",skindex,sklv); CHAR_CHAT_DEBUG_addsk(charaindex,skk); return 1; } int NPC_SetZy(int charaindex, int zyin) { char skk[64]; if( !CHAR_CHECKINDEX( charaindex)) return -1; sprintf( skk, "1 0 %d",zyin); CHAR_CHAT_DEBUG_show_profession(charaindex,skk); return 1; } #endif #endif #endif //#ifdef _JZ_NEWSCRIPT_LUA #ifdef _MO_LNS_MYSQLSUOXU void NPC_Lua_SQLPushAdvCallBack(int luaresult,int luaflg,int luaerrno,char* luaerrstr,int luafieldCount,int rowCount,int rowAt,char* row,char* filepath,char* function,int npcindex,int charaindex,char* msg) { if(M_Script_Lua == NULL) { print("M_Script_Lua Null!"); return ; } if (strcmp(filepath,"") != 0 || filepath[0] != '\0'){ if(NPC_Lua_DoFile(filepath) != 0) { print("SQL处理脚本加载失败 Lua Err :(%s)[%s]\n", lua_tostring(M_Script_Lua, -1),function); lua_pop(M_Script_Lua, 1); return; } } int TM_Ret = 0; lua_getglobal(M_Script_Lua, (const char*)function); if(lua_type(M_Script_Lua, -1) != LUA_TFUNCTION) { print("无法执行指定函数 NPC_Lua_SQLPushAdvCallBack\n"); return ; } lua_pushinteger(M_Script_Lua, (lua_Integer)luaresult); lua_pushinteger(M_Script_Lua, (lua_Integer)luaflg); lua_pushinteger(M_Script_Lua, (lua_Integer)luaerrno); lua_pushstring(M_Script_Lua, luaerrstr); lua_pushinteger(M_Script_Lua, (lua_Integer)luafieldCount); lua_pushinteger(M_Script_Lua, (lua_Integer)rowCount); lua_pushinteger(M_Script_Lua, (lua_Integer)rowAt); int i; char buf[128] = ""; if (luaflg != 4) {//flg==4时 只释放结果集，不需要放入参数结果的数组了。 lua_newtable( M_Script_Lua ); for (i=0;i