[COMMENT al_vendor_sistem]
Script adı:Ev vendor sistemi
Scriptin işlevi:"e_vendor_item" eventini oyunculara verin.
Vendor komutları:"bilgi,satin al,esya kaldir,fiyat,kasa,hasilat,kaldir"

[DEFNAME player_vendor_system]
PLAYER_VENDOR_SETUP_GOLD "5000"
PLAYER_VENDOR_ITEM_VALUE "5000000,250"
PLAYER_VENDOR_REVENUE_DEFEND "1"

[ITEMDEF i_deed_player_vendor]
ID=I_DEED
NAME=Player Vendor Deed

ON=@Create
ATTR = ATTR_NEWBIE
COLOR = 0470

ON=@Dclick
IF (<CONT>)
SRC.SYS_HATA Bunu evinize sabitlemelisiniz.
ELSEIF (<UID.<REGION.UID>.TYPE>==T_MULTI) && !(<ATTR>&ATTR_MOVE_NEVER)
SRC.SYS_HATA Bunu evinize sabitlemelisiniz.
ELSEIF !(<UID.<REGION.UID>.TYPE>==T_MULTI)
SRC.SYS_HATA Bunu evinize,tabelanın altına sabitlemelisiniz.
ELSEIF (<SRC.GOLD> < <DEF.PLAYER_VENDOR_SETUP_GOLD>)
SRC.SYS_HATA <DDEF.PLAYER_VENDOR_SE TUP_GOLD> kadar altınınız bulunmuyor.
ELSEIF (<FIND_HOUSE_VENDOR <REGION.UID>>)
SRC.SYS_HATA Bu evde zaten player vendoru bulunuyor.
ELSEIF (<UID.<REGION.UID>.MORE1>!=<SRC>)
SRC.SYS_HATA Bunu sadece kendi evinizde kullanabilirsiniz.
ELSEIF !(<UID.<UID.<REGION.UID>.MORE2>.TAG0.PUBLIC>)
SRC.SYS_HATA Vendoru halka açık evlere kurabilirsiniz.
ELSE
SERV.NEWNPC c_player_vendor
REF5 = <NEW>
REF5.P = <P>
REF5.TAG0.OWNER = <SRC>
REF5.F_MakePetOf = <SRC>
REF5.GOLD += <DDEF.PLAYER_VENDOR_SETUP_GOLD>
SERV.NEWITEM i_player_vendor
NEW.CONT = <REF5>
NEW.TIMER = 3600
SRC.GOLD -= <DDEF.PLAYER_VENDOR_SETUP_GOLD>
SERV.NEWITEM = i_torch
NEW.CONT = <REF5.FINDLAYER(21)>
REMOVE
SRC.UPDATE
ENDIF
RETURN 1

ON=@Click
MSG_NORMAL <NAME>
RETURN 1

[ITEMDEF i_player_vendor]
ID=I_MEMORY
NAME=Pl ayer Vendor System
TYPE=T_EQ_SCRIPT

ON=@Create
ATTR=ATTR_NEWBIE|ATTR_INVIS|ATTR_DECAY
More2=0
TAG0.LAST_SELL_ITEM=

ON=@TIMER
REF5=<CONT.TAG0.OWNER>
IF (<CONT.GOLD> > 250)
CONT.GOLD -= 250
TIMER = 3600
MORE2=
TAG0.LAST_SELL_ITEM=
ENDIF
ELSE
IF (<REF5>)
REF5.NOTICE Ev vendorunuzun parasını ödemediğiniz için,vendorunuz sizi terketti...
CONT.F_UNEQUIP_PACK
CONT.F_BACKPACK_CONT <REF5>
CONT.REMOVE
REMOVE
ELSE

REMOVE
ENDIF
RETURN 1

[CHARDEF c_player_vendor]
ID = C_MAN
NAME=#NAMES_HUMANMALE
CAN=MT_NONMOVER|MT_USEHANDS|MT_EQUIP|MT_FIRE_IMMUNE
TSPEECH=player_vendor

