SukmiLongHeart 
Apprentice

Posts: 43
Likes Given: 13
Likes Received: 5 in 3 posts
Joined: Sep 2013
Reputation: 0
Uberon
![]()
|
New shard - Need testers
Hi!
I had some free time and found a bunch of old sphere projects of mine, so decided to (re)create a shard of mine..
I am just about "finishing" it and am in dire need of beta-testers.
It's a pretty fast-paced pk shard. If anyone is willing to help me, I would greatly appreciate it.
Uberon Website
Thx
|
|
09-13-2013 12:11 PM |
|
|
babazar 
Journeyman

Posts: 189
Likes Given: 2
Likes Received: 10 in 9 posts
Joined: Jun 2013
Reputation: 0
![]()
|
RE: New shard - Need testers
|
|
09-14-2013 06:42 AM |
|
|
Soulless 
Super Moderator
   
Posts: 335
Likes Given: 29
Likes Received: 49 in 27 posts
Joined: Jun 2012
Reputation: 12
Ye Olde Sphere
![]()
|
RE: New shard - Need testers
this is for consume gold from bank and pack for your custom vendors you have
should just be able to put in .consumegold ##### without doing any checks and they will either deny it or allow it. obviously consume the gold before you give them anything.
Code:
[function consumegoldtest]
local.bankgold=<findlayer.29.rescount.i_gold>
local.baggold=<findlayer.21.rescount.i_gold>
if (<eval <local.baggold>+<local.bankgold>> >= <args>)
return 1
else
return 0
endif
[function consumegold]
local.bankgold=<findlayer.29.rescount.i_gold>
local.baggold=<findlayer.21.rescount.i_gold>
if (<eval <local.baggold>+<local.bankgold>> >= <args>)
if (<local.baggold> >= <args>)
findlayer.21.contconsume i_gold <args>
else
findlayer.21.contconsume i_gold <local.baggold>
findlayer.29.contconsume i_gold <eval <args>-<local.baggold>>
endif
//sound 54
update
return 1
else
message You do not have sufficient gold to cover this purchase
return 0
endif
here is a body cutting event that will keep bones on the group and allow, just add the even tto your players and your good
Code:
[events e_body_cutting]
on=@itemTargon_Item
if (<act.type>==t_weapon_sword) || (<act.type>==t_weapon_mace_sharp) || (<act.type>==t_weapon_fence) || (<act.type>==t_weapon_axe)
if (<src.targ.type>==t_corpse)
if (<src.targ.distance>>4)
src.sysmessage @0482 That is too far away.
return 1
endif
if (<src.region.safe>==1)
src.sysmessage @0482 You can not cut corpses here.
return 1
endif
if (<src.targ.link.ISGM>==1)
src.sysmessage @0482 Tsk.. Tsk..
return 1
endif
if ((<src.targ.link.isplayer>==1) && !(<src.targ.link.tag0.newbie>) && !(<src.tag0.newbie>)) || (<src.targ.link.uid>==<src.uid>)
if (<src.targ.tag0.cut>)
src.sysmessage @0482 Your <act.name> scrapes bone but rends no flesh
return 1
endif
if (<src.notogetflag <src.targ.link.uid>>==1) && (<src.targ.link>!=<src.uid>)
src.criminal
endif
src.anim 13
src.sound 319
serv.newitem i_blood_pool_large
new.p=<src.targ.P>
new.attr=attr_decay
new.timer=<eval (<serv.DecayTimer>*60)>
src.targ.dispid=i_bones
src.targ.color=0
src.targ.tag0.cut=1
src.targ.name=remains of <src.targ.link.name>
src.targ.updatex
serv.newitem i_flesh_torso
new.name=torso of <src.targ.link.name>
new.link=<src.targ.link.uid>
new.p=<src.targ.P>
new.nudgeup
new.attr=attr_decay
new.timer=<eval (<serv.DecayTimer>*60)>
serv.newitem i_flesh_left_leg
new.name=left leg of <src.targ.link.name>
new.link=<src.targ.link.uid>
new.p=<src.targ.P>
new.nudgeup
new.attr=attr_decay
new.timer=<eval (<serv.DecayTimer>*60)>
serv.newitem i_flesh_right_leg
new.name=right leg of <src.targ.link.name>
new.link=<src.targ.link.uid>
new.p=<src.targ.P>
new.nudgeup
new.attr=attr_decay
new.timer=<eval (<serv.DecayTimer>*60)>
serv.newitem i_flesh_right_arm
new.name=right arm of <src.targ.link.name>
new.link=<src.targ.link.uid>
new.p=<src.targ.P>
new.nudgeup
new.attr=attr_decay
new.timer=<eval (<serv.DecayTimer>*60)>
serv.newitem i_flesh_left_arm
new.name=left arm of <src.targ.link.name>
new.link=<src.targ.link.uid>
new.p=<src.targ.P>
new.nudgeup
new.attr=attr_decay
new.timer=<eval (<serv.DecayTimer>*60)>
serv.newitem i_flesh_head
new.name=Head of <src.targ.link.name>
new.link=<src.targ.link.uid>
new.p=<src.targ.P>
new.nudgeup
new.attr=attr_decay
new.timer=<eval (<serv.DecayTimer>*60)>
return 1
else
return 0
endif
endif
endif
What am I working on? I'll tell you what I'm working on
|
|
09-17-2013 07:00 AM |
|
|
Extreme 
Grandmaster Poster
  
Posts: 1,141
Likes Given: 217
Likes Received: 90 in 77 posts
Joined: May 2012
Reputation: 20
SphereCommunity

|
|
09-17-2013 08:17 AM |
|
|