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

 Kayıt ol  Topluluk
3Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 31 Aralık 2012, 12:28   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
!duyuruekle & !duyurucikar




Merhabalar

Ben !duyuruekle ve !duyurucikar dedikten sonra eggdrop umun sunucuda bulunan bir dosyaya eklemeler ve cikartmalar yapmasini istiyorum daha sonrasinda ise botun ozeline birisi duyurular yazdigi zaman o duyurulari sirasi ile yazmasini istiyorum....

Bu duyurulari bir kanal icin yapicak, tek kanal olmasi yeterli.
Oplar duyuru ekleyip cikarabilicek ve sadece botun ozeline duyurular yazinca yazan kisiye duyurulari yazicak.

Bunun icin yardimci olabilecek arkadaslara simdiden cok tesekkur ederim..

Ornek Kullanim ...

!duyuruekle Merhaba Hosgeldiniz....
---Duyuru eklendi, duyuru sayisi 1

!duyurucikar 1
--- Duyuru Silindi (1)


tarzinda bir duyuru sistemi ariyorum....

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 02 Ocak 2013, 22:08   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !duyuruekle & !duyurucikar




denemedim... çünkü gözlerimde beynimde yoruldu.hata var mıdır vardır olmazsa şaşarım.deneyin aldığınız hata mesaj/larını buraya atın dinlenince bakarımz bi çaresine ...

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# kullanımı : # hangi kanalda duyuru eklemek -silmek isteniyorsa , # telnet/dcc üzerinden bota .chanset #kanalınız +duyuru # komutuyla kodu aktif etmelisiniz. # belirlenen kanalda op olanlar # duyuru ekleyip silebilir. # !dyrekle duyuruno duyurumsg # !dyrsil duyuruno # bota özelde duyur , duyuru ,dyr demeniz yeterli # /msg botnick dyr ... gibi... setudef flag duyuru bind pub -|- !dyrekle duyuru:ekle bind pub -|- !dyrsil duyuru:sil bind msgm - "*" duyuru:duyur proc duyuru:ekle {nick host hand chan arg} { if {[channel get $chan duyuru] || [isop $nick $chan]} { return } set dzn "duyurular.txt" set dyrno [lindex [split $arg] o] set dyrmsg [join [lrange [split $arg] 1 end]] if {dyrno == ""} { puthelp "notice $nick eksik komut girdiniz.kullanımı : !dyrekle duyuruno duyuru" return 0 } if {dyrmsg == ""} { puthelp "notice $nick eksik komut girdiniz.kullanımı : !dyrekle duyuruno duyuru" return 0 } if {[file exists $dzn] == 0} { set file [open $dzn w] close $file } set file [open $dzn a] puts $file $dyrmsg close $file puthelp "notice $nick $dyrno $dyrmsg eklendi" } proc duyuru:sil {nick host hand chan arg} { if {[channel get $chan duyuru] || [isop $nick $chan]} { return } set dyrno [lindex [split $arg] o] if {dyrno == ""} { puthelp "notice $nick yanlış komut girdiniz. kullanımı : !dyrsil duyuruno" return 0 } set dzn "duyurular.txt" if {[file exists $dzn] == 0} { set file [open $dzn w] close $file } set file [open $dzn "r"] set data [read -nonewline $file] close $file set lines [split $data "\n"] set i [expr $numara - 1] set delete [lreplace $lines $i $i] set files [open $dzn "w"] puts $files [join $delete "\n"] close $files set file [open $dzn "r"] set data [read -nonewline $file] close $file if {$data == ""} { set files [open $dzn "w"] close $files } puthelp "notice $nick $dyrno silindi." } proc duyuru:duyur {nick host hand arg} { global dyr if {[string match -nocase "duyur*" $arg] || [string match -nocase "dyr" $arg]} { return } if {[file exists $dzn] == 0} { set file [open $dzn w] close $file } set dzn "duyurular.txt" set file [open $dzn "r"] set w [read -nonewline $file] close $file set data [split $w "\n"] set i 0 if {data == ""} { puthelp "privmsg $nick herhangi bir duyurunuz bulunmuyor" return 0 } foreach dyr $data set i [expr $i +1] puthelp "privmsg $nick duyurular $i $dzn" } putlog "ömrümü yidiniz bea.. ömrümü ömrümü..."


 
Alıntı ile Cevapla

Alt 08 Ocak 2013, 21:25   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !duyuruekle & !duyurucikar




[19:25:18] Tcl error [duyuru:duyur]: can't read "dzn": no such variable

