[Narcotich] : Client version 300a
Sphere ye aylarca emek verdim değiştirmem + 1 tane bug yok
#
#rename gibi şeyler zaten yazılmıyor..
ragnar dsp msp dedi ama
[events e_teot]
on=@itemclick
LOCAL.BUSQUEDA=<EVAL (<SRC.FINDLAYER.21.COUNT>-1)>
FOR 0 <EVAL <LOCAL.BUSQUEDA>>
IF ((<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> == 0 ) || ( <SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> > 65000 )) && !(<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.UID> == 0 ) && !(<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.dispid> == i_gold)
SERV.ALLCLIENTS SYSMESSAGE @55 <SRC.NAME> , <SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> dupeladigi icin banlanmistir.
SERV.LOG "TEOT BAN: acc: <src.account> item: <src.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> ip: <src.account.lastip>"
SRC.BANNED
SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.REMOVE
ENDIF
ENDFOR
on=@itempickup_pack
LOCAL.BUSQUEDA=<EVAL (<SRC.FINDLAYER.21.COUNT>-1)>
FOR 0 <EVAL <LOCAL.BUSQUEDA>>
IF ((<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> == 0 ) || ( <SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> > 65000 )) && !(<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.UID> == 0 ) && !(<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.dispid> == i_gold)
SERV.ALLCLIENTS SYSMESSAGE @55 <SRC.NAME> , <SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> dupeladigi icin banlanmistir.
SERV.LOG "TEOT BAN: acc: <src.account> item: <src.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> ip: <src.account.lastip>"
SRC.BANNED
SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.REMOVE
ENDIF
ENDFOR
on=@itemdclick
LOCAL.BUSQUEDA=<EVAL (<SRC.FINDLAYER.21.COUNT>-1)>
FOR 0 <EVAL <LOCAL.BUSQUEDA>>
IF ((<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> == 0 ) || ( <SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> > 65000 )) && !(<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.UID> == 0 ) && !(<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.dispid> == i_gold)
SERV.ALLCLIENTS SYSMESSAGE @55 <SRC.NAME> , <SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> dupeladigi icin banlanmistir.
SERV.LOG "TEOT BAN: acc: <src.account> item: <src.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> ip: <src.account.lastip>"
SRC.BANNED
SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.REMOVE
ENDIF
ENDFOR
on=@death
LOCAL.BUSQUEDA=<EVAL (<SRC.FINDLAYER.21.COUNT>-1)>
FOR 0 <EVAL <LOCAL.BUSQUEDA>>
IF ((<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> == 0 ) || ( <SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> > 65000 )) && !(<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.UID> == 0 ) && !(<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.dispid> == i_gold)
SERV.ALLCLIENTS SYSMESSAGE @55 <SRC.NAME> , <SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> dupeladigi icin banlanmistir.
SERV.LOG "TEOT BAN: acc: <src.account> item: <src.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> ip: <src.account.lastip>"
SRC.BANNED
SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.REMOVE
ENDIF
ENDFOR
on=@EnvironChange
LOCAL.BUSQUEDA=<EVAL (<SRC.FINDLAYER.21.COUNT>-1)>
FOR 0 <EVAL <LOCAL.BUSQUEDA>>
IF ((<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> == 0 ) || ( <SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> > 65000 )) && !(<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.UID> == 0 ) && !(<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.dispid> == i_gold)
SERV.ALLCLIENTS SYSMESSAGE @55 <SRC.NAME> , <SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> dupeladigi icin banlanmistir.
SERV.LOG "TEOT BAN: acc: <src.account> item: <src.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> ip: <src.account.lastip>"
SRC.BANNED
SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.REMOVE
ENDIF
ENDFOR
On=@ItemDropOn_ground
if (<act.amount> > 65000) && !(<act.dispid> == i_gold)
SERV.ALLCLIENTS SYSMESSAGE @55 <SRC.NAME> , <ACT.NAME> dupeladigi icin banlanmistir.
SERV.LOG "TEOT BAN: acc: <src.account> item: <act.NAME> ip: <src.account.lastip>"
act.remove
SRC.BANNED
endif
[function BANNED]
events -e_teot
findid.i_teot_ctrl.remove
go green acres
newitem i_BANNED
new.equip
stone 1
sysmessage @100 Yaptiginizin cezasi BAN'dir.
[ITEMDEF i_BANNED]
NAME=banned
ID=i_handr_1
TYPE=T_EQ_script
WEIGHT=0
LAYER=layer_special
ON=@Create
ATTR=attr_invis|attr_decay
on=@equip
timer 2
on=@timer
serv.account <cont.account> block 1
cont.disconnect
remove
return 1
[ITEMDEF i_teot_ctrl]
ID=i_memory
TYPE=t_eq_script
NAME=teot kontrol
WEIGHT=0
ON=@Create
ATTR=attr_move_never|attr_newbie|attr_invis
ON=@Equip
timer 15
ON=@Timer
LOCAL.BUSQUEDA=<EVAL (<cont.FINDLAYER.21.COUNT>-1)>
FOR 0 <EVAL <LOCAL.BUSQUEDA>>
IF ((<cont.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> == 0 ) || ( <cont.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> > 65000 )) && !(<cont.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.UID> == 0 ) && !(<cont.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.dispid> == i_gold)
SERV.ALLCLIENTS SYSMESSAGE @55 <cont.NAME> , <cont.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> dupeladigi icin banlanmistir.
SERV.LOG "TEOT BAN: acc: <cont.account> item: <cont.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> ip: <cont.account.lastip>"
cont.BANNED
TRY cont.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.REMOVE
ENDIF
ENDFOR
timer 15
RETURN 1
[function teot]
events +e_teot
if !(<findid.i_teot_ctrl>)
newitem i_teot_ctrl
new.equip
endif
[function teotcheck]
LOCAL.BUSQUEDA=<EVAL (<SRC.FINDLAYER.21.COUNT>-1)>
FOR 0 <EVAL <LOCAL.BUSQUEDA>>
IF ((<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> == 0 ) || ( <SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.AMOUNT> > 65000 )) && !(<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.UID> == 0 ) && !(<SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.dispid> == i_gold)
SERV.ALLCLIENTS SYSMESSAGE @55 <SRC.NAME> , <SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.NAME> dupeladigi icin banlanmistir.
SRC.BANLA
TRY SRC.FINDLAYER.21.FINDCONT.<EVAL <LOCAL._FOR>>.REMOVE
ENDIF
ENDFOR
[eof]
DENER MİSİN?