Konuya cevap cer

Mesaj

<blockquote data-quote="Che" data-source="post: 7756" data-attributes="member: 1">Kod kural ihlali yapan Oper/Adminlere ceza verilmesi için hazırlanmıştır. Eklenen nickler #opers kanalına giriş yaptığı zaman kill atarak sunucudan düşürür. Üzerinde değiştirme yapıp kendinize göre uyarlıyabilirsiniz.Kırmızı ile işaretlediğim kısımda bir yetkilendirme var oraya eklenen nickler kullanabilir.İyi forumlar.[CODE]on *:text:*:#Opers: {&nbsp; var %coderlab = $remove($1,.,!)&nbsp; var %nick&nbsp; = $2&nbsp; if (%coderlab == cezalist) {&nbsp; &nbsp; if ($lines(cezalist.txt) == 0) {&nbsp; &nbsp; &nbsp; msg #Opers Herhangi bir Oper/Admin ceza almamış.&nbsp; &nbsp; }&nbsp; &nbsp; else {&nbsp; &nbsp; &nbsp; msg #Opers Oper/Admin ceza listesi sıralanıyor.&nbsp; &nbsp; &nbsp; .play #Opers cezalist.txt 2000&nbsp; &nbsp; }&nbsp; }&nbsp; elseif (%coderlab == cezasil) {&nbsp; &nbsp; if (!%nick) {&nbsp; &nbsp; &nbsp; msg #Opers Hatalı kullanım: .cezasil nick&nbsp; &nbsp; }&nbsp; &nbsp; elseif (!$read(cban.txt, ntw, %nick)) {&nbsp; &nbsp; &nbsp; msg #Opers %nick nickine ait herhangi bir ceza bulunamadı.&nbsp; &nbsp; }&nbsp; &nbsp; else {&nbsp; &nbsp; &nbsp; write -dl $+ $readn cban.txt&nbsp; &nbsp; &nbsp; write -dl $+ $readn cezalist.txt&nbsp; &nbsp; &nbsp; msg #Opers %nick nickine verilen ceza başarıyla kaldırıldı.&nbsp; &nbsp; }&nbsp; }&nbsp; elseif (%coderlab == cezabul) {&nbsp; &nbsp; if (!%nick) {&nbsp; &nbsp; &nbsp; msg #Opers Hatalı kullanım: .cezabul &lt;nick&gt;&nbsp; &nbsp; }&nbsp; &nbsp; elseif (!$read(cban.txt, ntw, %nick)) {&nbsp; &nbsp; &nbsp; msg #Opers %nick nickine ait herhangi bir ceza bulunmamaktadır. Büyük/Küçük Harfe Dikkat!!&nbsp; &nbsp; }&nbsp; &nbsp; else {&nbsp; &nbsp; &nbsp; var %satir = &quot;&quot;, %i = 1&nbsp; &nbsp; &nbsp; while (%i &lt;= $lines(cezalist.txt)) {&nbsp; &nbsp; &nbsp; &nbsp; var %line = $read(cezalist.txt, %i)&nbsp; &nbsp; &nbsp; &nbsp; if ($istokcs(%line, %nick, 32)) {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; var %satir = %line&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; break&nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; &nbsp; inc %i&nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; if (%satir != $null) {&nbsp; &nbsp; &nbsp; &nbsp; msg #Opers %nick kullanıcısının ceza bilgisi: %satir&nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; &nbsp; else {&nbsp; &nbsp; &nbsp; &nbsp; msg #Opers %nick nickine ait ceza bilgisi bulunamadı.&nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; }&nbsp; }&nbsp; elseif (%coderlab == cezaekle) {&nbsp; &nbsp; if (!%nick || !$3 || !$4-) {&nbsp; &nbsp; &nbsp; msg #Opers Hatalı kullanım. .cezaekle nick gün sebep olarak deneyin.&nbsp; &nbsp; }&nbsp; &nbsp; elseif (!$istok(Mylife testt nick3 nick4 nick5, $nick, 32)) {&nbsp; &nbsp; &nbsp; msg #Opers Ceza eklemek için yetkili değilsiniz.&nbsp; &nbsp; }&nbsp; &nbsp; elseif ($read(cban.txt, ntw, %nick)) {&nbsp; &nbsp; &nbsp; msg #Opers %nick zaten cezalı. İkinci kez ceza eklenemez.&nbsp; &nbsp; }&nbsp; &nbsp; elseif (!$regex($3,/^\d+$/)) {&nbsp; &nbsp; &nbsp; msg #Opers Hatalı gün sayısı. Lütfen sayı girin.&nbsp; &nbsp; }&nbsp; &nbsp; else {&nbsp; &nbsp; &nbsp; var %bitis = $asctime($calc($ctime + ($3 * 86400)),dd.mm.yyyy)&nbsp; &nbsp; &nbsp; msg #Opers %nick nickine $3 gün $4- sebebi ile ceza eklendi. Ceza bitiş: %bitis&nbsp; &nbsp; &nbsp; .kill %nick reconnect&nbsp; &nbsp; &nbsp; write cban.txt %nick&nbsp; &nbsp; &nbsp; write cezalist.txt %nick - $4- sebebiyle $3 gün ceza verildi. Ekleyen: $nick - Bitiş: %bitis&nbsp; &nbsp; }&nbsp; }}on ^*:SNOTICE:*is now a*:{&nbsp; if ($regex($1-,/^(.*?) $(.*?)$ \[(.*?)\] is now a /i)) {&nbsp; &nbsp; var %grsnick = $regml(1)&nbsp; &nbsp; var %grsip&nbsp;&nbsp; = $regml(2)&nbsp; &nbsp; var %oprnick = $regml(3)&nbsp; &nbsp; var %ipgrs = $gettok(%grsip,2,64)&nbsp; &nbsp; if ($read(cban.txt, ntw, %oprnick)) {&nbsp; &nbsp; &nbsp; kill %grsnick : Cezalısınız! 4 [ %oprnick ]&nbsp; &nbsp; &nbsp; os raw svskill %grsnick : Cezalısınız! - SVS-KILL 4 [ %oprnick ]&nbsp; &nbsp; &nbsp; msg #Opers 3 %grsnick 1 Nicki Cezalı Olan 4 %oprnick 1 ile giriş yapmaya çalıştı, Killendi. IP: %ipgrs&nbsp; &nbsp; }&nbsp; }}[/CODE][CODE]!cezaekle nick süre sebep!cezasil nick!cezalist!cezabul nick[/CODE]</blockquote>

