开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 模拟服务器 > 查看源码
ObjectMonster.cpp
资源名称：LegendOfMir2_Server020418.zip　[点击查看]
上传用户：szopptop
上传日期：2013-04-23
资源大小：1047k
文件大小：59k
源码类别：

模拟服务器

开发平台：

Visual C++

ObjectMonster.cpp：源码内容
  1. #include "stdafx.h"
  3. BYTE g_SpitMap[8][5][5] = {
  4. { {0, 0, 1, 0, 0},     //DR_UP
  5. {0, 0, 1, 0, 0},
  6. {0, 0, 0, 0, 0},
  7. {0, 0, 0, 0, 0},
  8. {0, 0, 0, 0, 0} },
  10. { {0, 0, 0, 0, 1},     //DR_UPRIGHT
  11. {0, 0, 0, 1, 0},
  12. {0, 0, 0, 0, 0},
  13. {0, 0, 0, 0, 0},
  14. {0, 0, 0, 0, 0} },
  16. { {0, 0, 0, 0, 0},     //DR_RIGHT
  17. {0, 0, 0, 0, 0},
  18. {0, 0, 0, 1, 1},
  19. {0, 0, 0, 0, 0},
  20. {0, 0, 0, 0, 0} },
  22. { {0, 0, 0, 0, 0},     //DR_DOWNRIGHT
  23. {0, 0, 0, 0, 0},
  24. {0, 0, 0, 0, 0},
  25. {0, 0, 0, 1, 0},
  26. {0, 0, 0, 0, 1} },
  28. { {0, 0, 0, 0, 0},     //DR_DOWN
  29. {0, 0, 0, 0, 0},
  30. {0, 0, 0, 0, 0},
  31. {0, 0, 1, 0, 0},
  32. {0, 0, 1, 0, 0} },
  34. { {0, 0, 0, 0, 0},     //DR_DOWNLEFT
  35. {0, 0, 0, 0, 0},
  36. {0, 0, 0, 0, 0},
  37. {0, 1, 0, 0, 0},
  38. {1, 0, 0, 0, 0} },
  40. { {0, 0, 0, 0, 0},     //DR_LEFT
  41. {0, 0, 0, 0, 0},
  42. {1, 1, 0, 0, 0},
  43. {0, 0, 0, 0, 0},
  44. {0, 0, 0, 0, 0} },
  46. { {1, 0, 0, 0, 0},     //DR_UPLEFT
  47. {0, 1, 0, 0, 0},
  48. {0, 0, 0, 0, 0},
  49. {0, 0, 0, 0, 0},
  50. {0, 0, 0, 0, 0} }
  51. };
  53. CMonsterObject::CMonsterObject()
  54. {
  55. m_dwRunNextTick = 250;
  56. m_dwSearchTick = 3000 + rand() % 2000;
  58. m_nDirection = 4;
  60. m_pTargetObject = NULL;
  61. m_btTargetDir = 0;
  62. m_pExpHitterObject = NULL;
  64. m_dwHitTime = 0;
  66. m_fIsDead = FALSE;
  67. m_fHideMode = FALSE;
  69. m_btLight = 0;
  71. m_fDupMode = FALSE;
  72. m_fRunAwayMode = FALSE;
  73. m_fNoAttackMode = FALSE;
  74. m_fHasMission = FALSE;
  75. m_fBoHolySeize = FALSE;
  77. m_dwSearchEnemyTime = GetTickCount();
  78. m_dwThinkTime = GetTickCount();
  80. m_wObjectType = _OBJECT_MONSTER;
  82. m_btAntiMagic = 0;
  84. m_dwGold = 0;
  85. }
  87. void CMonsterObject::KickException()
  88. {
  89. m_fIsDead = TRUE;
  90. m_dwDeathTime = GetTickCount();
  92. MakeGhost();
  93. }
  94. /*procedure  TCreature.KickException;
  95. var
  96.    hum: TUserHuman;
  97. begin
  98.    if RaceServer = RC_USERHUMAN then begin
  99.       MapName := HomeMap;
  100.       CX := HomeX;
  101.       CY := HomeY;
  102.       hum := TUserHuman(self);
  103.       hum.EmergencyClose := TRUE;
  104.    end else begin  //
  105.       Death := TRUE;
  106.       DeathTime := GetTickCount;
  107.       MakeGhost;
  108.    end;
  109. end; */
  111. CMonsterObject* CMonsterObject::MakeClone(int nMonRace)
  112. {
  113. CMonRaceInfo* pMonRaceInfo = &g_pMonRaceInfo[nMonRace];
  115. if (pMonRaceInfo)
  116. {
  117. CMonsterObject* pMonsterObject = (CMonsterObject*)AddCreatureSysop(m_nCurrX, m_nCurrY, pMonRaceInfo, FALSE);
  119. if (pMonsterObject)
  120. {
  121. pMonsterObject->m_pMasterObject = m_pMasterObject;
  122. //      mon.MasterRoyaltyTime := src.MasterRoyaltyTime;
  123. //      mon.SlaveMakeLevel := src.SlaveMakeLevel;
  124. //      mon.SlaveExpLevel := src.SlaveExpLevel;
  125. //      mon.RecalcAbilitys; //ApplySlaveLevelAbilitys;
  126. //      mon.ChangeNameColor;
  127. if (m_pMasterObject)
  128. {
  129. CPlayerObject* pPlayerObject = dynamic_cast<CPlayerObject*>(m_pMasterObject);
  131. if (pPlayerObject)
  132. pPlayerObject->m_xSlaveObjList.AddNewNode(pMonsterObject);
  133. }
  135. pMonsterObject->m_WAbility = m_WAbility;
  136. memcpy(pMonsterObject->m_wStatusArr, m_wStatusArr, sizeof(m_wStatusArr));
  137. pMonsterObject->m_pTargetObject = m_pTargetObject;
  138. pMonsterObject->m_dwTargetFocusTime = m_dwTargetFocusTime;
  139. pMonsterObject->m_pLastHitterObject = m_pLastHitterObject;
  140. pMonsterObject->m_dwLastHitTime = m_dwLastHitTime;
  141. pMonsterObject->m_nDirection = m_nDirection;
  143. return pMonsterObject;
  144. }
  145. }
  147. return NULL;
  148. }
  150. BOOL CMonsterObject::IsProperTarget(CCharObject* pTargetObject)
  151. {
  152. BOOL fFlag = FALSE;
  154. if (pTargetObject == this || !pTargetObject) return fFlag;
  156. if (pTargetObject->m_wObjectType & _OBJECT_HUMAN)
  157. {
  158. CPlayerObject *pPlayerObject = dynamic_cast<CPlayerObject*>(pTargetObject);
  160. if (pPlayerObject)
  161. {
  162. if (pPlayerObject->IsEmpty())
  163. return fFlag;
  164. }
  165. }
  167. // if (pTargetMonsterObject)
  168. // {
  169. if (m_pMasterObject)
  170. {
  171. if (m_pMasterObject->m_pTargetObject == pTargetObject)
  172. fFlag = TRUE;
  174. if (pTargetObject->m_pTargetObject)
  175. {
  176. if ((pTargetObject->m_pTargetObject == m_pMasterObject) || 
  177. (pTargetObject->m_pTargetObject->m_pMasterObject == m_pMasterObject))
  178. fFlag = TRUE;
  179. }
  180. /* if (
  181.          //林牢捞 乐绰 各
  182.          //if (target.RaceServer >= RC_ANIMAL) and (target.Master = nil) then
  183.          //   Result := TRUE;
  184.          if (Master.LastHiter = target) or (Master.ExpHiter = target) or (Master.TargetCret = target) then
  185.             Result := TRUE;
  186.          if target.TargetCret <> nil then begin
  187.             if (target.TargetCret = Master) or  //林牢阑 傍拜
  188.                (target.TargetCret.Master = Master) and (target.RaceServer <> 0) //悼丰甫 傍拜, 荤恩牢版快 力寇
  189.             then
  190.                Result := TRUE;
  191.          end; */
  192. if (pTargetObject->m_pTargetObject == this)
  193. fFlag = TRUE;
  194. /*         if (target.TargetCret = self) and (target.RaceServer >= RC_ANIMAL) then  //各捞搁辑 磊脚阑 傍拜窍绰 磊
  195.             Result := TRUE;
  196.          if target.Master <> nil then begin  //惑措啊 家券各
  197.             if (target.Master = Master.LastHiter) or (target.Master = Master.TargetCret) then
  198.                Result := TRUE;
  199.          end;
  200.          if target.Master = Master then Result := FALSE;  //林牢捞 鞍栏搁 傍拜救窃
  201.          if target.BoHolySeize then Result := FALSE;  //搬拌俊 吧妨 乐栏搁 傍拜救窃
  202.          if Master.BoSlaveRelax then Result := FALSE;
  203.          if target.RaceServer = RC_USERHUMAN then begin  //惑措啊 荤恩牢 版快
  204.             if (Master.InSafeZone) or (target.InSafeZone) then begin  //林牢捞 救傈瘤措俊 乐芭唱, 惑措啊 救傈瘤措俊 乐绰 版快
  205.                Result := FALSE;
  206.             end;
  207.          end;
  208.          BreakCrazyMode;  //林牢乐绰 各.. */
  209. }
  210. else
  211. {
  212. if (pTargetObject->m_wObjectType & _OBJECT_HUMAN)
  213. fFlag = TRUE;
  215. if (pTargetObject->m_pMasterObject)
  216. fFlag = TRUE;
  218. /*         if target.RaceServer = RC_USERHUMAN then
  219.             Result := TRUE;
  220.          if (RaceServer > RC_PEACENPC) and (RaceServer < RC_ANIMAL) then begin //傍拜仿阑 啊柳 NPC绰 酒公唱 傍拜茄促.
  221.             Result := TRUE;
  222.          end;
  223.          if target.Master <> nil then
  224.             Result := TRUE; */
  226. // if BoCrazyMode then  //固魔, 酒公唱 傍拜, 利 救啊覆... (家券各俊霸档 烹茄促.)
  227.   //       Result := TRUE;
  228. }
  230. return fFlag;
  231. }
  233. void CMonsterObject::GetCharName(char *pszCharName)
  234. {
  235. strcpy(pszCharName, m_szName);
  237. if (m_pMasterObject)
  238. {
  239. char szMasterName[32];
  241. m_pMasterObject->GetCharName(szMasterName);
  243. strcat(pszCharName, " (");
  244. strcat(pszCharName, szMasterName);
  245. strcat(pszCharName, ")");
  246. }
  247. }
  249. void CMonsterObject::MakeHolySeize(DWORD dwHTime)
  250. {
  251. m_fBoHolySeize = TRUE;
  252. m_dwHolySeizeStart = GetTickCount();
  253. m_dwHolySeizeTime = dwHTime;
  255. AddRefMsg(RM_CHANGENAMECOLOR, 0, 0, 0, 0, NULL);
  256. }
  258. void CMonsterObject::BreakHolySeize()
  259. {
  260. if (m_fBoHolySeize)
  261. {
  262. m_fBoHolySeize = FALSE;
  263. AddRefMsg(RM_CHANGENAMECOLOR, 0, 0, 0, 0, NULL);
  264. }
  265. }
  267. BOOL CMonsterObject::WalkTo(int nDir)
  268. {
  269. int nX, nY;
  271. if (m_fBoHolySeize)
  272. return FALSE;
  274. WalkNextPos(nDir, nX, nY);
  276. if (m_wEscape)
  277. {
  278. if (!m_pMap->CanSafeWalk(nX, nY))
  279. return FALSE;
  280. }
  282. return WalkXY(nX, nY, nDir);
  283. }
  285. void CMonsterObject::Die()
  286. {
  287. CPlayerObject* pPlayerObject = NULL;
  288. CMonsterObject* pMonsterObject = NULL;
  290. if (m_pExpHitterObject)
  291. {
  292. pPlayerObject = dynamic_cast<CPlayerObject*>(m_pExpHitterObject);
  294. if (pPlayerObject)
  295. {
  296. int nExp = pPlayerObject->CalcGetExp(m_Ability.Level, m_nFightExp);
  297. pPlayerObject->GainExp(nExp);
  298. }
  299. else
  300. {
  301. pMonsterObject = dynamic_cast<CMonsterObject*>(m_pExpHitterObject);
  303. if (pMonsterObject)
  304. {
  305. if (pMonsterObject->m_pMasterObject)
  306. {
  307. pPlayerObject = dynamic_cast<CPlayerObject*>(pMonsterObject->m_pMasterObject);
  309. int nExp = pPlayerObject->CalcGetExp(m_Ability.Level, m_nFightExp);
  310. pPlayerObject->GainExp(nExp);
  311. }
  312. }
  313. }
  314. }
  316. // MonGetRandomItems();
  317. ScatterBagItems();
  319. m_pMasterObject = NULL;
  321. CCharObject::Die();
  322. /*   try
  323.       //各阑 磷牢 版快.  版氰摹甫 掘绰促.
  324.       if (RaceServer <> RC_USERHUMAN) and (LastHiter <> nil) then begin
  325.          //付瘤阜 锭赴磊啊 荤恩捞绢具 窃.
  326.          if ExpHiter <> nil then begin //版氰摹甫 冈绰 荤恩.. 刚历 锭府扁 矫累茄 荤恩
  327.             if ExpHiter.RaceServer = RC_USERHUMAN then begin
  328.                //弥措 眉仿 父怒, 惑措狼 饭骇俊 厚肥秦辑 版氰摹甫 掘绰促.
  329.                exp := ExpHiter.CalcGetExp (self.Abil.Level, self.FightExp);
  330.                if not BoVentureServer then begin
  331.                   ExpHiter.GainExp (exp);
  332.                end else begin
  333.                   //葛氰辑滚俊辑绰 痢荐啊 棵扼埃促.
  334.                end;
  335.             end else begin
  336.                if ExpHiter.Master <> nil then begin //锭赴仇捞 家券各
  337.                   //何窍档 版氰摹甫 冈澜
  338.                   ExpHiter.GainSlaveExp (self.Abil.Level);  //惑措狼 饭骇父怒 版氰阑 冈澜
  339.                   //林牢捞 版氰摹甫 冈绰促.
  340.                   exp := ExpHiter.Master.CalcGetExp (self.Abil.Level, self.FightExp);
  341.                   if not BoVentureServer then begin
  342.                      ExpHiter.Master.GainExp (exp); //家券荐甫 何府绰 荤恩捞 冈绰促.
  343.                   end else begin
  344.                      //葛氰辑滚俊辑绰 痢荐啊 棵扼埃促.
  345.                   end;
  346.                end;
  347.             end;
  348.          end else
  349.             if LastHiter.RaceServer = RC_USERHUMAN then begin
  350.                //弥措 眉仿 父怒, 惑措狼 饭骇俊 厚肥秦辑 版氰摹甫 掘绰促.
  351.                exp := LastHiter.CalcGetExp (self.Abil.Level, self.FightExp);
  352.                if not BoVentureServer then begin
  353.                   LastHiter.GainExp (exp);
  354.                end else begin
  355.                   //
  356.                end;
  357.             end;
  358.       end;
  359.       Master := nil;
  360.    except
  361.       MainOutMessage ('[Exception] TCreature.Die 1');
  362.    end;   */
  363. }
  365. void CMonsterObject::ScatterBagItems()
  366. {
  367. _LPTUSERITEMRCD lptUserItemRcd = NULL;
  369. if (m_xTItemRcd.GetCount())
  370. {
  371. PLISTNODE pListNode = m_xTItemRcd.GetHead();
  373. while (pListNode)
  374. {
  375. lptUserItemRcd = m_xTItemRcd.GetData(pListNode);
  377. if (lptUserItemRcd)
  378. DropItemDown(lptUserItemRcd, 3, FALSE);
  380. pListNode = m_xTItemRcd.RemoveNode(pListNode);
  381. }
  382. }
  383. }
  384. /*
  385. procedure TCreature.ScatterBagItems;    //磷绢辑 啊规俊 酒捞袍阑 汝覆.. 傈何 汝赴促.
  386. var
  387.    i, dropwide: integer;
  388.    pu: PTUserItem;
  389.    dellist: TStringList;
  390.    boDropall: Boolean;
  391. begin
  392.    dellist := nil;
  394.    boDropall := TRUE;
  395.    if RaceServer = RC_USERHUMAN then begin
  396.       dropwide := 2;
  397.       if PKLevel < 2 then boDropall := FALSE; //荤恩篮 1/3犬伏肺 冻焙促.
  398.       //弧盎捞绰 促 冻焙促.
  399.    end else
  400.       dropwide := 3;
  402.    try
  403.       for i:=ItemList.Count-1 downto 0 do begin
  404.          if (Random(3) = 0) or boDropall then begin
  405.             if DropItemDown (PTUserItem(ItemList[i])^, dropwide, TRUE) then begin
  406.                pu := PTUserItem(ItemList[i]);
  407.                if RaceServer = RC_USERHUMAN then begin
  408.                   if dellist = nil then dellist := TStringList.Create;
  409.                   //冻绢哆赴 酒捞袍阑 努扼捞攫飘俊 舅覆.
  410.                   dellist.AddObject(UserEngine.GetStdItemName (pu.Index), TObject(pu.MakeIndex));
  411.                end;
  412.                Dispose(PTUserItem(ItemList[i]));
  413.                ItemList.Delete (i);
  414.             end;
  415.          end;
  416.       end;
  417.       if dellist <> nil then begin
  418.          SendMsg (self, RM_DELITEMS, 0, integer(dellist), 0, 0, '');
  419.          //dellist绰 rm_delitem俊辑 free 矫难具 茄促.
  420.       end;
  421.    except
  422.       MainOutMessage ('[Exception] TCreature.ScatterBagItems');
  423.    end;
  424. end;
  425. */
  426. void CMonsterObject::Initialize()
  427. {
  428. memcpy(m_szName, g_pMonRaceInfo[g_pMonRaceInfo[m_nRace].wRaceIndex].szMonName, memlen(g_pMonRaceInfo[g_pMonRaceInfo[m_nRace].wRaceIndex].szMonName));
  430. MonGetRandomItems();
  432. // cret.RaceImage := pm.RaceImg;
  433. // cret.Appearance := pm.Appr;
  434. // cret.LifeAttrib := pm.LifeAttrib;
  435. m_btLifeAttrib = g_pMonRaceInfo[m_nRace].btUndead;
  437. m_Ability.Level = g_pMonRaceInfo[m_nRace].Level;
  438. m_Ability.HP = g_pMonRaceInfo[m_nRace].HP;
  439. m_Ability.MaxHP = g_pMonRaceInfo[m_nRace].HP;
  440. m_Ability.MP = g_pMonRaceInfo[m_nRace].MP;
  441. m_Ability.MaxMP = g_pMonRaceInfo[m_nRace].MP;
  442. m_Ability.AC = g_pMonRaceInfo[m_nRace].AC;
  443. m_Ability.MAC = g_pMonRaceInfo[m_nRace].MAC;
  444. m_Ability.DC = g_pMonRaceInfo[m_nRace].DC;
  445. m_Ability.MC = 0;
  446. m_Ability.SC = 0;
  447. m_Ability.m_wWater = g_pMonRaceInfo[m_nRace].m_wWater;
  448. m_Ability.m_wFire = g_pMonRaceInfo[m_nRace].m_wFire;
  449. m_Ability.m_wWind = g_pMonRaceInfo[m_nRace].m_wWind;
  450. m_Ability.m_wLight = g_pMonRaceInfo[m_nRace].m_wLight;
  451. m_Ability.m_wEarth = g_pMonRaceInfo[m_nRace].m_wEarth;
  453. m_nFightExp = g_pMonRaceInfo[m_nRace].Exp;
  455. m_WAbility = m_Ability;
  457. m_btSpeedPoint = (BYTE)g_pMonRaceInfo[m_nRace].Speed;
  458. m_btHitPoint = (BYTE)g_pMonRaceInfo[m_nRace].Hit;
  460. m_dwNextWalkTime = g_pMonRaceInfo[m_nRace].dwWalkSpeed;
  461. m_dwNextHitTime = g_pMonRaceInfo[m_nRace].dwAttackSpeed;
  463. m_wEscape = g_pMonRaceInfo[m_nRace].wEscape;
  465. m_nViewRange = (4 * g_pMonRaceInfo[m_nRace].ViewRange) * (g_pMonRaceInfo[m_nRace].ViewRange + 1); 
  467. m_tFeature.btGender = 3;
  468. m_tFeature.btWear = g_pMonRaceInfo[m_nRace].nAppear;
  469. m_tFeature.btHair = 0;
  470. m_tFeature.btWeapon = 0;
  471. }
  473. void CMonsterObject::MakeGenItem(_LPTGENERALITEMRCD lptGenItemRcd)
  474. {
  475. _TGENITEMRCD GenItemRcd;
  477. sprintf(GenItemRcd.szItem, "G%03d%04d%04d", lptGenItemRcd->nStdIndex, lptGenItemRcd->nDura, lptGenItemRcd->nDuraMax);
  479. memcpy(lptGenItemRcd->szMakeIndex, GenItemRcd.szItem, 12);
  481. m_xTGenItemRcd.AddNewNode(lptGenItemRcd);
  482. }
  484. void CMonsterObject::MonGetRandomItems()
  485. {
  486. CMonItem* pMonItem = NULL;
  487. CMonRaceInfo* pMonRaceInfo = &g_pMonRaceInfo[m_nRace];
  489. // _TMAKEITEMRCD MakeItemRcd;
  491. if (pMonRaceInfo)
  492. {
  493. if (pMonRaceInfo->m_xMonItemList.GetCount())
  494. {
  495. PLISTNODE pListNode = pMonRaceInfo->m_xMonItemList.GetHead();
  497. while (pListNode)
  498. {
  499. pMonItem = pMonRaceInfo->m_xMonItemList.GetData(pListNode);
  501. if (pMonItem)
  502. {
  503. // if (1 >= rand() % pMonItem->m_nPoint)
  504. // {
  505. _LPTUSERITEMRCD lpTItemRcd = new _TUSERITEMRCD;
  507. switch (pMonItem->m_btItemType)
  508. {
  509. case _ITEM_GOLD:
  510. m_dwGold = (pMonItem->m_wCount / 2) + (rand() % pMonItem->m_wCount);
  511. break;
  512. case _ITEM_WEAPON:
  513. case _ITEM_ARMOR:
  514. case _ITEM_ACCESSORY:
  515. {
  516. ZeroMemory(lpTItemRcd->szPrefixName, sizeof(lpTItemRcd->szPrefixName));
  517. ZeroMemory(lpTItemRcd->btValue, sizeof(lpTItemRcd->btValue));
  519. lpTItemRcd->nStdIndex = pMonItem->m_wItemIndex;
  521. switch (pMonItem->m_btItemType)
  522. {
  523. case 0:
  524. memcpy(lpTItemRcd->szMakeIndex, "A00000000000", 12);
  525. break;
  526. case 1:
  527. memcpy(lpTItemRcd->szMakeIndex, "B00000000000", 12);
  528. break;
  529. case 2:
  530. memcpy(lpTItemRcd->szMakeIndex, "C00000000000", 12);
  531. break;
  532. }
  534. lpTItemRcd->nDura = g_pStdItemSpecial[pMonItem->m_wItemIndex].wDuraMax;
  535. lpTItemRcd->nDuraMax = g_pStdItemSpecial[pMonItem->m_wItemIndex].wDuraMax;
  537. if (rand() % 10 == 0)
  538. g_pStdItemSpecial[pMonItem->m_wItemIndex].UpgradeRandomItem(lpTItemRcd->btValue, lpTItemRcd->nDura, lpTItemRcd->nDuraMax);
  540. m_xTItemRcd.AddNewNode(lpTItemRcd);
  541. // MakeItemToDB(&MakeItemRcd);
  543. break;
  544. }
  545. case _ITEM_ETC:
  546. {
  547. _LPTGENERALITEMRCD lptGenItemRcd = new _TGENERALITEMRCD;
  549. if (lptGenItemRcd)
  550. {
  551. lptGenItemRcd->nStdIndex = pMonItem->m_wItemIndex;
  552. lptGenItemRcd->nDura = g_pStdItemEtc[pMonItem->m_wItemIndex].wDuraMax;
  553. lptGenItemRcd->nDuraMax = g_pStdItemEtc[pMonItem->m_wItemIndex].dwRSource;
  555. MakeGenItem(lptGenItemRcd);
  556. }
  558. break;
  559. }
  560. }
  561. // }
  562. }
  564. pListNode = pMonRaceInfo->m_xMonItemList.GetNext(pListNode);
  565. }
  566. }
  567. }
  568. }
  569. /*
  570. function  TUserEngine.MonGetRandomItems (mon: TCreature): integer;
  571. var
  572.    i, numb: integer;
  573.    list: TList;
  574.    iname: string;
  575.    pmi: PTMonItemInfo;
  576.    pu: PTUserItem;
  577.    pstd: PTStdItem;
  578. begin
  579.    list := nil;
  580.    for i:=0 to MonDefList.Count-1 do begin
  581.       if CompareText (PTMonsterInfo(MonDefList[i]).Name, mon.UserName) = 0 then begin
  582.          list := PTMonsterInfo(MonDefList[i]).Itemlist;
  583.          break;
  584.       end;
  585.    end;
  586.    if list <> nil then begin
  587.       for i:=0 to list.Count-1 do begin
  588.          pmi := PTMonItemInfo(list[i]);
  589.          if pmi.SelPoint >= Random(pmi.MaxPoint) then begin
  590.             if CompareText(pmi.ItemName, '捣') = 0 then begin
  591.                mon.Gold := (pmi.Count div 2) + Random(pmi.Count);
  592.             end else begin
  593.                //蜡聪农 酒捞袍 捞亥飘....
  594.                iname := '';
  595.                ////if (BoUniqueItemEvent) and (not mon.BoAnimal) then begin
  596.                ////   if GetUniqueEvnetItemName (iname, numb) then begin
  597.                      //numb; //iname
  598.                ////   end;
  599.                ////end;
  600.                if iname = '' then
  601.                   iname := pmi.ItemName;
  603.                new (pu);
  604.                if CopyToUserItemFromName (iname, pu^) then begin
  605.                   //郴备己捞 函版登绢 乐澜..
  606.                   pu.Dura := Round ((pu.DuraMax / 100) * (20+Random(80)));
  608.                   pstd := GetStdItem (pu.Index);
  609.                   ////if pstd <> nil then
  610.                   ////   if pstd.StdMode = 50 then begin  //惑前鼻
  611.                   ////      pu.Dura := numb;
  612.                   ////   end;
  614.                   //撤篮 犬伏肺
  615.                   //酒捞袍狼 诀弊贰捞靛等 郴侩 利侩
  616.                   if Random(10) = 0 then
  617.                      RandomUpgradeItem (pu);
  619.                   mon.ItemList.Add (pu)
  620.                end else
  621.                   Dispose (pu);
  622.             end;
  623.          end;
  624.       end;
  625.    end;
  626.    Result := 1;
  627. end;
  628. */
  629. void CMonsterObject::SearchViewRange()
  630. {
  631. int nX, nY;
  632. PLISTNODE pListNode;
  633. CMapCellInfo* pMapCellInfo;
  634. _LPTOSOBJECT pOSObject;
  635. CVisibleObject* pVisibleObject;
  637. // Clear VisibleObjectList
  638. if (m_xVisibleObjectList.GetCount())
  639. {
  640. PLISTNODE pListNode = m_xVisibleObjectList.GetHead();
  642. while (pListNode)
  643. {
  644. if (pVisibleObject = m_xVisibleObjectList.GetData(pListNode))
  645. pVisibleObject->nVisibleFlag = 0;
  647. pListNode = m_xVisibleObjectList.GetNext(pListNode);
  648. }
  649. }
  651. // Search VisibleObjectList
  652. for (int i = 0; i < m_nViewRange; i++)
  653. {
  654. nX = m_nCurrX + g_SearchTable[i].x;
  655. nY = m_nCurrY + g_SearchTable[i].y;
  657. pMapCellInfo = m_pMap->GetMapCellInfo(nX, nY);
  659. if (pMapCellInfo)
  660. {
  661. if (pMapCellInfo->m_xpObjectList)
  662. {
  663. if (pMapCellInfo->m_xpObjectList->GetCount())
  664. {
  665. pListNode = pMapCellInfo->m_xpObjectList->GetHead();
  667. while (pListNode)
  668. {
  669. pOSObject = pMapCellInfo->m_xpObjectList->GetData(pListNode);
  671. if (pOSObject)
  672. {
  673. if (pOSObject->btType == OS_MOVINGOBJECT)
  674. {
  675. CCharObject* pCharObject = (CCharObject*)pOSObject->pObject;
  676. UpdateVisibleObject(pCharObject);
  677. }
  678. }
  680. pListNode = pMapCellInfo->m_xpObjectList->GetNext(pListNode);
  681. } // while (pListNode)
  682. } // if (pMapCellInfo->m_pObjectList.GetCount())
  683. }
  684. } // if (pMapCellInfo)
  685. }
  687. if (m_xVisibleObjectList.GetCount())
  688. {
  689. PLISTNODE pListNode = m_xVisibleObjectList.GetHead();
  691. while (pListNode)
  692. {
  693. if (pVisibleObject = m_xVisibleObjectList.GetData(pListNode))
  694. {
  695. if (pVisibleObject->nVisibleFlag == 0)
  696. {
  697. delete pVisibleObject;
  698. pVisibleObject = NULL;
  700. pListNode = m_xVisibleObjectList.RemoveNode(pListNode);
  701. continue;
  702. }
  703. } // if (pVisibleObject = m_xVisibleObjectList.GetData(pListNode))
  705. pListNode = m_xVisibleObjectList.GetNext(pListNode);
  706. } // while (pListNode)
  707. }
  708. }
  710. BOOL CMonsterObject::IsFrontObject(CCharObject* pCharObject)
  711. {
  712. for (int i = 0; i < 8; i++)
  713. {
  714. if (pCharObject->m_nCurrX == m_nCurrX + g_SearchTable[i].x && pCharObject->m_nCurrY == m_nCurrY + g_SearchTable[i].y)
  715. return TRUE;
  716. }
  718. return FALSE;
  719. }
  721. void CMonsterObject::SetLastHiter(CCharObject* pHitter)
  722. {
  723. DWORD dwHitTick = GetTickCount();
  725. m_pLastHitterObject = pHitter;
  726. m_dwLastHitTime = dwHitTick;
  728. if (!m_pExpHitterObject)
  729. {
  730. m_pExpHitterObject = pHitter;
  731. m_dwExpHitTime = dwHitTick;
  732. }
  733. else
  734. {
  735. if (m_pExpHitterObject == pHitter)
  736. m_dwExpHitTime = dwHitTick;
  737. }
  738. }
  740. void CMonsterObject::Wondering()
  741. {
  742. if ((rand() % 20) == 0)
  743. {
  744. if ((rand() % 4) == 1)
  745. TurnTo(rand() % 8);
  746. else
  747. WalkTo(m_nDirection);
  748. }
  749. }
  751. void CMonsterObject::GotoTargetXY()
  752. {
  753. int nDir;
  755. if ((m_nCurrX != m_nTargetX) || (m_nCurrY != m_nTargetY))
  756. {
  757. if (m_xVisibleObjectList.GetCount())
  758. {
  759. PLISTNODE pListNode = m_xVisibleObjectList.GetHead();
  761. CVisibleObject* pVisibleObject = m_xVisibleObjectList.GetData(pListNode);
  763. if (pVisibleObject)
  764. {
  765. if ((!pVisibleObject->pObject->m_fIsDead) && IsProperTarget(pVisibleObject->pObject) && (!pVisibleObject->pObject->m_fInspector))
  766. {
  767. if (abs(m_nCurrX - pVisibleObject->pObject->m_nCurrX) + abs(m_nCurrY - pVisibleObject->pObject->m_nCurrY) <
  768. abs(m_nCurrX - m_nTargetX) + abs(m_nCurrY - m_nTargetY))
  769. {
  770. SelectTarget(pVisibleObject->pObject);
  771. m_nTargetX = pVisibleObject->pObject->m_nCurrX;
  772. m_nTargetY = pVisibleObject->pObject->m_nCurrY;
  774. return;
  775. }
  776. }
  777. }
  778. }
  780. int nX = m_nTargetX;
  781. int nY = m_nTargetY;
  783. m_nFindPathTime = GetTickCount();
  785. while (TRUE)
  786. {
  787. if (nX > m_nCurrX)
  788. {
  789. nDir = DR_RIGHT;
  791. if (nY > m_nCurrY)
  792. nDir = DR_DOWNRIGHT;
  793. else if (nY < m_nCurrY)
  794. nDir = DR_UPRIGHT;
  796. break;
  797. }
  799. if (nX < m_nCurrX)
  800. {
  801. nDir = DR_LEFT;
  803. if (nY > m_nCurrY)
  804. nDir = DR_DOWNLEFT;
  805. else if (nY < m_nCurrY)
  806. nDir = DR_UPLEFT;
  808. break;
  809. }
  811. if (nY > m_nCurrY)
  812. {
  813. nDir = DR_DOWN;
  814. break;
  815. }
  817. if (nY < m_nCurrY)
  818. {
  819. nDir = DR_UP;
  820. break;
  821. }
  823. break;
  824. }
  826. // char szTemp[64];
  827. // sprintf(szTemp, "捞 仇 %s 具 芭扁 几芭扼... 窍窍窍", m_pTargetObject->m_szName);
  828. // AddRefMsg(RM_MONSTERSAY, 0, 0, 0, 0, szTemp);
  830. int nOldX = m_nCurrX;
  831. int nOldY = m_nCurrY;
  833. WalkTo(nDir);
  835. for (int i = 0; i < 7; i++)
  836. {
  837. if (nOldX == m_nCurrX && nOldY == m_nCurrY)
  838. {
  839. if (rand() % 3) nDir++;
  840. else if (nDir > 0) nDir--;
  841. else
  842. nDir = 7;
  844. if (nDir > 7) nDir = 0;
  846. WalkTo(nDir);
  847. }
  848. else
  849. break;
  850. }
  851. }
  852. }
  854. void CMonsterObject::Struck(CCharObject* pHitter)
  855. {
  856. if (pHitter)
  857. {
  858. if (IsProperTarget(pHitter))
  859. SelectTarget(pHitter);
  860. }
  862. if (m_Ability.Level < 50)
  863. m_dwHitTime = m_dwHitTime + (150 - _MIN(130, m_Ability.Level * 4));
  865. /*procedure TAnimal.Struck (hiter: TCreature);
  866. begin
  867.    StruckTime := GetTickCount;
  868.    if hiter <> nil then begin
  869.       if IsProperTarget (hiter) then
  870.          SelectTarget (hiter);
  871.    end;
  872.    if BoAnimal then begin
  873.       MeatQuality := MeatQuality - Random (300);  //悼拱捞 嘎栏搁 嘎阑 荐废 绊扁 前龙捞 冻绢咙
  874.       if MeatQuality < 0 then MeatQuality := 0;
  875.    end;
  876.    if Abil.Level < 50 then
  877.       HitTime  := HitTime + (150 - _MIN(130, Abil.Level * 4)); //茄规俊 ms究 词霸 锭赴促.
  878.    //WalkTime := WalkTime + (300 - _MIN(200, (Abil.Level div 5) * 20));
  879. end;
  880. */
  881. }
  883. WORD CMonsterObject::GetThisCharColor()
  884. {
  885. if (m_fBoHolySeize)
  886. return _CHAT_COLOR4;
  888. return _CHAT_COLOR3;
  889. }
  891. void CMonsterObject::Operate()
  892. {
  893. int nCount = m_DelayProcessQ.GetCount();
  895. _LPTPROCESSMSG lpProcessMsg;
  897. if (nCount)
  898. {
  899. for (int i = 0; i < nCount; i++)
  900. {
  901. lpProcessMsg = (_LPTPROCESSMSG)m_DelayProcessQ.PopQ();
  903. if (lpProcessMsg)
  904. {
  905. if (GetTickCount() < lpProcessMsg->dwDeliveryTime)
  906. {
  907. m_DelayProcessQ.PushQ((BYTE *)lpProcessMsg);
  908. continue;
  909. }
  911. switch (lpProcessMsg->wIdent)
  912. {
  913. case RM_DOOPENHEALTH:
  914. {
  915. MakeOpenHealth();
  916. break;
  917. }
  918. case RM_STRUCK:
  919. {
  920. if (lpProcessMsg->pCharObject->m_wObjectType & _OBJECT_HUMAN)
  921. lpProcessMsg->pCharObject->AddRefMsg(RM_STRUCK, lpProcessMsg->wParam, lpProcessMsg->lParam1, 
  922. lpProcessMsg->lParam2, lpProcessMsg->lParam3, NULL);
  924. break;
  925. }
  926. case RM_MAGSTRUCK:
  927. {
  928. AddProcess(lpProcessMsg->pCharObject, lpProcessMsg->wIdent, lpProcessMsg->wParam, lpProcessMsg->lParam1, 
  929. lpProcessMsg->lParam2, lpProcessMsg->lParam3, NULL);
  930. break;
  931. }
  932. }
  934. delete lpProcessMsg;
  935. lpProcessMsg = NULL;
  936. }
  937. }
  938. }
  940. nCount = m_ProcessQ.GetCount();
  942. if (nCount)
  943. {
  944. for (int i = 0; i < nCount; i++)
  945. {
  946. lpProcessMsg = (_LPTPROCESSMSG)m_ProcessQ.PopQ();
  948. switch (lpProcessMsg->wIdent)
  949. {
  950. case RM_STRUCK:
  951. {
  952. if (lpProcessMsg->pCharObject == this && lpProcessMsg->lParam3)
  953. {
  954. SetLastHiter((CCharObject*)lpProcessMsg->lParam3);
  955. Struck((CCharObject*)lpProcessMsg->lParam3);
  957. m_dwHealthTick = 0;
  958. m_dwSpellTick = 0;
  959. m_btPerHealth--;
  960. m_btPerSpell--;
  962. BreakHolySeize();
  963. }
  965. break;
  966. }
  967. case RM_MAGSTRUCK:
  968. case RM_MAGSTRUCK_MINE:
  969. {
  970. if (lpProcessMsg->wIdent == RM_MAGSTRUCK)
  971. {
  972. if (m_Ability.Level < 50)
  973. m_dwWalkTime += 800 + (rand() % 1000);
  974. }
  976. int nVal = GetMagStruckDamage(lpProcessMsg->lParam1);
  978. if (nVal > 0)
  979. {
  980. StruckDamage(nVal);
  981. HealthSpellChanged();
  982. AddRefMsg(RM_STRUCK_MAG, nVal, m_WAbility.HP, m_WAbility.MP, (int)lpProcessMsg->pCharObject, NULL);
  984. //                  if BoAnimal then begin //绊扁啊 唱坷绰 悼拱牢 版快..
  985.  //                   MeatQuality := MeatQuality - v1 * 1000;  //付过阑 嘎栏搁 绊扁龙捞 摹疙利栏肺 唱狐柳促.
  986. //                  end;
  987. SetLastHiter(lpProcessMsg->pCharObject);
  988. // Struck(lpProcessMsg->pCharObject);
  990. m_dwHealthTick = 0;
  991. m_dwSpellTick = 0;
  993. BreakHolySeize();
  994. }
  996. break;
  997. }
  998. }
  1000. delete lpProcessMsg;
  1001. lpProcessMsg = NULL;
  1002. }
  1003. }
  1005. Run();
  1006. }
  1008. void CMonsterObject::MonsterNormalAttack()
  1009. {
  1010. if (m_xVisibleObjectList.GetCount())
  1011. {
  1012. PLISTNODE pListNode = m_xVisibleObjectList.GetHead();
  1014. while (pListNode)
  1015. {
  1016. CVisibleObject* pVisibleObject = m_xVisibleObjectList.GetData(pListNode);
  1018. if (pVisibleObject)
  1019. {
  1020. if ((!pVisibleObject->pObject->m_fIsDead) && IsProperTarget(pVisibleObject->pObject) 
  1021. && (!pVisibleObject->pObject->m_fInspector) && (!pVisibleObject->pObject->m_fHumHideMode))
  1022. {
  1023. if (abs(m_nCurrX - pVisibleObject->pObject->m_nCurrX) + abs(m_nCurrY - pVisibleObject->pObject->m_nCurrY) < 999)
  1024. {
  1025. SelectTarget(pVisibleObject->pObject);
  1026. return;
  1027. }
  1028. }
  1029. }
  1031. pListNode = m_xVisibleObjectList.GetNext(pListNode);
  1032. }
  1033. }
  1034. }
  1036. BOOL CMonsterObject::TargetInAttackRange()
  1037. {
  1038. if (m_pTargetObject)
  1039. {
  1040. if ((m_pTargetObject->m_nCurrX >= m_nCurrX - 1) && (m_pTargetObject->m_nCurrX <= m_nCurrX + 1) &&
  1041. (m_pTargetObject->m_nCurrY >= m_nCurrY - 1) && (m_pTargetObject->m_nCurrY <= m_nCurrY + 1) && 
  1042. !((m_pTargetObject->m_nCurrX == m_nCurrX) && (m_pTargetObject->m_nCurrY == m_nCurrY))) 
  1043. {
  1044. if ((m_pTargetObject->m_nCurrX == m_nCurrX - 1) && (m_pTargetObject->m_nCurrY == m_nCurrY))
  1045. {
  1046. m_btTargetDir = DR_LEFT;
  1047. return TRUE;
  1048. }
  1050. if ((m_pTargetObject->m_nCurrX == m_nCurrX + 1) && (m_pTargetObject->m_nCurrY == m_nCurrY))
  1051. {
  1052. m_btTargetDir = DR_RIGHT;
  1053. return TRUE;
  1054. }
  1056. if ((m_pTargetObject->m_nCurrX == m_nCurrX) && (m_pTargetObject->m_nCurrY == m_nCurrY - 1))
  1057. {
  1058. m_btTargetDir = DR_UP;
  1059. return TRUE;
  1060. }
  1062. if ((m_pTargetObject->m_nCurrX == m_nCurrX) && (m_pTargetObject->m_nCurrY == m_nCurrY + 1))
  1063. {
  1064. m_btTargetDir = DR_DOWN;
  1065. return TRUE;
  1066. }
  1068. if ((m_pTargetObject->m_nCurrX == m_nCurrX - 1) && (m_pTargetObject->m_nCurrY == m_nCurrY - 1))
  1069. {
  1070. m_btTargetDir = DR_UPLEFT;
  1071. return TRUE;
  1072. }
  1074. if ((m_pTargetObject->m_nCurrX == m_nCurrX + 1) && (m_pTargetObject->m_nCurrY == m_nCurrY - 1))
  1075. {
  1076. m_btTargetDir = DR_UPRIGHT;
  1077. return TRUE;
  1078. }
  1080. if ((m_pTargetObject->m_nCurrX == m_nCurrX - 1) && (m_pTargetObject->m_nCurrY == m_nCurrY + 1))
  1081. {
  1082. m_btTargetDir = DR_DOWNLEFT;
  1083. return TRUE;
  1084. }
  1086. if ((m_pTargetObject->m_nCurrX == m_nCurrX + 1) && (m_pTargetObject->m_nCurrY == m_nCurrY + 1))
  1087. {
  1088. m_btTargetDir = DR_DOWNRIGHT;
  1089. return TRUE;
  1090. }
  1091. }
  1092. }
  1094. return FALSE;
  1095. }
  1097. BOOL CMonsterObject::TargetInSpitRange(int& nTargetDir)
  1098. {
  1099. int nX = 0, nY = 0;
  1101. if ((abs(m_pTargetObject->m_nCurrX - m_nCurrX) <= 2) && (abs(m_pTargetObject->m_nCurrY - m_nCurrY) <= 2))
  1102. {
  1103. nX = m_pTargetObject->m_nCurrX - m_nCurrX;
  1104. nY = m_pTargetObject->m_nCurrY - m_nCurrY;
  1106. if ((abs(nX) <= 1) && (abs(nY) <= 1))
  1107. {
  1108. TargetInAttackRange();
  1109. return TRUE;
  1110. }
  1111. else
  1112. {
  1113. nX += 2;
  1114. nY += 2;
  1116. if ((nX >= 0 && nX <= 4) && (nY >= 0 && nY <= 4))
  1117. {
  1118. nTargetDir = GetNextDirection(m_pTargetObject->m_nCurrX, m_pTargetObject->m_nCurrY);
  1120. if (g_SpitMap[nTargetDir][nX][nY] == 1)
  1121. return TRUE;
  1122. }
  1123. }
  1124. }
  1126. return FALSE;
  1127. }
  1129. BOOL CMonsterObject::Attack()
  1130. {
  1131. m_nDirection = (int)m_btTargetDir;
  1133. _Attack(CM_HIT, m_pTargetObject);
  1135. AddRefMsg(RM_HIT, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  1137. return TRUE;
  1138. }
  1140. BOOL CMonsterObject::AttackTarget()
  1141. {
  1142. if (m_pTargetObject)
  1143. {
  1144. if (TargetInAttackRange())
  1145. {
  1146. if (GetTickCount() - m_dwHitTime > m_dwNextHitTime)
  1147. {
  1148. m_dwHitTime = m_dwTargetFocusTime = GetTickCount();
  1150. Attack();
  1151. BreakHolySeize();
  1152. }
  1154. return TRUE;
  1155. }
  1156. else
  1157. {
  1158. if (m_pTargetObject->m_pMap == m_pMap)
  1159. {
  1160. m_nTargetX = m_pTargetObject->m_nCurrX;
  1161. m_nTargetY = m_pTargetObject->m_nCurrY;
  1162. }
  1163. else
  1164. {
  1165. m_pTargetObject = NULL;
  1167. m_nTargetX = -1;
  1168. m_nTargetY = -1;
  1169. }
  1170. }
  1171. }
  1173. return FALSE;
  1174. }
  1176. BOOL CMonsterObject::Think()
  1177. {
  1178. if (GetTickCount() - m_dwThinkTime > 3000)
  1179. {
  1180. m_dwThinkTime = GetTickCount();
  1182. if (m_pMap->GetDupCount(m_nCurrX, m_nCurrY) >= 2)
  1183. m_fDupMode = TRUE;
  1185. if (m_pTargetObject)
  1186. {
  1187. if (!IsProperTarget(m_pTargetObject))
  1188. m_pTargetObject = NULL;
  1189. }
  1190. }
  1192. if (m_fDupMode)
  1193. {
  1194. int nOldX = m_nCurrX;
  1195. int nOldY = m_nCurrY;
  1197. WalkTo(rand() % 8);
  1199. if (nOldX != m_nCurrX || nOldX != m_nCurrX)
  1200. {
  1201. m_fDupMode = FALSE;
  1202. return TRUE;
  1203. }
  1204. }
  1206. return FALSE;
  1207. }
  1209. void CMonsterObject::InheritedRun()
  1210. {
  1211. if (RestoreHealSpell())
  1212. Die();
  1214. CCharObject::Run();
  1215. }
  1217. void CMonsterObject::Run()
  1218. {
  1219. if (!m_fIsDead && !m_fHideMode && !m_fIsGhost && !m_fStoneMode && m_wStatusArr[POISON_STONE] == 0)
  1220. {
  1221. if (m_pTargetObject)
  1222. {
  1223. if ((GetTickCount() - m_dwTargetFocusTime > 30000) || m_pTargetObject->m_fIsDead || m_pTargetObject->m_fIsGhost ||
  1224. (abs(m_pTargetObject->m_nCurrX - m_nCurrX) > 15) || (abs(m_pTargetObject->m_nCurrY - m_nCurrY) > 15))
  1225. m_pTargetObject = NULL;
  1226. }
  1227. /*      if LastHiter <> nil then begin
  1228.          if (GetTickCount - LastHitTime > 30 * 1000) or
  1229.             (LastHiter.Death) or
  1230.             (LastHiter.BoGhost) then
  1231.              LastHiter := nil;
  1232.       end;
  1233.       if ExpHiter <> nil then begin
  1234.          if (GetTickCount - ExpHitTime > 6 * 1000) or
  1235.             (ExpHiter.Death) or
  1236.             (ExpHiter.BoGhost) then
  1237.              ExpHiter := nil;
  1238.       end;
  1239.       if Master <> nil then begin
  1240.          BoNoItem := TRUE;
  1241.          if (Master.Death and (GetTickCount - Master.DeathTime > 1000)) or
  1242.             (Master.BoGhost and (GetTickCount - Master.GhostTime > 1000)) then begin
  1243.             WAbil.HP := 0; //Die;
  1244.             //Master := nil;
  1245.          end;
  1246.       end;
  1247. */
  1248. if (m_fBoHolySeize)
  1249. {
  1250. if (GetTickCount() - m_dwHolySeizeStart > m_dwHolySeizeTime)
  1251. BreakHolySeize();
  1252. }
  1254. if (Think())
  1255. {
  1256. InheritedRun();
  1257. return;
  1258. }
  1260. if (GetTickCount() - m_dwWalkTime > m_dwNextWalkTime)
  1261. {
  1262. m_dwWalkTime = GetTickCount();
  1264. if (!m_fRunAwayMode)
  1265. {
  1266. if (!m_fNoAttackMode)
  1267. {
  1268. if (m_pTargetObject)
  1269. {
  1270. if (AttackTarget())
  1271. {
  1272. InheritedRun();
  1273. return;
  1274. }
  1275. }
  1276. else
  1277. {
  1278. m_nTargetX = -1;
  1280. if (m_fHasMission)
  1281. {
  1282. m_nTargetX = m_nMissionX;
  1283. m_nTargetY = m_nMissionY;
  1284. }
  1285. }
  1286. }
  1288. if (m_pMasterObject)
  1289. {
  1290. if (!m_pTargetObject)
  1291. {
  1292. int nX, nY;
  1294. m_pMasterObject->GetBackPosition(nX, nY);
  1296. if ((abs(m_nTargetX - nX) > 1) || (abs(m_nTargetY - nY) > 1))
  1297. {
  1298. m_nTargetX = nX;
  1299. m_nTargetY = nY;
  1301. if ((abs(m_nCurrX - nX) <= 2) || (abs(m_nCurrY - nY) <= 2))
  1302. {
  1303. if (m_pMap->GetObject(nX, nY))
  1304. {
  1305. m_nTargetX = m_nCurrX;
  1306. m_nTargetY = m_nCurrY;
  1307. }
  1308. }
  1309. }
  1310. }
  1312. /*               //林牢苞 呈公 冻绢廉 乐栏搁...
  1313.                if (not Master.BoSlaveRelax) and
  1314.                   ((PEnvir <> Master.PEnvir) or
  1315.                    (abs(CX-Master.CX) > 20) or
  1316.                    (abs(CY-Master.CY) > 20)
  1317.                   )
  1318.                then begin
  1319.                   SpaceMove (Master.PEnvir.MapName, TargetX, TargetY, 1);
  1320.                end;
  1321.             end; */
  1322. if ((abs(m_nCurrX - m_pMasterObject->m_nCurrX) > 20) || (abs(m_nCurrY - m_pMasterObject->m_nCurrY) > 20))
  1323. SpaceMove(m_nTargetX, m_nTargetY, m_pMasterObject->m_pMap);
  1324. }
  1326. }
  1327. else
  1328. {
  1329. if (m_dwRunAwayTime > 0)
  1330. {
  1331. if (GetTickCount() - m_dwRunAwayStart > m_dwRunAwayTime)
  1332. {
  1333. m_fRunAwayMode = FALSE;
  1334. m_dwRunAwayTime = 0;
  1335. }
  1336. }
  1337. }
  1339. /*         if Master <> nil then begin
  1340.             if Master.BoSlaveRelax then begin
  1341.                //林牢捞 绒侥窍扼绊 窃...
  1342.                inherited Run;
  1343.                exit;
  1344.             end;
  1345.          end;
  1346. */
  1347. if (m_nTargetX != -1 )
  1348. GotoTargetXY();
  1349. else
  1350. {
  1351. if (!m_pTargetObject)
  1352. Wondering();
  1353. }
  1354. }
  1355. }
  1357. InheritedRun();
  1358. }
  1360. void CMonsterObject::ComeOut()
  1361. {
  1362. m_fHideMode = FALSE;
  1363. AddRefMsg(RM_DIGUP, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  1364. }
  1366. void CMonsterObject::ComeDown()
  1367. {
  1368. AddRefMsg(RM_DIGDOWN, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  1370. CVisibleObject* pVisibleObject;
  1372. if (m_xVisibleObjectList.GetCount())
  1373. {
  1374. PLISTNODE pListNode = m_xVisibleObjectList.GetHead();
  1376. while (pListNode)
  1377. {
  1378. if (pVisibleObject = m_xVisibleObjectList.GetData(pListNode))
  1379. {
  1380. delete pVisibleObject;
  1381. pVisibleObject = NULL;
  1382. }
  1384. pListNode = m_xVisibleObjectList.RemoveNode(pListNode);
  1385. } // while (pListNode)
  1386. }
  1388. m_fHideMode = TRUE;
  1389. }
  1391. BOOL CMonsterObject::CheckComeOut(int nValue)
  1392. {
  1393. if (m_xVisibleObjectList.GetCount())
  1394. {
  1395. PLISTNODE pListNode = m_xVisibleObjectList.GetHead();
  1397. while (pListNode)
  1398. {
  1399. CVisibleObject* pVisibleObject = m_xVisibleObjectList.GetData(pListNode);
  1401. if (pVisibleObject)
  1402. {
  1403. if ((!pVisibleObject->pObject->m_fIsDead) && IsProperTarget(pVisibleObject->pObject) && (!pVisibleObject->pObject->m_fInspector))
  1404. {
  1405. if (abs(m_nCurrX - pVisibleObject->pObject->m_nCurrX) <= nValue && abs(m_nCurrY - pVisibleObject->pObject->m_nCurrY) <= nValue)
  1406. return TRUE;
  1407. }
  1408. }
  1410. pListNode = m_xVisibleObjectList.GetNext(pListNode);
  1411. }
  1412. }
  1414. return FALSE;
  1415. }
  1417. /* **************************************************************************************
  1419. 老馆 阁胶磐
  1421.    ************************************************************************************** */
  1423. void CGenneralMonObject::Run() 
  1424. { 
  1425. if (!m_fIsDead && !m_fIsGhost)
  1426. {
  1427. if ((GetTickCount() - m_dwSearchEnemyTime > 8000) || ((GetTickCount() - m_dwSearchEnemyTime > 1000) && !m_pTargetObject))
  1428. {
  1429. m_dwSearchEnemyTime = GetTickCount();
  1430. MonsterNormalAttack();
  1431. }
  1432. }
  1434. CMonsterObject::Run();
  1435. }
  1437. /* **************************************************************************************
  1439. 催
  1441.    ************************************************************************************** */
  1443. CChickenObject::CChickenObject()
  1444. {
  1445. m_nMeatQuality = 3000 + rand() % 2000;
  1446. m_nBodyLeathery = 50;
  1447. }
  1449. void CChickenObject::Run()
  1450. {
  1451. }
  1453. /* **************************************************************************************
  1455. 林付龋过, 林付脚厘
  1457.    ************************************************************************************** */
  1459. CScultureObject::CScultureObject()
  1460. {
  1461. m_dwSearchTick = 1500 + rand() % 1500;
  1463. m_fStoneMode = TRUE;
  1464. m_nCharStatusEx = STATE_STONE_MODE;
  1465. m_nCharStatus = GetCharStatus();
  1466. }
  1468. void CScultureObject::MeltStone()
  1469. {
  1470. m_nCharStatusEx = 0;
  1471. m_nCharStatus = GetCharStatus();
  1473. AddRefMsg(RM_DIGUP, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  1475. m_fStoneMode = FALSE;
  1476. }
  1478. void CScultureObject::MeltStoneAll()
  1479. {
  1480. CWHList<CCharObject*> ObjectList;
  1482. MeltStone();
  1484. m_pMap->GetMapObject(m_nCurrX, m_nCurrY, 7, &ObjectList);
  1486. if (ObjectList.GetCount())
  1487. {
  1488. PLISTNODE pListNode = ObjectList.GetHead();
  1489. CMonsterObject* pTargetObject;
  1491. while (pListNode)
  1492. {
  1493. if (pTargetObject = (CMonsterObject*)ObjectList.GetData(pListNode))
  1494. {
  1495. if (pTargetObject->m_fStoneMode)
  1496. {
  1497. if (pTargetObject->m_wObjectType & _OBJECT_MONSTER)
  1498. {
  1499. switch (pTargetObject->m_nRace)
  1500. {
  1501. case 145:
  1502. case 148:
  1503. ((CScultureObject*)pTargetObject)->MeltStone();
  1504. break;
  1505. }
  1506. }
  1507. }
  1508. }
  1510. pListNode = ObjectList.RemoveNode(pListNode);
  1511. }
  1512. }
  1513. }
  1515. void CScultureObject::Run()
  1516. {
  1517. if (!m_fIsDead && !m_fIsGhost && m_wStatusArr[POISON_STONE] == 0)
  1518. {
  1519. if (GetTickCount() - m_dwWalkTime > m_dwNextWalkTime)
  1520. {
  1521. if (m_fStoneMode)
  1522. {
  1523. if (CheckComeOut(2))
  1524. {
  1525. MeltStoneAll();
  1526. m_dwWalkTime = GetTickCount() + 2000;
  1527. }
  1528. }
  1529. else
  1530. {
  1531. if ((GetTickCount() - m_dwSearchEnemyTime > 8000) || ((GetTickCount() - m_dwSearchEnemyTime > 1000) && !m_pTargetObject))
  1532. {
  1533. m_dwSearchEnemyTime = GetTickCount();
  1534. MonsterNormalAttack();
  1535. }
  1536. }
  1537. }
  1538. }
  1540. CMonsterObject::Run();
  1541. }
  1543. /* **************************************************************************************
  1545. 林付空
  1547.    ************************************************************************************** */
  1549. CScultureKingObject::CScultureKingObject()
  1550. {
  1551. m_dwSearchTick = 1500 + rand() % 1500;
  1553. m_nDangerLevel = 5;
  1555. m_fStoneMode = TRUE;
  1556. m_nCharStatusEx = STATE_STONE_MODE;
  1557. m_nCharStatus = GetCharStatus();
  1559. m_nDirection = 5;
  1560. }
  1562. void CScultureKingObject::CallSlave()
  1563. {
  1564. static const int MaxSlaveList = 4;
  1565. static SlaveList[MaxSlaveList] = { 143/*付泵荤*/, 145/*林付脚厘*/, 148/* 林付龋过 */, 126/*禁扁唱规*/ };
  1567. int nCount = 6 + (rand() % 6);
  1568. int nMonRace;
  1569. int nX, nY;
  1570. CMonsterObject* pMonObject;
  1572. for (int i = 0; i < nCount; i++)
  1573. {
  1574. if (m_SlaveObjectList.GetCount() < 30)
  1575. {
  1576. nMonRace = SlaveList[rand() % MaxSlaveList];
  1578. GetFrontPosition(nX, nY);
  1580. pMonObject = (CMonsterObject*)AddCreatureSysop(nX, nY, &g_pMonRaceInfo[nMonRace], FALSE);
  1582. if (pMonObject)
  1583. m_SlaveObjectList.AddNewNode(pMonObject);
  1584. }
  1585. }
  1586. }
  1588. void CScultureKingObject::MeltStone()
  1589. {
  1590. m_nCharStatusEx = 0;
  1591. m_nCharStatus = GetCharStatus();
  1593. AddRefMsg(RM_DIGUP, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  1595. m_fStoneMode = FALSE;
  1597. //   event := TEvent.Create (PEnvir, CX, CY, ET_SCULPEICE, 5 * 60 * 1000, TRUE);
  1598. //   EventMan.AddEvent (event);
  1599. }
  1601. void CScultureKingObject::Run()
  1602. {
  1603. if (!m_fIsDead && !m_fIsGhost && m_wStatusArr[POISON_STONE] == 0)
  1604. {
  1605. if (GetTickCount() - m_dwWalkTime > m_dwNextWalkTime)
  1606. {
  1607. if (m_fStoneMode)
  1608. {
  1609. if (CheckComeOut(2))
  1610. {
  1611. MeltStone();
  1612. m_dwWalkTime = GetTickCount() + 2000;
  1613. }
  1614. }
  1615. else
  1616. {
  1617. if ((GetTickCount() - m_dwSearchEnemyTime > 8000) || ((GetTickCount() - m_dwSearchEnemyTime > 1000) && !m_pTargetObject))
  1618. {
  1619. m_dwSearchEnemyTime = GetTickCount();
  1620. MonsterNormalAttack();
  1621. }
  1623. if (((m_WAbility.HP / m_WAbility.MaxHP * 5) < m_nDangerLevel) && (m_nDangerLevel > 0))
  1624. {
  1625. m_nDangerLevel--;
  1626. CallSlave();
  1627. }
  1629. if (m_WAbility.HP == m_WAbility.MaxHP) 
  1630. m_nDangerLevel = 5;
  1631. }
  1632. }
  1634. if (m_SlaveObjectList.GetCount())
  1635. {
  1636. PLISTNODE pListNode = NULL;
  1637. CMonsterObject* pMonsterObject = NULL;
  1639. pListNode = m_SlaveObjectList.GetHead();
  1641. while (pListNode)
  1642. {
  1643. pMonsterObject = m_SlaveObjectList.GetData(pListNode);
  1645. if (pMonsterObject->m_fIsDead || pMonsterObject->m_fIsGhost)
  1646. pListNode = m_SlaveObjectList.RemoveNode(pListNode);
  1647. else
  1648. pListNode = m_SlaveObjectList.GetNext(pListNode);
  1649. }
  1650. }
  1651. }
  1653. CMonsterObject::Run();
  1654. }
  1656. /* **************************************************************************************
  1658. 厚阜盔面
  1660.    ************************************************************************************** */
  1662. CBeeQueen::CBeeQueen()
  1663. {
  1664. m_dwSearchTick = 2500 + rand() % 1500;
  1666. m_fStickMode = TRUE;
  1667. }
  1669. void CBeeQueen::MakeChildBee()
  1670. {
  1671. if (m_SlaveObjectList.GetCount() < 15)
  1672. {
  1673. AddRefMsg(RM_HIT, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  1674. AddDelayProcess(this, RM_ZEN_BEE, 0, 0, 0, 0, NULL, 500);
  1675. }
  1676. }
  1678. void CBeeQueen::Operate()
  1679. {
  1680. int nCount = m_DelayProcessQ.GetCount();
  1682. _LPTPROCESSMSG lpProcessMsg;
  1684. if (nCount)
  1685. {
  1686. for (int i = 0; i < nCount; i++)
  1687. {
  1688. lpProcessMsg = (_LPTPROCESSMSG)m_DelayProcessQ.PopQ();
  1690. if (lpProcessMsg)
  1691. {
  1692. if (GetTickCount() < lpProcessMsg->dwDeliveryTime)
  1693. {
  1694. m_DelayProcessQ.PushQ((BYTE *)lpProcessMsg);
  1695. continue;
  1696. }
  1698. switch (lpProcessMsg->wIdent)
  1699. {
  1700. case RM_ZEN_BEE:
  1701. {
  1702. CMonsterObject *pMonObject = (CMonsterObject *)AddCreatureSysop(m_nCurrX, m_nCurrY, &g_pMonRaceInfo[_MONSTER_BEE], FALSE);
  1704. if (pMonObject)
  1705. {
  1706. m_SlaveObjectList.AddNewNode(pMonObject);
  1707. pMonObject->SelectTarget(m_pTargetObject);
  1708. }
  1710. break;
  1711. }
  1712. }
  1714. delete lpProcessMsg;
  1715. lpProcessMsg = NULL;
  1716. }
  1717. }
  1718. }
  1720. CMonsterObject::Operate();
  1721. }
  1723. void CBeeQueen::Run()
  1724. {
  1725. if (!m_fIsDead && !m_fIsGhost && m_wStatusArr[POISON_STONE] == 0)
  1726. {
  1727. if (GetTickCount() - m_dwWalkTime > m_dwNextWalkTime)
  1728. {
  1729. m_dwWalkTime = GetTickCount();
  1731. if (GetTickCount() - m_dwHitTime > m_dwNextHitTime)
  1732. {
  1733. m_dwHitTime = GetTickCount();
  1734. MonsterNormalAttack();
  1736. if (m_pTargetObject)
  1737. MakeChildBee();
  1738. }
  1739. }
  1741. if (m_SlaveObjectList.GetCount())
  1742. {
  1743. PLISTNODE pListNode = NULL;
  1744. CMonsterObject* pMonsterObject = NULL;
  1746. pListNode = m_SlaveObjectList.GetHead();
  1748. while (pListNode)
  1749. {
  1750. pMonsterObject = m_SlaveObjectList.GetData(pListNode);
  1752. if (pMonsterObject->m_fIsDead || pMonsterObject->m_fIsGhost)
  1753. pListNode = m_SlaveObjectList.RemoveNode(pListNode);
  1754. else
  1755. pListNode = m_SlaveObjectList.GetNext(pListNode);
  1756. }
  1757. }
  1758. }
  1760. CMonsterObject::Run();
  1761. }
  1763. /* **************************************************************************************
  1765. 街档尝 秦榜, 付泵荤
  1767.    ************************************************************************************** */
  1769. CDualAxeObject::CDualAxeObject(int nChainShotCount)
  1770. {
  1771.    m_nChainShot = 0;
  1772.    m_nChainShotCount = nChainShotCount;
  1773. }
  1775. void CDualAxeObject::FlyAxeAttack(CCharObject* pTargetObject)
  1776. {
  1777. //   if PEnvir.CanFly (CX, CY, targ.CX, targ.CY) then begin //档尝啊 朝酒哎荐 乐绰瘤.
  1778. int nDamage;
  1779. int nDir = GetNextDirection(pTargetObject->m_nCurrX, pTargetObject->m_nCurrY);
  1781. if ((HIBYTE(m_WAbility.DC) - LOBYTE(m_WAbility.DC) + 1) > 0)
  1782. nDamage = LOBYTE(m_WAbility.DC) + rand() % (HIBYTE(m_WAbility.DC) - LOBYTE(m_WAbility.DC) + 1);
  1783. else
  1784. nDamage = LOBYTE(m_WAbility.DC);
  1786. if (nDamage > 0)
  1787. nDamage = pTargetObject->GetHitStruckDamage(nDamage);
  1789. if (nDamage > 0)
  1790. {
  1791. pTargetObject->StruckDamage(nDamage);
  1792. pTargetObject->AddDelayProcess(pTargetObject, RM_STRUCK, nDamage, pTargetObject->m_WAbility.HP, pTargetObject->m_WAbility.MaxHP, 
  1793. (int)this /*Hitter*/, NULL, 600 + _MAX(abs(m_nCurrX - pTargetObject->m_nCurrX), abs(m_nCurrY - pTargetObject->m_nCurrY) * 50));
  1794. }
  1796. AddRefMsg(RM_FLYAXE, nDir, m_nCurrX, m_nCurrY, (int)pTargetObject, NULL);
  1797. }
  1799. BOOL CDualAxeObject::AttackTarget()
  1800. {
  1801. if (m_pTargetObject)
  1802. {
  1803. if (GetTickCount() - m_dwHitTime > m_dwNextHitTime)
  1804. {
  1805. m_dwHitTime = GetTickCount();
  1807. if ((abs(m_nCurrX - m_pTargetObject->m_nCurrX) <= 7) && (abs(m_nCurrY - m_pTargetObject->m_nCurrY) <= 7))
  1808. {
  1809. if (m_nChainShot < m_nChainShotCount - 1)
  1810. {
  1811. m_nChainShot++;
  1812. m_dwTargetFocusTime = GetTickCount();
  1813. FlyAxeAttack(m_pTargetObject);
  1814. }
  1815. else
  1816. {
  1817. if ((rand() % 5) == 0)
  1818. m_nChainShot = 0;
  1819. }
  1821. return TRUE;
  1822. }
  1823. else
  1824. {
  1825. if (m_pTargetObject->m_pMap == m_pMap)
  1826. {
  1827. m_nTargetX = m_pTargetObject->m_nCurrX;
  1828. m_nTargetY = m_pTargetObject->m_nCurrY;
  1829. }
  1830. else
  1831. {
  1832. m_pTargetObject = NULL;
  1834. m_nTargetX = -1;
  1835. m_nTargetY = -1;
  1836. }
  1837. }
  1838. }
  1839. }
  1841. return FALSE;
  1842. }
  1844. void CDualAxeObject::Run()
  1845. {
  1846. if (!m_fIsDead && !m_fIsGhost)
  1847. {
  1848. if ((GetTickCount() - m_dwSearchEnemyTime > 5000))
  1849. {
  1850. m_dwSearchEnemyTime = GetTickCount();
  1851. MonsterNormalAttack();
  1852. }
  1854. if (GetTickCount() - m_dwWalkTime > m_dwNextWalkTime)
  1855. {
  1856. // 档噶啊绰 内靛 眠啊
  1857. }
  1858. }
  1860. CMonsterObject::Run();
  1861. }
  1863. /* **************************************************************************************
  1865. 扼捞飘醋 粱厚
  1867.    ************************************************************************************** */
  1869. void CLightingZombiObject::LightingAttack(int nDir)
  1870. {
  1871. int nSX, nSY, nTX, nTY;
  1872. int nPwr;
  1874. m_nDirection = nDir;
  1876. AddRefMsg(RM_LIGHTING, 1, m_nCurrX, m_nCurrY, (int)m_pTargetObject, NULL);
  1878. if (GetNextPosition(nDir, 1, nSX, nSY))
  1879. {
  1880. GetNextPosition(nDir, 1, nTX, nTY);
  1881. nPwr = LOBYTE(m_WAbility.DC) + rand() % HIBYTE(m_WAbility.DC) - LOBYTE(m_WAbility.DC) + 1;
  1882. MagPassThroughMagic(nSX, nSY, nTX, nTY, nDir, nPwr, TRUE);
  1884. BreakHolySeize();
  1885. }
  1886. }
  1888. void CLightingZombiObject::Run()
  1889. {
  1890. if (!m_fIsDead && !m_fIsGhost && m_wStatusArr[POISON_STONE] == 0)
  1891. {
  1892. if ((GetTickCount() - m_dwSearchEnemyTime > 8000) || ((GetTickCount() - m_dwSearchEnemyTime > 1000) && !m_pTargetObject))
  1893. {
  1894. m_dwSearchEnemyTime = GetTickCount();
  1895. MonsterNormalAttack();
  1896. }
  1898. if (GetTickCount() - m_dwWalkTime > m_dwNextWalkTime)
  1899. {
  1900. if (m_pTargetObject)
  1901. {
  1902. if ((abs(m_nCurrX - m_pTargetObject->m_nCurrX) <= 4) && (abs(m_nCurrY - m_pTargetObject->m_nCurrY) <= 4))
  1903. {
  1904. if ((abs(m_nCurrX - m_pTargetObject->m_nCurrX) <= 2) && (abs(m_nCurrY - m_pTargetObject->m_nCurrY) <= 2))
  1905. {
  1906. if (rand() % 3 != 0)
  1907. {
  1908. CMonsterObject::Run();
  1909. return;
  1910. }
  1911. }
  1913. GetBackPosition(m_nTargetX, m_nTargetY);
  1914. }
  1915. }
  1916. }
  1918. if (m_pTargetObject)
  1919. {
  1920. if ((abs(m_nCurrX - m_pTargetObject->m_nCurrX) < 6) && (abs(m_nCurrY - m_pTargetObject->m_nCurrY) < 6))
  1921. {
  1922. if (GetTickCount() - m_dwHitTime > m_dwNextHitTime)
  1923. {
  1924. m_dwHitTime = GetTickCount();
  1925. LightingAttack(GetNextDirection(m_pTargetObject->m_nCurrX, m_pTargetObject->m_nCurrY));
  1926. }
  1927. }
  1928. }
  1929. }
  1931. CMonsterObject::Run();
  1932. }
  1934. /* **************************************************************************************
  1936. 沸
  1938.    ************************************************************************************** */
  1940. void CRonObject::AroundAttack()
  1941. {
  1942. CWHList<CCharObject*> xTargetList;
  1944. m_nDirection = (int)m_btTargetDir;
  1946. m_pMap->GetMapObject(m_nCurrX, m_nCurrY, 1, &xTargetList);
  1948. if (xTargetList.GetCount())
  1949. {
  1950. PLISTNODE pListNode = xTargetList.GetHead();
  1951. CCharObject* pTargetObject;
  1953. while (pListNode)
  1954. {
  1955. if (pTargetObject = xTargetList.GetData(pListNode))
  1956. _Attack(CM_HIT, pTargetObject);
  1958. pListNode = xTargetList.RemoveNode(pListNode);
  1959. }
  1960. }
  1962. AddRefMsg(RM_HIT, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  1963. }
  1965. void CRonObject::Run()
  1966. {  
  1967. if (!m_fIsDead && !m_fIsGhost && m_wStatusArr[POISON_STONE] == 0)
  1968. {
  1969. if ((GetTickCount() - m_dwSearchEnemyTime > 8000) || ((GetTickCount() - m_dwSearchEnemyTime > 1000) && !m_pTargetObject))
  1970. {
  1971. m_dwSearchEnemyTime = GetTickCount();
  1972. MonsterNormalAttack();
  1973. }
  1975. if (m_pTargetObject)
  1976. {
  1977. if ((abs(m_nCurrX - m_pTargetObject->m_nCurrX) < 6) && (abs(m_nCurrY - m_pTargetObject->m_nCurrY) < 6))
  1978. {
  1979. if (GetTickCount() - m_dwHitTime > m_dwNextHitTime)
  1980. {
  1981. m_dwHitTime = GetTickCount();
  1982. AroundAttack();
  1983. }
  1984. }
  1985. }
  1986. }
  1988. CMonsterObject::Run();
  1989. }
  1991. /* **************************************************************************************
  1993. 窍鞭 穿付
  1995.    ************************************************************************************** */
  1997. void CMinorNumaObject::Run()
  1998. {  
  1999. if (!m_fIsDead)
  2000. {
  2001. if ((GetTickCount() - m_dwSearchEnemyTime > 8000) || ((GetTickCount() - m_dwSearchEnemyTime > 1000) && !m_pTargetObject))
  2002. {
  2003. m_dwSearchEnemyTime = GetTickCount();
  2004. MonsterNormalAttack();
  2005. }
  2006. }
  2008. CMonsterObject::Run();
  2009. }
  2011. /* **************************************************************************************
  2013. 坷付 矫府令 
  2015.    ************************************************************************************** */
  2017. void COmaObject::Run()
  2018. {  
  2019. if (!m_fIsDead && !m_fIsGhost)
  2020. {
  2021. if ((GetTickCount() - m_dwSearchEnemyTime > 8000) || ((GetTickCount() - m_dwSearchEnemyTime > 1000) && !m_pTargetObject))
  2022. {
  2023. m_dwSearchEnemyTime = GetTickCount();
  2024. MonsterNormalAttack();
  2025. }
  2026. }
  2028. CMonsterObject::Run();
  2029. }
  2031. /* **************************************************************************************
  2033. 榜伐(籍厘牢)
  2035.    ************************************************************************************** */
  2037. CRockManObject::CRockManObject()
  2038. {
  2039. // m_dwSearchTick = 2500 + rand() % 1500;
  2040. // m_dwSearchTime = GetTickCount();
  2042. m_fHideMode = TRUE;
  2043. }
  2045. void CRockManObject::Run()
  2046. {  
  2047. if (!m_fIsDead && !m_fIsGhost)
  2048. {
  2049. if (m_fHideMode)
  2050. {
  2051. if (CheckComeOut(8))
  2052. ComeOut();
  2054. m_dwWalkTime = GetTickCount() + 1000;
  2055. }
  2056. else
  2057. {
  2058. if ((GetTickCount() - m_dwSearchEnemyTime > 8000) || ((GetTickCount() - m_dwSearchEnemyTime > 1000) && !m_pTargetObject))
  2059. {
  2060. m_dwSearchEnemyTime = GetTickCount();
  2061. MonsterNormalAttack();
  2063. if (!m_pTargetObject)
  2064. ComeDown();
  2065. }
  2066. }
  2067. }
  2069. CMonsterObject::Run();
  2070. }
  2072. /* **************************************************************************************
  2074. 侥牢檬
  2076.    ************************************************************************************** */
  2078. CStickObject::CStickObject()
  2079. {
  2080. m_dwSearchTick = 2500 + rand() % 1500;
  2082. m_fHideMode = TRUE;
  2083. }
  2085. void CStickObject::Run()
  2086. {  
  2087. if (!m_fIsDead && !m_fIsGhost)
  2088. {
  2089. if (GetTickCount() - m_dwWalkTime > m_dwNextWalkTime)
  2090. {
  2091. m_dwWalkTime = GetTickCount();
  2093. if (m_fHideMode)
  2094. {
  2095. if (CheckComeOut(4))
  2096. ComeOut();
  2097. }
  2098. else
  2099. {
  2100. if (m_pTargetObject)
  2101. {
  2102. if (abs(m_nCurrX - m_pTargetObject->m_nCurrX) > 4 &&  abs(m_nCurrY - m_pTargetObject->m_nCurrY) > 4)
  2103. {
  2104. ComeDown();
  2105. return;
  2106. }
  2107. }
  2109. if (GetTickCount() - m_dwHitTime > m_dwNextHitTime)
  2110. MonsterNormalAttack();
  2112. if (!m_fHideMode)
  2113. {
  2114. if (AttackTarget())
  2115. CMonsterObject::Run();
  2116. }
  2117. }
  2118. }
  2119. }
  2121. CMonsterObject::Run();
  2122. }
  2124. /* **************************************************************************************
  2126. 葛贰 鲍拱(荤锄)
  2128.    ************************************************************************************** */
  2130. CSandMobObject::CSandMobObject()
  2131. {
  2132. m_fHideMode = TRUE;
  2133. }
  2135. void CSandMobObject::Run()
  2136. {  
  2137. if (!m_fIsDead && !m_fIsGhost)
  2138. {
  2139. if (GetTickCount() - m_dwWalkTime > m_dwNextWalkTime)
  2140. {
  2141. m_dwWalkTime = GetTickCount();
  2143. if (m_fHideMode)
  2144. {
  2145. if ((m_WAbility.HP > (m_WAbility.MaxHP / 20) && CheckComeOut(8)))
  2146. m_dwAppearStart = GetTickCount();
  2147. }
  2148. else
  2149. {
  2150. if ((m_WAbility.HP > 0) && (m_WAbility.HP < (m_WAbility.MaxHP / 20)) && (GetTickCount() - m_dwAppearStart > 3000))
  2151. ComeDown();
  2152. else if (m_pTargetObject)
  2153. {
  2154. if (abs(m_nCurrX - m_pTargetObject->m_nCurrX) > 15 &&  abs(m_nCurrY - m_pTargetObject->m_nCurrY) > 15)
  2155. {
  2156. ComeDown();
  2157. return;
  2158. }
  2159. }
  2161. if (GetTickCount() - m_dwHitTime > m_dwNextHitTime)
  2162. MonsterNormalAttack();
  2164. if (!m_fHideMode)
  2165. {
  2166. if (AttackTarget())
  2167. {
  2168. CMonsterObject::Run();
  2169. }
  2170. }
  2171. }
  2172. }
  2173. }
  2175. CMonsterObject::Run();
  2176. }
  2178. /* **************************************************************************************
  2180. 归榜
  2182.    ************************************************************************************** */
  2184. CWhiteSkeleton::CWhiteSkeleton()
  2185. {
  2186. // m_dwSearchTick = 2500 + rand() % 1500;
  2187. // m_dwSearchTime = GetTickCount();
  2188. m_fIsFirst = TRUE;
  2189. m_fHideMode = TRUE;
  2190. }
  2192. void CWhiteSkeleton::ResetSkeleton()
  2193. {
  2194. //   NextHitTime := 3000 - (SlaveMakeLevel * 600);
  2195. //   NextWalkTime := 1200 - (SlaveMakeLevel * 250);
  2196. m_dwWalkTime = GetTickCount() + 2000;
  2197. }
  2199. void CWhiteSkeleton::Run()
  2200. {  
  2201. if (m_fIsFirst)
  2202. {
  2203. m_fIsFirst = FALSE;
  2204. m_nDirection = 5;
  2205. m_fHideMode = FALSE;
  2206. AddRefMsg(RM_DIGUP, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  2207. ResetSkeleton();
  2208. }
  2210. CGenneralMonObject::Run();
  2211. }
  2213. /* **************************************************************************************
  2215. 脚荐 (锅脚傈)
  2217.    ************************************************************************************** */
  2219. CElfMonster::CElfMonster()
  2220. {
  2221. m_fNoAttackMode = TRUE;
  2222. m_fIsFirst = TRUE;
  2223. m_fHideMode = TRUE;
  2224. }
  2226. void CElfMonster::ResetElfMon()
  2227. {
  2228. //   NextHitTime := 3000 - (SlaveMakeLevel * 600);
  2229. //   NextWalkTime := 1200 - (SlaveMakeLevel * 250);
  2230. m_dwWalkTime = GetTickCount() + 2000;
  2231. }
  2233. void CElfMonster::AppearNow()
  2234. {
  2235. m_fIsFirst = FALSE;
  2236. m_fHideMode = FALSE;
  2238. m_dwWalkTime = GetTickCount() + 800;
  2239. /*procedure TElfMonster.AppearNow;
  2240. begin
  2241.    bofirst := FALSE;
  2242.    HideMode := FALSE;
  2243.    //SendRefMsg (RM_TURN, Dir, CX, CY, 0, '');
  2244.    //Appear;
  2245.    //ResetElfMon;
  2246.    RecalcAbilitys;
  2247.    WalkTime := WalkTime + 800; //函脚饶 距埃 掉饭捞 乐澜
  2248. end;
  2249. */
  2250. }
  2252. void CElfMonster::Run()
  2253. {  
  2254. if (m_fIsFirst)
  2255. {
  2256. m_fIsFirst = FALSE;
  2257. m_fHideMode = FALSE;
  2258. AddRefMsg(RM_DIGUP, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  2259. ResetElfMon();
  2260. }
  2262. if (m_fIsDead)
  2263. {
  2264. if (GetTickCount() - m_dwDeathTime > 2 * 1000)
  2265. MakeGhost();
  2266. }
  2267. else
  2268. {
  2269. BOOL fChangeFace = FALSE;
  2271. if (m_pTargetObject)
  2272. fChangeFace = TRUE;
  2274. if (m_pMasterObject)
  2275. {
  2276. if (m_pMasterObject->m_pTargetObject)// || m_pMasterObject->m_pLastHiter)
  2277. fChangeFace = TRUE;
  2278. }
  2280. if (fChangeFace)
  2281. {
  2282. CElfWarriorMonster* pElfWarriorMon = dynamic_cast<CElfWarriorMonster*>(MakeClone(_MONSTER_ELFWARRIOR));
  2284. if (pElfWarriorMon)
  2285. pElfWarriorMon->AppearNow();
  2287. m_pMasterObject = NULL;
  2288. KickException();
  2290. return;
  2291. }
  2292. }
  2294. CMonsterObject::Run();
  2295. }
  2297. /* **************************************************************************************
  2299. 脚荐 (函脚饶)
  2301.    ************************************************************************************** */
  2303. CElfWarriorMonster::CElfWarriorMonster()
  2304. {
  2305. m_fIsFirst = TRUE;
  2306. }
  2308. void CElfWarriorMonster::ResetElfMon()
  2309. {
  2310. //   NextHitTime := 3000 - (SlaveMakeLevel * 600);
  2311. //   NextWalkTime := 1200 - (SlaveMakeLevel * 250);
  2312. m_dwWalkTime = GetTickCount() + 2000;
  2313. }
  2315. void CElfWarriorMonster::AppearNow()
  2316. {
  2317. m_fIsFirst = FALSE;
  2318. m_fHideMode = FALSE;
  2320. AddRefMsg(RM_DIGUP, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  2322. m_dwWalkTime = GetTickCount() + 800;
  2323. /*procedure TElfMonster.AppearNow;
  2324. begin
  2325.    bofirst := FALSE;
  2326.    HideMode := FALSE;
  2327.    //SendRefMsg (RM_TURN, Dir, CX, CY, 0, '');
  2328.    //Appear;
  2329.    //ResetElfMon;
  2330.    RecalcAbilitys;
  2331.    WalkTime := WalkTime + 800; //函脚饶 距埃 掉饭捞 乐澜
  2332. end;
  2333. */
  2334. }
  2336. void CElfWarriorMonster::Run()
  2337. {  
  2338. if (m_fIsFirst)
  2339. {
  2340. m_fIsFirst = FALSE;
  2341. m_fHideMode = FALSE;
  2342. AddRefMsg(RM_DIGUP, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  2343. ResetElfMon();
  2344. }
  2346. if (m_fIsDead)
  2347. {
  2348. if (GetTickCount() - m_dwDeathTime > 2 * 1000)
  2349. MakeGhost();
  2350. }
  2351. else
  2352. {
  2353. BOOL fChangeFace = TRUE;
  2355. if (m_pTargetObject)
  2356. fChangeFace = FALSE;
  2358. if (m_pMasterObject)
  2359. {
  2360. if (m_pMasterObject->m_pTargetObject)// || m_pMasterObject->m_pLastHiter)
  2361. fChangeFace = FALSE;
  2362. }
  2364. if (fChangeFace)
  2365. {
  2366. CElfMonster* pElfMon = dynamic_cast<CElfMonster*>(MakeClone(_MONSTER_ELFMONSTER));
  2368. if (pElfMon)
  2369. {
  2370. AddRefMsg(RM_DIGDOWN, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  2371. AddRefMsg(RM_CHANGEFACE, 0, (int)this, (int)pElfMon, 0, NULL);
  2373. pElfMon->AppearNow();
  2374. }
  2376. m_pMasterObject = NULL;
  2377. KickException();
  2378. }
  2379. }
  2381. CGenneralMonObject::Run();
  2382. }
  2384. /* **************************************************************************************
  2386. 魔芭固
  2388.    ************************************************************************************** */
  2390. CSpitSpiderMonster::CSpitSpiderMonster()
  2391. {
  2392. }
  2394. void CSpitSpiderMonster::SpitAttack(int nDir)
  2395. {
  2396. int nDamage;
  2397. int nX, nY;
  2399. m_nDirection = nDir;
  2401. if (HIBYTE(m_WAbility.DC) - LOBYTE(m_WAbility.DC) + 1)
  2402. nDamage = LOBYTE(m_WAbility.DC) + rand() % (HIBYTE(m_WAbility.DC) - LOBYTE(m_WAbility.DC) + 1);
  2403. else
  2404. nDamage = LOBYTE(m_WAbility.DC);
  2406. if (nDamage <= 0) return;
  2408. AddRefMsg(RM_HIT, m_nDirection, m_nCurrX, m_nCurrY, 0, NULL);
  2410. for (int i = 0; i < 4; i++)
  2411. {
  2412. for (int k = 0; k < 4; k++)
  2413. {
  2414. if (g_SpitMap[nDir][i][k] == 1)
  2415. {
  2416. nX = m_nCurrX - 2 + k;
  2417. nY = m_nCurrY - 2 + i;
  2419. CCharObject* pCharObject = m_pMap->GetObject(nX, nY);
  2421. if (pCharObject && pCharObject != this)
  2422. {
  2423. if (IsProperTarget(pCharObject))
  2424. {
  2425. if (pCharObject->m_btSpeedPoint)
  2426. {
  2427. if (rand() % pCharObject->m_btSpeedPoint < m_btHitPoint)
  2428. {
  2429. nDamage = GetMagStruckDamage(nDamage);
  2431. if (nDamage > 0)
  2432. {
  2433. pCharObject->StruckDamage(nDamage);
  2434. pCharObject->AddDelayProcess(pCharObject, RM_STRUCK, nDamage, pCharObject->m_WAbility.HP, 
  2435. pCharObject->m_WAbility.MaxHP, (int)this, NULL, 300);
  2437. /*                        if BoUsePoison then begin
  2438.                            //眉仿捞 皑家窍绰 刀俊 吝刀 等促.
  2439.                            if Random(20 + cret.AntiPoison) = 0 then
  2440.                               cret.MakePoison (POISON_DECHEALTH, 30, 1);   //眉仿捞 皑家
  2441.                            //if Random(2) = 0 then
  2442.                            //   cret.MakePoison (POISON_STONE, 5);   //付厚
  2443.                         end; */
  2445. }
  2446. }
  2447. }
  2448. }
  2449. }
  2450. }
  2451. }
  2452. }
  2453. }
  2455. BOOL CSpitSpiderMonster::AttackTarget()
  2456. {
  2457. int nTargetDir;
  2459. if (m_pTargetObject)
  2460. {
  2461. if (TargetInSpitRange(nTargetDir))
  2462. {
  2463. if (GetTickCount() - m_dwHitTime > m_dwNextHitTime)
  2464. {
  2465. m_dwHitTime = GetTickCount();
  2466. m_dwTargetFocusTime = GetTickCount();
  2467. SpitAttack(nTargetDir);
  2468. BreakHolySeize();
  2469. }
  2471. return TRUE;
  2472. }
  2473. else
  2474. {
  2475. if (m_pTargetObject->m_pMap != m_pMap)
  2476. {
  2477. m_nTargetX = m_pTargetObject->m_nCurrX;
  2478. m_nTargetY = m_pTargetObject->m_nCurrY;
  2479. }
  2480. else
  2481. {
  2482. m_pTargetObject = NULL;
  2484. m_nTargetX = -1;
  2485. m_nTargetY = -1;
  2486. }
  2487. }
  2488. }
  2490. return FALSE;
  2491. }