tcl calisiyor fakat kanalda
!dyrekle 1 Deneme duyurusu
dedigimde hic bir etki olmuyor..
Botun a dyr diye privmsg atinca yukardaki error u veriyor..

 
Alıntı ile Cevapla

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




sizden cevap gelmeyince bende sorun yok sanmıştım.çok basit bazı hatalar yapmışım . kodda şimdi deneyince hataları verdi bot.düzelttim
ben kodları süblime text 2 üzerinde göz kararı yazıp postalıyorum çoğu zaman sıkıldığım için denemiyorum .göz kararı olmuştur olmuştur diyorum ama çoklukla böyle basit şeyler gözümden kaçmış oluyor..ekleme-silme okuma şimdi sorunsuz çalışıyor ...
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# kullanımı : # hangi kanalda duyru eklemek -silmek isteniyorsa , # telnet/dcc üzerinden bota .chanset #kanalınız +duyuru # komutuyla kodu aktif etmelisiniz. # belirlenen kanalda op olanlar # duyuru ekleyip silebilir. # !dyrekle duyuruno duyurumsg # !dyrsil duyuruno # bota özelde duyur , duyuru ,dyr demeniz yeterli # /msg botnick dyr ... gibi... setudef flag duyuru set dzn "duyurular.txt" bind pub -|- !dyrekle duyuru:ekle bind pub -|- !dyrsil duyuru:sil bind msgm - "*" duyuru:duyur proc duyuru:ekle {nick host hand chan arg} { global dzn if {![channel get $chan duyuru]} { return } if {![isop $nick $chan]} { return } set dyrno [lindex [split $arg] 0] set dyrmsg [join [lrange [split $arg] 1 end]] if {$dyrno == ""} { puthelp "notice $nick eksik komut girdiniz.kullanımı : !dyrekle duyuruno duyuru" return 0 } if {$dyrmsg == ""} { puthelp "notice $nick eksik komut girdiniz.kullanımı : !dyrekle duyuruno duyuru" return 0 } if {[file exists $dzn] == 0} { set file [open $dzn w] close $file } set file [open $dzn a] puts $file $dyrno#$dyrmsg close $file puthelp "notice $nick $dyrno $dyrmsg eklendi" } proc duyuru:sil {nick host hand chan arg} { global dzn if {![channel get $chan duyuru]} { return } if {![isop $nick $chan]} { return } set dyrno [lindex [split $arg] 0] if {$dyrno == ""} { puthelp "notice $nick yanlış komut girdiniz. kullanımı : !dyrsil duyuruno" return 0 } if {[file exists $dzn] == 0} { set file [open $dzn w] close $file } set file [open $dzn "r"] set data [read -nonewline $file] close $file set lines [split $data "\n"] set i [expr $dyrno - 1] set delete [lreplace $lines $i $i] set files [open $dzn "w"] puts $files [join $delete "\n"] close $files set file [open $dzn "r"] set data [read -nonewline $file] close $file if {$data == ""} { set files [open $dzn "w"] close $files } puthelp "notice $nick $dyrno silindi." } proc duyuru:duyur {nick host hand arg} { global dzn if {![file exists "$dzn"]} { putserv "notice $nick :herhangi bir duyuru bulunamadı." return 0 } if {![file readable "$dzn"]} { putserv "notice $nick :herhangi bir duyuru bulunamadı." return 0 } if {[string match -nocase "duyur*" $arg] || [string match -nocase "dyr" $arg]} { set msgno 0 set file [open "$dzn" r] set line [gets $file] incr msgno putserv "privmsg $nick :$line" } if {[eof $file]} { close $file break } } putlog "bir kar yagar ince ince..."


son anda kodu fikir değiştirip okuma yönteminde eof kısmında değişiklik yapmıştım.gene bozmuşum kodu :p şu haliyle deneyin sonucu bildirin.

 
Alıntı ile Cevapla

Alt 26 Mart 2013, 12:25   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !duyuruekle & !duyurucikar




