mirror of
https://github.com/tbamud/tbamud.git
synced 2026-01-06 17:38:49 +01:00
c59c321d5d
This just converts the few DOS text files still in here to standard text files (line-endings), removes all the trailing spaces on lines, removes all the trailing blank lines, and replaces all the tabs (except in .zon files, where they seem to be common) with expanded spaces. It's easy to confirm this is actually a non-change, except for whitespace: * `git show -w` shows this commit as only removing 8 trailing blank lines. This should make no difference to tbaMUD itself, but it will make working on these files, especially with scripts and automated tools, much easier. This is the base change for a set of other changes I will put up once/if this merges, without this, the others are just too complicated to wrangle.
307 lines
6.5 KiB
Text
307 lines
6.5 KiB
Text
#28800
|
|
Cleric Fight Function~
|
|
0 k 35
|
|
~
|
|
* Written by Fizban to imitate ROM Cleric Function
|
|
set current_hp %actor.hitp%
|
|
set rand %random.7%
|
|
* The dmg 5000 is actually non-damage, not damage.
|
|
switch %rand%
|
|
case 1
|
|
case 2
|
|
case 3
|
|
case 4
|
|
set dmg 5000
|
|
break
|
|
case 5
|
|
eval dmg (%random.2% * %random.8%) + (%self.level% / 2)
|
|
set spellname cause serious
|
|
break
|
|
case 6
|
|
eval dmg (%random.3% * %random.8%) + (%self.level% - 6)
|
|
set spellname cause critical
|
|
break
|
|
case 7
|
|
eval dmg %random.6% + %self.level%
|
|
set spellname flamestrike
|
|
break
|
|
done
|
|
eval new_current_hp %current_hp% - %dmg%
|
|
eval dmgpc (%dmg% * 100) / %current_hp%
|
|
if %dmgpc% == 0
|
|
set vp misses
|
|
elseif %dmgpc% <= 4
|
|
set vp scratches
|
|
elseif %dmgpc% <= 8
|
|
set vp grazes
|
|
elseif %dmgpc% <= 12
|
|
set vp hits
|
|
elseif %dmgpc% <= 16
|
|
set vp injures
|
|
elseif %dmgpc% <= 20
|
|
set vp wounds
|
|
elseif %dmgpc% <= 24
|
|
set vp mauls
|
|
elseif %dmgpc% <= 28
|
|
set vp decimates
|
|
elseif %dmgpc% <= 32
|
|
set vp devastates
|
|
elseif %dmgpc% <= 36
|
|
set vp maims
|
|
elseif %dmgpc% <= 40
|
|
set vp MUTILATES
|
|
elseif %dmgpc% <= 44
|
|
set vp DISEMBOWELS
|
|
elseif %dmgpc% <= 48
|
|
set vp EVISCERATES
|
|
elseif %dmgpc% <= 52
|
|
set vp MASSACRES
|
|
elseif %dmgpc% <= 100
|
|
set vp DEMOLISHES
|
|
else
|
|
set vp ANNIHILATES
|
|
end
|
|
if %dmg% > 4000
|
|
return 1
|
|
else
|
|
%send% %actor% %self.name%'s %spellname% %vp% you!
|
|
%echoaround% %actor% %self.name%'s %spellname% %vp% %actor.name%!
|
|
end
|
|
switch %rand%
|
|
case 1
|
|
dg_cast 'poison' %actor%
|
|
break
|
|
case 2
|
|
dg_cast 'curse' %actor%
|
|
break
|
|
case 3
|
|
dg_cast 'blindness' %actor%
|
|
break
|
|
case 4
|
|
dg_cast 'earthquake'
|
|
break
|
|
case 5
|
|
case 6
|
|
case 7
|
|
%damage% %actor% %dmg%
|
|
break
|
|
done
|
|
~
|
|
#28801
|
|
Mage Fight Function~
|
|
0 k 35
|
|
~
|
|
* Written by Fizban to imitate ROM Cleric Function
|
|
* adjusted to imitate TBA Mage Functions
|
|
set current_hp %actor.hitp%
|
|
set rand %random.5%
|
|
switch %rand%
|
|
case 1
|
|
eval dmg (%random.1% * %random.8%) + 1
|
|
set spellname chill touch
|
|
break
|
|
case 2
|
|
eval dmg (%random.3% * %random.8%) + 3
|
|
set spellname burning hands
|
|
break
|
|
case 3
|
|
eval dmg (%random.7% * %random.8%) + 7
|
|
set spellname lightning bolt
|
|
case 4
|
|
eval dmg (%random.9% * %random.8%) + 9
|
|
set spellname color spray
|
|
case 5
|
|
eval dmg (%random.11% * %random.8%) + 11
|
|
set spellname fireball
|
|
break
|
|
done
|
|
eval new_current_hp %current_hp% - %dmg%
|
|
eval dmgpc (%dmg% * 100) / %current_hp%
|
|
if %dmgpc% == 0
|
|
set vp misses
|
|
elseif %dmgpc% <= 4
|
|
set vp scratches
|
|
elseif %dmgpc% <= 8
|
|
set vp grazes
|
|
elseif %dmgpc% <= 12
|
|
set vp hits
|
|
elseif %dmgpc% <= 16
|
|
set vp injures
|
|
elseif %dmgpc% <= 20
|
|
set vp wounds
|
|
elseif %dmgpc% <= 24
|
|
set vp mauls
|
|
elseif %dmgpc% <= 28
|
|
set vp decimates
|
|
elseif %dmgpc% <= 32
|
|
set vp devastates
|
|
elseif %dmgpc% <= 36
|
|
set vp maims
|
|
elseif %dmgpc% <= 40
|
|
set vp MUTILATES
|
|
elseif %dmgpc% <= 44
|
|
set vp DISEMBOWELS
|
|
elseif %dmgpc% <= 48
|
|
set vp EVISCERATES
|
|
elseif %dmgpc% <= 52
|
|
set vp MASSACRES
|
|
elseif %dmgpc% <= 100
|
|
set vp DEMOLISHES
|
|
else
|
|
set vp ANNIHILATES
|
|
end
|
|
if %dmg% > 4000
|
|
return 1
|
|
else
|
|
%send% %actor% %self.name%'s %spellname% %vp% you!
|
|
%echoaround% %actor% %self.name%'s %spellname% %vp% %actor.name%!
|
|
end
|
|
~
|
|
#28802
|
|
Stock Thief~
|
|
0 b 10
|
|
~
|
|
set actor %random.char%
|
|
if %actor%
|
|
if %actor.is_pc% && %actor.gold%
|
|
%send% %actor% You discover that %self.name% has %self.hisher% hands in your wallet.
|
|
%echoaround% %actor% %self.name% tries to steal gold from %actor.name%.
|
|
eval coins %actor.gold% * %random.10% / 100
|
|
nop %actor.gold(-%coins%)%
|
|
nop %self.gold(%coins%)%
|
|
end
|
|
end
|
|
~
|
|
#28803
|
|
Fire Breath Function~
|
|
0 k 100
|
|
~
|
|
set current_hp %actor.hitp%
|
|
eval low (%self.hitp% / 9)
|
|
eval high %self.hitp% / 5
|
|
eval range %high% - %low%
|
|
eval dmg %%random.%range%%% + %low%
|
|
eval dmgpc (%dmg% * 100) / %current_hp%
|
|
set spellname fire breath
|
|
if %dmgpc% == 0
|
|
set vp misses
|
|
elseif %dmgpc% <= 4
|
|
set vp scratches
|
|
elseif %dmgpc% <= 8
|
|
set vp grazes
|
|
elseif %dmgpc% <= 12
|
|
set vp hits
|
|
elseif %dmgpc% <= 16
|
|
set vp injures
|
|
elseif %dmgpc% <= 20
|
|
set vp wounds
|
|
elseif %dmgpc% <= 24
|
|
set vp mauls
|
|
elseif %dmgpc% <= 28
|
|
set vp decimates
|
|
elseif %dmgpc% <= 32
|
|
set vp devastates
|
|
elseif %dmgpc% <= 36
|
|
set vp maims
|
|
elseif %dmgpc% <= 40
|
|
set vp MUTILATES
|
|
elseif %dmgpc% <= 44
|
|
set vp DISEMBOWELS
|
|
elseif %dmgpc% <= 48
|
|
set vp EVISCERATES
|
|
elseif %dmgpc% <= 52
|
|
set vp MASSACRES
|
|
elseif %dmgpc% <= 100
|
|
set vp DEMOLISHES
|
|
else
|
|
set vp ANNIHILATES
|
|
end
|
|
%echoaround% %actor% %self.name% breathes forth a cone of fire.
|
|
%send% %actor% %self.name% breathes a cone of hot fire over you!
|
|
%send% %actor% %self.name%'s %spellname% %vp% you!
|
|
%echoaround% %actor% %self.name%'s %spellname% %vp% %actor.name%!
|
|
%damage% %actor% %dmg%
|
|
~
|
|
#28804
|
|
Acid Breath Function~
|
|
0 k 100
|
|
~
|
|
set current_hp %actor.hitp%
|
|
eval low (%self.hitp% / 11)
|
|
eval high %self.hitp% / 6
|
|
eval range %high% - %low%
|
|
eval dice_dam %self.level% * 16
|
|
eval hp_dam %%random.%range%%% + %low%
|
|
eval dmg (%hp_dam% + %dice_dam%) / 10
|
|
eval dmgpc (%dmg% * 100) / %current_hp%
|
|
set spellname acid breath
|
|
if %dmgpc% == 0
|
|
set vp misses
|
|
elseif %dmgpc% <= 4
|
|
set vp scratches
|
|
elseif %dmgpc% <= 8
|
|
set vp grazes
|
|
elseif %dmgpc% <= 12
|
|
set vp hits
|
|
elseif %dmgpc% <= 16
|
|
set vp injures
|
|
elseif %dmgpc% <= 20
|
|
set vp wounds
|
|
elseif %dmgpc% <= 24
|
|
set vp mauls
|
|
elseif %dmgpc% <= 28
|
|
set vp decimates
|
|
elseif %dmgpc% <= 32
|
|
set vp devastates
|
|
elseif %dmgpc% <= 36
|
|
set vp maims
|
|
elseif %dmgpc% <= 40
|
|
set vp MUTILATES
|
|
elseif %dmgpc% <= 44
|
|
set vp DISEMBOWELS
|
|
elseif %dmgpc% <= 48
|
|
set vp EVISCERATES
|
|
elseif %dmgpc% <= 52
|
|
set vp MASSACRES
|
|
elseif %dmgpc% <= 100
|
|
set vp DEMOLISHES
|
|
else
|
|
set vp ANNIHILATES
|
|
end
|
|
%echoaround% %actor% %self.name% spits acid at %actor.name%.
|
|
%send% %actor% %self.name% spits a stream of corrosive acid at you.
|
|
%send% %actor% %self.name%'s %spellname% %vp% you!
|
|
%echoaround% %actor% %self.name%'s %spellname% %vp% %actor.name%!
|
|
%damage% %actor% %dmg%
|
|
~
|
|
#28820
|
|
Supernova DeathTrap~
|
|
2 g 100
|
|
~
|
|
* Taken from a trigger By Rumble of The Builder Academy
|
|
* Near Death Trap stuns actor
|
|
wait 1 sec
|
|
%send% %actor% There must be a price to pay to witness this stunning sight!
|
|
wait 2 sec
|
|
set stunned %actor.hitp% - 2
|
|
%send% %actor% That really HURTS! And indeed...
|
|
%damage% %actor% %stunned%
|
|
%echo% @n
|
|
%force% %actor% look
|
|
~
|
|
#28830
|
|
Enter Crystal Ball~
|
|
1 c 100
|
|
l~
|
|
if %cmd.mudcommand% == look && %arg% /= crystal || %arg% /= ball
|
|
%send% %actor% You feel drawn towards the crystal ball. Your hand reaches out...
|
|
%echoaround% %actor% %actor.name% is drawn into the crystal ball!
|
|
%teleport% %actor% 28802
|
|
wait 2 sec
|
|
%at% 28802 %echoaround% %actor% %actor.name% appears out of nowhere!
|
|
%force% %actor% look
|
|
else
|
|
return 0
|
|
end
|
|
~
|
|
$~
|