IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 23 Şubat 2012, 09:48   #1
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Bu neden oluyor?




Selamlar Günaydınlar.. Gene bi sorunla karşınızdayım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
burdan aldığım bir addon var SWS adında regex dll ile calısnan bi addon cokta yararlı bir addon fakat sıkıntı surda addonu Scripte eklediğimden beri sürekli statuste bunlar cıkıor hatamı artık nasıl adlandırsam anlamadım zaten
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
Flag M: check for user in channels I am a member of /WHO [+|-][achmnsuM] [args] Flags are specified like channel modes, the flags chmnsu all have arguments Flags are set to a positive check by +, a negative check by - The flags work as follows: Flag a: user is away Flag c <channel>: user is on <channel>, no wildcards accepted Flag h <host>: user has string <host> in his/her hostname, wildcards accepted Flag m <usermodes>: user has <usermodes> set, only O/o/C/A/a/N/B are allowed Flag n <nick>: user has string <nick> in his/her nickname, wildcards accepted Flag s <server>: user is on server <server>, wildcards not accepted Flag u <user>: user has string <user> in his/her username, wildcards accepted

5 dkda bir veya tam bilmiorm ama status bunlarla doluyor

codun mrc. dosyası bu
PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
/*
####################################################
############ Strong Wall System (SWS) v1.0 ############
####################################################
################# Coded by XcLusive #################
####################################################
*/
alias wall $iif($dialog(wall),dialog -v wall,dialog -m wall wall) }
alias viewspath return $shortfn($scriptdirviews.mdx)
alias mdxpath return $shortfn($scriptdirmdx.dll)
alias walli $iif($input($2,owdia,$1),haltdef,haltdef) }
dialog wall {
  
title "Strong Wall System (SWS) Coded by XcLusive"
  
size --1 210 257
  option dbu
  tab 
"Algılanacak Kelimeler"16 3 198 233
  box 
"Algılanacak Kelimeler"253 23 102 166tab 1
  
list 360 32 87 151tab 1 size
  button 
"Ekle"555 192 29 10tab 1 flat
  button 
"Sil"688 192 29 10tab 1 flat
  button 
"Temizle"14122 192 29 10tab 1 flat
  tab 
"Değiştirilecek Karakterler"4
  
list 960 32 87 151tab 4 size
  box 
"Değiştirilecek Karakterler"1053 23 102 166tab 4
  button 
"Ekle"1155 192 29 10tab 4 flat
  button 
"Sil"1288 192 29 10tab 4 flat
  button 
"Temizle"13122 192 29 10tab 4 flat
  tab 
"Silinecek Karakterler"7
  
list 1960 32 87 151tab 7 size
  box 
"Silinecek Karakterler"2053 23 102 166tab 7
  button 
"Ekle"2155 192 29 10tab 7 flat
  button 
"Sil"2288 192 29 10tab 7 flat
  button 
"Temizle"23122 192 29 10tab 7 flat
  button 
"Muaf Kanal"2456 221 40 10flat
  button 
"Muaf Nick"8111 221 40 10flat
  button 
"KAPAT"256 240 199 12cancel
  check 
"Boşlukları Sil"1674 206 43 10
  check 
"Rakamları Sil"1519 206 45 10
  check 
"Uzatılmış Karakterleri Sil"17124 206 68 10
}
on *:dialog:wall:*:*:{
  if 
$devent == init {
    if (!
$isfile($shortfn($scriptdirwall.xc))) { write $scriptdirwall.xc 1 write -c $scriptdirwall.xc }
    if (!
$isfile($shortfn($scriptdirascii.xc))) { write $scriptdirascii.xc 1 write -c $scriptdirascii.xc }
    if (!
$isfile($shortfn($scriptdirchr.xc))) { write $scriptdirchr.xc 1 write -c $scriptdirchr.xc }
    
dll $mdxpath SetMircVersion $version
    dll $mdxpath MarkDialog $dname
    dll $mdxpath SetControlMDX $dname 9 ListView report nosortheader showsel single rowselect grid 
$viewspath
    did 
-i $dname 9 1 headerdims 85 85 
    did 
-i $dname 9 1 headertext +c Karakter $chr(9Karşıtı
    walllist
    asciilist
    chrlist
    
if %sws.bosluk == on did -c $dname 16
    
if %sws.rakam == on did -c $dname 15
    
if %sws.karakter == on did -c $dname 17
  
}
  if 
$devent == sclick {
    if 
$did == { var %$$?="Eklenecek Kelimeyi Girin" walladd %walllist }
    if 
$did == walldel $did(3).seltext walllist }
    if 
$did == 14 cleanwall }
    if 
$did == 11 { var %$$?="Eklenecek Karakteri Girin" | var %$$?="Karakter Karşıtını Girin" asciiadd %%asciilist }
    if 
$did == 12 asciidel $remove($did(9).seltext,$chr(9),+fs,0) | asciilist }
    if 