ON=@Create
ALLSKILLS=0
STR=30
DEX=0
INT=0
MODMAXWEIGHT=100000
FLAGS |= Statf_Invul
FOOD=999
ITEMNEWBIE=i_backpack
ITEMNEWBIE=i_lantern
ITEMNEWBIE=i_robe
COLOR=0460
ITEMNEWBIE=i_cap
COLOR=0460
ITEMNEWBIE=i_bankbox
MORE1=-1
MORE2=-1

ON=@ Click
MSG_NORMAL [Sahibi:<UID.<OWNER>.NAME>]
IF (<OWNER>==<SRC>) && !(<GOLD>)
MSG_NORMAL [Kalan süresi:<F_LOOK_TIME <FINDID.I_PLAYER_VENDOR.TIMER>>]
ENDIF
MSG_OK <NAME>
RETURN 1

ON=@Dclick
IF (<SRC.F_FLAGS_CHECK>)
SRC.SYS_HATA Bu durumda iken kullanamazsınız.
ELSEIF !(<dRESCOUNT>)
SRC.SYS_HATA Bu vendorun satılık malı bulunmuyor.
ELSEIF (<SRC.F_CanSeeLos <UID>>)
SRC.SYS_HATA Vendora çok uzaktasınız.
ELSE
FINDLAYER.21.OPEN
FACE <SRC>
ENDIF
RETURN 1

ON=@NpcSeeNewPlayer
IF (<OWNER>==<SRC>)
SAY_OK Merhaba Patron !
ELSEIF (<FINDLAYER(21).RESCOUNT> >0) && <EVAL (<F_SELLING_ITEM>> > 0)
SAY_OK Satılık mallarım bulunuyor...
ELSE
SAY_OK Satılık malım yok <SRC.NAME>...
ENDIF

ON=@EnvironChange
IF !(<OWNER>) && (<UID.<TAG0.OWNER>&g t;)
F_MakePetOf <TAG0.OWNER>
ENDIF

ON=@GetHit
RETURN 1

ON=@Attack
RETURN 1

ON=@Damage
RETURN 1

ON=@SpellEffect
RETURN 1

ON=@NpcFollow
RETURN 1

ON=@HitTry
RETURN 1

ON=@RecieveItem
IF (<OWNER>!=<SRC>)
RETURN 1
ENDIF

[SPEECH player_vendor]
ON=satin al
IF !(<dRESCOUNT>)
SRC.SYS_HATA Bu vendorun satılık malı bulunmuyor.
ELSEIF (<SRC.F_FLAGS_CHECK>)
SRC.SYS_HATA Bu durumda iken kullanamazsınız.
ELSEIF (<SRC.F_CanSeeLos <UID>>)
SRC.SYS_HATA Vendora çok uzaktasınız.
ELSEIF (<TAG0.OWNER>==<SRC>)
SRC.SYS_HATA Sizin eşyayı satın almanıza gerek yok.
ELSE
SRC.TARGETF F_BUY_ITEM_VENDOR <UID>
ENDIF

ON=fiyat
IF (<TAG0.OWNER>!=<SRC>)
SRC.SYS_HATA Bu vendorun sahibi siz değilsiniz.
ELSEIF !(<dRescount>)
SRC.SYS_HATA Vendorunuzda satılık mal bulunmuyor.
ELSEIF (< SRC.F_FLAGS_CHECK>)
SRC.SYS_HATA Bu durumda iken kullanamazsınız.
ELSEIF (<SRC.F_CanSeeLos <UID>>)
SRC.SYS_HATA Vendora çok uzaktasınız.
ELSE
SRC.TARGETF F_ITEM_VALUE_VENDOR <UID>
ENDIF

