// By Michaell

[plevel 1]
itemaktar

[function itemaktar]
dialogclose d_char_list
dialog d_char_list

[dialog d_char_list]
230,130
PAGE 0
resizepic 0 0 5120 310 280
resizepic 12 10 3000 290 260
dtext 20 20 1153 <serv.name> item transfer menusu
dtext 20 50 1153 Hangi karaktere item aktarilacak?
for 0 <eval <account.chars>-1>
dtext 65 <eval (<dlocal._for>*30)+90> 025 <account.char.<dlocal._for>.name>
endfor
for 1 <account.chars>
button 30 <eval (<dlocal._for>*30)+60> 4020 4022 1 0 <dlocal._for>
endfor

[dialog d_char_list button]
on=0
sysmessage @1153 Item aktarmaktan vazgectiniz..

on=1 5
if (<src.account.char.<eval <argn>-1>.uid> == <src.uid>)
src.sysmessage @1153 Bagli oldugunuz karakterinize item yollayamazsiniz...
return 1
endif
try ctag.<src.account.name><eval <argn>-1> <src.account.char.<eval <argn>-1>.uid>
targetf item_at <eval <argn>-1>
src.sysmessage @1153 hangi itemi aticaksiniz?


[function item_at]
obj=<argo>
if !(<obj.isitem>)
src.sysmessage @1153 Sadece item yollayabilirsiniz...
return 1
endif
if (<src.findlayer.29.uid> == <obj.cont.uid>)
obj.cont <uid.<ctag.<account.name><argn>>.findlayer.29.uid>
update
src.sysmessage @1153 Tebrikler, <account.char.<argn>.name>'e <obj.amount> adet <obj.name> yolladiniz...
else
src.sysmessage @1153 Sadece bankanizdaki itemleri yollayabilirsiniz..
return 1
endif