kufur.scp
Kod:
[plevel 1]
ihbar
[function ihbar]
kufur
[function kufur]
src.SYS_BEYAZ Küfür eden kişiyi seçin.
targetf f_kufur
[function f_kufur]
if !<argo.isplayer>
src.SYS_KIRMIZI Seçtiğiniz nesne oyuncu olmalı.
//elif <argo.uid>==<src.uid>
//src.smsh Kendinizi seçemezsiniz.
//elif <argo.account.plevel> > 1
// src.SYS_KIRMIZI Yetkilileri seçemezsiniz.
else
src.SYS_BEYAZ <argo.name> isimli oyuncunun kufur ettiğinini düşünüyorsunuz. Şikayetiniz iletildi.
serv.newitem i_deed_kufur
new.tag.y <argo.tag.x>
new.tag.z <argo.uid>
new.tag.bildirici <src.uid>
new.tag.tarihi <serv.rtime>
new.tag.bolgesi <region.name>
new.attr 010
new.cont 01ff2
endif
[itemdef i_deed_kufur]
id i_deed
name kufur deed
on @Create
color 066d
on @DClick
sdialog d_kufurarayuz
[dialog d_kufurarayuz]
50,50
nomove
local.renk <def.bfont_dred>
makebg 50,50,350,380
dhtmlgump 70 70 250 25 0 0 Küfür eden: <local.renk><uid.<tag.z>.name>
dhtmlgump 70 95 250 25 0 0 Küfürü bildiren: <local.renk><uid.<tag.bildirici>.name>
dhtmlgump 70 120 250 25 0 0 Küfür tarihi: <local.renk><tag.tarihi>
dhtmlgump 70 145 250 25 0 0 Küfür bölgesi: <local.renk><tag.bolgesi>
dhtmlgump 70 190 240 100 0 1 <def.bfont_black>Son sözcükler:<def.br><local.renk><tag.y>
menubutton 70, 310, 1, Küfür edeni jaille.
menubutton 70, 330, 2, Küfür bildireni uyar.
menubutton 70, 350, 4, Küfür edeni uyar.
menubutton 70, 370, 3, Bildiriyi sil.
[dialog d_kufurarayuz button]
on 1
try uid.<tag.bildirici>.notice <tag.tarihi> tarihinde, <uid.<tag.z>.name> adlı oyuncu için yaptığınız küfür bildiriniz tarafımıza ulaşmış ve oyuncu cezalandırılmıştır.
try uid.<tag.z>.notice <uid.<tag.bildirici>.name> tarafından, <tag.tarihi> tarihinde, <tag.bolgesi> bölgesinde küfür ettiğinize dair aldığımız bilgi tarafımıza iletilmiş olup, cezalandırılmanız uygun görülmüştür. Ceza almanıza sebep olan son sözcükleriniz, <tag.y>.
try uid.<tag.z>.go jail
try uid.<tag.z>.events +e_hapis
serv.newitem i_hapis
new.equip
new.timer 14400
new.cont <tag.z>
src.SYS_KIRMIZI Küfür eden oyuncuya ceza verilmiştir.
remove
on 2
try uid.<tag.bildirici>.notice <tag.tarihi> tarihinde, <uid.<tag.z>.name> adlı oyuncu için yaptığınız küfür bildiriniz tarafımıza ulaşmış ve asılsız olduğu tespit edilmiştir. Bu durumu tekrarlamanız halinde jail cezasıyla cezalandırılacaksınız.
src.SYS_KIRMIZI Küfür bildiren oyuncu asılsız bildiriden uyarılmıştır.
remove
on 3
src.SYS_KIRMIZI Küfür bildirisi silinmiştir.
remove
on 4
try uid.<tag.z>.notice <uid.<tag.bildirici>.name> tarafından, <tag.tarihi> tarihinde, <tag.bolgesi> bölgesinde, <tag.y> kelimelerinizin arasında bulunan küfürlerinizden dolayı uyarılıyorsunuz. Tekrarlanması halinde jail, 3 kez tekrarlamanız halinde accountunuz kapatılacaktır.
src.SYS_KIRMIZI Küfür eden uyarıldı.
[function ARRAYCOUNT]
return <eval <argv>>
[FUNCTION ARRAY]
LOCAL.text <EXPLODE {},<args>>
LOCAL.id <result 3,<local.text>>
LOCAL.type <result 4,<local.text>>
LOCAL.argv <eval <argv> -1>
IF STRREGEX(^self+$,<LOCAL.type>)
LOCAL.return <result <eval <LOCAL.id> + 4>,<LOCAL.text>>
LOCAL.return <EXPLODE =,<LOCAL.return>>
LOCAL.return <result 2,<LOCAL.return>>
ELSEIF STRREGEX(^value+$,<LOCAL.type>)
LOCAL.return <result <eval <LOCAL.id> + 4>,<LOCAL.text>>
LOCAL.return <EXPLODE =,<LOCAL.return>>
LOCAL.return <result 3,<LOCAL.return>>
LOCAL.return <STREAT <EXPLODE .,<LOCAL.return>>>
ELSEIF STRREGEX(^loop+$,<LOCAL.type>)
FOR <eval <LOCAL.id> + 4> <eval <LOCAL.argv> + 4>
LOCAL.return .= ,<result <LOCAL._for>,<LOCAL.text>>
ENDFOR
LOCAL.return <STREAT <STREAT <EXPLODE .,<LOCAL.return>>>>
ELSEIF STRREGEX(^back+$,<LOCAL.type>)
LOCAL.return <result <eval <LOCAL.id> + 4>,<LOCAL.text>>
FOR <eval <LOCAL.id> + 3> 5
LOCAL.return .= ,<result <LOCAL._for>,<LOCAL.text>>
ENDFOR
LOCAL.return <STREAT <EXPLODE .,<LOCAL.return>>>
ELSEIF STRREGEX(^[0-9]+$,<LOCAL.type>)
LOCAL.return <result <eval <LOCAL.id> + 4>,<LOCAL.text>>
LOCAL.return <EXPLODE =,<LOCAL.return>>
LOCAL.return <result 3,<LOCAL.return>>
LOCAL.return <EXPLODE .,<LOCAL.return>>
LOCAL.return <result <eval <LOCAL.type> + 1>,<LOCAL.return>>
ELSEIF STRREGEX(^[a-z0-9]+$,<LOCAL.type>)
LOCAL.to <STREAT <EXPLODE to,<LOCAL.type>>>
FOR <eval <LOCAL.id> + 4> <eval <LOCAL.to> + 4>
LOCAL.return .= ,<result <LOCAL._for>,<LOCAL.text>>
ENDFOR
LOCAL.return <STREAT <STREAT <EXPLODE .,<LOCAL.return>>>>
ENDIF
IF STRREGEX(^[a-z0-9]+$,<LOCAL.return>)
RETURN <dLOCAL.return>
ENDIF
RETURN <LOCAL.return>
[FUNCTION result]
RETURN <argv[<argv[0]>]>
sphere_speech kısmı
Kod:
[SPEECH spk_player]
ON=*
if (strmatch('<tag.x>',''))
tag.x =<args>
else
tag.x .=,<args>
endif
if (<arraycount <tag.x>> > 10)
tag.x =<array {<eval <arraycount <tag.x>>-10>,loop}<TAG.x>>
endif
Konsolda çıkanlar
Kod:
22:04:3:'ASD' Says UNICODE 'TRK' 'wddwq' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'd' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'qw' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'd' mode=0
22:04:ERROR:(kufur.scp,118)Undefined symbol 'loop'
22:04:3:'ASD' Says UNICODE 'TRK' 'qwd' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'qw' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'fw' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'qg' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'q' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'g' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'q' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'wd' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'qw' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'fqw' mode=0
22:04:ERROR:(kufur.scp,118)Undefined symbol 'loop'
22:04:3:'ASD' Says UNICODE 'TRK' 'gf' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'q' mode=0
22:04:3:'ASD' Says UNICODE 'TRK' 'gwgq' mode=0
22:04:1:'Spreadblood' Says UNICODE 'TRK' 'dqwdqwd' mode=0
22:04:1:'Spreadblood' Says UNICODE 'TRK' 'qwd' mode=0
22:04:1:'Spreadblood' Says UNICODE 'TRK' 'qw' mode=0
22:04:1:'Spreadblood' Says UNICODE 'TRK' 'fq' mode=0
22:04:1:'Spreadblood' Says UNICODE 'TRK' 'fq' mode=0
22:04:1:'Spreadblood' Says UNICODE 'TRK' 'wfqwgqwgqw' mode=0
22:04:1:'Spreadblood' Says UNICODE 'TRK' 'dqwd' mode=0
22:04:ERROR:(kufur.scp,118)Undefined symbol 'loop'
22:04:1:'Spreadblood' Says UNICODE 'TRK' 'qwfqw' mode=0
22:04:1:'Spreadblood' Says UNICODE 'TRK' 'fqwf' mode=0
22:04:1:'Spreadblood' Says UNICODE 'TRK' 'qwf' mode=0
22:04:1:'Spreadblood' Says UNICODE 'TRK' 'qwgqwgqwg' mode=0
56b 2013 olan konsolda bu hatayı alıyorum. Ama 56b 2008'de bu hatayı almıyordum.
Ayrıca konsolda oyun içinde yazılanların görünmesini engellemek mümkün mü?