[QUOTE="Che, post: 7756, member: 1"] [B]Kod kural ihlali yapan Oper/Adminlere ceza verilmesi için hazırlanmıştır. Eklenen nickler #opers kanalına giriş yaptığı zaman kill atarak sunucudan düşürür. Üzerinde değiştirme yapıp kendinize göre uyarlıyabilirsiniz. Kırmızı ile işaretlediğim kısımda bir yetkilendirme var oraya eklenen nickler kullanabilir.İyi forumlar.[/B] [CODE]on *:text:*:#Opers: { var %coderlab = $remove($1,.,!) var %nick = $2 if (%coderlab == cezalist) { if ($lines(cezalist.txt) == 0) { msg #Opers Herhangi bir Oper/Admin ceza almamış. } else { msg #Opers Oper/Admin ceza listesi sıralanıyor. .play #Opers cezalist.txt 2000 } } elseif (%coderlab == cezasil) { if (!%nick) { msg #Opers Hatalı kullanım: .cezasil nick } elseif (!$read(cban.txt, ntw, %nick)) { msg #Opers %nick nickine ait herhangi bir ceza bulunamadı. } else { write -dl $+ $readn cban.txt write -dl $+ $readn cezalist.txt msg #Opers %nick nickine verilen ceza başarıyla kaldırıldı. } } elseif (%coderlab == cezabul) { if (!%nick) { msg #Opers Hatalı kullanım: .cezabul <nick> } elseif (!$read(cban.txt, ntw, %nick)) { msg #Opers %nick nickine ait herhangi bir ceza bulunmamaktadır. Büyük/Küçük Harfe Dikkat!! } else { var %satir = "", %i = 1 while (%i <= $lines(cezalist.txt)) { var %line = $read(cezalist.txt, %i) if ($istokcs(%line, %nick, 32)) { var %satir = %line break } inc %i } if (%satir != $null) { msg #Opers %nick kullanıcısının ceza bilgisi: %satir } else { msg #Opers %nick nickine ait ceza bilgisi bulunamadı. } } } elseif (%coderlab == cezaekle) { if (!%nick || !$3 || !$4-) { msg #Opers Hatalı kullanım. .cezaekle nick gün sebep olarak deneyin. } elseif (!$istok(Mylife testt nick3 nick4 nick5, $nick, 32)) { msg #Opers Ceza eklemek için yetkili değilsiniz. } elseif ($read(cban.txt, ntw, %nick)) { msg #Opers %nick zaten cezalı. İkinci kez ceza eklenemez. } elseif (!$regex($3,/^\d+$/)) { msg #Opers Hatalı gün sayısı. Lütfen sayı girin. } else { var %bitis = $asctime($calc($ctime + ($3 * 86400)),dd.mm.yyyy) msg #Opers %nick nickine $3 gün $4- sebebi ile ceza eklendi. Ceza bitiş: %bitis .kill %nick reconnect write cban.txt %nick write cezalist.txt %nick - $4- sebebiyle $3 gün ceza verildi. Ekleyen: $nick - Bitiş: %bitis } } } on ^*:SNOTICE:*is now a*:{ if ($regex($1-,/^(.*?) $(.*?)$ \[(.*?)\] is now a /i)) { var %grsnick = $regml(1) var %grsip = $regml(2) var %oprnick = $regml(3) var %ipgrs = $gettok(%grsip,2,64) if ($read(cban.txt, ntw, %oprnick)) { kill %grsnick : Cezalısınız! 4 [ %oprnick ] os raw svskill %grsnick : Cezalısınız! - SVS-KILL 4 [ %oprnick ] msg #Opers 3 %grsnick 1 Nicki Cezalı Olan 4 %oprnick 1 ile giriş yapmaya çalıştı, Killendi. IP: %ipgrs } } }[/CODE] [CODE]!cezaekle nick süre sebep !cezasil nick !cezalist !cezabul nick[/CODE] [/QUOTE]

Adı

İnsan doğrulaması