|
İçerde : 1 misafir, 0 üye : ---
|
LIST.Kufur_System_Player_Uid.Add <REF1>
LIST.Kufur_System_Time.Add <SERV.RTIME>
LIST.Kufur_System_Referans_Uid.ADD <SRC>
LIST.Kufur_System <REF1>,<SERV.RTIME>,<SRC>
FOR 0 <EVAL (<LIST.Kufur_System_Player_Uid.Count>)-1>
REF1=<ARGO>
IF <LIST.Kufur_System_Player_Uid.COUNT>
IF STRREGEX(^[A-Z0-9]+$, <LIST.Kufur_System_Player_Uid.COUNT>)
ELSEIF (<REF1.FINDID(i_kufur_bildirim)>)
SRC.SYS_HATA <REF1.NAME> isimli hedefte küfür bildirimi bulunuyor.
IF (<LIST.Kufur_System_Player_Uid.FINDELEM <REF1>>) //Eğer değer REF1 bulunursa, çıktısı ELEM sırası olacaktır.
[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.ADD <REF1>,<SERV.RTIME>,<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 260 185
IF STRREGEX(^[A-Z0-9]+$, <LIST.Kufur_System.COUNT>)
FOR <SRC.dCTAG0.KUFUR_MIN> <EVAL <SRC.CTAG0.KUFUR_MIN> +5>
IF !STRMATCH("<F_SELECT 2,<StrEat <LIST.Kufur_System.<dLOCAL._FOR>>>>","")
DHTMLGUMP +50 *20 300 20 0 0 Bildiri Yapan:<F_SELECT 2,<StrEat <LIST.Kufur_System.<dLOCAL._FOR>>>>
BUTTON +20 *0 5601 5605 1 0 <EVAL <LOCAL._FOR> +1>
ENDIF
ENDFOR
ENDIF
BUTTON 20 145 5601 5605 1 0 998
BUTTON 60 145 5603 5607 1 0 999
[DIALOG d_kufur BUTTON]
ON=1,997
SRC.sDIALOG d_kufur_ayrinti,0,<EVAL <ARGN> -1>
ON=998,999
IF (<dARGN>==998)
SRC.CTAG0.KUFUR_MIN +=1
ELSE
IF (<SRC.dCTAG0.KUFUR_MIN> > 0)
SRC.CTAG0.KUFUR_MIN -=1
ENDIF
ENDIF
SRC.sDIALOG d_kufur,0,<SRC.dCTAG0.KUFUR_MIN>
[DIALOG d_kufur_ayrinti]
50,50
NOMOVE
Ref5=<StrArg <LIST.Kufur_System.<dArgv[0]>>>
RESIZEPIC 0 0 02422 270 350
RESIZEPIC 0 350 02422 270 100
DHTMLGUMP 30 20 500 20 0 0 Şikayetci : <UID.<F_SELECT 2,<StrEat <LIST.Kufur_System.<dArgv[0]>>>>.NAME>
DHTMLGUMP 30 40 500 20 0 0 Küfürbaz : <REF5.NAME>
DHTMLGUMP 30 60 500 20 0 0 Zaman : <F_SELECT 1,<StrEat <LIST.Kufur_System.<dArgv[0]>>>>
DHTMLGUMP 30 80 200 50 0 0 Yazıları ; <REF5.TAG0.KUFURBAZ>
DHTMLGUMP 30 100 200 100 0 0
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]>,<REF5>,<F_SELECT 2,<StrEat <LIST.Kufur_System.<dArgv[0]>>>>
[DIALOG d_kufur_ayrinti BUTTON]
ON=1
REF6=<F_Select 3,<SRC.Ctag0.Num>>
IF !(<REF6>)
SRC.SYS_HATA Şikayetçinin karakteri silinmiş !
Kufur_Sil
ELSE
REF6.GO Jail
ENDIF
ON=2
REF5=<F_Select 2,<SRC.Ctag0.Num>>
IF !(<REF5>)
SRC.SYS_HATA Küfürbazın karakteri silinmiş !
Kufur_Sil
ELSE
REF5.GO JAIL
ENDIF
ON=3
Kufur_Sil
[FUNCTION kufur_tablo_temizle]
LIST.Kufur_System.Clear
ForInsTanCes i_kufur_bildirim
REMOVE
ENDFOR
SRC.SYS_OK Küfür tablosu başarıyla temizlendi.
[FUNCTION kufur_sil]
REF6=<StrArg <LIST.Kufur_System.<F_SELECT 1,<SRC.CTag0.Num>>>>
IF (<REF6>) && (<REF6.FINDID(i_kufur_bildirim)>)
REF6.FINDID(i_kufur_bildirim).REMOVE
ENDIF
LIST.Kufur_System.<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=
ON=*
IF <ctag0.bildirim> == 1
SRC.TAG0.KUFURBAZ .= / <ARGS>
ENDIF
[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.ADD <REF1>,<SERV.RTIME>,<SRC>
argo.ctag0.bildirim 1
timerf 60,argo.ctag0.bildirim 0
SRC.SYS_OK <REF1.NAME> küfür bildirimine girdi.
ENDIF
|