2000 lines
51 KiB
C
2000 lines
51 KiB
C
#include <string.h>
|
||
#include "char.h"
|
||
#include "battle.h"
|
||
#include "object.h"
|
||
#include "char_base.h"
|
||
#include "enemy.h"
|
||
#include "mylua/base.h"
|
||
#include "npcutil.h"
|
||
#include "readmap.h"
|
||
#include "log.h"
|
||
#include "pet.h"
|
||
#include "lua.h"
|
||
#include "lauxlib.h"
|
||
#include "lualib.h"
|
||
#include "version.h"
|
||
#include "handletime.h"
|
||
#include "item_event.h"
|
||
#include "lssproto_serv.h"
|
||
#ifdef _ALLBLUES_LUA
|
||
#include "mylua/mylua.h"
|
||
extern MY_Lua MYLua;
|
||
static CharBase CharBaseWorkInt[] = {
|
||
{{"对象"}, CHAR_WORKOBJINDEX}
|
||
#ifdef _FONT_SIZE
|
||
,{{"字号"}, CHAR_WORKFONTSIZE}
|
||
#endif
|
||
,{{"战斗"}, CHAR_WORKBATTLEMODE}
|
||
,{{"组队"}, CHAR_WORKPARTYMODE}
|
||
,{{"战斗索引"}, CHAR_WORKBATTLEINDEX}
|
||
,{{"NPC临时1"}, CHAR_NPCWORKINT1}
|
||
,{{"NPC临时2"}, CHAR_NPCWORKINT2}
|
||
,{{"NPC临时3"}, CHAR_NPCWORKINT3}
|
||
,{{"NPC临时4"}, CHAR_NPCWORKINT4}
|
||
,{{"NPC临时5"}, CHAR_NPCWORKINT5}
|
||
,{{"NPC临时6"}, CHAR_NPCWORKINT6}
|
||
,{{"NPC临时7"}, CHAR_NPCWORKINT7}
|
||
,{{"NPC临时8"}, CHAR_NPCWORKINT8}
|
||
,{{"NPC临时9"}, CHAR_NPCWORKINT9}
|
||
,{{"NPC临时10"}, CHAR_NPCWORKINT10}
|
||
,{{"NPC临时11"}, CHAR_NPCWORKINT11}
|
||
,{{"NPC临时12"}, CHAR_NPCWORKINT12}
|
||
,{{"NPC临时13"}, CHAR_NPCWORKINT13}
|
||
,{{"捡起模式"}, CHAR_WORKPETFOLLOWMODE}
|
||
,{{"队员1"}, CHAR_WORKPARTYINDEX1}
|
||
,{{"队员2"}, CHAR_WORKPARTYINDEX2}
|
||
,{{"队员3"}, CHAR_WORKPARTYINDEX3}
|
||
,{{"队员4"}, CHAR_WORKPARTYINDEX4}
|
||
,{{"队员5"}, CHAR_WORKPARTYINDEX5}
|
||
,{{"最大HP"}, CHAR_WORKMAXHP}
|
||
,{{"最大MP"}, CHAR_WORKMAXMP}
|
||
,{{"攻击力"}, CHAR_WORKATTACKPOWER}
|
||
,{{"防御力"}, CHAR_WORKDEFENCEPOWER}
|
||
,{{"敏捷力"}, CHAR_WORKQUICK}
|
||
,{{"修正体力"}, CHAR_WORKFIXVITAL}
|
||
,{{"修正腕力"}, CHAR_WORKFIXSTR}
|
||
,{{"修正耐力"}, CHAR_WORKFIXTOUGH}
|
||
,{{"修正速度"}, CHAR_WORKFIXDEX}
|
||
,{{"家族地图"}, CHAR_WORKFMFLOOR}
|
||
,{{"攻击"}, CHAR_WORKATTACKPOWER}
|
||
,{{"防御"}, CHAR_WORKDEFENCEPOWER}
|
||
,{{"敏捷"}, CHAR_WORKQUICK}
|
||
,{{"逃跑"}, CHAR_WORKDBATTLEESCAPE}
|
||
#ifdef _OFFLINE_SYSTEM
|
||
,{{"离线"}, CHAR_WORK_OFFLINE}
|
||
#endif
|
||
,{{"获得经验"}, CHAR_WORKGETEXP}
|
||
#ifdef _AUTO_PK
|
||
,{{"自动PK点"}, CHAR_WORK_AUTOPK}
|
||
,{{"自动PK死亡"}, CHAR_WORK_AUTOPK_DEAD}
|
||
#endif
|
||
#ifdef _SPECIAL_COUNTER
|
||
,{{"计数器"}, CHAR_WORK_COUNTER}
|
||
#endif
|
||
#ifdef _SPECIAL_TIMER
|
||
,{{"计时器"}, CHAR_WORK_TIMER}
|
||
#endif
|
||
#ifdef _STREET_VENDOR
|
||
,{{"摆摊"}, CHAR_WORKSTREETVENDOR}
|
||
#endif
|
||
#ifdef _RECORD_IP
|
||
,{{"IP"}, CHAR_WORK_RECORD_IP}
|
||
#endif
|
||
#ifdef _ONLINE_TIME
|
||
,{{"登陆时间"}, CHAR_WORK_LOGIN_TIME}
|
||
#endif
|
||
// ,{{"经验加成"}, CHAR_WORKITEM_ADDEXP}
|
||
// ,{{"经验时效"}, CHAR_WORKITEM_ADDEXPTIME}
|
||
};
|
||
|
||
static CharBase CharBaseWorkChar[] = {
|
||
{{"NPC临时1"}, CHAR_NPCWORKCHAR1}
|
||
,{{"NPC临时2"}, CHAR_NPCWORKCHAR2}
|
||
,{{"NPC临时3"}, CHAR_NPCWORKCHAR3}
|
||
,{{"NPC临时4"}, CHAR_NPCWORKCHAR4}
|
||
,{{"NPC临时5"}, CHAR_NPCWORKCHAR5}
|
||
,{{"NPC临时6"}, CHAR_NPCWORKCHAR6}
|
||
#ifdef _STREET_VENDOR
|
||
,{{"摆摊"}, CHAR_STREETVENDOR_NAME}
|
||
#endif
|
||
};
|
||
|
||
static CharBase CharBaseValue[] = {
|
||
{{"北"}, 0}
|
||
,{{"东北"}, 1}
|
||
,{{"东"}, 2}
|
||
,{{"东南"}, 3}
|
||
,{{"南"}, 4}
|
||
,{{"西南"}, 5}
|
||
,{{"西"}, 6}
|
||
,{{"西北"}, 7}
|
||
,{{"无类型"}, CHAR_TYPENONE}
|
||
,{{"玩家"}, CHAR_TYPEPLAYER}
|
||
,{{"敌人"}, CHAR_TYPEENEMY}
|
||
,{{"宠物"}, CHAR_TYPEPET}
|
||
#ifdef _ALLBLUES_LUA
|
||
,{{"LUA"}, CHAR_TYPELUANPC}
|
||
#endif
|
||
#ifdef _PLAYER_NPC
|
||
,{{"帮托"}, CHAR_TYPEPLAYERNPC}
|
||
,{{"帮宠"}, CHAR_TYPEPLAYERPETNPC}
|
||
#endif
|
||
};
|
||
|
||
static CharBase CharBaseWorkValue[] = {
|
||
{{"无"}, CHAR_PARTY_NONE}
|
||
,{{"队长"}, CHAR_PARTY_LEADER}
|
||
,{{"队员"}, CHAR_PARTY_CLIENT}
|
||
,{{"无战斗"}, BATTLE_CHARMODE_NONE}
|
||
,{{"战斗初始化"}, BATTLE_CHARMODE_INIT}
|
||
,{{"等待战斗"}, BATTLE_CHARMODE_C_WAIT}
|
||
,{{"确认战斗"}, BATTLE_CHARMODE_C_OK}
|
||
,{{"帮助战斗"}, BATTLE_CHARMODE_RESCUE}
|
||
,{{"结束战斗"}, BATTLE_CHARMODE_FINAL}
|
||
,{{"观战初始化"}, BATTLE_CHARMODE_WATCHINIT}
|
||
,{{"没有家族"}, FMMEMBER_NONE}
|
||
,{{"申请入族"}, FMMEMBER_APPLY}
|
||
,{{"族长"}, FMMEMBER_LEADER}
|
||
,{{"成员"}, FMMEMBER_MEMBER}
|
||
,{{"长老"}, FMMEMBER_ELDER}
|
||
};
|
||
|
||
static CharBase CharBaseInt[] = {
|
||
{{"图像号"}, CHAR_BASEIMAGENUMBER}
|
||
,{{"原图像号"}, CHAR_BASEBASEIMAGENUMBER}
|
||
,{{"地图号"}, CHAR_FLOOR}
|
||
,{{"坐标X"}, CHAR_X}
|
||
,{{"坐标Y"}, CHAR_Y}
|
||
,{{"方向"}, CHAR_DIR}
|
||
,{{"等级"}, CHAR_LV}
|
||
,{{"石币"}, CHAR_GOLD}
|
||
,{{"HP"}, CHAR_HP}
|
||
,{{"MP"}, CHAR_MP}
|
||
,{{"最大MP"}, CHAR_MAXMP}
|
||
,{{"体力"}, CHAR_VITAL}
|
||
,{{"腕力"}, CHAR_STR}
|
||
,{{"耐力"}, CHAR_TOUGH}
|
||
,{{"速度"}, CHAR_DEX}
|
||
,{{"地"}, CHAR_EARTHAT}
|
||
,{{"水"}, CHAR_WATERAT}
|
||
,{{"火"}, CHAR_FIREAT}
|
||
,{{"风"}, CHAR_WINDAT}
|
||
,{{"战宠"}, CHAR_DEFAULTPET}
|
||
,{{"魅力"}, CHAR_CHARM}
|
||
,{{"运气"}, CHAR_LUCK}
|
||
,{{"死亡次数"}, CHAR_DEADCOUNT}
|
||
,{{"走路步数"}, CHAR_WALKCOUNT}
|
||
,{{"说话次数"}, CHAR_TALKCOUNT}
|
||
,{{"损坏次数"}, CHAR_DAMAGECOUNT}
|
||
,{{"给宠次数"}, CHAR_GETPETCOUNT}
|
||
,{{"杀宠次数"}, CHAR_KILLPETCOUNT}
|
||
,{{"死宠次数"}, CHAR_DEADPETCOUNT}
|
||
,{{"发邮件数"}, CHAR_SENDMAILCOUNT}
|
||
,{{"合成次数"}, CHAR_MERGEITEMCOUNT}
|
||
,{{"PK次数"}, CHAR_DUELBATTLECOUNT}
|
||
,{{"PK赢数"}, CHAR_DUELWINCOUNT}
|
||
,{{"PK败数"}, CHAR_DUELLOSECOUNT}
|
||
,{{"PK连胜"}, CHAR_DUELSTWINCOUNT}
|
||
,{{"PK最高连胜"}, CHAR_DUELMAXSTWINCOUNT}
|
||
,{{"类型"}, CHAR_WHICHTYPE}
|
||
,{{"循环事件时间"}, CHAR_LOOPINTERVAL}
|
||
#ifdef _NEWOPEN_MAXEXP
|
||
,{{"总经验"}, CHAR_OLDEXP}
|
||
#endif
|
||
,{{"当前经验"}, CHAR_EXP}
|
||
,{{"技能点"}, CHAR_SKILLUPPOINT}
|
||
,{{"升级点"}, CHAR_LEVELUPPOINT}
|
||
,{{"DP"}, CHAR_DUELPOINT}
|
||
,{{"经验"}, CHAR_EXP}
|
||
,{{"出生地"}, CHAR_LASTTALKELDER}
|
||
,{{"转数"}, CHAR_TRANSMIGRATION}
|
||
,{{"禁言"}, CHAR_SILENT}
|
||
,{{"家族索引"}, CHAR_FMINDEX}
|
||
,{{"家族地位"}, CHAR_FMLEADERFLAG}
|
||
,{{"个人银行"}, CHAR_BANKGOLD}
|
||
,{{"骑宠"}, CHAR_RIDEPET}
|
||
,{{"暴击"}, CHAR_CRITIAL}
|
||
,{{"反击"}, CHAR_COUNTER}
|
||
#ifdef _GAMBLE_BANK
|
||
// ,{{"赌场银行"}, CHAR_RIDEPET}
|
||
#endif
|
||
#ifdef _DROPSTAKENEW
|
||
,{{"赌场积分"}, CHAR_GAMBLENUM}
|
||
#endif
|
||
#ifdef _PERSONAL_FAME // Arminius 8.30: 家族个人声望
|
||
,{{"声望"}, CHAR_FAME}
|
||
#endif
|
||
#ifdef _ATTACK_MAGIC
|
||
,{{"地魔法熟练度"}, CHAR_EARTH_EXP}
|
||
,{{"水魔法熟练度"}, CHAR_WATER_EXP}
|
||
,{{"火魔法熟练度"}, CHAR_FIRE_EXP}
|
||
,{{"风魔法熟练度"}, CHAR_WIND_EXP}
|
||
,{{"地魔法抗性"}, CHAR_EARTH_RESIST}
|
||
,{{"水魔法抗性"}, CHAR_WATER_RESIST}
|
||
,{{"火魔法抗性"}, CHAR_FIRE_RESIST}
|
||
,{{"风魔法抗性"}, CHAR_WIND_RESIST}
|
||
,{{"地魔法熟练度经验"}, CHAR_EARTH_ATTMAGIC_EXP}
|
||
,{{"水魔法熟练度经验"}, CHAR_WATER_ATTMAGIC_EXP}
|
||
,{{"火魔法熟练度经验"}, CHAR_FIRE_ATTMAGIC_EXP}
|
||
,{{"风魔法熟练度经验"}, CHAR_WIND_ATTMAGIC_EXP}
|
||
,{{"地魔法抗性经验值"}, CHAR_EARTH_DEFMAGIC_EXP}
|
||
,{{"水魔法抗性经验值"}, CHAR_WATER_DEFMAGIC_EXP}
|
||
,{{"火魔法抗性经验值"}, CHAR_FIRE_DEFMAGIC_EXP}
|
||
,{{"风魔法抗性经验值"}, CHAR_WIND_DEFMAGIC_EXP}
|
||
#endif
|
||
#ifdef _CHAR_PROFESSION // WON ADD 人物职业
|
||
,{{"职业别"}, PROFESSION_CLASS}
|
||
,{{"职业等级"}, PROFESSION_LEVEL}
|
||
,{{"技能点数"}, PROFESSION_SKILL_POINT}
|
||
,{{"增加堆叠"}, ATTACHPILE}
|
||
,{{"火熟练度"}, PROFESSION_FIRE_P}
|
||
,{{"冰熟练度"}, PROFESSION_ICE_P}
|
||
,{{"雷熟练度"}, PROFESSION_THUNDER_P}
|
||
,{{"火抗性"}, PROFESSION_FIRE_R}
|
||
,{{"冰抗性"}, PROFESSION_ICE_R}
|
||
,{{"雷抗性"}, PROFESSION_THUNDER_R}
|
||
#endif
|
||
#ifdef _NEW_MANOR_LAW
|
||
,{{"气势"}, CHAR_MOMENTUM}
|
||
#endif
|
||
//#ifdef _VIP_SERVER
|
||
// ,{{"积分"}, CHAR_AMPOINT}
|
||
//#endif
|
||
#ifdef _VIP_RIDE
|
||
,{{"会员"}, CHAR_VIPRIDE}
|
||
,{{"会员有效期"}, CHAR_VIPTIME}
|
||
#endif
|
||
#ifdef _ITEM_PET_LOCKED
|
||
,{{"安全锁"}, CHAR_LOCKED}
|
||
#endif
|
||
#ifdef _ONLINE_SHOP
|
||
,{{"贝币"}, CHAR_BJ}
|
||
#endif
|
||
#ifdef _CAX_ESC_REPORT
|
||
,{{"签到"}, CHAR_REPORT}
|
||
#endif
|
||
,{{"模式AI"}, CHAR_MODAI}
|
||
,{{"可变AI"}, CHAR_VARIABLEAI}
|
||
,{{"宠技位"}, CHAR_SLOT}
|
||
,{{"宠ID"}, CHAR_PETID}
|
||
,{{"怪ID"}, CHAR_PETENEMYID}
|
||
,{{"守护兽"}, CHAR_PETFAMILY}
|
||
,{{"能力值"}, CHAR_ALLOCPOINT}
|
||
,{{"成长区间"}, CHAR_PETRANK}
|
||
,{{"限制等级"}, CHAR_LIMITLEVEL}
|
||
|
||
/*char.setInt( petindex, "融合编号", PetCode)
|
||
char.setInt( petindex, "转数", 2)
|
||
char.setInt( petindex, "融合类型", 3)
|
||
char.setInt( petindex, "融合编码", -1)
|
||
char.setInt( petindex, "能装备", -1)
|
||
char.setInt( petindex, "喂食次数", 30 )
|
||
char.setInt( petindex, "融合宠", 1)
|
||
char.setInt( petindex, "喂食时间", other.time())
|
||
char.setInt( petindex, "融合体力", 0)
|
||
char.setInt( petindex, "融合腕力", 0)
|
||
char.setInt( petindex, "融合耐力", 0)
|
||
char.setInt( petindex, "融合速度", 0)*/
|
||
// ,{{"融合类型"}, CHAR_FUSIONCODE}//CHAR_FUSIONBEIT
|
||
,{{"融合编号"}, CHAR_FUSIONINDEX}//融合编号--
|
||
,{{"融合编码"}, CHAR_FUSIONCODE}//-
|
||
,{{"喂食次数"}, CHAR_FUSIONRAISE} //-
|
||
,{{"融合宠"}, CHAR_FUSIONBEIT}// -
|
||
,{{"喂食时间"}, CHAR_FUSIONTIMELIMIT}//
|
||
,{{"融合体力"}, CHAR_EVOLUTIONBASEVTL}//
|
||
,{{"融合腕力"}, CHAR_EVOLUTIONBASESTR}//
|
||
,{{"融合耐力"}, CHAR_EVOLUTIONBASETGH}//
|
||
,{{"融合速度"}, CHAR_EVOLUTIONBASEDEX}//
|
||
|
||
|
||
#ifdef _PET_BEATITUDE
|
||
,{{"提升值"}, CHAR_BEATITUDE}
|
||
#endif
|
||
#ifdef _CAMEO_MONEY
|
||
,{{"贝壳"}, CHAR_CAMEO}
|
||
#endif
|
||
#ifdef _MISSION_TRAIN
|
||
,{{"任务链"}, CHAR_MISSIONTRAIN_NUM}
|
||
,{{"任务链时间"}, CHAR_MISSIONTRAIN_TIME}
|
||
#endif
|
||
#ifdef _PET_EVOLVE
|
||
,{{"进化"}, CHAR_EVOLVE}
|
||
#endif
|
||
#ifdef _ONLINE_TIME
|
||
,{{"在线时间"}, CHAR_ONLINE_TIME}
|
||
#endif
|
||
,{{"离线时间"}, CHAR_OFFTIME}
|
||
#ifdef _FLOOR_DIFI_FIELD
|
||
,{{"楼层时间"}, CHAR_FLOORDIFI_TIME}
|
||
#endif
|
||
//#ifdef _ACTIVE_GAME
|
||
// ,{{"活力"}, CHAR_ACTIVE}
|
||
//#endif
|
||
,{{"经验加成"}, CHAR_ADDEXPPOWER} //经验加成
|
||
,{{"经验时效"}, CHAR_ADDEXPTIME} //经验时效 /60处理
|
||
,{{"活力"}, CHAR_VIGOR}
|
||
,{{"环数"}, CHAR_EVNUM}
|
||
,{{"整数缓存1"}, CHAR_LUASAVE_WORKINT_1} //lua存储 玩家下线清零
|
||
,{{"整数缓存2"}, CHAR_LUASAVE_WORKINT_2} //lua存储 玩家下线清零
|
||
,{{"整数缓存3"}, CHAR_LUASAVE_WORKINT_3} //lua存储 玩家下线清零
|
||
,{{"整数存储1"}, CHAR_LUASAVE_INT_1} //整数存储，保存至存档内1-3
|
||
,{{"整数存储2"}, CHAR_LUASAVE_INT_2} //整数存储，保存至存档内1-3
|
||
,{{"整数存储3"}, CHAR_LUASAVE_INT_3} //整数存储，保存至存档内1-3
|
||
#ifdef _CAX_Mercenary
|
||
,{{"佣兵经验"}, CHAR_MERCENARY} //佣兵经验
|
||
#endif
|
||
#ifdef _SUPER
|
||
,{{"极品"}, CHAR_SUPER}
|
||
#endif
|
||
#ifdef _ALLDOMAN
|
||
,{{"英雄称号"}, CHAR_HEROFLOOR}
|
||
#endif
|
||
|
||
#ifdef _PLAYER_TITLE
|
||
,{{"称号等级"}, CHAR_TITLE_LV}
|
||
,{{"称号时间"}, CHAR_TITLE_TIME}
|
||
#endif
|
||
#ifdef _MISSION_TIME
|
||
,{{"任务计时"}, CHAR_MISSION_TIME}
|
||
#endif
|
||
#ifdef _REGISTRATION_TIME
|
||
,{{"签到时间"}, CHAR_REGISTRATION_TIME}
|
||
,{{"签到次数"}, CHAR_REGISTRATION_COUNT}
|
||
,{{"签到在线时间"}, CHAR_REGISTRATION_ONLINE_TIME}
|
||
#endif
|
||
,{{"证书骑宠"}, CHAR_LOWRIDEPETS}
|
||
,{{"证书骑宠1"}, CHAR_LOWRIDEPETS1}
|
||
,{{"证书骑宠2"}, CHAR_HIGHRIDEPETS2}
|
||
};
|
||
|
||
static CharBase CharBaseChar[] = {
|
||
{{"名字"}, CHAR_NAME}
|
||
,{{"昵称"}, CHAR_OWNTITLE}
|
||
,{{"主人"}, CHAR_USERPETNAME}
|
||
,{{"账号"}, CHAR_CDKEY}
|
||
,{{"家族"}, CHAR_FMNAME}
|
||
#ifdef _TEACHER_SYSTEM
|
||
,{{"导师帐号"}, CHAR_TEACHER_ID}
|
||
,{{"导师名字"}, CHAR_TEACHER_NAME}
|
||
#endif
|
||
#ifdef _ITEM_SETLOVER
|
||
,{{"爱人账号"}, CHAR_LOVERID}
|
||
,{{"爱人名字"}, CHAR_LOVERNAME}
|
||
#endif
|
||
#ifdef _NEW_NAME
|
||
,{{"称号"}, CHAR_NEWNAME}
|
||
#endif
|
||
#ifdef _LOTTERY_SYSTEM
|
||
,{{"彩票"}, CHAR_LOTTERY_VALUE}
|
||
#endif
|
||
,{{"主人账号"}, CHAR_OWNERCDKEY}
|
||
,{{"主人名字"}, CHAR_OWNERCHARANAME}
|
||
};
|
||
|
||
|
||
static CharBase CharBaseEvent[] = {
|
||
{{"初始化事件"}, CHAR_INITFUNC}
|
||
//,{{"行走事件"}, CHAR_WALKPREFUNC}
|
||
//,{{"行走后事件"}, CHAR_WALKPOSTFUNC}
|
||
//,{{"未知事件"}, CHAR_PREOVERFUNC}
|
||
//,{{"未知事件"}, CHAR_POSTOVERFUNC}
|
||
//,{{"观看事件"}, CHAR_WATCHFUNC}
|
||
,{{"循环事件"}, CHAR_LOOPFUNC}
|
||
//,{{"死亡事件"}, CHAR_DYINGFUNC}
|
||
,{{"对话事件"}, CHAR_TALKEDFUNC}
|
||
//,{{"攻击事件"}, CHAR_PREATTACKEDFUNC}
|
||
//,{{"攻击后事件"}, CHAR_POSTATTACKEDFUNC}
|
||
//,{{"离开事件"}, CHAR_OFFFUNC}
|
||
//,{{"看事件"}, CHAR_LOOKEDFUNC}
|
||
//,{{"丢弃事件"}, CHAR_ITEMPUTFUNC}
|
||
//,{{"特殊对话事件"}, CHAR_SPECIALTALKEDFUNC}
|
||
,{{"窗口事件"}, CHAR_WINDOWTALKEDFUNC}
|
||
#ifdef _USER_CHARLOOPS
|
||
//,{{"循环事件1"}, CHAR_LOOPFUNCTEMP1}
|
||
//,{{"循环事件2"}, CHAR_LOOPFUNCTEMP2}
|
||
//,{{"未知事件"}, CHAR_BATTLEPROPERTY}
|
||
#endif
|
||
,{{"重叠事件"}, CHAR_OVERLAPEDFUNC}
|
||
,{{"战后事件"}, CHAR_BATTLEOVERDFUNC}
|
||
#ifdef _ALLBLUES_LUA_1_4
|
||
,{{"登出事件"}, CHAR_LOGINOUTFUNC}
|
||
#endif
|
||
#ifdef _ALLBLUES_LUA_1_9
|
||
,{{"战斗设置事件"}, CHAR_BATTLESETFUNC}
|
||
#endif
|
||
};
|
||
|
||
static CharBase CharBaseColor[] = {
|
||
{{"白色"}, CHAR_COLORWHITE}
|
||
,{{"青色"}, CHAR_COLORCYAN}
|
||
,{{"紫色"}, CHAR_COLORPURPLE}
|
||
,{{"蓝色"}, CHAR_COLORBLUE}
|
||
,{{"黄色"}, CHAR_COLORYELLOW}
|
||
,{{"绿色"}, CHAR_COLORGREEN}
|
||
,{{"红色"}, CHAR_COLORRED}
|
||
,{{"灰白色"}, CHAR_COLORGRAY}
|
||
,{{"灰蓝色"}, CHAR_COLORBLUE2}
|
||
,{{"灰绿色"}, CHAR_COLORGREEN2}
|
||
};
|
||
|
||
static CharBase CharBaseUpdata[] = {
|
||
{{"HP"}, CHAR_P_STRING_HP}
|
||
,{{"MAXHP"}, CHAR_P_STRING_MAXHP}
|
||
,{{"MP"}, CHAR_P_STRING_MP}
|
||
,{{"MAXMP"}, CHAR_P_STRING_MAXMP}
|
||
,{{"体力"}, CHAR_P_STRING_VITAL}
|
||
,{{"腕力"}, CHAR_P_STRING_STR}
|
||
,{{"耐力"}, CHAR_P_STRING_TOUGH}
|
||
,{{"速度"}, CHAR_P_STRING_DEX}
|
||
,{{"经验"}, CHAR_P_STRING_EXP}
|
||
,{{"下一级经验"}, CHAR_P_STRING_NEXTEXP}
|
||
,{{"等级"}, CHAR_P_STRING_LV}
|
||
,{{"攻击力"}, CHAR_P_STRING_ATK}
|
||
,{{"防御力"}, CHAR_P_STRING_DEF}
|
||
,{{"敏捷力"}, CHAR_P_STRING_QUICK}
|
||
,{{"魅力"}, CHAR_P_STRING_CHARM}
|
||
,{{"运气"}, CHAR_P_STRING_LUCK}
|
||
,{{"地"}, CHAR_P_STRING_EARTH}
|
||
,{{"水"}, CHAR_P_STRING_WATER}
|
||
,{{"火"}, CHAR_P_STRING_FIRE}
|
||
,{{"风"}, CHAR_P_STRING_WIND}
|
||
,{{"石币"}, CHAR_P_STRING_GOLD}
|
||
,{{"标题"}, CHAR_P_STRING_TITLE}
|
||
,{{"DP"}, CHAR_P_STRING_DUELPOINT}
|
||
,{{"转数"}, CHAR_P_STRING_TRANSMIGRATION}
|
||
,{{"名字"}, CHAR_P_STRING_NAME}
|
||
,{{"昵称"}, CHAR_P_STRING_OWNTITLE}
|
||
,{{"骑宠"}, CHAR_P_STRING_RIDEPET}
|
||
,{{"学骑"}, CHAR_P_STRING_LEARNRIDE}
|
||
,{{"图像"}, CHAR_P_STRING_BASEBASEIMAGENUMBER}
|
||
,{{"天行者"}, CHAR_P_STRING_SKYWALKER}
|
||
,{{"调试模式"}, CHAR_P_STRING_DEBUGMODE}
|
||
};
|
||
|
||
static CharBase CharBaseFlg[] = {
|
||
{{"可见"}, CHAR_ISVISIBLE}
|
||
,{{"透明"}, CHAR_ISTRANSPARENT}
|
||
,{{"飞行"}, CHAR_ISFLYING}
|
||
,{{"死亡"}, CHAR_ISDIE}
|
||
,{{"组队"}, CHAR_ISPARTY}
|
||
,{{"决斗"}, CHAR_ISDUEL}
|
||
,{{"名片"}, CHAR_ISTRADECARD}
|
||
,{{"交易"}, CHAR_ISTRADE}
|
||
#ifdef _CHANNEL_MODIFY
|
||
,{{"密语频道"}, CHAR_ISTELL}
|
||
,{{"家族频道"}, CHAR_ISFM}
|
||
,{{"职业频道"}, CHAR_ISOCC}
|
||
,{{"对话储存"}, CHAR_ISSAVE}
|
||
,{{"聊天室"}, CHAR_ISCHAT}
|
||
#ifdef _CHATROOMPROTOCOL
|
||
#ifdef _THE_WORLD_SEND
|
||
,{{"世界频道"}, CHAR_ISWORLD}
|
||
#endif
|
||
#ifdef _ONLINE_TALK_IP
|
||
,{{"举报频道"}, CHAR_ISTALKIP}
|
||
#endif
|
||
#endif
|
||
#endif
|
||
};
|
||
|
||
static CharBase CharBaseAction[] = {
|
||
{{"站立"}, CHAR_ACTSTAND}
|
||
,{{"走动"}, CHAR_ACTWALK}
|
||
,{{"攻击"}, CHAR_ACTATTACK}
|
||
,{{"投掷"}, CHAR_ACTTHROW}
|
||
,{{"受伤"}, CHAR_ACTDAMAGE}
|
||
,{{"死亡"}, CHAR_ACTDEAD}
|
||
,{{"魔法"}, CHAR_ACTMAGIC}
|
||
,{{"道具"}, CHAR_ACTITEM}
|
||
,{{"效果"}, CHAR_ACTEFFECT}
|
||
,{{"下"}, CHAR_ACTDOWN}
|
||
,{{"坐"}, CHAR_ACTSIT}
|
||
,{{"挥手"}, CHAR_ACTHAND}
|
||
,{{"高兴"}, CHAR_ACTPLEASURE}
|
||
,{{"发怒"}, CHAR_ACTANGRY}
|
||
,{{"悲哀"}, CHAR_ACTSAD}
|
||
,{{"防守"}, CHAR_ACTGUARD}
|
||
,{{"走路"}, CHAR_ACTACTIONWALK}
|
||
,{{"点头"}, CHAR_ACTNOD}
|
||
,{{"站立"}, CHAR_ACTACTIONSTAND}
|
||
,{{"战斗"}, CHAR_ACTBATTLE}
|
||
,{{"带队"}, CHAR_ACTLEADER}
|
||
,{{"观战"}, CHAR_ACTBATTLEWATCH}
|
||
,{{"未知"}, CHAR_ACTPOPUPNAME}
|
||
,{{"旋转"}, CHAR_ACTTURN}
|
||
,{{"变形"}, CHAR_ACTWARP}
|
||
,{{"交易"}, CHAR_ACTTRADE}
|
||
#ifdef _ANGEL_SUMMON
|
||
,{{"天使"}, CHAR_ACTANGEL}
|
||
#endif
|
||
|
||
#ifdef _MIND_ICON
|
||
,{{"心思"}, CHAR_MIND}
|
||
#endif
|
||
#ifdef _STREET_VENDOR
|
||
,{{"打开摊滩"}, CHAR_STREETVENDOR_OPEN}
|
||
,{{"关闭摊滩"}, CHAR_STREETVENDOR_CLOSE}
|
||
#endif
|
||
};
|
||
|
||
|
||
static int getCharNum (lua_State *L)
|
||
{
|
||
lua_pushinteger(L, CHAR_getCharNum());
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int getPlayerMaxNum (lua_State *L)
|
||
{
|
||
lua_pushinteger(L, CHAR_getPlayerMaxNum());
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int getPetMaxNum (lua_State *L)
|
||
{
|
||
lua_pushinteger(L, CHAR_getPetMaxNum());
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int getOthersMaxNum (lua_State *L)
|
||
{
|
||
lua_pushinteger(L, CHAR_getOthersMaxNum());
|
||
|
||
return 1;
|
||
}
|
||
|
||
|
||
static int check (lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
lua_pushinteger(L, CHAR_CHECKINDEX(index));
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int setFlg (lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int element = getCharBaseValue(L, 2, CharBaseFlg, arraysizeof(CharBaseFlg));
|
||
const int data = luaL_checkint(L, 3);
|
||
if(CHAR_setFlg(index, element, data) == -1){
|
||
return 0;
|
||
}else{
|
||
return 1;
|
||
}
|
||
}
|
||
|
||
static int getFlg (lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int element = getCharBaseValue(L, 2, CharBaseFlg, arraysizeof(CharBaseFlg));
|
||
|
||
lua_pushinteger(L, CHAR_getFlg(index, element));
|
||
return 1;
|
||
}
|
||
|
||
static int setWorkChar (lua_State *L)
|
||
{
|
||
size_t l;
|
||
const int index = luaL_checkint(L, 1);
|
||
const int element = getCharBaseValue(L, 2, CharBaseWorkChar, arraysizeof(CharBaseWorkChar));
|
||
char *data = luaL_checklstring(L, 3, &l);
|
||
if(CHAR_setWorkChar(index, element, data) == -1){
|
||
return 0;
|
||
}else{
|
||
return 1;
|
||
}
|
||
}
|
||
|
||
static int getWorkChar (lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int element = getCharBaseValue(L, 2, CharBaseWorkChar, arraysizeof(CharBaseWorkChar));
|
||
lua_pushstring(L, CHAR_getWorkChar(index, element));
|
||
return 1;
|
||
}
|
||
|
||
|
||
static int setWorkInt (lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int element = getCharBaseValue(L, 2, CharBaseWorkInt, arraysizeof(CharBaseWorkInt));
|
||
const int data = getCharBaseValue(L, 3, CharBaseWorkValue, arraysizeof(CharBaseWorkValue));
|
||
//print("index = %d element =%d data =%d \n ",index,element,data);
|
||
if(CHAR_setWorkInt(index, element, data) == -1){
|
||
return 0;
|
||
}else{
|
||
return 1;
|
||
}
|
||
}
|
||
|
||
static int getWorkInt (lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int element = getCharBaseValue(L, 2, CharBaseWorkInt, arraysizeof(CharBaseWorkInt));
|
||
lua_pushinteger(L, CHAR_getWorkInt(index, element));
|
||
return 1;
|
||
}
|
||
|
||
static int setChar (lua_State *L)
|
||
{
|
||
size_t l;
|
||
const int index = luaL_checkint(L, 1);
|
||
const int element = getCharBaseValue(L, 2, CharBaseChar, arraysizeof(CharBaseChar));
|
||
char *data = luaL_checklstring(L, 3, &l);
|
||
if(CHAR_setChar(index, element, data) == -1){
|
||
return 0;
|
||
}else{
|
||
return 1;
|
||
}
|
||
}
|
||
|
||
static int getChar (lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int element = getCharBaseValue(L, 2, CharBaseChar, arraysizeof(CharBaseChar));
|
||
lua_pushstring(L, CHAR_getChar(index, element));
|
||
return 1;
|
||
}
|
||
|
||
static int setInt (lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int element = getCharBaseValue(L, 2, CharBaseInt, arraysizeof(CharBaseInt));
|
||
const int data = getCharBaseValue(L, 3, CharBaseValue, arraysizeof(CharBaseValue));
|
||
if(CHAR_setInt(index, element, data) == -1){
|
||
return 0;
|
||
}else{
|
||
return 1;
|
||
}
|
||
}
|
||
|
||
static int getInt (lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int element = getCharBaseValue(L, 2, CharBaseInt, arraysizeof(CharBaseInt));
|
||
lua_pushinteger(L, CHAR_getInt(index, element));
|
||
return 1;
|
||
}
|
||
|
||
static int setFunctionPointer(lua_State *L)
|
||
{
|
||
size_t l;
|
||
const int index = luaL_checkint(L, 1);
|
||
const int functype = getCharBaseValue(L, 2, CharBaseEvent, arraysizeof(CharBaseEvent));
|
||
char *luafunctable=luaL_checklstring(L, 3, &l);
|
||
char *luafunctablepath=luaL_checklstring(L, 4, &l);
|
||
if(strlen(luafunctablepath) > 0){
|
||
MY_Lua *mylua = &MYLua;
|
||
while(mylua->next != NULL){
|
||
if(strcmp(mylua->luapath, luafunctablepath) == 0){
|
||
return CHAR_setLUAFunction( index, functype, mylua->lua, luafunctable );
|
||
}
|
||
mylua = mylua->next;
|
||
}
|
||
}else{
|
||
return CHAR_setLUAFunction( index, functype, L, luafunctable );
|
||
}
|
||
return 1;
|
||
}
|
||
|
||
static int delFunctionPointer(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int functype = getCharBaseValue(L, 2, CharBaseEvent, arraysizeof(CharBaseEvent));
|
||
|
||
return CHAR_delLUAFunction( index, functype );
|
||
}
|
||
|
||
static int TalkToCli(lua_State *L)
|
||
{
|
||
size_t l;
|
||
const int talkedcharaindex = luaL_checkint(L, 1);
|
||
const int talkcharaindex = luaL_checkint(L, 2);
|
||
char *message=luaL_checklstring(L, 3, &l);
|
||
const int color = getCharBaseValue(L, 4, CharBaseColor, arraysizeof(CharBaseColor));
|
||
CHAR_talkToCli(talkedcharaindex, talkcharaindex, message, color);
|
||
return 1;
|
||
}
|
||
|
||
static int TalkToRound(lua_State *L)
|
||
{
|
||
size_t l;
|
||
const int talkedcharaindex = luaL_checkint(L, 1);
|
||
char *message=luaL_checklstring(L, 2, &l);
|
||
const int color = getCharBaseValue(L, 3, CharBaseColor, arraysizeof(CharBaseColor));
|
||
|
||
int fl = CHAR_getInt( talkedcharaindex, CHAR_FLOOR) ;
|
||
int x = CHAR_getInt( talkedcharaindex, CHAR_X) ;
|
||
int y = CHAR_getInt( talkedcharaindex, CHAR_Y) ;
|
||
|
||
int i,j;
|
||
|
||
int range = 8;
|
||
|
||
for( i=x-range ; i<=x+range ; i++ ){
|
||
for( j=y-range ; j<=y+range ; j++ ){
|
||
OBJECT object;
|
||
for( object = MAP_getTopObj( fl,i,j ) ; object ; object = NEXT_OBJECT(object) ){
|
||
int objindex = GET_OBJINDEX(object);
|
||
int toindex = OBJECT_getIndex( objindex);
|
||
if( OBJECT_getType(objindex) == OBJTYPE_CHARA && toindex != talkedcharaindex ){
|
||
if( CHAR_getInt(toindex, CHAR_WHICHTYPE) == CHAR_TYPEPLAYER){
|
||
typedef void (*TALKF)(int,int,char*,int,int);
|
||
TALKF talkedfunc=NULL;
|
||
talkedfunc = (TALKF)CHAR_getFunctionPointer( toindex, CHAR_TALKEDFUNC);
|
||
if( talkedfunc ) {
|
||
talkedfunc(toindex, talkedcharaindex, message, color, -1);
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int WalkPoint(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
if( CHAR_getWorkInt( index, CHAR_WORKBATTLEMODE ) != BATTLE_CHARMODE_NONE ) return 0;
|
||
|
||
const int x = luaL_checkint(L, 2);
|
||
const int y = luaL_checkint(L, 3);
|
||
|
||
POINT start, end;
|
||
|
||
start.x = CHAR_getInt( index, CHAR_X);
|
||
start.y = CHAR_getInt( index, CHAR_Y);
|
||
|
||
end.x = x;
|
||
end.y = y;
|
||
|
||
int pos = NPC_Util_getDirFromTwoPoint( &start, &end);
|
||
if( pos != - 1 ) {
|
||
CHAR_walk( index, pos, 0);
|
||
}
|
||
return 1;
|
||
}
|
||
|
||
static int Walk(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
if( CHAR_getWorkInt( index, CHAR_WORKBATTLEMODE ) != BATTLE_CHARMODE_NONE ) return 0;
|
||
|
||
const int dir = luaL_checkint(L, 2);
|
||
const int step = luaL_checkint(L, 3);
|
||
|
||
POINT start, end;
|
||
|
||
start.x = CHAR_getInt( index, CHAR_X);
|
||
start.y = CHAR_getInt( index, CHAR_Y);
|
||
|
||
end.x = start.x;
|
||
end.y = start.y;
|
||
switch(dir){
|
||
case 0:
|
||
{
|
||
end.x = start.x - step;
|
||
break;
|
||
}
|
||
case 1:
|
||
{
|
||
end.x = start.x + step;
|
||
end.y = start.y - step;
|
||
break;
|
||
}
|
||
case 2:
|
||
{
|
||
end.x = start.x + step;
|
||
break;
|
||
}
|
||
case 3:
|
||
{
|
||
end.x = start.x + step;
|
||
end.y = start.y + step;
|
||
|
||
break;
|
||
}
|
||
case 4:
|
||
{
|
||
end.y = start.y + step;
|
||
break;
|
||
}
|
||
case 5:
|
||
{
|
||
end.x = start.x - step;
|
||
end.y = start.y + step;
|
||
break;
|
||
}
|
||
case 6:
|
||
{
|
||
end.y = start.y - step;
|
||
break;
|
||
}
|
||
case 7:
|
||
{
|
||
end.x = start.x - step;
|
||
end.y = start.y - step;
|
||
break;
|
||
}
|
||
}
|
||
|
||
int pos = NPC_Util_getDirFromTwoPoint( &start, &end);
|
||
if( dir != - 1 ) {
|
||
CHAR_walk( index, pos, 0);
|
||
}
|
||
return 1;
|
||
}
|
||
|
||
static int BoundRandWalk(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
if( CHAR_getWorkInt( index, CHAR_WORKBATTLEMODE ) != BATTLE_CHARMODE_NONE ) return 0;
|
||
|
||
const int minX = min(luaL_checkint(L, 2), luaL_checkint(L, 4));
|
||
const int minY = min(luaL_checkint(L, 3), luaL_checkint(L, 5));
|
||
const int maxX = max(luaL_checkint(L, 2), luaL_checkint(L, 4));
|
||
const int maxY = max(luaL_checkint(L, 3), luaL_checkint(L, 5));
|
||
|
||
POINT start, end;
|
||
int stepX = (rand() % 10) - 5;
|
||
int stepY = (rand() % 10) - 5;
|
||
|
||
start.x = CHAR_getInt( index, CHAR_X);
|
||
start.y = CHAR_getInt( index, CHAR_Y);
|
||
|
||
end.x = start.x + stepX;
|
||
if(end.x>maxX)end.x=maxX;
|
||
else if(end.x<minX)end.x=minX;
|
||
|
||
end.y = start.y + stepY;
|
||
if(end.y>maxY)end.y=maxY;
|
||
else if(end.y<minY)end.y=minY;
|
||
|
||
int dir = NPC_Util_getDirFromTwoPoint( &start, &end);
|
||
|
||
if( dir != - 1 ) {
|
||
CHAR_walk( index, dir, 0);
|
||
}
|
||
return 1;
|
||
}
|
||
|
||
static int RandRandWalk(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
if( CHAR_getWorkInt( index, CHAR_WORKBATTLEMODE ) != BATTLE_CHARMODE_NONE ) return 0;
|
||
|
||
POINT start, end;
|
||
int stepX = (rand() % 8) - 4;
|
||
int stepY = (rand() % 8) - 4;
|
||
|
||
start.x = CHAR_getInt( index, CHAR_X);
|
||
start.y = CHAR_getInt( index, CHAR_Y);
|
||
|
||
end.x = start.x + stepX;
|
||
end.y = start.y + stepY;
|
||
|
||
|
||
|
||
int dir = NPC_Util_getDirFromTwoPoint( &start, &end);
|
||
if( dir != - 1 ) {
|
||
CHAR_walk( index, dir, 0);
|
||
}
|
||
return 1;
|
||
}
|
||
|
||
static int ToAroundChar(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
int objindex = CHAR_getWorkInt( index,CHAR_WORKOBJINDEX );
|
||
CHAR_sendCToArroundCharacter( objindex);
|
||
return 1;
|
||
}
|
||
|
||
static int talkToFloor(lua_State *L)
|
||
{
|
||
size_t l;
|
||
const int floor = luaL_checkint(L, 1);
|
||
const int talkindex = luaL_checkint(L, 2);
|
||
char *message=luaL_checklstring(L, 3, &l);
|
||
const int color = getCharBaseValue(L, 4, CharBaseColor, arraysizeof(CharBaseColor));
|
||
CHAR_talkToFloor(floor, talkindex, message, color);
|
||
return 1;
|
||
}
|
||
|
||
static int talkToParty(lua_State *L)
|
||
{
|
||
size_t l;
|
||
const int talkedcharaindex = luaL_checkint(L, 1);
|
||
const int talkcharaindex = luaL_checkint(L, 2);
|
||
char *message=luaL_checklstring(L, 3, &l);
|
||
const int color = getCharBaseValue(L, 4, CharBaseColor, arraysizeof(CharBaseColor));
|
||
CHAR_talkToCliAndParty(talkedcharaindex, talkcharaindex, message, color);
|
||
return 1;
|
||
}
|
||
|
||
static int talkToServer(lua_State *L)
|
||
{
|
||
size_t l;
|
||
const int talkcharaindex = luaL_checkint(L, 1);
|
||
char *message=luaL_checklstring(L, 2, &l);
|
||
const int color = getCharBaseValue(L, 3, CharBaseColor, arraysizeof(CharBaseColor));
|
||
|
||
int i;
|
||
int playernum = CHAR_getPlayerMaxNum();
|
||
|
||
for( i = 0 ; i < playernum ; i++) {
|
||
if( CHAR_getCharUse(i) != FALSE ) {
|
||
CHAR_talkToCli( i, talkcharaindex, message, color);
|
||
}
|
||
}
|
||
|
||
return 1;
|
||
}
|
||
#ifdef _ALLBLUES_LUA_1_1
|
||
static int WarpToSpecificPoint(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int floor = luaL_checkint(L, 2);
|
||
const int x = luaL_checkint(L, 3);
|
||
const int y = luaL_checkint(L, 4);
|
||
|
||
CHAR_warpToSpecificPoint( charaindex, floor, x, y );
|
||
return 1;
|
||
}
|
||
static int MapAllWarp(lua_State *L)
|
||
{
|
||
const int oldfloor = luaL_checkint(L, 1);
|
||
const int newfloor = luaL_checkint(L, 2);
|
||
const int x = luaL_checkint(L, 3);
|
||
const int y = luaL_checkint(L, 4);
|
||
|
||
int i;
|
||
int playernum = CHAR_getPlayerMaxNum();
|
||
|
||
for( i = 0 ; i < playernum ; i++) {
|
||
if( CHAR_getCharUse(i) == FALSE )continue;
|
||
if( CHAR_getInt(i, CHAR_FLOOR) != oldfloor )continue;
|
||
CHAR_warpToSpecificPoint( i, newfloor, x, y );
|
||
}
|
||
return 1;
|
||
}
|
||
#endif
|
||
|
||
|
||
#ifdef _ALLBLUES_LUA_1_3
|
||
static int createPet(lua_State *L)
|
||
{
|
||
const int enemyid = luaL_checkint(L, 1);
|
||
const int UpLevel = luaL_checkint(L, 2);
|
||
|
||
int i;
|
||
for( i = 0; i < ENEMY_getEnemyNum(); i ++ ) {
|
||
if( ENEMY_getInt( i, ENEMY_ID) == enemyid) {
|
||
break;
|
||
}
|
||
}
|
||
if( i == ENEMY_getEnemyNum() ){
|
||
lua_pushinteger(L, -1);
|
||
return 1;
|
||
}
|
||
|
||
int petindex = ENEMY_createPet( i, -1, -1, -1, -1 );
|
||
|
||
for( i = 0; i < UpLevel; i ++ ){
|
||
CHAR_PetLevelUp( petindex );
|
||
CHAR_PetAddVariableAi( petindex, AI_FIX_PETLEVELUP );
|
||
}
|
||
CHAR_setInt( petindex, CHAR_LV, CHAR_getInt( petindex, CHAR_LV) + UpLevel );
|
||
CHAR_complianceParameter( petindex );
|
||
CHAR_setInt( petindex, CHAR_HP, CHAR_getWorkInt( petindex, CHAR_WORKMAXHP ));
|
||
|
||
CHAR_LoginBesideSetWorkInt( petindex, -1 );
|
||
lua_pushinteger(L, petindex);
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int setCharPet(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int petindex = luaL_checkint(L, 2);
|
||
|
||
int havepetelement = CHAR_getCharPetElement( index);
|
||
if( havepetelement > -1 ){
|
||
CHAR_setCharPet( index, havepetelement, petindex);
|
||
CHAR_setWorkInt( petindex, CHAR_WORKPLAYERINDEX, index);
|
||
}
|
||
|
||
lua_pushinteger(L, havepetelement);
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int getCharPet(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int havepetid = luaL_checkint(L, 2);
|
||
|
||
lua_pushinteger(L, CHAR_getCharPet( index, havepetid));
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int DelItem(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int itemindex = luaL_checkint(L, 2);
|
||
|
||
CHAR_DelItem( charaindex, itemindex);
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int getFd(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
|
||
lua_pushinteger(L, getfdFromCharaIndex(charaindex));
|
||
return 1;
|
||
}
|
||
|
||
static int Updata(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int indextable = getCharBaseValue(L, 2, CharBaseUpdata, arraysizeof(CharBaseUpdata));
|
||
|
||
CHAR_send_P_StatusString( charaindex , indextable);
|
||
return 1;
|
||
}
|
||
|
||
static int Additem(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int itemid = luaL_checkint(L, 2);
|
||
int itemindex = -1;
|
||
int emptyitemindexinchara = CHAR_findEmptyItemBox( charaindex );
|
||
|
||
if( emptyitemindexinchara >= 0 ){
|
||
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
|
||
atoi( message),
|
||
#endif
|
||
"AddItem(制作道具LUA)",
|
||
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)
|
||
|
||
);
|
||
}
|
||
}
|
||
lua_pushinteger(L, itemindex);
|
||
return 1;
|
||
}
|
||
|
||
static int Finditem(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int itemid = luaL_checkint(L, 2);
|
||
int i;
|
||
int itemindex=-1;
|
||
int id;
|
||
for( i=CHAR_STARTITEMARRAY;i<CHAR_MAXITEMHAVE;i++ ){
|
||
itemindex = CHAR_getItemIndex( charaindex , i );
|
||
if( ITEM_CHECKINDEX( itemindex) ) {
|
||
id=ITEM_getInt(itemindex ,ITEM_ID );
|
||
if(id == itemid){
|
||
lua_pushinteger(L, itemindex);
|
||
return 1;
|
||
}
|
||
}
|
||
}
|
||
lua_pushinteger(L, -1);
|
||
return 1;
|
||
}
|
||
|
||
static int AddPet(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int enemyid = luaL_checkint(L, 2);
|
||
const int UpLevel = luaL_checkint(L, 3);
|
||
|
||
int i, havepetelement;
|
||
for( i = 0; i < ENEMY_getEnemyNum(); i ++ ) {
|
||
if( ENEMY_getInt( i, ENEMY_ID) == enemyid) {
|
||
break;
|
||
}
|
||
}
|
||
if( i == ENEMY_getEnemyNum() ){
|
||
lua_pushinteger(L, -1);
|
||
return 1;
|
||
}
|
||
|
||
for( havepetelement = 0; havepetelement < CHAR_MAXPETHAVE; havepetelement ++ ){
|
||
int petindex = CHAR_getCharPet(index, havepetelement);
|
||
if( !CHAR_CHECKINDEX(petindex))break;
|
||
}
|
||
|
||
if( havepetelement == CHAR_MAXPETHAVE ){
|
||
lua_pushinteger(L, -1);
|
||
return 1;
|
||
}
|
||
|
||
int petindex = ENEMY_createPet( i, -1, -1, -1, -1 );
|
||
if( !CHAR_CHECKINDEX(petindex)){
|
||
lua_pushinteger(L, -1);
|
||
return 1;
|
||
}
|
||
|
||
for( i = CHAR_getInt( petindex, CHAR_LV ); i < UpLevel; i ++ ){
|
||
CHAR_PetLevelUp( petindex );
|
||
CHAR_PetAddVariableAi( petindex, AI_FIX_PETLEVELUP );
|
||
CHAR_setInt( petindex, CHAR_LV, CHAR_getInt( petindex, CHAR_LV) + 1 );
|
||
}
|
||
|
||
CHAR_setCharPet( index, havepetelement, petindex);
|
||
|
||
CHAR_setWorkInt( petindex, CHAR_WORKPLAYERINDEX, index);
|
||
|
||
char token[64];
|
||
CHAR_setInt(petindex,CHAR_VARIABLEAI,10000);
|
||
CHAR_complianceParameter( petindex );
|
||
CHAR_setInt( petindex, CHAR_HP, CHAR_getWorkInt( petindex, CHAR_WORKMAXHP ));
|
||
|
||
snprintf( token, sizeof( token ), "K%d", havepetelement );
|
||
CHAR_sendStatusString( index, token );
|
||
snprintf( token, sizeof( token ), "W%d", havepetelement );
|
||
CHAR_sendStatusString( index, token );
|
||
|
||
LogPet(
|
||
CHAR_getChar( index, CHAR_NAME ),
|
||
CHAR_getChar( index, CHAR_CDKEY ),
|
||
CHAR_getChar( petindex, CHAR_NAME),
|
||
CHAR_getInt( petindex, CHAR_LV),
|
||
"来至LUA的char.AddPet",
|
||
CHAR_getInt( index,CHAR_FLOOR),
|
||
CHAR_getInt( index,CHAR_X ),
|
||
CHAR_getInt( index,CHAR_Y ),
|
||
CHAR_getChar( petindex, CHAR_UNIQUECODE) // shan 2001/12/14
|
||
);
|
||
|
||
lua_pushinteger(L, petindex);
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int AddPetCf(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int enemyid = luaL_checkint(L, 2);
|
||
const int UpLevel = luaL_checkint(L, 3);
|
||
const int trn = luaL_checkint(L, 4);
|
||
const int vital = luaL_checkint(L, 5);
|
||
const int str = luaL_checkint(L, 6);
|
||
const int tgh = luaL_checkint(L, 7);
|
||
const int dex = luaL_checkint(L, 8);
|
||
|
||
int i, havepetelement;
|
||
for( i = 0; i < ENEMY_getEnemyNum(); i ++ ) {
|
||
if( ENEMY_getInt( i, ENEMY_ID) == enemyid) {
|
||
break;
|
||
}
|
||
}
|
||
if( i == ENEMY_getEnemyNum() ){
|
||
lua_pushinteger(L, -1);
|
||
return 1;
|
||
}
|
||
|
||
for( havepetelement = 0; havepetelement < CHAR_MAXPETHAVE; havepetelement ++ ){
|
||
int petindex = CHAR_getCharPet(index, havepetelement);
|
||
if( !CHAR_CHECKINDEX(petindex))break;
|
||
}
|
||
|
||
if( havepetelement == CHAR_MAXPETHAVE ){
|
||
lua_pushinteger(L, -1);
|
||
return 1;
|
||
}
|
||
|
||
int petindex = ENEMY_createPet( i, vital, str, tgh, dex );
|
||
if( !CHAR_CHECKINDEX(petindex)){
|
||
lua_pushinteger(L, -1);
|
||
return 1;
|
||
}
|
||
|
||
for( i = CHAR_getInt( petindex, CHAR_LV ); i < UpLevel; i ++ ){
|
||
CHAR_PetLevelUp( petindex );
|
||
CHAR_PetAddVariableAi( petindex, AI_FIX_PETLEVELUP );
|
||
CHAR_setInt( petindex, CHAR_LV, CHAR_getInt( petindex, CHAR_LV) + 1 );
|
||
|
||
}
|
||
CHAR_setInt( petindex, CHAR_TRANSMIGRATION, trn );
|
||
|
||
CHAR_setCharPet( index, havepetelement, petindex);
|
||
|
||
// CHAR_setChar( petindex, CHAR_OWNERCDKEY, CHAR_getChar( index, CHAR_CDKEY));
|
||
// CHAR_setChar( petindex, CHAR_OWNERCHARANAME, CHAR_getChar( index, CHAR_NAME));
|
||
|
||
CHAR_setWorkInt( petindex, CHAR_WORKPLAYERINDEX, index);
|
||
|
||
char token[64];
|
||
|
||
CHAR_setInt(petindex,CHAR_VARIABLEAI,10000);
|
||
CHAR_complianceParameter( petindex );
|
||
|
||
CHAR_setInt( petindex, CHAR_HP, CHAR_getWorkInt( petindex, CHAR_WORKMAXHP ));
|
||
|
||
snprintf( token, sizeof( token ), "K%d", havepetelement );
|
||
CHAR_sendStatusString( index, token );
|
||
snprintf( token, sizeof( token ), "W%d", havepetelement );
|
||
CHAR_sendStatusString( index, token );
|
||
|
||
LogPet(
|
||
CHAR_getChar( index, CHAR_NAME ),
|
||
CHAR_getChar( index, CHAR_CDKEY ),
|
||
CHAR_getChar( petindex, CHAR_NAME),
|
||
CHAR_getInt( petindex, CHAR_LV),
|
||
"来至LUA的char.AddPetCf",
|
||
CHAR_getInt( index,CHAR_FLOOR),
|
||
CHAR_getInt( index,CHAR_X ),
|
||
CHAR_getInt( index,CHAR_Y ),
|
||
CHAR_getChar( petindex, CHAR_UNIQUECODE) // shan 2001/12/14
|
||
);
|
||
|
||
lua_pushinteger(L, petindex);
|
||
|
||
return 1;
|
||
}
|
||
|
||
#ifdef _PLAYER_NPC
|
||
static int setPlayerNpc(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int petindex = luaL_checkint(L, 2);
|
||
int i;
|
||
for( i = 1; i < CHAR_PARTYMAX; i ++ ) {
|
||
if( CHAR_getWorkInt( charaindex, i + CHAR_WORKPARTYINDEX1) == -1 ) {
|
||
break;
|
||
}
|
||
}
|
||
if(i == CHAR_PARTYMAX){
|
||
CHAR_endCharOneArray( petindex );
|
||
}else{
|
||
if(CHAR_CHECKINDEX(petindex) == TRUE){
|
||
Object object;
|
||
int objindex;
|
||
|
||
CHAR_setInt(petindex, CHAR_FLOOR, CHAR_getInt(charaindex, CHAR_FLOOR));
|
||
CHAR_setInt(petindex, CHAR_X, CHAR_getInt(charaindex, CHAR_X));
|
||
CHAR_setInt(petindex, CHAR_Y, CHAR_getInt(charaindex, CHAR_Y));
|
||
|
||
object.type = OBJTYPE_CHARA;
|
||
object.index = petindex;
|
||
object.x =CHAR_getInt(petindex, CHAR_X);
|
||
object.y = CHAR_getInt(petindex, CHAR_Y);
|
||
object.floor = CHAR_getInt(petindex, CHAR_FLOOR);
|
||
|
||
objindex = initObjectOne( &object );
|
||
|
||
if( objindex == -1 ) {
|
||
CHAR_endCharOneArray( petindex );
|
||
} else {
|
||
CHAR_setWorkInt( petindex,CHAR_WORKOBJINDEX, objindex );
|
||
if(CHAR_JoinParty_Main(petindex, charaindex) == FALSE){
|
||
CHAR_CharaDelete( petindex );
|
||
return 1;
|
||
}
|
||
|
||
CHAR_sendCToArroundCharacter( objindex);
|
||
}
|
||
}
|
||
}
|
||
return 1;
|
||
}
|
||
#endif
|
||
#endif
|
||
#ifdef _PETSKILL_SHOP_LUA
|
||
static int FreePetSkill(lua_State *L)
|
||
{
|
||
const int petindex = luaL_checkint(L, 1);
|
||
const int petskill = luaL_checkint(L, 2);
|
||
|
||
int i;
|
||
for( i=0; i < CHAR_MAXPETSKILLHAVE; i++) {
|
||
if( petskill == CHAR_getPetSkill( petindex, i) ) {
|
||
lua_pushinteger(L, 1);
|
||
return 1;
|
||
}
|
||
}
|
||
lua_pushinteger(L, 0);
|
||
return 1;
|
||
}
|
||
#endif
|
||
|
||
static int Coordinate(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
if( CHAR_getWorkInt( index, CHAR_WORKBATTLEMODE ) != BATTLE_CHARMODE_NONE ) return 0;
|
||
|
||
const int X = luaL_checkint(L, 2);
|
||
const int Y = luaL_checkint(L, 3);
|
||
|
||
POINT start, end;
|
||
|
||
start.x = CHAR_getInt( index, CHAR_X);
|
||
start.y = CHAR_getInt( index, CHAR_Y);
|
||
|
||
end.x = X;
|
||
end.y = Y;
|
||
|
||
int dir = NPC_Util_getDirFromTwoPoint( &start, &end);
|
||
|
||
if( dir != - 1 ) {
|
||
CHAR_walk( index, dir, 0);
|
||
}
|
||
return 1;
|
||
}
|
||
|
||
static int setPetSkill(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int havepetskillindex = luaL_checkint(L, 2);
|
||
const int skillID = luaL_checkint(L, 3);
|
||
|
||
CHAR_setPetSkill( index, havepetskillindex, skillID);
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int getPetSkill(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int havepetskillindex = luaL_checkint(L, 2);
|
||
|
||
lua_pushinteger(L, CHAR_getPetSkill( index, havepetskillindex));
|
||
|
||
return 1;
|
||
}
|
||
|
||
|
||
static int PetLevelUp(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
|
||
CHAR_PetLevelUp( index );
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int JoinParty(lua_State *L)
|
||
{
|
||
const int index1 = luaL_checkint(L, 1);
|
||
const int index2 = luaL_checkint(L, 2);
|
||
|
||
CHAR_JoinParty_Main(index2, index1);
|
||
|
||
return 1;
|
||
}
|
||
|
||
#ifdef _ALLBLUES_LUA_1_4
|
||
static int getRightTo8(lua_State *L)
|
||
{
|
||
const int value = luaL_checkint(L, 1);
|
||
const int flg = luaL_checkint(L, 2);
|
||
|
||
lua_pushinteger(L, (value >> (4 - flg) * 8) & 0xFF);
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int getLiftTo8(lua_State *L)
|
||
{
|
||
const int value = luaL_checkint(L, 1);
|
||
const int flg = luaL_checkint(L, 2);
|
||
|
||
lua_pushinteger(L, (value << (4 - flg) * 8));
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int complianceParameter(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
|
||
CHAR_complianceParameter(index);
|
||
|
||
return 1;
|
||
}
|
||
|
||
|
||
static int sendStatusString(lua_State *L)
|
||
{
|
||
size_t l;
|
||
const int index = luaL_checkint(L, 1);
|
||
char *data=luaL_checklstring(L, 2, &l);
|
||
|
||
CHAR_sendStatusString( index, data );
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int sendBattleEffect(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int val = luaL_checkint(L, 2);
|
||
|
||
CHAR_sendBattleEffect( index, val );
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int sendWatchEvent(lua_State *L)
|
||
{
|
||
const int objindex = luaL_checkint(L, 1);
|
||
const int action = getCharBaseValue(L, 2, CharBaseAction, arraysizeof(CharBaseAction));
|
||
const int flg = luaL_checkint(L, 3);
|
||
|
||
luaL_checktype(L, 4, LUA_TTABLE);
|
||
int n = luaL_getn(L, 4);
|
||
int *opt = (int *) malloc(n * sizeof(int));
|
||
int i;
|
||
|
||
for(i = 0; i < n; i++){
|
||
opt[i] = getArrayInt(L, i);
|
||
}
|
||
|
||
CHAR_sendWatchEvent( objindex, action, opt, n, flg);
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int dropPetAbsolute(lua_State *L)
|
||
{
|
||
const int index = luaL_checkint(L, 1);
|
||
const int fl = luaL_checkint(L, 2);
|
||
const int fx = luaL_checkint(L, 3);
|
||
const int fy = luaL_checkint(L, 4);
|
||
const int dir = luaL_checkint(L, 5);
|
||
const int val = luaL_checkint(L, 6);
|
||
int dirx[9],diry[9];
|
||
int floor, x, y, i;
|
||
|
||
for( i = 0 ; i < 7 ; i ++ ){
|
||
dirx[i+2] = CHAR_getDX(dir + i+1);
|
||
diry[i+2] = CHAR_getDY(dir + i+1);
|
||
}
|
||
dirx[0] = CHAR_getDX(dir);
|
||
diry[0] = CHAR_getDY(dir);
|
||
dirx[1] = 0;
|
||
diry[1] = 0;
|
||
floor = fl;
|
||
for( i = 0 ; i < 9 ; i ++ ){
|
||
int x=fx+dirx[i];
|
||
int y=fy+diry[i];
|
||
if( PET_isPutPoint( floor, x, y ) == TRUE ) {
|
||
break;
|
||
}
|
||
}
|
||
if( i == 9 ) i = 1;
|
||
x = fx+dirx[i];
|
||
y = fy+diry[i];
|
||
|
||
int objindex = PET_dropPetAbsolute( index, floor, x, y, val );
|
||
|
||
if( objindex == -1 ){
|
||
return 1;
|
||
}
|
||
|
||
CHAR_setWorkInt( index, CHAR_WORKOBJINDEX, objindex );
|
||
CHAR_setInt( index, CHAR_FLOOR, floor);
|
||
CHAR_setInt( index, CHAR_X, x);
|
||
CHAR_setInt( index, CHAR_Y, y);
|
||
CHAR_setInt( index, CHAR_PUTPETTIME, NowTime.tv_sec);
|
||
|
||
CHAR_sendCToArroundCharacter( objindex);
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int AllWarpToSpecificPoint(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int floor = luaL_checkint(L, 2);
|
||
const int x = luaL_checkint(L, 3);
|
||
const int y = luaL_checkint(L, 4);
|
||
|
||
if( CHAR_getWorkInt( charaindex, CHAR_WORKPARTYMODE ) == CHAR_PARTY_LEADER ){
|
||
int i;
|
||
for( i = 0; i < CHAR_PARTYMAX; i ++ ){
|
||
int subindex = CHAR_getWorkInt( charaindex, CHAR_WORKPARTYINDEX1+i );
|
||
if( CHAR_CHECKINDEX( subindex ) == FALSE ) continue;
|
||
CHAR_warpToSpecificPoint( subindex, floor, x, y );
|
||
ITEM_WarpDelErrorItem( subindex );
|
||
}
|
||
}else if( CHAR_getWorkInt( charaindex, CHAR_WORKPARTYMODE ) == CHAR_PARTY_CLIENT ){
|
||
CHAR_talkToCli(charaindex, -1, "队员无法使用。", CHAR_COLORYELLOW);
|
||
return FALSE;
|
||
}else if( CHAR_getWorkInt( charaindex, CHAR_WORKPARTYMODE ) == CHAR_PARTY_NONE ){
|
||
ITEM_WarpDelErrorItem( charaindex );
|
||
CHAR_warpToSpecificPoint( charaindex, floor, x, y );
|
||
}
|
||
|
||
|
||
return 1;
|
||
}
|
||
|
||
static int Findpet(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int petid = luaL_checkint(L, 2);
|
||
const int lv = luaL_checkint(L, 3);
|
||
int i;
|
||
|
||
for( i = 0; i < CHAR_MAXPETHAVE; i ++ ){
|
||
int petindex = CHAR_getCharPet( charaindex, i );
|
||
if(!CHAR_CHECKINDEX( petindex))continue;
|
||
if( CHAR_getInt(petindex, CHAR_PETID) == petid ){
|
||
if(lv > 0){
|
||
if( CHAR_getInt(petindex, CHAR_LV) != lv){
|
||
continue;
|
||
}
|
||
}
|
||
lua_pushinteger(L, petindex);
|
||
return 1;
|
||
}
|
||
}
|
||
|
||
lua_pushinteger(L, -1);
|
||
return 1;
|
||
}
|
||
|
||
static int FindPetFormMatemo(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int metamo = luaL_checkint(L, 2);
|
||
const int lv = luaL_checkint(L, 3);
|
||
int i;
|
||
|
||
for( i = 0; i < CHAR_MAXPETHAVE; i ++ ){
|
||
int petindex = CHAR_getCharPet( charaindex, i );
|
||
if(!CHAR_CHECKINDEX( petindex))continue;
|
||
if( CHAR_getInt(petindex, CHAR_BASEBASEIMAGENUMBER) == metamo ){
|
||
if(lv > 0){
|
||
if( CHAR_getInt(petindex, CHAR_LV) != lv){
|
||
continue;
|
||
}
|
||
}
|
||
lua_pushinteger(L, petindex);
|
||
return 1;
|
||
}
|
||
}
|
||
|
||
lua_pushinteger(L, -1);
|
||
return 1;
|
||
}
|
||
|
||
static int FindPetFormEnemyTempID(lua_State *L)
|
||
{
|
||
size_t l;
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
char *data=luaL_checklstring(L, 2, &l);
|
||
char token[64];
|
||
int enemytempid = -1, lv = 0;
|
||
int i;
|
||
|
||
if(getStringFromIndexWithDelim(data, "-", 1, token, sizeof(token)) == TRUE){
|
||
lv = atoi(token);
|
||
}else{
|
||
lua_pushinteger(L, -1);
|
||
}
|
||
|
||
if(getStringFromIndexWithDelim(data, "-", 2, token, sizeof(token)) == TRUE){
|
||
enemytempid = atoi(token);
|
||
}else{
|
||
lua_pushinteger(L, -1);
|
||
}
|
||
|
||
for( i = 0; i < CHAR_MAXPETHAVE; i ++ ){
|
||
int petindex = CHAR_getCharPet( charaindex, i );
|
||
if(!CHAR_CHECKINDEX( petindex))continue;
|
||
|
||
if( CHAR_getInt( petindex, CHAR_PETID) == enemytempid ){
|
||
if(lv > 0){
|
||
if( CHAR_getInt(petindex, CHAR_LV) != lv){
|
||
continue;
|
||
}
|
||
}
|
||
lua_pushinteger(L, petindex);
|
||
return 1;
|
||
}
|
||
}
|
||
|
||
lua_pushinteger(L, -1);
|
||
return 1;
|
||
}
|
||
|
||
static int DelPet(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int petindex = luaL_checkint(L, 2);
|
||
int i;
|
||
char category[12];
|
||
|
||
for( i = 0; i < CHAR_MAXPETHAVE; i ++ ){
|
||
if( petindex == CHAR_getCharPet( charaindex, i ) ){
|
||
if( CHAR_getInt( charaindex, CHAR_RIDEPET) == i ) {
|
||
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_endCharOneArray( petindex );
|
||
CHAR_setCharPet( charaindex, i, -1);
|
||
snprintf( category, sizeof( category), "K%d",i);
|
||
CHAR_sendStatusString( charaindex, category );
|
||
break;
|
||
}
|
||
}
|
||
return 1;
|
||
}
|
||
|
||
#endif
|
||
|
||
#ifdef _ALLBLUES_LUA_1_7
|
||
static int findEmptyItemBox(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
|
||
lua_pushinteger(L, CHAR_findEmptyItemBox(charaindex));
|
||
return 1;
|
||
}
|
||
|
||
static int findEmptyPetBox(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
int num = 0;
|
||
int i;
|
||
for( i = 0; i < CHAR_MAXPETHAVE; i ++ ){
|
||
int petindex = CHAR_getCharPet( charaindex, i );
|
||
if(!CHAR_CHECKINDEX(petindex)){
|
||
num ++ ;
|
||
}
|
||
}
|
||
lua_pushinteger(L, num);
|
||
return 1;
|
||
}
|
||
|
||
static int dropPetFollow(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int havepetindex = luaL_checkint(L, 2);
|
||
char szPet[128];
|
||
int dirx[9],diry[9];
|
||
int i;
|
||
int objindex=-1;
|
||
int floor,x,y;
|
||
int petindex;
|
||
|
||
if( CHAR_getWorkInt( charaindex, CHAR_WORKBATTLEMODE)
|
||
!= BATTLE_CHARMODE_NONE) return FALSE;
|
||
petindex = CHAR_getCharPet(charaindex,havepetindex);
|
||
if( petindex == -1 ) return FALSE;
|
||
if( !CHAR_CHECKINDEX( charaindex ) )return FALSE;
|
||
if( CHAR_CHECKINDEX( petindex) == FALSE ) return FALSE;
|
||
|
||
if (CHAR_getInt(petindex, CHAR_PETFAMILY) == 1){
|
||
CHAR_talkToCli(charaindex, -1, "家族守护兽无法丢出！", CHAR_COLORYELLOW);
|
||
return FALSE;
|
||
}
|
||
if (CHAR_getInt(charaindex, CHAR_RIDEPET) == havepetindex){
|
||
CHAR_talkToCli(charaindex, -1, "骑乘中的宠物无法跟随！", CHAR_COLORYELLOW);
|
||
return FALSE;
|
||
}
|
||
|
||
for( i = 0 ; i < 7 ; i ++ ){
|
||
dirx[i+2] = CHAR_getDX(CHAR_getInt(charaindex,CHAR_DIR) + i+1);
|
||
diry[i+2] = CHAR_getDY(CHAR_getInt(charaindex,CHAR_DIR) + i+1);
|
||
}
|
||
dirx[0] = CHAR_getDX(CHAR_getInt(charaindex,CHAR_DIR));
|
||
diry[0] = CHAR_getDY(CHAR_getInt(charaindex,CHAR_DIR));
|
||
dirx[1] = 0;
|
||
diry[1] = 0;
|
||
|
||
floor = CHAR_getInt( charaindex,CHAR_FLOOR );
|
||
for( i = 0 ; i < 9 ; i ++ ){
|
||
int x=CHAR_getInt(charaindex,CHAR_X)+dirx[i];
|
||
int y=CHAR_getInt(charaindex,CHAR_Y)+diry[i];
|
||
if( PET_isPutPoint( floor, x, y ) == TRUE ) {
|
||
break;
|
||
}
|
||
}
|
||
if( i == 9 ) i = 1;
|
||
|
||
x=CHAR_getInt(charaindex,CHAR_X)+dirx[i];
|
||
y=CHAR_getInt(charaindex,CHAR_Y)+diry[i];
|
||
|
||
objindex = PET_dropPetAbsolute( petindex,floor,x,y, FALSE );
|
||
if( objindex == -1 ) return FALSE;
|
||
|
||
CHAR_setWorkInt( petindex,CHAR_WORKOBJINDEX,objindex );
|
||
CHAR_setCharPet( charaindex, havepetindex, -1);
|
||
CHAR_setInt( petindex, CHAR_FLOOR, floor);
|
||
CHAR_setInt( petindex, CHAR_X, x);
|
||
CHAR_setInt( petindex, CHAR_Y, y);
|
||
CHAR_setInt( petindex, CHAR_PUTPETTIME, NowTime.tv_sec);
|
||
if( havepetindex == CHAR_getInt( charaindex, CHAR_DEFAULTPET)) {
|
||
int fd;
|
||
CHAR_setInt( charaindex, CHAR_DEFAULTPET, -1);
|
||
fd = getfdFromCharaIndex( charaindex);
|
||
lssproto_KS_send( fd, havepetindex, 0);
|
||
|
||
}
|
||
CHAR_sendCToArroundCharacter( objindex);
|
||
if( CHAR_getInt( charaindex, CHAR_WHICHTYPE) == CHAR_TYPEPLAYER){
|
||
#ifdef _PET_ITEM
|
||
CHAR_sendPetItemData( charaindex, havepetindex);
|
||
#endif
|
||
snprintf( szPet, sizeof( szPet ), "K%d", havepetindex );
|
||
CHAR_sendStatusString( charaindex, szPet );
|
||
}
|
||
|
||
CHAR_setWorkInt( charaindex, CHAR_WORKPETFOLLOW, petindex);
|
||
CHAR_setWorkInt( petindex, CHAR_WORKPETFOLLOWMODE, CHAR_PETFOLLOW_NOW);
|
||
CHAR_setWorkInt( petindex, CHAR_WORKPETFOLLOWCOUNT, 0);
|
||
CHAR_setInt( petindex, CHAR_PUTPETTIME, (int)(NowTime.tv_sec));
|
||
CHAR_setInt( petindex, CHAR_WORKPLAYERINDEX, charaindex);
|
||
LogPet(
|
||
CHAR_getChar( charaindex, CHAR_NAME ),
|
||
CHAR_getChar( charaindex, CHAR_CDKEY ),
|
||
CHAR_getChar( petindex, CHAR_NAME),
|
||
CHAR_getInt( petindex, CHAR_LV),
|
||
"Follow(lua溜宠)",
|
||
CHAR_getInt( charaindex,CHAR_FLOOR),
|
||
CHAR_getInt( charaindex,CHAR_X ),
|
||
CHAR_getInt( charaindex,CHAR_Y ),
|
||
CHAR_getChar( petindex, CHAR_UNIQUECODE)
|
||
);
|
||
return 1;
|
||
}
|
||
|
||
static int getItemIndex(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int haveitemindex = luaL_checkint(L, 2);
|
||
|
||
lua_pushinteger(L, CHAR_getItemIndex( charaindex, haveitemindex ));
|
||
return 1;
|
||
|
||
}
|
||
|
||
static int charSaveFromConnect(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
if( CHAR_getCharUse(charaindex) != FALSE ){
|
||
CHAR_charSaveFromConnect( charaindex, FALSE );
|
||
}
|
||
return 1;
|
||
}
|
||
|
||
#ifdef _RECORD_IP
|
||
static int userip(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
|
||
unsigned long ip;
|
||
int a,b,c,d;
|
||
char strIP[32];
|
||
|
||
ip = CHAR_getWorkInt(charaindex, CHAR_WORK_RECORD_IP);
|
||
|
||
a=(ip % 0x100); ip=ip / 0x100;
|
||
b=(ip % 0x100); ip=ip / 0x100;
|
||
c=(ip % 0x100); ip=ip / 0x100;
|
||
d=(ip % 0x100);
|
||
|
||
sprintf(strIP, "%d.%d.%d.%d", a, b, c, d);
|
||
|
||
lua_pushstring(L, strIP);
|
||
return 1;
|
||
}
|
||
#endif
|
||
|
||
static int DischargeParty(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
const int flg = luaL_checkint(L, 2);
|
||
CHAR_DischargeParty(charaindex, flg);
|
||
return 1;
|
||
}
|
||
|
||
|
||
static int Skillupsend(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
|
||
CHAR_Skillupsend(charaindex);
|
||
return 1;
|
||
}
|
||
#endif
|
||
|
||
#ifdef _ALLBLUES_LUA_1_9
|
||
static int logou(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
|
||
CHAR_logout(charaindex, TRUE);
|
||
return 1;
|
||
}
|
||
#endif
|
||
//void CHAR_WXSYSCMD_setStayEncount(int charaindex, char* message )
|
||
#ifdef _ALLBLUES_LUA_2_0
|
||
static int Encounter(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
if(CHAR_CHECKINDEX(charaindex) == FALSE) return 0;
|
||
int fd=CHAR_getWorkInt( charaindex, CHAR_WORKFD);
|
||
setStayEncount(fd);
|
||
#ifdef _USER_CHARLOOPS
|
||
{
|
||
Char *ch;
|
||
ch = CHAR_getCharPointer( charaindex);
|
||
if( ch == NULL ) return;
|
||
strcpysafe( ch->charfunctable[CHAR_LOOPFUNCTEMP1].string,
|
||
sizeof( ch->charfunctable[CHAR_LOOPFUNCTEMP1]), "CHAR_BattleStayLoop");//战斗
|
||
CHAR_setInt( charaindex, CHAR_LOOPINTERVAL, 2500);
|
||
CHAR_constructFunctable( charaindex);
|
||
}
|
||
#endif
|
||
}
|
||
|
||
static int GetOldLevelExp(lua_State *L)
|
||
{
|
||
size_t l;
|
||
const int level = luaL_checkint(L, 1);
|
||
CHAR_GetOldLevelExp(level);
|
||
return 1;
|
||
}
|
||
#endif
|
||
#ifdef _AutoBattle_LUA
|
||
static int gcgc(lua_State *L)
|
||
{
|
||
const int charaindex = luaL_checkint(L, 1);
|
||
|
||
Enemy_setStayLoop(charaindex);
|
||
return 1;
|
||
}
|
||
#endif
|
||
|
||
#ifdef _FIX_PLAYER_NPC_PET
|
||
static int DelNpcPetByIndex(lua_State *L)
|
||
{
|
||
const int petindex = luaL_checkint(L, 1);
|
||
CHAR_endCharOneArray( petindex );
|
||
return 1;
|
||
}
|
||
|
||
#endif
|
||
|
||
static const luaL_Reg charlib[] = {
|
||
{"getCharNum", getCharNum},
|
||
{"getPlayerMaxNum", getPlayerMaxNum},
|
||
{"getPetMaxNum", getPetMaxNum},
|
||
{"getOthersMaxNum", getOthersMaxNum},
|
||
{"check", check},
|
||
{"setWorkChar", setWorkChar},
|
||
{"getWorkChar", getWorkChar},
|
||
{"setWorkInt", setWorkInt},
|
||
{"getWorkInt", getWorkInt},
|
||
{"setChar", setChar},
|
||
{"getChar", getChar},
|
||
{"setInt", setInt},
|
||
{"getInt", getInt},
|
||
{"setFlg", setFlg},
|
||
{"getFlg", getFlg},
|
||
{"setFunctionPointer", setFunctionPointer},
|
||
{"delFunctionPointer", delFunctionPointer},
|
||
{"TalkToCli", TalkToCli},
|
||
{"TalkToRound", TalkToRound},
|
||
{"talkToFloor", talkToFloor},
|
||
{"talkToParty", talkToParty},
|
||
{"talkToServer", talkToServer},
|
||
{"BoundRandWalk", BoundRandWalk},
|
||
{"ToAroundChar", ToAroundChar},
|
||
#ifdef _ALLBLUES_LUA_1_1
|
||
{"Walk", Walk},
|
||
{"WalkPoint", WalkPoint},
|
||
{"WarpToSpecificPoint", WarpToSpecificPoint},
|
||
{"MapAllWarp", MapAllWarp},
|
||
{"RandRandWalk", RandRandWalk},
|
||
#endif
|
||
#ifdef _ALLBLUES_LUA_1_3
|
||
{"createPet", createPet},
|
||
{"setCharPet", setCharPet},
|
||
{"getCharPet", getCharPet},
|
||
{"DelItem", DelItem},
|
||
{"getFd", getFd},
|
||
{"Updata", Updata},
|
||
{"Additem", Additem},
|
||
{"AddPet", AddPet},
|
||
{"Finditem", Finditem},
|
||
#ifdef _PLAYER_NPC
|
||
{"setPlayerNpc", setPlayerNpc},
|
||
#endif
|
||
{"Coordinate", Coordinate},
|
||
{"setPetSkill", setPetSkill},
|
||
{"getPetSkill", getPetSkill},
|
||
{"PetLevelUp", PetLevelUp},
|
||
{"JoinParty", JoinParty},
|
||
#endif
|
||
#ifdef _ALLBLUES_LUA_1_4
|
||
{"getLiftTo8", getLiftTo8},
|
||
{"getRightTo8", getRightTo8},
|
||
{"complianceParameter", complianceParameter},
|
||
{"sendStatusString", sendStatusString},
|
||
{"sendBattleEffect", sendBattleEffect},
|
||
{"dropPetAbsolute", dropPetAbsolute},
|
||
{"AddPetCf", AddPetCf},
|
||
{"sendWatchEvent", sendWatchEvent},
|
||
{"AllWarpToSpecificPoint",AllWarpToSpecificPoint},
|
||
{"Findpet", Findpet},
|
||
{"DelPet", DelPet},
|
||
{"FindPetFormEnemyTempID",FindPetFormEnemyTempID},
|
||
{"FindPetFormMatemo", FindPetFormMatemo},
|
||
#endif
|
||
#ifdef _PETSKILL_SHOP_LUA
|
||
{"FreePetSkill", FreePetSkill},
|
||
#endif
|
||
#ifdef _ALLBLUES_LUA_1_7
|
||
{"findEmptyPetBox", findEmptyPetBox},
|
||
{"findEmptyItemBox", findEmptyItemBox},
|
||
{"dropPetFollow", dropPetFollow},
|
||
{"getItemIndex", getItemIndex},
|
||
{"charSaveFromConnect", charSaveFromConnect},
|
||
{"DischargeParty", DischargeParty},
|
||
{"Skillupsend", Skillupsend},
|
||
#ifdef _RECORD_IP
|
||
{"userip", userip},
|
||
#endif
|
||
#endif
|
||
#ifdef _ALLBLUES_LUA_1_9
|
||
{"logou", logou},
|
||
#endif
|
||
#ifdef _ALLBLUES_LUA_2_0
|
||
{"Encounter", Encounter},
|
||
{"GetOldLevelExp", GetOldLevelExp},
|
||
#endif
|
||
#ifdef _AutoBattle_LUA
|
||
{"gcgc", gcgc},
|
||
#endif
|
||
#ifdef _FIX_PLAYER_NPC_PET
|
||
{"DelNpcPetByIndex", DelNpcPetByIndex},
|
||
#endif
|
||
{NULL, NULL}
|
||
};
|
||
|
||
LUALIB_API int luaopen_Char (lua_State *L) {
|
||
luaL_register(L, "char", charlib);
|
||
return 1;
|
||
}
|
||
|
||
#endif
|