Код
[ITEMDEF i_vend_hair]
DEFNAME=i_vend_hair
ID=i_hair_short
NAME=shot hair
TYPE=t_hair
ON=@Create
ATTR=attr_newbie
TIMER=1
ON=@Timer
CONT.FOOD=999
TIMER=86400
RETURN 1
[ITEMDEF i_vend_stone]
ID=i_grave_stone
NAME=Stone of Contracts Vendor
type = t_script
CATEGORY=SPECHIAL ITEMS
SUBSECTION=ITEMS
DESCRIPTION=Stat Stone
ON=@CREATE
color=00a31
ON=@DCLICK
IF <SRC.RESTEST 100000 i_gold>
SRC.CONSUME=100000 i_gold
SRC.newitem=i_vend_deed
SRC.ACT.BOUNCE
SRC.MESSAGE Обязательно прочитайте правила по руководению торговцом.
RETURN 1
ELSE
MESSAGE 100.000 золота должны быть в сумке извените но у вас их нету.
ENDIF
[ITEMDEF i_vend_deed]
DEFNAME=i_vend_deed
NAME=Vendor Contract
ID=i_deed
ON=@DCLICK
IF ! (<TIMER> == -1)
SRC.NEWNPC {C_VEND_M 1 C_VEND_F 1}
SRC.ACT.FINDLAYER(29).MORE1=0
SRC.ACT.SAY Greetings, I will be working for you.
SRC.ACT.TAG.COMMENT0=<SRC.ACCOUNT>
SRC.ACT.TAG.COMMENT1=<SRC.NAME>
SRC.TAG.VENDOR <SRC.ACT.UID>
SRC.ACT.P <SRC.ACT.P>
LINK.TAG.VENDORS <EVAL <LINK.TAG.VENDORS>>+1
SRC.NEWITEM i_vendor_use
SRC.ACT.CONT <SRC.TAG.VENDOR>
SRC.ACT.LINK <SRC.UID>
SRC.NEWITEM i_vendor_link
SRC.ACT.CONT <SRC.TAG.VENDOR>
SRC.ACT.LINK <LINK.UID>
SRC.NEWITEM=i_custom_mem_vendor
SRC.ACT.COLOR memory_ipet
SRC.ACT.LINK <SRC.UID>
SRC.ACT.MORE <SRC.UID>
SRC.ACT.MORE2 memory_ipet
SRC.ACT.CONT <SRC.TAG.VENDOR>
SRC.ACT.TIMER 30
CONT.ACT.BOUNCE
CONT.UPDATEX
REMOVE
ELSE
SRC.SYSMESSAGE Положите свиток на землю встаньте на Vendor Place и нажмите на свиток.
ENDIF
RETURN 1
[ITEMDEF i_vendor_link]
ID=i_pet_man
DEFNAME=i_vendor_link
NAME=[DO NOT REMOVE] Vendor Link
TYPE=t_normal
ON=@Create
ATTR=08090
[ITEMDEF i_custom_mem_vendor]
DEFNAME=i_custom_mem_vendor
ID=i_memory
NAME=[DO NOT REMOVE] Vendor Memory
ON=@Timer
LINK <MORE>
COLOR <MORE2>
TIMER 30
RETURN 1
[ITEMDEF i_vendor_use]
ID=i_pet_man
DEFNAME=i_vendor_use
NAME=[DO NOT REMOVE]
TYPE=t_normal
ON=@Create
ATTR=08090
[CHARDEF c_vend_m]
DEFNAME=c_vend_m
NAME=#NAMES_HUMANMALE
ID=c_man
CAN=mt_equip
HIREDAYWAGE=0
TSPEECH=spk_house_vendor
TEVENTS=e_Human_ConvInit
TEVENTS=e_Human_Needs
ON=@Create
TITLE=the Vendor
NPC=brain_vendor
STR=538
COLOR=colors_skin
FLAGS=000000005
NEED=i_gold
TAG.HIREDWAGE 0
ITEMNEWBIE=i_vend_hair
COLOR=colors_hair
ITEMNEWBIE=i_sash
COLOR=09b9
NAME=Vendor Sash
ITEM=i_shirt_plain
COLOR=colors_all
ITEM=random_pants
COLOR=colors_all
ITEM=random_shoes
COLOR=colors_neutral
ON=@GetHit
RETURN 1
ON=@Hit
RETURN 1
[CHARDEF c_vend_f]
DEFNAME=c_vend_f
NAME=#NAMES_HUMANFEMALE
ID=c_woman
CAN=mt_equip
HIREDAYWAGE=0
TSPEECH=spk_house_vendor
TEVENTS=e_Human_ConvInit
TEVENTS=e_Human_Needs
ON=@Create
TITLE=the Vendor
NPC=brain_vendor
STR=538
COLOR=colors_skin
FLAGS=000000005
NEED=i_gold
TAG.HIREDWAGE 0
ITEMNEWBIE=i_vend_hair
COLOR=colors_hair
ITEMNEWBIE=i_sash
COLOR=09b9
NAME=Traiding license. (c) Demolisher, Main Admin
ITEM=i_shirt_plain
COLOR=colors_all
ITEM=random_skirt
COLOR=colors_all
ITEM=random_shoes
COLOR=colors_neutral
ON=@GetHit
RETURN 1
ON=@Hit
RETURN 1
[SPEECH spk_house_vendor]
DEFNAME=spk_house_vendor
ON=buy*
IF (<FINDID.i_vendor_use.LINK>==<SRC.UID>)
SAY You own this shop, just take what you want.
BUY
RETURN 1
ELSE
BUY
RETURN 1
ENDIF
ON=sell*
SAY Y HAC BCE ECTb!
RETURN 1
ON=*report*
IF (<FINDID.i_vendor_use.LINK>==<SRC.UID>)
SAY I have <EVAL <FINDLAYER(29).MORE1>> gold on hand.
RETURN 1
ELSE
RETURN 1
ENDIF
ON=*
RETURN 1
ON=*drop*
RETURN 1
[EOF]