[FUNCTION newgold2]

IF (<ARGS> > 0)

   serv.newitem i_gold

     IF (<ARGS> > 65000)

      new.amount=65000

      new.bounce

      newgold2 <eval <ARGS>-<NEW.AMOUNT>>

     ELSE

      new.amount=<ARGS>

       new.bounce

    ENDIF

ENDIF





[chardef c_tuccar]

defname c_tuccar

name Merchant

id c_man

can mt_equip|mt_nonmover

hiredaywage 52

desires i_gold

tspeech merchant



on=@click

message @0bb2,,1 [<name>]

message @1156,6,0,trk Tüccar

return 1



on=@dclick

src.hata Herhangi Bir item Satabilmek icin sell yaziniz.

return 1



On=@Create

invul 1

str 9500

dex 25

int 25

color colors_skin

speechcolor 0481

food 990

npc 1



TAMING={999.9 888.8}



ITEMNEWBIE=i_shroud

ITEMNEWBIE=i_hair_long

ITEMNEWBIE=i_boots_calf

color 01

ITEMNEWBIE=i_lantern

color 0bb7

ITEMNEWBIE=i_apron_half

color 01

ITEMNEWBIE=i_katana

dispid i_shield_order

color 0455



[speech merchant]

on=*sat*

targetf=esyasat

src.smy Satmak istediginiz esyayi secin.





[function esyasat]

if !(<argo.isitem>

src.hata Bu Bir Esya Degil.

elseif !(<argo.topobj.uid> == <src.uid>

src.hata Sadece Cantanizda Olan Esyalari Satabilirsiniz..

elseif (<eval <argo.value>*<argo.amount>> > 2000000)

src.hata Sattiginiz Itemin Satis Bedeli 2m i Gecmemelidir...

elseif (<argo.type> == t_gold)

src.hata Cok Zekisin??

elseif (<argo.baseid> == i_backpack)

src.hata Cok Zekisin??

elseif (<argo.attr>&attr_newbie)

src.hataNewbie Esyalarinizi Satamazsiniz...

elseif !(<argo.value>)

src.hata Bu item Satilmadi

return 1

else

newgold2 <eval <argo.value>*<argo.amount>>

smy Satis bedeli : <eval <argo.value>*<argo.amount>>

targetf=esyasat

obj=<argo.uid>



obj.remove

endif



[eof]