Borg update

**s0be** · September 27, 2008, 01:12

and, because I'm bored...

Code:

egrep -re "^[a-l]\).*\[([0-9]*),-\1\]" * \
 | sed -re "s:^\w+\.map\:.\)(.*):\1:" \ 
 | sort | uniq -c | sort -r
     96  a Cloak [1,-1]
     27  a Pair of Hard Leather Boots [3,-3]
     23  a Set of Gauntlets [2,-2]
     19  a Set of Leather Gloves [1,-1]
     15  a Pair of Soft Leather Boots [2,-2]
     12  a Pair of Metal Shod Boots [6,-6]
     11  a Small Leather Shield [2,-2]
     11  a Hard Leather Cap [2,-2]
     10  an Iron Helm [5,-5]
      9  a Small Metal Shield [3,-3]
      7  a Large Leather Shield [4,-4]
      6  a Set of Leather Gloves of Free Action [1,-1]
      6  a Metal Cap [3,-3]
      5  a Hard Leather Cap of Light [2,-2]
      3  a Small Leather Shield of Resist Fire [2,-2]
      3  a Set of Cesti [5,-5]
      3  a Pair of Hard Leather Boots of Free Action [3,-3]
      3  a Metal Cap of Wisdom [3,-3] (+2)
      2  a Small Leather Shield of Resist Lightning [2,-2]
      2  a Set of Leather Gloves of Agility [1,-1] (+5)
      2  a Set of Leather Gloves of Agility [1,-1] (+2)
      2  a Robe [2,-2]
      2  a Metal Cap of Seeing [3,-3] (+1 to searching)
      2  a Large Metal Shield [5,-5]
      2  a Hard Leather Cap of Intelligence [2,-2] (+1)
      2  Soft Studded Leather [5,-5]
      2  Soft Leather Armour [4,-4]
      2  Hard Leather Armour (-1) [6,-6]
      1  an Iron Helm of Seeing [5,-5] (+3 to searching)
      1  an Iron Helm of Regeneration [5,-5]
      1  a Steel Helm [6,-6]
      1  a Small Metal Shield of Resist Cold [3,-3]
      1  a Shadow Cloak [6,-6]
      1  a Set of Leather Gloves of Slaying (+1,+1) [1,-1]
      1  a Set of Leather Gloves of Slaying (+0,+0) [1,-1]
      1  a Set of Leather Gloves of Power (+1,+5) [1,-1] (+1)
      1  a Set of Leather Gloves of Agility [1,-1] (+4)
      1  a Set of Leather Gloves of Agility [1,-1] (+1)
      1  a Set of Gauntlets of Agility [2,-2] (+3)
      1  a Set of Gauntlets of Agility [2,-2] (+2)
      1  a Set of Cesti of Free Action [5,-5]
      1  a Robe of Resist Lightning [2,-2]
      1  a Pair of Soft Leather Boots of Speed [2,-2] (+4)
      1  a Pair of Soft Leather Boots of Slow Descent [2,-2]
      1  a Pair of Soft Leather Boots of Free Action [2,-2]
      1  a Pair of Metal Shod Boots of Free Action [6,-6]
      1  a Pair of Hard Leather Boots of Stealth [3,-3] (+3)
      1  a Metal Cap of Seeing [3,-3] (+4 to searching)
      1  a Large Leather Shield of Resist Lightning [4,-4]
      1  a Large Leather Shield of Resist Cold [4,-4]
      1  a Hard Leather Cap of Telepathy [2,-2]
      1  a Hard Leather Cap of Seeing [2,-2] (+5 to searching)
      1  a Hard Leather Cap of Seeing [2,-2] (+2 to searching)
      1  a Hard Leather Cap of Intelligence [2,-2] (+2)
      1  a Filthy Rag of Resist Fire [1,-1]
      1  a Cloak of Stealth [1,-1] (+2 to stealth)
      1  Soft Studded Leather of Resist Fire [5,-5]
      1  Soft Studded Leather of Resist Cold [5,-5]
      1  Soft Leather Armour of Resist Lightning [4,-4]
      1  Soft Leather Armour of Resist Fire [4,-4]
      1  Chain Mail (-2) [14,-14]

**flechette** · September 28, 2008, 06:32

I've limited my borgs to playing Priests only for the time being, since eventually if they do well they'll enchant their own items back up, then will replace them when they're positive again. If I see them wearing negative bonus items I'll 'd'rop them and re-activate the borg.

I had a borg today with 6,-6 metal shod boots on, and a pair of +10 speed boots in the house. Something is really wrong here.

Also, I see a lot of low level borgs trying to tunnel when there's no apparent reason to do so.

