// 26 agustos 2006
// kodlayan tcpip
// Ticaret ve Eskiya sistemi
////////////////////////////////////////////////

///////////////////////////////////////////////
// ekstra ekler
//
//
// moongate ve normal gatelere engel konulmasi lazim
// if (<src.isevent.e_ticaret_tuccar
// return 1
// endif
//
// gibi
//
//////////////////////////////////////////////

// once eventlar

[events e_ticaret_tuccar]
on=@click
message @0481 Ticaret (<eval <findid.i_ticaret_bileti.tag.deger>*50> gp


[events e_ticaret_llama]
on=@click
Message @0481 Ticaret (<eval <memoryfindtype.memory_ipet.link.findid.i_ticaret_bileti.tag.deger>*50> gp

on=@death
for 0 <eval <findlayer.21.rescount>-1>
obj=<findlayer.21.findcont.<eval <local._for>>>
obj.attr 0
endfor
try uid.<memoryfindtype.memory_ipet.link>.sysmessage @0481 Ticaret Llama'niz oldu ve esyalariniz yere sacildi.
try uid.<tag.ticaret_bileti>.remove
try uid.<memoryfindtype.memory_ipet.link>.findid.i_ticaret_zorluk.remove
try uid.<memoryfindtype.memory_ipet.link>.events -e_ticaret_tuccar

// itemler

[itemdef i_ticaret_bileti]
id i_deed
name Ticaret Bileti
type t_normal

on=@create
color 0481

on=@click
message @0481 (<eval <more2>> esya, <eval <tag.deger>*50> gp)

on=@dclick
if (<tag0.ticaret>==1)
target @0481 Ticarete bitirmek icin lutfen Ticaret Tuccarini secin. (Britain Banka ici)
return 1
endif

if (<more2>==100)
target @0481 Ticarete baslamak icin lutfen Ticaret Tuccarini secin. (Minoc Banka ici)
return 1
endif

if !(<more1>
target @0481 Lutfen ticarette kullanmak istediginiz Pack Llama'yi secin.
return 1
endif

if (<more2> < 100)
target @0481 Lutfen ticaretini yapicaniz craft urununu secin.
return 1
endif

On=@TargOn_Char
if (<more2> == 100) && (<src.targ.id> == c_ticaret_tuccar_1) && !(<tag0.ticaret>
src.targ.message @0481 Yolun acik olsun.
src.events e_ticaret_tuccar
src.sysmessage @0481 Ticaretiniz basladi. Pack Llama ile beraber olmeden Britain 1. Banka'sina ulasin.
src.newitem i_ticaret_zorluk
src.new.equip
tag.ticaret 1
return 1
endif


if (<more2> == 100) && (<src.targ.id> == c_ticaret_tuccar_2) && (<tag0.ticaret>
src.targ.message @0481 Eywallah tam zamaninda geldiniz.
src.sysmessage @0481 Ticaretinizi basari ile bitirdiniz. Ucretiniz cantanizda bulunmaktadir.
newitem i_check_brnx
new.more1 <eval <tag.deger>*50>
new.more2 <src.uid>
new.cont <src.uid>
new.update
src.events -e_ticaret_tuccar
try uid.<tag.hayvan>.findlayer.21.remove
try uid.<tag.hayvan>.events -e_ticaret_llama
remove
return 1
endif

if (<more1>
return 1
endif

if !(<src.targ.id> == c_llama_pack)
src.sysmessage @0481 Bu Pack Llama degil.
target @0481 Lutfen ticarette kullanmak istediginiz Pack Llama'yi secin.
return 1
endif

if !(<src.targ.ismypet>
src.sysmessage @0481 Bu hayvan size ait degil.
target @0481 Lutfen ticarette kullanmak istediginiz Pack Llama'yi secin.
return 1
endif

if !(<src.targ.findlayer.21>
src.sysmessage @0481 Once hayvanin cantasini 1 kez acin.
target @0481 Lutfen ticarette kullanmak istediginiz Pack Llama'yi secin.
return 1
endif

tag.hayvan <src.targ.uid>
src.tag.ticaret_bileti <uid>
src.tag.hayvan <src.targ.uid>
src.targ.tag.ticaret_bileti <uid>
src.targ.events e_ticaret_llama
more1 1
target @0481 Lutfen ticaretini yapicaniz craft urununu secin.
return 1


on=@targon_item
if !(<more1>
src.sysmessage @0481 Bu Pack Llama degil.
target @0481 Lutfen ticarette kullanmak istediginiz Pack Llama'yi secin.
return 1
endif

if !(<more2> < 100)
src.sysmessage @0481 Her ticaret sirasinda maximum 100 craft urun tasiyabilirsiniz.
return 1
endif
IF ( <SRC.TARG.TYPE> == t_food )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.TYPE> == t_gold )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.TYPE> == t_container )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.TYPE> == t_sign_gump )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.TYPE> == t_shield )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.BASEID> == i_reward_coin )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.DISPID> == i_shield_order )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.DISPID> == i_shield_chaos )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.DISPID> == i_cloth )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.DISPID> == i_cloth_bolt )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.ID> == i_bandage )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF
IF ( <SRC.TARG.BASEID> == i_jailcik )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF
IF ( <SRC.TARG.BASEID> == i_fishing_net_green )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.ID> == i_kindling )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.BASEID> == i_robe )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.TYPE> == t_key )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

