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