/////////////////////////////////////////////////////////////////////////////////
// Scripter Name: Tcpip & Dagger
// Shard Name: Storm
// Shard Adress : www.rosario.gen.tr
// Sphere Version: 56b
//
// Bu dosya içindeki kodlar TheRaskol tarafından yazılmış veya editlenmiştir.
// The codes was writting or editing by Raskol Serna
/////////////////////////////////////////////////////////////////////////////////
[events e_ticaret_tuccar]
on=@click
msgub Ticaret (<eval <findid.i_ticaret_bileti.tag.deger>*50>) gp
[events e_ticaret_llama]
on=@click
msgub 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 @0845,1,1 Ticaret Llama'nız oldu ve eşyalarınız yere saçıldı!
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_map_rolled
name Ticaret Ticket
type t_normal
on=@create
color 0481
on=@click
msgub (<eval <more2>> eşya, <eval <tag0.deger>*50> gp)
on=@dclick
if (<tag0.ticaret>==1)
target
src.sysmessage @666,1,1 Ticarete bitirmek için lütfen Ticaret Tüccarını seçiniz. (Britain Banka ici)
return 1
endif
if (<more2>==100)
target
src.sysmessage @666,1,1 Ticarete başlamak için lütfen Ticaret Tüccarını seçiniz. (Minoc Banka ici)
return 1
endif
if !(<more1>)
target
src.sysmessage @666,1,1 lütfen ticarette kullanmak istediğiniz Pack Llama'yı seçiniz.
return 1
endif
if (<more2> < 100)
target
src.sysmessage @666,1,1 lütfen ticaretini yapacağınız craft ürününü seçiniz.
return 1
endif
On=@TargOn_Char
if (<more2> == 100) && (<src.targ.id> == c_ticaret_tuccar_1) && !(<tag0.ticaret>)
src.targ.message @0845,1,1 Ticaretiniz başladı.
src.events e_ticaret_tuccar
src.sysmessage @666,1,1 Pack Llama ile beraber ölmeden Britain Bank'a ulaşınız!
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 @0845,1,1 Süre dolmadan geldiniz.
src.sysmessage @666,1,1 Ticaretinizi başarı ile bitirdiniz.
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 @0845,1,1 Bu bir Pack Llama değildir!
target
src.sysmessage @666,1,1 lütfen ticarette kullanmak istediğiniz Pack Llama'yı seçiniz.
return 1
endif
if !(<src.targ.ismypet>)
src.sysmessage @0845,1,1 Bu hayvan size ait değildir!
target
src.sysmessage @666,1,1 lütfen ticarette kullanmak istediğiniz Pack Llama'yı seçiniz.
return 1
endif
if !(<src.targ.findlayer.21>)
src.sysmessage @0845,1,1 Önce Llama'nın çantasını bir kez açınız!
target
src.sysmessage @666,1,1 lütfen ticarette kullanmak istediğiniz Pack Llama'yı seçiniz.
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
src.sysmessage @666,1,1 lütfen ticaretini yapacağınız craft ürününü seçiniz.
return 1
on=@targon_item
if !(<more1>)
src.sysmessage @0845,1,1 Bu bir Pack Llama değildir!
target
src.sysmessage @666,1,1 lütfen ticarette kullanmak istediğiniz Pack Llama'yı seçiniz.
return 1
endif
if !(<more2> < 100)
src.sysmessage @0845,1,1 Her ticaret sırasında maximum 100 craft ürün taşıyabilirsiniz!
return 1
endif
IF ( <SRC.TARG.TYPE> == t_food )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.TYPE> == t_gold )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.TYPE> == t_container )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.TYPE> == t_sign_gump )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.TYPE> == t_shield )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.DISPID> == i_shield_order )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.DISPID> == i_shield_chaos )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.DISPID> == i_cloth )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.DISPID> == i_cloth_bolt )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.ID> == i_bandage )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.BASEID> == i_jailcik )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.BASEID> == i_fishing_net_green )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.ID> == i_kindling )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.BASEID> == i_robe )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.TYPE> == t_key )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
IF ( <SRC.TARG.DISPID> == i_deed )
src.sysmessage @0845,1,1 Bu eşyanın ticaretini yapamazsınız! (<SRC.TARG.NAME>)
RETURN 1
ENDIF
if (<uid.<tag.hayvan>.findlayer.21.count> > <more2>)
src.sysmessage @0845,1,1 Llama'dan yabancı çıkartınız!
return 1
endif
if !(<src.targ.topobj.uid> == <src.uid>)
src.sysmessage @0845,1,1 Eşyaların çantanızda olması gerekmektedir!
target
src.sysmessage @666,1,1 lütfen ticaretini yapacağınız craft ürününü seçiniz.
return 1
endif
if (<eval <more2>+<src.targ.amount>> > 100)
src.sysmessage @0845,1,1 Ticarette maksimum 100 eşya taşıyabilirsiniz!
return 1
endif
tag.deger <eval <tag0.deger>+(<src.targ.value>*<src.targ.amount>>
more2 <eval 0<more2>+<src.targ.amount>>
src.sysmessage @0845,1,1 Ticaretinizin değeri şuanda <eval <tag.deger>*50> olmuştur.
src.targ.cont <tag.hayvan>
src.targ.attr 08010
target
src.sysmessage @666,1,1 lütfen ticaretini yapacağınız craft ürününü seçiniz.
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 @0845,1,1 Ticaret yaparken hayvandan cok uzaklaşmayınız!
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_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 @0845,1,1,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_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 @0845,1,1,1,1 [Ticaret Tuccari]
MESSAGE @90 <NAME>
return 1
on=@dclick
src.dialog d_ticaret_bilgi
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 eşyalarınızı 3 katı fiyatiına satabilirsiniz. Llama çantasına 100 adet item koyabilirsiniz. Tüm bu işlemleri çantanızdaki ticaret deed'i ile yapacaksınız. Ticaret sistemi bileti için 5.000 altın gerekiyor. Yolunuz açık olsun ...
Bilet (5k altın)
Vazgeç
Çıkış
[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 @0845,1,1 Çantanızda 5.000 altın bulunmamaktadır!
return 1
endif
on=2
return 1
[EOF]
