Üye ol    Giriş
  1. Forumlar
  2. Oyunlar
  3. Ultima Online
  4. Sphere Scripting
  5. Küfür sistemi niye çalışmıyor ya??

Küfür sistemi niye çalışmıyor ya??




PoliceX üyesi avatar
PoliceX
Banned
-1 

[function kufur]
newitem i_h_dec
act.p
act.timer 5*60
var.rm 31
rm **Kufur dedektoru aktif

[ITEMDEF i_h_dec]
DEFNAME=i_crystal_of_com_t1
NAME=Hakaret Dedektor
ID=I_CRYSTAL_RED
TYPE=T_COMM_CRYSTAL
VALUE=81
WEIGHT=1

ON=@Create
COLOR=0800
attr=attr_invis|attr_move_never
sPEECH=spk_hakaret

on=@timer
remove
return 1

[SPEECH spk_hakaret]
ON=*lavuk*
ON=*siktir*
ON=*malak*
ON=yalarim*
ON=*sik kafa*
ON=*amc*k*
ON=*sikin*
ON=*siksin*
ON=*sikiyim*
ON=*sikerim*
ON=*sokam*
ON=*orospu*
ON=*siktir*
ON=*ibne*
ON=*am*na koy*m*
ON=*yav*ak*
ON=gotune
ON=travesti*
ON=fuck*
ON=*kodugumun*
ON=*siktiim*
ON=*korum
ON=anan*
ON=*g*t o*lan*
ON=*onun bunun*
ON=*siktir*
ON=*hasiktir*
ON=*g*tveren*
ON=*vajina*
ON=*na kodumun evlad*
src.kufurbaz
src.tag.kufur

[function kufurbaz]
if 
return 1
endif
if (0 jailme kufur 
ar.rm 31
var.jail 1
s kufur ettigi icin jaila atildi ettigi kufur " "
var.jail 0 
src.message Kufur ettiginiz tespit edildi Hapise gidiyorsunuz.
serv.allclients sysmessage Kufur dedektoru ile jaillandi. 
else 
say Yakalandi 
endif 
[EOF]
  • 2008-03-29 16:26
  • #1
Rexnort üyesi avatar
Rexnort
Members
1.5
Al Böyle Yap %100 Calısır Hata Arama :)
[SPEECH spk_player]
ON=*siktir*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*sik kafa*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*amc*k
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*sikin*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*siksin*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*sikiyim*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*sikerim*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*orospu*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*am*na koy*m*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=gotune
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=fuck*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*kodugumun*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*siktiim*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=anan*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*got o*lan*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*siktir*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*hasiktir*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*g*tveren*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*vajina*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*na kodumun evlad*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*yarrak*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*am*na korum*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*sikerim b*le i*i*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*amin evlad*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*g*t*n* sokam*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*beynini sikiyim*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*am*na *akam*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*beynine bo*al*r*m*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*annesi orospu*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*serefsiz*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*pezevenk*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*kerhane*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=skim*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*soktuum*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
ON=*sikim*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
on=*soktugum*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
on=*sokar*m*
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
on=zikerim
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
on=pic
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif
on=piç
If (<Account.Plevel> < 2)
	If (<Src.Findid.I_Kufurbaz>)
		Src.Sysmessage @39 Konusamiyorsun Zaten Bosuna Kufur Etme.
		Return 1 //engelle
	ElseIf !(<Src.Findid.I_Kufurbaz>) // bug için gereksiz değil !
		Src.Kufurettibengordum
		Src.Tag.Sondedigi <args>
		Src.Sysmessage @38,1,1 Kufur Ettiginiz Icin 10 Dakika Ceza Aldiniz.
		Serv.Allclients Sysmessage @0bb6,3 <Src.Name> Kufur Ettigi Icin 10 Dakika Ceza Aldi.
		Return 1
	Endif

ON=*
If (<src.findid.i_kufurbaz>)
src.sysmessage @080a Su an Konusma Yasaginiz Var.
return 1
endif
If (<src.action> == skill_magery)
src.sysmessage @38,1,1 Buyu Atarken Yazi Yazamazsiniz.
return 1
endif


ON=I must consider my sins

ON=I exit to guild

ON=I exit to city

ON=Guard help *
ON=Guards*
ON=Help Guards*
	// trying to call guards for help.


[function sondedigi]
src.sysmessage @0401,,1 Kime Bakicaksiniz ?
xsondedigin

[function sondedigin]
src.sysmessage @54,,1 Ettigi Kufur : <tag.sondedigi>

[function kufuraf]
xkufuraffsa
src.sysmessage @077a,3 Kimi Affediceksiniz ?

