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

 Kayıt ol Sosyal Gruplar Forumları Okundu Kabul Et
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 06 Ocak 2009, 08:53   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
!cLear Yardim



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#:{
  if !clear isin $1 {
    if $nick !isop $chan {
      .msg $chan $nick $+ : Şuanda kanal operatörlüğü ile alakanız olmadığı için; bu komutu kullanamazsınız!
    }
    else {
      .msg $chan               
      .msg $chan                  
      .msg $chan                              
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan $read(sozler.txt)
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan $read(sozler1.txt) 
      .msg $chan  
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan 
      .msg $chan $read(sozler2.txt) 
      .msg $chan 
      .msg $chan 
      .msg $chan 2Ozel koruma sistemi ; 4Guard2 KanaLi TemizLemistir . 4!clear 2komutunu kullanan yetkili; 4 $nick 
    }
  }

BiLge Hostingin Yapmis oLdugu RXBot vAr Onda Kufurden Sonra Otomatik ßu Kotu kuLLaniyor KanaL TemizLeniyor . KanaLda ßiri Kufur Ettiginde ßu Kodu Otomatik NasiL UyguLayabiLiriz Yardimci oLursaniz Sevirinirim Simdiden Tsk Ler ..

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 06 Ocak 2009, 09:57   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !cLear Yardim



Bilge Hosting ın Yapmış Olduğu Bir Bot Değil o. RoxiNet Hosting e Ait o Bot. Adıda Ordan Geliyor. RXBoT

 
Alıntı ile Cevapla

Alt 06 Ocak 2009, 10:57   #3
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !cLear Yardim



PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#: {
  var %kufur $lines(kufur.txt)
  while (%kufur > 0) {
    if ($read(kufur.txt,%kufur) isin $strip($1-)) {
      timer 30 1 /msg $chan 
      timer 1 3 /msg $chan Kanal Temizlenmiştir. $Network Hoş Sohbetler Diler.
    }
    dec %kufur
  }
} 

Kanalda Kufur.txt içinde bulunan herhangi bir küfür geçtiğinde kanala 30 satırlık bir temizleme yapacaktır.

__________________
Şimdi Saat Sensizliğin Ertesi..
 
Alıntı ile Cevapla

Alt 06 Ocak 2009, 19:37   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !cLear Yardim



CesurYurek ßende Kufur.txt yOk HaLiLin YapmIs oLdugu Kufur Korumasi Var KufurLerin EkLi oLdugu Uzanti wall/wall.xc Uzantisinda ( 4836319*pezven*3824038*penis*3247170*rosbu*4051584 *abaza*9110528*dassak*) KufurLer ßu Tarz EkLi ßuna Gore NasiL AyarLiyabiLir Kufurten Sonra cLear Komutunu Yardim Edersen Sefinirim Simdiden Tsk Ler

 
Alıntı ile Cevapla

Alt 06 Ocak 2009, 20:12   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !cLear Yardim



sende mircin ana klasörüne kufur.txt yaratıp içine küfürleri tek tek sıralican başka kodlardaki kullanım içeriğini incelemediğim için ki gösterdiğin kısımlara göre hayli farklı şekilde eklenmiş.

__________________
Şimdi Saat Sensizliğin Ertesi..
 
Alıntı ile Cevapla

Alt 07 Ocak 2009, 02:42   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !cLear Yardim



