[CHARDEF c_m_orc_brute] // Bruretmiz =)
DEFNAME=c_m_orc_chopper
NAME=orcish brute
ID=c_ORC_LORD
CAN=MT_WALK|MT_RUN|MT_USEHANDS|MT_EQUIP|MT_FLY
RESOURCES=8 i_ribs_raw
FOODTYPE=15 t_meat_raw
DESIRES=i_gold,spk_orc,t_corpse
TSPEECH=spk_orc
TEVENTS=e_orc,e_orc_ai
DAM=15,20
ARMOR=8
//shelter=r_caves,r_dungeon,r_orc_camp
CATEGORY=Monsters
SUBSECTION=Orcs
DESCRIPTION=Orcish Brute
ON=@Create
NPC=brain_monster
COLOR=0455
STR={200 320}
DEX=700
INT={16 40}
PARRYING={70.0 100.0}
MAGICRESISTANCE=100.0
TACTICS=100.0
SWORDSMANSHIP=70.0
LUMBERJACKING=100.0
FAME={100 2000}
KARMA={-1999 -3999}
ITEM=04185
ITEM=i_fruit_apple,{2 4}
ITEM=i_log,{1 5}
ITEM=i_ringmail_tunic
ITEM=i_helm_orc
ITEM=i_gold,{750 850}
ITEM=i_bandage,{5 7}
[CHARDEF c_m_orc_bomber]
DEFNAME=c_m_orc_bomber
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,18
ARMOR=8
//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=Orc Bomber
ON=@Create
NPC=brain_monster
COLOR=COLORS_Red
STR={70 110}
DEX={400 500}
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,{115 160}
ITEM=i_fruit_apple,{2 4}
ITEMNEWBIE=i_bow_exp
//On=@HitTry
//if (<src.distance> < 1)
// flee
//endif
ON=@GETHIT
DORAND 10
sayu Rooghrn!
sayu Uch den dfogrobhen!
sayu Dorgeun?
sayu Dash Sufvk!
sayu Ufrugug
sayu ROORGL!
sayu RRAGH!
sayu OGHRG!
sayu Rogdurg ugdrud
sayu Rudgrug?
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 Hoho!
sayu Ogrghfd!
sayu Hohoho!
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