+- SphereCommunity (https://forum.spherecommunity.net)
+-- Forum: Sphere 0.56d (/Forum-Sphere-0-56d)
+--- Forum: Script Submissions (/Forum-Script-Submissions)
+--- Thread: Test: AI_Lich (/Thread-Test-AI-Lich)
Test: AI_Lich - Khaos - 03-14-2016 03:02 AM
Something being messed with for Base Packs. Give it a test and let me know what you think.
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