$did == 13 cleanascii }
    if 
$did == 24 muafclist }
    if 
$did == muafnlist }
    if 
$did == 21 { var %$$?="Silinecek Karakteri Girin" chradd %chrlist }
    if 
$did == 22 chrdel $did(19).seltext chrlist }
    if 
$did == 23 cleanchr }
    if 
$did == 16 
      if %
sws.bosluk == on set %sws.bosluk off }
      else { 
set %sws.bosluk on }
    }
    if 
$did == 15 
      if %
sws.rakam == on set %sws.rakam off }
      else { 
set %sws.rakam on }
    }
    if 
$did == 17 
      if %
sws.karakter == on set %sws.karakter off }
      else { 
set %sws.karakter on }
    }
  }
}
alias walladd {
  var %! = 
$left($calc($ctime $rand(1000,9999)),7)
  if (!$
1) { $walli(Wall System,Eklenecek Kelime Girmediniz) | halt }
  elseif (
$hfind(wall,$1,0,W).data) { $walli(Wall System,Bu Kelime Daha Önceden Eklenmiş) | halt }
  else { 
hadd -m wall %! $hsave -o wall $shortfn($scriptdirwall.xc) | $walli(Wall System,$1 Tabloya Eklendi) }
}
alias walldel {
  if (!$
1) { $walli(Wall System,Silinecek Kelime Girmediniz) | halt }
  elseif (!
$hfind(wall,$1,0,W).data) { $walli(Wall System,Bu Kelime Tabloda Ekli Değil) | halt }
  else { 
hdel -m wall $hfind(wall,$1,1,W).data hsave -o wall $shortfn($scriptdirwall.xc)  | $walli(Wall System,$1 Tablodan Silindi) }
}
alias wallfind {
  if (
$hfind(wall,$1-,1,W).data) { return }
  else { return 
}
}
alias walllist {
  if (!
$dialog(wall)) { halt }
  
did -r wall 3
  
var %1, %$hget(wall,0).data
  
while (%<= %t) {
    
did -a wall 3 $hget(wall,%i).data
    inc 
%i 1
  
}
}
alias cleanwall {
  var %
y/$input(Duvar Tablosunu Komple Silmek İstediğinize Eminmisiniz!?,ivy,DİKKAT!)
  if %
y/$yes write -c $shortfn($scriptdirwall.xc) | $walli(Wall System,Wall.xc Tablosu Boşaltıldı!) | .hfree -sw wall hmake wall walllist }
  else { 
halt }
}
alias cleanascii {
  var %
y/$input(Ascii Tablosunu Komple Silmek İstediğinize Eminmisiniz!?,ivy,DİKKAT!)
  if %
y/$yes write -c $shortfn($scriptdirascii.xc) | $walli(Wall System,Ascii.xc Tablosu Boşaltıldı!) | .hfree -sw ascii hmake ascii asciilist }
  else { 
halt }
}
alias cleanchr {
  var %
y/$input(Karakter Tablosunu Komple Silmek İstediğinize Eminmisiniz!?,ivy,DİKKAT!)
  if %
y/$yes write -c $shortfn($scriptdirchr.xc) | $walli(Wall System,Chr.xc Tablosu Boşaltıldı!) | .hfree -sw chr hmake chr chrlist }
  else { 
halt }
}
alias asciiadd {
  if (!$
1) || (!$2) { $walli(Wall System,Eklenecek Karakter Girmediniz) | halt }
  elseif (
$hfind(ascii,$1,0,W).item) { $walli(Wall System,Bu Karakter Daha Önceden Eklenmiş) | halt }
  else { 
hadd -m ascii $$hsave -b ascii $shortfn($scriptdirascii.xc) | $walli(Wall System,$- $2 Olarak Tabloya Eklendi) }
}
alias asciidel {
  if (!$
1) { $walli(Wall System,Silinecek Karakteri Girmediniz) | halt }
  elseif (!
$hfind(ascii,$1,0,W).item) { $walli(Wall System,Bu Karakter Tabloda Ekli Değil) | halt }
  else { 
hdel -m ascii $hsave -b ascii $shortfn($scriptdirascii.xc)  | $walli(Wall System,$- $2 Tablodan Silindi) }
}
alias asciifind {
  if (
$hfind(wall,$1-,1,W).data) { return }
  else { return 
}
}
alias asciilist {
  if (!
$dialog(wall)) { halt }
  
did -r wall 9
  
var %1, %$hget(ascii,0).data
  
while (%<= %t) {
    
did -a wall 9 $hget(ascii,%i).item $chr(9$hget(ascii,%i).data $chr(9)
    
inc %i 1
  
}
}
alias chradd {
  var %! = 
$left($calc($ctime $rand(1000,9999)),7)
  if (!$
1) { $walli(Wall System,Eklenecek Kelime Girmediniz) | halt }
  elseif (
$hfind(chr,$1,0,n).data) { $walli(Wall System,Bu Karakter Daha Önceden Eklenmiş) | halt }
  else { 
hadd -m chr %! $hsave -o chr $shortfn($scriptdirchr.xc) | $walli(Wall System,$1 Tabloya Eklendi) }
}
alias chrdel {
  if (!$
1) { $walli(Wall System,Silinecek Kelime Girmediniz) | halt }
  elseif (!
$hfind(chr,$1,0,n).data) { $walli(Wall System,Bu Karakter Tabloda Ekli Değil) | halt }
  else { 
hdel -m chr $hfind(chr,$1,1,n).data hsave -o chr $shortfn($scriptdirchr.xc)  | $walli(Wall System,$1 Tablodan Silindi) }
}
alias chrfind {
  if (
$hfind(chr,$1-,1,W).data) { return }
  else { return 
}
}
alias chrlist {
  if (!
$dialog(wall)) { halt }
  
did -r wall 19
  
var %1, %$hget(chr,0).data
  
while (%<= %t) {
    
did -a wall 19 $hget(chr,%i).data
    inc 
%i 1
  
}
}
on *:start:{
  if (!
$hget(wall)) {  hmake wall hload wall $shortfn($scriptdirwall.xc)  }
  if (!
$hget(ascii)) {  hmake ascii hload -b ascii $shortfn($scriptdirascii.xc) }
  if (!
$hget(chr)) {  hmake chr hload chr $shortfn($scriptdirchr.xc) }
}
alias mlist {
  
did -$1 11
  
var %1,%$ulist(*,$1,0)
  while (%
<= %a) {
    
did -$1 11 $ulist(*,$1,%b)
    
inc %b 1
  
}
}
alias muafnlist $iif($dialog(muafnlist),dialog -v muafnlist,dialog -m muafnlist muafnlist) }
dialog muafnlist {
  
title "Muaf Nick Listesi"
  
size --1 150 100
  option dbu
  text 
"Nicki YazIp Ekleyin:"1010 5 95 10
  combo 11
10 15 95 85sort
  button 
"Ekle"1110 27 37 12
  button 
"Sil"2110 47 37 12
  button 
"Tamam"3110 67 37 12,cancel
}
on *:dialog:muafnlist:*:*:{
  if 
$devent == init {
    var %
1,%$ulist(*,muafnlist,0)
    while %
<= %{
      
did -a $dname 11 $ulist(*,muafnlist,%a)
      
inc %a 1 
    
}
  }
  if 
$devent == sclick {
    if 
$did == {
      if (!
$did(11).text) { $walli(Wall System,Eklenecek Nick'i Girmediniz) | halt }
      else { .auser muafnlist $did(11).text | mlist $dname }
    }
    if $did == 2 { 
      if (!$did(11).text) { $walli(Wall System,Silinecek Nick'
i Seçmediniz) | halt }
      else { .
ruser muafnlist $did(11).seltext mlist $dname }
    }
  }
}
alias muafclist $iif($dialog(muafclist),dialog -v muafclist,dialog -m muafclist muafclist) }
dialog muafclist {
  
title "Muaf Kanal Listesi"
  
size --1 150 100
  option dbu
  text 
"Kanalı YazIp Ekleyin:"1010 5 95 10
  combo 11
10 15 95 85sort
  button 
"Ekle"1110 27 37 12
  button 
"Sil"2110 47 37 12
  button 
"Tamam"3110 67 37 12,cancel
}
on *:dialog:muafclist:*:*:{
  if 
$devent == init {
    var %
1,%$ulist(*,muafclist,0)
    while %
<= %{
      
did -a $dname 11 $ulist(*,muafclist,%a)
      
inc %a 1 
    
}
  }
  if 
$devent == sclick {
    if 
$did == {
      if (!
$did(11).text) { $walli(Wall System,Eklenecek Kanalı Girmediniz) | halt }
      else { .
auser muafclist $did(11).text mlist $dname }
    }
    if 
$did == 
      if (!
$did(11).text) { $walli(Wall System,Silinecek Kanalı Seçmediniz) | halt }
      else { .
ruser muafclist $did(11).seltext mlist $dname }
    }
  }
}
alias duvar {
  var %::
rtext $remove($1-,$chr(44),$chr(40),$chr(41)),%xc
  
%::rtext $lower(%::rtext)
  var %
$hget(ascii,0).item
  
while %{
    %::
rtext $replace(%::rtext,$hget(ascii,%i).item,$hget(ascii,%i).data)
    
dec %i 1
  
}
  var %
$hget(chr,0).item
  
while %{
    %
xc $hget(chr,%q).data
    
%::rtext $remove(%::rtext,%xc)
    
dec %q
  
}
  if %
sws.bosluk == on { %::rtext $regsubex(%::rtext,/([[:space:]])/g,$null) }
  if %
sws.rakam == on { %::rtext $regsubex(%::rtext,/([[:digit:]])/g,$null) }
  if %
sws.karakter == on  { %::rtext $regsubex(%::rtext,/(.)\1+/g,\1) }
  if (
$hfind(wall,%::rtext,1,W).data) { return $true }
  else { return 
$false }
}
#wall on
on *:text:*:#Sohbet:{
  
