From e9ccc8a35c95b27a8a77c4f4703f20137f74db69 Mon Sep 17 00:00:00 2001
From: ryo_saeba <ryo_saeba@282e977c-c81d-0410-88c4-b93c2d0d6712>
Date: Sat, 5 Apr 2008 07:45:29 +0000
Subject: [PATCH] Part of patch #1677738: Purple worm (with pythonscript and
 map), by Mike B.

git-svn-id: svn+ssh://svn.code.sf.net/p/crossfire/code/arch/trunk@8690 282e977c-c81d-0410-88c4-b93c2d0d6712
---
 ground/nimground/Nimground3_purple.arc        |  19 ++++
 .../nimground/Nimground3_purple.base.111.png  | Bin 0 -> 1731 bytes
 .../nimground/Nimground3_purple.base.112.png  | Bin 0 -> 1728 bytes
 .../nimground/Nimground3_purple.base.113.png  | Bin 0 -> 1728 bytes
 .../nimground/Nimground3_purple.base.114.png  | Bin 0 -> 1728 bytes
 .../giant_worm/event_attack_purple_worm.arc   |   6 ++
 monster/animal/giant_worm/purple_worm.arc     |  88 ++++++++++++++++++
 .../giant_worm/purple_worm.base.x31.png       | Bin 0 -> 3154 bytes
 .../giant_worm/purple_worm.base.x71.png       | Bin 0 -> 3153 bytes
 monster/animal/giant_worm/purple_worm.trs     |  13 +++
 10 files changed, 126 insertions(+)
 create mode 100644 ground/nimground/Nimground3_purple.arc
 create mode 100644 ground/nimground/Nimground3_purple.base.111.png
 create mode 100644 ground/nimground/Nimground3_purple.base.112.png
 create mode 100644 ground/nimground/Nimground3_purple.base.113.png
 create mode 100644 ground/nimground/Nimground3_purple.base.114.png
 create mode 100644 monster/animal/giant_worm/event_attack_purple_worm.arc
 create mode 100644 monster/animal/giant_worm/purple_worm.arc
 create mode 100644 monster/animal/giant_worm/purple_worm.base.x31.png
 create mode 100644 monster/animal/giant_worm/purple_worm.base.x71.png
 create mode 100644 monster/animal/giant_worm/purple_worm.trs

