Difference between revisions of "Raiders Of The Twilight/Pillage"

From Immwiki
Jump to: navigation, search
(* pillage prog fixes)
 
Line 1: Line 1:
 
It sucks.  Someone think of something new that it could do, or some way to make it more effective.
 
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
 +
\@

Latest revision as of 18:29, 11 December 2005

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
\@
Retrieved from "http://gelatinous-cube.net/neongrey/index.php?title=Raiders_Of_The_Twilight/Pillage&oldid=714"