On=@login e EVENTS +E_TEOT_FIX ekleyeceksiniz.
[function amountfix]
IF !<FINDID.I_FIXER>
newitem i_fixer
act.equip=<uid>
ENDIF
[itemdef i_fixer]
id=i_deed
type=t_eq_script
on=@create
timerd=1
on=@timer
CONT.TESTING
TIMER=10
RETURN 1
[FUNCTION TESTING]
FORCONT <findlayer(21).uid>
IF (<AMOUNT>==0)
FIXREMOVE
ENDIF
ENDFOR
[FUNCTION FIXREMOVE]
TOPOBJ.GO 298,763 // Jail Place
TOPOBJ.FINDID.I_FIXER.REMOVE
TOPOBJ.EVENTS +e_shakuzjail // Jail Event
serv.log WARNING <TOPOBJ.name> [<TOPOBJ.account>] use dupe bug. Fucking TEOT !
serv.allclients sysmessage @0790 <TOPOBJ.name> isimli player zararli program kullandigi icin serverdan uzaklastirildi !
[EVENTS E_TEOT_FIX]
ON=@LOGIN
amountfix
ON=@LOGOUT
argn1=11
RETURN 1
ON=@DEATH
FORCONT <findlayer(21).uid>
IF (<AMOUNT>==0)
FIXREMOVE
ENDIF
ENDFOR
ON=@ItemClick
IF (<ACT.AMOUNT>==0) && (<ACT.TYPE>!=t_corpse)
ACT.REMOVE
ENDIF
ON=@ItemDClick
IF (<ACT.AMOUNT>==0) && (<ACT.TYPE>!=t_corpse)
ACT.REMOVE
ENDIF
ON=@ItemEQUIP
IF (<ACT.AMOUNT>==0)
ACT.REMOVE
ENDIF
ON=@ItemDropON_Ground
IF (<ACT.AMOUNT>==0)
ACT.REMOVE
ENDIF
ON=@ItemDropOn_Self
IF (<ACT.AMOUNT>==0)
ACT.REMOVE
ENDIF
ON=@ItemDropOn_Pack
IF (<ACT.AMOUNT>==0)
ACT.REMOVE
ENDIF
ON=@ITEMDROPON_CHAR
IF (<ACT.AMOUNT>==0)
ACT.REMOVE
ENDIF
ON=@DROPON_CHAR
IF (<ACT.AMOUNT>==0)
ACT.REMOVE
ENDIF
ON=@ItemPICKUP_GROUND
IF (<ACT.AMOUNT>==0)
ACT.REMOVE
ENDIF
ON=@ItemPICKUP_PACK
IF (<ACT.AMOUNT>==0)
ACT.REMOVE
ENDIF
ON=@ITEMTARGON_ITEM
if (strmatch(t_weapon*,<act.type> )
if (<targ.type>==t_corpse) && (<targ.link>==04FFFFFFF)
return 0
elif (<targ.type>==t_fish)
return 0
else
src.sysmessage you cant do that
return 1
endif
endif
[TYPEDEF t_eq_vendor_box]
ON=@DROPON_SELF
OBJ <ARGO.UID>
IF <OBJ.AMOUNT>==0
OBJ.REMOVE
ENDIF
IF <OBJ.TYPE>==T_GOLD
SRC.SYSMESSAGE @026 Yapamazsiniz ...
RETURN 1
ENDIF
IF <OBJ.TYPE>==T_CONTAINER
SRC.SYSMESSAGE @026 Yapamazsiniz ...
RETURN 1
ENDIF
IF <OBJ.VALUE>==0
SRC.SYSMESSAGE @026 Lutfen bir yetkili cagirin .
RETURN 1
ENDIF
ON=@DEATH
FORCONT <findlayer(21).uid>
IF (<AMOUNT>==0)
FIXREMOVE
ENDIF
ENDFOR
2.cisi
[function amountfix]
IF !<FINDID.I_FIXER>
newitem i_fixer
act.equip=<uid>
ENDIF
[itemdef i_fixer]
id=i_deed
name=teot fix
type=t_eq_script
on=@create
timerd=1
on=@timer
CONT.TESTING
TIMER=10
RETURN 1
[FUNCTION TESTING]
FORCONT <findlayer(21).uid>
IF (<AMOUNT>==0)
//src.go 5454,1119,0
FIXREMOVE
ENDIF
ENDFOR
[FUNCTION FIXREMOVE]
//TOPOBJ.KILL // buger
TOPOBJ.stone=1
TOPOBJ.t.remove
TOPOBJ.kick=1
TOPOBJ.go 5452,1131,0
TOPOBJ.title TEOT YAPTI
Serv.allclients sysmessage=@0846,,1 <TOPObj.name> teot kullandigi icin serverdan banlanmistir ...
serv.log WARNING <TOPOBJ.name> [<TOPOBJ.account>] use dupe bug. Fucking TEOT !
[EVENTS E_TEOT_FIX]
ON=@LOGIN
amountfix
ON=@LOGOUT
TESTING
ON=@DEATH
TESTING
ON=@ItemDClick
IF (<ACT.AMOUNT>==0) && (<ACT.TYPE>!=t_corpse)
ACT.REMOVE
ENDIF
ON=@ItemPICKUP_PACK
IF (<ACT.AMOUNT>==0)
ACT.REMOVE
ENDIF
[TYPEDEF t_eq_vendor_box]
ON=@DROPON_SELF
OBJ <ARGO.UID>
IF <OBJ.TYPE>==T_CONTAINER
SRC.SYSMESSAGE @026 Yapamazsiniz ...
RETURN 1
ENDIF
[events e_tteot]
src.speech spk_teot
src.sysmessage @0492 Tt ...
[speech spk_teot]
ON=*#rename*
ON=*@rename*
ON=*#atack*
ON=*@atack*
ON=*#charstats*
ON=*@charstats*
ON=*#xinfo*
ON=*@xinfo*
ON=*#hackbook*
ON=*@hackbook*
ON=*#hackbb*
ON=*@hackbb*
ON=*#bankhack
ON=*@bankhack*
ON=*#dye **
ON=*@dye*
ON=*#vendorhack*
ON=*@vendorhack*
src.sysmessage Teot kullanmak yasaktir ...
src.stone
return 1
