мне уже эта наброска ненужна, может кому-то понадобится (IMG:
style_emoticons/default/smile.gif)
для Sphere Server 0.56b
Код
[DEFNAME def_mount_animals_layerit]
def_c_horse_tan_mtit i_mt_horse_tan
def_c_horse_gray_mtit i_mt_horse_gray
def_c_horse_brown_lt_mtit i_mt_horse_brown_lt
def_c_horse_brown_dk_mtit i_mt_horse_brown_dk
def_c_ostard_desert_mtit i_mt_ostard_desert
def_c_ostard_zostrich_mtit i_mt_ostard_zostrich
def_c_OSTARD_Forest_mtit i_mt_ostard_forest
def_c_LLAMA_mtit i_mt_llama
[EVENTS e_mount_system]
ON=@Rename
return 1
ON=@SpellEffect
IF (<ARGN> = 20) || (<ARGN> = 39)
RETURN 1
ENDIF
ON=@Dclick
local.npcsbody=<serv.chardef.<id>.dispid>
IF (<SRC.FLAGS>&statf_polymorph)
src.sysmessageua 995 0 0 1 Вы не можите сесть на животное, пока на вас действует магия polymorph. // You can't mount this <name> while polymorphed!
RETURN 1
ENDIF
IF (<SRC.FLAGS>&statf_dead)
src.sysmessageua 995 0 0 1 Призраки не могут садиться на животных. // Ghosts can't mount animals.
RETURN 1
ENDIF
IF (<BODY> != <local.npcsbody>) && !(<SRC.ISGM>)
RETURN 1
ENDIF
IF (<MEMORYFINDTYPE.MEMORY_IPET.LINK> = <SRC.UID>) || (<SRC.ISGM>)
IF (<SRC.FINDLAYER.25.UID>)
SRC.DCLICK
ENDIF
IF (<SRC.FLAGS>&statf_onhorse)
SRC.FLAGS=<SRC.FLAGS>&~statf_onhorse
ENDIF
P=<SRC.P>
DIR=<SRC.DIR>
SRC.NEWITEM=<def.def_<local.npcsbody>_mtit>
NEW.NAME=<NAME>
NEW.COLOR=<COLOR>
NEW.MORE1=<ID>|030000000
NEW.MORE2=<uid>
NEW.LINK=<SRC.UID>
NEW.EQUIP
NEW.TIMERD=1
ACTARG1=<new.uid> t_layer_horse //<new.uid>
ACTARG2=06
ACTION=06f //112
DISCONNECT
FLAGS=040000000 //<FLAGS>|060000000
RETURN 1
ELSE
src.sysmessageua 995 0 0 1 Вы не являетесь хозяином <name>. // You don't own that <name>.
RETURN 1
ENDIF