// * writer : Slothere ( Item Transfer System v2.0)
// * date: 24.06.2008
// * version: 056b+
[defname slthritemtransfer]
// navigasyon aktif olsun mu?
sltnavigation 1
// transfer ücreti ( tane başına bu kadar alınacak )
sltgold 250
[plevel 1]
esyaaktar
[function esyaaktar]
src.sdialog d_charsecim
return 1
[dialog d_charsecim]
0,0
noclose
Page 0
resizepic 100 100 5120 250 200
resizepic 110 110 3000 230 180
dtext 170 110 0456 Transfer System
button 320 110 2714 2715 1 0 6
FOR 0 <eval (<account.chars>)-1>
dtext 180 <eval (<dlocal._for>*20)+150> 0456 <account.char.<dlocal._for>.name>
IF (<account.char.<dlocal._for>.uid> != <src.uid>)
button 155 <eval (<dlocal._for>*20)+150> 2714 2715 1 0 <eval (<dlocal._for>)+1>
ENDIF
ENDFOR
[dialog d_charsecim button]
on= 1 5
src.ctag.atilacak <account.char.<eval (<dargn>)-1>.uid>
src.sdialog d_itemsecim
sys_normal <account.char.<eval (<dargn>)-1>.name> isimli karaktere aktarilacak itemi secin?
[dialog d_itemsecim]
0,0
Page 0
resizepic 100 100 5120 250 300
resizepic 110 110 3000 230 280
local.sayfa = 1
local.esya = 0
obj = <findid.i_bankbox.uid>
dtext 170 110 0456 Transfer System
button 320 110 3 4 1 0 99999
PAGE 1
FOR 0 <eval (<obj.rescount>)-1>
IF <dlocal.esya> > 9
local.esya 0
button 280 360 015e1 015e5 0 <eval <local.sayfa>+1> 1
local.sayfa +=1
PAGE <eval <local.sayfa>>
button 300 360 015e3 015e7 0 <eval <local.sayfa>-1> 1
ENDIF
IF ((<uid.<obj.uid>.findcont.<dlocal._for>>) && (<uid.<obj.uid>.findcont.<dlocal._for>.type> != t_gold))
local.esya +=1
dtext 180 <eval (<local.esya>*20)+130> 0456 <uid.<obj.uid>.findcont.<dlocal._for>.name>
button 160 <eval (<local.esya>*20)+130> 2714 2715 1 0 <eval (<dlocal._for>)+1>
ENDIF
ENDFOR
[Dialog d_itemsecim button]
on = 1 10000
ref1 = <findid.i_bankbox.uid>
//sayu <dargn>. Item (<uid.<ref1.uid>.findcont.<eval (<dargn>)-1>.uid>)
IF ((<uid.<ref1.uid>.findcont.<eval (<dargn>)-1>.type> == t_container) && (<def.sltnavigation> == 1))
obj = <uid.<ref1.uid>.findcont.<eval (<dargn>)-1>.uid>
src.sdialog d_navigation
ELSE
obj = <uid.<ref1>.findcont.<eval (<dargn>)-1>.uid>
src.sdialog d_aktar
ENDIF
[dialog d_navigation]
0,0
noclose
Page 0
resizepic 100 100 5120 250 300
resizepic 110 110 3000 230 280
local.sayfa = 1
local.esya = 0
dtext 170 110 0456 Navigation System
dtext 180 360 0456 Cantayi yolla
button 160 360 2714 2715 1 0 10001
button 320 110 3 4 1 0 10000
PAGE 1
FOR 0 <eval (<obj.rescount>)-1>
IF <dlocal.esya> > 9
local.esya 0
button 280 360 2714 2715 0 <eval <local.sayfa>+1> 1
local.sayfa +=1
PAGE <eval <local.sayfa>>
button 300 360 015e3 015e7 0 <eval <local.sayfa>-1> 1
ENDIF
IF ((<uid.<obj>.findcont.<dlocal._for>>) && (<uid.<obj>.findcont.<dlocal._for>.type> != t_gold))
local.esya +=1
dtext 180 <eval (<local.esya>*20)+130> 0456 <uid.<obj>.findcont.<dlocal._for>.name>
button 160 <eval (<local.esya>*20)+130> 2714 2715 1 0 <eval (<dlocal._for>)+1>
ENDIF
ENDFOR
[dialog d_navigation button]
on = 1 1000
ref1 = <obj>
obj = <uid.<ref1>.findcont.<eval (<dargn>)-1>.uid>
src.sdialog d_aktar
on = 10001
obj = <obj>
src.sdialog d_aktar
[Dialog d_aktar]
0,0
Page 0
resizepic 100 100 5120 400 200
resizepic 110 110 3000 380 180
resizepic 390 190 3000 90 90
// 2x serisi için.
// tilepic 405 210 <serv.itemdef.<obj.id>.id>
// 5x serisi için
tilepichue 405 210 <serv.itemdef.<obj.id>.id> <dobj.color>
dtext 245 110 0456 Transfer System
dhtmlgump 160 140 300 35 0 0 <def.bfont_red><obj.amount> <def.bfont_black>tane <def.bfont_red><obj.name> <def.bfont_black>isimli esyanizi <def.bfont_red><uid.<ctag0.atilacak>.name> <def.bfont_black>isimli chariniza transfer etmek istiyor musunuz?
button 160 190 4006 4007 1 0 1
dtext 200 190 0456 Evet
button 160 210 4006 4006 1 0 2
dtext 200 210 0456 Hayir
dhtmlgump 160 240 300 20 0 0 * Toplam transfer ucreti: <eval (<obj.amount>*<def.sltgold>)>gp
[Dialog d_aktar button]
on = 1
IF !(<src.restest <eval (<obj.amount>*<def.sltgold>)> i_gold>)
src.sys_error yaninizda <eval (<obj.amount>*<def.sltgold>)> altininiz bulunmuyor..
return 1
ENDIF
obj.cont <uid.<ctag0.atilacak>.findlayer.29.uid>
src.consume <eval (<obj.amount>*<eval <def.sltgold>>)> i_gold
src.sys_normal <obj.name> esyasini <uid.<ctag0.atilacak>.name> isimli karakterinize basariyla aktardiniz..
src.update
src.ctag.atilacak =
[EOF]
0
Total votes: 0
Yorumlar (0)