ON=esya kaldir
IF (<TAG0.OWNER>!=<SRC>)
SRC.SYS_HATA Bu vendorun sahibi siz değilsiniz.
ELSEIF !(<dRescount>)
SRC.SYS_HATA Vendorunuzda zaten satılık mal bulunmuyor.
ELSEIF (<SRC.F_FLAGS_CHECK>)
SRC.SYS_HATA Bu durumda iken kullanamazsınız.
ELSEIF (<SRC.F_CanSeeLos <UID>>)
SRC.SYS_HATA Vendora çok uzaktasınız.
ELSE
SRC.TARGETF F_ITEM_RELEASE_VENDOR <UID>
ENDIF

ON=kasa
IF (<TAG0.OWNER>!=<SRC>)
SRC.SYS_HATA Bu vendorun sahibi siz değilsiniz.
ELSEIF (<SRC.F_CanSeeLos <UID>>)
SRC.SYS_HATA Vendora çok uzaktasınız.
ELSEIF (<SRC.F_FLAGS_CHECK>)
SRC.SYS_HATA Bu durumda iken kullanamazsınız.
ELSE
F_RESENDIALOG D_VENDOR_ADD_GOLD
ENDIF

ON=hasilat
IF (<TAG0.OWNER>!=<SRC>)
SRC.SYS_HATA Bu vendorun sahibi siz değilsiniz.
ELSEIF (<SRC.F_CanSeeLos <UID>>)
SRC.SYS_HATA Vendora çok uzaktasınız.
ELSEIF (<SRC.F_FLAGS_CHECK>)
SRC.SYS_HATA Bu durumda iken kullanamazsınız.
ELSEIF (<DEF.PLAYER_VENDOR_REVENUE_DEFEND>) && (<GOLD> < 1000)
SRC.SYS_HATA Vendorunuzda çok az para var !
ELSE
F_RESENDIALOG D_VENDOR_REVENUE
ENDIF

ON=bilgi
IF (<SRC.F_CanSeeLos <UID>>)
SRC.SYS_HATA Vendora çok uzaktasınız.
ELSEIF (<SRC.F_FLAGS_CHECK>)
SRC.SYS_HATA Bu durumda iken kullanamazsınız.
ELSEIF !(<FINDID.I_PLAYER_VENDOR.MORE2>)
SRC.SYS_HATA Bu vendor hiçbir şey satmamış.
ELSE
F_RESENDIALOG D_VENDOR_INFO
ENDIF

ON=kaldir
IF (<TAG0.OWNER>!=<SRC>)
SRC.SYS_HATA Bu vendorun sahibi siz değilsiniz.
ELSEIF (<SRC.F_CanSeeLos <UID& gt;>)
SRC.SYS_HATA Vendora çok uzaktasınız.
ELSEIF (<SRC.F_FLAGS_CHECK>)
SRC.SYS_HATA Bu durumda iken kullanamazsınız.
ELSE
F_RESENDIALOG D_VENDOR_REMOVE
ENDIF

[FUNCTION f_buy_item_vendor]
REF3=<ARGS>
REF4=<ARGO>

IF !(<REF4.ISITEM>)
SRC.SYS_HATA Hatalı seçim yaptınız.
ELSEIF !(<REF3>)
SRC.SYS_HATA Hatalı bir durum oluştu.
ELSEIF (<REF3.TAG0.OWNER>==<SRC>)
SRC.SYS_HATA Siz zaten bu vendorun sahibisiniz.
ELSEIF (<SRC.F_CANSEELOS <REF3>>)
SRC.SYS_HATA Vendora çok uzaktasınız.
ELSEIF (<SRC.F_CANSEELOS <UID>>)
SRC.SYS_HATA Bu durumda iken kullanamazsınız.
ELSEIF !(<dRESCOUNT>)
SRC.SYS_HATA Vendorda satılık eşya bulunmuyor.
ELSEIF (<REF4.TOPOBJ>!=<REF3>)
SRC.SYS_HATA Bu eşya vendorda bulunmuyor.
ELSEIF !(<REF4.dTAG0.VALUE>)
SRC.SYS_HATA Bu eşya satılık değil.
ELSEIF (<REF4.dTAG0.VALUE> &g t; <SRC.GOLD>)
SRC.SYS_HATA Bu eşyayı satın alacak kadar paranız bulunmuyor.
ELSE
SRC.GOLD -=<REF4.dTAG0.VALUE>
REF4.CONT=<SRC.FINDLAYER(29)>
REF3.GOLD +=<REF4.dTAG0.VALUE>
REF4.TAG0.VALUE=
REF3.Findid.I_Player_Vendor.More2 +=1
REF3.Findid.I_Player_Vendor.Tag0.Last_Sell_Item .= ,<REF4>
SRC.SYS_OK <REF4.NAME> isimli eşya bankanıza aktarıldı.
REF3.FINDLAYER.21.UPDATE
SRC.UPDATE
ENDIF