saywhat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sizden cevap gelmeyince bende sorun yok sanmıştım.çok basit bazı hatalar yapmışım . kodda şimdi deneyince hataları verdi bot.düzelttim
ben kodları süblime text 2 üzerinde göz kararı yazıp postalıyorum çoğu zaman sıkıldığım için denemiyorum .göz kararı olmuştur olmuştur diyorum ama çoklukla böyle basit şeyler gözümden kaçmış oluyor..ekleme-silme okuma şimdi sorunsuz çalışıyor ...
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
# kullanımı : # hangi kanalda duyru eklemek -silmek isteniyorsa , # telnet/dcc üzerinden bota .chanset #kanalınız +duyuru # komutuyla kodu aktif etmelisiniz. # belirlenen kanalda op olanlar # duyuru ekleyip silebilir. # !dyrekle duyuruno duyurumsg # !dyrsil duyuruno # bota özelde duyur , duyuru ,dyr demeniz yeterli # /msg botnick dyr ... gibi... setudef flag duyuru set dzn "duyurular.txt" bind pub -|- !dyrekle duyuru:ekle bind pub -|- !dyrsil duyuru:sil bind msgm - "*" duyuru:duyur proc duyuru:ekle {nick host hand chan arg} { global dzn if {![channel get $chan duyuru]} { return } if {![isop $nick $chan]} { return } set dyrno [lindex [split $arg] 0] set dyrmsg [join [lrange [split $arg] 1 end]] if {$dyrno == ""} { puthelp "notice $nick eksik komut girdiniz.kullanımı : !dyrekle duyuruno duyuru" return 0 } if {$dyrmsg == ""} { puthelp "notice $nick eksik komut girdiniz.kullanımı : !dyrekle duyuruno duyuru" return 0 } if {[file exists $dzn] == 0} { set file [open $dzn w] close $file } set file [open $dzn a] puts $file $dyrno#$dyrmsg close $file puthelp "notice $nick $dyrno $dyrmsg eklendi" } proc duyuru:sil {nick host hand chan arg} { global dzn if {![channel get $chan duyuru]} { return } if {![isop $nick $chan]} { return } set dyrno [lindex [split $arg] 0] if {$dyrno == ""} { puthelp "notice $nick yanlış komut girdiniz. kullanımı : !dyrsil duyuruno" return 0 } if {[file exists $dzn] == 0} { set file [open $dzn w] close $file } set file [open $dzn "r"] set data [read -nonewline $file] close $file set lines [split $data "\n"] set i [expr $dyrno - 1] set delete [lreplace $lines $i $i] set files [open $dzn "w"] puts $files [join $delete "\n"] close $files set file [open $dzn "r"] set data [read -nonewline $file] close $file if {$data == ""} { set files [open $dzn "w"] close $files } puthelp "notice $nick $dyrno silindi." } proc duyuru:duyur {nick host hand arg} { global dzn if {![file exists "$dzn"]} { putserv "notice $nick :herhangi bir duyuru bulunamadı." return 0 } if {![file readable "$dzn"]} { putserv "notice $nick :herhangi bir duyuru bulunamadı." return 0 } if {[string match -nocase "duyur*" $arg] || [string match -nocase "dyr" $arg]} { set msgno 0 set file [open "$dzn" r] set line [gets $file] incr msgno putserv "privmsg $nick :$line" } if {[eof $file]} { close $file break } } putlog "bir kar yagar ince ince..."


son anda kodu fikir değiştirip okuma yönteminde eof kısmında değişiklik yapmıştım.gene bozmuşum kodu :p şu haliyle deneyin sonucu bildirin.



selam yeniden ilk duyuru yu ekliyor ve rahatca okuyor ama sonraki duyurulari eklemiyor:
!dyrekle 2 ikinci duyuru
seklinde ekliyorum, ekliyor gozukuyor ama dyr, duyur diyince okumuyor.


telnet ciktisi;
[10:17:19] [Steaqueolth!squirt@Thychaskel.j] dyr
[10:17:40] Tcl error [duyuru:duyur]: invoked "break" outside of a loop
[10:17:40] [Steaqueolth!squirt@Thychaskel.j] dyr
[10:17:44] Tcl error [duyuru:duyur]: invoked "break" outside of a loop
[10:17:44] [Steaqueolth!squirt@Thychaskel.j] duyur
[10:20:12] [Steaqueolth!squirt@Thychaskel.j] duyur
[10:21:13] Tcl error [duyuru:duyur]: can't read "file": no such variable
[10:21:52] [Steaqueolth!squirt@Thychaskel.j] duyur
[10:22:07] Tcl error [duyuru:duyur]: can't read "file": no such variable

 
Alıntı ile Cevapla

Alt 26 Mart 2013, 13:15   #6
Supernova
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: !duyuruekle & !duyurucikar




Paylaşım güzel buna benzer konularda vardı !global listele - !global ekle mesaj - !global sil mesa şeklinde tcl bölümünde aratıldığında görebilirsiniz.

Geliştirilebilir bir tcl bakalım daha neler eklenebilir

 
Alıntı ile Cevapla

Alt 26 Mart 2013, 16:44   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !duyuruekle & !duyurucikar




o kadar geç dönüş yapıyorsunuz ki...kodu kendi botumda denemiş işlediğini görmüş sonra buraya atmıştım.