if ($level($nick) == muafnlist) { halt }
  if (
$level($chan) == muafclist) { halt }
  if 
$me !isop $chan && !$regex($remove($usermode,+),/(o|O|N|C|a|A)) { halt }
  if (
$duvar($1-)) { ban -k $chan $nick 2  4Küfür yasak!}
}
on *:action:*:#Sohbet:{
  
if ($level($nick) == muafnlist) { halt }
  if (
$level($chan) == muafclist) { halt }
  if 
$me !isop $chan && !$regex($remove($usermode,+),/(o|O|N|C|a|A)) { halt }
  if (
$duvar($1-)) { ban -k $chan $nick 2  4Küfür yasak! }
}
on *:notice:*:#Sohbet:{
  
if ($level($nick) == muafnlist) { halt }
  if (
$level($chan) == muafclist) { halt }
  if 
$me !isop $chan && !$regex($remove($usermode,+),/(o|O|N|C|a|A)) { halt }
  if (
$duvar($1-)) { ban -k $chan $nick 2  4Küfür yasak! }
}
#wall end
on *:load:{
  if (!
$hget(wall)) {  hmake wall hload wall $shortfn($scriptdirwall.xc)  }
  if (!
$hget(ascii)) {  hmake ascii hload -b ascii $shortfn($scriptdirascii.xc) }
  if (!
$hget(chr)) {  hmake chr hload chr $shortfn($scriptdirchr.xc) }
  
set %sws.bosluk on set %sws.rakam on set %sws.karakter on
  wall
  
return $walli(Wall System,Strong Wall System (SWSYüklendi$crlf $+ Coded By XcLusive)
}
menu menubar,status,channel,query {
  
SWS
  
.$iif($group(#wall) == on,$style(2)) Aç:.enable #wall | $walli(Wall System,Koruma Açıldı!)
  
.$iif($group(#wall) == off,$style(2)) Kapat:.disable #wall | $walli(Wall System,Koruma Kapatıldı!)
  
.Ayarlar:wall


Bu bir hatamıdır yoksa bu addonu yüklediğim için olması gereken normal bişeymidir ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 23 Şubat 2012, 11:52   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu neden oluyor?




Statusteki Bu uyarıların Bu Koddan Kaynaklandığına Eminmisin? Statusteki Yazılar Who Hakkında Bilgi veriyor. Yani remotede Herhangi Bir Kod who da olmayan Bir parametre Kullanarak Who taraması yapıyor olabilir. Ekli Olan Kodları İncelemeni Tavsiye ederim.

 
Alıntı ile Cevapla

Alt 23 Şubat 2012, 12:39   #3
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Bu neden oluyor?




SiLuet Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Statusteki Bu uyarıların Bu Koddan Kaynaklandığına Eminmisin? Statusteki Yazılar Who Hakkında Bilgi veriyor. Yani remotede Herhangi Bir Kod who da olmayan Bir parametre Kullanarak Who taraması yapıyor olabilir. Ekli Olan Kodları İncelemeni Tavsiye ederim.

Tam olarak emin olmamakla beraber arastırdım kodları iyice fakat su kısımlar Kodun mrc. dosyasındada gecior ondan bu addondan şüpelendim
Bu statusteki mesajın bir kısmı
Flag m <usermodes>: user has <usermodes> set, only
O/o/C/A/a/N/B are allowed

Su kısımda addonun mrc. dosyasından bir kısım
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#wall on on *:text:*:#Sohbet:{ if ($level($nick) == muafnlist) { halt } if ($level($chan) == muafclist) { halt } if $me !isop $chan && !$regex($remove($usermode,+),/(o|O|N|C|a|A)) { halt }


 
Alıntı ile Cevapla

Alt 23 Şubat 2012, 12:52   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu neden oluyor?




Statüs Ekranında /who +ğ (who Parametresi değil) Yaptıgında who ile alakalı Bilgi alacaksın.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $me !isop $chan && !$regex($remove($usermode,+),/(o|O|N|C|a|A)) { halt }

Bu kodda Demek istenense Kanalda Op değilsem ve Flaglarımda o|O|N|C|a|A Geçmiyorsa demektir. Yani Statusde Çıkan Mesajla alakasız.

 
Alıntı ile Cevapla

Cevapla

Etiketler
bu, neden, oluyor


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Tuz hipertansiyona neden oluyor Lin Sağlık Köşesi 0 03 Nisan 2008 14:17