设为首页收藏本站我的广告
切换到宽版

石器时代LA官方

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
石器时代LA官方»石器时代论坛 › 石器时代技术 › 石器LUA区 › 石器时代LNS野外游走BOSS_LUA脚本
返回列表 发新帖
查看: 8487|回复: 0

[吉仔LNS] 石器时代LNS野外游走BOSS_LUA脚本

[复制链接]
shiqila

1万

主题

491

回帖

3万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
35549
石币
24710
发表于 2013-8-12 10:12:07 | 显示全部楼层 |阅读模式
石器时代LNS野外游走BOSS_LUA脚本
  1. function WalkingBoss_Init( _MeIndex )
  2.         --战斗索引全域变数
  3.         iBattle[_MeIndex] = 0;
  4.          --初始位置全域变数
  5.         iX[_MeIndex] = 0;
  6.         iY[_MeIndex] = 0;
  7.         Timer[_MeIndex] = 1;

  9.         --设置踩踏回应事件
  10.         if (Char.SetPostOverEvent(nil, "WalkingBoss_Covered", _MeIndex) < 0) then
  11.                 print("WalkingBoss_Covered注册事件失败。");
  12.                 return false;
  13.         end

  15.         if (Char.SetPreOverEvent(nil, "WalkingBoss_Covered", _MeIndex) < 0) then
  16.                 print("WalkingBoss_Covered注册事件失败。");
  17.                 return false;
  18.         end
  19.         --设置对话回应事件
  20.         if (Char.SetTalkedEvent(nil, "WalkingBoss_Talked", _MeIndex) < 0) then
  21.                 print("WalkingBoss_Talked注册事件失败。");
  22.                 return false;
  23.         end
  24.         --设置回圈事件
  25.         if (Char.SetLoopEvent(nil, "WalkingBoss_Walk", _MeIndex,1000) < 0) then
  26.                 print("WalkingBoss_Walk注册事件失败。");
  27.                 return false;
  28.         end
  29.         --更新
  30.         NLG.UpChar(_MeIndex);
  31.         return true;
  32. end

  34. function WalkingBoss_Walk( _MeIndex)

  36.         --设置动作为走路
  37.         local walk = 1;
  38.         NLG.SetAction(_MeIndex,walk);
  39.         --随机よ
  40.         local TM_DIR = math.floor(math.random(0, 7));
  41.         --限定范围
  42.         if ( Char.GetData( _MeIndex, %对象_X%) >= iX[_MeIndex]+math.floor(math.random(3, 7))) then
  43.                 TM_DIR = 6;
  44.         elseif ( Char.GetData( _MeIndex, %对象_X%) <= iX[_MeIndex]-math.floor(math.random(3, 7))) then
  45.                 TM_DIR = 2;
  46.         elseif ( Char.GetData( _MeIndex, %对象_Y%) <= iY[_MeIndex]-math.floor(math.random(3, 7))) then
  47.                 TM_DIR = 4;
  48.         elseif ( Char.GetData( _MeIndex, %对象_Y%) >= iY[_MeIndex]+math.floor(math.random(3, 7))) then
  49.                 TM_DIR = 0;
  50.         end
  51.         --走路
  52.         if(NLG.WalkMove(_MeIndex,TM_DIR) ~= 0) then
  53.                 NLG.WalkMove(_MeIndex,math.floor(math.random(0, 7)));
  54.         end
  55.         --设置よ
  56.         NLG.CharLook(_MeIndex,TM_DIR);
  57.         if Timer[_MeIndex] <= 300 then
  58.                 Timer[_MeIndex] = Timer[_MeIndex] + 1;
  59.         else
  60.                 local TM_Buff = "[全服通告]" .. Char.GetData(_MeIndex,%对象_原名%) .."在"..TM_MapName[iRdSlMap[_MeIndex]].."作乱，坐标为"..Char.GetData(_MeIndex,%对象_X%)..","..Char.GetData(_MeIndex,%对象_Y%).."。";
  61.                 NLG.TalkToCli(-1, TM_Buff, %红色%, 0, -1);
  62.                 Timer[_MeIndex] = 1;
  63.         end
  64.         return ;
  65. end

  67. function WalkingBoss_Covered( _MeIndex, _PlayerIndex )
  68. --判断踩中了什么
  69.         if( Char.GetData(_PlayerIndex,%对象_脸%) == 0)then
  70.                 return;
  71.         else
  72.                 --设置站立动作
  73.                 NLG.SetAction(_MeIndex,0);
  74.                 NLG.TalkToCli(_PlayerIndex, "呼噜呼噜呼噜噜…………", %黄色%, 0, _MeIndex)

  76.                  --敌人阵列信息
  77.                 local TM_EnemyIdAr = iBossList;

  79.                 local TMP_level = iBossRs[_MeIndex][1];
  80.                 local TMP_slt = iBossRs[_MeIndex][2];

  82.                 --保存战斗索引
  83.                 iBattle[_MeIndex] = NLG.CreateBattle( _PlayerIndex, _MeIndex, nil, TM_EnemyIdAr[TMP_level][TMP_slt]);

  85.                 --设置战斗胜利事件
  86.                 Battle.SetWinEvent("data/npc/lua/walkingboss/walkingboss.lua","WalkingBoss_BattleOver",iBattle[_MeIndex]);
  87.                 --取消踩踏回应事件
  88.                 Char.SetPreOverEvent(nil, nil, _MeIndex);
  89.                 Char.SetPostOverEvent(nil, nil, _MeIndex);
  90.                 --取消对话回应事件并设置新对话回应事件
  91.                 Char.SetTalkedEvent(nil, nil, _MeIndex);
  92.                 Char.SetTalkedEvent(nil, "WalkingBoss_Talked2", _MeIndex);
  93.                 --取消回圈事件并设置新回圈事件(用作检查战斗是否结束)
  94.                 Char.SetLoopEvent(nil, nil, _MeIndex,100);
  95.                 Char.SetLoopEvent(nil, "WalkingBoss_Check", _MeIndex,500);
  96.                 --更新
  97.                 NLG.UpChar(_MeIndex);
  98.         end
  99.         return ;

  101. end

  103. function WalkingBoss_BattleOver( _BattleIndex, _CreateIndex)
  104.         --取消检查战斗是否结束的回圈事件
  105.         Char.SetLoopEvent(nil, nil, _CreateIndex,1000);
  106.         --减少统计只数
  107.         iCounter = iCounter - 1;
  108.         local PlayerIndex = {-1,-1,-1,-1,-1};
  109.         local count = 1;

  111.         local i = 0;

  113.         local TMP_level = iBossRs[_CreateIndex][1];

  115.         local Tmp_Int;
  116.         --获得战斗中的玩家索引
  117.         while (count < 6) do
  118.                 PlayerIndex[count] = Battle.GetPlayIndex(_BattleIndex,0,count-1);
  119.                 if(PlayerIndex[count] >= 0) then
  120.                 randoma=math.floor(math.random(1, 5000))
  121.                 randomb=math.floor(math.random(1, 100))
  122.                 if(randoma == 3888)then
  123.                 iPrizeList[TMP_level]={22624,22624,22624,22624,22624,22624,22624,22624};
  124.                 end
  125.                 if(randoma == 1666)then
  126.                 iPrizeList[TMP_level]={22624,22624,22624,22624,22624,22624,22624,22624};
  127.                 end
  128.                 if(randomb == 30)then
  129.                 iPrizeList[TMP_level]={22624,22624,22624,22624,22624,22624,22624,22624};
  130.                 end
  131.                         i = i + 1;
  132.                         Tmp_Int = math.floor(math.random(1,8))
  133.                         if( iPrizeList[TMP_level][Tmp_Int] >= 0) then
  134.                                 if(NLG.GiveItem( PlayerIndex[count] , iPrizeList[TMP_level][Tmp_Int]) <= 0)then
  135.                                          NLG.TalkToCli(PlayerIndex[count], "道具栏位不足!", %黄色%, 0, -1);
  136.                                 end
  137.                          end
  138.                         NLG.TalkToCli(PlayerIndex[count], "呼噜噜噜噜噜…………(似乎是打输了很不甘愿的样子…)", %黄色%, 0, _CreateIndex);
  139.                 else
  140.                         print(NL.GetErrorStr());
  141.                 end
  142.                 count = count + 1 ;
  143.         end
  144.         --删除NPC
  145.         local Tmp_Buff;
  146.         if( i == 1) then
  147.                 Tmp_Buff = "[全服通告]≮勇士≯"..Char.GetData(PlayerIndex[1],%对象_原名%).."打倒了"..Char.GetData(_CreateIndex, %对象_原名%).. ",还有暴走的宠物"..iCounter.."个。";
  148.                 NLG.TalkToCli(-1,Tmp_Buff , %绿色%, 0, -1);
  149.         elseif( i == 2) then
  150.                 Tmp_Buff = "[全服通告]≮勇士≯"..Char.GetData(PlayerIndex[1],%对象_原名%).."、"..Char.GetData(PlayerIndex[2],%对象_原名%) .."打倒了"..Char.GetData(_CreateIndex, %对象_原名%).. ",还有暴走的宠物"..iCounter.."个。";
  151.                 NLG.TalkToCli(-1,Tmp_Buff , %红色%, 0, -1);
  152.         elseif( i == 3) then
  153.                 Tmp_Buff = "[全服通告]≮勇士≯"..Char.GetData(PlayerIndex[1],%对象_原名%).."、"..Char.GetData(PlayerIndex[2],%对象_原名%) .."、"..Char.GetData(PlayerIndex[3],%对象_原名%).."打倒了"..Char.GetData(_CreateIndex, %对象_原名%).. ",还有暴走的宠物"..iCounter.."个。";

  155.                  NLG.TalkToCli(-1, Tmp_Buff, %红色%, 0, -1);
  156.         elseif( i == 4) then
  157.                 Tmp_Buff = "[全服通告]≮勇士≯"..Char.GetData(PlayerIndex[1],%对象_原名%).."、"..Char.GetData(PlayerIndex[2],%对象_原名%) .."、"..Char.GetData(PlayerIndex[3],%对象_原名%).."、"..Char.GetData(PlayerIndex[4],%对象_原名%).."打倒了"..Char.GetData(_CreateIndex, %对象_原名%).. ",还有暴走的宠物"..iCounter.."个。";
  158.                 NLG.TalkToCli(-1, Tmp_Buff, %红色%, 0, -1);
  159.         elseif( i == 5) then
  160.                 Tmp_Buff = "[全服通告]≮勇士≯"..Char.GetData(PlayerIndex[1],%对象_原名%).."、"..Char.GetData(PlayerIndex[2],%对象_原名%) .."、"..Char.GetData(PlayerIndex[3],%对象_原名%).."、"..Char.GetData(PlayerIndex[4],%对象_原名%).."、 "..Char.GetData(PlayerIndex[5],%对象_原名%).."打倒了"..Char.GetData(_CreateIndex, %对象_原名%).. ",还有暴走的宠物"..iCounter.."个。";

  162.                 NLG.TalkToCli(-1, Tmp_Buff, %红色%, 0, -1);
  163.         end
  164.         NL.DelNpc(_CreateIndex);
  165.         return;
  166. end

  168. function WalkingBoss_Talked( _MeIndex, _PlayerIndex, _Msg, _Color, _Channel)
  169.         --检查玩家是否站在NPC面前
  170.         if(NLG.CheckInFront(_PlayerIndex, _MeIndex, 2) == false) then
  171.                 return ;
  172.         end
  173.         --面向玩家
  174.         local i;
  175.         i = Char.GetData(_PlayerIndex, %对象_方向%);
  176.         if i >= 4 then
  177.                 i = i - 4;
  178.         else
  179.                 i = i + 4;
  180.         end
  181.         Char.SetData(_MeIndex, %对象_方向%,i);
  182.         NLG.UpChar( _MeIndex);

  184.         --设置站立动作
  185.         NLG.SetAction(_MeIndex,0);
  186.         NLG.TalkToCli(_PlayerIndex, "呼噜呼噜噜…………", %黄色%, 0, _MeIndex);

  188.          --敌人阵列信息
  189.         local TM_EnemyIdAr = iBossList;

  191.         local TMP_level = iBossRs[_MeIndex][1];
  192.         local TMP_slt = iBossRs[_MeIndex][2];
  193.         --保存战斗索引
  194.         iBattle[_MeIndex] = NLG.CreateBattle( _PlayerIndex, _MeIndex, nil, TM_EnemyIdAr[TMP_level][TMP_slt]);

  196.         --设置战斗胜利事件
  197.         Battle.SetWinEvent("data/npc/lua/walkingboss/walkingboss.lua","WalkingBoss_BattleOver",iBattle[_MeIndex]);
  198.         --取消踩踏回应事件
  199.         Char.SetPreOverEvent(nil, nil, _MeIndex);
  200.         Char.SetPostOverEvent(nil, nil, _MeIndex);
  201.         --取消对话回应事件并设置新对话回应事件
  202.         Char.SetTalkedEvent(nil, nil, _MeIndex);
  203.         Char.SetTalkedEvent(nil, "WalkingBoss_Talked2", _MeIndex);
  204.         --取消回圈事件并设置新回圈事件(用作检查战斗是否结束)
  205.         Char.SetLoopEvent(nil, nil, _MeIndex,100);
  206.         Char.SetLoopEvent(nil, "WalkingBoss_Check", _MeIndex,500);
  207.         --更新
  208.         NLG.UpChar(_MeIndex);
  209.         return;
  210. end

  212. function WalkingBoss_Talked2( _MeIndex, _PlayerIndex, _Msg, _Color, _Channel)
  213.         --检查玩家是否站在NPC面前
  214.         if(NLG.CheckInFront(_PlayerIndex, _MeIndex, 1) == false) then
  215.                 return ;
  216.         end
  217.         --正在战斗中的对话事件
  218.         NLG.TalkToCli(_PlayerIndex, "呼噜噜噜～～～！", %黄色%, 0, _MeIndex);
  219.         NLG.TalkToCli(_PlayerIndex, Char.GetData( _PlayerIndex,%对象_原名%) .. "：(似乎已经有人在战斗了，我想我还是去看看有没有其他的宠物在作乱吧。)", _Color, 0);
  220.         return ;
  221. end

  223. function WalkingBoss_Check( _MeIndex)
  224.         --此为检查战斗是否结束的函数
  225.         -- print("ING");
  226.         local PlayerIndex = {-1,-1,-1,-1,-1};
  227.         local count = 1;
  228.         --获取战斗中玩家索引
  229.         while (count < 6) do
  230.                  PlayerIndex[count] = Battle.GetPlayIndex(iBattle[_MeIndex],0,count-1);
  231.                 count = count + 1 ;
  232.         end
  233.          --如玩家索引不全为零则战斗尚未结束
  234.         --否则判定战斗结束
  235.         --因为如果战斗胜利
  236.         --战斗胜利事件中取消了此回圈事件
  237.         --所以在此可判定战斗失败
  238.         if(PlayerIndex[1] ~=-1 or PlayerIndex[2] ~=-1 or PlayerIndex[3] ~=-1 or PlayerIndex[4] ~=-1 or PlayerIndex[5] ~=-1) then
  239.                    --战斗中
  240.                 return;
  241.         else
  242.                 --战斗失败重设踩踏回应事件
  243.                 Char.SetPreOverEvent(nil, nil, _MeIndex);
  244.                 Char.SetPreOverEvent(nil, "WalkingBoss_Covered", _MeIndex);
  245.                 Char.SetPostOverEvent(nil, nil, _MeIndex);
  246.                 Char.SetPostOverEvent(nil, "WalkingBoss_Covered", _MeIndex);
  247.                 --战斗失败重设对话回应事件
  248.                 Char.SetTalkedEvent(nil, nil, _MeIndex);
  249.                 Char.SetTalkedEvent(nil, "WalkingBoss_Talked", _MeIndex);
  250.                 --战斗失败重设回圈事件
  251.                 Char.SetLoopEvent(nil, nil, _MeIndex,1500);
  252.                 Char.SetLoopEvent(nil, "WalkingBoss_Walk", _MeIndex,1000);
  253.                 --更新
  254.                 NLG.UpChar(_MeIndex);
  255.                 return;
  256.         end
  257. end
复制代码
石器时代

相关帖子
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|石器时代LA官方

GMT+8, 2024-5-5 16:07 , Processed in 0.106277 second(s), 25 queries .

Copyright © 2001-2023, Tencent Cloud.

快速回复 返回顶部 返回列表