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

Etiketlenen Kullanıcılar

3Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 29 Mart 2013, 03:38   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !duyuruekle & !duyurucikar




kodu baştan sıfırdan yazdım... eski haline göre yazmak kafamı karıştırmaktan başka işe yaramıyordu..bi sürü salakça hatalar vardı.

<bu kodda hiç denenmedi> çalışıp çalışmayacağını bilmiyorum.sadece syntax check yaptım...ters bir döneme denk geldi benim için şu aralar PC başında geçirecek vaktim olmuyor.
kod hiç denenmedi.denemek yine size kalıyor. kodu şurdan da alabilirsiniz -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] foruma yapıştırırken iç içe geçiyor.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
setudef flag duyuru bind pub -|- "*" duyuru:pub bind msgm -|- "*" duyuru:duyur proc duyuru:pub {nick uhost hand chan text} { if {![channel get $chan duyuru] || ![isop $nick $chan]} { :return } set dyrkmt [lindex [split $text] 0] set dyrno [lindex [split $text] 1] set dyrmsg [join [lrange [split $text] 2 end]] set dzn "duyurular.txt" switch -- $dyrkmt { "!dyrekle" { if {[llength "$text"] == "0"} { putserv "notice $nick :eksik giriş" return } if {![file exists "$dzn"]} { set abc [open "$dzn" w] } else { set abc [open "$dzn" a] } puts $abc "$text" close $abc putserv "notice $nick :eklendi \002$text\002" } "!dyrsil" { if {![file exists "$dzn"]} { putserv "notice $nick :\002$dzn\002 boş" return } if {[llength "$dyrno"] == "0"} { putserv "notice $nick :eksik komut" return } set abc [open "$dzn"] set lines [split [read -nonewline $abc] "\n"] close $abc if {[llength $lines] == "0"} { putserv "notice $nick :\002$dzn\002 boş" return } set say 0 set satir [lsearch $lines $dyrno] while {"$satir" != "-1"} { set lines [lreplace $lines $satir $satir] set satir [lsearch $lines $dyrno] incr say } set abc [open "$dzn" w] puts $abc [join $lines "\n"] close $abc if {"$say" > "1"} { set s "" } else { set s "s" } putserv "notice $nick :istenen \002$dyrno\002 silindi $say süre$s" } "!dyrliste" { if {![file exists "$dzn"]} { putserv "notice $nick :\002$dzn\002 yok" return } set dyrno 0 set abc [open "$dzn"] set lines [split [read -nonewline $abc] "\n"] close $abc if {[llength $lines] == "0"} { putserv "notice $nick :\002$dzn\002 boş" return } foreach line $lines { if {[llength $line] == "0"} { set line "-Yok-" } putserv "notice $nick :\002$dyrno \002 $line" incr dyrno } putserv "notice $nick :son" } "default" { if {![file exists "$dzn"]} { putserv "privmsg $nick :\002$dzn\002 boş" return } set dyrno 0 set abc [open "$dzn"] while {![eof $abc]} { set line [gets $abc] if {[llength $line] == "0"} { set line "-Yok-" } putserv "privmsg $nick :$dyrno $line" incr dyrno } close $abc putserv "privmsg $nick :son" } return 1 } } proc duyuru:duyur {nick dyrkmt dyrno} { set dyrkmt [lindex [split $text] 0] set dyrno [lindex [split $text] 1] if {[string match "dyr" $dyrkmt] || [string match "duyur*" $dyrkmt]} { return $duyuru:pub } } putlog "tamam..." # EOF


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Alt 30 Mart 2013, 14:27   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !duyuruekle & !duyurucikar




