| CODE |
////////////////////////////////////////////////////////////////////////// Fallen Heros ARMY SYSTEM v1.0 This file is for public use, please dont remove this header Created by Hooker (healer script made by Rudenid) Creation Date: November 12th, May 2003 Updated On: December 13th, May 2003 This file is only available in full and not part. Any altering of this file is against copyrights to the owner. ////////////////////////////////////////////////////////////////////////// [DEFNAME soldier_Settings] Fame_cost_healer 5000 Fame_cost_fighter 200 Fame_cost_mage 4000 Fame_cost_archer 2000 Fame_cost_carcher 6000 Fame_cost_knight 10000 [ITEMDEF i_army_stone] NAME=Army Recuitment Stone ID=0ed4 CATEGORY=AAAA SUBSECTION=Custom Items DESCRIPTION=Army Recuitment ON=@CREATE ATTR=ATTR_STATIC COLOR=009c2 ON=@DCLICK DIALOG d_msrs RETURN 1 [DIALOG d_msrs] 0,0 gumppic 100 50 2520 gumppic 125 50 2521 gumppic 335 50 2521 gumppic 295 50 2521 gumppic 505 50 2522 gumppic 125 85 2524 gumppic 265 85 2524 gumppic 345 85 2524 gumppic 125 155 2524 gumppic 265 155 2524 gumppic 345 155 2524 gumppic 125 225 2524 gumppic 265 225 2524 gumppic 345 225 2524 gumppic 125 305 2524 gumppic 265 305 2524 gumppic 345 305 2524 gumppic 505 85 2525 gumppic 505 195 2525 gumppic 505 305 2525 gumppic 100 85 2523 gumppic 100 175 2523 gumppic 100 275 2523 gumppic 100 310 2523 gumppic 100 415 2526 gumppic 138 416 2527 gumppic 335 416 2527 gumppic 295 416 2527 gumppic 505 416 2528 gumppic 350 150 50644 gumppic 350 150 50991 gumppic 350 160 50993 text 215 60 687 0 text 420 400 31 1 text 130 90 198 2 text 130 140 198 3 text 150 165 156 4 text 150 200 156 5 text 150 240 156 6 text 150 280 156 7 text 150 320 156 8 text 150 360 156 9 button 130 166 2510 2511 1 0 1 button 130 200 2510 2511 1 0 2 button 130 240 2510 2511 1 0 3 button 130 280 2510 2511 1 0 4 button 130 320 2510 2511 1 0 5 button 130 360 2510 2511 1 0 6 [DIALOG d_msrs TEXT] Hookers Army Recuitment System Version 1.0 Welcome to the Army Recuitment center <SRC.SEX Lord/Lady> <SRC.NAME>! What soldier do you wish to purchase <SRC.SEX Sire/M'lady>? Foot Soldier (10,000gps) Healer (15,000gps) Mage (25,000gps) Archer (20,000gps) Cavalry Archer (30,000gps) Mounted Knight (40,000gps) [DIALOG d_msrs BUTTON] ON=0 SRC.SYSMESSAGE Menu closed. ON=1 IF (<src.FAME><<EVAL (Fame_cost_fighter)>) SRC.MESSAGE You need 200 fame to hire that soldier. RETURN 1 ELSE IF <SRC.RESTEST 10000 i_gold> SRC.NEWNPC c_armyfighter SRC.CONSUME=10000 i_gold SRC.SYSMESSAGE You purchase a fighter VAR.MALLY=<SRC.ACT.UID> // tell him he works for you. SRC.NEWITEM=i_memory SRC.ACT.COLOR=memory_ipet SRC.ACT.LINK=<SRC.UID> SRC.ACT.LAYER=layer_special SRC.ACT.CONT=<VAR.MALLY> ELSE SRC.SYSMESSAGE You do not have enough gold. ON=2 IF (<src.FAME><<EVAL (Fame_cost_healer)>) SRC.MESSAGE You need 5000 fame to hire that soldier. RETURN 1 ELSE IF <SRC.RESTEST 15000 i_gold> SRC.NEWNPC c_Healer SRC.CONSUME=15000 i_gold SRC.SYSMESSAGE You purchase a fighter VAR.MALLY=<SRC.ACT.UID> // tell him he works for you. SRC.NEWITEM=i_memory SRC.ACT.COLOR=memory_ipet SRC.ACT.LINK=<SRC.UID> SRC.ACT.LAYER=layer_special SRC.ACT.CONT=<VAR.MALLY> ELSE SRC.SYSMESSAGE You do not have enough gold. ON=3 IF (<src.FAME><<EVAL (Fame_cost_mage)>) SRC.MESSAGE You need 4000 fame to hire that soldier. RETURN 1 ELSE IF <SRC.RESTEST 25000 i_gold> SRC.NEWNPC c_armymage SRC.CONSUME=25000 i_gold SRC.SYSMESSAGE You purchase a soldier VAR.MALLY=<SRC.ACT.UID> // tell him he works for you. SRC.NEWITEM=i_memory SRC.ACT.COLOR=memory_ipet SRC.ACT.LINK=<SRC.UID> SRC.ACT.LAYER=layer_special SRC.ACT.CONT=<VAR.MALLY> ELSE SRC.SYSMESSAGE You do not have enough gold. ON=4 IF (<src.FAME><<EVAL (Fame_cost_archer)>) SRC.MESSAGE You need 2000 fame to hire that soldier. RETURN 1 ELSE IF <SRC.RESTEST 20000 i_gold> SRC.NEWNPC c_armyarcher SRC.CONSUME=20000 i_gold SRC.SYSMESSAGE You purchase an archer VAR.MALLY=<SRC.ACT.UID> // tell him he works for you. SRC.NEWITEM=i_memory SRC.ACT.COLOR=memory_ipet SRC.ACT.LINK=<SRC.UID> SRC.ACT.LAYER=layer_special SRC.ACT.CONT=<VAR.MALLY> ELSE SRC.SYSMESSAGE You do not have enough gold. ON=5 IF (<src.FAME><<EVAL (Fame_cost_carcher)>) SRC.MESSAGE You need 6000 fame to hire that soldier. RETURN 1 ELSE IF <SRC.RESTEST 30000 i_gold> SRC.NEWNPC c_armyarcher_c SRC.CONSUME=30000 i_gold SRC.SYSMESSAGE You purchase a Cavalry archer VAR.MALLY=<SRC.ACT.UID> // tell him he works for you. SRC.NEWITEM=i_memory SRC.ACT.COLOR=memory_ipet SRC.ACT.LINK=<SRC.UID> SRC.ACT.LAYER=layer_special SRC.ACT.CONT=<VAR.MALLY> ELSE SRC.SYSMESSAGE You do not have enough gold. ON=6 IF (<src.FAME><<EVAL (Fame_cost_knight)>) SRC.MESSAGE You need 10,000 fame to hire that soldier. RETURN 1 ELSE IF <SRC.RESTEST 40000 i_gold> SRC.NEWNPC c_armyfighter_k SRC.CONSUME=40000 i_gold SRC.SYSMESSAGE You purchase a Mounted Knight VAR.MALLY=<SRC.ACT.UID> // tell him he works for you. SRC.NEWITEM=i_memory SRC.ACT.COLOR=memory_ipet SRC.ACT.LINK=<SRC.UID> SRC.ACT.LAYER=layer_special SRC.ACT.CONT=<VAR.MALLY> ELSE SRC.SYSMESSAGE You do not have enough gold. [CHARDEF c_armyfighter] NAME=#NAMES_HUMANMALE The Merc Swordsman ID=c_man DESIRES=i_gold,e_notoriety AVERSIONS=t_TRAP,t_eerie_stuff TSPEECH=spk_human_prime ON=@Create COLOR=colors_skin STR={120 140} DEX={80 100} INT={35 55} PARRYING={80 100} SWORDSMANSHIP={80 100} MACEFIGHTING={80 100} TACTICS={80 100} NPC=brain_human ITEMNEWBIE=random_male_hair COLOR=colors_hair ITEMNEWBIE=random_facial_hair COLOR=match_hair ITEMNEWBIE=i_backpack COLOR=00 ON=@NPCRestock ITEM=i_platemail_arms COLOR=00 name=Merc Armor ITEM=i_platemail_leggings COLOR=00 name=Merc Armor ITEM=i_platemail_helm COLOR=00 name=Merc Armor ITEM=i_platemail_gorget COLOR=00 name=Merc Armor ITEM=i_platemail_gloves COLOR=00 name=Merc Armor ITEM=i_platemail_chest COLOR=00 name=Merc Armor ITEM=i_sword_viking COLOR=00 name=Merc Weapon ITEM=i_shield_heater COLOR=00 name=Merc Shield CATEGORY=Miscellaneous SUBSECTION=NPC ARMY DESCRIPTION=Fighter [CHARDEF c_armymage] NAME=#NAMES_HUMANMALE The Merc Mage ID=c_man DESIRES=i_gold,e_notoriety AVERSIONS=t_TRAP,t_eerie_stuff TSPEECH=spk_human_prime TEVENTS=e_mage_fight ON=@Create COLOR=colors_skin STR={120 140} DEX={80 100} INT={35 55} PARRYING={80 100} MACEFIGHTING={80 100} TACTICS={80 100} Magery={100 100.0} NPC=brain_human ITEMNEWBIE=random_male_hair COLOR=colors_hair ITEMNEWBIE=random_facial_hair COLOR=match_hair ITEMNEWBIE=i_backpack COLOR=00 ON=@NPCRestock ITEM=i_platemail_arms COLOR=00 name=Merc Armor ITEM=i_platemail_leggings COLOR=00 name=Merc Armor ITEM=i_platemail_helm COLOR=00 name=Merc Armor ITEM=i_platemail_gorget COLOR=00 name=Merc Armor ITEM=i_platemail_gloves COLOR=00 name=Merc Armor ITEM=i_platemail_chest COLOR=00 name=Merc Armor ITEM=i_staff_black COLOR=00 name=Merc weapon CATEGORY=Miscellaneous SUBSECTION=NPC ARMY DESCRIPTION=Fighter [CHARDEF c_armyarcher] NAME=#NAMES_HUMANMALE The Merc Archer ID=c_man DESIRES=i_gold,e_notoriety AVERSIONS=t_TRAP,t_eerie_stuff ON=@Create COLOR=colors_skin STR={180 200} DEX={140 160} INT={35 55} ARCHERY={100 100} TACTICS={100 100} NPC=brain_human ITEMNEWBIE=random_male_hair COLOR=colors_hair ITEMNEWBIE=random_facial_hair COLOR=match_hair ITEMNEWBIE=i_backpack COLOR=00 ON=@NPCRestock ITEM=i_platemail_arms COLOR=00 name=Merc Armor ITEM=i_platemail_leggings COLOR=00 name=Merc Armor ITEM=i_platemail_helm COLOR=00 name=Merc Armor ITEM=i_platemail_gorget COLOR=00 name=Merc Armor ITEM=i_platemail_gloves COLOR=00 name=Merc Armor ITEM=i_platemail_chest COLOR=00 name=Merc Armor ITEM=i_BOW_POWER COLOR=00 name=Merc weapon ITEM=i_arrow AMOUNT=200 COLOR=00 name=Merc Ammo CATEGORY=Miscellaneous SUBSECTION=NPC ARMY DESCRIPTION= Archer [CHARDEF c_armyarcher_C] NAME=#NAMES_HUMANMALE The Merc Cavalry Archer ID=c_man DESIRES=i_gold,e_notoriety AVERSIONS=t_TRAP,t_eerie_stuff ON=@Create COLOR=colors_skin STR={180 200} DEX={140 160} INT={35 55} ARCHERY={100 100} TACTICS={100 100} NPC=brain_human ITEMNEWBIE=random_male_hair COLOR=colors_hair ITEMNEWBIE=random_facial_hair COLOR=match_hair ITEMNEWBIE=i_backpack COLOR=00 ON=@NPCRestock ITEM=i_platemail_arms COLOR=00 name=Merc Armor ITEM=i_platemail_leggings COLOR=00 name=Merc Armor ITEM=i_platemail_helm COLOR=00 name=Merc Armor ITEM=i_platemail_gorget COLOR=00 name=Merc Armor ITEM=i_platemail_gloves COLOR=00 name=Merc Armor ITEM=i_platemail_chest COLOR=00 name=Merc Armor ITEM=i_BOW_POWER COLOR=00 name=Merc weapon ITEM=i_arrow AMOUNT=200 COLOR=00 name=Merc Ammo ITEMNEWBIE=i_mt_horse_gray // on horse. color=00 CATEGORY=Miscellaneous SUBSECTION=NPC ARMY DESCRIPTION=Cavalry Archer [CHARDEF c_armyfighter_K] NAME=#NAMES_HUMANMALE The Merc Mounted Knight ID=c_man DESIRES=i_gold,e_notoriety AVERSIONS=t_TRAP,t_eerie_stuff TSPEECH=spk_human_prime ON=@Create COLOR=colors_skin STR={120 140} DEX={80 100} INT={35 55} PARRYING={100 100} SWORDSMANSHIP={100 100} MACEFIGHTING={100 100} TACTICS={100 100} NPC=brain_human ITEMNEWBIE=random_male_hair COLOR=colors_hair ITEMNEWBIE=random_facial_hair COLOR=match_hair ITEMNEWBIE=i_backpack COLOR=00 ON=@NPCRestock ITEM=i_platemail_arms COLOR=00 name=Merc Armor ITEM=i_platemail_leggings COLOR=00 name=Merc Armor ITEM=i_platemail_helm COLOR=00 name=Merc Armor ITEM=i_platemail_gorget COLOR=00 name=Merc Armor ITEM=i_platemail_gloves COLOR=00 name=Merc Armor ITEM=i_platemail_chest COLOR=00 name=Merc Armor ITEM=i_sword_viking COLOR=00 name=Merc Weapon ITEM=i_shield_heater COLOR=00 name=Merc Sheild ITEMNEWBIE=i_mt_horse_gray // on horse. color=00 CATEGORY=Miscellaneous SUBSECTION=NPC ARMY DESCRIPTION=Mounted Knight [CHARDEF c_Healer] NAME=#NAMES_HUMANMALE The Merc Healer ID=c_man DESIRES=i_gold,e_notoriety AVERSIONS=t_TRAP,t_eerie_stuff TSPEECH=spk_human_prime TSPEECH=healer TEVENTS=e_healer_heal ON=@Create COLOR=colors_skin STR={120 140} DEX={80 100} INT={35 55} WRESTLING={80 100} TACTICS={80 100} HEALING={100 100} MAGERY={100 100} NPC=brain_human ITEMNEWBIE=random_male_hair COLOR=colors_hair ITEMNEWBIE=random_facial_hair COLOR=match_hair ITEMNEWBIE=i_backpack COLOR=00 ON=@NPCRestock ITEM=i_platemail_arms COLOR=00 name=Merc Armor ITEM=i_platemail_leggings COLOR=00 name=Merc Armor ITEM=i_platemail_helm COLOR=00 name=Merc Armor ITEM=i_platemail_gorget COLOR=00 name=Merc Armor ITEM=i_platemail_gloves COLOR=00 name=Merc Armor ITEM=i_platemail_chest COLOR=00 name=Merc Armor ITEM=i_bandage AMOUNT=200 COLOR=00 CATEGORY=Miscellaneous SUBSECTION=NPC ARMY DESCRIPTION=Healer [SPEECH healer] ON=*heal* ON=*cure* ON=*help* ON=*hurt* ON=*poison* if (<SRC.FINDLAYER(52)> > 0) SAY Stay away from me, rouge! GUARDS if (<FLAGS>&statf_reflection) else SAY In Jux Sanct ANIM 17 SPELLEFFECT s_magic_reflection, 100.0 end if return 1 end if if (<SRC.FLAGS>&statf_criminal) SAY Ack, a criminal! GUARDS if (<FLAGS>&statf_reflection) else SAY In Jux Sanct ANIM 17 SPELLEFFECT s_magic_reflection, 100.0 end if return 1 end if if (<SRC.KARMA> < 0) SAY Help guards a criminal is attacking me! if (<FLAGS>&statf_reflection) else SAY In Jux Sanct ANIM 17 SPELLEFFECT s_magic_reflection, 100.0 end if return 1 end if if (<SRC.FLAGS>&statf_poisoned) SAY I see that thou art poisoned... I shall cure thee. SAY An Nox ANIM 16 SRC.SPELLEFFECT s_cure, 100.0 SFX 480 return 1 end if if (<SRC.HITS> < <SRC.STR>) SAY Thou lookest hurt. I shall heal thee. SAY In Vas Mani ANIM 17 SRC.SPELLEFFECT s_greater_heal, 100.0 SFX 514 return 1 end if [EVENTS e_healer_heal] ON=@GETHIT if (<SRC.ID>==c_blade_spirit) SAY An Ort ANIM 16 SRC.SUICIDE elseif (<FLAGS>&statf_poisoned) SAY An Nox ANIM 16 SPELLEFFECT s_cure, 100.0 SFX 480 elseif (<HITS> < <STR>-25) SAY In Vas Mani ANIM 17 SPELLEFFECT s_greater_heal, 100.0 SFX 514 end if ON=@NPCSeeNewPlayer if (<SRC.FINDLAYER(52)> > 0) if (<FLAGS>&statf_reflection) else SAY In Jux Sanct ANIM 17 SPELLEFFECT s_magic_reflection, 100.0 end if return 1 end if if (<SRC.FLAGS>&statf_criminal) if (<FLAGS>&statf_reflection) else SAY In Jux Sanct ANIM 17 SPELLEFFECT s_magic_reflection, 100.0 end if return 1 end if if (<SRC.KARMA> < 0) if (<FLAGS>&statf_reflection) else SAY In Jux Sanct ANIM 17 SPELLEFFECT s_magic_reflection, 100.0 end if return 1 end if if (<SRC.FLAGS>&statf_poisoned) SAY An Nox ANIM 16 SRC.SPELLEFFECT s_cure, 100.0 SFX 480 return 1 end if if (<SRC.HITS> < <SRC.STR>) SAY In Vas Mani ANIM 17 SRC.SPELLEFFECT s_greater_heal, 100.0 SFX 514 return 1 end if [EVENTS e_mage_fight] ON=@GETHIT if (<SRC.ID>==c_blade_spirit) SAY An Ort ANIM 16 SRC.SUICIDE elseif (<FLAGS>&statf_poisoned) SAY An Nox ANIM 16 SPELLEFFECT s_cure, 100.0 SFX 480 elseif (<HITS> < <STR>-25) SAY In Vas Mani ANIM 17 SPELLEFFECT s_greater_heal, 100.0 SFX 514 end if ON=@atack Say Kal Vas Flam ANIM 16 SPELLEFFECT s_flamestrike, 100.0 SFX 514 end if [EOF] |