Orc Bomber , Rotting Corpse

[CHARDEF c_rotting]
NAME=Rotting Corpse
SOUND=snd_monster_zombie1
ID=C_ZOMBIE
CAN=MT_WALK|MT_RUN

DAM=3,0
ARMOR=35
//shelter=r_spooky
TEVENTS=e_undead

CATEGORY=Monsters
SUBSECTION=Undeads
DESCRIPTION=Rotting Corpse

ON=@Create
COLOR=03a
NPC=brain_undead
STR=300
DEX=175
INT=10

PARRYING={90.0 100.0}
MAGICRESISTANCE={100.0}
TACTICS={90.0 100.0
WRESTLING={120.0 130.0}
POISONING={300.0 700.0}
FAME={300 5000}
KARMA={-6000 -6200}

///////////////////////

[CHARDEF c_m_orc]
DEFNAME=c_m_orc
NAME=orc bomber
ID=c_ORC
CAN=MT_WALK|MT_EQUIP|MT_FIRE_IMMUNE|MT_RUN
RESOURCES=8 i_ribs_raw
FOODTYPE=15 t_meat_raw
DAM=12,20
ARMOR=10
SHELTER=r_caves,r_dungeon,r_orc_camp
DESIRES=i_gold,spk_orc,t_corpse
TSPEECH=spk_orc
TEVENTS=e_orc,e_orc_ai

CATEGORY=Monsters
SUBSECTION=Orcs
DESCRIPTION=mulayim

ON=@Create
NPC=brain_monster
COLOR=004ba
STR={70 110}
DEX={600 1000}
INT={16 40}

ARCHERY=100.0
MAGICRESISTANCE=100.0
TACTICS=100.0

FAME={300 1000}
KARMA={-1999 -3999}

ITEM=i_bottle_purple
ITEM=i_gold,{15 60}
ITEM=i_fruit_apple,{2 4}
ITEMNEWBIE=i_bow_exp

//On=@HitTry
//if (<src.distance> < 1)
// flee
//endif

ON=@GETHIT
DORAND 10
sayu Git Buradan!
sayu Kafanda Sorunmu Var?
sayu Beynin Basmiomu?
sayu Sen Adami Deli Edersin
sayu Git Diyom Ya SAna
sayu Lan Git Ulan Buradan
sayu Tobe Tobe
sayu En Sonunda Kufur Ettirecen
sayu Allah Allah
sayu Beynin Basmiomu?
ENDDO
dorand 2
anim 4
anim 5
enddo
leave 3

ON=@Hit
dorand 2
anim 4
anim 5
enddo
SRC.Effect=3,I_FX_Explode,1,22,1
if ((RAND(5)==1))
DORAND 3
sayu Hos Geldin Ama Sefa Getirmedin
sayu Eli Bos Geldin
sayu Simdi Sie
ENDDO
endif

//QUEST ITEMLERI

[ITEMDEF i_eorc_helm]
DEFNAME=i_eorc_helm
NAME=an evil orc helm
ID=i_helm_orc
REQSTR=70
WEIGHT=3

CATEGORY=Provisions - Armor
SUBSECTION=Mask
DESCRIPTION=Evil Orc Helm

ON=@Create
HITPOINTS={100 200}
COLOR=COLORS_yellow

ON=@EQUIP
SRC.STR = (<SRC.STR>+(10))
SRC.KARMA = (<SRC.KARMA>-(100))
SRC.SYSMESSAGE You have lost a bit of karma.

if (<SRC.DEX> < <SRC.INT>)
SRC.INT=(<SRC.INT>-(10))
ELSE
SRC.DEX=(<SRC.DEX>-(10))
endif

ON=@UNEQUIP
SRC.STR = (<SRC.STR>-(10))
if (<SRC.DEX> < <SRC.INT>)
SRC.DEX=(<SRC.DEX>+(10)) 
ELSE
SRC.INT=(<SRC.INT>+(10)) 
endif

[ITEMDEF i_Bow_Orcish]
DEFNAME=i_Bow_Orcish
NAME=orcish bow
ID=i_bow
DAM=15,25
REQSTR=70
TWOHANDS=Y
WEIGHT=3
SPEED=35

CATEGORY=Provisions - Weapons
SUBSECTION=Bows - Exceptional
DESCRIPTION=Orcish Bow

ON=@Create
HITPOINTS={10 30}
COLOR=COLORS_GREEN

ON=@EQUIP
SRC.KARMA = (<SRC.KARMA>-(1000))
SRC.SYSMESSAGE You have lost a bit of karma.

//ORC BOMBER ICIN
[ITEMDEF i_bow_exp]
NAME=skin
ID=i_bow
DAM=13,17
REQSTR=50
VALUE=1
TDATA1=0
TDATA3=0
TDATA4=01c1c
TWOHANDS=N

CATEGORY=Provisions - Weapons
SUBSECTION=Bows - Exceptional
DESCRIPTION=EXBOW

ON=@Create
HITPOINTS={100 200}
COLOR=237

[EOF]