Atla serveri kapıyor

[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]