Vendor Опции

[Dead-Ghost]

Код

[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]

[Swow]

Блин, нехера.... вставил во все скрипты, перезапускал сервак.... них*я... не хочет вендор создаватся.....

[Kanibal]

Блин, нехера.... вставил во все скрипты, перезапускал сервак.... них*я... не хочет вендор создаватся.....

Вставить во все скрипты, это жесть!!!