home *** CD-ROM | disk | FTP | other *** search
/ PC Player 2000 December / PCP_12_2000B.iso / bg2demo / data1.cab / hd0_scripts / Text / ranged.baf < prev    next >
Encoding:
Text File  |  2000-09-22  |  1.2 KB  |  57 lines
  1. // * Date Created: Mar 21, 2000.
  2. // * Brent Knowles
  3. // * A ranged weapon script.  Attempts to stay out of melee ranged with opponents,
  4. // * Although will switch to melee weapons if needed.
  5.  
  6.  
  7. //*combat*
  8. IF
  9.     ActionListEmpty()
  10.     AttackedBy([ANYONE],DEFAULT)
  11.     Range(LastAttackerOf(Myself),4)
  12. THEN
  13.     RESPONSE #100
  14.         EquipMostDamagingMelee()
  15.         AttackReevaluate(LastAttackerOf(Myself),30)
  16. END
  17.  
  18. IF
  19.     ActionListEmpty()
  20.     See(NearestEnemyOf(Myself))
  21.     !Range(NearestEnemyOf(Myself),4)
  22.     Range(NearestEnemyOf(Myself),10)
  23. THEN
  24.     RESPONSE #100
  25.         RunAwayFrom(NearestEnemyOf(Myself),45)
  26. END
  27.  
  28. IF
  29.     ActionListEmpty()
  30.     See(NearestEnemyOf(Myself))
  31.     !Range(NearestEnemyOf(Myself),10)
  32. THEN
  33.     RESPONSE #100
  34.         EquipRanged()
  35.         AttackReevaluate(NearestEnemyOf(Myself),30)
  36. END
  37.  
  38. IF
  39.     ActionListEmpty()
  40.     See(NearestEnemyOf(Myself))
  41.     Range(NearestEnemyOf(Myself),4)
  42. THEN
  43.     RESPONSE #100
  44.         EquipMostDamagingMelee()
  45.         AttackReevaluate(NearestEnemyOf(Myself),30)
  46. END
  47.  
  48. IF
  49.     ActionListEmpty()
  50.     See(NearestEnemyOf(Myself))
  51.     !Range(NearestEnemyOf(Myself),4)
  52. THEN
  53.     RESPONSE #100
  54.         EquipRanged()
  55.         EquipMostDamagingMelee()
  56.         AttackReevaluate(NearestEnemyOf(Myself),30)
  57. END