I Founded some good scp :)

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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]

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 Smile

example:

-only bows and magic.
-you can hit bow also when you run

and etc Wink

Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:29 pm

Very nice! =D

But LONG work with Skill Menu =/

Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 3:34 pm

I think thats all Wink

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 !

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 =/

Subject: Re: I Founded some good scp :) Sun Aug 12, 2007 4:59 pm

Yes it maybe long, but I will enjoy game 1000000% lol!

Cool Idea! Razz

» Good Idea !