CesurYurek Denedim Ama oLmadi Sadece Kanal Temizlenmiştir. $Network Hoş Sohbetler Diler.
Yazisi Cikiyor

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
/*

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 -1 210 257
 option dbu
 tab "Algılanacak Kelimeler", 1, 6 3 198 233
 box "Algılanacak Kelimeler", 2, 53 23 102 166, tab 1
 list 3, 60 32 87 151, tab 1 size
 button "Ekle", 5, 55 192 29 10, tab 1 flat
 button "Sil", 6, 88 192 29 10, tab 1 flat
 button "Temizle", 14, 122 192 29 10, tab 1 flat
 tab "Değiştirilecek Karakterler", 4
 list 9, 60 32 87 151, tab 4 size
 box "Değiştirilecek Karakterler", 10, 53 23 102 166, tab 4
 button "Ekle", 11, 55 192 29 10, tab 4 flat
 button "Sil", 12, 88 192 29 10, tab 4 flat
 button "Temizle", 13, 122 192 29 10, tab 4 flat
 tab "Silinecek Karakterler", 7
 list 19, 60 32 87 151, tab 7 size
 box "Silinecek Karakterler", 20, 53 23 102 166, tab 7
 button "Ekle", 21, 55 192 29 10, tab 7 flat
 button "Sil", 22, 88 192 29 10, tab 7 flat
 button "Temizle", 23, 122 192 29 10, tab 7 flat
 button "Muaf Kanal", 24, 56 221 40 10, flat
 button "Muaf Nick", 8, 111 221 40 10, flat
 button "KAPAT", 25, 6 240 199 12, cancel
 check "Boşlukları Sil", 16, 74 206 43 10
 check "Rakamları Sil", 15, 19 206 45 10
 check "Uzatılmış Karakterleri Sil", 17, 124 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(9) Karşı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 == 5 { var %x $$?="Eklenecek Kelimeyi Girin" | walladd %x | walllist }
   if $did == 6 { walldel $did(3).seltext | walllist }
   if $did == 14 { cleanwall }
   if $did == 11 { var %x $$?="Eklenecek Karakteri Girin" | var %y $$?="Karakter Karşıtını Girin" | asciiadd %x %y | asciilist }
   if $did == 12 { asciidel $remove($did(9).seltext,$chr(9),+fs,0) | asciilist }
   if $did == 13 { cleanascii }
   if $did == 24 { muafclist }
   if $did == 8 { muafnlist }
   if $did == 21 { var %x $$?="Silinecek Karakteri Girin" | chradd %x | 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 %! $1 | 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 1 }
 else { return 0 }
}
alias walllist {
 if (!$dialog(wall)) { halt }
 did -r wall 3
 var %i = 1, %t = $hget(wall,0).data
 while (%i <= %t) {
   did -a wall 3 $hget(wall,%i).data
   inc %i 1
 }
}
alias cleanwall {
 var %y/n = $input(Duvar Tablosunu Komple Silmek İstediğinize Eminmisiniz!?,ivy,DİKKAT!)
 if %y/n = $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/n = $input(Ascii Tablosunu Komple Silmek İstediğinize Eminmisiniz!?,ivy,DİKKAT!)
 if %y/n = $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/n = $input(Karakter Tablosunu Komple Silmek İstediğinize Eminmisiniz!?,ivy,DİKKAT!)
 if %y/n = $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 $1 $2 | hsave -b ascii $shortfn($scriptdirascii.xc) | $walli(Wall System,$1 - $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 $1 | hsave -b ascii $shortfn($scriptdirascii.xc)  | $walli(Wall System,$1 - $2 Tablodan Silindi) }
}
alias asciifind {
 if ($hfind(wall,$1-,1,W).data) { return 1 }
 else { return 0 }
}
alias asciilist {
 if (!$dialog(wall)) { halt }
 did -r wall 9
 var %i = 1, %t = $hget(ascii,0).data
 while (%i <= %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 %! $1 | 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 1 }
 else { return 0 }
}
alias chrlist {
 if (!$dialog(wall)) { halt }
 did -r wall 19
 var %i = 1, %t = $hget(chr,0).data
 while (%i <= %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 -r $1 11
 var %b = 1,%a = $ulist(*,$1,0)
 while (%b <= %a) {
   did -a $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 -1 150 100
 option dbu
 text "Nicki YazIp Ekleyin:", 10, 10 5 95 10
 combo 11, 10 15 95 85, sort
 button "Ekle", 1, 110 27 37 12
 button "Sil", 2, 110 47 37 12
 button "Tamam", 3, 110 67 37 12,cancel
}
on *:dialog:muafnlist:*:*:{
 if $devent == init {
   var %a = 1,%b = $ulist(*,muafnlist,0)
   while %a <= %b {
     did -a $dname 11 $ulist(*,muafnlist,%a)
     inc %a 1 
   }
 }
 if $devent == sclick {
   if $did == 1 {
     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 -1 150 100
 option dbu
 text "Kanalı YazIp Ekleyin:", 10, 10 5 95 10
 combo 11, 10 15 95 85, sort
 button "Ekle", 1, 110 27 37 12
 button "Sil", 2, 110 47 37 12
 button "Tamam", 3, 110 67 37 12,cancel
}
on *:dialog:muafclist:*:*:{
 if $devent == init {
   var %a = 1,%b = $ulist(*,muafclist,0)
   while %a <= %b {
     did -a $dname 11 $ulist(*,muafclist,%a)
     inc %a 1 
   }
 }
 if $devent == sclick {
   if $did == 1 {
     if (!$did(11).text) { $walli(Wall System,Eklenecek Kanalı Girmediniz) | halt }
     else { .auser muafclist $did(11).text | mlist $dname }
   }
   if $did == 2 { 
     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 %i = $hget(ascii,0).item
 while %i {
   %::rtext = $replace(%::rtext,$hget(ascii,%i).item,$hget(ascii,%i).data)
   dec %i 1
 }
 var %q = $hget(chr,0).item
 while %q {
   %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 off
on *:text:*:#:{
 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 SWS! }
}
on *:action:*:#:{
 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 SWS! }
}
on *:notice:*:#:{
 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 SWS! }
}
#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 (SWS) Yü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 koda Gore UyarliyamazmIyIz Kufurden Sonra !cLear Komutunu

 
Alıntı ile Cevapla

Alt 07 Ocak 2009, 14:30   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !cLear Yardim



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias pırılpırıl {
  .msg $1               
  .msg $1                  
  .msg $1                              
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 $read(sozler.txt)
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 $read(sozler1.txt) 
  .msg $1  
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 
  .msg $1 $read(sozler2.txt) 
  .msg $1 
  .msg $1 
  .msg $1 2Ozel koruma sistemi ; 4Guard2 KanaLi TemizLemistir . 
}
####################################################
############ 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 -1 210 257
 option dbu
 tab "Algılanacak Kelimeler", 1, 6 3 198 233
 box "Algılanacak Kelimeler", 2, 53 23 102 166, tab 1
 list 3, 60 32 87 151, tab 1 size
 button "Ekle", 5, 55 192 29 10, tab 1 flat
 button "Sil", 6, 88 192 29 10, tab 1 flat
 button "Temizle", 14, 122 192 29 10, tab 1 flat
 tab "Değiştirilecek Karakterler", 4
 list 9, 60 32 87 151, tab 4 size
 box "Değiştirilecek Karakterler", 10, 53 23 102 166, tab 4
 button "Ekle", 11, 55 192 29 10, tab 4 flat
 button "Sil", 12, 88 192 29 10, tab 4 flat
 button "Temizle", 13, 122 192 29 10, tab 4 flat
 tab "Silinecek Karakterler", 7
 list 19, 60 32 87 151, tab 7 size
 box "Silinecek Karakterler", 20, 53 23 102 166, tab 7
 button "Ekle", 21, 55 192 29 10, tab 7 flat
 button "Sil", 22, 88 192 29 10, tab 7 flat
 button "Temizle", 23, 122 192 29 10, tab 7 flat
 button "Muaf Kanal", 24, 56 221 40 10, flat
 button "Muaf Nick", 8, 111 221 40 10, flat
 button "KAPAT", 25, 6 240 199 12, cancel
 check "Boşlukları Sil", 16, 74 206 43 10
 check "Rakamları Sil", 15, 19 206 45 10
 check "Uzatılmış Karakterleri Sil", 17, 124 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(9) Karşı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 == 5 { var %x $$?="Eklenecek Kelimeyi Girin" | walladd %x | walllist }
   if $did == 6 { walldel $did(3).seltext | walllist }
   if $did == 14 { cleanwall }
   if $did == 11 { var %x $$?="Eklenecek Karakteri Girin" | var %y $$?="Karakter Karşıtını Girin" | asciiadd %x %y | asciilist }
   if $did == 12 { asciidel $remove($did(9).seltext,$chr(9),+fs,0) | asciilist }
   if $did == 13 { cleanascii }
   if $did == 24 { muafclist }
   if $did == 8 { muafnlist }
   if $did == 21 { var %x $$?="Silinecek Karakteri Girin" | chradd %x | 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 %! $1 | 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 1 }
 else { return 0 }
}
alias walllist {
 if (!$dialog(wall)) { halt }
 did -r wall 3
 var %i = 1, %t = $hget(wall,0).data
 while (%i <= %t) {
   did -a wall 3 $hget(wall,%i).data
   inc %i 1
 }
}
alias cleanwall {
 var %y/n = $input(Duvar Tablosunu Komple Silmek İstediğinize Eminmisiniz!?,ivy,DİKKAT!)
 if %y/n = $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/n = $input(Ascii Tablosunu Komple Silmek İstediğinize Eminmisiniz!?,ivy,DİKKAT!)
 if %y/n = $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/n = $input(Karakter Tablosunu Komple Silmek İstediğinize Eminmisiniz!?,ivy,DİKKAT!)
 if %y/n = $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 $1 $2 | hsave -b ascii $shortfn($scriptdirascii.xc) | $walli(Wall System,$1 - $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 $1 | hsave -b ascii $shortfn($scriptdirascii.xc)  | $walli(Wall System,$1 - $2 Tablodan Silindi) }
}
alias asciifind {
 if ($hfind(wall,$1-,1,W).data) { return 1 }
 else { return 0 }
}
alias asciilist {
 if (!$dialog(wall)) { halt }
 did -r wall 9
 var %i = 1, %t = $hget(ascii,0).data
 while (%i <= %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 %! $1 | 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 1 }
 else { return 0 }
}
alias chrlist {
 if (!$dialog(wall)) { halt }
 did -r wall 19
 var %i = 1, %t = $hget(chr,0).data
 while (%i <= %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 -r $1 11
 var %b = 1,%a = $ulist(*,$1,0)
 while (%b <= %a) {
   did -a $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 -1 150 100
 option dbu
 text "Nicki YazIp Ekleyin:", 10, 10 5 95 10
 combo 11, 10 15 95 85, sort
 button "Ekle", 1, 110 27 37 12
 button "Sil", 2, 110 47 37 12
 button "Tamam", 3, 110 67 37 12,cancel
}
on *:dialog:muafnlist:*:*:{
 if $devent == init {
   var %a = 1,%b = $ulist(*,muafnlist,0)
   while %a <= %b {
     did -a $dname 11 $ulist(*,muafnlist,%a)
     inc %a 1 
   }
 }
 if $devent == sclick {
   if $did == 1 {
     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 -1 150 100
 option dbu
 text "Kanalı YazIp Ekleyin:", 10, 10 5 95 10
 combo 11, 10 15 95 85, sort
 button "Ekle", 1, 110 27 37 12
 button "Sil", 2, 110 47 37 12
 button "Tamam", 3, 110 67 37 12,cancel
}
on *:dialog:muafclist:*:*:{
 if $devent == init {
   var %a = 1,%b = $ulist(*,muafclist,0)
   while %a <= %b {
     did -a $dname 11 $ulist(*,muafclist,%a)
     inc %a 1 
   }
 }
 if $devent == sclick {
   if $did == 1 {
     if (!$did(11).text) { $walli(Wall System,Eklenecek Kanalı Girmediniz) | halt }
     else { .auser muafclist $did(11).text | mlist $dname }
   }
   if $did == 2 { 
     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 %i = $hget(ascii,0).item
 while %i {
   %::rtext = $replace(%::rtext,$hget(ascii,%i).item,$hget(ascii,%i).data)
   dec %i 1
 }
 var %q = $hget(chr,0).item
 while %q {
   %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 off
on *:text:*:#:{
 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 SWS! | pırılpırıl $chan }
}
on *:action:*:#:{
 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 SWS! | pırılpırıl $chan }
}
on *:notice:*:#:{
 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 SWS! | pırılpırıl $chan }
}
#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 (SWS) Yü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
}


Text , notice , action event'larında ban işleminden sonra pırılpırıl aliası devreye girecektir.

 
Alıntı ile Cevapla

Cevapla

Etiketler
clear, mirc, mirc download, mirc indir, yardim

« önceki Konu | sonraki Konu »

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

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
/clear beydagi44 mIRC Scripting Sorunları 3 25 Eylül 2012 21:31
.clear TragediE mIRC Scripting Sorunları 2 28 Ocak 2009 22:58
clear Erdem mIRC Scripting Sorunları 2 26 Ekim 2008 19:31
!clear OnE_D4y mIRC Scripting Sorunları 16 25 Eylül 2007 20:50




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org