[FUNCTION paraver]

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 #NAMES_HUMANMALE

id c_man

can mt_equip|mt_nonmover

hiredaywage 52

desires i_gold

tspeech merchant

AVERSIONS=t_TRAP,t_eerie_stuff



TEVENTS=e_Human_HearUnk

TEVENTS=e_Human_ConvInit

TEVENTS=e_Human_Needs

TEVENTS=e_Human_Greet

TEVENTS=e_Human_Space

TEVENTS=e_Human_Refuse

TEVENTS=e_Human_Environ



on=@click

message @1153,1,1 [Tüccar]

return 1



on=@dclick

src.smg Merhaba! Satıi yapmak için lütfen "sell" yazın!

return 1



On=@Create

invul 1

str 9000

dex 9000

NPC=brain_vendor

speechcolor 0481

food 999



ITEMNEWBIE=i_robe

color=0799

ITEMNEWBIE=i_hair_long

color=01

ITEMNEWBIE=i_boots_calf

color=01

ITEMNEWBIE=i_staff_quarter

color=0481

ITEMNEWBIE=i_leather_gloves

color=0455

ITEMNEWBIE=i_leather_gorget

color=0455



[speech merchant]

on=*sat*

targetf=esyasat

src.smg Satmak istediğiniz eşyayı seçiniz.



[function esyasat]

if !(<argo.isitem>

smg Bu bir eşya değil.

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

smg Satmak istediğiniz eşya çantanızda olabilir.

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

smg 2M'i geçen satışlarınızı tek seferde yapamazsınız.

elseif (<argo.type> == t_gold)

smg Bunu satamazsınız.

elseif (<argo.baseid> == i_backpack)

smg Bunu satamazsınız.

elseif (<argo.attr>&attr_newbie)

smg Newbie eşyaları satamazsınız.

elseif !(<argo.value>)

smg Satış başarısız oldu.

return 1

else

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

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

targetf=esyasat

obj=<argo.uid>



obj.remove

endif



[eof]

Değerlendirmeler

0

Total votes: 0