#MOBPROGS
#1
Poison Bite~
Poisons the person the mob is fighting with.  Chance based on mob's level.~
fight_prog 100~
if getrand(50) <= level($i)
  mpechoat $i You bite $n!
  mpechoaround $n $i bites $n!
  mpechoat $n $i bites you!
  mpsilentcast 'poison' $n
endif
~
#2
Acid Breath~
Picks a target from the list of people fighting it.  25% chance per target of being picked then casts 'Acid Breath'.~
fightroom_prog 25~
cast 'acid breath' $n
break
~
#3
Fire Breath~
Picks a target from the list of people fighting it.  25% chance per target of being picked then casts 'Fire Breath'.~
fightroom_prog 25~
cast 'fire breath' $n
break
~
#4
Frost Breath~
Picks a target from the list of people fighting it.  25% chance per target of being picked then casts 'Frost Breath'.~
fightroom_prog 25~
cast 'frost breath' $n
break
~
#5
Gas Breath~
Picks a target from the list of people fighting it.  25% chance per target of being picked then casts 'Gas Breath'.~
fightroom_prog 25~
cast 'gas breath' $n
break
~
#6
Lightning Breath~
Picks a target from the list of people fighting it.  25% chance per target of being picked then casts 'Lightning Breath'.~
fightroom_prog 25~
cast 'lightning breath' $n
break
~
#7
Random Breath~
Picks a target from the list of people fighting it.  25% chance per target of being picked then casts a random Breath spell.~
fightroom_prog 25~
if getrand(5) == 7
  cast 'acid breath' $n
  break
endif
if getrand(5) == 7
  cast 'fire breath' $n
  break
endif
if getrand(5) == 7
  cast 'frost breath' $n
  break
endif
if getrand(5) == 7
  cast 'gas breath' $n
  break
endif
if getrand(5) == 7
  cast 'lightning breath' $n
  break
endif
~
#8
High Explosive Judge~
Picks a target from the list of people fighting it.  25% chance per target of being picked then casts 'High Explosive'.~
fightroom_prog 25~
cast 'high explosive' $n
break
~
#9
Adepts~
Chance of casting a beneficial spell on a random player in the room.~
rand_prog 15~
if getrand(6) == 6
  cast 'armor' $r
  break
endif
if getrand(6) == 6
  cast 'bless' $r
  break
endif
if getrand(6) == 6
  cast 'cure blindness' $r
  break
endif
if getrand(6) == 6
  cast 'cure light' $r
  break
endif
if getrand(6) == 6
  cast 'cure poison' $r
  break
endif
if getrand(6) == 6
  cast 'refresh' $r
  break
endif
~
#10
Offensive Cleric~
Picks a target from the list of people fighting it.  50% chance per target of being picked then casts a spell.~
fightroom_prog 50~
if getrand(32) == 16
  cast 'blindness' $n
  break
endif
if level($i) >= 3
and getrand(32) == 16
  cast 'cause serious' $n
  break
endif
if level($i) >= 7
and getrand(32) == 16
  cast 'earthquake' $n
  break
endif
if level($i) >= 9
and getrand(32) == 16
  cast 'cause critical' $n
  break
endif
if level($i) >= 10
and getrand(32) == 16
  cast 'dispel evil' $n
  break
endif
if level($i) >= 12
and getrand(32) == 16
  cast 'curse' $n
  break
endif
if level($i) >= 12
and getrand(32) == 16
  cast 'change sex' $n
  break
endif
if level($i) >= 13
and getrand(32) == 16
  cast 'flamestrike' $n
  break
endif
if level($i) >= 15
and getrand(32) == 16
  cast 'harm' $n
  break
endif
if level($i) >= 15
and getrand(32) == 16
  cast 'plague' $n
  break
endif
if level($i) >= 16
and getrand(32) == 16
  cast 'disple magic' $n
  break
endif
~
#11
Mayor Wander~
Mayor wanders around town closing and opening town gates depending on the time.~
rand_prog 100~
if isfight($i)
  break
endif
if hour() == 6
  mpfollowpath W3a3003b33000c111d0d111Oe333333Oe22c222112212111a1S. restart
  break