diff --git a/ground/nimground/Nimground3_purple.arc b/ground/nimground/Nimground3_purple.arc
new file mode 100644
index 000000000..5ab70ed82
--- /dev/null
+++ b/ground/nimground/Nimground3_purple.arc
@@ -0,0 +1,19 @@
+Object Nimground3_purple
+name purple flesh
+face Nimground3_purple.111
+anim
+Nimground3_purple.111
+Nimground3_purple.112
+Nimground3_purple.113
+Nimground3_purple.114
+Nimground3_purple.111
+Nimground3_purple.111
+Nimground3_purple.111
+mina
+no_pick 1
+editable 8
+is_floor 1
+speed 0.3
+magicmap purple
+end
+
diff --git a/ground/nimground/Nimground3_purple.base.111.png b/ground/nimground/Nimground3_purple.base.111.png
new file mode 100644
index 0000000000000000000000000000000000000000..be4469df40b667044a344a580c1d3dfe0801f51f
GIT binary patch
literal 1731
zcmV;!20ZzRP)<h;3K|Lk000e1NJLTq001BW001Be0{{R3M5Kzw0006sP)t-s00062
z0RjjB0tx^E3<3%g00s*M6BGgx9smL!0tFfZ7$gD^76u|J0tF}p1}Fj(CI$&D0|_Dq
z8YTo9DFYrZ1QRj>8Y%`QGXotk1|2j69~%xXG6o<m2_6{`Ffj=jI0hOg3@kDTCN>5q
zGzcdk5id9fDIXCvB@Zz*2`DfOCp8NpHVh;@3MVoSE;kJ(HViN}3^FqhFE|b=Hw`o}
z5;8gtEiDr}JPs~45H&duH8B%6I}bTH5ji*#Iy?|NJrOiG6FoT-J3bOMDjPpJ6h1!@
zKQ9?UKNC4R6+bl?J~S9aIu<}X7C=E0KrS3aHW@!Z6hb)}K|L2kLKZ$b8bUr7MM4%t
zJsCwb9Z5JFNkbP!Ll;Lk9Z5SJMn4)xLl{Uw8%H}HNH!o$Ivz|r9!^0VN<|t>Hz7?%
z8cISPOG6z?M;lE)AWA$TPedL}Jt0v*Ax%gfPd*}2MIcT^Ax}RfR7N3DLL^X3A5lUi
zQbr<DKqXZ~B~w8rRz4_JM<i52CRjx$RX-|NL?~KIC09f#TT3QbO($7MDp*D;UPmlm
zPAOYOE?!P5TtzQoPb^$YE?`P7VoNV$QY>InEn!SBWJxk+Q!ZjnF=bCNVM;V+PBLas
zGHOsXYD_n2Q8jB#IBHThY)(0AQ#Wl-I&4rmZ&WyLR61@|I&e}va8^2UQa*53J9AS%
zaalfeRY7xFK6Y0^c3VJpSVMPQL3de1cv?hyUPF0bLwjFEePBj@PIh7<00009a7bBm
z005Jt005Jt0nxJX#sB~S2XskIMF-ad2@NG5lw|!Z0000TbVXQnLvL+uWo~o;Lvm$d
zbY)~9cWHEJAXI2&AV*0}Q14_VZU6uS`AI}UR5;5G(G4RTX8-`;SJkRC)s$E6uBVq`
zwqsZ#Q_DiccBzdrJzav9+$LhVk&hFZ##hpu^&GS4hMYUhq9H_>lH$*8&tG@|uk7?3
zJY?A(`HioR+>;M4WS&tmdy_HCJR@6Oz`5N(pVhAS%MzO37yodvq$O3iQBjekI<c{h
zjesVyE>gB5kA2`ikFICt@%(PC@QM67{g!&32<kW)=(1Nw$uw^}s~vrPnd*VLeSE>A
z=`GQZ+2g^cjZ@H0FqM%w-7j#CM1qW>?-HSepd=PMTf#2_INJbhU8J))MD)s;_mXjY
zJ9BQNPfbEbqPzk#Q=vk^EQjz^;+Mn20g_^-V)Ac^b|ffy6>sL>kyZ+-z_LK%I;W<&
zY0#ZOs~c!2E_jj)LsTO-U}jy5ESR#<1R{(?-?r_B@9f;x;30Qdi5+trGGh^K&;g7(
z1A|qSjQTCvTInEulG%jJ%-^$;$B%ImIWh#s8tqX(hJ^wX@k*1wb)HX4Tx3Pw5BPr8
z5mrw-a6z{qw|ndrM1+Jb4iYswtP7$NW4Hcnu#>G-fW*m}a*Cte?rV~5q4IJ*37V$Z
zxO|qhq?Sm11(=7h*%@IkkI!N@neKm(le4@QXJ*=BW~1iI%&HIUBIWgK*V)u@;%hYm
zr#o`H*QFSz{$klvMQw}kyFkW)=#GxH<}lgu6T<}`J?x%cb|KIq;BePDq*Mc_(w3@<
z_y8sBq@<U(`uhL*A?hRbZnBKyJH0D+z?8dLg*lJBGtnS?y1S7aU!zv84GdZYYi%A$
zM*x<DHMOQtIK#zGl&t7#=8Y*qZ@$~2Z-8jc{}=kfg)oPkL;m&`h;UIuD{>&&^@KKd
zc{FM>3CjUJ!AneN{?MT2T!(+K^+UssA>%Z|8V)pN^)v<nV%${ZwM+h0_G&n5DkwrH
z8mPKehMiI1Esf>7G^oEmkg2msDMDy@1;78PeLG~M<#*%f#`yL1W#$}26IR9}SK0T@
zMW+W&iVIU-19KEcE-tdYD7yI!c-7Sl=|p+uWa?}!Yh5>WFcUbcg;N-U<920r5VXzh
z9v##Sr>^9X&ketyORg<d<d0f}m+PW4xzSYzLOXx;HZC755fFQvN}rr2<xUIvF!yn*
z_1E3;39J`5oqD4^W-^fdo2UB_focyn5S~j5ZX7odbPEFH&?~Vwh;!Mii&H}hVklsH
zwFom|WlaQUZrd9JIOa@ROGtwj4;-_1i&cfgi$w&6;bkI*{T}=FDOi<x%~wBqP|NIo
zpyXLDQTWmQyqm*n{?My3*W28y;5kG~Yn{apTDE+}c{e_uyO(<t-1x?lesix_!$ADA
Z{{XJVeoEzS*%JT&002ovPDHLkV1jj|mY@It

literal 0
HcmV?d00001

diff --git a/ground/nimground/Nimground3_purple.base.112.png b/ground/nimground/Nimground3_purple.base.112.png
new file mode 100644
index 0000000000000000000000000000000000000000..2ff17402b4ea9e8fa50eb579fe4bb8926003f1dc
GIT binary patch
literal 1728
zcmV;x20!_UP)<h;3K|Lk000e1NJLTq001BW001Be0{{R3M5Kzw0006sP)t-s00062
z0RjjB0tx^E3<3%g00s*M6BGgx9smL!0tFfZ7$gD^76u|J0tF}p1}Fj(CI$&D0|_Dq
z8YTo9DFYrZ1QRj>8Y%`QGXotk1|2j69~%xXG6o<m2_6{`Ffj=jI0hOg3@kDTCN>5q
zGzcdk5id9fDIXCvB@Zz*2`DfOCp8NpHVh;@3MVoSE;kJ(HViN}3^FqhFE|b=Hw`o}
z5;8gtEiDr}JPs~45H&duH8B%6I}bTH5ji*#Iy?|NJrOiG6FoT-J3bOMDjPpJ6h1!@
zKQ9?UKNC4R6+bl?J~S9aIu<}X7C=E0KrS3aHW@!Z6hb)}K|L2kLKZ$b8bUr7MM4%t
zJsCwb9Z5JFNkbP!Ll;Lk9Z5SJMn4)xLl{Uw8%H}HNH!o$Ivz|r9!^0VN<|t>Hz7?%
z8cISPOG6z?M;lE)AWA$TPedL}Jt0v*Ax%gfPd*}2MIcT^Ax}RfR7N3DLL^X3A5lUi
zQbr<DKqXZ~B~w8rRz4_JM<i52CRjx$RX-|NL?~KIC09f#TT3QbO($7MDp*D;UPmlm
zPAOYOE?!P5TtzQoPb^$YE?`P7VoNV$QY>InEn!SBWJxk+Q!ZjnF=bCNVM;V+PBLas
zGHOsXYD_n2Q8jB#IBHThY)(0AQ#Wl-I&4rmZ&WyLR61@|I&e}va8^2UQa*53J9AS%
zaalfeRY7xFK6Y0^c3VJpSVMPQL3de1cv?hyUPF0bLwjFEePBj@PIh7<00009a7bBm
z005Jt005Jt0nxJX#sB~S2XskIMF-ad2@NP1zpfU-0000TbVXQnLvL+uWo~o;Lvm$d
zbY)~9cWHEJAXI2&AV*0}Q14_VZU6uS_DMuRR5;58!2u&1R{#Lur)pK2YRZ$l>uFNV
zb}THBsbwKzyVORRMwg%^w+WUTNu0>i2$JTs=a@w|<lJG|X$TRfr1*3DKCshhJJW6q
zhyq&JpZIvOtRWP)QC<>+dcLWhj=BI*AFbFGCq6P?#x}AGcwrAy{6u`6c}G5%13E@*
z2Dz)FRED*mX~$n*rh8$2KU?%@cAKBV9Em{l=BW;-sp@FLHo!4XSterWdpRU?lDyQ_
z8hPQz>BbJwO}JV@>OL|1K``#@WY3MZQxlgJNH0f)s}!gmFbGS^za1V95+oIji*Mu(
zBp`StZ}z{@HWDi407u|Dm#U?C$StF_jW)<HdQywSWD_%JrpK1(6=1ii5pFd0u00vK
zvwK^Ghuje<e#~r&l!doLXAtNN6joC<K4r;ig@eRNb_-JBf93?w6vha|=&%tqIbu^7
z7V=Lgs!daE3v5PUqO0P*-}kFdZS{0a0O;n#4v(Ws9VK9^lR%A5>mo13>FvK79YkBr
z7{G~eCCQL(_ccMck_CC61x!IYA)ciy>19G+MF0p}Tv7V+_$+Q0Z37ST@>bRpRJc8E
zHmbhPuK5-KQrWP6ol76f-zpI}+nL|9A;cNwS1X<xa)<xWodixqcXX^VM~Kc}C?@de
zVb9#k7y_Lf4wJ57sWuA~nsP-6>nFM0wD9s)|G>XL#e9U`O;j*!mv{9J1nw3E<~s6*
zV*&UyxtW?=Cs(fx6j}ncc8{P_2LS==w5Cub%fwHl96#2=8q=KKe79BK2+=yIpux~$
zgu%_Bsg4&2cTs1PM1QLLiOtyUQ7O#?tki>PR-i%)hXy4xcK9dVFg)TMHqKJC;XqZ<
zV8fsd7`G&G{gQo^yBf)vib~MwMzVg5qQerrrLz2xLBREaNS;N@5w(Vu@cW-Tc0zWW
z_<r)-n7F>a%$_#@*-ClD8pqx_@AAMIelh4ZP)8Bu;v(0FqFc{mKv}z(kt?fb(r4>A
z>xQY5n#NHL3}Oh5JEXNCFPKjr9n_7auf&kg4S$?ZtuI#<j$62w8@wyE*<IfbcK_~c
zS~*x&L+o)nb8?yzyDY@R{Ksw9-;<NmSYHUZ^hQVAWFQ8%PWK@Kl^$#`GN0kxIBrne
zS`ilrz2f@<IFq}&I5m_Zh9bI8gHY2}+N5U8?Ryg<z+5S78DY@i{$u)XsiJsfsYH!o
zcm<DPf5g9kiUW~Vee<&iwao4N%bw+{i$A$vaC1b-9(on#2D^K04M4P9>neTFy6r11
zxbf-yz5JWt#&?#?+k2%d3gTZp2hwiu!9$wv72o>mi9PY~LS!igwKo&DEKs6#jQt<T
W6n;vCtbdIF0000<MNUMnLSTYBdy1+6

literal 0
HcmV?d00001

diff --git a/ground/nimground/Nimground3_purple.base.113.png b/ground/nimground/Nimground3_purple.base.113.png
new file mode 100644
index 0000000000000000000000000000000000000000..ff29f56a523f88b9c1b3a470044ab1f0d2fd623f
GIT binary patch
literal 1728
zcmV;x20!_UP)<h;3K|Lk000e1NJLTq001BW001Be0{{R3M5Kzw0006sP)t-s00062
z0RjjB0tx^E3<3%g00s*M6BGgx9smL!0tFfZ7$gD^76u|J0tF}p1}Fj(CI$&D0|_Dq
z8YTo9DFYrZ1QRj>8Y%`QGXotk1|2j69~%xXG6o<m2_6{`Ffj=jI0hOg3@kDTCN>5q
zGzcdk5id9fDIXCvB@Zz*2`DfOCp8NpHVh;@3MVoSE;kJ(HViN}3^FqhFE|b=Hw`o}
z5;8gtEiDr}JPs~45H&duH8B%6I}bTH5ji*#Iy?|NJrOiG6FoT-J3bOMDjPpJ6h1!@
zKQ9?UKNC4R6+bl?J~S9aIu<}X7C=E0KrS3aHW@!Z6hb)}K|L2kLKZ$b8bUr7MM4%t
zJsCwb9Z5JFNkbP!Ll;Lk9Z5SJMn4)xLl{Uw8%H}HNH!o$Ivz|r9!^0VN<|t>Hz7?%
z8cISPOG6z?M;lE)AWA$TPedL}Jt0v*Ax%gfPd*}2MIcT^Ax}RfR7N3DLL^X3A5lUi
zQbr<DKqXZ~B~w8rRz4_JM<i52CRjx$RX-|NL?~KIC09f#TT3QbO($7MDp*D;UPmlm
zPAOYOE?!P5TtzQoPb^$YE?`P7VoNV$QY>InEn!SBWJxk+Q!ZjnF=bCNVM;V+PBLas
zGHOsXYD_n2Q8jB#IBHThY)(0AQ#Wl-I&4rmZ&WyLR61@|I&e}va8^2UQa*53J9AS%
zaalfeRY7xFK6Y0^c3VJpSVMPQL3de1cv?hyUPF0bLwjFEePBj@PIh7<00009a7bBm
z005Jt005Jt0nxJX#sB~S2XskIMF-ad2@NPQ{Tz<20000TbVXQnLvL+uWo~o;Lvm$d
zbY)~9cWHEJAXI2&AV*0}Q14_VZU6uS_DMuRR5;58!2u&1R{#Lur)pK2YRZ$l>uFNV
zb}THBsbwKzyVORRMwg%^w+WUTNu0>i2$JTs=a@w|<lJG|X$TRfr1*3DK2RU6*cB%}
zGGE3vvI}@&4^#X^e4TkmK9>VJMr<a))ln+L+RwD(uP@WRFu$KIdNjMuPhpNkpn3CD
zmjhIFG+`Uy7^f@~G4#D0k~v9U>S~R=@Z)r2hZ+#BmXNwn%zhAzJ3HBPqwUnhWd+j9
zQQ;~DYVQUJOUl0;9u5*D6^x5-<PIbtcqMQ4ztJ`lD&`nK;5wJ8rFqCLqqU7T$S-<Q
zi^F6SGiavAmgp4@*whF&8hh8CjNIA1t-?d@h!j6&Hbu(9+o3aP2L=kODI1@%<g~&;
z;v~BTsqjB@f@cb21Y&g9r~{7J6o!TT(}`-+RNDfZ5t!(zxbOG<s#9A%9TQE!&50cz
zN0mBCz*Z-L8lBcfUW(J(e>FOYwwf^rh;SvzkZ$)iLAR0xd7lMLK{_Fxr7Y=XLSIGT
z0JgZI^yTqc+%DP%9^~b%tS6{&d)#bPeVtwNEkID&uzsCOAIsk=5jfkK-?Jga8Rb_i
zo*Ht8|InR80HQlO)|ewi=Pwi!c=WJmZe<LCP7a4j*RWKZbplPfqJ;I6+-_QUd8>cm
z-=AVWLhmLj7`Ds1dIu^%ivn{UdBd>)e45-$O|Fxx*9HnLfm*vq(5ZuN0PD1-P$bL5
zPox|_*1{UooZfu5Ro@8FI;fxtuoz)*b7-pL1;Sm_*(A}Q>V9G~c6(GxGXX30Lx2^i
z(88fX$&4NTNjD6SIERh16m2+ARW#TzXqyIGlDK}!zRF#V<V-~+=yW4lzedqv3Eom!
ze#jt3a3GRr(Q-tsVI}<j=Z>9_-6p=DJU1q;uP?Lb4cEX*dBhsW-Z}5`z!`oq=rvGB
z5#-_`*N388&tfvDUChXp)idd{^_+FX)JaX_s0Icx1jilH+K^WXl1B%1Bk3zK<a5Ix
z=Tqy;RfXdg?&SvWN^N%6x6gyW`<hk`memk@oX(t_ro=7_@i6~!oAvkP<TTb7+68)}
zBW^Mf16!y25P?b$HW-=DaBdtosBNu?%LQKXeF2=wU0s|S$`C^l-KRmQX)A3~Gv@Za
z2{8m*DQg*F(BS@K`fjPBcx0(WjbV5Nk70krzkiBjfK`3-vj?@z?fc7~<*SQ7xnFQ|
zM9Cg{73K!Jdu>ewXt~x^`k-~&S6Xo6)A@V(H^GhXESb0WN>voZzjzM8ZtuZEn(h_f
z`s#^2@$f=qDFwAR6Spi-qIHawK%?zUyD=aNXkmZi<HfRuP~1j&Nf7G!rgl2&+W8+`
W%6>{dgK@n80000<MNUMnLSTaUA&hqb

literal 0
HcmV?d00001

diff --git a/ground/nimground/Nimground3_purple.base.114.png b/ground/nimground/Nimground3_purple.base.114.png
new file mode 100644
index 0000000000000000000000000000000000000000..dc678efcd350f4ac90c4a73f7631a451bf800d23
GIT binary patch
literal 1728
zcmV;x20!_UP)<h;3K|Lk000e1NJLTq001BW001Be0{{R3M5Kzw0006sP)t-s00062
z0RjjB0tx^E3<3%g00s*M6BGgx9smL!0tFfZ7$gD^76u|J0tF}p1}Fj(CI$&D0|_Dq
z8YTo9DFYrZ1QRj>8Y%`QGXotk1|2j69~%xXG6o<m2_6{`Ffj=jI0hOg3@kDTCN>5q
zGzcdk5id9fDIXCvB@Zz*2`DfOCp8NpHVh;@3MVoSE;kJ(HViN}3^FqhFE|b=Hw`o}
z5;8gtEiDr}JPs~45H&duH8B%6I}bTH5ji*#Iy?|NJrOiG6FoT-J3bOMDjPpJ6h1!@
zKQ9?UKNC4R6+bl?J~S9aIu<}X7C=E0KrS3aHW@!Z6hb)}K|L2kLKZ$b8bUr7MM4%t
zJsCwb9Z5JFNkbP!Ll;Lk9Z5SJMn4)xLl{Uw8%H}HNH!o$Ivz|r9!^0VN<|t>Hz7?%
z8cISPOG6z?M;lE)AWA$TPedL}Jt0v*Ax%gfPd*}2MIcT^Ax}RfR7N3DLL^X3A5lUi
zQbr<DKqXZ~B~w8rRz4_JM<i52CRjx$RX-|NL?~KIC09f#TT3QbO($7MDp*D;UPmlm
zPAOYOE?!P5TtzQoPb^$YE?`P7VoNV$QY>InEn!SBWJxk+Q!ZjnF=bCNVM;V+PBLas
zGHOsXYD_n2Q8jB#IBHThY)(0AQ#Wl-I&4rmZ&WyLR61@|I&e}va8^2UQa*53J9AS%
zaalfeRY7xFK6Y0^c3VJpSVMPQL3de1cv?hyUPF0bLwjFEePBj@PIh7<00009a7bBm
z005Jt005Jt0nxJX#sB~S2XskIMF-ad2@NR`-)WyG0000TbVXQnLvL+uWo~o;Lvm$d
zbY)~9cWHEJAXI2&AV*0}Q14_VZU6uS_DMuRR5;58!2u&1R{#Lur)pK2YRZ$l>uFNV
zb}THBsbwKzyVORRMwg%^w+WUTNu0>i2$JTs=a@w|<lJG|X$TRfr1*3DJ`hs(iP;Z=
zac3ucZnT}6xU4{WIVxPGK<(Xxs|Cov9Ucx6Bo&N{Z{!XnAb2Hj_P^0K5-R2xge8GX
z)zUoVmeJZq8{`)~sl{Qki5WE0V@vc3N8mcZjmF-!CnI-uZ>#W-J0iu8nN5+h@OJ17
z+HGnC)Rc`+S#nz8AaRo2f>ijQIl(i9F#<6<Y}6Sj3}9HuKb@#HO|>ns8G(teiu-=w
zuR68W(=pNHh)sbGkE2Q*C19(QK#fl8A}_`1?Y|lwL|e@mbaNsg8Pe^(Cg@hOAn&t)
zDM%;8vy>&hOz5i!oCsHfD1CW+7PpJGfd_ecE9(g=+#WX@RbOY<d<zh^xWIKTeJp>g
zMBr>^e$R#wXOv&9cxuQU{zG>XsccvW#~O2l==_CZ0*@Z{%&m+e(8=L2=^B=5vra^J
z1WH&x$?c|vm$&){{{1QDBlK>ff?>P7t9PJ6Q?3B6BX2ksfKQW~smXP6_1Zw8B~WYk
z2s(Ap-J-yNDHO>v@e?V>kF~JIG^aP;ZPhnIv<@n00@i5(ZVpX#yg;~%I-4Z=Q{7K&
z#%_;FX(nK$erPemfY8FBLCK6A{z*3sk2r^ovlMMOP*pV8Fld`*1q!TRvafPiBRNx1
z2|C?K)~``?Sc11ymLD>RaZ3`xS+pEcYgh@t|G8r)WVea$C(n(E>+8$xdBgRANCL6O
zv3Jh9JaC3z40;XJQ3ScT$n~M<*0Y#wr942cte#1qt>>&8rcP=aM>Q~rAvo@k)`q;w
z+Qkg08%bY@A)g!mIG<Wyt|}b2a4$D_S8B7nzI{G<bO2Tkmemk@oX(t_ro=7_@i6~!
zoAvkP<TTb7+Wot)3B*kXVqoiZA0klc!3HDq8P1L42DPmfak=zH2MFLy?&{*yP=*+a
z=spcXO<QS`nlZQUO^Bgad><$y3>w^jOy4b46pt*Gs4)z$;4$ov`1en7%$2f&pFOB$
zZr@+_EMHyx$^C+xBTDwrt1vg%-D_(itNI4GN*}at`$`LLd^&$G|0cNcoh9@3Ua5+L
z_!rM1TCN2TX}VW@>#HaB#KQ}br4-cOOx&_SiPkYz+U-36+KmBGKnwd5A1{_QgyJ^J
zOM+0(H?`AI*G{AD4D5;%ADJ&>8`%ZCu!kvrBEHVNBcICw9V0dq_0bBDVeMzy@z<B>
zUYOs{7CoBX=BF@6BG9~fs>@v+r9i?qz%fo)CSvG&IV5wEywueidEv+D#tt=A9sM7W
Wx_(O4QT;Fg0000<MNUMnLSTY)0f;^T

literal 0
HcmV?d00001

diff --git a/monster/animal/giant_worm/event_attack_purple_worm.arc b/monster/animal/giant_worm/event_attack_purple_worm.arc
new file mode 100644
index 000000000..6e86c6100
--- /dev/null
+++ b/monster/animal/giant_worm/event_attack_purple_worm.arc
@@ -0,0 +1,6 @@
+Object event_attack_purple_worm
+title Python
+slaying /python/misc/swallow_whole.py
+type 116
+subtype 2
+end
diff --git a/monster/animal/giant_worm/purple_worm.arc b/monster/animal/giant_worm/purple_worm.arc
new file mode 100644
index 000000000..b13f9d1cf
--- /dev/null
+++ b/monster/animal/giant_worm/purple_worm.arc
@@ -0,0 +1,88 @@
+Object purple_worm
+name Purple Worm
+face purple_worm.x31
+race animal
+anim
+facings 2
+purple_worm.x31
+purple_worm.x71
+mina
+attacktype 1025
+monster 1
+sleep 1
+Str 40
+Pow 30
+Wis 20
+Dex 15
+Con 30
+Int 10
+armour 85
+resist_magic 30
+resist_acid 100
+resist_fire 30
+resist_electricity 50
+resist_poison 100
+resist_paralyze 100
+resist_death 100
+resist_blind 100
+exp 100000
+ac -15
+wc -100
+dam 50
+attacktype 3137
+hp 9000
+maxhp 9000
+sp 80
+maxsp 80
+randomitems purple_worm
+level 116
+alive 1
+speed -0.05
+weight 1800000
+can_cast_spell 1
+can_see_in_dark 1
+see_invisible 1
+editable 1
+color_fg purple
+end
+More
+Object purple_worm_2
+name Purple Worm
+face purple_worm.x31
+anim
+facings 2
+purple_worm.x31
+purple_worm.x71
+mina
+x 1
+alive 1
+color_fg purple
+end
+More
+Object purple_worm_3
+name Purple Worm
+face purple_worm.x31
+anim
+facings 2
+purple_worm.x31
+purple_worm.x71
+mina
+y 1
+alive 1
+color_fg purple
+end
+More
+Object purple_worm_4
+name Purple Worm
+face purple_worm.x31
+anim
+facings 2
+purple_worm.x31
+purple_worm.x71
+mina
+x 1
+y 1
+alive 1
+color_fg purple
+end
+
diff --git a/monster/animal/giant_worm/purple_worm.base.x31.png b/monster/animal/giant_worm/purple_worm.base.x31.png
new file mode 100644
index 0000000000000000000000000000000000000000..12034ffbb0d1863adb1d04f4c9846d86f207eae1
GIT binary patch
literal 3154
zcmV-Y46XBtP)<h;3K|Lk000e1NJLTq002M$002M;0{{R3owtGP00090P)t-s00964
z00sa91_1;B2mt^E0tW&G0R{sJ3j_iI2nz@W3I+%S1_lxd1`G`X8w&>w4hIDg1q~Di
z1`h`m4G9kt2M!7i2@?np2o4bz2?-Pl5Dy9(5egL+2o@O#5fuv&7Yhs<2@Dks5)Tm#
z77H613lkg*4jc*?7Y-B=5)U8?5ETy@84Vd74G$X)6(0)~7Yr&76c!u}9w7}991j*A
z4jLd17ak2G9S|2E5E3N~6C@266&4g55F{ZEAR`VOArKfN5EC5_DH#<MB@H1P6c{HB
z9U%@X9}yuU5g8#79Ul)a7Z?^R4i+X58Y&JNC=eDI7aAiH8YK@WB@Qqo5hEWK7AOxR
zCJ`Sg5f>^CA0!hSC=M+n5-2DV94`<QFb*9q4<;xRAuJIhFA*9l6CD;E9vU1OE)gCs
z4lg4Y9V`$kFc2aq6ecSYCMFglD-kd;4=gkh8!Z(Z9vmMm6(2MbATJaoHxd~!6d)`X
zBrg*!Di|Ow6)7wgEiw}-HW4Z_6&)@YAs!$eGZQp66EQRuEHW1-HWer^86zAcBsvo)
zG#4WzARjLoCovW^GZry67$7<mH!>M5Iu$NE7a=+qCL<&wITSr8AtpB%E<F@9IT$J>
zBPKl-D>xT9Iu|rS6FWB>EI}19IU6WL6)i*)H$@gIMHM(a95X%~FG3nGMi?+e8Z1c`
zHb5IRMHfFv6-7T9LqQroLmE0n7(_-IHcS{ZOBO*s9Y0SNIVvnEE-EQX8!tm2E=n0a
zL>@Rw95hZCL{1wzQ5ir?9yUuJJ5?GuNgqEiFfLXXQcoO9PaZ*197jzbMpqh1SsF!B
zA3ilPFjXByQX(}~AUjwdL0ud|Ix#U=9Z*jsMPM9GJ2N<C97b3oO)@$*WF1RgAWu{!
zO<y2NH#s&tH#RjoJY*q4W*<#xA4p~*RBRwtWhPH-B3x`GQgI_xb0J?uKtFOLWq2fA
zMMFkIMM6qNM2IGAPfAH%Sy*gmW^in3c5!fpfPcQYx7n^9qyPW_0d!JMQvg8b*k%9#
z00Cl4M??UK1szBL000SaNLh0L01FcU01FcV0GgZ_00007bV*G`2iF4$3kU+!#kZ&c
z00_=WL_t(o!<|<TY!l}dkG{K4x_q{F_Vt`EzS2A2h?S7q=Q&o6bKKf@r45la5+jK6
z$3#HDYiJTDZI(nKOAz5-)KE$bLt9cvM#@A3A#BY;D_H4(!q_OZu+plac3WX|p@V6p
z8*S;d?}9e5j&?SmELmsY@7;U9_ulWl%gDIPfr=n-Fyr11E$Lz)<kECS5$?r?(%u-9
zg4;RmJsa=yvT5T5LxfX@{D;7&hb~`+J~>^yQ|I5KwtqMKne2n}|Fr$$V+xZVUQ%%O
zO#m)a{;c^YPkwkwkkgF8c<g32SOc;wXx8IrpZ@&I%bYtc9%s1ceEN`OPSza6fNcNM
zQzsv^I#C*Uod0e9te>}`tW1k#CjF5A<}<8QNSy`fmcF=k@Nvt03$y_UsH`=geIHq!
zsk6Z30sr?HzXe#xhXIiCU*cL+gj0_I^OrsYYy1>2O@K_wGNpI*U|Xtq3Ng3-`MKXV
z$6{KbXbR9U&=M7;lqo=9>O=p@?S39wC`eJ1<&fMZ`gktYJTMaP|6-<P7DYo7PQlE-
zCr&AbCa0PP$T26sygYT$LZUYhL+3Ov2^7gv$}BqU*7>&%&IB}V;=%SG?Cvcnyq`~<
zMNTkgOl41z9L}PsCwvVrH<x)_ff(;d*?=o3Wuc2U{NuAQXXMz(yH!CfYcg`DoCcoF
zQ#DU5!k)Q5+Oad4&q2nhl&~x1N<zF>4n$&Nw0?N}(TE#EyRRxH!!#s;lVv`b0}GV6
zk?*o1j5R~%Ax@(oZ7xU-a+XHafGj!VA)iaf=`?f(#2g|foVuVX*q!f_B!fn2sybkZ
z3FHlWS?uXqS!>|5wH?q5#Q6c$1=ae)TU8D+X<GmQ@j^^M%Df%>3y>A1Jse0s;Y=%*
zVzrS5U8Hf^1_0?rrz%V3{TdERP$HQ~GYp83!w{shfg}A145glED8zEMbW#BU@<O?I
z)hm%a1`12}zy4xPSIzobT}e?}5Mm&!%qSk-AtA`zm+W7)YILw+qI`9GRQdnlmFugq
z)y_F96IGrW35lm2;fngs#l6iF15ZxAw6oxw;X-6|v$m;%fe@F~M%vdUBm`gp%e>$$
zTV9+PXxmt>eM9Ju#$@B((_=piV+i<AiErOpk6GF-*@Xm~13|5@{|}qD=-k)#vv0*%
ze0->_(;zHh4vYPp<2+)JL$Z-;J7#fY$=<C4$@tflmLzvyXbY9)md_I%43N~qj_T!M
zHxD6;?GTaz=aA%yR#%iJ?wV0rHT3Su4UHR1G;FpL3M48T^dbdAC_~vTh8OfU7A=ct
zmEnZpL-haPJuO?RP7gi*#`1=kj93SU0Ov8ntziivfD2YNKez2yyDPh@tGdSO%5*I8
zUzG{Ziap2MZd}-PT+2lWkzs(5qA1~xDl8))w7l?Q|DQkk#Rpf<O<uS@a;|zLnQY&<
z$#cgh$dt4{wQ=bD#IXgkXhl#GWdw7I@?=-wfdCI+yln0G`8W5yb*6q||B1fIqgTg=
zkM2A?yFJ(WZ~C_G{&@1E-@cQG+sRyl8OW87Adh7|^l-ZY5%lGTs!F#-8v4ufi{#{<
zd8a4de(l({ZKrFBgxgZsKKSa`jlW*o91|UONP@e+rU=;_o=`AUU7_&E0!1Yd&EvHP
zwUArW_}-<xr*6D@dh!Grz0>|z)-M_RUESebK{v}XB(9u}=N6GX#P!h1xp61Q5RnUd
zT{f4<VL{1bebJWU1N(RV^2(WZ1Cw+hDL3}h3+E>{h?qfk@`L?5TYs+F5f@ZKzDRei
zXeu?w@(9`?!*U#wWA0FO-O%Lqzw|Z<<bKILd%WY_tDlT05W7u-1q(hdmmyT$s>fK^
z*Cv_0iOd5aG!@q&VJ(^{K0YzHr`-dHcoZz{t~&fyAJO0GytqQk4<tzz?$e7N@bvXI
zCRKqYXmely=l~2L9q!R%4MUGi40Px)gOa1gvA2($h=iQe+c_6+{M$s5XEHfVoZZy5
zyRXNvLDHTUV#2gU{DC&HU{$`_+O0>K41jc_^4g89vKtZpX*NGFd}2>2CdqRs#)3sp
zb&aldV>@x30Zv(#6`2GgHkDL#hBrM~B`I_UBWs1p;htn=K(l2CdTo4SWq7V)66dr<
zeVv}g&yR#O76*uNJ8Ly3rA-XKwDFG%TEeBe?gYdGq_hm38hf;2L!;6<-f;NXKyO5K
z5ZcIa_3G*e*IsX}@^}TzGmwG+3Zj;?`q!1~8+KN&*L8-@K%85SH1As5*E4bEje#Sx
z_wFC9C*z3dGUWB5P~g=0M32WSscN!O7Zgn~9)4}h`%AYZ>%z-)EI>00E)?`sg_=J4
z{crv;>N$R(CaUWqf@Y{{REo4U4Zh#iZ9LK%3gteb8%^aM11(opOf;9&L`B6xXeZSA
zsuz{E?l?Dk{n`(Y9!naMLvsZkq<A393W4Y=SH|BdTUgil@|N;-&8we%bEIVHc-i8L
zZxu&_E=cMIFfP4N_Jr$})E-Ut4s@0}IXA*Gfs@5As72>4-1n2cdTs3sV~e&84K_8O
z>ThW7jvGRLK4LjQP45I6w({-*k5Q7Z#dHzcd8~-U0|b#fCL5u`;{J90i`UhM8~O&7
zSbgrYvSgK}^9;t2njWRB>hy9pMKWZs72E6#VNl?#)4GQ9I9b(|CBr+7I=y{mXGL^F
zU1dZkliNmQlBKEJ!&t&1mYuwS?1X!gJ-g(RX_|wA>QiJT4+jIYRZ-JbF(+coZuIHW
zbYmfgqW&|Dq1AjIG^r<FE?!|Nz+gtwC7Z~=Od|0yHRusF6?-MbBJy;I0d?m_Kq1b>
z5#1)<%ZjS;=CVskx+cvKpxus01=<`gx0grcmg%zoFZlFChrHP=rk<P2@@=K(yxszp
zb(rl;8VDlJ#6qG_6m_?yfQBS02=3e^0L<i6PI5TS@kGR27BS(TlwUgA3ZMaih~{XB
sc$>rkn!1Nqa`FlT%=ZA&PG9}&Ur!V|;|2Z7?EnA(07*qoM6N<$f^Hc5z5oCK

literal 0
HcmV?d00001

diff --git a/monster/animal/giant_worm/purple_worm.base.x71.png b/monster/animal/giant_worm/purple_worm.base.x71.png
new file mode 100644
index 0000000000000000000000000000000000000000..2413c91e939f0b955e6b5213b0e2cb1eaccf72b3
GIT binary patch
literal 3153
zcmV-X46gHuP)<h;3K|Lk000e1NJLTq002M$002M;0{{R3owtGP00090P)t-s00964
z00sa91_1;B2mt^E0tW&G0R{sJ3j_iI2nz@W3I+%S1_lxd1`G`X8w&>w4hIDg1q~Di
z1`h`m4G9kt2M!7i2@?np2o4bz2?-Pl5Dy9(5egL+2o@O#5fuv&7Yhs<2@Dks5)Tm#
z77H613lkg*4jc*?7Y-B=5)U8?5ETy@84Vd74G$X)6(0)~7Yr&76c!u}9w7}991j*A
z4jLd17ak2G9S|2E5E3N~6C@266&4g55F{ZEAR`VOArKfN5EC5_DH#<MB@H1P6c{HB
z9U%@X9}yuU5g8#79Ul)a7Z?^R4i+X58Y&JNC=eDI7aAiH8YK@WB@Qqo5hEWK7AOxR
zCJ`Sg5f>^CA0!hSC=M+n5-2DV94`<QFb*9q4<;xRAuJIhFA*9l6CD;E9vU1OE)gCs
z4lg4Y9V`$kFc2aq6ecSYCMFglD-kd;4=gkh8!Z(Z9vmMm6(2MbATJaoHxd~!6d)`X
zBrg*!Di|Ow6)7wgEiw}-HW4Z_6&)@YAs!$eGZQp66EQRuEHW1-HWer^86zAcBsvo)
zG#4WzARjLoCovW^GZry67$7<mH!>M5Iu$NE7a=+qCL<&wITSr8AtpB%E<F@9IT$J>
zBPKl-D>xT9Iu|rS6FWB>EI}19IU6WL6)i*)H$@gIMHM(a95X%~FG3nGMi?+e8Z1c`
zHb5IRMHfFv6-7T9LqQroLmE0n7(_-IHcS{ZOBO*s9Y0SNIVvnEE-EQX8!tm2E=n0a
zL>@Rw95hZCL{1wzQ5ir?9yUuJJ5?GuNgqEiFfLXXQcoO9PaZ*197jzbMpqh1SsF!B
zA3ilPFjXByQX(}~AUjwdL0ud|Ix#U=9Z*jsMPM9GJ2N<C97b3oO)@$*WF1RgAWu{!
zO<y2NH#s&tH#RjoJY*q4W*<#xA4p~*RBRwtWhPH-B3x`GQgI_xb0J?uKtFOLWq2fA
zMMFkIMM6qNM2IGAPfAH%Sy*gmW^in3c5!fpfPcQYx7n^9qyPW_0d!JMQvg8b*k%9#
z00Cl4M??UK1szBL000SaNLh0L01FcU01FcV0GgZ_00007bV*G`2iF4$3kVyxt{-Rs
z00_-VL_t(o!<|<RY!l}hj_&T0E}yO4`FhS5U+JB1#7gSg=Q&o6bKKf@r45laVk3wW
z$3#HDYiJTDZI(nKOAz5NYAB<Hp)DySBW0q25VmHa6|8hXVQdsySZP&IyR9&~(7`m)
zjka{!cWL+2t!#Ermd=*$eeeCA=Y5~&bxux37vKaz0Xbjs0)nFGnlls-b&2{4@r>8U
zvu|nKj-V85>QJ&zAp5|TD~CTM4*L&J1JMw&ji;4|FYWmKf<yUF=6`bs`4+D`vOR$;
zTz>b|sRem{@(MxR%14Tn9fB_I%BLScaqf|Op(T%4OXS~r*vKjYbXe~@HT{G?pP=E~
zyt$V9Kb-5Dl??)dgL(3n|9)z=#gdx`S>At+|GFDxfq=sbzx~nLJdywe3oHvPj~u%F
ziR8+>rw~+IxyybM5VVD`;E$jFmY*o1Gfu#w-fn%`Lgo@?I6?Z?5+7aWQRZim#As^(
zPy|VlX1rxC>;L#~w`oXb$^pmw#BTYpg(OKpS^)3gamxShGyyXOftEExIi31TE+EYm
zfFkd;%>KmBOPPXzB)K%Ow55Qe%>)<;%cbcnpPr&QkTHh*-6h3+d%m-SFcVM|G5gT%
z1y-9qQw;5VJmB=iTApw8Jxb#83Cnc;^ejW*GELxuvL>To;?2?HqXppH4-k6^=1D<k
z#tEEAsy1lAxzoFLet(_^!8(to7BPIrok#;Yp77ZKaz!4R7-@)#@kl`S@-XvG2E1%&
z2tljUZ6uXqP!Qy0nag6Bk?!<`k`74@sF4Z>1o(2Y*{A_!NRrR(LW(Bn4jc_Rl$E*z
zWYn$d^&rL@^y1e;n#fMqG5+edBMmBWssT3wG(}`7sL%?F5A2+;Kp`&hkRY;+&q0)^
zH%98>60+tZJW1J=j~S4F6hzuUr6j8kJdarvz;a9|6z!D&N(~$xj7frFhZ$>tqStMx
z?XG?H<pawEKo><`SY0LqFC;)_1SrvtHI<W%Lu0E~52Wv+0hD%*l+98YKtq^`iWKj9
zZtAhY$(Ft)T@6)XJH<<>S)N3y+QHeZsAj{e|CdCo+|)jpDq9hA2)v8}fPhkJeMh7&
zh5(?eHfvkPBEtVj!RcGK{C1#31JKS2&?!63*7dC0?<)`S1VG^*kDuAsly0)$2@IG_
z4{qDHG=dmpLlCl(9nz3bZW#~}hkw&XSNrfpa(t!lPSeb$DynLt9tm=|X#uby1_0g_
zUQyFoqDlm97w1<N#zO5Ed*m-QcnbQARJdA;EH7>9TNoByGLQj4N~zvhl?p&}l#o`w
zscGX>k8Y^ce-Az{Aw5<<-kqrFuHN(W?N7C=E=B}|Qn)Q_csK%bb_UAv#ucwTJ$xpy
zwbk>59nQ0PQ%5>IT62E%#>J`g*WUT*2Y(oN_L)|JfHF#Sh80DD2wMb%uuwa(`{K>^
z6MI+wD}$r3W6qIX$3`Zu9h>Sud0?{P>}&g9y)dyZmIMSJxF_J0i%JUsltl?Zt0*r#
zK6zny)8ifG|DaPStv$1S`|+1vpFA^vZ(1&O#|9cB+ba^GLLY#@=y)Kc%ZLZi?Swf1
zdy_4hdgE8`O})Qo+viYX`#d>y=Ea+*`<C_bn&t{=_i21lG@yvU0(qsXCKL>L>?|y;
zy&FRXY<4le<@%p)j=wn6F(Zx?GCIy){n_pV2g_QcKBh<!5GOiWr#FZNjOHB4d8<Nt
z5_7Qlsm=n77tJuP;O-;!zaC%OP;H)q5}Nz|cw=g~z9!^~%aG$38rT5j8O~H-v92fL
z3n@Vk+SH$H`-TlaZ-X=vH%?u+_@j8Cgj<U6bnG3PJW-a4YDlu1x(V<En3p+!QhWa*
z!=t)X0OZQ|7Z&3H%7uV3`oXm~J16G2FbqKN9GrY`xG}DK@az&aVaM^NenZFzYPzYf
z-*Zo?eivpTeQ-s{Im0^E>i*Y`Bzl$=W09ewdQY3`UR^A*z<ei;!{HYE9k51k|DNv6
z_+W_3rTO&apPQ20%=YdGMNS@lJzf@-$s9_N5|3>TcU6@)i@11Mk!9II;9_VSa;+Qd
zethvlL$PB*QN`YqBLO#qn;1fuyzS=oYD0%a4&l)Cig4?~-)(v>EV8B>S{WODD1aC(
zH2U-sPnR#snw|uddEr%)$vR!gVYNVYx_2a9qRDg)MeF*8nq7?>s(-PjKobQ(020tV
z61<*7+soJAQFX6rt`OMONZ;V`BaIVnO4G)whsIA2w<^%A00>B59<EPsUH10YmmV+_
zO%e2_w5m#8PjBkN=|HGd=YgrooZ2vUVBeghgRh*O?CoE-yCovKI7|z$D`K>^yk&Cb
z)z-nz%4S1<v@jHEd(i0VetW37Jt9R_6C40VU60ltJmDGp>o0%vUUMkn2|}kS^%QUh
zqh(*KS`wRBRzCXbch|J6uiW~4Q~jdY8xvPwhz10P!NdW3(5cxaBYphX_paX<JHNB7
zVsVWR6PA-h5*!2FZox?Qv@{N!ZfPDG-oAMJnYucC-w*dMnitiAc&WoFWCUHDqoQlD
zFMX_TX?@rum*`H~G%FGyMDx0qNXM2JHpG>o{>E^_`XvMF2g*u9h8%Z6Od_z03gT@*
z)Z?1F-0&2;cq`IA+Z9L(S7Kwa1M89M`i;@5u2mg+y|HU#siLbgSA=HN%*qKEN7}|B
zt5-H8h2^{smHEtWNs@*$10?Cbra4BWKvZ>2RObYOs7R3&pDF;3qGYFJ!+c^sY*64G
zG7^#WPrD`wY#hJ_87O&?s)?SU8pl$e3uuv*bcseZK{5*OG|z$wF>lZczTnm*G1I=-
zNFeWZIqfX&NNBSGVV0!n5@{~FyrwELJ_lBP&dEXYKeq+Ej9c&s<18Emtoari+8MRj
z>*c7=AD}2x-OXX+!IybGt_>k1%2?n{Q*ziPPUUjJzZXj5Mki@N-Dy=IDT0<*9s-J^
rARq|*PbKTM2#=Dv)f4!Z(er-?Dl9tV<ZoZ>00000NkvXXu0mjf(68Y&

literal 0
HcmV?d00001

diff --git a/monster/animal/giant_worm/purple_worm.trs b/monster/animal/giant_worm/purple_worm.trs
new file mode 100644
index 000000000..a79686b82
--- /dev/null
+++ b/monster/animal/giant_worm/purple_worm.trs
@@ -0,0 +1,13 @@
+treasure purple_worm
+  arch spell_magic_bullet
+  more
+  arch spell_vitriol
+  more
+  arch abil_slow
+  more
+  arch event_attack_purple_worm
+  more
+  arch gem
+    chance 60
+    nrof 7
+  end