And yeah, no borg should melee Death Molds unless they have a source of Disenchant resist. :P I see warriors run around with artifacts at negative or low enchants. Seeing a (+2,+3) on Ringil is a sad sight.

**s0be** · September 30, 2008, 23:02

has the borg home been relocated? itctel.com/~apwhite is MIA.

**flechette** · September 30, 2008, 23:17

http://www.itctel.com/~apwhite/andrew.html is what I've always used. Odd though. Hopefully he's moving sites? X|

**APWhite** · October 1, 2008, 03:11

No worries. I am not going anywhere. Must be a problem with the server. I will call the phone company and see what the scoop is. Try back tomorrow or the next day.
APWhite

**APWhite** · October 1, 2008, 03:19

Originally posted by s0be

I'm up to 610 entries in borg.dat (no winners). I have seen a lot of deaths due to the [1,-1] bug where the borg has {special} cloaks in home but won't replace a Cloak [1,-1] with it. I've seen it on many different armors. Statistically, 125 of the 610 entries died with such an armor in their posession (not necessarily wielded, though I doubt the borg would have left one in it's home).

How I found that number:

Code:

egrep -re "^[a-l]\).*\[([0-9]*),-\1\]" * | sed -re "s:^(\w+)\.map.*:\1:" | uniq | wc -l

The bug only strikes items that are Net-0 with no other benefits. Boots of stability [2,-2] would be enchanted back to +something or replaced if something better comes along.

I'll recheck these again. Whenever I give the borg a net-0 cloak, he takes it off right away. The code is in there and it is activated at times, but he seems to be missing it occasionally.

**APWhite** · October 1, 2008, 03:22

Originally posted by s0be

has the borg home been relocated? itctel.com/~apwhite is MIA.

Interestingly if you use https://itctel.com/apwhite/andrew.html it comes right up. It's odd that the secure socket would work while the other does not.

**s0be** · October 1, 2008, 14:17

Originally posted by APWhite

I'll recheck these again. Whenever I give the borg a net-0 cloak, he takes it off right away. The code is in there and it is activated at times, but he seems to be missing it occasionally.

Hmmm. Which base source tarball are you using? 3.0.9e? I'll start from scratch with a new tarball, and clean out my lib/ stuff. Also, if you're interested, I have a script that pulls the angband source, the borg.zip and builds a borg that can be run without being installed (and soon, it will also use a separate .angband/Angband-Borg folder under linux so that it doesn't conflict with installed borg in any way. I plan on cleaning it up a bit. I also have an expect+bash script combo that automatically restarts angband when it crashes and launches the borg. Have you given any thought to a command line enable borg option (like screen saver mode)?

**APWhite** · October 6, 2008, 01:38

I phone company said they were messing with the DNS stuff and promptly repaired the problems with the borg homepage. It can still be found at www.itctel.com/apwhite/andrew.html

The update is still from Sept 6 though. The kids and I are playing Shackled City Adventure Path and it is taking some of my borg time.

APWhite

**s0be** · October 8, 2008, 01:47

I see a conflicting info update from the other day that lists oct 6 and sept 6. With this update, I'm seeing a tonne less crashes, but also, my Borgs are dying quite rapidly.

**APWhite** · October 14, 2008, 04:34

I think I found the unhook problem and corrected it. Thanks for the savefile!

I corrected a few issues as well. I will continue testing the net-zero items and mine are still coming up ok.

I also recognize the drop in the average clevel at the time of the deaths. The borg was made more brave, but more stupid. I will keep checking on it.

I am trying to track down the deaths due to the never_move monsters. It is really odd the number of borgs dying to Molds and such.

**s0be** · October 15, 2008, 00:51

Got bored... been working on a perl stats script. Here's what I have so far:

[Started Aug 27 2008]

Code:

 Human
   Paladin: Ave: 9 Count: 77 
   Warrior: Ave: 16 Count: 33 
   Ranger: Ave: 12 Count: 54 
   Mage: Ave: 5 Count: 47 
   Rogue: Ave: 10 Count: 54 
   Priest: Ave: 5 Count: 46 
  Overall: Ave: 9 Count: 311

 Kobold
   Warrior: Ave: 17 Count: 37 
   Ranger: Ave: 12 Count: 58 
   Priest: Ave: 5 Count: 39 
   Rogue: Ave: 11 Count: 49 
  Overall: Ave: 11 Count: 183

 Dwarf
   Warrior: Ave: 19 Count: 42 
   Paladin: Ave: 13 Count: 88 
   Priest: Ave: 7 Count: 33 
  Overall: Ave: 13 Count: 163

 Dunadan
   Paladin: Ave: 9 Count: 77 
   Mage: Ave: 6 Count: 69 
   Warrior: Ave: 17 Count: 30 
   Ranger: Ave: 13 Count: 67 
   Priest: Ave: 5 Count: 39 
  Overall: Ave: 10 Count: 282

Half-Elf
   Ranger: Ave: 12 Count: 60 
   Mage: Ave: 6 Count: 62 
   Warrior: Ave: 18 Count: 47 
   Paladin: Ave: 10 Count: 96 
   Priest: Ave: 5 Count: 35 
   Rogue: Ave: 10 Count: 49 
  Overall: Ave: 10 Count: 349

 Elf
   Mage: Ave: 5 Count: 63 
   Ranger: Ave: 12 Count: 52 
   Warrior: Ave: 16 Count: 23 
   Rogue: Ave: 9 Count: 60 
  Overall: Ave: 10 Count: 198

 Hobbit
   Warrior: Ave: 20 Count: 30 
   Ranger: Ave: 11 Count: 48 
   Rogue: Ave: 10 Count: 55 
  Overall: Ave: 12 Count: 133

 Half-Orc
   Warrior: Ave: 16 Count: 28 
   Priest: Ave: 6 Count: 42 
   Rogue: Ave: 11 Count: 44 
  Overall: Ave: 11 Count: 114

 High-Elf
   Mage: Ave: 5 Count: 45 
   Warrior: Ave: 19 Count: 38 
   Ranger: Ave: 13 Count: 44 
   Paladin: Ave: 15 Count: 374 
   Priest: Ave: 4 Count: 44 
  Overall: Ave: 13 Count: 545

 Gnome
   Warrior: Ave: 18 Count: 35 
   Mage: Ave: 5 Count: 72 
   Priest: Ave: 4 Count: 49 
   Rogue: Ave: 8 Count: 53 
  Overall: Ave: 8 Count: 209

 Half-Troll
   Warrior: Ave: 16 Count: 32 
   Priest: Ave: 7 Count: 43 
  Overall: Ave: 11 Count: 75

You'll notice a high incidence of elfen paladins... I was tinkering with the borg.txt file a few times and forgot to change settings back. Also, your code doesn't respect the angband path for dotfiles. I'll submit a patch this week that corrects this.[edit: Disregard that, in looking at the code, something is broken in my build that's causing angband to disregard stuff in config.h... I suspect stale stuff hiding somewhere in my fs]

