|
İçerde : 1 misafir, 0 üye : ---
|
[DEFNAME stable_settings]
storage_type 1 // 0 =karakter bazlı 1= hesap bazlı (all characters on the account can access)
stable_limit 100 // maximum eklenecek hayvan sayısı
[FUNCTION f_stable]
ref1=<src>
ref2=<argo>
if (<ref2.isplayer>) || (<ref2.body>==c_man) || (<ref2.body>==c_woman)
src.sysh_trk Bunu yapamazsiniz
return 1
endif
if (<ref2.flags> &statf_conjured)
src.sysh_trk Bunu yapamazsiniz
return 1
endif
if (<ref2.str> > <ref2.hits>)
src.sysh_trk <ref2.name> isimli hayvanınız yaralanmış.Önce tedavi etmelisiniz.
return 1
endif
if <serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count>
if (<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count> < <def.stable_limit>)
if !(<ref2.ismypet>)
src.sysh_trk Bunu yapamazsiniz <ref2.name> sizin ait bir hayvan değil.
return 1
endif
ref2.f_custom_shrink
return 1
else
src.sysh_trk Depoda hayvanlar için yer kalmamiş.
return 1
endif
else
if !(<ref2.ismypet>)
src.sysh_trk Bunu yapamazsiniz <ref2.name> size ait bir hayvan degil
return 1
endif
ref2.f_custom_shrink
endif
[function f_custom_shrink]
ref1=<src>
ref2=<uid>
ref2.shrink
ref3 <hval <ref2.actarg1>&~030000000>
ref3.cont <ref1.findlayer.layer_pack>
ref3.attr 040a4
if <serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count>
if (<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.findelem <ref3>> == -1)
serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.add <ref3>
return 1
endif
else
serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.add <ref3>
return 1
endif
[DIALOG d_stable]
40,40
nomove
Page 0
ref1 <src>
resizepic 0 0 <def.back1> 480 500
resizepic 10 10 <def.back2> 460 480
dtext 130 20 <def.t> * <serv.servname> Binek Stoğu Sistemi *
dtext 30 80 <DEF.T1> Bineği Çıkar
dtext 230 80 <def.t1> Bineğin Adi
dtext 30 400 <def.t1> <serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count> Adet binek stokta
local.kalanslot (<ddef.stable_limit>-<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count>
Dtext 30 420 <def.t1> Kalan Boş Yer : <dlocal.kalanslot>
Page 1
if <serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count>
for 0 <eval (<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count> -1)>
if (<local._for> >=5) $$ (<eval (<local._for> % 5 == 0)
button 420 450 0fa5 0fa7 0 <eval ((<local._for> / 5) + 1)>
dtext 330 450 <def.t1> Sonraki Sayfa
page <eval ((<local._for> / 5) + 1)>
button 12 450 0fae 0fb0 0 <eval (<local._for> / 5))>
dtext 42 450 <def.t2> Önceki Sayfa
endif
local.color <uid.<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.<dlocal._for>>.color>
local.id <uid.<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.<dlocal._for>>.id>
resizepic 20 <eval (110+ (<local._for> % 5) * 60)> 3000 450 55 <eval <local._for>+1>
button 40 <eval (120+ (<local._for> % 5) * 60)> 4005 4007 1 0 <eval <local._for>+1>
tilepichue 100 <eval (120+ (<local._for> % 5) * 60)> <local.id> <dlocal.color>
dtext 230 <eval (120+ (<local._for> % 5) * 60)> <def.t1> <uid.<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.<dlocal._for>>.name>
endfor
else
dtext 100 200 <def.t2> Stoğa herhangi bir binek eklememişsiniz
endif
[DIALOG d_stable BUTTON]
ON=1,999// return
ref1 <uid>
ref2 = <uid.<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.<eval (<argn>-1)>>>
ref2.attr 04020
ref2.cont <ref1.findlayer.layer_pack>
dclick <ref2>
if (<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count> < 2)
serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.clear
else
serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.<eval (<argn>-1)>.remove
endif
[DEFNAME stable_settings]
storage_type 1 // 0 =karakter bazlı 1= hesap bazlı (all characters on the account can access)
stable_limit 100 // maximum eklenecek hayvan sayısı
[FUNCTION f_stable]
ref1=<src>
ref2=<argo>
if (<ref2.isplayer>) || (<ref2.body>==c_man) || (<ref2.body>==c_woman)
src.sysh_trk Bunu yapamazsiniz
return 1
endif
if (<ref2.flags> &statf_conjured)
src.sysh_trk Bunu yapamazsiniz
return 1
endif
if (<ref2.str> > <ref2.hits>)
src.sysh_trk <ref2.name> isimli hayvanınız yaralanmış.Önce tedavi etmelisiniz.
return 1
endif
if <serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count>
if (<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count> < <def.stable_limit>)
if !(<ref2.ismypet>)
src.sysh_trk Bunu yapamazsiniz <ref2.name> sizin ait bir hayvan değil.
return 1
endif
ref2.f_custom_shrink
return 1
else
src.sysh_trk Depoda hayvanlar için yer kalmamiş.
return 1
endif
else
if !(<ref2.ismypet>)
src.sysh_trk Bunu yapamazsiniz <ref2.name> size ait bir hayvan degil
return 1
endif
ref2.f_custom_shrink
endif
[function f_custom_shrink]
ref1=<src>
ref2=<uid>
ref2.shrink
ref3 <hval <ref2.actarg1>&~030000000>
ref3.cont <ref1.findlayer.29>
ref3.attr 040a4
if <serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count>
if (<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.findelem <ref3>> == -1)
serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.add <ref3>
return 1
endif
else
serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.add <ref3>
return 1
endif
[DIALOG d_stable]
40,40
nomove
Page 0
ref1 <src>
resizepic 0 0 <def.back1> 480 500
resizepic 10 10 <def.back2> 460 480
dtext 130 20 <def.t> * <serv.servname> Binek Stoğu Sistemi *
dtext 30 80 <DEF.T1> Bineği Çıkar
dtext 230 80 <def.t1> Bineğin Adi
dtext 30 400 <def.t1> <serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count> Adet binek stokta
local.kalanslot (<ddef.stable_limit>-<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count>
Dtext 30 420 <def.t1> Kalan Boş Yer : <dlocal.kalanslot>
Page 1
if <serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count>
for 0 <eval (<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count> -1)>
if (<local._for> >=5) $$ (<eval (<local._for> % 5 == 0)
button 420 450 0fa5 0fa7 0 <eval ((<local._for> / 5) + 1)>
dtext 330 450 <def.t1> Sonraki Sayfa
page <eval ((<local._for> / 5) + 1)>
button 12 450 0fae 0fb0 0 <eval (<local._for> / 5))>
dtext 42 450 <def.t2> Önceki Sayfa
endif
local.color <uid.<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.<dlocal._for>>.color>
local.id <uid.<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.<dlocal._for>>.id>
resizepic 20 <eval (110+ (<local._for> % 5) * 60)> 3000 450 55 <eval <local._for>+1>
button 40 <eval (120+ (<local._for> % 5) * 60)> 4005 4007 1 0 <eval <local._for>+1>
tilepichue 100 <eval (120+ (<local._for> % 5) * 60)> <local.id> <dlocal.color>
dtext 230 <eval (120+ (<local._for> % 5) * 60)> <def.t1> <uid.<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.<dlocal._for>>.name>
endfor
else
dtext 100 200 <def.t2> Stoğa herhangi bir binek eklememişsiniz
endif
[DIALOG d_stable BUTTON]
ON=1,999// return
ref1 <uid>
ref2 = <uid.<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.<eval (<argn>-1)>>>
ref2.attr 04020
ref2.cont <ref1.findlayer.29>
dclick <ref2>
if (<serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.count> < 2)
serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.clear
else
serv.list.<qval <def.storage_type>? <ref1.account>:<ref1>>_stabled.<eval (<argn>-1)>.remove
endif
Bu gibi durumlarda backpack yerine bankaya göndermen Mirrorun dediği gibi daha sağlıklı olur. İtem yolunu değiştirmen içinde Findlayer.21 yerine Findlayer.29 olarak ayarlaman yeterli olacaktır.
|