// ##################
// ### Change Log ###
// ##################
// # orachlum, 14.04.2006
// # * First working release.
// ##################
// # orachlum, 15.04.2006
// # * Optimized a bit.
// # * Fixed magery bug.
// ###########################
[DEFNAME options]
PARTY_ATTACK 1 // 1 - disable , 0 - enable. [ allow attack party members ]
PARTY_HARM_CAST 1 // 1 - disable , 0 - enable. [ allow harm cast on party members ]
PARTY_GOLD_ALL 1 // 0 - disable , 1 - enable. [ give looted gold to all party members ]
[EVENTS e_party]
On=@Attack
// src - target [defender]
// [] - hitter [attacker]
if (<IsInParty>) && (<src.IsInParty>) && (<def.party_attack>)
for 0 <eval <src.party.members>>
obj=<src.party.member.<local._for>.uid>
if (<uid>==<obj>)
sysmessage @039 You cannot attack your party members.
cancel_attack
return 1
endif
endfor
endif
On=@SpellCast
// src - caster [attacker]
// targ - target [defender]
if (<targ.IsInParty>) && (<src.IsInParty>) && (<def.party_harm_cast>) && (<serv.spell.<argn1>.flags>&spellflag_harm)
for 0 <eval <party.members>>
obj=<party.member.<local._for>.uid>
if (<src.uid>==<obj>)
src.sysmessage @039 You cannot cast harm magic.
src.action = -1
return 1
endif
endfor
endif
On=@ItemPickUp_Pack
// act - item
// src - dropper
if (<act.cont.uid> == <src.findlayer(layer_pack).uid>) && (<act.baseid> == i_gold) && (<src.IsInParty>) && (<def.party_gold_all>)
src.sysmessage @039 You cannot pick up gold from your pack while you are in the party.
return 1
endif
On=@ItemDropOn_Self
// src - dropper
// act - container
// argo - item
if (<argo.baseid> == i_gold) && (<src.IsInParty>) && (<def.party_gold_all>)
FOR 0 <EVAL <SRC.PARTY.MEMBERS>-1>
OBJ=<SRC.PARTY.MEMBER.<LOCAL._FOR>.UID>
local.q = <eval <argo.amount>>
local.x = <eval <argo.amount>/<src.party.members>>
serv.newitem i_gold
new.amount <eval <local.x>>
new.cont = <obj>
endfor
src.consume <local.q> i_gold
endif
endif
// FUNCTIONS
[FUNCTION cancel_attack]
action = -1
memoryfindtype.memory_war_targ.remove
update
[eof]
Subject: Re: Ores and Logs 100% 
Fri Jul 13, 2007 2:06 pm