[function kufuraffsa]
if (<findid.i_kufurbaz>)
findid.i_kufurbaz.remove
events -e_kufurbaz
src.sysmessage @0bb7,3 <Src.Name> Tarafindan Affedildi.
else
src.sysmessage @39 Bu Adamin Zaten Sucu Yok.
endif

[function kufurettibengordum]
serv.newitem i_kufurbaz
new.cont <uid>
new.equip
new.timer 10*60 // 10 dakika
events +e_kufurbaz
return 1

[events e_kufurbaz]
on=@click // kim uraşır dk ise dk saniye ise sn yazması için ? pyro için canımız feda .P
if (<eval <findid.i_kufurbaz.timer>> > 60)
message @07a7,3 [Konusma ve Action Men]
message @07ff,3 Kalan Sure: <eval <findid.i_kufurbaz.timer> / 60> Dakika
elseif (<eval <findid.i_kufurbaz.timer>> < 60)
message @07a7,3 [Konusma ve Action Men]
message @07ff,3 Kalan Sure: <eval <findid.i_kufurbaz.timer>> Saniye
endif
return 0

on=@gethit
return 0

on=@hittry //nereye vuruo heyy
src.sysmessage @39 Yasaklisiniz !
return 1
on=@spellcast // buyu mu ayıptır
src.sysmessage @39 Yasaklisiniz !
return 1

[itemdef i_kufurbaz]
ID=i_crystal_ball
NAME=kufurbaz
TYPE=T_EQ_SCRIPT
WEIGHT=0
LAYER=layer_special

on=@create
color 0
attr attr_decay // hata vermesin sphere&&#35039;de canlarım

on=@timer
cont.sysmessage @07a1 Yasaginiz Bitmistir.
cont.events -e_kufurbaz
cont.update
remove // sil gitsin
return 1