**s0be** · October 17, 2008, 00:36

To enable more people to use the borg(and really, to help my lazy butt to keep mine up-to-date), here's a script that downloads, patches, compiles, and builds a borg that uses ~/.angborg/ for it's data files (so as to not conflict with system installed borg). Please feel free to critique, improve, and use the script. To use it, just copy/paste into a file (like makeborg.sh) and execute it (like: bash makeborg.sh). It does all of it's work in ~/src/, which it creates if it doesn't exist. To update to a more recent release of the borg, just re-execute the script (after checking the borg homepage to see if there's a more recent version than your last build).

Code:

#!/bin/bash

BasePath=~/src

AngbandSrc="http://angband.oook.cz/download/"
AngbandArchive="angband-3.0.9b-src.tar.gz"
AngbandConfigure=""
MakeOpts=""

BorgSrc="http://www.itctel.com/~apwhite/download/"
BorgArchive="309borg.zip"
BorgDate=`date +%Y%m%d`

Me=`pwd`"/${0}"

function dir_check {
  if [ ! -e ${1} ]
  then
    echo "Creating ${1} folder"
    mkdir ${1}
  fi

  if [ ! -d ${1} ]
  then
    echo "${1} exists, but is not a directory"
    exit 1
  fi

  if [ ! -w ${1} ]
    then
    echo "${1} exists, and is a directory, but is not writable by the current user"
    exit 1
  fi
}

function do_cmd {
  echo "${1}[${3}]"
  if ${3} > ${BasePath}/angborglog 2>&1
  then
    echo "${2} succeeded"
    ${4} 
  else
    echo "${2} failed"
    ${4}
    exit 1
  fi
}

dir_check "${BasePath}"

cd "${BasePath}"

if [ ! -e "${AngbandArchive}" ]
then
  echo "Fetching Angband Source [${AngbandSrc}${AngbandArchive}]"
  if  wget -q "${AngbandSrc}${AngbandArchive}"
  then
    echo "Download Succeeded"
  else
    echo "Download Failed"
    exit 1
  fi
else
  echo "Using Existing Angband Source.  Remove ${BasePath}/${AngbandArchive} to fetch a new copy."
fi

if [ ! -e "${BorgDate}-${BorgArchive}" ]
then
  echo "Fetching Borg Source [${BorgSrc}${BorgArchive}]"
  if  wget -q "${BorgSrc}${BorgArchive}" -O "${BorgDate}-${BorgArchive}"
  then
    echo "Download Succeeded"
  else
    echo "Download Failed"
    exit 1
  fi
else 
  echo "Using Existing Borg Source.  Remove ${BasePath}/${BorgDate}-${BorgArchive} to fetch a new copy."
fi

dir_check angborg
rm angborg/* -rf

do_cmd "Extracting Angband Source" "Extraction" "tar xzf ${AngbandArchive} -C angborg --strip-components=1" ""
do_cmd "Extracting Borg Source" "Extraction" "unzip -o -qq -L ${BorgDate}-${BorgArchive} -d angborg/src" ""

perl -e 'undef $/; $a = <>; $a =~ s:^.*#PATCH1(.*)#ENDPATCH1.*$:\1:gms; print $a;' < ${Me} > .Patch1
perl -e 'undef $/; $a = <>; $a =~ s:^.*#PATCH2(.*)#ENDPATCH2.*$:\1:gms; print $a;' < ${Me} > .Patch2

do_cmd "Patching the Angband Source to include Borg[0-9].o" "Patching" "patch -p0 -s -l -i .Patch1" "rm .Patch1"
do_cmd "Patching the Angband Source to include Borg Configuration" "Patching" "patch -p0 -s -l -i .Patch2" "rm .Patch2"

cd angborg
do_cmd "Configuring Angband" "Configure" "./configure ${AngbandConfigure}" ""
do_cmd "Compiling Angband" "Compile" "make ${MakeOpts}" ""
mkdir -p ~/.angborg/Angband/
cp src/borg.txt ~/.angborg/Angband/

echo
echo
echo "You can now start the borg with:"
echo "    ${BasePath}/src/angband # x11"
echo "             or"
echo "    ${BasePath}/src/angband -mgcu # ncurses"

exit 0

#PATCH1
--- angborg-virgin/src/Makefile.src	2008-03-19 17:40:43.000000000 -0400
+++ angborg/src/Makefile.src	2008-10-07 00:48:23.000000000 -0400
@@ -19,6 +19,15 @@
 
  ANGFILES = \
   	birth.o \
+	borg1.o \
+	borg2.o \
+	borg3.o \
+	borg4.o \
+	borg5.o \
+	borg6.o \
+	borg7.o \
+	borg8.o \
+	borg9.o \
 	cave.o \
 	cmd0.o \
 	cmd1.o \

#ENDPATCH1

#PATCH2
--- angborg-virgin/src/config.h	2007-06-21 19:54:51.000000000 -0400
+++ angborg/src/config.h	2008-10-16 19:12:43.000000000 -0400
@@ -39,7 +39,7 @@
 /*
  * OPTION: Hack -- Compile in support for "Borg mode"
  */
-/* #define ALLOW_BORG */
+#define ALLOW_BORG 
 
 
 /*
@@ -100,7 +100,7 @@
 /*
  * OPTION: Allow "Borgs" to yield "high scores"
  */
-/* #define SCORE_BORGS */
+#define SCORE_BORGS 
 
 
 
@@ -156,7 +156,7 @@
 /*
  * OPTION: Allow the use of "sound" in various places.
  */
-#define USE_SOUND
+// #define USE_SOUND
 
 /*
  * OPTION: Allow the use of "graphics" in various places
@@ -198,7 +198,7 @@
  */
 #ifdef SET_UID
 # ifndef PRIVATE_USER_PATH
-#  define PRIVATE_USER_PATH "~/.angband"
+#  define PRIVATE_USER_PATH "~/.angborg"
 # endif /* PRIVATE_USER_PATH */
 #endif /* SET_UID */
 
@@ -208,7 +208,7 @@
  * for storing save files, data files, and high-scores
  */
 #ifdef PRIVATE_USER_PATH
-/* # define USE_PRIVATE_PATHS */
+# define USE_PRIVATE_PATHS */
 #endif /* PRIVATE_USER_PATH */
 
 
#ENDPATCH2

#EOF

**s0be** · October 17, 2008, 02:42

With your latest 309borg.zip, I just got an amnesiac disconnect. Is there something I can do when I get these to report/debug them for you?

**APWhite** · October 25, 2008, 02:59

Originally posted by s0be

With your latest 309borg.zip, I just got an amnesiac disconnect. Is there something I can do when I get these to report/debug them for you?

ya, just send me the savefile right where it unhooked.

Borg update

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment