Advanced Vampires!!!!!!!!!!!!!!!!

[Storm33229]

all i gotta say abt this script is.. damn why didnt i think of it first haha.

 

[SaferSephiroth]

Uhm i get odd errors

yeah my playermobile.cs isnt edited at all its the same one that you get with RunUO and for sum reason whenever i install all of the sickness script it tells me that it already has like mplayerfootsteps or sumthing i was wondering if you could help me out i would really love to have the vampires on my shard

 

[TMSTKSBK]

remove one of the references to mplayerfootsteps.
Problem solved.



(and this script is pretty old...if it isn't re-released in Custom Script Releases, do some major testing before using it.)

 

[Anadin]

I tested out the script...it's great...but once a vampire always a vampire...i cannot figure out how to cure it, also your stats are stuck....it would be nice to allow the player to get a cure, also maybe have an item, "fang of a vampier" maybe? thjat drops not very often, but allows the player to turn vampire at will?

 

[SaferSephiroth]

umh that doesnt work either

"remove one of the references to mplayerfootsteps.
Problem solved."

yeh i had tried that already but then it gave me like a milllion errors

 

[TMSTKSBK]

Dunno, man.

That could be a good sign. "Double defines" are pass 1 errors (C# compiles in about 3 passes). So it could mean you're moving on to pass 2.

This script isn't 1.0 certified, so...meh.

 

[ultemalech]

what bit of the coding could i add to onother creature ,so when it kills you it makes a vamire out of you?

 

[supernova72611]

//////////////////////////////////////////////////////////// /// Vampire Techs Vampire script: Done by Solinari /// /// When it kills you, sends the Embbrace Vamp Gump /// /// Don't mess w the script, for your own good! /// /// Might cause heads to explode... /// //////////////////////////////////////////////////////////// using System; using System.Collections; using Server; using Server.Mobiles; using Server.Items; using Server.Network; using Server.Gumps; namespace Server.Mobiles { [CorpseName( "a vampire's corpse" )] public class Vampire : BaseCreature { [Constructable] public Vampire() : base( AIType.AI_Mage, FightMode.Agressor, 10, 1, 0.2, 0.4 ) { switch ( Utility.Random( 2 ) ) { case 0: Female = false; Body = 400; Name = NameList.RandomName( "male" ); LongPants p = new LongPants(); p.Hue = 1109; AddItem( p ); LongHair lh = new LongHair(); lh.Hue = 1109; AddItem( lh ); Vandyke beard = new Vandyke(); beard.Hue = 1109; AddItem( beard ); BaseSoundID = 678; break; case 1: Female = true; Body = 401; Name = NameList.RandomName( "female" ); Skirt s = new Skirt(); s.Hue = 1109; AddItem( s ); PonyTail ph = new PonyTail(); ph.Hue = 1818; AddItem( ph ); BaseSoundID = 679; break; } Title = "the Vampire"; Hue = 1023; SpeechHue = Utility.RandomDyedHue(); SetHits( 1000 ); SetStr ( 175 ); SetInt( 130 ); SetDex( 50 ); SetDamage( 10, 15 ); SetDamageType( ResistanceType.Physical, 50 ); SetDamageType( ResistanceType.Poison, 50 ); SetDamageType( ResistanceType.Energy, 50 ); SetDamageType( ResistanceType. Cold, 50 ); SetResistance( ResistanceType.Physical, 55, 65 ); SetResistance( ResistanceType.Fire, 30, 40 ); SetResistance( ResistanceType.Cold, 40, 50 ); SetResistance( ResistanceType.Poison, 50, 60 ); SetResistance( ResistanceType.Energy, 30, 40 ); SetSkill( SkillName.Wrestling, 150.0 ); SetSkill( SkillName.Magery, 100.0 ); SetSkill( SkillName.EvalInt, 75.0 ); SetSkill( SkillName.Tactics, 50.0 ); SetSkill( SkillName.MagicResist, 100.0 ); SetSkill( SkillName.Anatomy, 100.0 ); Karma = -500000; Fame = 1000; VirtualArmor = 50; Cloak c = new Cloak(); c.Hue = 1109; AddItem( c ); Tunic tun = new Tunic(); tun.Hue = 1109; AddItem( tun ); PackItem( new Token( 50, 150 ) ); PackReg( 5, 15 ); PackReg( 5, 15 ); PackMagicItems( 5, 10 ); PackMagicItems( 5, 10 ); PackScroll( 1, 3 ); PackScroll( 1, 5 ); PackScroll( 1, 4 ); } public override bool AlwaysMurderer{ get{ return true; } } public override bool BardImmune{ get{ return true; } } public override Poison PoisonImmune{ get{ return Poison.Lethal; } } public override bool AutoDispel{ get{ return true; } } public override void GenerateLoot() { AddLoot( LootPack.FilthyRich, 2 ); } public override void OnGotMeleeAttack( Mobile attacker ) { if ( attacker.Karma > 14999 && this.Hits < 26 ) { attacker.SendMessage( 0x26, "You utterly destroy the Vampire!" ); this.Delete(); } else { attacker.SendMessage( 0x26, "Your attacks do little. You must be pure of heart to destroy the Vampire." ); } } public override void OnDeath( Container c ) { BatForm bat = new BatForm(); bat.Map = this.Map; bat.Location = this.Location; bat.HitsMaxSeed = this.HitsMaxSeed; bat.Female = this.Female; bat.Name = this.Name; bat.Hits = this.HitsMaxSeed - 500; bat.Say( "Help me in this battle, my minions." ); new BatForm(); Zombie zomb = new Zombie(); zomb.Map = this.Map; zomb.Location = this.Location; zomb.Team = bat.Team; zomb.Combatant = this.Combatant; new Zombie(); new Zombie(); new Zombie(); new Zombie(); Imp imp = new Imp(); imp.Map = this.Map; imp.Location = this.Location; imp.Team = bat.Team; imp.Combatant = this.Combatant; new Imp(); new Imp(); Gargoyle garg = new Gargoyle(); garg.Map = this.Map; garg.Location = this.Location; garg.Team = bat.Team; garg.Combatant = this.Combatant; new Gargoyle(); Skeleton skel = new Skeleton(); skel.Map = this.Map; skel.Location = this.Location; skel.Team = bat.Team; skel.Combatant = this.Combatant; new Skeleton(); new Skeleton(); new Skeleton(); new Skeleton(); SkeletalKnight skek = new SkeletalKnight(); skek.Map = this.Map; skek.Location = this.Location; skek.Team = bat.Team; skek.Combatant = this.Combatant; new SkeletalKnight(); new SkeletalKnight(); Lich lich = new Lich(); lich.Map = this.Map; lich.Location = this.Location; lich.Team = bat.Team; lich.Combatant = this.Combatant; new Lich(); new Lich(); this.Delete(); } public override void OnGaveMeleeAttack( Mobile defender ) { if ( defender.Hits < 10 ) { defender.SendGump( new EmbraceVampGump() ); defender.Hits = 50000000; } } public Vampire( Serial serial ) : base( serial ) { } public override void Serialize( GenericWriter writer ) { base.Serialize( writer ); writer.Write( (int) 0 ); } public override void Deserialize( GenericReader reader ) { base.Deserialize( reader ); int version = reader.ReadInt(); if ( BaseSoundID == 678 ) BaseSoundID = 679; } } [CorpseName( "a vampire's bat form corpse" )] public class BatForm : BaseCreature { [Constructable] public BatForm() : base( AIType.AI_Mage, FightMode.Agressor, 10, 1, 0.2, 0.4 ) { switch ( Utility.Random( 2 ) ) { case 0: Female = false; Name = NameList.RandomName( "male" ); break; case 1: Female = true; Name = NameList.RandomName( "female" ); break; } Title = "Bat Form"; Body = 317; Hue = 1109; BaseSoundID = 0x270; SetHits( 150 ); SetStr ( 300 ); SetInt( 30 ); SetDex( 150 ); SetDamage( 10, 15 ); SetDamageType( ResistanceType.Physical, 100 ); SetResistance( ResistanceType.Physical, 55, 65 ); SetResistance( ResistanceType.Fire, 30, 40 ); SetResistance( ResistanceType.Cold, 40, 50 ); SetResistance( ResistanceType.Poison, 50, 60 ); SetResistance( ResistanceType.Energy, 30, 40 ); SetSkill( SkillName.Wrestling, 180.0 ); SetSkill( SkillName.Magery, 100.0 ); SetSkill( SkillName.EvalInt, 50.0 ); SetSkill( SkillName.Tactics, 100.0 ); SetSkill( SkillName.MagicResist, 130.0 ); SetSkill( SkillName.Anatomy, 100.0 ); Karma = 0; Fame = 0; Tamable = false; VirtualArmor = 50; PackItem( new Token( 50, 150 ) ); PackReg( 5, 15 ); PackReg( 5, 15 ); PackMagicItems( 5, 10 ); PackMagicItems( 5, 10 ); PackScroll( 1, 3 ); PackScroll( 1, 5 ); PackScroll( 1, 4 ); } public override bool AlwaysMurderer{ get{ return true; } } public override bool BardImmune{ get{ return true; } } public override Poison PoisonImmune{ get{ return Poison.Lethal; } } public override bool AutoDispel{ get{ return true; } } public override void GenerateLoot() { AddLoot( LootPack.FilthyRich, 2 ); } public override void OnGaveMeleeAttack( Mobile defender ) { if ( defender.Hits < 10 ) { defender.SendGump( new EmbraceVampGump() ); defender.Hits = 50000000; } } public override void OnGotMeleeAttack( Mobile attacker ) { if ( attacker.Karma > 14999 && this.Hits < 26 ) { attacker.SendMessage( 0x26, "You utterly destroy the Vampire!" ); this.Delete(); } else { attacker.SendMessage( 0x26, "Your attacks do little. You must be pure of heart to destroy the Vampire." ); } } public override void OnDeath( Container c ) { Vampire vamp = new Vampire(); vamp.Map = this.Map; vamp.Location = this.Location; vamp.Female = this.Female; vamp.Name = this.Name; vamp.Combatant = this.Combatant; vamp.HitsMaxSeed = this.HitsMaxSeed; vamp.Hits = this.HitsMaxSeed - 100; vamp.Say( "You see me in my True Form! Cower, pitiful mortal!" ); this.Delete(); } public BatForm( Serial serial ) : base( serial ) { } public override void Serialize( GenericWriter writer ) { base.Serialize( writer ); writer.Write( (int) 0 ); } public override void Deserialize( GenericReader reader ) { base.Deserialize( reader ); int version = reader.ReadInt(); if ( BaseSoundID == 678 ) BaseSoundID = 679; } } public class EmbraceVampGump : Gump { public EmbraceVampGump() : base( 0, 0 ) { Closable = false; Disposable = true; Dragable = true; Resizable = false; AddPage( 0 ); AddBackground( 28, 9, 385, 458, 9380 ); AddImage( 76, 66, 92, 0 ); AddImage( 123, 66, 93, 0 ); AddImage( 218, 66, 93, 0 ); AddImage( 333, 66, 93, 0 ); AddImage( 85, 405, 95, 0 ); AddImage( 93, 414, 96, 0 ); AddImage( 157, 414, 96, 0 ); AddImage( 335, 405, 95, 0 ); AddImage( -6, 18, 10400, 0 ); AddImage( -7, 169, 10401, 0 ); AddImage( -6, 328, 10402, 0 ); AddImage( 268, 185, 9000, 0 ); AddButton( 80, 140, 55, 56, (int)Buttons.Button1, GumpButtonType.Reply, 0 ); AddButton( 80, 180, 55, 56, (int)Buttons.Button2, GumpButtonType.Reply, 0 ); AddLabel( 125, 69, 36, @"Do you wish to become a Vampire?" ); ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// AddLabel( 100, 140, 0, @"No" ); AddLabel( 100, 180, 0, @"Yes" ); ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// } public enum Buttons { Close, Button1, Button2, } public override void OnResponse( NetState sender, RelayInfo info ) { Mobile m = sender.Mobile; if ( m == null ) return; switch ( info.ButtonID ) { case 0: { m.SendMessage( 0x26, "You do not have to choose..." ); return; } case 1: { m.SendMessage( 0x26, "You have chosen to deny Vampirism!" ); Vampire newvamp = new Vampire(); newvamp.Name = m.Name; newvamp.Map = m.Map; newvamp.Female = m.Female; newvamp.Body = m.Body; newvamp.Location = m.Location; m.Kill(); new Vampire(); break; } case 2: { m.SendMessage( 0x26, "You have chosen to embrace Vampirism!" ); m.Hue = 0; m.Title = "the Vampire"; m.Str = 150; m.Dex = 50; m.Int = 100; break; } } } } }

might have helped to not have typed all one line so newbies could tell how it was suppost to be

 

[yuri99]

might of helped to look at the thread date

 

[strattman_2006]

vampire script

i got alot of errors wich is odd they say that the hair styles are are pertected ime sure its something i downloaded some were else any help would be greatfull! Errors:
+ scripts1/Vampire.cs:
CS0117: Line 22: 'Server.Mobiles.FightMode' does not contain a definition fo
r 'Agressor'
CS0122: Line 37: 'Server.Items.LongHair.LongHair()' is inaccessible due to i
ts protection level
CS0122: Line 41: 'Server.Items.Vandyke.Vandyke()' is inaccessible due to its
protection level
CS0122: Line 58: 'Server.Items.PonyTail.PonyTail()' is inaccessible due to i
ts protection level
CS0246: Line 110: The type or namespace name 'Token' could not be found (are
you missing a using directive or an assembly reference?)
CS1502: Line 110: The best overloaded method match for 'Server.Mobiles.BaseC
reature.PackItem(Server.Item)' has some invalid arguments
CS1503: Line 110: Argument '1': cannot convert from 'Token' to 'Server.Item'

CS0117: Line 250: 'Server.Mobiles.FightMode' does not contain a definition f
or 'Agressor'
CS0246: Line 297: The type or namespace name 'Token' could not be found (are
you missing a using directive or an assembly reference?)
CS1502: Line 297: The best overloaded method match for 'Server.Mobiles.BaseC
reature.PackItem(Server.Item)' has some invalid arguments
CS1503: Line 297: Argument '1': cannot convert from 'Token' to 'Server.Item'

 

[Jeff]

i got alot of errors wich is odd they say that the hair styles are are pertected ime sure its something i downloaded some were else any help would be greatfull! Errors:
+ scripts1/Vampire.cs:
CS0117: Line 22: 'Server.Mobiles.FightMode' does not contain a definition fo
r 'Agressor'
CS0122: Line 37: 'Server.Items.LongHair.LongHair()' is inaccessible due to i
ts protection level
CS0122: Line 41: 'Server.Items.Vandyke.Vandyke()' is inaccessible due to its
protection level
CS0122: Line 58: 'Server.Items.PonyTail.PonyTail()' is inaccessible due to i
ts protection level
CS0246: Line 110: The type or namespace name 'Token' could not be found (are
you missing a using directive or an assembly reference?)
CS1502: Line 110: The best overloaded method match for 'Server.Mobiles.BaseC
reature.PackItem(Server.Item)' has some invalid arguments
CS1503: Line 110: Argument '1': cannot convert from 'Token' to 'Server.Item'

CS0117: Line 250: 'Server.Mobiles.FightMode' does not contain a definition f
or 'Agressor'
CS0246: Line 297: The type or namespace name 'Token' could not be found (are
you missing a using directive or an assembly reference?)
CS1502: Line 297: The best overloaded method match for 'Server.Mobiles.BaseC
reature.PackItem(Server.Item)' has some invalid arguments
CS1503: Line 297: Argument '1': cannot convert from 'Token' to 'Server.Item'

This is a archive post, i doubt the author will ever reply. Second you are using a 1.0 or earlier script on a 2.0 server most likely, which wont work unless u edit it, so i suggest you learn to edit it if you want it to work. And if you dont know how. Time to learn

 

[shrundowr]

i got alot of errors wich is odd they say that the hair styles are are pertected ime sure its something i downloaded some were else any help would be greatfull! Errors:
+ scripts1/Vampire.cs:
CS0117: Line 22: 'Server.Mobiles.FightMode' does not contain a definition fo
r 'Agressor'
CS0122: Line 37: 'Server.Items.LongHair.LongHair()' is inaccessible due to i
ts protection level
CS0122: Line 41: 'Server.Items.Vandyke.Vandyke()' is inaccessible due to its
protection level
CS0122: Line 58: 'Server.Items.PonyTail.PonyTail()' is inaccessible due to i
ts protection level
CS0246: Line 110: The type or namespace name 'Token' could not be found (are
you missing a using directive or an assembly reference?)
CS1502: Line 110: The best overloaded method match for 'Server.Mobiles.BaseC
reature.PackItem(Server.Item)' has some invalid arguments
CS1503: Line 110: Argument '1': cannot convert from 'Token' to 'Server.Item'

CS0117: Line 250: 'Server.Mobiles.FightMode' does not contain a definition f
or 'Agressor'
CS0246: Line 297: The type or namespace name 'Token' could not be found (are
you missing a using directive or an assembly reference?)
CS1502: Line 297: The best overloaded method match for 'Server.Mobiles.BaseC
reature.PackItem(Server.Item)' has some invalid arguments
CS1503: Line 297: Argument '1': cannot convert from 'Token' to 'Server.Item'

Hair is done differently in 2.0 than it weas before and many misspelled words in the old core have been fixed, such as "agressor" and "controled"