Raiders Of The Twilight/Pillage

It sucks. Someone think of something new that it could do, or some way to make it more effective.

---

[DOV]: I received the thumbs up several months ago to redo the progs so they worked a little better (currently the bandits attack each other, didn't actually steal, didn't drop any coins taken, etc). If someone wants to redo the progs for other effects, feel free.

---

OLD PROGS >greet_prog 30 steal 1. $n mpat 12119 drop all

>rand_prog 20 mpwander

>rand_prog 15 mploot corpse 1. mploot corpse 1. mpat 12119 drop all

>rand_prog 15

>entry_prog 50 mprangekill $r

>greet_prog 50 mprangekill $r

>rand_prog 20 mprangekill $r

>rand_prog 10 mpecho The bandit licks his lips and walks away, content with his loot. mpgoto 9589

---

NEW PROGS (12/11/05)

prog delete verb_prog dropraiderloot
prog add verb_prog dropraiderloot
if valname($n) == $i
 mpget mob $i platinum 1
 mpget mob self gold 2
 mpget mob self silver 3
 mpget mob self copper 4
 if value(1) > 0
 or value(2) > 0
 or value(3) > 0
 or value(4) > 0
   mpat 12103 mpecho $I drops some pillaged loot as he wanders past.
 endif
 mpat 12103 drop all
 mpat 12103 drop \$1 platinum
 mpat 12103 drop \$2 gold
 mpat 12103 drop \$3 silver
 mpat 12103 drop \$4 copper
 mpverbstop
else
 mpnextinterp
endif
\@

prog delete verb_prog raiderbanditwork
prog add verb_prog raiderbanditwork
if valname($n) == $i
 if objhere(10)
 or objhere(11)
 or objhere(116)
   get 1. corpse
   get 1. corpse
   get platinum corpse
   get gold corpse
   get silver corpse
   get copper corpse
   dropraiderloot
 endif
 if rand(50)
   if name($f) / banditcall
   or inhouse($f) == raider
     if rand(1)
       pmote grins wickedly at $F.
     endif
   else
     mpget mob level $i 2
     mpmath 2 \$2 - 8
     if level($f) <= \$2
     or level($f) < 11
       if rand(2)
         if rand(50)
           pmote leers wickedly at $F.
         else
           snort $f
         endif
       endif
       break
     endif
     if rand(50)
       if rand(50)
         steal 1. $f
       else
         steal coins $f
       endif
       dropraiderloot
     else
       mpkill $f
     endif
     mpwander
   endif
 endif
else
 mpnextinterp
endif
\@

prog delete rand_prog 100
prog add rand_prog 100
if value(1) == 0
 mpvaluerand 1 50 100
 mpaddskill $i 199 100
endif
mpvalueup 0
if value(0) == \$1
 mpecho $I slinks off, content with $l loot.
 mppurge $i 
endif
mpfocus $r
raiderbanditwork
if rand(33)
 mpwander
endif
\@

prog delete entry_prog 50   
prog add entry_prog 50
mpfocus $r
raiderbanditwork
\@

prog add greet_prog 50
mpfocus $n
raiderbanditwork
\@