[FUNCTION f_item_value_vendor]
REF3=<ARGS>
REF4=<ARGO>

IF !(<REF4.ISITEM>)
SRC.SYS_HATA Hatalı seçim yaptınız.
ELSEIF !(<REF3>)
SRC.SYS_HATA Hatalı bir durum oluştu.
ELSEIF (<REF3.TAG0.OWNER>!=<SRC>)
SRC.SYS_HATA Bunu siz yapamazsınız.
ELSEIF (<SRC.F_CanSeeLos <REF3>>)
SRC.SYS_HATA Vendora çok uzaktasınız.
ELSEIF (<SRC.F_FLAGS_CHECK>)
SRC.SYS_HATA Bu durumda iken kullanamazsınız.
ELSEIF !(<dRESCOUNT>)< BR> SRC.SYS_HATA Vendorda satılık eşya bulunmuyor.
ELSEIF (<REF4.TOPOBJ>!=<REF3>)
SRC.SYS_HATA Bu eşya vendorda bulunmuyor.
ELSE
SRC.F_RESENDIALOG D_ITEM_VALUE,0,<REF3>,<REF4>
ENDIF

[FUNCTION f_item_release_vendor]
REF3=<ARGS>
REF4=<ARGO>

IF !(<REF4.ISITEM>)
SRC.SYS_HATA Hatalı seçim yaptınız.
ELSEIF !(<REF3>)
SRC.SYS_HATA Hatalı bir durum oluştu.
ELSEIF (<REF3.TAG0.OWNER>!=<SRC>)
SRC.SYS_HATA Bunu siz yapamazsınız.
ELSEIF (<SRC.F_CanSeeLos <REF3>>)
SRC.SYS_HATA Vendora çok uzaktasınız.
ELSEIF (<SRC.F_FLAGS_CHECK>)
SRC.SYS_HATA Bu durumda iken kullanamazsınız.
ELSEIF (<REF4.TOPOBJ>!=<REF3>)
SRC.SYS_HATA Bu eşya vendorda bulunmuyor.
ELSE
REF4.TAG0.VALUE=
REF4.CONT = <SRC.FINDLAYER(21)>
SRC.SYS_OK <REF4.NAME> isimli eşya çantanıza aktarıldı.
ENDIF

[FUNCTION f_vendor_item_name]< BR>IF (STRLEN(<ARGS>) > 16)
LOCAL.NAME=<STRSUB 0 16 <ARGS>>...
ELSE
LOCAL.NAME=<ARGS>
ENDIF
RETURN <LOCAL.NAME>

[FUNCTION find_house_vendor]
LOCAL.REGION=<ARGS>
FORCHARS 50
IF (<BASEID>==C_PLAYER_VENDOR) && (<REGION.UID>==<LOCAL.REGION>)
RETURN 1
ENDIF
ENDFOR
RETURN 0

[FUNCTION f_selling_item]
FORCONT <FINDLAYER(LAYER_PACK)> 99
IF (<TAG0.VALUE>)
LOCAL.SELLING_ITEM +=1
ENDIF
ENDFOR
RETURN=<DLOCAL.SELLING_ITEM>

[FUNCTION f_backpack_cont]
TRY UID.<UID.<UID>.FINDLAYER(21)>.CONT=<UID.<ARGS>.FINDLAYER(21)>

