[function scrollduzenle] // scroll birlestirme - Slothere

targetf f_scroll

sys_normal Birlestirilecek scrollardan bir tanesini seciniz?



[function f_scroll]

ref1 = <argo>

local.sayi = 0

ctag.scroll = <argo.baseid>

if (<ref1.type> != t_scroll)

src.sys_error Sadece scroll..

return 1

endif

if (<ref1.amount> > 1)

src.sys_error Bu scrollar zaten birlesik.

return 1

endif

forconttype t_scroll

if (<baseid> == <ref1.baseid>) && (<amount> == 1)

local.sayi +=1

remove

endif

endfor

serv.newitem <ctag0.scroll>

new.amount <dlocal.sayi>

new.cont = <src.uid>

new.update

sys_normal <dlocal.sayi> tane <serv.itemdef.<ctag0.scroll>.name> birlestirildi.

ctag.scroll =

return 1

Değerlendirmeler

0

Total votes: 0