ancak her nedense içime sinmemişti ..son okuma prosedürünü burda forum üstünde 2-3 kez editlediğimi-değiştiğimi hatırlıyorum.

sabah uyudum anca kalkabildim ve şimdi dışarı gitmeliyim ahşama ,kafam yerine gelince bakar kendi botlarımda denemesini yaparım denediğim bottanda silmişim geriye sadece duyuru.txt dosyası kalmışş..şimdi sarhoş gibiyim akşama ayık kafayla bakarımz.

 
Alıntı ile Cevapla

Alt 26 Mart 2013, 19:59   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !duyuruekle & !duyurucikar




bu kod belki işinize yarar..


#Opers kanalinda global mesaj sistemini yonetme ozelligi ekledim.
Yardimlari icin BuCaLI'ya tsk.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


<Namesis> !global
<Ra> Kullanimi: !global <on/off/durum/ekle/sil/listele>

<Namesis> !global on
<Ra> Global mesaj sistemi acildi.

<Namesis> !global durum
<Ra> Global mesaj sistemi acik.

<Namesis> !global off
<Ra> Global mesaj sistemi kapali.

<Namesis> !global ekle
<Ra> Global mesaj belirtmediniz. Lutfen global mesajinizi belirtiniz.

<Namesis> !global ekle Test mesajidir.
<Ra> GLOBAL MESAJ: Test mesajidir. » Basariyla global mesaj listesine eklendi.

<Namesis> !global sil
<Ra> Boyle bir global mesaj listede yok.
<Ra> Listeyi gormek icin: !global listele
<Ra> Silmek icin global mesajin basinda ki numarayi kullaniniz. Ornek: !global sil 1234

<Namesis> !global listele
<Ra> 4790 - Test mesajidir.
<Ra> Global mesaj listesinin sonu...

<Namesis> !global sil 4790
<Ra> 4790 numarali global mesaj listeden silindi.



Kod:   Kodu kopyalamak için üzerine çift tıklayın!
######### # BASLA # ######### # Global mesaj sistemini acip kapatma komutunun isleyecegi kanali belirtiniz. set glbmsg(operchan) "#Opers" # Global komut on ekini belirtiniz. set glbmsg(komut) "!global" # Global mesajlarin bulundugu dosya dizinini belirtiniz. set glbmsg(text) "scripts/globalmsg.txt" # Global mesajlar kac dakika arayla atilacaksa belirtiniz. (Dakika cinsinden) set glbmsg(zaman) "15" ###################### # DOKUNMA BOZULUR :d # ###################### utimer 30 globalat proc globalat {} { global botnick globalat glbmsg if {[lsearch -exact [channel info $glbmsg(operchan)] +globcmd] != -1} { set msgzaman "0" set dosya [open $glbmsg(text) r] set liste [split [subst -nocommands [read $dosya]] \n] foreach i $liste { set msgzaman [expr $msgzaman + $glbmsg(zaman)] timer $msgzaman[list putquick "os global [lrange $i 2 end]"] } close $dosya set msgzaman [expr $msgzaman + $glbmsg(zaman)] timer $msgzaman[list globalat] } return 0 } bind evnt - init-server baglan:dosyayarat proc baglan:dosyayarat {type} { global botnick glbmsg if {![file exists $glbmsg(text)]} { set dosya [open $glbmsg(text) w] close $dosya } } setudef flag globcmd bind pub - $glbmsg(komut) globalonoff proc globalonoff {nick uhost hand chan text} { global botnick glbmsg set komut "[lindex [split $text] 0]" set mesaj "[lrange [split $text] 1 end]" if {[string match -nocase $glbmsg(operchan) $chan]} { if {$komut == ""} { putquick "PRIVMSG $chan :Kullanimi: $glbmsg(komut) \002<on/off/durum/ekle/sil/listele>\002"; return 0 } if {[string match -nocase "on" $komut]} { channel set $chan +globcmd; putquick "PRIVMSG $chan :Global mesaj sistemi \002acildi\002."; globalat; return 0 } if {[string match -nocase "off" $komut]} { channel set $chan -globcmd; putquick "PRIVMSG $chan :Global mesaj sistemi \002kapatildi\002."; return 0 } if {[string match -nocase "durum" $komut]} { if {[lsearch -exact [channel info $chan] +globcmd] != -1} { putquick "PRIVMSG $chan :Global mesaj sistemi \002acik\002." } else { putquick "PRIVMSG $chan :Global mesaj sistemi \002kapali\002."; return 0 } } if {[string match -nocase "ekle" $komut]} { if {$mesaj == ""} { putquick "PRIVMSG $chan :Global mesaj belirtmediniz. Lutfen global mesajinizi belirtiniz." ; return 0 } putquick "PRIVMSG $chan :GLOBAL MESAJ: $mesaj » Basariyla global mesaj listesine eklendi." set globs [open $glbmsg(text) a] puts $globs "[join [rand 9999]] [join -] [join $mesaj]" flush $globs catch {closer $globs} } if {[string match -nocase "sil" $komut]} { if {![file exists $glbmsg(text)]} { putquick "PRIVMSG $chan :Global mesaj listesi zaten bos." return } set data "" set input [open $glbmsg(text) r] while {![eof $input]} { set curline [gets $input];set curline [split $curline] if {$curline != ""} { set data [linsert $data end $curline] } } catch {close $input} set deger -1;set esles "" foreach line $data { incr deger if {[string match -nocase "$mesaj" [lindex $line 0]]} { set esles $deger break } } if {$esles == ""} { putquick "PRIVMSG $chan :Boyle bir global mesaj listede yok." putquick "PRIVMSG $chan :Listeyi gormek icin: \002$glbmsg(komut) listele\002" putquick "PRIVMSG $chan :Silmek icin global mesajin basinda ki numarayi kullaniniz. Ornek: \002$glbmsg(komut) sil 1234\002" return } set newdata [lreplace $data $deger $deger] set output [open $glbmsg(text) w] foreach newline $newdata { if {$newline != ""} { puts $output $newline } } flush $output catch {close $output} putquick "PRIVMSG $chan :\002$mesaj\002 numarali global mesaj listeden silindi." return } if {[string match -nocase "listele" $komut]} { if {![file exists $glbmsg(text)]} { putquick "PRIVMSG $chan :Global mesaj listesi bos."; return 0 } set input [open $glbmsg(text) r] set lines [split [subst -nocommands [read $input]] \n] catch {close $input} set sayc 0 foreach line $lines { if {$line != ""} { putquick "PRIVMSG $chan :$line" incr sayc } } if {$sayc == 0} { putquick "PRIVMSG $chan :Global mesaj listesinde hic kayit bulunamadi."; return } else { putquick "PRIVMSG $chan :Global mesaj listesinin sonu..." } } } } ######### # BITTI # #########


 
Alıntı ile Cevapla

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