[DIALOG D_ITEM_VALUE]
100,100
NOMOVE
REF5=<ARGV[1]>
RESIZEPIC 0 0 9390 300 190
DHTMLGUMP 80 6 999 20 0 0 <Def.Bfont_Blue><SERV.NAME> Vendor Menüsü
DHTMLGUMP 50 40 200 50 0 0 Sayın <SRC.NAME>,<DEF.BR><F_VENDOR_ITEM_NAME <REF5.NAME>&g t; isimli eşyayı ne kadar altına satıcaksınız ?
RESIZEPIC 90 125 3000 150 30
DTEXTENTRY 106 130 600 20 1152 1 <QVAL (<REF5.TAG0.VALUE>)?<REF5.DTAG0.VALUE>:Fiyatı giriniz>
BUTTON 50 130 <DEF.BUTTONID_1> 1 0 1
SRC.CTAG0.PLAYER_VENDOR=<ARGV[0]>,<REF5>

[DIALOG D_ITEM_VALUE BUTTON]
ON=0
SRC.CTAG0.PLAYER_VENDOR=

ON=1
REF1=<STRARG <SRC.CTAG0.PLAYER_VENDOR>>
REF2=<STREAT <SRC.CTAG0.PLAYER_VENDOR>>
LOCAL.MAX_VALUE=<STRARG <DEF.PLAYER_VENDOR_ITEM_VALUE>>
LOCAL.MIN_VALUE=<STREAT <DEF.PLAYER_VENDOR_ITEM_VALUE>>

IF !(<REF1>) || !(<REF2>)
SRC.SYS_HATA Hatalı bir durum oluştu.
ELSEIF (<ISEMPTY <ARGTXT[1]>>)
SRC.SYS_HATA Bu kısmı boş bırakamazsınız.
ELSEIF !(<ISNUMBER <ARGTXT[1]>>)
SRC.SYS_HATA Sadece rakam girebilirsiniz.
ELSEIF (<REF2.TOPOBJ>!=<REF1>)
SRC.SYS_HATA Bu item vendorun çan tasında bulunmuyor.
ELSEIF (<SRC.F_CanSeeLos <REF1>>)
SRC.SYS_HATA Vendora ulaşamıyorsunuz.
ELSEIF (<ARGTXT[1]> > <dLOCAL.MAX_VALUE>) || (<ARGTXT[1]> < <dLOCAL.MIN_VALUE>)
SRC.SYS_HATA En yüksek fiyat olarak <dLOCAL.MAX_VALUE> altın,en düşük fiyat olarak <dLOCAL.MIN_VALUE> altın girebilirsiniz.
ELSE
REF2.TAG0.VALUE = <dARGTXT[1]>
SRC.SYS_OK <REF2.NAME> isimli eşyanın değeri <dARGTXT[1]> olarak ayarlandı.
ENDIF
SRC.CTAG0.PLAYER_VENDOR=

[DIALOG D_VENDOR_ADD_GOLD]
100,100
NOMOVE
RESIZEPIC 0 0 9390 300 200
DHTMLGUMP 80 6 999 20 0 0 <Def.Bfont_Blue><SERV.NAME> Vendor Menüsü
DHTMLGUMP 50 40 200 80 0 0 Sayın <SRC.NAME>,<DEF.BR>Vendorunuzun kasasına ne kadar altın ekleceksiniz ?<DEF.BR>Şuanki altın miktari:<GOLD>
RESIZEPIC 90 135 3000 150 30
DTEXTENTRY 106 140 600 20 1152 1 Buraya yazın
BUTTON 50 140 <DEF.BUTTON ID_1> 1 0 1

