Threaded Mode | Linear Mode

Khaos · (03-15-2016)

Something being messed with for Base Packs. Give it a test and let me know what you think. Love

It can have potential to be Nasty. Basically, sphere has AI being worked on, but I plan to do some individual or group AI's that add on to sphere and mimic or go beyond EA.

Code:

[Events AI_Lich]

On=@NPCActFight

If !(<R19>)

 If (<Int> <= 400)    // Lich

  Serv.NewNPC={c_Skeleton 1 c_Zombie 1 c_Ghoul 1 c_Spectre 1 c_Wraith 1 c_Shade 1}

  New.Amount={4 1 6 1 8 1}

  New.Flags |= StatF_Conjured

  New.TimerF 300,Remove

  New.P=<Src.P>

  New.Attack <Src>

  AssumeForm 300

  P=<New.P>

  Update

 ElIf (<Int> <= 800)    // Lich Lord

  Serv.NewNPC={c_Bone_Knight 1 c_Bone_Mage 1 c_Skeletal_Knight 1 c_Skeletal_Mage 1 c_Rotting_Corpse 1 c_Mummy 1}

  New.Amount={4 1 6 1 8 1}

  New.Flags |= StatF_Conjured

  New.TimerF 300,Remove

  New.P=<Src.P>

  New.Attack <Src>

  AssumeForm 300

  P=<New.P>

  Update

 ElIF(<Int> <= 1200)    // Ancient Lich

  Serv.NewNPC={c_Flesh_Golem 1 c_Gore_Fiend 1 c_Patchwork_Skeleton 1 c_Interred_Grizzle 1 c_Rotting_Corpse 1 c_Mummy 1}

  New.Amount={4 1 6 1 8 1}

  New.Flags |= StatF_Conjured

  New.TimerF 300,Remove

  New.P=<Src.P>

  New.Attack <Src>

  AssumeForm 300

  P=<New.P>

  Update

 EndIf

EndIf

[Function AssumeForm]

Tag.Name=<Name>

Body=<New.DispID>

Name=<New.Name>

Color=<New.Color>

TimerF <ArgN>,ResumeForm

[Function ResumeForm]

Body=<OBody>

Name=<Tag.Name>

Color=<OSkin>

Tag.Name=

Return

Threaded Mode \| Linear Mode Test: AI_Lich
Author	Message