Arkadaslar Script Bu add i_stone_kfr ile stoneyi ekledim serial 04000158f .kufur yazınca .kfr komutuyla stafflar bakamıyor bu seriali nereye yazmam lazım? xxxxx yazan yere seriali yazınca .kfr komutu calısmıyor
[defname kufursys]
kufurtas xxxxx
[plevel 1]
kufur
[function kfr]
if !(<uid.<def.kufurtas>.rescount>)
src.sysmessage @,,1 Herhangi bir şikayet yok.
return 1
endif
if (<src.tag0.kfrsecili>)
try uid.<src.tag.kfruid>.sdialog d_kufur_kayit
return 1
endif
try uid.<def.kufurtas>.sdialog d_kufur_list
[itemdef i_stone_kfr]
name Kufur Box
id i_basket_square
type t_container
weight 2000
tdata2 03f
On=@Create
attr attr_move_never
dispid i_grave_stone
on=@dclick
return 1
On=@PickUp_Ground
return 1
[function kufur]
if (<eval <uid.<def.kufurtas>.rescount>>==50)
src.sysmessage @,,1 Sikayet kutusu dolmus durumda..
return 1
endif
if (<src.isevent.e_jailm>) || (<src.isevent.e_action_yasak>)
src.sysmessage @,,1 Bu durumda kullanamazsın!
return 1
endif
if (<src.findid.i_kufur_delay>)
src.sysmessage @,,1 Tekrar şikayette bulunmak için bir müddet beklemelisiniz.
return 1
endif
src.findid.i_kufur_Sec.remove
src.findid.i_kufur_Sec.remove
src.sysmessage @38,,1 Gereksiz yere kullananlarin kendileri cezalandirilacaktir..
serv.newitem i_kufur_sec
new.equip
[itemdef i_kufur_delay]
id i_memory
name Kufur Delay
type t_eq_Script
on=@equip
timer 60*5
cont.sysmessage @1936,,1 5dk boyunca kufur şikayetinde bulunamayacaksınız.
on=@timer
remove
return 1
[itemdef i_kufur_sec]
id i_memory
name Kufur sikayet
type t_eq_script
weight 0
on=@equip
target @1936,,1 Kufur ettigini belirttiginiz kisiyi secin.
timer 10
on=@timer
remove
return 1
on=@targon_item
return 1
on=@targon_ground
return 1
on=@targon_char
if <src.targ.npc>
src.sysmessage @1100,,1 Sadece Playerlar icin...
return 1
elseif (<src.targ.uid>==<src.uid>)
src.sysmessage @1100,,1 Kendinizi secemezsiniz...
return 1
elseif (<src.targ.account.plevel> > 1)
src.sysmessage @1100,,1 Staff uyelerini secemezsiniz.
return 1
elseif (<src.targ.isevent.e_jailm>)
src.sysmessage @1100,,1 Zaten ceza verilmis durumda..
src.tag.kfruid
src.tag.kfrsecili
return 1
elseif (<src.targ.findid.i_kufur_kaydet>)
src.sysmessage @1100,,1 Bu kisi zaten kayit altinda..
return 1
endif
src.sysmessage @1936,,1 <src.targ.name>'in yazdıkları 1 dk boyunca kayıta alınacak.
serv.newitem i_kufur
new.cont <def.kufurtas>
new.tag.kfrskyteden <src.uid>
new.tag.kfreden <src.targ.uid>
new.tag.kfrtarih <serv.rtime>
local.kufur <new.uid>
serv.newitem i_kufur_kaydet
src.targ.equip <new>
new.tag.kufur <local.kufur>
serv.newitem i_kufur_delay
new.equip
return 1
[function kfr_announce]
if (0<account.plevel> > 1)
sysmessage @1936,,1 Kufur Sistemi: Yeni bir Sikayet var! Uygulama icin 1dk bekleyin.
endif
[itemdef i_kufur]
name Kufur
id i_book_open
type t_script
weight 0
On=@Create
attr attr_invis|attr_move_never
[dialog d_kufur_list]
0,0
nomove
resizepic 30 50 3500 600 570
resizepic 35 55 3000 590 560
dtext 200 60 200 <serv.name> Kufur Kontrol Sistemi
dhtmlgump 100 80 400 20 0 0 <def.bfont_black>Şikayet Edilen - Şikayet Tarihi - Şikayet Eden
Page 1
if <rescount>
dorigin 50 80
if (<eval <rescount>> <11)
for 1 <rescount>
button *0 *40 4005 4006 1 0 <eval <local._for>>
dhtmlgump +40 - 500 20 0 0 <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(OFF)><def.BFONT_BLACK>- <findcont.<eval <local._for>-1>.tag0.kfrtarih> - <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(OFF) > <def.br>
endfor
else
button 500 582 57 59 0 2 0
dtext 540 580 100 Next
for 1 10
button *0 *40 4005 4006 1 0 <eval <local._for>>
dhtmlgump +40 - 500 20 0 0 <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(OFF)><def.BFONT_BLACK>- <findcont.<eval <local._for>-1>.tag0.kfrtarih> - <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(OFF) > <def.br>
endfor
endif
endif
Page 2
dorigin 50 80
button 400 582 57 59 0 1 0
dtext 440 580 100 Back
if (<eval <rescount>> <21)
for 11 <rescount>
button *0 *40 4005 4006 1 0 <eval <local._for>>
dhtmlgump +40 - 500 20 0 0 <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(OFF)><def.BFONT_BLACK>- <findcont.<eval <local._for>-1>.tag0.kfrtarih> - <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(OFF) > <def.br>
endfor
else
button 500 582 57 59 0 3 0
dtext 540 580 100 Next
for 11 20
button *0 *40 4005 4006 1 0 <eval <local._for>>
dhtmlgump +40 - 500 20 0 0 <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(OFF)><def.BFONT_BLACK>- <findcont.<eval <local._for>-1>.tag0.kfrtarih> - <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(OFF) > <def.br>
endfor
endif
endif
Page 3
dorigin 50 80
button 400 582 57 59 0 2 0
dtext 440 580 100 Back
if (<eval <rescount>> <31)
for 21 <rescount>
button *0 *40 4005 4006 1 0 <eval <local._for>>
dhtmlgump +40 - 500 20 0 0 <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(OFF)><def.BFONT_BLACK>- <findcont.<eval <local._for>-1>.tag0.kfrtarih> - <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(OFF) > <def.br>
endfor
else
button 500 582 57 59 0 4 0
dtext 540 580 100 Next
for 21 30
button *0 *40 4005 4006 1 0 <eval <local._for>>
dhtmlgump +40 - 500 20 0 0 <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(OFF)><def.BFONT_BLACK>- <findcont.<eval <local._for>-1>.tag0.kfrtarih> - <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(OFF) > <def.br>
endfor
endif
endif
Page 4
dorigin 50 80
if (<eval <rescount>> <31)
for 31 <rescount>
button *0 *40 4005 4006 1 0 <eval <local._for>>
dhtmlgump +40 - 500 20 0 0 <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(OFF)><def.BFONT_BLACK>- <findcont.<eval <local._for>-1>.tag0.kfrtarih> - <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(OFF) > <def.br>
endfor
else
button 500 582 57 59 0 5 0
dtext 540 580 100 Next
for 31 40
button *0 *40 4005 4006 1 0 <eval <local._for>>
dhtmlgump +40 - 500 20 0 0 <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(OFF)><def.BFONT_BLACK>- <findcont.<eval <local._for>-1>.tag0.kfrtarih> - <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(OFF) > <def.br>
endfor
endif
endif
button 400 582 57 59 0 3 0
dtext 440 580 100 Back
Page 5
dorigin 50 80
for 41 <rescount>
button *0 *40 4005 4006 1 0 <eval <local._for>>
dhtmlgump +40 - 500 20 0 0 <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfreden>.name>(OFF)><def.BFONT_BLACK>- <findcont.<eval <local._for>-1>.tag0.kfrtarih> - <qval <uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.isonline> ? <def.BFONT_green><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(ON) : <def.BFONT_red><uid.<findcont.<eval <local._for>-1>.tag0.kfrskyteden>.name>(OFF) > <def.br>
endfor
button 400 582 57 59 0 4 0
dtext 440 580 100 Back
[dialog d_kufur_list text]
[dialog d_kufur_list button]
on 1 50
if (<uid.<findcont.<eval <argn>-1>>.tag0.secili>) && (<uid.<uid.<findcont.<eval <argn>-1>>.tag0.secen>.isonline>)
if (<uid.<findcont.<eval <argn>-1>>.tag0.secen>!=<src.uid>)
src.sysmessage @,,1 Bu şikayet ile <uid.<uid.<findcont.<eval <argn>-1>>.tag0.secen>.name> ilgilenmekte..
return 1
endif
endif
try uid.<findcont.<eval <argn>-1>>.sdialog d_kufur_kayit
try uid.<findcont.<eval <argn>-1>>.tag.secili 1
try uid.<findcont.<eval <argn>-1>>.tag.secen <src.uid>
src.tag.kfrsecili 1
src.tag.kfruid <findcont.<eval <argn>-1>>
[dialog d_kufur_kayit]
0,0
nomove
resizepic 30 70 3500 600 550
resizepic 460 100 3000 160 170
dhtmlgump 470 100 150 20 0 0 <def.bfont_big><def.bfont_black>Şikayet Edilen:
dhtmlgump 470 120 150 20 0 0 <def.bfont_big><def.bfont_red><uid.<tag0.kfreden>.name>
dhtmlgump 470 140 150 20 0 0 <qval <uid.<tag0.kfreden>.isonline> ? <def.bfont_green> Online : <def.bfont_red> Offline>
dhtmlgump 470 200 150 20 0 0 <def.bfont_big><def.bfont_black>Şikayet Eden:
dhtmlgump 470 220 150 20 0 0 <def.bfont_big><def.bfont_red><uid.<tag0.kfrskyteden>.name>
dhtmlgump 470 240 150 20 0 0 <qval <uid.<tag0.kfrskyteden>.isonline> ? <def.bfont_green> Online : <def.bfont_red> Offline>
button 470 300 4005 4006 1 0 1
dtext 500 300 100 Git
button 470 330 4005 4006 1 0 2
dtext 500 330 100 Getir
button 470 360 4005 4006 1 0 3
dtext 500 360 100 Sikayeti Birak
button 470 390 4005 4006 1 0 4
dtext 500 390 100 Ceza Ver
button 470 420 4005 4006 1 0 5
dtext 500 420 100 Men Et
button 470 450 4005 4006 1 0 6
dtext 500 450 100 Uyari Gonder
dtext 500 480 200 Sikayet Eden:
button 470 500 4005 4006 1 0 8
dtext 500 500 100 Git
button 470 530 4005 4006 1 0 9
dtext 500 530 100 Uyari Gonder
button 470 580 4005 4006 1 0 7
dtext 500 580 100 Iptal Et(Sil)
dhtmlgump 50 80 400 530 0 1 Kayıt Başlama Tarihi: <def.bfont_red><tag0.kfrtarih><def.bfont_black><def.br><tag0.rapor>
[dialog d_kufur_kayit text]
[dialog d_kufur_kayit button]
on 1
src.gouid <tag0.kfreden>
on 2
try uid.<tag0.kfreden>.summonto
on 3
tag.secili
tag.secen
src.tag.kfrsecili
src.tag.kfruid
on 4
//return 1
ref1 <tag.kfreden>
if (<ref1.isevent.e_jailm>)
src.sysmessage Zaten ceza verilmis durumda..
src.tag.kfrsecili
src.tag.kfruid
remove
ref1.findid.i_kufur_kaydet.remove
return 1
endif
ref1.tag0.jail_4 += 1
ref1.go jail7
serv.newitem i_jail_item
new.more <eval (3600*6)*<ref1.dtag0.jail_4>>
new.tag.ceza Hakaret/Küfür
new.morey 4
ref1.equip <new>
ref1.sys_trk <src.name> tarafından cezalı bulundunuz.
serv.b @,,1 <ref1.name> isimli kisi Hakaret sucundan ceza aldi!
src.tag.kfruid
src.tag.kfrsecili
serv.writefile logs/kufur/kufur.scp Tarih : <serv.rtime> Ceza Veren : <src.name>(<src.account>) Ceza Goren: <obj.name>(<obj.account>)
serv.writefile logs/kufur/kufur.scp Sebep: <tag0.rapor>
remove
return 1
on 5
ref1 <tag.kfreden>
if !(<ref1.isonline>)
src.sysmessage @,,1 <ref1.name> oyundan cikmis durumda. Bu durumda men edemezsiniz..
return 1
endif
if (<ref1.isevent.e_jailm>)
src.sysmessage Zaten ceza verilmis durumda..
remove
return 1
endif
if (<ref1.tag0.menedilmesayisi>)
ref1.tag.menedilmesayisi (<eval <ref1.tag0.menedilmesayisi>> + 1)
else
ref1.tag.menedilmesayisi 1
endif
ref1.events +e_action_yasak
src.newitem i_men_etme_end
new.timer=600+(<eval 60*<src.targ.tag0.menedilmesayisi>>)
ref1.equip <new>
serv.allclients sys_trk <ref1.name> isimli oyuncu actionlardan men edilmistir.
serv.writefile log/kufur/men.scp Tarih : <serv.rtime> Ceza Veren : <src.name>(<src.account>) Ceza Goren: <ref1.name>(<ref1.account>)
serv.writefile log/kufur/men.scp Sebep: <tag0.rapor>
remove
src.tag.kfruid
src.tag.kfrsecili
return 1
on 6
ref1 <tag0.kfreden>
if !(<ref1.isonline>)
src.sysmessage @,,1 <ref1.name> oyundan cikmis durumda. Bu durumda uyari yollayamazsiniz...
return 1
endif
try ref1.findid.i_kfr_messager.remove
serv.newitem i_kfr_messager
ref1.equip <new>
new.timer 1
try ref1.findid.i_kufur_kaydet.remove
src.tag.kfruid
src.tag.kfrsecili
remove
on 7
try uid.<tag0.kfreden>.findid.i_kufur_kaydet.remove
src.tag.kfruid
src.tag.kfrsecili
remove
on=8
src.gouid <tag0.kfrskyteden>
on=9
if !(<uid.<tag0.kfrskyteden>.isonline>)
src.sysmessage @,,1 <uid.<tag.kfrskyteden>.name> oyundan cikmis durumda. Bu durumda uyari yollayamazsiniz...
return 1
endif
try uid.<tag0.kfrskyteden>.findid.i_kfr_messager.remove
serv.newitem i_kfr_messager
try uid.<tag0.kfrskyteden>.equip <new>
new.more1 1
new.timer 1
try uid.<tag0.kfreden>.findid.i_kufur_kaydet.remove
src.tag.kfruid
src.tag.kfrsecili
remove
[itemdef i_kfr_messager]
name Kfr Uyari
id i_book_open
type t_eq_script
weight 0
On=@Create
attr attr_invis|attr_move_never|attr_newbie
On=@UnEquip
sdialog d_kfr_uyari
On=@Timer
remove
return 1
[dialog d_kfr_uyari]
0,0
nomove
noclose
nodispose
page 1
button 15 15 30 30 0 2 1
page 2
resizepic 50 50 5120 337 235
button 362 62 3 4 1 0 0
dhtmlgump 63 60 250 20 0 0 <def.bfont_white>Uyari Mesajiniz Var!
dhtmlgump 63 80 250 20 0 0 <def.bfont_white>Gonderen: <serv.name> Staff Personel
dhtmlgump 63 100 250 20 0 0 <def.bfont_white>Tarih: <serv.rtime>
if !(<more1>)
dhtmlgump 65 130 310 130 1 0 Kufur veya hakaret ettiginize dair sikayet edildiniz. Sikayet incelendi ve uyarildiniz. Dikkatli olmamaniz durumunda ceza yiyebilirsiniz..
else
dhtmlgump 65 130 310 130 1 0 <def.bfont_black>Kufur sistemini gereksiz yere kullandığınız farkedildi. Bu sefer uyarildiniz. Tekrarında ise ceza almanız muhtemeldir..
endif
[dialog d_kfr_uyari text]
[dialog d_kfr_uyari button]
[itemdef i_kufur_kaydet]
id i_memory
type t_eq_script
name Kufur Kaydetme
on=@equip
timer 60
on=@timer
serv.allclients kfr_announce
remove
return 1
[events e_action_yasak]
ON=@CLICK
MESSAGE @0482 Yasak Sure : <eval(<findid.i_men_etme_end.timer>/60)> Dk
ON=@HIT
sysmessage @037 Gecici Sure Action'dan men edilmissiniz
return 1
ON=@SPELLCAST
sysmessage @037 Gecici Sure Action'dan men edilmissiniz
src.f_fizzle
return 1
[function men]
if (strmatch(<args>,et))
serv.newitem i_men_etme
new.equip
elseif (strmatch(<args>,kaldir))
if (<account.plevel> < 5)
sysmessage Affetmek? <src.name>?
else
serv.newitem i_men_kaldir
new.equip
endif
else
src.sysh_Trk Bu komut tek basina kullanilamaz. men et veya men kaldir ...
endif
[itemdef i_men_etme]
id=i_memory
type=t_eq_script
name=Action men
on=@equip
target
src.sys_trk Men edeceğiniz kişiyi seçin..
timer 20
on=@targon_char
if !(<src.targ.isplayer>)
src.sysh_trk Yalnız Playerlar!
return 1
remove
endif
if (<src.targ.account.plevel> > 1)
src.sysh_trk Staff ve men?
remove
return 1
endif
src.targ.events +e_action_yasak
serv.newitem i_men_etme_end
if (<src.targ.tag0.menedilmesayisi>)
src.targ.tag.menedilmesayisi (<eval <src.targ.tag0.menedilmesayisi>> + 1)
new.timer=600+(60*<src.targ.tag0.menedilmesayisi>)
else
src.targ.tag.menedilmesayisi 1
new.timer=600
endif
//src.targ.equip <new>
new.cont <src.targ.uid>
region.allclients sys_trk <src.targ.name> isimli oyuncu actionlardan men edilmistir.
remove
return 1
on=@timer
remove
return 1
[itemdef i_men_etme_end]
id=i_memory
type=t_eq_script
name=Actionlarda men etme bea
on=@create
timer=0
on=@timer
cont.events -e_action_yasak
cont.sys_trk Actionlardan men edilme sureniz sona erdi.
attr attr_decay
remove
return 1
[itemdef i_men_kaldir]
id=i_memory
type=t_eq_script
name=men kaldir
on=@create
timer=10
on=@equip
src.sys_trk Men cezasını kaldırmak istediğiniz kişiyi seçin..
target
return 1
on=@targon_char
if (<src.targ.findid.i_men_etme_end>)
src.targ.findid.i_men_etme_end.remove
src.targ.events -e_action_yasak
src.targ.sys_trk Men cezanız kaldırılmıştır..
return 1
else
src.sysh_trk Seçtiğiniz kişi cezalı değil..
endif
return 1
on=@timer
remove
return 1
[EOF]
