Threaded Mode | Linear Mode

Khaos · 03-27-2016 07:06 PM

And this should be the standard NPC Golem...

Code:

[Events AIGolem]

On=@SpellEffect

If (<ArgN1> == sHeal) || (<ArgN1> == sGreaterHeal) || (<ArgN1> == sParalyze) || (<ArgN1> == sPoison)

 Return 1

EndIf

On=@GetHit

If (<IsPet>)

 If (<Owner.Distance> <= 7)

  If (<ArgN1> > <Owner.Mana>)

   Local.Dam=<Eval (<ArgN1> - <Owner.Mana>)>

   Owner.Mana -= <ArgN1>

   Owner.Damage <Local.Dam>,DamGod,<Src.UID>

  Else

   Owner.Mana -= <ArgN1>

  EndIf

 EndIf

EndIf

On=@Hit

If !(<R19>)

 Src.SMsgL -1,1070696    // You have been stunned by a colossal blow.

 If (<Src.Events> == eStunned)

  Src.FindID.iStunMemory.Timer += 10

 Else

  Src.Events +eStunned

  Src.Flags &= ~StatFWar

  Src.Flags |= StatFParalyzed

  Serv.NewItem iStunMemory,1,<Src.Equip>

 EndIf

EndIf

On=@DeathCorpse

NewLoot=GolemLoot

[Events eStunned]

On=@WarMode

Return 1

On=@SpellCast

Return 1

On=GetHit

ArgN2 |= DamNoUnparalyze

Return 

[ItemDef iStunMemory]

ID=iMemory

Name=Stun Memory

On=@Create

Timer=10

On=@Timer

Cont.Events -eStunned

Cont.Flags &= ~StatFParalyzed

Remove

Return 1

[Template GolemLoot]

Category=Templates: NPC Loot

Subsection=Monsters: Mechanical

Description=Golem

Item=iArcaneGem,1,R19

Item=iPowerCrystal,1,R19

Item=iClockworkAssembly,1,R19

Item={RandomCommonMusicBoxGear 75 RandomUncommonMusicBoxGear 24 RandomRareMusicBoxGear 1},1,R19

Item=RandomIngot,{11 25}

[CharDef 02F0]

DefName=cGolem

Name=golem

Can=CanWalk|CanUseHands

MoveRate=100

Dam=13,24

Armor=35,55

Icon=iGolemIcon

Sound=

FoodType=

MaxFood=0

Resources=0

Aversions=tTrap

Desires=tIngot

BloodColor=-1

TEvents=AIGolem

Category=Monsters

Subsection=Mechanical

Description=Golem

On=@Create

NPC=BrainMonster

Fame=3500

Karma=-3500

//Alignment=Evil

DamPhysical=100

DamFire=0

DamCold=0

DamPoison=0

DamEnergy=0

ResPhysical=35,55

ResFire=100

ResCold=10,30

ResPoison=10,25

ResEnergy=30,40

OStr={251 350}

ODex={76 100}

OInt={101 150}

MaxHits={151 210}

Wrestling={601 1000}

Tactics={601 1000}

MagicResistance={1501 1900}

Parrying={601 1000}

[EOF]

Fixed a small typo! ^_^

Threaded Mode \| Linear Mode tGolemAssembly
Author	Message