[DIALOG D_VENDOR_ADD_GOLD BUTTON]
ON=1
IF !(<UID.<UID>>)
SRC.SYS_HATA Hatalı bir durum oluştı.
ELSEIF (<SRC.F_CanSeeLos <UID>>)
SRC.SYS_HATA Vendora ulaşamıyorsunuz.
ELSEIF (<REF1.GOLD> > 2000000)
SRC.SYS_HATA Vendorunuzda zaten çok fazla para bulunuyor.
ELSEIF (<SRC.GOLD> < <DARGTXT[1]>)
SRC.SYS_HATA Yazdığınız miktarda paranız bulunmuyor.
ELSE
GOLD +=<dARGTXT[1]>
Findid.I_Player_Vendor.Timer=3600
SRC.GOLD -=<dARGTXT[1]>
SRC.SYS_OK Vendorunuzun çalışma süresini,<EVAL (<ARGTXT[1]>/250)> saat arttırdınız.
ENDIF

[DIALOG D_VENDOR_REVENUE]
100,100
NOMOVE
RESIZEPIC 0 0 9390 300 190
DHTMLGUMP 80 6 999 20 0 0 <Def.Bfont_Blue><SERV.NAME> Vendor Menüsü
DHTMLGUMP 50 40 200 50 0 0 Sayın <SRC.NAME>,<DEF.BR>Vendorunuzun kasasında <GOLD> altın bulunuyor.
RESIZEPIC 90 125 3000 150 30
DTEX TENTRY 106 130 600 20 1152 1 <GOLD>
BUTTON 50 130 <DEF.BUTTONID_1> 1 0 1

[DIALOG D_VENDOR_REVENUE BUTTON]
ON=1
IF (<TAG0.OWNER>!=<SRC>)
SRC.SYS_HATA Bunu siz yapamazsınız.
ELSEIF (<GOLD> < 1000)
SRC.SYS_HATA Vendorunuzda az para varken bunu yapamazsınız.
ELSEIF (<GOLD> < <DARGTXT[1]>)
SRC.SYS_HATA Vendorunuzda <DARGTXT[1]> altın bulunmuyor.
ELSEIF (<SRC.F_CanSeeLos <UID>>)
SRC.SYS_HATA Vendorunuza ulaşamıyorsunuz.
ELSEIF (<SRC.F_FLAGS_CHECK>)
SRC.SYS_HATA Bu durumda iken yapamazsınız.
ELSEIF (<ISEMPTY <ARGTXT[1]>>)
SRC.SYS_HATA Boş bırakamazsınız.
ELSEIF !(<ISNUMBER <ARGTXT[1]>>)
SRC.SYS_HATA Sadece rakam girmelisiniz.
ELSE
LOCAL.TIMER=<EVAL (<Argtxt[1]> / 250)>
GOLD -=<ARGTXT[1]>
Findid.I_Player_Vendor.Timer=120
SRC.GOLD +=<dARGTXT[1]>
SRC.SYS_OK <dARGTXT[1]> hasilat aldınız.SRC.SYS_OK Vendorunuzun çalışma süresi <dLOCAL.TIMER> saat azaldı.
ENDIF

[DIALOG D_VENDOR_REMOVE]
100,100
NOMOVE
RESIZEPIC 0 0 9390 300 190
DHTMLGUMP 80 6 999 20 0 0 <DEF.BFONT_BLUE><SERV.NAME> Vendor Menüsü
DHTMLGUMP 50 40 200 50 0 0 Sayın <SRC.NAME>,<DEF.BR>Vendorunuzun işine son vermekten eminmisiniz ?
DHTMLGUMP 70 110 200 20 0 0 Evet,işine son vereceğim.
DHTMLGUMP 70 130 200 20 0 0 Hayır,işine devam etsin.
BUTTON 50 110 <DEF.BUTTONID_1> 1 0 1
BUTTON 50 130 <DEF.BUTTONID_1> 1 0 2