IF ( <SRC.TARG.DISPID> == i_deed )
SRC.SYSMESSAGE Bunu kullanamazsiniz! (<SRC.TARG.NAME>
RETURN 1
ENDIF

if (<uid.<tag.hayvan>.findlayer.21.count> > <more2>
src.sysmessage @0481 Llama'dan yabanci esyalari cikartin.
return 1
endif

if !(<src.targ.topobj.uid> == <src.uid>
src.sysmessage @0481 Esya cantanizda olmasi lazim.
target @0481 Lutfen ticaretini yapicaniz craft urununu secin.
return 1
endif

if (<eval <more2>+<src.targ.amount>> > 100)
src.sysmessage @0481 Ticarette maksimum 100 esya tasiyabilirsiniz.
return 1
endif

tag.deger <eval <tag0.deger>+(<src.targ.value>*<src.targ.amount>>
more2 <eval 0<more2>+<src.targ.amount>>
src.sysmessage @0481 Ticaretinizin degeri suanda <eval <tag.deger>*50> oldu.
src.targ.cont <tag.hayvan>
src.targ.attr 08010
target @0481 Lutfen ticaretini yapicaniz craft urununu secin.
return 1

[function ticaret_zorluk]
if (<isevent.e_ticaret_tuccar>
newitem i_ticaret_zorluk
new.equip
new.timer (rand(60))
endif

[itemdef i_ticaret_zorluk]
id i_gold
name Ticaret Zorluk
type t_eq_script

on=@create
attr attr_decay

on=@equip
timer 60

on=@unequip
src.ticaret_zorluk

on=@timer
if (<distance.<cont.tag.hayvan>> > 50)
cont.p <uid.<cont.tag.hayvan>.p>
cont.update
cont.sysmessage @0481 Ticaret yaparken hayvandan cok uzaklasmayiniz.
endif

if !(<region.guarded>
if (<cont.isevent.e_ticaret_tuccar>
newnpc c_ticaret_eskiya
new.p <cont.p>
new.update
attr attr_decay
remove
endif
else
attr attr_decay
remove
endif
endif


// eskiyalar
[chardef c_ticaret_eskiya]
defname c_ticaret_eskiya
name Eskiya
id c_man
can mt_walk|mt_run|mt_usehands|mt_equip

Category Civilized
Subsection Savages
Description Savage Rider

On=@Create
npc brain_monster
color 0835
str {100 150}
dex {100 120}
int 15
karma -5000
fame {500 1000}

fencing {60.0 70.0}
anatomy {95.0 99.0}
wrestling {20.0 45.0}
tactics 100.0
magicresistance 100.0

item i_bone_arms
item i_robe
color 01
item i_bone_leggings
item i_mask_bear
item i_spear
item i_gold,{20 50}
item i_bandage,5
item i_mt_ostard_desert
name Savage Ridgeback
timer -1
color 08a2

On=@EnvironChange
if (<findlayer(25)>
findlayer(25).more2 <uid>
endif


On=@Death
if (<findlayer(25)>
findlayer(25).remove
endif

[chardef c_ticaret_tuccar_1]
NAME=#NAMES_HUMANFEMALE the Merchant
ID=C_MAN
DESIRES=i_gold,e_notoriety

TEVENTS=e_Human_HearUnk
TEVENTS=e_Human_Needs
TEVENTS=e_Human_ConvInit
TEVENTS=e_Human_Greet
TEVENTS=e_Human_Space
TEVENTS=e_Human_Refuse
TEVENTS=e_Human_Environ

on=@dclick
src.dialog d_ticaret_bilgi
return 1

ON=@Create
NPC=brain_vendor
COLOR=colors_skin
STR={51 65}
DEX={41 55}
INT={31 45}

WRESTLING={15.0 38.0}
TACTICS={25.0 48.0}

SPEECHCOLOR={ 0231 1 0481 1 018b 1 0515 1 07d1 1 060a 1 0400 1 }
ITEMNEWBIE=i_lantern
ITEMNEWBIE=i_hat_wide_brim
ITEMNEWBIE=i_shirt_fancy
COLOR 0482
ITEMNEWBIE=i_pants_long
COLOR 0256
ITEMNEWBIE=i_cape
COLOR 0256
ITEMNEWBIE=i_boots_calf
COLOR 0256

ON=@CLICK
MESSAGE @0481,1,1 [Ticaret Tuccari]
MESSAGE @90 <NAME>
return 1




[chardef c_ticaret_tuccar_2]
NAME=#NAMES_HUMANFEMALE the Merchant
ID=C_MAN
DESIRES=i_gold,e_notoriety

TEVENTS=e_Human_HearUnk
TEVENTS=e_Human_Needs
TEVENTS=e_Human_ConvInit
TEVENTS=e_Human_Greet
TEVENTS=e_Human_Space
TEVENTS=e_Human_Refuse
TEVENTS=e_Human_Environ

ON=@Create
NPC=brain_vendor
COLOR=colors_skin
STR={51 65}
DEX={41 55}
INT={31 45}

WRESTLING={15.0 38.0}
TACTICS={25.0 48.0}

SPEECHCOLOR={ 0231 1 0481 1 018b 1 0515 1 07d1 1 060a 1 0400 1 }
ITEMNEWBIE=i_lantern
ITEMNEWBIE=i_hat_wide_brim
ITEMNEWBIE=i_shirt_fancy
COLOR 0482
ITEMNEWBIE=i_pants_long
COLOR 0256
ITEMNEWBIE=i_cape
COLOR 0256
ITEMNEWBIE=i_boots_calf
COLOR 0256

ON=@CLICK
MESSAGE @0481,1,1 [Ticaret Tuccari]
MESSAGE @90 <NAME>
return 1

[dialog d_ticaret_bilgi]
60,40

page 0
resizepic 50 10 5120 310 320 // dis lacivert bg
resizepic 60 20 3000 290 300 // ust beyaz bg
text 90 30 <eval <var.fctn_color>> 0 // baslik seysi
htmlgump 80 50 250 200 1 1 1

button 80 282 4012 4013 1 0 2
button 80 260 4009 4010 1 0 1
button 298 260 4018 4019 1 0 0
htmlgump 113 284 50 20 4 0 0
htmlgump 113 262 50 20 2 0 0
htmlgump 256 262 50 20 3 0 0

[dialog d_ticaret_bilgi text]
Ticaret Sistemi
<var.font3>>Ticaret sistemi ile esyalarinizi 3 kati fiyatina satabilirsiniz. Fakat ticaret yaparn saldirilara acik olacaksiniz. Eskiyalar veya Korsanlar surekli pesinizde olacaklar. Bu yüzden yaniniza koruma almayi unutmayin. Ticaret sistemi bileti icin 5.000 altin gerekiyor.
Bilet (5k altin)
Vazgec
Ayrinti?

[dialog d_ticaret_bilgi button]
On=1
if (<src.restest 5000 i_gold>
src.newitem i_ticaret_bileti
src.act.bounce
src.consume 5000 i_gold
else
src.sysmessage @0481 Yaninizda 5.000 altin yok.
return 1
endif

On=2
src.weblink forum.xxx.com
[EOF]