[SPEECH spk_pet]
// Pets that cannot talk
ON=ATTACK
return 0
ON=COME
Src.Sysmessage @1068,,1 <Name> Yaniniza Geliyor.
ON=DEFEND ME
Src.Sysmessage @080a Kapatildi.
return 1
ON=DISMISS
return 0
ON=DROP	// "GIVE" ?
return 1
ON=DROP ALL
return 0
ON=FETCH
return 0
ON=FOLLOW
return 0
ON=FOLLOW ME
Src.Sysmessage @1068,,1 <Name> Sizi Takip Ediyor
ON=FRIEND
return 1
ON=GO
if (strmatch(&&#35039;<id>&&#35039;,&&#35039;c_pv&&#35039;))
Src.Sysmessage @080a Gec O Isleri.
return 1
elseif (strmatch(&&#35039;<id>&&#35039;,&&#35039;c_pv&&#35039;))
Src.Sysmessage @080a Gec O Isleri.
return 1
endif
return 0
ON=GUARD
return 0
ON=GUARD ME
Src.Sysmessage @1068,,1 <name> Sizi Koruyor
ON=KILL
Return 0
ON=RELEASE
Src.Sysmessage @080a Bu Komut Kapatildi.
return 1
ON=SPEAK
return 0
ON=STAY
Src.Sysmessage @1068,,1 <name> Bekliyor.
ON=STAY HERE
Src.Sysmessage @1068,,1 <name> Bekliyor.
ON=STOP
Src.Sysmessage @1068,,1 <name> Duruyor.
return 1

[SPEECH spk_hireling]
// Pets that can talk.
ON=ATTACK
ON=BOUGHT
ON=CASH
ON=COME
ON=DEFEND ME
ON=DISMISS
ON=DROP	// "GIVE" ?
ON=DROP ALL
ON=EQUIP
ON=EQUIP ALL
ON=FETCH
ON=FOLLOW
ON=FOLLOW ME
ON=FRIEND
ON=GET DRESSED
ON=GO
ON=GUARD
ON=GUARD ME
ON=INVENTORY
ON=KILL
ON=PRICE	// may have args ?
ON=RECIEVED
ON=RELEASE
ON=SAMPLES
ON=SPEAK
ON=STATUS
ON=STAY
ON=STAY HERE
ON=STOCK
ON=STOP
ON=SUIT UP
ON=TRANSFER
Ufakta Olsa İyiligim Dokunduysa Sevindim ;) Bunu Speech Klasorune Yapıstır Ben Tamamını Kopyaladım Yapıstırdım %100 Calısması Gerek Cunku Ben Düzenlemiştim :)
  • 2008-03-29 16:52
  • #2
PoliceX üyesi avatar
PoliceX
Banned
-1
çalışmadı !!
  • 2008-03-29 17:14
  • #3
PoliceX üyesi avatar
PoliceX
Banned
-1
aga player olarak küfür ettim ve dediklerini yaptım olmuyor !!
  • 2008-03-29 17:29
  • #4
PoliceX üyesi avatar
PoliceX
Banned
-1
ama ben bunu küfür sisteminin içine yapıştırdım?? şimdi speech klasörünün içine de yapıştırdım çalışmıyor :(
  • 2008-03-29 17:40
  • #5
PoliceX üyesi avatar
PoliceX
Banned
-1
yapıştırdım olmuyor!!
  • 2008-03-29 17:42
  • #6
Rexnort üyesi avatar
Rexnort
Members
1.5
Alla Alla 
[ITEMDEF i_jail2]
ID=i_memory
TYPE=t_eq_script
NAME=Jail


ON=@Create
ATTR attr_decay


On=@Equip
src.jail
CONT.FLAGS=<CONT.FLAGS>&~000000004
TIMER=1


ON=@Timer

if ( <cont> )
if ( <more1> )
cont.sysmessage <EVAL(<more1>)>
more1=<more1>-1
TIMER=1
return 1
else

cont.forgive
cont.go <cont.tag.sonmekan>
remove

endif
endif
return 1

[ITEMDEF i_kufurdedector]
Name=Speech
Id=i_memory
Type=t_comm_crystal
layer 99
weight 0

ON=@Create
Attr=attr_newbie
speech=spk_kufur
Type=t_eq_script

ON=@Equip
src.flags=<src.flags>|08000
type t_comm_crystal
attr <attr>|attr_newbie|attr_move_never




[SPEECH spk_kufur]
ON=*ezik*
ON=*lamer*
src.criminal 1
src.sayua 020,0,0,0 * Criminal Oldunuz *

// ON kismina kufurleri ekleyin
// * icersine alirsaniz kelime icindede kufur arar
ON=*Orospu*
ON=*Sikerim*
ON=*Amcık*


if !(<findid.i_jail2>)
src.findid.i_jail2.remove

src.sayua 020,0,0,0 * Kotu Soz Online Jail *
src.tag.kufurjail=<Eval <src.tag.kufurjail>+1>
SRC.tag.sonmekan=<src.p>


	
	SRC.NEWITEM i_jail2
	src.act.more1=(<src.tag.kufurjail>)*1800
	SRC.ACT.EQUIP

endif
Al Bunu Ekle Loginede I_Kufurdedectoru ekle Ama bunu Denemedim Kopyala Yapıstır Yaptım Yani
  • 2008-03-29 17:55
  • #7
PoliceX üyesi avatar
PoliceX
Banned
-1
aga olmadı bu arada logine ne eklicem anlamadım??
  • 2008-03-29 21:10
  • #8
Fro.By
Fro.By
Members
0
aga boşver küfür etsin millet ne gerek var oyunu kısıtllamaya zaten cp yapamıyorsun..Olmadı bekle britain bank da küfür edenlere çat .kick hadi kolay gelsin aynen devam az kaldı serverın herşeyini tamamladın valla :)
  • 2008-03-30 00:26
  • #9
PoliceX üyesi avatar
PoliceX
Banned
-1
uahzuauau :D
  • 2008-03-30 00:48
  • #10
lethal
lethal
Novice
0
Küfür engellemesi gercekten utandırıyor insani...Bu durumlara düşmemek gerekir player adina (yorumsuz)...
  • 2008-03-30 04:36
  • #11
PoliceX üyesi avatar
PoliceX
Banned
-1
bir scp yaratıp içine on=@login trgigerımı eklemem lazım??

Bu konu PoliceX tarafından düzenlendi(2008-03-30 13:21, 17 yıl önce)
  • 2008-03-30 13:01
  • #12
KadhraS
KadhraS
Novice
-14.8
55r 56b ?
  • 2008-03-30 13:16
  • #13
PoliceX üyesi avatar
PoliceX
Banned
-1
speech klasörünün içine temizlemicem dimi? :D
  • 2008-03-30 13:22
  • #14
Rexnort üyesi avatar
Rexnort
Members
1.5
Speech Klasorunde Farklı Seylerde Varsa Farklı Olanlarıda Ekle Eger Bundan Farklı Bişey Yoksa ki Olmaz Sanırım Ozaman Ac O Klasoru İçini Sil Tamamen Bunu Yapıstır. Sonra Spherede R R Yap Bir Player Charla Et Küfür
  • 2008-03-30 13:25
  • #15



Üye Ol veya Giriş Yap

Bu forum başlığına mesaj atmak istiyorsanız hemen üye olun veya giriş yapın.

Discord ile Bağlan
Twitch ile Bağlan
Steam ile Bağlan
Google ile Bağlan