[DIALOG D_VENDOR_REMOVE BUTTON]
ON=1
IF !(<UID.<UID>>)
SRC.SYS_HATA Bir hata oluştu.
ELSEIF (<TAG0.OWNER>!=<SRC>)
SRC.SYS_HATA Bu vendorun sahibi siz değilsiniz.
ELSEIF (<SRC.F_CanSeeLos <UID>>)
SRC.SYS_HATA Vendora ulaşamıyorsunuz.
ELSEIF (<SRC.F_FLAGS_CHECK>)
SRC.SYS_HATA Bu durumda iken yapamazsınız.
ELSE
F_UNEQUIP_PACK
F_B ACKPACK_CONT <SRC>
SRC.GOLD +=<GOLD>
SERV.NEWITEM I_DEED_PLAYER_VENDOR,1,<SRC>
SRC.SYS_OK <GOLD> altın size aktarıldı.
REMOVE
ENDIF

[DIALOG D_VENDOR_INFO]
200,50
NOMOVE
RESIZEPIC 0 0 9390 300 280
DHTMLGUMP 80 6 999 20 0 0 <Def.Bfont_Blue><SERV.NAME> Vendor Sistemi
LOCAL.PAGE=1
LOCAL.ITEM=0

PAGE 1
FOR <EVAL <Findid.I_Player_Vendor.More2> + 1>
REF3=<F_SELECT <dLOCAL._FOR>,<Findid.I_Player_Vendor.Tag0.Last_Sell_Item>>
IF (<dLOCAL.ITEM> >8)
LOCAL.ITEM=0
BUTTON 150 260 <DEF.BUTTONID_1> 0 <EVAL (<Local.Page>)+1> 1
DHTMLGUMP 187 260 999 20 0 0 İleri
LOCAL.PAGE ++
PAGE <dLOCAL.PAGE>
BUTTON 150 260 <DEF.BUTTONID_2> 0 <EVAL (<Local.Page>)-1> 1
DHTMLGUMP 187 260 999 20 0 0 Geri
ENDIF
IF (<REF3>)
DHTMLGUMP 80 <EVAL (<LOCAL.ITEM>*20)+50> 999 20 0 0 <REF3.NAME>< BR>LOCAL.ITEM ++
ENDIF
ENDFOR

[EVENTS e_vendor_item]
ON=@ItemClick
IF (<ACT.TOPOBJ.ID>==C_PLAYER_VENDOR)
ACT.MSG_NORMAL [Fiyatı:<QVAL (<ACT.TAG0.VALUE>)?<ACT.DTAG0.VALUE> gold]:Satılık değil]>
IF (<ACT.ISARMOR>) || (<ACT.ISWEAPON>)
ACT.MSG_NORMAL [Sağlamlık:%<ACT.HITPOINTS>]
ENDIF
ACT.MSG_OK <F_VENDOR_ITEM_NAME <ACT.NAME>>
RETURN 1
ENDIF

ON=@ItemDclick
IF (<ACT.TOPOBJ.ID>==C_PLAYER_VENDOR)
IF (<ACT.TYPE>==T_CONTAINER)
ACT.OPEN
RETURN 1
ENDIF
ENDIF

ON=@ItemPickup_Pack
IF (<ACT.TOPOBJ.ID>==C_PLAYER_VENDOR) && (<ACT.TOPOBJ.OWNER>!=<SRC>)
SRC.SYS_HATA Bunu siz yapamazsınız.
RETURN 1
ENDIF

IF (<ACT.TAG0.VALUE>)
ACT.TAG0.VALUE=
ENDIF

[EOF]

///////////////////////////
///Diğer Fonskiyonlar///
/////////////////////////

[FUNCTION f_select]
RETURN=<ARG V[<ARGV[0]>]>

[FUNCTION isnumber]
FOR 0 <EVAL STRLEN(<ARGS>) -1>
IF !STRMATCH('[0-9]','<StrSub <dLOCAL._FOR> 1 <ARGS>>')
RETURN 0
ENDIF
ENDFOR
RETURN 1

[FUNCTION f_MakePetOf]
SERV.NEWITEM i_memory
NEW.COLOR=memory_ipet
NEW.MORE1=04
NEW.MORE2=<SERV.TIME>
NEW.MOREP=<P>
NEW.LINK=<ARGS>
NEW.CONT=<UID>e