Kod:
[PLEVEL 2]
kufurbildir
[FUNCTION kufurbildirim]
SRC.SDIALOG d_kufur
[FUNCTION kufur]
TARGETF _kufur
[FUNCTION _kufur]
REF1=<ARGO>
IF !(<REF1.ISPLAYER>)
SRC.SYS_HATA Sadece oyuncuları seçebilirsiniz.
ELSEIF (<REF1>==<SRC>)
SRC.SYS_HATA Kendinizi seçemezsiniz.
ELSEIF (<REF1.FINDID(i_kufur_bildirim)>)
SRC.SYS_HATA <REF1.NAME> isimli hedefte küfür bildirimi bulunuyor.
ELSE
LIST.Kufur_System_Player_Uid.Add <REF1>
LIST.Kufur_System_Time.Add <SERV.RTIME>
LIST.Kufur_System_Referans_Uid.ADD <SRC>
SERV.NEWITEM i_kufur_bildirim,1,<REF1>,1
SRC.SYS_OK <REF1.NAME> küfür bildirimine girdi.
ENDIF
[DIALOG d_kufur]
50,50
NOMOVE
RESIZEPIC 0 0 02422 210 210
LOCAL.PAGE=1
LOCAL.TOTAL=0
IF <LIST.Kufur_System_Player_Uid.COUNT>
FOR 0 <EVAL (<LIST.Kufur_System_Player_Uid.COUNT>)-1>
IF !(<UID.<LIST.Kufur_System_Player_Uid.<dLOCAL._FOR>>>) || !(<UID.<LIST.Kufur_System_Player_Uid.<dLOCAL._FOR>>.TAG0.KUFURBAZ>)
LIST.Kufur_System_Player_Uid.<dLOCAL._FOR>.REMOVE
ENDIF
ENDFOR
ENDIF
IF (<LIST.Kufur_System_Player_Uid.COUNT>)
PAGE 1
FOR 0 <EVAL (<LIST.Kufur_System_Player_Uid.Count>)-1>
IF (<dLOCAL.TOTAL> >5)
LOCAL.TOTAL=0
BUTTON 150 190 5601 5605 0 <EVAL (<LOCAL.PAGE>)+1> 1
DHTMLGUMP 170 190 40 20 0 0 İleri
LOCAL.PAGE +=1
PAGE <dLOCAL.PAGE>
BUTTON 150 190 5601 5605 0 <EVAL (<LOCAL.PAGE>)-1> 1
DHTMLGUMP 170 190 40 20 0 0 Geri
ENDIF
BUTTON 20 <EVAL (<LOCAL.TOTAL>*25)+20> 5601 5605 1 0 <EVAL <LOCAL._FOR> + 10>
DHTMLGUMP 40 <EVAL (<LOCAL.TOTAL>*25)+20> 200 20 0 0 Küfür Bildiren:<UID.<LIST.Kufur_System_Referans_Uid.<dLOCAL._FOR>>.NAME>
LOCAL.TOTAL +=1
ENDFOR
ENDIF
[DIALOG d_kufur BUTTON]
ON=1,500
SRC.sDialog d_kufur_ayrinti,0,<EVAL <ARGN> -10>
[DIALOG d_kufur_ayrinti]
50,50
NOMOVE
RESIZEPIC 0 0 02422 270 350
RESIZEPIC 0 350 02422 270 100
DHTMLGUMP 30 20 500 20 0 0 Küfürbaz : <UID.<LIST.Kufur_System_Player_Uid.<dARGV[0]>>.NAME>
DHTMLGUMP 30 40 500 20 0 0 Referans : <UID.<LIST.Kufur_System_Referans_Uid.<dARGV[0]>>.NAME>
DHTMLGUMP 30 60 500 20 0 0 Zaman : <LIST.Kufur_System_Time.<dARGV[0]>>
DHTMLGUMP 30 80 100 50 0 0 Yazıları ;
DHTMLGUMP 30 100 200 100 0 0 <UID.<LIST.Kufur_System_Player_Uid.<dARGV[0]>>.Tag0.Kufurbaz>
DHTMLGUMP 50 370 200 20 0 0 Şikayetçiyi hapis yolla
DHTMLGUMP 50 390 200 20 0 0 Şikayet edileni hapis yolla
DHTMLGUMP 50 410 200 20 0 0 Asılsız ihbar olarak işaretle
FOR 3
BUTTON 30 <EVAL (<LOCAL._FOR>*20)+350> 5601 5605 1 0 <dLOCAL._FOR>
ENDFOR
SRC.CTAG0.NUM <ARGV[0]>
[DIALOG d_kufur_ayrinti BUTTON]
ON=1
IF (<UID.<LIST.Kufur_System_Referans_Uid.<SRC.dCTAG0.NUM>>>)
REF5=<LIST.Kufur_System_Referans_Uid.<SRC.dCTAG0.NUM>>
REF5.GO Jail
ELSE
Kufur_Sil <SRC.dCTAG0.NUM>
SRC.SYS_OK Böyle bir kullanıcı olmadığı için şikayet silindi.
ENDIF
ON=2
IF (<UID.<LIST.Kufur_System_Player_Uid.<SRC.dCTAG0.NUM>>>)
REF5=<LIST.Kufur_System_Player_Uid.<SRC.dCTAG0.NUM>>
REF5.GO Jail
ELSE
Kufur_Sil <SRC.dCTAG0.NUM>
SRC.SYS_OK Böyle bir kullanıcı olmadığı için şikayet silindi.
ENDIF
ON=3
IF (<UID.<LIST.Kufur_System_Player_Uid.<SRC.dCTAG0.NUM>>>)
REF5=<LIST.Kufur_System_Player_Uid.<SRC.dCTAG0.NUM>>
REF5.FINDID(i_kufur_bildirim).REMOVE
IF <LIST.Kufur_System_Player_Uid.COUNT>
LIST.Kufur_System_Player_Uid.<SRC.CTAG0.NUM>.REMOVE
LIST.Kufur_System_Time.<SRC.CTAG0.NUM>.REMOVE
LIST.Kufur_System_Referans_Uid.<SRC.CTAG0.NUM>.REMOVE
SRC.SYS_OK Şikayet kayıtlardan silindi.
ENDIF
ENDIF
[FUNCTION kufur_tablo_temizle]
LIST.Kufur_System_Player_Uid.Clear
LIST.Kufur_System_Time.Clear
LIST.Kufur_System_Referans_Uid.Clear
FORINSTANCES i_kufur_bildirim
REMOVE
ENDFOR
SRC.SYSMESSAGE @1153,,1 Küfür tablosu başarıyla temizlendi.
[FUNCTION kufur_sil]
LIST.Kufur_System_Player_Uid.<ARGN1>.REMOVE
LIST.Kufur_System_Time.<ARGN1>.REMOVE
LIST.Kufur_System_Referans_Uid.<ARGN1>.REMOVE
[ITEMDEF i_kufur_bildirim]
ID i_memory
NAME Kufur Sistemi
TYPE t_eq_script
WEIGHT 0
On=@Create
Attr Attr_Newbie|Attr_Invis|Attr_Decay
On=@Destroy
CONT.Tag0.Kufurbaz=
Speech kısmınada şunu ekleyiniz
Kod:
ON=*
IF (<SRC.FINDID(i_kufur_bildirim)>)
SRC.TAG0.KUFURBAZ .= / <ARGS>
ENDIF
Çok fazla uğraşmadım ayarlanması gereken birkaç şeyler daha var iyice düzenleyebilirseniz ortaya iyi bir şeyler çıkarabilirsiniz.