[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

-> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# kullanımı: # .chanset #kanalınız +duyuru .. ile ayarladığınız kanal üstünde.en az Op'lar için: # !dyrekle <duyuru-no/duyuru-ismi> duyurunuz... # !dyrsil <duyuru-no/duyuru-ismi> # !dyrliste # özelde herhangi bir botun olduğu kanalda,herhangi bir kullanıcı tarafından kullanılabilecek duyuru komutu: # <duyuru-no/duyuru-ismi> # kodun aktif olduğu kanaldaki kanal opları ve üstünün eklemiş olduğu duyuru/ları # botun özelinde duyuru-ismi yada rakkam ile eklenmişse numarasıyla okuyabilmesini sağlıyor... # (herhangi bir komutu yada işareti yok.sadece eklediğinizde # duyurunuza koyduğunuz isim yada numara ile o eklenmiş duyuruyu postalıyor.) setudef flag duyuru bind pubm -|- "*" duyuru:pub bind msgm -|- "*" duyuru:duyur proc duyuru:pub {nick uhost hand chan text} { if {![channel get $chan duyuru] || ![isop $nick $chan]} { return 0 } set dyrkmt [lindex [split $text] 0] set dyrno [lindex [split $text] 1] set dyrmsg [join [lrange [split $text] 2 end]] set dzn "duyuru.txt" switch -- $dyrkmt { "!dyrekle" { if {[llength $dyrmsg] == "0"} { putserv "notice $nick :kullanımı !dyrekle <duyuru-no/duyuru-ismi> duyurunuz." return 0 } set abc [open "$dzn" a+] puts $abc "$dyrno $dyrmsg" close $abc putserv "notice $nick :eklendi \002$dyrno:\002 $dyrmsg" return 0 } "!dyrsil" { if {![file exists "$dzn"]} { putserv "notice $nick :\002$dzn\002 boş." return 0 } if {[llength "$dyrno"] == "0"} { putserv "notice $nick :kullanımı !dyrsil <duyuru-no/duyuru-ismi>." return 0 } set abc [open "$dzn"] set lines [split [read -nonewline $abc] "\n"] close $abc if {[llength $lines] == "0"} { putserv "notice $nick :\002$dzn\002 boş." return 0 } set lines2 "" set say 0 set satirno 0 foreach line $lines { if {[lindex $line 0] == $dyrno} { set lines2 [lreplace $lines $satirno $satirno] incr say } incr satirno } if {$say == 0} { putserv "notice $nick :böyle bir duyuru yok: \002$dyrno\002." return 0 } set abc [open "$dzn" w] puts $abc [join $lines2 "\n"] close $abc if {$say == 1} { set s "" } else { set s "s" } putserv "notice $nick :\002$dyrno\002 $say adet$s, duyuru silindi." } "!dyrliste" { if {![file exists "$dzn"]} { putserv "notice $nick :\002$dzn\002 boş" return 0 } set dyrno 0 set abc [open "$dzn"] set lines [split [read -nonewline $abc] "\n"] close $abc if {[llength $lines] == "0"} { putserv "notice $nick :\002$dzn\002 boş" return 0 } foreach line $lines { putserv "notice $nick :\002[lindex $line 0]\002 [lrange $line 1 end]" } putserv "notice $nick :Son" } return 0 } } proc duyuru:duyur {nick uhost hand text} { set dzn "duyuru.txt" if {![file exists "$dzn"]} { return 0 } set dyrno 0 set abc [open "$dzn"] set lines [split [read -nonewline $abc] "\n"] close $abc if {[llength $lines] == "0"} { return 0 } foreach line $lines { if {[lindex $line 0] == $text} { putserv "privmsg $nick :[lrange $line 1 end]" } } } putlog "burası, kodun dibidir...."


 
Alıntı ile Cevapla

Alt 24 Haziran 2013, 05:33   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !duyuruekle & !duyurucikar




Sadece !dyrliste kodunu tüm kullanıcılara nasıl açarız ? Kod sorunsuz calısıyor. Ancak tek istediğim bu . Yardımcı olabilir misiniz ?



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

# kullanımı:
# .chanset #kanalınız +duyuru .. ile ayarladığınız kanal üstünde.en az Op'lar için:
# !dyrekle <duyuru-no/duyuru-ismi> duyurunuz...
# !dyrsil <duyuru-no/duyuru-ismi>
# !dyrliste
# özelde herhangi bir botun olduğu kanalda,herhangi bir kullanıcı tarafından kullanılabilecek duyuru komutu:
# <duyuru-no/duyuru-ismi>
# kodun aktif olduğu kanaldaki kanal opları ve üstünün eklemiş olduğu duyuru/ları 
# botun özelinde duyuru-ismi yada rakkam ile eklenmişse numarasıyla okuyabilmesini sağlıyor... 
# (herhangi bir komutu yada işareti yok.sadece eklediğinizde 
# duyurunuza koyduğunuz isim yada numara ile o eklenmiş duyuruyu postalıyor.)
setudef flag duyuru
bind pubm 
-|- "*" duyuru:pub
bind msgm 
-|- "*" duyuru:duyur
proc duyuru
:pub {nick uhost hand chan text} {
if {![
channel get $chan duyuru] || ![isop $nick $chan]} {
    return 
0
}
set dyrkmt [lindex [split $text0]
set dyrno [lindex [split $text1]
set dyrmsg [join [lrange [split $text2 end]]
set dzn "duyuru.txt"
    
switch -- $dyrkmt {
 
        
"!dyrekle" {
            if {[
llength $dyrmsg] == "0"} {
                
putserv "notice $nick :kullanımı !dyrekle <duyuru-no/duyuru-ismi> duyurunuz."
                
return 0
            
}
            
set abc [open "$dzna+]
            
puts $abc "$dyrno $dyrmsg"
            
close $abc
            putserv 
"notice $nick :eklendi \002$dyrno:\002 $dyrmsg"
            
return 0
        
}
  
        
"!dyrsil" {
            if {![
file exists "$dzn"]} {
                
putserv "notice $nick :\002$dzn\002 boş."
                
return 0
            
}
            if {[
llength "$dyrno"] == "0"} {
                
putserv "notice $nick :kullanımı !dyrsil <duyuru-no/duyuru-ismi>."
                
return 0
            
}
            
set abc [open "$dzn"]
            
set lines [split [read -nonewline $abc"\n"]
            
close $abc
            
if {[llength $lines] == "0"} {
                
putserv "notice $nick :\002$dzn\002 boş."
                
return 0
            
}
            
set lines2 ""
            
set say 0
            set satirno 0
            
foreach line $lines {
                if {[
lindex $line 0] == $dyrno} {
                  
set lines2 [lreplace $lines $satirno $satirno]
                  
incr say
                
}
                
incr satirno
            
}
            if {
$say == 0} {
                
putserv "notice $nick :böyle bir duyuru yok: \002$dyrno\002."
                
return 0
            
}
            
set abc [open "$dznw]
            
puts $abc [join $lines2 "\n"]
            
close $abc
            
if {$say == 1} {
                
set s ""
            
} else {
                
set s "s"
            
}
            
putserv "notice $nick :\002$dyrno\002 $say adet$s, duyuru silindi."
        
}
  
        
"!dyrliste" {
       if {![
file exists "$dzn"]} {
                
putserv "notice $nick :\002$dzn\002 boş"
                
return 0
            
}
            
set dyrno 0
            set abc 
[open "$dzn"]
            
set lines [split [read -nonewline $abc"\n"]
            
close $abc
            
if {[llength $lines] == "0"} {
                
putserv "notice $nick :\002$dzn\002 boş"
                
return 0
            
}
            foreach 
line $lines {
                
putserv "notice $nick :\002[lindex $line 0]\002 [lrange $line 1 end]"
            
}
            
putserv "notice $nick :Son"
        
}
        return 
0
    
}
}
proc duyuru:duyur {nick uhost hand text} {
    
set dzn "duyuru.txt"
    
if {![file exists "$dzn"]} {
        return 
0
    
}
    
set dyrno 0
    set abc 
[open "$dzn"]
    
set lines [split [read -nonewline $abc"\n"]
    
close $abc
    
if {[llength $lines] == "0"} {
        return 
0
    
}
    foreach 
line $lines {
        if {[
lindex $line 0] == $text} {
            
putserv "privmsg $nick :[lrange $line 1 end]"
        
}
    }
    }
putlog "burası,   kodun dibidir...." 


 
Alıntı ile Cevapla

Alt 24 Haziran 2013, 09:34   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !duyuruekle & !duyurucikar




-> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# kullanımı: # .chanset #kanalınız +duyuru .. ile ayarladığınız kanal üstünde.en az Op'lar için: # !dyrekle <duyuru-no/duyuru-ismi> duyurunuz... # !dyrsil <duyuru-no/duyuru-ismi> # !dyrliste # özelde herhangi bir botun olduğu kanalda,herhangi bir kullanıcı tarafından kullanılabilecek duyuru komutu: # <duyuru-no/duyuru-ismi> # kodun aktif olduğu kanaldaki kanal opları ve üstünün eklemiş olduğu duyuru/ları # botun özelinde duyuru-ismi yada rakkam ile eklenmişse numarasıyla okuyabilmesini sağlıyor... # (herhangi bir komutu yada işareti yok.sadece eklediğinizde # duyurunuza koyduğunuz isim yada numara ile o eklenmiş duyuruyu postalıyor.) setudef flag duyuru bind pubm -|- "*" duyuru:pub bind msgm -|- "*" duyuru:duyur proc duyuru:pub {nick uhost hand chan text} { if {![channel get $chan duyuru]} { return 0 } set dyrkmt [lindex [split $text] 0] set dyrno [lindex [split $text] 1] set dyrmsg [join [lrange [split $text] 2 end]] set dzn "duyuru.txt" switch -- $dyrkmt { "!dyrekle" { if {![isop $nick $chan]} { putserv "privmsg $chan :\00314Bu komutu kullanma yetkiniz yok.\00314" return 0 } if {[llength $dyrmsg] == "0"} { putserv "notice $nick :\00304kullanımı !dyrekle <duyuru-no/duyuru-ismi> duyurunuz.\00304" return 0 } set abc [open "$dzn" a+] puts $abc "$dyrno $dyrmsg" close $abc putserv "notice $nick :eklendi \002$dyrno:\002 $dyrmsg" return 0 } "!dyrsil" { if {![isop $nick $chan]} { putserv "privmsg $chan :\00314Bu komutu kullanma yetkiniz yok.\00314" return 0 } if {![file exists "$dzn"]} { putserv "notice $nick :\002$dzn\002 boş." return 0 } if {[llength "$dyrno"] == "0"} { putserv "notice $nick :\00304kullanımı !dyrsil <duyuru-no/duyuru-ismi>.\00304" return 0 } set abc [open "$dzn"] set lines [split [read -nonewline $abc] "\n"] close $abc if {[llength $lines] == "0"} { putserv "notice $nick :\002$dzn\002 boş." return 0 } set lines2 "" set say 0 set satirno 0 foreach line $lines { if {[lindex $line 0] == $dyrno} { set lines2 [lreplace $lines $satirno $satirno] incr say } incr satirno } if {$say == 0} { putserv "notice $nick :böyle bir duyuru yok: \002$dyrno\002." return 0 } set abc [open "$dzn" w] puts $abc [join $lines2 "\n"] close $abc if {$say == 1} { set s "" } else { set s "s" } putserv "notice $nick :\002$dyrno\002 $say adet$s, duyuru silindi." } "!dyrliste" { if {![file exists "$dzn"]} { putserv "notice $nick :\002$dzn\002 boş" return 0 } set dyrno 0 set abc [open "$dzn"] set lines [split [read -nonewline $abc] "\n"] close $abc if {[llength $lines] == "0"} { putserv "notice $nick :\002$dzn\002 boş" return 0 } foreach line $lines { putserv "notice $nick :\002[lindex $line 0]\002 [lrange $line 1 end]" } putserv "notice $nick :Son" } return 0 } } proc duyuru:duyur {nick uhost hand text} { set dzn "duyuru.txt" if {![file exists "$dzn"]} { return 0 } set dyrno 0 set abc [open "$dzn"] set lines [split [read -nonewline $abc] "\n"] close $abc if {[llength $lines] == "0"} { return 0 } foreach line $lines { if {[lindex $line 0] == $text} { putserv "privmsg $nick :[lrange $line 1 end]" } } } putlog "burası, kodun dibidir...."


 
Alıntı ile Cevapla

Cevapla

Etiketler
duyurucikar, duyuruekle


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

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