endif
if hour() == 20
  mpfollowpath W3a3003b33000c111d0d111CE333333CE22c222112212111a1S. restart
  break
endif
if hour() >= 6
and hour() < 19
  mpfollowpath W3a3003b33000c111d0d111Oe333333Oe22c222112212111a1S. continue
  break
endif
mpfollowpath W3a3003b33000c111d0d111CE333333CE22c222112212111a1S. continue
break
~
#13
Offensive Mage~
Picks a target from the list of people fighting it.  50% chance per target of being picked then casts a spell.~
fightroom_prog 50~
if getrand(29) == 16
  cast 'blindness' $n
  break
endif
if level($i) >= 3
and getrand(29) == 16
  cast 'chill touch' $n
  break
endif
if level($i) >= 7
and getrand(29) == 16
  cast 'weaken' $n
  break
endif
if level($i) >= 8
and getrand(29) == 16
  cast 'teleport' $n
  break
endif
if level($i) >= 11
and getrand(29) == 16
  cast 'colour spray' $n
  break
endif
if level($i) >= 12
and getrand(29) == 16
  cast 'change sex' $n
  break
endif
if level($i) >= 13
and getrand(29) == 16
  cast 'energy drain' $n
  break
endif
if level($i) >= 15
and getrand(29) == 16
  cast 'fireball' $n
  break
endif
if level($i) >= 20
and getrand(29) == 16
  cast 'plague' $n
  break
endif
if level($i) >= 20
and getrand(29) == 16
  cast 'acid blast' $n
  break
endif
~
#14
Undead Mage~
Picks a target from the list of people fighting it.  50% chance per target of being picked then casts a spell.~
fightroom_prog 50~
if getrand(29) == 16
  cast 'curse' $n
  break
endif
if level($i) >= 3
and getrand(29) == 16
  cast 'weaken' $n
  break
endif
if level($i) >= 6
and getrand(29) == 16
  cast 'chill touch' $n
  break
endif
if level($i) >= 9
and getrand(29) == 16
  cast 'blindness' $n
  break
endif
if level($i) >= 12
and getrand(29) == 16
  cast 'poison' $n
  break
endif
if level($i) >= 15
and getrand(29) == 16
  cast 'energy drain' $n
  break
endif
if level($i) >= 18
and getrand(29) == 16
  cast 'harm' $n
  break
endif
if level($i) >= 21
and getrand(29) == 16
  cast 'teleport' $n
  break
endif
if level($i) >= 20
and getrand(29) == 16
  cast 'plague' $n
  break
endif
if level($i) >= 18
and getrand(29) == 16
  cast 'harm' $n
  break
endif
~
#15
Executioner~
When someone walks into a room it checks to see if they've commited a particular crime, if so it summons guards and attacks.~
entry_prog 100~
if crimethief($n)
  yell $n is a thief!  PROTECT THE INNOCENT!  MORE BLOOOOD!!!
  mpmload 3060
  mpmload 3060
  attack $n
  mpforce cityguard attack $n
  mpforce 2.cityguard attack $n
  break
endif
~
#16
Fido~
Dog that walks around eating corpses, yummy.~
rand_prog 100~
mpeatcorpse
break
~
#17
Anti-Thief Guard~
Attacks thieves.~
entry_prog 100~
if crimethief($n)
  yell $n is a thief!  PROTECT THE INNOCENT!  BANZAI!!!
  attack $n
  break
endif
~
#18
Protector of Good~
If people are fighting in the room it will attack the person with the lowest alignment (if alignment is under 300).~
rand_prog 100~
if fightinroom()
and alignment($x) < 300
  mpact $i screams 'PROTECT THE INNOCENT!!  BANZAI!!'
  attack $x
  break
endif
~
#19
Janitor~
Picks up trash.~
rand_prog 100~
mpclean
break
~
#0



#OBJPROGS
#0



#ROOMPROGS
#0



#PROGGROUPS
#12
Mayor~
Mayor wanders around the city opening and closing gates and he fights like a cleric.~
M 10
M 11
~
#20
CityGuard~
Kills thieves and fights evil.~
M 17
M 18
~
#0



#$