| Annapolis Ultima Online Shard Join Our Forum! Save the cheerleader, save the world! |
| | I Founded some good scp :) | |
| | Author | Message |
---|
^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: I Founded some good scp :) Sun Aug 12, 2007 2:56 pm | |
| - Code:
-
//###################################### //###### Military City ###### //###### Cannon ###### //######################################
[ITEMDEF i_ball_cannon_new] NAME=Cannon ball ID=i_cannon_ball RESOURCES=50 i_stone_block, 10 i_plaster SKILLMAKE=TINKERING 101.0, t_tinker_tools WEIGHT=300.0 VALUE=5000
On=@Create COLOR=color_o_steel
On=@DClick SRC.SYSMESSAGE You need to use this with Cannon! RETURN 1
[TYPEDEF t_cannon_new] On=@DClick IF <DISTANCE>>3 SRC.SYSMESSAGE You can't reach it! Come closer! RETURN 1 ENDIF IF <TIMER><1 IF <SRC.RESTEST 1 i_ball_cannon_new> TIMER=15 SRC.NEWITEM i_cannon_target SRC.ACT.ATTR = attr_decay SRC.ACT.EQUIP RETURN 1 ELSE SRC.SYSMESSAGE You don't have a cannon ball! RETURN 1 ENDIF ELSE SRC.SYSMESSAGE You must wait <timer> seconds while cannon is reloading. RETURN 1 ENDIF
ON=@Timer TIMER = -1 RETURN 1
[ITEMDEF i_cannon_target] NAME=Cannon target ID=i_deed WEIGHT=0 TYPE=t_eq_script LAYER=30
ON=@Create ATTR = attr_decay
ON=@Equip ATTR = attr_decay TIMER = 1 TARGET Whom do you wish to shoot? RETURN 1
ON=@Targon_char IF (<SRC.TARG.REGION.FLAGS>==04000) SRC.SYSMESSAGE You can't shoot in guarded zone! RETURN 1 ENDIF IF (<SRC.TARG.REGION.FLAGS>==02000) SRC.SYSMESSAGE You can't shoot in Anti-Magic field! RETURN 1 ENDIF IF <SRC.TARG.DISTANCE><15 IF <SRC.RESTEST 1 i_ball_cannon_new> SRC.CONSUME 1 i_ball_cannon_new SRC.ANIM=11 EFFECT 0,i_fx_smoke,16 SRC.TARG.EFFECT 0,i_cannon_ball,16 SOUND=snd_SPELL_EXPLOSION SRC.TARG.NEWITEM=i_fx_explode SRC.TARG.ACT.TYPE=T_EXPLOSION SRC.TARG.ACT.ATTR=ATTR_MOVE_NEVER | ATTR_CAN_DECAY SRC.TARG.ACT.LINK=<SRC.uid> SRC.TARG.ACT.MOREX=100 SRC.TARG.ACT.MOREY=070 SRC.TARG.ACT.MOREZ=3 SRC.TARG.ACT.P=<SRC.TARG.P> SRC.TARG.ACT.TIMERD=1 SOUND=snd_SPELL_EXPLOSION SRC.SFX 011e SRC.TARG.SFX 011e SRC.EMOTE shoot <SRC.TARG.name> from Cannon REMOVE RETURN 1 ELSE SRC.SYSMESSAGE You don't have a Cannon ball! REMOVE RETURN 1 ENDIF ELSE SRC.MESSAGE Target is not in sight. REMOVE RETURN 1 ENDIF
ON=@Targon_Item IF (<SRC.TARG.REGION.FLAGS>==04000) SRC.SYSMESSAGE You can't shoot in guarded zone! RETURN 1 ENDIF IF (<SRC.TARG.REGION.FLAGS>==02000) SRC.SYSMESSAGE You can't shoot in Anti-Magic field! RETURN 1 ENDIF IF <SRC.TARG.DISTANCE>>15 SRC.MESSAGE Target is to far! REMOVE RETURN 1 ENDIF IF (<SRC.TARG.BASEID>==i_cannon_full) || (<SRC.TARG.BASEID>==i_cannon_f1) || (<SRC.TARG.BASEID>==i_cannon_f2) || (<SRC.TARG.BASEID>==i_cannon_f3) || (<SRC.TARG.BASEID>==i_cannon_f4) || (<SRC.TARG.BASEID>==i_cannon_f5) || (<SRC.TARG.BASEID>==i_cannon_f6) IF <SRC.RESTEST 1 i_ball_cannon_new> SRC.CONSUME 1 i_ball_cannon_new SRC.ANIM=11 SRC.EFFECT 0,i_fx_smoke,16 SOUND=snd_SPELL_EXPLOSION SERV.NEWITEM=i_fx_explode NEW.TYPE=T_EXPLOSION NEW.ATTR=ATTR_MOVE_NEVER | ATTR_CAN_DECAY NEW.LINK=<SRC.uid> NEW.MOREX=100 NEW.MOREY=070 NEW.MOREZ=3 NEW.P=<SRC.TARG.P> NEW.TIMERD=1 SOUND=snd_SPELL_EXPLOSION SRC.SFX 011e SRC.EMOTE shoot <SRC.TARG.name> from Cannon IF <SRC.TARG.MORE2>>0 SRC.TARG.MORE2 = (<SRC.TARG.MORE2> +(-1)) ELSE SRC.TARG.REMOVE IF (<SRC.TARG.BASEID>==i_cannon_f1) || (<SRC.TARG.BASEID>==i_cannon_f2) || (<SRC.TARG.BASEID>==i_cannon_f3) SRC.TARG.LINK.MORE2 = (<SRC.TARG.LINK.MORE2> +(-1)) ENDIF IF (<SRC.TARG.BASEID>==i_cannon_f4) || (<SRC.TARG.BASEID>==i_cannon_f5) || (<SRC.TARG.BASEID>==i_cannon_f6) SRC.TARG.LINK.MORE1 = (<SRC.TARG.LINK.MORE1> +(-1)) ENDIF REMOVE RETURN 1 ENDIF ELSE SRC.SYSMESSAGE You don't have a Cannon ball! REMOVE RETURN 1 ENDIF ENDIF
[ITEMDEF i_deed_cannon_s] NAME=Cannon deed [South] ID=i_deed RESOURCES=i_deed,i_ball_cannon_new
ON=@Create MORE=i_multi_cannon_s
[ITEMDEF i_deed_cannon_e] NAME=Cannon deed [East] ID=i_deed RESOURCES=i_deed,i_ball_cannon_new
ON=@Create MORE=i_multi_cannon_e
[ITEMDEF i_multi_cannon_s] Name=Cannon TYPE=T_MULTI MULTIREGION=0,0,0,0 COMPONENT=0e8d,0, -2, 0 COMPONENT=0e8c,0, -1, 0 COMPONENT=0e8b,0, 0, 0
[ITEMDEF i_multi_cannon_e] Name=Cannon TYPE=T_MULTI MULTIREGION=0,0,0,0 COMPONENT=0e90,0, 0, 0 COMPONENT=0e8f,1, 0, 0 COMPONENT=0e8e,2, 0, 0
[ITEMDEF 0e8b] DEFNAME=i_cannon_full RESOURCES=100 i_ingot_iron, 20 I_BOARD, 1 I_AXEL DUPELIST=0e8c,0e8d,0e8e,0e8f,0e90,0e91,0e92,0e93,0e94,0e95,0e96
ON=@Create ATTR = 010 TYPE = t_cannon_new MORE2 = 5
[ITEMDEF 0e8c] //cannon DUPEITEM=0e8b CATEGORY=Miscellaneous SUBSECTION=Cannons DESCRIPTION=Cannon (02/03)(S)
[ITEMDEF 0e8d] //cannon DUPEITEM=0e8b CATEGORY=Miscellaneous SUBSECTION=Cannons DESCRIPTION=Cannon (03/03)(S)
[ITEMDEF 0e8e] //cannon DUPEITEM=0e8b CATEGORY=Miscellaneous SUBSECTION=Cannons DESCRIPTION=Cannon (01/03)(E)
[ITEMDEF 0e8f] //cannon DUPEITEM=0e8b CATEGORY=Miscellaneous SUBSECTION=Cannons DESCRIPTION=Cannon (02/03)(E)
[ITEMDEF 0e90] //cannon DUPEITEM=0e8b CATEGORY=Miscellaneous SUBSECTION=Cannons DESCRIPTION=Cannon (03/03)(E)
[ITEMDEF 0e91] //cannon DUPEITEM=0e8b CATEGORY=Miscellaneous SUBSECTION=Cannons DESCRIPTION=Cannon (01/03)(N)
[ITEMDEF 0e92] //cannon DUPEITEM=0e8b CATEGORY=Miscellaneous SUBSECTION=Cannons DESCRIPTION=Cannon (02/03)(N)
[ITEMDEF 0e93] //cannon DUPEITEM=0e8b CATEGORY=Miscellaneous SUBSECTION=Cannons DESCRIPTION=Cannon (03/03)(N)
[ITEMDEF 0e94] //cannon DUPEITEM=0e8b CATEGORY=Miscellaneous SUBSECTION=Cannons DESCRIPTION=Cannon (01/03)(W)
[ITEMDEF 0e95] //cannon DUPEITEM=0e8b CATEGORY=Miscellaneous SUBSECTION=Cannons DESCRIPTION=Cannon (02/03)(W)
[ITEMDEF 0e96] //cannon DUPEITEM=0e8b CATEGORY=Miscellaneous SUBSECTION=Cannons DESCRIPTION=Cannon (03/03)(W)
[EOF] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 2:57 pm | |
| - Code:
-
//###################################### //###### Military City ###### //###### Scorp Spine/Dragon Meat ###### //######################################
[ITEMDEF i_scorp_spine] NAME=Scorpion spine ID=01b1c VALUE=200
RESOURCES=32 i_thread SKILLMAKE=BLACKSMITHING 115.0, MINING 115.0 WEIGHT=7
On=@Create color=0497 attr=attr_magic morez=3
On=@DClick if <morez><1 emote was broken remove return 1 endif if (<src.mana><70) src.sysmessage You lack sufficient mana return 1 endif src.addnpc c_scorpion_giant morez=(<morez>-1) return 1
//############Daemon meat################
[ITEMDEF i_dragon_meat] NAME=Dragon meat ID=i_goat_skinned_2 VALUE=2 TYPE=T_NORMAL WEIGHT=1
ON=@Create color=0485
ON=@DClick if !(<cont>) src.message You can't reach that. return 1 endif if <src.cooking><900 message Your cooking skill is too low return 1 endif TARGET Click on a fire to cook this. return 1
ON=@Targon_Item if (<src.targ.type>==t_forge) | (<src.targ.type>==t_fire) src.newitem i_dragon_meat_cooked src.act.bounce remove src.emote cooks <name> return 1 else src.message Try cook on a fire. return 1 endif
ON=@DROPON_GROUND timer=2 return 1
CATEGORY=Food SUBSECTION=Magic Food DESCRIPTION=Dragon meat
[ITEMDEF i_dragon_meat_cooked] ID=i_pigs_head NAME=Cooked dragon meat WEIGHT=2 VALUE=2
ON=@CREATE COLOR=08d0
ON=@DClick if (<src.tag0.class> & class_vampire) || (<src.tag0.class> & class_necromancer) src.message You can't eat that! return 1 endif if <src.FOOD>>20 src.sysmessage You are feet! You can't eat any more meat! return 1 endif IF (<SRC.COOKING>>999) && (<SRC.TASTEID>>999) if <src.hits><1000 src.hits=<src.hits>+90 src.stam=<src.dex> src.FOOD=<src.FOOD>+1 src.emote eat's dragon meat src.anim 33 remove return 1 else src.sysmessage Your hits are so full. You can't eat any more! return 1 endif ELIF (<SRC.COOKING>>899) && (<SRC.TASTEID>>999) if <src.hits><1000 src.hits=<src.hits>+70 src.stam=<src.dex> src.FOOD=<src.FOOD>+1 src.emote eat's dragon meat src.anim 33 remove return 1 else src.sysmessage Your hits are so full. You can't eat any more! return 1 endif ELIF (<SRC.COOKING>>799) && (<SRC.TASTEID>>999) if <src.hits><1000 src.hits=<src.hits>+60 src.stam=<src.dex> src.FOOD=<src.FOOD>+1 src.emote eat's dragon meat src.anim 33 remove return 1 else src.sysmessage Your hits are so full. You can't eat any more! return 1 endif ELIF (<SRC.COOKING>>699) && (<SRC.TASTEID>>999) if <src.hits><1000 src.hits=<src.hits>+50 src.stam=<src.dex> src.FOOD=<src.FOOD>+1 src.emote eat's dragon meat src.anim 33 remove return 1 else src.sysmessage Your hits are so full. You can't eat any more! return 1 endif ELIF (<SRC.COOKING>>599) && (<SRC.TASTEID>>999) if <src.hits><1000 src.hits=<src.hits>+30 src.stam=<src.dex> src.FOOD=<src.FOOD>+1 src.emote eat's dragon meat src.anim 33 remove return 1 else src.sysmessage Your hits are so full. You can't eat any more! return 1 endif else src.sysmessage You lack the skill to use this. return 1 endif
ON=@DROPON_GROUND timer=2 return 1
CATEGORY=Food SUBSECTION=Magic Food DESCRIPTION=Dragon meat cooked
//############Daemon meat################
[ITEMDEF i_daemon_meat] NAME=Daemon meat ID=i_goat_skinned VALUE=17 TYPE=T_NORMAL WEIGHT=1
ON=@Create color=0613
ON=@DClick if !(<cont>) src.message You can't reach that. return 1 endif if <src.cooking><900 message Your cooking skill is too low return 1 endif TARGET Click on a fire to cook this. return 1
ON=@Targon_Item if (<src.targ.type>==t_forge) | (<src.targ.type>==t_fire) src.newitem i_daemon_meat_cooked src.act.bounce remove src.emote cooks <name> return 1 else src.message Try cook on a fire. return 1 endif
ON=@DROPON_GROUND timer=2 return 1
CATEGORY=Food SUBSECTION=Magic Food DESCRIPTION=Daemon meat
[ITEMDEF i_daemon_meat_cooked] ID=i_pigs_head NAME=Cooked daemon meat WEIGHT=2 VALUE=2
ON=@CREATE COLOR=0613
ON=@DClick if (<src.tag0.class> & class_vampire) || (<src.tag0.class> & class_necromancer) src.message You can't eat that! return 1 endif if <src.FOOD>>20 src.sysmessage You are feet! You can't eat any more meat! return 1 endif IF (<SRC.COOKING>>999) && (<SRC.TASTEID>>999) if <src.hits><1000 src.hits=<src.hits>+90 src.stam=<src.dex> src.FOOD=<src.FOOD>+1 src.emote eat's daemon meat src.anim 33 remove return 1 else src.sysmessage Your hits are so full. You can't eat any more! return 1 endif ELIF (<SRC.COOKING>>899) && (<SRC.TASTEID>>999) if <src.hits><1000 src.hits=<src.hits>+70 src.stam=<src.dex> src.FOOD=<src.FOOD>+1 src.emote eat's daemon meat src.anim 33 remove return 1 else src.sysmessage Your hits are so full. You can't eat any more! return 1 endif ELIF (<SRC.COOKING>>799) && (<SRC.TASTEID>>999) if <src.hits><1000 src.hits=<src.hits>+60 src.stam=<src.dex> src.FOOD=<src.FOOD>+1 src.emote eat's daemon meat src.anim 33 remove return 1 else src.sysmessage Your hits are so full. You can't eat any more! return 1 endif ELIF (<SRC.COOKING>>699) && (<SRC.TASTEID>>999) if <src.hits><1000 src.hits=<src.hits>+50 src.stam=<src.dex> src.FOOD=<src.FOOD>+1 src.emote eat's daemon meat src.anim 33 remove return 1 else src.sysmessage Your hits are so full. You can't eat any more! return 1 endif ELIF (<SRC.COOKING>>599) && (<SRC.TASTEID>>999) if <src.hits><1000 src.hits=<src.hits>+30 src.stam=<src.dex> src.FOOD=<src.FOOD>+1 src.emote eat's daemon meat src.anim 33 remove return 1 else src.sysmessage Your hits are so full. You can't eat any more! return 1 endif ELSE src.sysmessage You lack the skill to use this. return 1 ENDIF
ON=@DROPON_GROUND timer=2 return 1
CATEGORY=Food SUBSECTION=Magic Food DESCRIPTION=Daemon meat cooked
[EOF] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 2:58 pm | |
| - Code:
-
//###################################### //###### Military City ###### //###### New dummye's ###### //######################################
[ITEMDEF i_dummy_new] NAME=Training dummy ID=i_training_dummy TYPE=t_train_dummy WEIGHT=35
SKILLMAKE=CARPENTRY 85.0, TAILORING 70.0, t_sewing_kit, t_carpentry RESOURCES=15 i_CLOTH, 35 i_hay_sheaf, 8 i_board, 1 i_ingot_iron
CATEGORY=Items by Professions SUBSECTION=Fighters DESCRIPTION=Training Dummy (West)
DUPELIST=01071,01072,01073
[ITEMDEF i_dummy_new2] NAME=Training dummy ID=i_training_dummy_n TYPE=t_train_dummy WEIGHT=35
SKILLMAKE=CARPENTRY 85.0, TAILORING 70.0, t_sewing_kit, t_carpentry RESOURCES=15 i_CLOTH, 35 i_hay_sheaf, 8 i_board, 1 i_ingot_iron
CATEGORY=Items by Professions SUBSECTION=Fighters DESCRIPTION=Training Dummy (West)
DUPELIST=01071,01072,01073
[TYPEDEF t_throwable] ON=@DCLICK if (<TIMER> >= 1) SRC.sysmessage Your arm is still tired from the last throw. return 1 else target SRC.sysmessage You aim your raise your arm to throw a <NAME>. endif
ON=@TARGON_CHAR if (<SRC.UID> != <SRC.TARG.UID>) SRC.anim=11 SRC.TARG.effect=0,<ID>,7 SRC.sysmessage You hit <SRC.TARG.NAME> with a <NAME>! SRC.TARG.sysmessage <SRC.NAME> threw a <NAME> at you! TIMER = <MORE2> LINK = <SRC.TARG.UID> endif return 1
ON=@TIMER LINK.damage=<eval rand(<MORE1>)> if (<MOREX>) LINK.newitem=<ID> LINK.ACT.MORE1=<MORE1> LINK.ACT.MORE2=<MORE2> LINK.ACT.MOREX=<MOREX> LINK.ACT.TYPE=t_throwable LINK.ACT.bounce endif LINK = -1 if (<MOREY>) remove endif return 1
[EOF] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:02 pm | |
| - Code:
-
//###################################### //###### Military City ###### //###### Digable grave's ###### //######################################
VERSION=0.55i
[ITEMDEF i_deathgrave_0_1] ID=0EE2 NAME=Digable grave TYPE=t_grave_digable WEIGHT=9999
On=@Create attr=010
[ITEMDEF i_deathgrave_0_2] ID=0EE0 NAME=Digable grave TYPE=t_grave_digable WEIGHT=9999
On=@Create attr=010
[ITEMDEF i_deathgrave_1_1] ID=0EDF NAME=Digable grave TYPE=t_grave_digable WEIGHT=9999
On=@Create attr=010
[ITEMDEF i_deathgrave_1_2] ID=0EE1 NAME=Digable grave TYPE=t_grave_digable WEIGHT=9999
On=@Create attr=010
[TYPEDEF t_grave_digable] ON=@DClick if ( 0 ) elseif ( <SRC.restest 1 i_grave_delay> ) SRC.sysmessage You must wait to dig here again elseif ( <distance> > 1 ) SRC.sysmessage You can't reach this! elseif ( <SRC.restest 1 t_weapon_mace_pick> ) SRC.anim=0B SRC.anim=0B SRC.sound=0126 if ( 0 ) elseif ( <eval rand(4)> ) SRC.newitem=i_grave_delay SRC.ACT.equip SRC.newnpc={c_skeleton 1 c_zombie 1} SRC.ACT.FLAGS=024000000 SRC.ACT.P=<SRC.P> SRC.sysmessage You have disturbed the dead one elseif ( <eval rand(2)> ) SRC.newitem=i_grave_delay SRC.ACT.equip SRC.newitem=i_bone SRC.ACT.bounce SRC.sysmessage You have found a bone! elseif ( <eval rand(3)> ) SRC.newitem=i_grave_delay SRC.ACT.equip SRC.newnpc={c_liche 1 c_m_mummy 1} SRC.ACT.FLAGS=024000000 SRC.ACT.P=<SRC.P> SRC.sysmessage You have disturbed the dead greatly! else SRC.newitem=i_grave_delay SRC.ACT.equip SRC.damage={5 20} SRC.sysmessage You almost drug into the grave by the dead! endif SRC.KARMA=<eval <SRC.KARMA> - 50> else SRC.sysmessage You need some kind of Pick axe, shovel, etc. endif return 1
ON=@Timer if <cont> remove return 1 endif
[ITEMDEF i_grave_delay] NAME=Grave Delay ID=i_handr_1 LAYER=layer_special TYPE=t_eq_script WEIGHT=0
ON=@Create ATTR=attr_invis|attr_decay MORE1=120 COLOR=0480
ON=@Equip TIMER=1
ON=@Timer if ( 0<CONT> && <MORE1> ) MORE1=<eval <MORE1> - 1> TIMER=1 return 1 endif remove return 1
[EOF] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:02 pm | |
| - Code:
-
//###################################### //###### Military City ###### //###### Loot Items ###### //######################################
[ITEMDEF i_mage_hat_know] NAME=Knowledge Hat ID=i_hat_wizards ARMOR=30 TYPE=t_clothing VALUE=1000
On=@Create HITPOINTS=20 COLOR=0487
On=@Click MESSAGE <NAME> [<HITPOINTS>] RETURN 1
On=@Equip IF <HITPOINTS>>20 HITPOINTS = 20 ENDIF src.magery=(<src.magery>+5.0) src.magicresistance=(<src.magicresistance>+10.0) LINK=<SRC.UID> TIMER=3 RETURN 0
On=@Unequip COLOR=0487 src.magery=(<src.magery>-5.0) src.magicresistance=(<src.magicresistance>-10.0) LINK=-1 TIMER=-1 RETURN 0
ON=@Timer IF !(<LINK.FLAGS> & statf_freeze) IF (<LINK.MANA> < <LINK.INT>) LINK.MANA = <eval <LINK.MANA> + 1> ENDIF ENDIF TIMER=3 RETURN 1
CATEGORY=Rares SUBSECTION=Loot Items DESCRIPTION=Knowledge Hat
[ITEMDEF i_mage_hat_int] NAME=Intelligence Hat ID=i_hat_wizards ARMOR=30 TYPE=t_clothing VALUE=1000
On=@Create HITPOINTS=20 COLOR=0486
On=@Click MESSAGE <NAME> [<HITPOINTS>] RETURN 1
On=@Equip IF <HITPOINTS>>20 HITPOINTS = 20 ENDIF COLOR=0486 src.meditation=(<src.meditation>+10.0) src.evaluatingintel=(<src.evaluatingintel>+10.0) LINK=<SRC.UID> TIMER=3 RETURN 0
On=@Unequip src.meditation=(<src.meditation>-10.0) src.evaluatingintel=(<src.evaluatingintel>-10.0) LINK=-1 TIMER=-1 RETURN 0
ON=@Timer IF !(<LINK.FLAGS> & statf_freeze) IF (<LINK.MANA> < <LINK.INT>) LINK.MANA = <eval <LINK.MANA> + 2> ENDIF ENDIF TIMER=3 RETURN 1
CATEGORY=Rares SUBSECTION=Loot Items DESCRIPTION=Intelligence Hat
[ITEMDEF i_orc_helm_str] NAME=Orcish Helm of Strength ID=i_helm_orc ARMOR=80 TYPE=t_armor_leather VALUE=50
On=@Create HITPOINTS=30 COLOR=0422
On=@Click MESSAGE <NAME> [<HITPOINTS>] RETURN 1
On=@Equip src.macefighting=(<src.macefighting>+10.0) src.dex=(<src.dex>-20) src.str=(<src.str>+20) sound=snd_SPELL_STRENGTH IF <src.flags> & statf_polymorph src.message You can't equip <name> while polymorphed! unequip RETURN 1 ENDIF
On=@Unequip src.macefighting=(<src.macefighting>-10.0) src.dex=(<src.dex>+20) src.str=(<src.str>-20)
CATEGORY=Rares SUBSECTION=Loot Items DESCRIPTION=Orcish Helm of Strength
[ITEMDEF i_orc_helm_mov] NAME=Orcish Helm of Movement ID=i_helm_orc ARMOR=80 TYPE=t_armor_leather VALUE=50
On=@Create HITPOINTS=30 COLOR=0419
On=@Click MESSAGE <NAME> [<HITPOINTS>] RETURN 1
On=@Equip src.tactics=(<src.tactics>+10.0) src.dex=(<src.dex>+20) src.str=(<src.str>-20) sound=snd_SPELL_AGILITY IF <src.flags> & statf_polymorph src.message You can't equip <name> while polymorphed! unequip RETURN 1 ENDIF
On=@Unequip src.tactics=(<src.tactics>-10.0) src.dex=(<src.dex>-20) src.str=(<src.str>+20)
CATEGORY=Rares SUBSECTION=Loot Items DESCRIPTION=Orcish Helm of Movement
[ITEMDEF i_lizard_beads] NAME=Lizard Beads ID=i_necklace_metal_beads TYPE=t_jewelry DUPELIST=01f05 VALUE=50
On=@Create COLOR=color_o_acid MOREY=20
On=@Click IF <MOREY><1 EMOTE destroyed REMOVE ENDIF MESSAGE <NAME> [<MOREY>] RETURN 1
On=@DClick IF <MOREY><1 EMOTE destroyed REMOVE ENDIF
On=@Equip IF <MOREY><1 EMOTE destroyed REMOVE ENDIF SRC.EMOTE equip <name> LINK=<SRC.UID> TIMER=3 MOREY=(<MOREY>-1) RETURN 0
ON=@Unequip LINK=-1 TIMER=-1 RETURN 0
ON=@Timer IF !(<LINK.FLAGS> & statf_freeze) IF (<LINK.HITS> < <LINK.STR>) LINK.HITS = <eval <LINK.HITS> + 3> ENDIF ENDIF TIMER=3 RETURN 1
CATEGORY=Rares SUBSECTION=Loot Items DESCRIPTION=Lizard Beads
[ITEMDEF i_daemon_bracelet] NAME=Daemon Bracelet ID=i_bracelet_gold TYPE=t_jewelry WEIGHT=1 VALUE=50
On=@Create COLOR=color_o_fire MOREY=25
On=@Equip IF <MOREY><1 EMOTE destroyed REMOVE ENDIF SRC.EMOTE equip <name> LINK=<SRC.UID> MOREY=(<MOREY>-1) TIMER=3 RETURN 0
On=@Click IF <MOREY><1 EMOTE destroyed REMOVE ENDIF MESSAGE <NAME> [<MOREY>] RETURN 1
On=@DClick IF <MOREY><1 EMOTE destroyed REMOVE ENDIF
ON=@Unequip LINK=-1 TIMER=-1 RETURN 0
ON=@Timer IF !(<link.flags> & statf_freeze) IF (<LINK.HITS> < <LINK.STR>) LINK.HITS = <eval <LINK.HITS> + 10> ENDIF ENDIF TIMER=3 RETURN 1
CATEGORY=Rares SUBSECTION=Loot Items DESCRIPTION=Daemon Bracelet
[ITEMDEF i_ophidian_necklace] NAME=Ophidian Necklace ID=i_necklace_gold TYPE=t_jewelry WEIGHT=1 VALUE=50
On=@Create COLOR=0481 MOREY=20
On=@Click IF <MOREY><1 EMOTE destroyed REMOVE ENDIF MESSAGE <NAME> [<MOREY>] RETURN 1
On=@DClick IF <MOREY><1 EMOTE destroyed REMOVE ENDIF
On=@Equip IF <MOREY><1 EMOTE destroyed REMOVE ENDIF SRC.EMOTE equip <name> LINK=<SRC.UID> MOREY=(<MOREY>-1) TIMER=3 RETURN 0
ON=@Unequip LINK=-1 TIMER=-1 RETURN 0
ON=@Timer IF !(<LINK.FLAGS> & statf_freeze) IF (<LINK.MANA> < <LINK.INT>) LINK.MANA = <eval <LINK.MANA> + 3> ENDIF ENDIF TIMER=3 RETURN 1
CATEGORY=Rares SUBSECTION=Loot Items DESCRIPTION=Ophidian Necklace
[ITEMDEF i_troll_earrings] ID=i_earrings_gold NAME=Troll Earrings TYPE=t_jewelry WEIGHT=1 RESOURCES=1 i_ingot_iron VALUE=50
On=@Create COLOR=035 MOREX=20
On=@Click IF <MOREX><1 EMOTE destroyed REMOVE ENDIF MESSAGE <NAME> [<MOREX>] RETURN 1
On=@DClick IF !(<src.tag0.class>==0) SRC.MESSAGE You can't equip that! UNEQUIP RETURN 1 ENDIF IF <MOREX><1 EMOTE destroyed REMOVE ENDIF
On=@Equip IF !(<src.tag0.class>==0) SRC.MESSAGE You can't equip that! UNEQUIP RETURN 1 ENDIF IF <MOREX><1 EMOTE destroyed REMOVE ENDIF SRC.EMOTE equip <name> LINK=<SRC.UID> MOREX=(<MOREX>-1) TIMER=3 RETURN 0
ON=@Unequip LINK=-1 TIMER=-1 RETURN 0
ON=@Timer IF !(<LINK.FLAGS> & statf_freeze) IF (<LINK.STAM> < <LINK.DEX>) LINK.STAM = <eval <LINK.STAM> + 5> ENDIF ENDIF TIMER=3 RETURN 1
CATEGORY=Rares SUBSECTION=Loot Items DESCRIPTION=Troll Earrings
[ITEMDEF i_drum_valor] ID=i_drum TYPE=T_MUSICAL NAME=Drum of Valor TDATA1=038 TDATA2=039 WEIGHT=3 RESOURCES=1 i_hides_cut, 5 i_log VALUE=50
On=@Create COLOR=0848
On=@Click IF <TIMER><1 MESSAGE <NAME> ELSE MESSAGE <NAME> (<eval <TIMER>>) ENDIF RETURN 1
On=@DClick IF (<CONT>) IF <TIMER><1 IF <src.musicianship>>1000 SRC.CAST 26 SOUND=snd_SPELL_ARCHPROTECTION timer=20 src.stamina = (<src.stamina> - 50) RETURN 0 ELSE src.sysmessage Your skill of musicianship is too low to play on <name> RETURN 1 ENDIF ELSE src.sysmessage You must wait to perform another action. RETURN 1 ENDIF ELSE src.sysmessage You can't reach that. RETURN 1 ENDIF
CATEGORY=Rares SUBSECTION=Loot Items DESCRIPTION=Drum of Valor
[ITEMDEF i_drum_quake] ID=i_drum TYPE=T_MUSICAL NAME=Drum of Quake TDATA1=038 TDATA2=039 WEIGHT=3 RESOURCES=1 i_hides_cut, 5 i_log VALUE=50
On=@Create COLOR=0486
On=@Click IF <TIMER><1 MESSAGE <NAME> ELSE MESSAGE <NAME> (<eval <TIMER>>) ENDIF RETURN 1
On=@DClick IF (<CONT>) IF <TIMER><1 IF <src.musicianship>>1000 SRC.CAST 57 SOUND=snd_SPELL_EARTHQUAKE timer=20 src.stamina = (<src.stamina> - 50) RETURN 0 ELSE src.sysmessage Your skill of musicianship is too low to play on <name> RETURN 1 ENDIF ELSE src.sysmessage You must wait to perform another action. RETURN 1 ENDIF ELSE src.sysmessage You can't reach that. RETURN 1 ENDIF
CATEGORY=Rares SUBSECTION=Loot Items DESCRIPTION=Drum of Quake
[ITEMDEF i_bard_gloves] NAME=Bard's Gloves ID=013eb ARMOR=50 WEIGHT=4 RESOURCES=5 i_ingot_iron SKILLMAKE=blacksmithing 100.0 VALUE=50
On=@Create HITPOINTS=30 COLOR=0445
On=@Click MESSAGE [Condition <HITPOINTS>]
On=@Equip src.musicianship=(<src.musicianship>+5.0) src.enticement=(<src.enticement>+1.0)
On=@Unequip src.musicianship=(<src.musicianship>-5.0) src.enticement=(<src.enticement>-1.0)
CATEGORY=Rares SUBSECTION=Loot Items DESCRIPTION=Bard's Gloves
[EOF] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:04 pm | |
| - Code:
-
//###################################### //###### Military City ###### //###### Potion Keg ###### //######################################
[ITEMDEF i_keg_potion] NAME=Empty potion keg ID=i_keg_wood TYPE=t_container VALUE={20000 30000} WEIGHT=100.0 FLIP=0 DYE=1
RESOURCES=1 i_keg_small, 1 i_barrel_tap, 20 i_ingot_bronze SKILLMAKE=95.0 TINKERING, 80.0 CARPENTRY, t_tinker_tools
CATEGORY=Items by Professions SUBSECTION=Alchemist DESCRIPTION=potion keg
On=@Create morep = 0,0,0 // morex contains amount of potions stored in keg
On=@Pickup_pack if (!<findcont(0)>) && (<morex> != 0) name = Empty potion keg morex = 0 endif
On=@Pickup_ground if (!<findcont(0)>) && (<morex> != 0) name = Empty potion keg morex = 0 endif
On=@Click if <findcont(0)> if <morex> == 0 Dirty potion keg with <findcont(0).name>... return 1 endif else morex = 0 name = Empty potion keg endif message <name> return 1
On=@DClick if <findcont(0)> if <morex> == 0 message This potion keg is too dirty to store potions. Shake it well and remove dirt... findcont(0).remove return 1 endif else if <morex> !=0 morex = 0 name = Empty potion keg endif endif target What potion would you like to fill the keg with? return 1
On=@Targon_item // if <src.action> != 03ffff // src.sysmessage You can't use this yet! // return 1 // endif
if <findcont(0)> if <findcont(0).type> != t_potion src.f_spelleffect 43 1000 src.sfx snd_spell_explosion src.message Potion keg is exploding in your hands! remove return 1 endif // something here if <src.targ.baseid> == i_bottle_empty // put out one potion if <src.restest 1 i_bottle_empty> if (<findcont(1).baseid> != <findcont(0).baseid>) || (<findcont(1).type> != t_potion) src.message You see strange melted <findcont(1).name> in your keg findcont(1).remove name = <findcont(0).name> keg (<morex>) else src.consume 1 i_bottle_empty src.bounce <findcont(1).uid> src.sfx 0240 endif morex = (<morex> - 1) if <morex> == 0 // potion keg is empty name = Empty potion keg findcont(0).remove else name = <findcont(0).name> keg (<morex>) endif else src.sysmessage The empty bottle should be in your backpack. endif else if <src.targ.baseid> == <findcont(0).baseid> if (<findcont(300)>) || (<morex> > 299) src.sysmessage There's no space for further potions. return 1 endif
src.newitem <src.targ.baseid> src.act.cont = <serial> src.act.timer = -1 src.act.more2 = <src.targ.more2> src.targ.remove
src.newitem i_bottle_empty src.act.timer = -1 src.act.bounce morex = <morex> + 1 name = <findcont(0).name> keg (<morex>) src.sfx 0240 src.sysmessage You fill up the keg with a <src.targ.name> potion. else src.sysmessage You can't use <src.targ.name> on this <findcont(0).name> keg. endif endif else // empty potion keg if <src.targ.type> != t_potion src.sysmessage You can't use <src.targ.name> on this keg. return 1 endif // put first potion into potion keg src.newitem <src.targ.baseid> src.act.cont = <serial> src.act.timer = -1 src.act.more2 = <src.targ.more2> src.newitem <src.targ.baseid> src.act.cont = <serial> src.act.timer = -1 src.targ.remove src.newitem i_bottle_empty src.act.timer = -1 src.act.bounce morex = 1 name = <findcont(0).name> keg (<morex>) src.sfx 0240 src.sysmessage You fill up the keg with a <src.targ.name> potion. endif return 1
[EOF] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:05 pm | |
| - Code:
-
//###################################### //###### Military City ###### //###### Safe containers ###### //######################################
[FUNCTION f_lock_safe_container] if <src.targ.serial>==<serial> more = <serial> type = t_container_locked src.sfx snd_spell_magic_lock src.sysmessage You lock container properly src.newitem i_key_copper src.act.timer = -1 src.act.more = <serial> src.act.link = <serial> src.act.bounce return 1 endif if (<src.targ.type>==t_container) || (<src.targ.type>==t_container_locked) if <src.targ.more>==0 src.sysmessage This container does not have a lock. Select another one. return 1 else more = <src.targ.more> type = t_container_locked src.sfx snd_spell_magic_lock src.sysmessage You lock container properly return 1 endif elseif <src.targ.type>==t_key if <src.targ.link>==04fffffff src.sysmessage You cannot use this key with safes. Select another one. return 1 elseif ((<src.targ.link.type>==t_container) || (<src.targ.link.type>==t_container_locked)) && (<src.targ.more>!=0) more = <src.targ.more> type = t_container_locked src.sfx snd_spell_magic_lock src.sysmessage You lock container properly return 1 else src.sysmessage You cannot use this key with safes. Select another one. return 1 endif else src.sysmessage You can't think of a way to use this item return 1 endif
[ITEMDEF i_safe_metal_brass] NAME=Brass metal safe ID=i_chest_metal_brass
WEIGHT=200.0 VALUE=20 RESOURCES=15 i_ingot_iron, 6 i_ingot_golden, 2 i_log_holy, 4 i_nails, 2 i_hinges_brass, 1 i_ingot_copper, 6 i_ingot_silver SKILLMAKE=TINKERING 107.0,t_tinker_tools
CATEGORY=Provisions - Miscellaneous SUBSECTION=Safe DESCRIPTION=Metal brass chest
On=@DClick f_keyffffffff_fix <more> if (!<src.restest 1 t_key_match>) && ((<type>==t_container_locked) || (<type>==t_door_locked) || (<type>==t_ship_side_locked)) && (!<src.isgm>) src.sysmessage This <name> is locked. return 1 endif src.f_match_key
if <src.isgm> return 0 endif if <link>==04fffffff src.sysmessage You must lockdown container first return 1 elseif <more>==0 target Select key or safe with lock return 1 elseif <src.p.z> > <z> if <src.isgm> src.sysmessage You can't reach that (system), <z>, <src.p.z> else src.sysmessage You can't reach that return 1 endif endif
On=@Targon_item f_lock_safe_container return 1
On=@Spell return 1
On=@Create color=0790
[ITEMDEF i_safe_wooden_brass] NAME=Brass wooden safe ID=i_chest_wooden_brass
WEIGHT=130.0 VALUE=20 RESOURCES=3 i_log_holy, 4 i_nails, 2 i_hinges_brass, 1 i_ingot_copper, 2 i_ingot_golden, 6 i_ingot_silver SKILLMAKE=CARPENTRY 106.0, t_carpentry
CATEGORY=Provisions - Miscellaneous SUBSECTION=Safe DESCRIPTION=Wooden brass chest
On=@DClick f_keyffffffff_fix <more> if (!<src.restest 1 t_key_match>) && ((<type>==t_container_locked) || (<type>==t_door_locked) || (<type>==t_ship_side_locked)) && (!<src.isgm>) src.sysmessage This <name> is locked. return 1 endif src.f_match_key
if <src.isgm> return 0 endif if <link>==04fffffff src.sysmessage You must lockdown container first return 1 elseif <more>==0 target Select key or safe with lock return 1 elseif <src.p.z> > <z> if <src.isgm> src.sysmessage You can't reach that (system), <z>, <src.p.z> else src.sysmessage You can't reach that return 1 endif endif
On=@Targon_item f_lock_safe_container return 1
On=@Spell return 1
On=@Create color=0790
[ITEMDEF i_safe_metal] NAME=Metal safe ID=i_chest_metal
WEIGHT=200.0 VALUE=20 RESOURCES=20 i_ingot_iron, 1 i_nails, 2 i_hinge, 2 i_log_holy, 1 i_ingot_copper, 3 i_ingot_golden, 5 i_ingot_silver SKILLMAKE=TINKERING 105.8, t_tinker_tools
CATEGORY=Provisions - Miscellaneous SUBSECTION=Safe DESCRIPTION=Metal chest
On=@DClick f_keyffffffff_fix <more> if (!<src.restest 1 t_key_match>) && ((<type>==t_container_locked) || (<type>==t_door_locked) || (<type>==t_ship_side_locked)) && (!<src.isgm>) src.sysmessage This <name> is locked. return 1 endif src.f_match_key
if <src.isgm> return 0 endif if <link>==04fffffff src.sysmessage You must lockdown container first return 1 elseif <more>==0 target Select key or safe with lock return 1 elseif <src.p.z> > <z> if <src.isgm> src.sysmessage You can't reach that (system), <z>, <src.p.z> else src.sysmessage You can't reach that return 1 endif endif
On=@Targon_item f_lock_safe_container return 1
On=@Spell return 1
On=@Create color=0790
[ITEMDEF i_safe_strongbox] NAME=Safe strongbox ID=i_box_brass
WEIGHT=140.0 VALUE=20 RESOURCES=5 i_ingot_iron,1 i_nails, 3 i_log_holy, 2 i_hinge, 1 i_ingot_copper, 3 i_ingot_golden, 20 i_ingot_silver SKILLMAKE=TINKERING 105.2,t_tinker_tools
CATEGORY=Provisions - Miscellaneous SUBSECTION=Safe DESCRIPTION=Strongbox
On=@DClick f_keyffffffff_fix <more> if (!<src.restest 1 t_key_match>) && ((<type>==t_container_locked) || (<type>==t_door_locked) || (<type>==t_ship_side_locked)) && (!<src.isgm>) src.sysmessage This <name> is locked. return 1 endif src.f_match_key
if <src.isgm> return 0 endif if <link>==04fffffff src.sysmessage You must lockdown container first return 1 elseif <more>==0 target Select key or safe with lock return 1 elseif <src.p.z> > <z> if <src.isgm> src.sysmessage You can't reach that (system), <z>, <src.p.z> else src.sysmessage You can't reach that return 1 endif endif
On=@Targon_item f_lock_safe_container return 1
On=@Spell return 1
On=@Create color=0790
[ITEMDEF i_safe_box_wood] NAME=Safe wooden box ID=i_box_wood
WEIGHT=100.0 VALUE=20 RESOURCES=2 i_log_holy, 1 i_nails, 2 i_hinge, 1 i_ingot_copper, 6 i_ingot_silver SKILLMAKE=CARPENTRY 108.0, t_carpentry
CATEGORY=Provisions - Miscellaneous SUBSECTION=Safe DESCRIPTION=Strongbox
On=@DClick f_keyffffffff_fix <more> if (!<src.restest 1 t_key_match>) && ((<type>==t_container_locked) || (<type>==t_door_locked) || (<type>==t_ship_side_locked)) && (!<src.isgm>) src.sysmessage This <name> is locked. return 1 endif src.f_match_key
if <src.isgm> return 0 endif if <link>==04fffffff src.sysmessage You must lockdown container first return 1 elseif <more>==0 target Select key or safe with lock return 1 elseif <src.p.z> > <z> if <src.isgm> src.sysmessage You can't reach that (system), <z>, <src.p.z> else src.sysmessage You can't reach that return 1 endif endif
On=@Targon_item f_lock_safe_container return 1
On=@Spell return 1
On=@Create color=0790
[EOF] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:07 pm | |
| - Code:
-
//###################################### //###### Military City ###### //###### New trap's ###### //######################################
[ITEMDEF i_muck_trap1] ID=i_flower_muck NAME=Primitive trap VALUE=20 RESOURCES=5 i_reag_nightshade, 1 i_ingot_bronze, 1 i_ingot_copper SKILLMAKE=TINKERING 100.0, BOWCRAFT 101.0, t_tinker_tools WEIGHT=1.0 TYPE=t_trap
On=@Create color=0848 morey=2
On=@DClick if (<src.tag.class>&class_ranger) if (<src.region.flags>&02000) src.message Anti-Harm Field!!! return 1 endif if <src.distance>>1 src.sysmessage You can't reach that! return 1 endif if <morey>=1 return 1 endif if !(<cont>) src.anim 32 src.emote locked the <name> name=Muck trap [locked] SOUND 0144 attr=08080 timer=-1 morey=1 else src.sysmessage You can't use it in your pack! return 1 endif else src.sysmessage You can't use traps endif return 1
On=@Step IF (<src.flags>&statf_dead) RETURN 1 ENDIF if <morey>=2 src.sysmessage This <name> have't been locked yet! return 1 endif src.damage = 1 src.anim 20 sound=snd_SPELL_CURSE src.emote steps on the trap remove return 1
[ITEMDEF i_muck_trap] ID=i_flower_muck NAME=Damage trap VALUE=20 RESOURCES=35 i_reag_nightshade, 5 i_reag_dragon_blood, i_ingot_fire SKILLMAKE=TINKERING 100.0, BOWCRAFT 101.0, t_tinker_tools WEIGHT=3.0 TYPE=t_trap
On=@Create color=0485 morey=2
On=@DClick if (<src.tag.class>&class_ranger) if (<src.region.flags>&02000) src.message Anti-Harm Field!!! return 1 endif if <src.distance>>1 src.sysmessage You can't reach that! return 1 endif if <morey>=1 return 1 endif if !(<cont>) src.anim 32 src.emote locked the <name> name=Muck trap [locked] SOUND 0144 attr=08080 timer=-1 morey=1 else src.sysmessage You can't use it in your pack! return 1 endif else src.sysmessage You can't use traps endif return 1
On=@Step IF (<src.flags>&statf_dead) RETURN 1 ENDIF if <morey>=2 src.sysmessage This <name> have't been locked yet! return 1 endif if <src.brain>==brain_dragon src.damage = 2000 elif <src.brain>==brain_undead src.damage = 2000 elif <src.brain>==brain_monster src.damage = 2000 elif <src.brain>==brain_human src.damage = 2000 endif src.damage = 50 src.anim 20 sound=snd_SPELL_CURSE src.emote steps on the trap remove return 1
CATEGORY=Traps & other SUBSECTION=Traps DESCRIPTION=Muck trap
[ITEMDEF i_muck_trap_poisoned] ID=i_flower_muck NAME=Poisoned trap VALUE=1 RESOURCES=35 i_reag_nightshade, i_reag_fertile_dirt, i_scroll_poison, i_ingot_acid SKILLMAKE=TINKERING 100.0, BOWCRAFT 101.0, t_tinker_tools WEIGHT=3.0 TYPE=t_trap
On=@Create color=0487 morey=2
On=@DClick if (<src.tag.class>&class_ranger) if (<src.region.flags>&02000) src.message Anti-Harm Field!!! return 1 endif if <src.distance>>1 src.sysmessage You can't reach that! return 1 endif if <morey>=1 return 1 endif if !(<cont>) src.anim 32 src.emote locked the <name> name=Muck trap [locked] SOUND 0144 attr=08080 timer=-1 morey=1 else src.sysmessage You can't use it in your pack! return 1 endif else src.sysmessage You can't use traps endif return 1
On=@Step IF (<src.flags>&statf_dead) RETURN 1 ENDIF if <morey>=2 src.sysmessage This <name> have't been locked yet! return 1 endif if <src.brain>==brain_dragon src.damage = 2000 elif <src.brain>==brain_undead src.damage = 2000 elif <src.brain>==brain_monster src.damage = 2000 elif <src.brain>==brain_human src.damage = 2000 endif if !(<src.flags> & statf_poisoned) src.sfx snd_spell_poison src.spelleffect s_poison 2000 endif src.anim 20 sound=snd_SPELL_POISON src.emote steps on the trap remove return 1
CATEGORY=Traps & other SUBSECTION=Traps DESCRIPTION=Poisoned muck trap
[ITEMDEF i_muck_trap_paralyze] ID=i_flower_muck NAME=Paralyzing trap VALUE=1 RESOURCES=35 i_reag_nightshade, i_reag_fertile_dirt, i_scroll_paralyze, i_ingot_valorite SKILLMAKE=TINKERING 100.0, BOWCRAFT 101.0, t_tinker_tools WEIGHT=3.0 TYPE=t_trap
On=@Create color=0497 morey=2
On=@DClick if (<src.tag.class>&class_ranger) if (<src.region.flags>&02000) src.message Anti-Harm Field!!! return 1 endif if <src.distance>>1 src.sysmessage You can't reach that! return 1 endif if <morey>=1 return 1 endif if !(<cont>) src.anim 32 src.emote locked the <name> name=Muck trap [locked] SOUND 0144 attr=08080 timer=-1 morey=1 else src.sysmessage You can't use it in your pack! return 1 endif else src.sysmessage You can't use traps endif return 1
On=@Step IF (<src.flags>&statf_dead) RETURN 1 ENDIF if <morey>=2 src.sysmessage This <name> have't been locked yet! return 1 endif if <src.brain>==brain_dragon src.damage = 2000 elif <src.brain>==brain_undead src.damage = 2000 elif <src.brain>==brain_monster src.damage = 2000 elif <src.brain>==brain_human src.damage = 2000 endif VAR.ITEM=i_elm_paralyze src.effect 3,i_fx_curse,6,15,1 src.sfx 0210 src.newitem=<VAR.ITEM> SRC.ACT.P=<SRC.P> SRC.ACT.TIMER=2 src.emote look's paralized src.anim 20 sound=snd_SPELL_PARALYZE src.emote steps on the trap remove return 1
CATEGORY=Traps & other SUBSECTION=Traps DESCRIPTION=Paralizing muck trap
//------------------------------------------------------------------------------------------
//Comrad trap's [ITEMDEF i_trap_spike_new] ID=i_TRAP_SPIKE TYPE=T_TRAP NAME=Spike trap RESOURCES=22 i_ingot_iron, 1 i_SPRINGS, 2 i_ingot_steel SKILLMAKE=TINKERING 200.0, BOWCRAFT 101.0, t_tinker_tools VALUE=20 WEIGHT=80.0
CATEGORY=Decoration - Dungeons and The Dead SUBSECTION=Traps DESCRIPTION=Spike Trap 01 new
DUPELIST=01109,0110a,0110b,0110c,0110d,0110e,0110f
On=@Create color=color_o_steel morey=2
On=@DClick if <src.distance>>1 src.sysmessage You can't reach that! return 1 endif if <morey>=1 return 1 endif if !(<cont>) src.anim 32 src.emote locked the <name> name=Spike trap [locked] SOUND 0144 attr=010 morey=1 timer=1200 else src.sysmessage You can't use it in your pack! return 1 endif return 1
On=@Step if <morey>=2 src.sysmessage This <name> have't been locked yet! return 1 endif if <src.removetrap>>500 src.damage {120 130} elseif <src.removetrap>>600 src.damage {110 120} elseif <src.removetrap>>700 src.damage {100 110} elseif <src.removetrap>>800 src.damage {90 100} elseif <src.removetrap>>900 src.damage {80 90} elseif <src.removetrap>>990 src.damage {70 80} else src.damage {140 150} endif src.anim 20 sound=snd_SPELL_CURSE src.emote step's on the trap
On=@Timer remove
[ITEMDEF i_trap_saw_new] ID=i_TRAP_SAW NAME=Saw trap TYPE=T_TRAP RESOURCES=22 i_ingot_iron, 1 i_SPRINGS, 1 i_ingot_steel SKILLMAKE=TINKERING 200.0, BOWCRAFT 101.0, t_tinker_tools VALUE=20 WEIGHT=40.0
CATEGORY=Decoration - Dungeons and The Dead SUBSECTION=Traps DESCRIPTION=Saw Trap 01 new
DUPELIST=01104,01105,01106,01107
On=@Create color=color_o_steel morey=2
On=@DClick if (<src.tag.class>&class_ranger) if <src.distance>>1 src.sysmessage You can't reach that! return 1 endif if <morey>=1 return 1 endif if !(<cont>) src.anim 32 src.emote locked the <name> name=Muck trap [locked] SOUND 0144 attr=08080 timer=-1 morey=1 else src.sysmessage You can't use it in your pack! return 1 endif else src.sysmessage You can't use traps endif return 1
On=@Step if <morey>=2 src.sysmessage This <name> have't been locked yet! return 1 endif if <src.removetrap>>500 src.damage {120 130} elseif <src.removetrap>>600 src.damage {110 120} elseif <src.removetrap>>700 src.damage {100 110} elseif <src.removetrap>>800 src.damage {90 100} elseif <src.removetrap>>900 src.damage {80 90} elseif <src.removetrap>>990 src.damage {70 80} else src.damage {140 150} endif src.anim 20 sound=snd_SPELL_CURSE src.emote step's on the trap
On=@Timer remove
[ITEMDEF i_trap_axe_new] ID=i_TRAP_AXE TYPE=T_TRAP RESOURCES=2 i_AXE, 21 i_ingot_iron, 1 i_SPRINGS, 3 i_ingot_silver SKILLMAKE=TINKERING 200.0, BOWCRAFT 101.0, t_tinker_tools VALUE=20 WEIGHT=40.0
CATEGORY=Decoration - Dungeons and The Dead SUBSECTION=Traps DESCRIPTION=Axe Trap 01 DUPELIST=01134,01135,01136,01137,01138,01139
On=@Create color=color_o_steel morey=2
On=@DClick if (<src.tag.class>&class_ranger) if <src.distance>>1 src.sysmessage You can't reach that! return 1 endif if <morey>=1 return 1 endif if !(<cont>) src.anim 32 src.emote locked the <name> name=Muck trap [locked] SOUND 0144 attr=08080 timer=-1 morey=1 else src.sysmessage You can't use it in your pack! return 1 endif else src.sysmessage You can't use traps endif return 1
On=@Step if <morey>=2 src.sysmessage This <name> have't been locked yet! return 1 endif if <src.removetrap>>500 src.damage {120 130} elseif <src.removetrap>>600 src.damage {110 120} elseif <src.removetrap>>700 src.damage {100 110} elseif <src.removetrap>>800 src.damage {90 100} elseif <src.removetrap>>900 src.damage {80 90} elseif <src.removetrap>>990 src.damage {70 80} else src.damage {140 150} endif src.anim 20 sound=snd_SPELL_CURSE src.emote step's on the trap
On=@Timer remove
[EOF] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:09 pm | |
| - Code:
-
//###################################### //###### Military City ###### //###### Npc events ###### //###################################### [EVENTS e_npc_general] ON=@Click if (<findid i_mem_evolution>) IF <FAME> < 10000 MESSAGE @026 <NAME> [<eval(<tag0.level>)>/<eval <findid.i_mem_evolution.tag0.evolution_step>>] ELSE MESSAGE @026 <SEX Lord/Lady> <NAME> [<eval(<tag0.level>)>/<eval <findid.i_mem_evolution.tag0.evolution_step>>] ENDIF RETURN 1 endif
ON=@Death if (<tag0.loot_flags>&npc_loot_money) f_loot_money endif if (<tag0.loot_flags>&npc_loot_reag) f_loot_reag endif
On=@GetHit if <flags> & statf_poisoned if <findlayer(42).id>!=0 findlayer(42).remove endif hits=<str> flags=<flags> & ~statf_poisoned update endif
ON=@SpellEffect if (<serv.spell.<argn1>.flags>&spellflag_resist) && (<flags>&statf_reflection) if (<src.detail>) src.sysmessage <name> reflects your spell. endif effect 3,i_fx_bless_effect,1,16,1,0,4 sfx 500 anim 30 flags=<flags>&~statf_reflection return 1 endif if (<src.uid>!=<uid>) && (<serv.spell.<argn1>.flags>&spellflag_resist) argn2=<eval((<argn2> - <magicresistance>/2 - <int>*2 + <src.int>*2 )> else argn2=<eval((<argn2> + <src.int>*2 )> endif
//Evolution [defname Evolution] evolution_timer 3600
[function f_npc_evolution] SERV.NEWITEM i_mem_evolution NEW.CONT=<UID> NEW.LINK=<UID> NEW.EQUIP NEW.tag0.evolution_id=<args> NEW.TIMER=<def.evolution_timer>
[itemdef i_mem_evolution] id=i_memory type=t_eq_script name=[Evolution Item]
ON=@Create attr=094
ON=@Timer if <cont> if (<tag0.evolution_step> < <eval(<link.tag0.level>*10)>) tag0.evolution_step=<eval(<tag0.evolution_step>+1)> link.ostr=<eval(<link.ostr>+(<link.tag0.level>*8))> link.hits=<eval(<link.hits>+(<link.tag0.level>*8))> link.odex=<eval(<link.odex>+(<link.tag0.level>*2))> link.stam=<eval(<link.stam>+(<link.tag0.level>*2))> link.oint=<eval(<link.oint>+(<link.tag0.level>*2))> link.mana=<eval(<link.mana>+(<link.tag0.level>*2))> link.fame=<eval(<link.fame>+(<link.tag0.level>*10))> link.karma=<eval(<link.karma>-(<link.tag0.level>*10))> elif (<tag0.evolution_step>==<eval(<link.tag0.level>*10)>) && !(<tag0.evolution_id>==0) serv.newnpc <tag0.evolution_id> new.ostr <link.ostr> new.odex <link.odex> new.oint <link.oint> new.hits <link.hits> new.stam <link.stam> new.mana <link.mana> new.home <link.home> new.p <link.p> new.kills <link.kills> new.karma <link.karma> new.fame <link.fame> link.remove remove else timer -1 endif timer <def.evolution_timer> return 1 endif [eof] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:09 pm | |
| - Code:
-
//###################################### //###### Military City ###### //###### Npc loot ###### //######################################
[defname loot_templates] template_loot_money_1 {5 30} template_loot_money_2 {30 60} template_loot_money_3 {60 100} template_loot_money_4 {100 180} template_loot_money_5 {180 250} template_loot_money_6 {250 350} template_loot_money_7 {350 500} template_loot_money_8 {500 700} template_loot_money_9 {700 1000} template_loot_money_10 {1000 2000}
npc_loot_money 000001 npc_loot_reag 000002 npc_loot_gems 000004 npc_loot_scroll 000008 npc_loot_weapon 000010 npc_loot_armor 000020 npc_loot_rares 000040 npc_loot_maps 000080
template_reagents { i_reag_black_pearl 1 i_reag_blood_moss 1 i_reag_garlic 1 i_reag_ginseng 1 i_reag_mandrake_root 1 i_reag_nightshade 1 i_reag_sulfur_ash 1 i_reag_spider_silk 1 } template_gems { i_gem_granate 9 i_gem_amber 8 i_gem_ruby 7 i_gem_sapphire 6 i_gem_tourmaline 5 i_gem_citrine 4 i_gem_emerald 3 i_gem_amethyst 2 i_gem_diamond 1 }
template_first_circle { i_scroll_reactive_armor 1 i_scroll_clumsy 1 i_scroll_create_food 1 i_scroll_feeblemind 1 i_scroll_heal 1 i_scroll_magic_arrow 1 i_scroll_night_sight 1 i_scroll_weaken 1 } template_second_circle { i_scroll_agility 1 i_scroll_cunning 1 i_scroll_cure 1 i_scroll_harm 1 i_scroll_magic_trap 1 i_scroll_magic_untrap 1 i_scroll_protection 1 i_scroll_strength 1 } template_third_circle { i_scroll_bless 1 i_scroll_fireball 1 i_scroll_magic_lock 1 i_scroll_poison 1 i_scroll_telekinesis 1 i_scroll_teleport 1 i_scroll_unlock 1 i_scroll_wall_of_stone 1 } template_fourth_circle { i_scroll_archcure 1 i_scroll_archprotection 1 i_scroll_curse 1 i_scroll_fire_field 1 i_scroll_greater_heal 1 i_scroll_lightning 1 i_scroll_mana_drain 1 i_scroll_recall 1 } template_fifth_circle { i_scroll_blade_spirits 1 i_scroll_dispel_field 1 i_scroll_incognito 1 i_scroll_magic_reflection 1 i_scroll_mind_blast 1 i_scroll_paralyze 1 i_scroll_poison_field 1 i_scroll_summon_creature 1 } template_sixth_circle { i_scroll_dispel 1 i_scroll_energy_bolt 1 i_scroll_explosion 1 i_scroll_invisibility 1 i_scroll_mark 1 i_scroll_mass_curse 1 i_scroll_paralyze_field 1 i_scroll_reveal 1 } template_seventh_circle { i_scroll_chain_lightning 1 i_scroll_energy_field 1 i_scroll_flamestrike 1 i_scroll_gate_travel 1 i_scroll_mana_vampire 1 i_scroll_mass_dispel 1 i_scroll_meteor_swarm 1 i_scroll_polymorph 1 } template_eighth_circle { i_scroll_earthquake 1 i_scroll_energy_vortex 1 i_scroll_resurrection 1 i_scroll_summon_elem_air 1 i_scroll_summon_daemon 1 i_scroll_summon_elem_earth 1 i_scroll_summon_elem_fire 1 i_scroll_summon_elem_water 1 }
template_loot_scroll_1 { template_first_circle 1 template_second_circle 2} template_loot_scroll_2 { template_first_circle 1 template_second_circle 1 template_third_circle 2} template_loot_scroll_3 { template_second_circle 1 template_thrird_circle 1 template_fourth_circle 2} template_loot_scroll_4 { template_thrird_circle 1 template_fourth_circle 1 template_fifth_circle 2} template_loot_scroll_5 { template_fourth_circle 1 template_fifth_circle 1 template_sixth_circle 2} template_loot_scroll_6 { template_fifth_circle 1 template_sixth_circle 1 template_seventh_circle 2} template_loot_scroll_7 { template_sixth_circle 1 template_seventh_circle 1 template_eighth circle 2} template_loot_scroll_8 { template_seventh_circle 1 template_eighth circle 1} template_loot_scroll_9 { template_eighth circle 1} template_loot_scroll_10 { template_eighth circle 1} // Necros spells add here :)
[function f_loot_reag] FOR <tag.level> serv.newitem <def.template_reagents> new.amount {<tag.level> <eval(<tag.level>*10)>} new.bounce ENDFOR
[function f_loot_money] local.money=<def.template_loot_money_<eval(<tag.level>)>> FOR <eval(1+(<local.money>/50000))> serv.newitem i_gold new.amount <qval (<local.money> < 50000) ? <local.money> : 50000> new.bounce local.money=<eval(<local.money>-50000)> ENDFOR if (<findid.i_mem_evolution.tag0.evolution_step>>0) FOR <findid.i_mem_evolution.tag0.evolution_step> serv.newitem i_gold new.amount <eval((<def.template_loot_money_<eval(<tag.level>)>>*100)/1000)> new.bounce ENDFOR endif
[eof] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:15 pm | |
| - Code:
-
//###################################### //###### Military City ###### //###### Healing wind ###### //######################################
[ITEMDEF i_scroll_water_walk] ID=i_scroll_flamestrike NAME=Water Walk Scroll TYPE=t_eq_script
ON=@Create ATTR=020
ON=@DClick IF (<SRC.MANA> < 55) SRC.SYSMESSAGE You do not have enough mana to cast this spell RETURN 1 ELSE SRC.MANA=<SRC.MANA> + {-55 -35} SRC.SAY Rel Ylem SRC.ANIM 17
TAG.OLDAMOUNT=<AMOUNT> AMOUNT=1 ATTR=<ATTR>|attr_move_never|attr_invis P=1,1 LINK=<SRC.UID> SRC.TAG.WALKINGWATER=1
IF (<eval <TAG.OLDAMOUNT>> > 1) SRC.NEWITEM i_scroll_water_walk SRC.ACT.AMOUNT=<eval <TAG.OLDAMOUNT>> +(-1) SRC.ACT.CONT=<SRC.FINDLAYER(layer_pack).UID> TAG.OLDAMOUNT= ENDIF
SRC.NEWITEM i_waterwalk SRC.ACT.LINK=<SRC.UID> SRC.ACT.ATTR=attr_move_never IF <SRC.ISGM> SRC.ACT.ATTR=<SRC.ACT.ATTR>|attr_invis ENDIF SRC.ACT.P=<SRC.P> SRC.ACT.TIMER=1 SRC.NEWITEM i_waterwalk_s SRC.ACT.LINK=<SRC.UID> SRC.ACT.ATTR=attr_move_never IF <SRC.ISGM> SRC.ACT.ATTR=<SRC.ACT.ATTR>|attr_invis ENDIF SRC.ACT.P=<SRC.P> SRC.ACT.TIMER=1 SRC.NEWITEM i_waterwalk_n SRC.ACT.LINK=<SRC.UID> SRC.ACT.ATTR=attr_move_never IF <SRC.ISGM> SRC.ACT.ATTR=<SRC.ACT.ATTR>|attr_invis ENDIF SRC.ACT.P=<SRC.P> SRC.ACT.TIMER=1 SRC.NEWITEM i_waterwalk_e SRC.ACT.LINK=<SRC.UID> SRC.ACT.ATTR=attr_move_never IF <SRC.ISGM> SRC.ACT.ATTR=<SRC.ACT.ATTR>|attr_invis ENDIF SRC.ACT.P=<SRC.P> SRC.ACT.TIMER=1 SRC.NEWITEM i_waterwalk_w SRC.ACT.LINK=<SRC.UID> SRC.ACT.ATTR=attr_move_never IF <SRC.ISGM> SRC.ACT.ATTR=<SRC.ACT.ATTR>|attr_invis ENDIF SRC.ACT.P=<SRC.P> SRC.ACT.TIMER=1 SRC.NEWITEM i_waterwalk_sw SRC.ACT.LINK=<SRC.UID> SRC.ACT.ATTR=attr_move_never IF <SRC.ISGM> SRC.ACT.ATTR=<SRC.ACT.ATTR>|attr_invis ENDIF SRC.ACT.P=<SRC.P> SRC.ACT.TIMER=1 SRC.NEWITEM i_waterwalk_nw SRC.ACT.LINK=<SRC.UID> SRC.ACT.ATTR=attr_move_never IF <SRC.ISGM> SRC.ACT.ATTR=<SRC.ACT.ATTR>|attr_invis ENDIF SRC.ACT.P=<SRC.P> SRC.ACT.TIMER=1 SRC.NEWITEM i_waterwalk_se SRC.ACT.LINK=<SRC.UID> SRC.ACT.ATTR=attr_move_never IF <SRC.ISGM> SRC.ACT.ATTR=<SRC.ACT.ATTR>|attr_invis ENDIF SRC.ACT.P=<SRC.P> SRC.ACT.TIMER=1 SRC.NEWITEM i_waterwalk_ne SRC.ACT.LINK=<SRC.UID> SRC.ACT.ATTR=attr_move_never IF <SRC.ISGM> SRC.ACT.ATTR=<SRC.ACT.ATTR>|attr_invis ENDIF SRC.ACT.P=<SRC.P> SRC.ACT.TIMER=1
MORE1={ 180 300 } TIMERd=20 RETURN 1 ENDIF
ON=@Timer IF (<MORE1>=0) LINK.TAG.WALKINGWATER= REMOVE ELSE MORE1=<MORE1>-1 TIMER=1 ENDIF
RETURN 1
[ITEMDEF i_waterwalk] ID=i_floor_marble
ON=@Step TRIGGER Timer
ON=@Timer IF <eval <LINK.TAG.WALKINGWATER>>=0 REMOVE RETURN 1 ELSE P=<LINK.P> TIMERd=1 ENDIF
RETURN 1
[ITEMDEF i_waterwalk_n] ID=i_floor_marble
ON=@Step TRIGGER Timer
ON=@Timer IF <eval <LINK.TAG.WALKINGWATER>>=0 REMOVE RETURN 1 ELSE P=<LINK.P> MOVE n TIMERd=1 ENDIF
RETURN 1
[ITEMDEF i_waterwalk_s] ID=i_floor_marble
ON=@Step TRIGGER Timer
ON=@Timer IF <eval <LINK.TAG.WALKINGWATER>>=0 REMOVE RETURN 1 ELSE P=<LINK.P> MOVE s TIMERd=1 ENDIF
RETURN 1
[ITEMDEF i_waterwalk_e] ID=i_floor_marble
ON=@Step TRIGGER Timer
ON=@Timer IF <eval <LINK.TAG.WALKINGWATER>>=0 REMOVE RETURN 1 ELSE P=<LINK.P> MOVE e TIMERd=1 ENDIF RETURN 1
[ITEMDEF i_waterwalk_w] ID=i_floor_marble
ON=@Step TRIGGER Timer
ON=@Timer IF <eval <LINK.TAG.WALKINGWATER>>=0 REMOVE RETURN 1 ELSE P=<LINK.P> MOVE w TIMERd=1 ENDIF
RETURN 1
[ITEMDEF i_waterwalk_ne] ID=i_floor_marble
ON=@Step TRIGGER Timer
ON=@Timer IF <eval <LINK.TAG.WALKINGWATER>>=0 REMOVE RETURN 1 ELSE P=<LINK.P> MOVE ne TIMERd=1 RETURN 1 ENDIF
RETURN 1
[ITEMDEF i_waterwalk_nw] ID=i_floor_marble
ON=@Step TRIGGER Timer
ON=@Timer IF <eval <LINK.TAG.WALKINGWATER>>=0 REMOVE RETURN 1 ELSE P=<LINK.P> MOVE nw TIMERd=1 ENDIF
RETURN 1
[ITEMDEF i_waterwalk_se] ID=i_floor_marble
ON=@Step TRIGGER Timer
ON=@Timer IF <eval <LINK.TAG.WALKINGWATER>>=0 REMOVE RETURN 1 ELSE P=<LINK.P> MOVE se TIMERd=1 ENDIF
RETURN 1
[ITEMDEF i_waterwalk_sw] ID=i_floor_marble
ON=@Step TRIGGER Timer
ON=@Timer IF <eval <LINK.TAG.WALKINGWATER>>=0 REMOVE RETURN 1 ELSE P=<LINK.P> MOVE sw TIMERd=1 ENDIF
RETURN 1
[ITEMDEF i_scroll_healing_wind] ID=i_scroll_resurrection NAME=Healing Wind Scroll TYPE=t_normal
ON=@Create ATTR=020
ON=@DClick IF (<SRC.MANA> < 55) SRC.SYSMESSAGE You do not have enough mana to cast this spell RETURN 1 ELSE SRC.MANA=<SRC.MANA> + {-55 -35} SRC.SAY In Mani Hur SRC.ANIM 17 ATTR=<ATTR>|attr_invis P=<SRC.P> LINK=<SRC.UID> TIMERd=17 RETURN 1 ENDIF
ON=@Timer LINK.HEALWIND <LINK.MAGERY> IF (<AMOUNT> > 1) AMOUNT=<AMOUNT>+(-1) CONT=<LINK.FINDLAYER(layer_pack).UID> ATTR=<ATTR> &~ attr_invis ELSE REMOVE ENDIF RETURN 1
[FUNCTION HEALWIND] //Put this in PLEVEL 2 of your spheretables to prevent abuse! SECTOR.ALLCLIENTS SFX 498 SECTOR.ALLCLIENTS SPELLEFFECT 29, <ARGN>
[EOF] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:17 pm | |
| - Code:
-
//###################################### //###### Military City ###### //###### Magic weapon's Changer ###### //######################################
[ITEMDEF i_Changer_ruin] ID=011f7 NAME=Weapon Changer WEIGHT=99999.0
ON=@Create COLOR=color_magic_vanq attr=010
On=@DClick SRC.DIALOG d_ruin_menu return 1
[DIALOG d_ruin_menu] 100 100 //resizepic 0 0 2620 455 350 page 0 resizepic 10 10 2620 445 335 text 185 20 37 0 text 155 40 37 1 //tilepic 40 30 7109 // //tilepic 370 30 7108 //
page 1 text 40 80 90 3 // Katana button 20 84 1209 1210 1 0 1 text 40 100 90 4 // Kryss button 20 104 1209 1210 1 0 2 text 40 120 90 5 // Scimitar button 20 124 1209 1210 1 0 3 text 40 140 90 6 // Short Spear button 20 144 1209 1210 1 0 4 text 40 160 90 7 // Maul button 20 164 1209 1210 1 0 5 text 40 180 90 8 // Long Sword button 20 184 1209 1210 1 0 6 text 40 200 90 9 // War Work button 20 204 1209 1210 1 0 7 text 40 220 90 10 // Viking Sword button 20 224 1209 1210 1 0 8 text 40 240 90 11 // Halberd button 20 244 1209 1210 1 0 9 text 40 260 90 12 // Heavy Crossbow button 20 264 1209 1210 1 0 10 text 40 280 90 13 // Bow button 20 284 1209 1210 1 0 11 text 40 300 90 14 // Hammerpick button 20 304 1209 1210 1 0 12 text 230 80 52 15 // Katana text 230 100 52 16 // Kryss text 230 120 52 17 // Scimitar text 230 140 52 18 // Short Spear text 230 160 52 19 // Maul text 230 180 52 20 // Long Sword text 230 200 52 21 // War Work text 230 220 52 22 // Viking Sword text 230 240 52 23 // Halberd text 230 260 52 24 // Heavy Crossbow text 230 280 52 25 // Bow text 230 300 52 26 // Hammerpick
[DIALOG d_ruin_menu TEXT] Antares Weapon's Changer :) Upgrade Katana Upgrade Kryss Upgrade Scimitar Upgrade Short Spear Upgrade Maul Upgrade Long Sword Upgrade War Work Upgrade Viking Sword Upgrade Halberd Upgrade Heavy Crossbow Upgrade Bow Upgrade Hammerpick //14 (10 identical Katana) (10 identical Kryss) (10 identical Scimitar) (10 identical Short Spear) (10 identical Maul) (10 identical Long Sword) (10 identical War Work) (10 identical Viking Sword) (10 identical Halberd) (10 identical Heavy Crossbow) (10 identical Bow) (10 identical Hammerpick) //26
[DIALOG d_ruin_menu BUTTON] ONBUTTON=0
ONBUTTON=1 f_ruin_katana return 0
ONBUTTON=2 f_ruin_kryss return 0
ONBUTTON=3 f_ruin_scimitar return 0
ONBUTTON=4 f_ruin_spear return 0
ONBUTTON=5 f_ruin_maul return 0
ONBUTTON=6 f_ruin_long return 0
ONBUTTON=7 f_ruin_work return 0
ONBUTTON=8 f_ruin_viking return 0
ONBUTTON=9 f_ruin_halberd return 0
ONBUTTON=10 f_ruin_cross return 0
ONBUTTON=11 f_ruin_bow return 0
ONBUTTON=12 f_ruin_hammer return 0
[FUNCTION f_ruin_katana] if (<src.restest 1 i_katana> && <src.restest 1 i_enchant_weapon> && <src.restest 5000 i_gold>) src.consume 1 i_katana src.consume 1 i_enchant_weapon src.consume 5000 i_gold src.newitem i_katana_ruin src.act.timer = -1 src.act.bounce elif <src.restest 10 i_katana_ruin> src.consume 10 i_katana_ruin src.newitem i_katana_might src.act.timer = -1 src.act.bounce elif <src.restest 10 i_katana_might> src.consume 10 i_katana_might src.newitem i_katana_force src.act.timer = -1 src.act.bounce elif <src.restest 10 i_katana_force> src.consume 10 i_katana_force src.newitem i_katana_power src.act.timer = -1 src.act.bounce elif <src.restest 10 i_katana_power> src.consume 10 i_katana_power src.newitem i_katana_vanq src.act.timer = -1 src.act.bounce else src.sysmessage - You have nothing to change... endif return 1
[FUNCTION f_ruin_kryss] if (<src.restest 1 i_kryss> && <src.restest 1 i_enchant_weapon> && <src.restest 5000 i_gold>) src.consume 1 i_kryss src.consume 1 i_enchant_weapon src.consume 5000 i_gold src.newitem i_kryss_ruin src.act.timer = -1 src.act.bounce elif <src.restest 10 i_kryss_ruin> src.consume 10 i_kryss_ruin src.newitem i_kryss_might src.act.timer = -1 src.act.bounce elif <src.restest 10 i_kryss_might> src.consume 10 i_kryss_might src.newitem i_kryss_force src.act.timer = -1 src.act.bounce elif <src.restest 10 i_kryss_force> src.consume 10 i_kryss_force src.newitem i_kryss_power src.act.timer = -1 src.act.bounce elif <src.restest 10 i_kryss_power> src.consume 10 i_kryss_power src.newitem i_kryss_vanq src.act.timer = -1 src.act.bounce else src.sysmessage - You have nothing to change... endif return 1
[FUNCTION f_ruin_scimitar] if (<src.restest 1 i_scimitar> && <src.restest 1 i_enchant_weapon> && <src.restest 5000 i_gold>) src.consume 1 i_scimitar src.consume 1 i_enchant_weapon src.consume 5000 i_gold src.newitem i_scimitar_ruin src.act.timer = -1 src.act.bounce elif <src.restest 10 i_scimitar_ruin> src.consume 10 i_scimitar_ruin src.newitem i_scimitar_might src.act.timer = -1 src.act.bounce elif <src.restest 10 i_scimitar_might> src.consume 10 i_scimitar_might src.newitem i_scimitar_force src.act.timer = -1 src.act.bounce elif <src.restest 10 i_scimitar_force> src.consume 10 i_scimitar_force src.newitem i_scimitar_power src.act.timer = -1 src.act.bounce elif <src.restest 10 i_scimitar_power> src.consume 10 i_scimitar_power src.newitem i_scimitar_vanq src.act.timer = -1 src.act.bounce else src.sysmessage - You have nothing to change... endif return 1
[FUNCTION f_ruin_spear] if (<src.restest 1 i_spear_short> && <src.restest 1 i_enchant_weapon> && <src.restest 5000 i_gold>) src.consume 1 i_spear_short src.consume 1 i_enchant_weapon src.consume 5000 i_gold src.newitem i_spear_short_ruin src.act.timer = -1 src.act.bounce elif <src.restest 10 i_spear_short_ruin> src.consume 10 i_spear_short_ruin src.newitem i_spear_short_might src.act.timer = -1 src.act.bounce elif <src.restest 10 i_spear_short_might> src.consume 10 i_spear_short_might src.newitem i_spear_short_force src.act.timer = -1 src.act.bounce elif <src.restest 10 i_spear_short_force> src.consume 10 i_spear_short_force src.newitem i_spear_short_power src.act.timer = -1 src.act.bounce elif <src.restest 10 i_spear_short_power> src.consume 10 i_spear_short_power src.newitem i_spear_short_vanq src.act.timer = -1 src.act.bounce else src.sysmessage - You have nothing to change... endif return 1
[FUNCTION f_ruin_maul] if (<src.restest 1 i_maul> && <src.restest 1 i_enchant_weapon> && <src.restest 5000 i_gold>) src.consume 1 i_maul src.consume 1 i_enchant_weapon src.consume 5000 i_gold src.newitem i_maul_ruin src.act.timer = -1 src.act.bounce elif <src.restest 10 i_maul_ruin> src.consume 10 i_maul_ruin src.newitem i_maul_might src.act.timer = -1 src.act.bounce elif <src.restest 10 i_maul_might> src.consume 10 i_maul_might src.newitem i_maul_force src.act.timer = -1 src.act.bounce elif <src.restest 10 i_maul_force> src.consume 10 i_maul_force src.newitem i_maul_power src.act.timer = -1 src.act.bounce elif <src.restest 10 i_maul_power> src.consume 10 i_maul_power src.newitem i_maul_vanq src.act.timer = -1 src.act.bounce else src.sysmessage - You have nothing to change... endif return 1
[FUNCTION f_ruin_long] if (<src.restest 1 i_sword_long> && <src.restest 1 i_enchant_weapon> && <src.restest 5000 i_gold>) src.consume 1 i_sword_long src.consume 1 i_enchant_weapon src.consume 5000 i_gold src.newitem i_sword_long_ruin src.act.timer = -1 src.act.bounce elif <src.restest 10 i_sword_long_ruin> src.consume 10 i_sword_long_ruin src.newitem i_sword_long_might src.act.timer = -1 src.act.bounce elif <src.restest 10 i_sword_long_might> src.consume 10 i_sword_long_might src.newitem i_sword_long_force src.act.timer = -1 src.act.bounce elif <src.restest 10 i_sword_long_force> src.consume 10 i_sword_long_force src.newitem i_sword_long_power src.act.timer = -1 src.act.bounce elif <src.restest 10 i_sword_long_power> src.consume 10 i_sword_long_power src.newitem i_sword_long_vanq src.act.timer = -1 src.act.bounce else src.sysmessage - You have nothing to change... endif return 1
[FUNCTION f_ruin_work] if (<src.restest 1 i_war_fork> && <src.restest 1 i_enchant_weapon> && <src.restest 5000 i_gold>) src.consume 1 i_war_fork src.consume 1 i_enchant_weapon src.consume 5000 i_gold src.newitem i_war_fork_ruin src.act.timer = -1 src.act.bounce elif <src.restest 10 i_war_fork_ruin> src.consume 10 i_war_fork_ruin src.newitem i_war_fork_might src.act.timer = -1 src.act.bounce elif <src.restest 10 i_war_fork_might> src.consume 10 i_war_fork_might src.newitem i_war_fork_force src.act.timer = -1 src.act.bounce elif <src.restest 10 i_war_fork_force> src.consume 10 i_war_fork_force src.newitem i_war_fork_power src.act.timer = -1 src.act.bounce elif <src.restest 10 i_war_fork_power> src.consume 10 i_war_fork_power src.newitem i_war_fork_vanq src.act.timer = -1 src.act.bounce else src.sysmessage - You have nothing to change... endif return 1
[FUNCTION f_ruin_viking] if (<src.restest 1 i_sword_viking> && <src.restest 1 i_enchant_weapon> && <src.restest 5000 i_gold>) src.consume 1 i_sword_viking src.consume 1 i_enchant_weapon src.consume 5000 i_gold src.newitem i_sword_viking_ruin src.act.timer = -1 src.act.bounce elif <src.restest 10 i_sword_viking_ruin> src.consume 10 i_sword_viking_ruin src.newitem i_sword_viking_might src.act.timer = -1 src.act.bounce elif <src.restest 10 i_sword_viking_might> src.consume 10 i_sword_viking_might src.newitem i_sword_viking_force src.act.timer = -1 src.act.bounce elif <src.restest 10 i_sword_viking_force> src.consume 10 i_sword_viking_force src.newitem i_sword_viking_power src.act.timer = -1 src.act.bounce elif <src.restest 10 i_sword_viking_power> src.consume 10 i_sword_viking_power src.newitem i_sword_viking_vanq src.act.timer = -1 src.act.bounce else src.sysmessage - You have nothing to change... endif return 1
[FUNCTION f_ruin_halberd] if (<src.restest 1 i_halberd> && <src.restest 1 i_enchant_weapon> && <src.restest 5000 i_gold>) src.consume 1 i_halberd src.consume 1 i_enchant_weapon src.consume 5000 i_gold src.newitem i_halberd_ruin src.act.timer = -1 src.act.bounce elif <src.restest 10 i_halberd_ruin> src.consume 10 i_halberd_ruin src.newitem i_halberd_might src.act.timer = -1 src.act.bounce elif <src.restest 10 i_halberd_might> src.consume 10 i_halberd_might src.newitem i_halberd_force src.act.timer = -1 src.act.bounce elif <src.restest 10 i_halberd_force> src.consume 10 i_halberd_force src.newitem i_halberd_power src.act.timer = -1 src.act.bounce elif <src.restest 10 i_halberd_power> src.consume 10 i_halberd_power src.newitem i_halberd_vanq src.act.timer = -1 src.act.bounce else src.sysmessage - You have nothing to change... endif return 1
[FUNCTION f_ruin_cross] if (<src.restest 1 i_crossbow_heavy> && <src.restest 1 i_enchant_weapon> && <src.restest 5000 i_gold>) src.consume 1 i_crossbow_heavy src.consume 1 i_enchant_weapon src.consume 5000 i_gold src.newitem i_crossbow_heavy_ruin src.act.timer = -1 src.act.bounce elif <src.restest 10 i_crossbow_heavy_ruin> src.consume 10 i_crossbow_heavy_ruin src.newitem i_crossbow_heavy_might src.act.timer = -1 src.act.bounce elif <src.restest 10 i_crossbow_heavy_might> src.consume 10 i_crossbow_heavy_might src.newitem i_crossbow_heavy_force src.act.timer = -1 src.act.bounce elif <src.restest 10 i_crossbow_heavy_force> src.consume 10 i_crossbow_heavy_force src.newitem i_crossbow_heavy_power src.act.timer = -1 src.act.bounce elif <src.restest 10 i_crossbow_heavy_power> src.consume 10 i_crossbow_heavy_power src.newitem i_crossbow_heavy_vanq src.act.timer = -1 src.act.bounce else src.sysmessage - You have nothing to change... endif return 1
[FUNCTION f_ruin_bow] if (<src.restest 1 i_bow> && <src.restest 1 i_enchant_weapon> && <src.restest 5000 i_gold>) src.consume 1 i_bow src.consume 1 i_enchant_weapon src.consume 5000 i_gold src.newitem i_bow_ruin src.act.timer = -1 src.act.bounce elif <src.restest 10 i_bow_ruin> src.consume 10 i_bow_ruin src.newitem i_bow_might src.act.timer = -1 src.act.bounce elif <src.restest 10 i_bow_might> src.consume 10 i_bow_might src.newitem i_bow_force src.act.timer = -1 src.act.bounce elif <src.restest 10 i_bow_force> src.consume 10 i_bow_force src.newitem i_bow_power src.act.timer = -1 src.act.bounce elif <src.restest 10 i_bow_power> src.consume 10 i_bow_power src.newitem i_bow_vanq src.act.timer = -1 src.act.bounce else src.sysmessage - You have nothing to change... endif return 1
[FUNCTION f_ruin_hammer] if (<src.restest 1 i_hammer_pick> && <src.restest 1 i_enchant_weapon> && <src.restest 5000 i_gold>) src.consume 1 i_hammer_pick src.consume 1 i_enchant_weapon src.consume 5000 i_gold src.newitem i_hammer_pick_ruin src.act.timer = -1 src.act.bounce elif <src.restest 10 i_hammer_pick_ruin> src.consume 10 i_hammer_pick_ruin src.newitem i_hammer_pick_might src.act.timer = -1 src.act.bounce elif <src.restest 10 i_hammer_pick_might> src.consume 10 i_hammer_pick_might src.newitem i_hammer_pick_force src.act.timer = -1 src.act.bounce elif <src.restest 10 i_hammer_pick_force> src.consume 10 i_hammer_pick_force src.newitem i_hammer_pick_power src.act.timer = -1 src.act.bounce elif <src.restest 10 i_hammer_pick_power> src.consume 10 i_hammer_pick_power src.newitem i_hammer_pick_vanq src.act.timer = -1 src.act.bounce else src.sysmessage - You have nothing to change... endif return 1
[EOF] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:21 pm | |
| - Code:
-
[DEFNAME serv_news]
HtmlNews1 <basefont size="5" color="#99FF00">
[Function f_serv_news]
If !(strmatch("<var.ServNews<eval (<var.maxservnews> )>>",""))
tag.ServNewsNum = 1
dialogclose d_add_news
dialogclose d_serv_news
dialog d_serv_news
endif
return 1
[Function addnews]
If <src.account.plevel> > 4
tag.memservnewsdate = <serv.age> //впишите
tag.memservnews = 0
dialogclose d_add_news
dialog d_add_news 1 0
Endif
Return 1
[Function f_serv_news_edit]
If <src.account.plevel> > 4
tag.memservnewsdate = <var.servnewsdate<args>>
tag.memservnews = <var.servnews<args>>
dialogclose d_add_news
dialog d_add_news 0 <args>
Endif
Return 1
[Function f_serv_add_news]
if <argn1> > 0
try var.servnewsauthor<eval (<args> + 1)> = <var.servnewsauthor<eval (<args> )>>
try var.servnewsdate<eval (<args> + 1)> = <var.servnewsdate<eval (<args> )>>
try var.servnews<eval (<args> + 1)> = <var.servnews<eval (<args> )>>
f_serv_add_news <eval (<args> - 1)>
else
var.servnewsauthor1 = <name>
var.servnewsdate1 = <serv.age>
var.servnews1 = <tag.memservnews>
var.maxservnews += 1
tag.memservnewsdate =
tag.memservnews =
endif
[EOF] | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:28 pm | |
| - Code:
-
//###################################### //###### Quake Champ ###### //######################################
[ITEMDEF i_quake_enter] ID=0519 NAME=Quake Champ
ON=@Create COLOR=04ad ATTR=012 TIMER=20*60 MORE2 = 1
ON=@TIMER IF (<MORE2>==1) MORE2 = 2 SERV.ALLCLIENTS SYSMESSAGE @73 Warning! Quake Champ beggin after 15 minutes! TIMER = 300 RETURN 1 ENDIF IF (<MORE2>==2) MORE2 = 3 SERV.ALLCLIENTS SYSMESSAGE @73 Warning! Quake Champ beggin after 10 minutes! TIMER = 300 RETURN 1 ENDIF IF (<MORE2>==3) MORE2 = 4 SERV.ALLCLIENTS SYSMESSAGE @73 Warning! Quake Champ beggin after 5 minutes! TIMER = 240 RETURN 1 ENDIF IF (<MORE2>==4) MORE2 = 5 SERV.ALLCLIENTS SYSMESSAGE @73 Warning! Quake Champ beggin after 1 minute! TIMER = 60 RETURN 1 ENDIF IF (<MORE2>==5) SERV.ALLCLIENTS SYSMESSAGE @73 Warning! Quake Champ beggin! SERV.ALLCLIENTS SYSMESSAGE @73 Portal was closed! REMOVE RETURN 1 ENDIF
On=@Step IF (<SRC.WEIGHT> > 60) SRC.MESSAGE You must be fully naked! RETURN 1 ENDIF IF <SRC.FINDLAYER(layer_spell_stats)> SRC.SYSMESSAGE You can't enter while your stats are magically upped! RETURN 1 ENDIF IF <SRC.FINDLAYER(layer_spell_Reactive)> SRC.SYSMESSAGE You can't enter while you are under reactive protection! RETURN 1 ENDIF IF <SRC.FINDLAYER(layer_spell_Protection)> SRC.SYSMESSAGE You can't enter while you are under protection! RETURN 1 ENDIF IF <SRC.FINDLAYER(layer_flag_Potion)> SRC.SYSMESSAGE You can't enter while your stats are upped! RETURN 1 ENDIF IF !<SRC.TCTEST 100> SRC.MESSAGE You must have 100 Time Credits ! RETURN 1 ENDIF SRC.TAG.TC += 100 SRC.SYSMESSAGE Wellcome to Quake Champ! SRC.KILLS=(<SRC.KILLS>+10) SRC.HITS=<SRC.STR> SRC.MANA=<SRC.INT> SRC.STAM=<SRC.DEX> SRC.EVENTS =+e_quake IF (<MORE2>==1) LOCAL.TIMER = <eval <TIMER>+900> ENDIF IF (<MORE2>==2) LOCAL.TIMER = <eval <TIMER>+600> ENDIF IF (<MORE2>==3) LOCAL.TIMER = <eval <TIMER>+300> ENDIF IF (<MORE2>==4) LOCAL.TIMER = <eval <TIMER>+60> ENDIF IF (<MORE2>==5) LOCAL.TIMER = <eval <TIMER>> ENDIF SRC.NEWITEM i_quake_delay SRC.ACT.EQUIP SRC.ACT.MORE2 = 0 SRC.ACT.TIMER = <LOCAL.TIMER> SRC.FINDID(i_quake_delay).attr = attr_newbie | attr_decay | attr_invis SRC.MESSAGE Wellcome to Quake Champ DORAND 10 SRC.GO 5790,1780,10 SRC.GO 5776,1765,10 SRC.GO 5780,1747,10 SRC.GO 5795,1743,10 SRC.GO 5787,1756,10 SRC.GO 5810,1758,50 SRC.GO 5810,1758,10 SRC.GO 5821,1789,10 SRC.GO 5819,1783,30 SRC.GO 5808,1788,10 ENDDO SRC.STONE RETURN 1
[ITEMDEF i_quake_delay] NAME=Quake delay ID=i_deed WEIGHT=0 LAYER=layer_special TYPE=t_eq_script
On=@Create TIMER = 900 ATTR = attr_newbie | attr_decay | attr_invis
On=@Equip ATTR = attr_newbie | attr_decay | attr_invis TIMER = 900
On=@Timer IF (<MORE2>==0) CONT.STONE CONT.MESSAGE It's Time for Quake! TIMER = 900 MORE2 = 1 RETURN 1 ENDIF IF (<MORE2>==1) CONT.EVENTS =-e_quake CONT.GO 5784,1735,50 CONT.MESSAGE Champ Off! CONT.ACTION= -1 CONT.FLAGS=<cont.FLAGS> & ~statf_war REMOVE RETURN 1 ENDIF
[ITEMDEF i_quake_ress] ID=4483 NAME=Resurrect
ON=@Create COLOR=04ad ATTR=010
On=@Dclick IF <DISTANCE>>2 SRC.SYSMESSAGE You can't reach it. RETURN 1 ENDIF IF (<SRC.FLAGS>&2) src.resurrect src.flags=(<src.flags>&0ffffffdf) src.hits=<src.str> src.stam=<src.dex> src.mana=<src.int> ENDIF dorand 10 SRC.GO 5790,1780,10 SRC.GO 5776,1765,10 SRC.GO 5780,1747,10 SRC.GO 5795,1743,10 SRC.GO 5787,1756,10 SRC.GO 5810,1758,50 SRC.GO 5810,1758,10 SRC.GO 5821,1789,10 SRC.GO 5819,1783,30 SRC.GO 5808,1788,10 enddo return 1
[ITEMDEF i_quake_reward] ID=0edc Name=Quake Champ Rewards
ON=@Create COLOR=04ad ATTR=010
On=@Dclick IF <DISTANCE>>2 SRC.SYSMESSAGE You can't reach it. RETURN 1 ENDIF IF !(<SRC.TARG.CANSEELOS>) SRC.SYSMESSAGE Target isn't in your line of sight. RETURN 1 ENDIF IF (<SRC.FLAGS>&2) src.resurrect src.flags=(<src.flags>&0ffffffdf) src.hits=<src.str> src.stam=<src.dex> src.mana=<src.int> RETURN 1 ENDIF IF (<SRC.TAG0.QUAKE><1) SRC.SYSMESSAGE You have no Military points. IF (<SRC.KILLS> < 10) SRC.KILLS=0 ELSE SRC.KILLS=(<SRC.KILLS>-10) ENDIF SRC.GO Market Place RETURN 1 ELIF (<SRC.TAG0.QUAKE>>=1) SRC.NEWITEM i_antares_point SRC.ACT.BOUNCE SRC.TAG.QUAKE -=1 RETURN 1 ENDIF
//###################################### //###### Quake Events ###### //######################################
[EVENTS e_quake] ON=@Death IF <memoryfindtype.memory_WAR_TARG> memoryfindtype.memory_WAR_TARG.link.sysmessage You kill <name> and gain Frag! memoryfindtype.memory_WAR_TARG.link.TAG0.QUAKE +=1 ENDIF IF (<SRC.TAG0.QUAKE>>=1) SRC.TAG.QUAKE -=1 ENDIF
ON=@LogOut IF (<SRC.TAG0.QUAKE>>=1) SRC.TAG.QUAKE=0 ENDIF
//###################################### //###### Quake Items ###### //######################################
[ITEMDEF i_armor_quake] NAME=Quake ID=01f1f VALUE=10000
ON=@Create ATTR = 010 COLOR = color_o_fire
ON=@Step SRC.NEWITEM { i_platemail_gloves 1 i_platemail_arms 1 i_platemail_leggings 1 i_platemail_chest 1 i_platemail_gorget 1 i_helm_nose 1 i_shield_heater 1 } SRC.ACT.BOUNCE REMOVE CATEGORY=Quest SUBSECTION=Quake Champ DESCRIPTION=Armor Quake
[ITEMDEF i_weapon_quake] NAME=Quake ID=01f1f VALUE=10000
ON=@Create ATTR = 010 COLOR = color_o_aqua
ON=@Step SRC.NEWITEM { i_crossbow_heavy 1 i_bow 1 i_kryss 1 i_spear_short 1 i_war_fork 1 i_hammer_war 1 i_staff_black 1 i_hammer_pick 1 i_halberd 1 i_katana 1 i_sword_viking 1 i_scimitar 1 } SRC.ACT.BOUNCE REMOVE CATEGORY=Quest SUBSECTION=Quake Champ DESCRIPTION=Weapon Quake
[ITEMDEF i_potion_quake] NAME=Quake ID=01f1f VALUE=10000
ON=@Create ATTR = 010 COLOR = color_o_acid
ON=@Step SRC.NEWITEM { i_potion_ManaTotal 1 i_potion_Mana 1 i_potion_Invisibility 1 i_potion_Stoneskin 1 i_potion_Steelskin 1 i_potion_StrengthGreat 1 i_potion_RefreshTotal 1 i_potion_PoisonGreat 1 i_potion_HealGreat 1 i_potion_ExplosionGreat 1 i_potion_CureGreat 1 i_potion_agilitygreat 1 } SRC.ACT.BOUNCE REMOVE CATEGORY=Quest SUBSECTION=Quake Champ DESCRIPTION=Potion Quake
[ITEMDEF i_scroll_quake] NAME=Quake ID=01f1f VALUE=10000
ON=@Create ATTR = 010 COLOR = color_o_bronze
ON=@Step SRC.NEWITEM { i_scroll_mass_dispel 1 i_scroll_flamestrike 1 i_scroll_energy_bolt 1 i_scroll_magic_reflection 1 i_scroll_paralyze 1 i_scroll_lightning 1 i_scroll_poison 1 i_scroll_protection 1 i_scroll_cure 1 i_scroll_reactive_armor 1 i_scroll_heal 1 } SRC.ACT.BOUNCE REMOVE CATEGORY=Quest SUBSECTION=Quake Champ DESCRIPTION=Scroll Quake
[ITEMDEF i_equip_quake] NAME=Quake ID=01f1f VALUE=10000
ON=@Create ATTR = 010 COLOR = color_o_rusty
ON=@Step SRC.NEWITEM i_xbolt SRC.ACT.AMOUNT 5 SRC.ACT.BOUNCE SRC.NEWITEM i_arrow SRC.ACT.AMOUNT 5 SRC.ACT.BOUNCE SRC.NEWITEM i_bottle_blood SRC.ACT.AMOUNT 5 SRC.ACT.BOUNCE SRC.NEWITEM i_bandage SRC.ACT.AMOUNT 5 SRC.ACT.BOUNCE REMOVE CATEGORY=Quest SUBSECTION=Quake Champ DESCRIPTION=Equip Quake
[ITEMDEF i_heal_quake] NAME=Quake ID=01f1f VALUE=10000
ON=@Create ATTR = 010 COLOR = color_o_gold
ON=@Step SRC.HITS=(<SRC.STR>+100) SRC.STAM=<SRC.DEX> SRC.MANA=<SRC.INT> REMOVE CATEGORY=Quest SUBSECTION=Quake Champ DESCRIPTION=Heal Quake We can rescript that example: -only bows and magic. -you can hit bow also when you run and etc | |
| | | Marco Moderator
Number of posts : 837 Main Character Name : Avril Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:29 pm | |
| Very nice! =D
But LONG work with Skill Menu =/ | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:34 pm | |
| I think thats all | |
| | | ^TayfuN^ Annapolis Owner
Number of posts : 256 Main Character Name : TayfuN Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:52 pm | |
| - Code:
-
//Firing Bows and Crossbows While Moving v0.3 //-Added Consumption of Arrows/xBolts //-Added SFX for firing a bow/xbow //-Added ANIM for firing your bow/xbow //-Added a Max Distance check, now you can only fire a bow while walking when you're 12 tiles or less away from the enemy.
//Info: //This script will allow you to fire a bow while moving
//Installation: //Add this event to all your players.
[EVENTS e_archery_while_moving] ON=@SKILLSTART IF (<SRC.ACTION>==skill_archery) || (<SRC.ACTION>==01f) IF !(0<SRC.FINDID.i_memory_archery_while_moving.UID>) SRC.TAG.ARCHERY_P.Y=<SRC.P.Y> SRC.TAG.ARCHERY_P.X=<SRC.P.X> VAR.OLD_ACT=<ACT> SRC.NEWITEM=i_memory_archery_while_moving SRC.ACT.LINK=<VAR.OLD_ACT> SRC.ACT.TIMER=3 SRC.EQUIP=<SRC.ACT> ACT=<VAR.OLD_ACT> ENDIF ENDIF
[ITEMDEF i_memory_archery_while_moving] DEFNAME=i_memory_archery_while_moving NAME=Archery Memory ID=i_memory TYPE=t_eq_script
ON=@CREATE ATTR=attr_move_never|attr_invis
ON=@EQUIP IF (0<MORE>) IF (<LINK.CANSEELOS>) && (<LINK.DISTANCE> <= 12) IF !(<SRC.P.X>==<SRC.TAG.ARCHERY_P.X>) || !(<SRC.P.Y>==<SRC.TAG.ARCHERY_P.Y>) VAR.X=<EVAL ((<SRC.STR> /15) + (<SRC.TACTICS> /100) + (<SRC.ARCHERY> /200))> VAR.X2=<EVAL <VAR.X> /5> VAR.X=<EVAL {<VAR.X2> <VAR.X>}> VAR.X2= LINK.DAMAGE=<VAR.X> 0001 <SRC.UID> IF (<SRC.FINDLAYER.(2).TYPE>==t_weapon_bow) IF (<SRC.RESTEST 1 i_arrow>) SRC.CONSUME=1 i_arrow LINK.EFFECT=0,i_arrow_x,5,1,0 ELSE SRC.TAG.ARCHERY_P.X= SRC.TAG.ARCHERY_P.Y= REMOVE ENDIF ELSE IF (<SRC.RESTEST 1 i_xbolt>) SRC.CONSUME=1 i_xbolt LINK.EFFECT=0,i_xbolt_x,5,1,0 ELSE SRC.TAG.ARCHERY_P.X= SRC.TAG.ARCHERY_P.Y= REMOVE ENDIF ENDIF VAR.X= SRC.SOUND=564 ENDIF ENDIF SRC.TAG.ARCHERY_P.X= SRC.TAG.ARCHERY_P.Y= REMOVE ELSE SRC.ANIM=18 ENDIF
ON=@TIMER TOPOBJ.NEWITEM=i_memory_archery_while_moving TOPOBJ.ACT.LINK=<LINK> TOPOBJ.ACT.MORE=1 TOPOBJ.EQUIP=<TOPOBJ.ACT> REMOVE RETURN 1
[EOF] YES ! i Found it ! | |
| | | Marco Moderator
Number of posts : 837 Main Character Name : Avril Registration date : 2007-06-29
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:52 pm | |
| It's a lot xP
Btw, I can't talk with you @ Skype.
It's bugged =/ | |
| | | ^HiMaTaS^ Moderator
Number of posts : 133 Main Character Name : HiMaTaS Registration date : 2007-06-30
| Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 4:59 pm | |
| Yes it maybe long, but I will enjoy game 1000000% Cool Idea! | |
| | | Sponsored content
| Subject: Re: I Founded some good scp :) | |
| |
| | | | I Founded some good scp :) | |
|
Similar topics | |
|
| Permissions in this forum: | You cannot reply to topics in this forum
| |
| |
| |
|