Global mesaj aslinda diger arkadasin yazdigi programdan farkli birinde global atiyor bir kanaldan aldgi komutla digerinde kanalda oplarin yazdigi mesajlari, ozele yazilan bir msajla .txt dosyasinda akip yaziyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Ama genede paylasim icin tesekkurler..

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:56 -->-> Daha önceki mesaj 14:55 --

saywhat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
o kadar geç dönüş yapıyorsunuz ki...kodu kendi botumda denemiş işlediğini görmüş sonra buraya atmıştım.

ancak her nedense içime sinmemişti ..son okuma prosedürünü burda forum üstünde 2-3 kez editlediğimi-değiştiğimi hatırlıyorum.

sabah uyudum anca kalkabildim ve şimdi dışarı gitmeliyim ahşama ,kafam yerine gelince bakar kendi botlarımda denemesini yaparım denediğim bottanda silmişim geriye sadece duyuru.txt dosyası kalmışş..şimdi sarhoş gibiyim akşama ayık kafayla bakarımz.

ustad saygim sonsuz, beklerim hic sorun degil
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 27 Mart 2013, 15:41   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !duyuruekle & !duyurucikar




kod şu an bu halde -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kullanıma henüz* hazır değil..

bende irc-sunucu/kanal ve doğal olarak kullanıcı olmadığından benim saklamak isteyeceğim yada kullanabileceğim bi kod olmadığından (kod testleri yaptığım sadece botlarımla kendi bouncer'ımın olduğu test kanalı var. kendi kendime duyuru eklemeninde bi anlamı yok) 3 ay evvel üzerinde çalıştığım denediğim bu kodları tamamen silmişim burdan copy-paste etmem gerekti ama buraya ilk attığım botumda denediğim o çalışan hali yok şimdi elde tabi ve nasıldı hatırlamıyorum.

o nedenle kodu tamamen değişiyorum şu an uzun zamandır switch kullanmak için fırsat kolluyordum daha evvel hiç bi kodda kullanmayı denememiştim ama aklımdaydı hep.
şimdi kodu switch ile tek procedure içinde toplayıp, içine eklenen duyuruları listeleme işinide ekleyip, özelde okuma işinide bir child procedure üzerinden main procedure içinde default'ta döndürerek halletmeye çalışıyorum işi bitince kodu buraya atarım ..tamamen farklı* bi kod olacak yukardakilerden onu diyebilirim.

 
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