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

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
Sayfa 2 Toplam 2 Sayfadan 1 2
 
LinkBack Seçenekler Stil
Alt 14 Şubat 2009, 08:57   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bot edit



birinci sorunum bot kanala girdiginde,code'yi acmadan islem gormuyor.

menu channel,menubar {
-
Bot
.Açik :set %botdurum acik | echo -a bot açik | notice # Meal BOTu Kullanima Hazir | defs
.Kapali:set %botdurum kapali | echo -a Bot Kapali | notice # Meal BOTu Kapatildi
.Ayarlar:dialog -m BA BA
}
bu kisimdaki Acik buttonuna ihtiyac duymadan code kendiliginden aktif hale gelebilmesi icin code'nin basina sunu ekledim.bu sorun teskil edermi fikrinizi almak istiyorum.

on *:connect: {
.timer 1 10 /set %botdurum acik
}

ikincisi ben hem yetkililer dosyasindaki nicklerin hemde kanaldaki gorevlilerin !bul komutunu kullanmalari icin soyle denedim ama olmadi,

if $read(yetkililer.txt,w,$nick) || ($nick isop $chan) {

!bul komutunu kullanan sahis kanalda gorevli degilse ve yetkililer listesinde ismi yokda ona kullanmaya yetkili olmadigina dair uyari gonderemedim.ben yetkili ekleyip silmek icin codenin altina bir eklenti yaptim.ama mirc kapanip tekrar acildiginda yetkililer listesi bosaliyor.bir yerde hata yaptim sanirim.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias bekle {
  mode # +m
}
alias sureler {
  set %t 1
  while (%t < 115) { echo 4 @kuran %t - $read(sureindex.txt,%t)
    inc %t
  }
}
menu channel,menubar {
  -
  Bot
  .Açik :set %botdurum acik | echo -a bot açik | notice # Meal BOTu Kullanima Hazir | defs
  .Kapali:set %botdurum kapali | echo -a Bot Kapali | notice # Meal BOTu Kapatildi
  .Ayarlar:dialog -m BA BA 
}
alias bulr {
  if $read(yetkililer.txt,w,$nick) || ($nick isop $chan) {
    set %sureno $null 
    set %curserver $server 
    set %curchannel $chan
    if (($1 == $null) || ($2 == $null)) {
      msg # Bul komutu formati:
      msg # !bul sureadi yada numarasi ayet [bitis ayeti]
      msg # Ör1:!bul taha 114 --> Taha 114. ayeti gösterir.
      msg # Ör2:!bul taha 1 9 --> Taha [1-9]. ayetleri gösterir.
      msg # Ör3:!bul 20 1 9 --> Taha [1-9].ayetleri gösterir.
      halt
    }
    else {
      set %sure $1
      set %ayet1 $2
    }
    if ($3 == $null) { set %ayet2 %ayet1 }
    else { set %ayet2 $3 }
    if ($calc(%sure + 1) != 0) {
      set %sureno $1
      set %sure $read(sureindex.txt,%sureno) 
      goto dosyabul
    }
    set %sayac 1
    set %topsat $lines(sureindex.txt) 
    while (%sayac <= %topsat) {
      if (%sure == $read(sureindex.txt, %sayac)) {
        write temp.txt Sure No: %sayac
        set %sureno %sayac 
      }
      inc %sayac
    }
    :dosyabul 
    if (%sureno == $null) {
      msg # %sure bulunamadi.Sure ismini farkli bir isimle ya da sure numarasi kullanarak belirtiniz.Tüm surelerin listesi için /sureler yaziniz...
      halt
    }
    set %sayiayet $read(ayetsayisi.txt,%sureno) 
    if (%ayet2 > %sayiayet) {
      msg # Hatali Giris Yaptiniz
      msg # %sure Suresi %sayiayet ayettir... 
      halt
    }
    if ((%ayet1 < 1) || (%sureno > 114) || (%ayet1 > %ayet2)) {
      msg # Hatali Giris Yaptiniz...
      halt
    }
    set %d1 3 - $len(%sureno)
    set %dosya sureler $+ \ $+ $str(0,%d1) $+ %sureno $+ .txt
    set %k 1 
    while (%ayet1 <= %ayet2) {
      if ((%sureno == 2) && (%ayet1 == 282)) {
        set %bkr 1
        while (%bkr <= $lines(sureler\bakara282.txt)) {
          set %sonuc $read(sureler\bakara282.txt,%bkr) 
          wordcheck 
          inc %bkr
        }
        goto art
      }
      set %sonuc $read(%dosya,w,%ayet1 $+ . $+ *)
      if (%k != 1 ) goto gec
      write temp.txt $upper(%sure) -- Toplam Ayet Sayisi: %sayiayet
      write temp.txt Ayet: %ayet1 - %ayet2 $nick için yaziliyor...
      :gec
      wordcheck 
      :art 
      inc %k
      inc %ayet1
    }
    write temp.txt -------------------------------0000------------------------ 12 [ %cp sn. durakladi ]
  }
  alias sureler {
    set %t 1
    while (%t < 115) { msg # %t - $read(sureindex.txt,%t)
      inc %t
    }
  }
  on *:playend:if (%moderate == 1) { /mode %curchannel -m }
  on *:exit:unsetall
  on *:disconnect:server %curserver 
  on *:CONNECT:/join # $+ %curchannel 
  on *:text:!bul*:#: {
    if $read(yetkililer.txt,w,$nick) || ($nick isop $chan) {
      while (%botdurum == acik) {
        if ( %kul == ontanimli ) {
          set %usersay 1
          while (%usersay <= $lines(botusers.txt)) {
            if ( $nick == $read(botusers.txt,%usersay)) { set %kim 1 }
            inc %usersay 
          }
        }
        if ((%kim == $null) && (%kul == ontanimli)) { halt }
        else { set %kim $null }
        write -c temp.txt
        bulr $2 $3 $4
        if (%moderate == 1) { bekle }
        play $chan temp.txt $calc(%ds * 1000)
        set %zaman $calc(%ds * 1000 * $lines(temp.txt) + %cp * 1000)
        set %zamandur $calc(%zaman / 1000) 
        halt 
      }
    }
  } 
  alias wordcheck {
    set %twords $calc($numtok(%sonuc,32) + 1)
    if (%twords > %mvg) {
      set %blok $calc(%twords / %mvg)
      set %tamblok $calc($int(%blok) + 1)
      set %dng 1
      set %baslangic 1
      set %bitis %mvg
      while (%dng <= %tamblok) {
        set %aralik %baslangic $+ - $+ %bitis
        set %dizgi $gettok(%sonuc,%aralik,32)
        write temp.txt %dizgi
        set %baslangic $calc(%bitis + 1)
        set %bitis $calc(%bitis + %mvg )
        inc %dng
      }
    }
    else { write temp.txt %sonuc }
    return
  }
  alias defs {
    if ((!%ds) || (!%mvg) || (!%mva) || (!%cp)) {
      set %ds 3
      set %mvg 10
      set %mva 100
      set %cp 6
    }
  } 
}
on *:text:*:#: { 
  if $chan == # { 
    if ($nick isop $chan) || ($nick == Q) { 
      if $1 == !yetkiliekle { 
        if $2 == $null { 
          msg $chan  
          halt 
        } 
        if $hfind(yetkililer,$2,1,W).data { 
          msg $chan yetkili eklendi
          halt 
        } 
        else { 
          var %kotu.nr $r(0,10000),%kotu.item $2 
          hadd -m yetkililer %kotu.nr %kotu.item 
          hsave yetkililer yetkililer.txt 
          msg $chan eklenen nick        } 
      } 
      if $1 == !yetkilisil { 
        if $2 == $null { 
          msg $chan listeden kim cikacak
          halt 
        } 
        else { 
          if $hfind(yetkililer,$2,1,W).data { 
            hdel -s yetkililer $ifmatch $2 
            hsave yetkililer yetkililer.txt 
            msg $chan listeden cian nick          } 
          else { 
            msg $chan boyle bir nick yok
            halt 
          } 
        } 
      } 
      if $1 == !yetkililist { 
        listele 
      } 
    } 
    else { 
      if !yetkili* iswm $1 { 
        msg $chan komutu uygulayamassin yetkili degilsin
      } 
    } 
  } 
} 
alias listele { 
  msg $chan  listeleniyor
  var %azi = 1  
  while (%azi <= $hget(yetkililer,0).data) {  
    msg $chan $hget(yetkililer,%azi).data  
    inc %azi 
  } 
  if $hget(yetkililer,%azi).data == $null { 
    haltdef 
  } 
  msg $chan  finish
}


Konu QkLa tarafından (14 Şubat 2009 Saat 09:17 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 14 Şubat 2009, 16:19   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bot edit



Kodu inceledim, kodda zaten yetkili nick eklendiğinde yetkililer.txt'e ekliyormuş tabi bizde $read komutunu o txt üzerine okutunca yetkiliyi ekledimi bizim acc nickleri gidiyormuş komuta erişim için kullandığımız.

yetkililers.txt yaptım ben $read(yetkililers.txt,w,$nick) komutunu böyle uygulattım o sorun ortadan kalktı.

Kodu açmadan işlem görme olayını kaldırdım, artık istediğin komutu direkt girebilirsin. Botun açık yada kapalı olması önem taşımayacak
sen kodda;

|| kullanmıştın. Bu işaret "veya" bağlacı anlamı taşımaktadır. Yani kısacası kod nick yetkililers.txt'de veya kanalda opsa çalış demişsin ben bunu;

&& "ve" bağlacıyla düzelttim. Yani nick hem yetkililers.txt içerisinde bulunacak hemde kanalda op pozisyonunda olacak ki kod çalışsın.

Kolay gelsin..

 
Alıntı ile Cevapla

Alt 14 Şubat 2009, 16:24   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bot edit



Kodu vermeyi unutmuşum iyimi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Alıntı:
alias bekle {
mode # +m
}
alias sureler {
set %t 1
while (%t < 115) { echo 4 @kuran %t - $read(sureindex.txt,%t)
inc %t
}
}
menu channel,menubar {
-
Bot
.Açik :set %botdurum acik | echo -a bot açik | notice # Meal BOTu Kullanima Hazir | defs
.Kapali:set %botdurum kapali | echo -a Bot Kapali | notice # Meal BOTu Kapatildi
.Ayarlar:dialog -m BA BA
}
alias bulr {
if $read(yetkililers.txt,w,$nick) && ($nick isop $chan) {
set %sureno $null
set %curserver $server
set %curchannel $chan
if (($1 == $null) || ($2 == $null)) {
msg # Bul komutu formati:
msg # !bul sureadi yada numarasi ayet [bitis ayeti]
msg # Ör1:!bul taha 114 --> Taha 114. ayeti gösterir.
msg # Ör2:!bul taha 1 9 --> Taha [1-9]. ayetleri gösterir.
msg # Ör3:!bul 20 1 9 --> Taha [1-9].ayetleri gösterir.
halt
}
else {
set %sure $1
set %ayet1 $2
}
if ($3 == $null) { set %ayet2 %ayet1 }
else { set %ayet2 $3 }
if ($calc(%sure + 1) != 0) {
set %sureno $1
set %sure $read(sureindex.txt,%sureno)
goto dosyabul
}
set %sayac 1
set %topsat $lines(sureindex.txt)
while (%sayac <= %topsat) {
if (%sure == $read(sureindex.txt, %sayac)) {
write temp.txt Sure No: %sayac
set %sureno %sayac
}
inc %sayac
}
:dosyabul
if (%sureno == $null) {
msg # %sure bulunamadi.Sure ismini farkli bir isimle ya da sure numarasi kullanarak belirtiniz.Tüm surelerin listesi için /sureler yaziniz...
halt
}
set %sayiayet $read(ayetsayisi.txt,%sureno)
if (%ayet2 > %sayiayet) {
msg # Hatali Giris Yaptiniz
msg # %sure Suresi %sayiayet ayettir...
halt
}
if ((%ayet1 < 1) || (%sureno > 114) || (%ayet1 > %ayet2)) {
msg # Hatali Giris Yaptiniz...
halt
}
set %d1 3 - $len(%sureno)
set %dosya sureler $+ \ $+ $str(0,%d1) $+ %sureno $+ .txt
set %k 1
while (%ayet1 <= %ayet2) {
if ((%sureno == 2) && (%ayet1 == 282)) {
set %bkr 1
while (%bkr <= $lines(sureler\bakara282.txt)) {
set %sonuc $read(sureler\bakara282.txt,%bkr)
wordcheck
inc %bkr
}
goto art
}
set %sonuc $read(%dosya,w,%ayet1 $+ . $+ *)
if (%k != 1 ) goto gec
write temp.txt $upper(%sure) -- Toplam Ayet Sayisi: %sayiayet
write temp.txt Ayet: %ayet1 - %ayet2 $nick için yaziliyor...
:gec
wordcheck
:art
inc %k
inc %ayet1
}
write temp.txt -------------------------------0000------------------------ 12 [ %cp sn. durakladi ]
}
alias sureler {
set %t 1
while (%t < 115) { msg # %t - $read(sureindex.txt,%t)
inc %t
}
}
on *:playend:if (%moderate == 1) { /mode %curchannel -m }
on *:exit:unsetall
on *:disconnect:server %curserver
on *:CONNECT:/join # $+ %curchannel
on *:text:!bul*:#: {
if $read(yetkililers.txt,w,$nick) && ($nick isop $chan) {
if ( %kul == ontanimli ) {
set %usersay 1
while (%usersay <= $lines(botusers.txt)) {
if ( $nick == $read(botusers.txt,%usersay)) { set %kim 1 }
inc %usersay
}
if ((%kim == $null) && (%kul == ontanimli)) { halt }
else { set %kim $null }
write -c temp.txt
bulr $2 $3 $4
if (%moderate == 1) { bekle }
play $chan temp.txt $calc(%ds * 1000)
set %zaman $calc(%ds * 1000 * $lines(temp.txt) + %cp * 1000)
set %zamandur $calc(%zaman / 1000)
halt
}
}
}
alias wordcheck {
set %twords $calc($numtok(%sonuc,32) + 1)
if (%twords > %mvg) {
set %blok $calc(%twords / %mvg)
set %tamblok $calc($int(%blok) + 1)
set %dng 1
set %baslangic 1
set %bitis %mvg
while (%dng <= %tamblok) {
set %aralik %baslangic $+ - $+ %bitis
set %dizgi $gettok(%sonuc,%aralik,32)
write temp.txt %dizgi
set %baslangic $calc(%bitis + 1)
set %bitis $calc(%bitis + %mvg )
inc %dng
}
}
else { write temp.txt %sonuc }
return
}
alias defs {
if ((!%ds) || (!%mvg) || (!%mva) || (!%cp)) {
set %ds 3
set %mvg 10
set %mva 100
set %cp 6
}
}
}
on *:text:*:#: {
if $read(yetkililers.txt,w,$nick) && ($nick isop $chan) {
if $chan == # {
if $1 == !yetkiliekle {
if $2 == $null {
msg $chan
halt
}
if $hfind(yetkililer,$2,1,W).data {
msg $chan yetkili eklendi
halt
}
else {
var %kotu.nr $r(0,10000),%kotu.item $2
hadd -m yetkililer %kotu.nr %kotu.item
hsave yetkililer yetkililer.txt
msg $chan eklenen nick $qt($2) }
}
if $1 == !yetkilisil {
if $2 == $null {
msg $chan listeden kim cikacak
halt
}
else {
if $hfind(yetkililer,$2,1,W).data {
hdel -s yetkililer $ifmatch $2
hsave yetkililer yetkililer.txt
msg $chan listeden cian nick }
else {
msg $chan boyle bir nick yok
halt
}
}
}
if $1 == !yetkililist {
listele
}
}
else {
if !yetkili* iswm $1 {
msg $chan komutu uygulayamassin yetkili degilsin
}
}
}
}
alias listele {
msg $chan listeleniyor
var %azi = 1
while (%azi <= $hget(yetkililer,0).data) {
msg $chan $hget(yetkililer,%azi).data
inc %azi
}
if $hget(yetkililer,%azi).data == $null {
haltdef
}
msg $chan finish
}


 
Alıntı ile Cevapla

Alt 15 Şubat 2009, 08:38   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bot edit



asagidaki code !bul tarik 4 uyguladigimda ne kadar sure varsa isimlerini kanala yaziyor.onun disinda hersey istedigim gibi.bu surelerin kanala gonderilmesi icin gereken yeride code'den cikarabilirsek daha iyi olacak.komutu uyguladigimda tum sure isimleri kanala yansiyor.sure isimleri yansidiktan sonra statusteki uyari

* Playing 'temp.txt' to #dura with 0ms delay
-©-
* Playback of 'temp.txt' complete

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:start: { hmake yetkililer 1000 | hload yetkililer yetkililer.txt }
on *:connect: {
  .timer 1 10 /set %botdurum acik 
}
alias bekle {
  mode # +m
}
alias sureler {
  set %t 1
  while (%t < 115) { echo 4 @kuran %t - $read(sureindex.txt,%t)
    inc %t
  }
}
alias bulr {
  if $read(yetkililer.txt,w,$nick) || ($nick isop $chan) {        
    set %sureno $null 
    set %curserver $server 
    set %curchannel $chan
    if (($1 == $null) || ($2 == $null)) {
      msg # Bul komutu formati:
      msg # !bul sureadi yada numarasi ayet [bitis ayeti]
      msg # Ör1:!bul taha 114 --> Taha 114. ayeti gösterir.
      msg # Ör2:!bul taha 1 9 --> Taha [1-9]. ayetleri gösterir.
      msg # Ör3:!bul 20 1 9 --> Taha [1-9].ayetleri gösterir.
      halt
    }
    else {
      set %sure $1
      set %ayet1 $2
    }
    if ($3 == $null) { set %ayet2 %ayet1 }
    else { set %ayet2 $3 }
    if ($calc(%sure + 1) != 0) {
      set %sureno $1
      set %sure $read(sureindex.txt,%sureno) 
      goto dosyabul
    }
    set %sayac 1
    set %topsat $lines(sureindex.txt) 
    while (%sayac <= %topsat) {
      if (%sure == $read(sureindex.txt, %sayac)) {
        write temp.txt Sure No: %sayac
        set %sureno %sayac 
      }
      inc %sayac
    }
    :dosyabul 
    if (%sureno == $null) {
      msg # %sure bulunamadi.Sure ismini farkli bir isimle ya da sure numarasi kullanarak belirtiniz.Tüm surelerin listesi için /sureler yaziniz...
      halt
    }
    set %sayiayet $read(ayetsayisi.txt,%sureno) 
    if (%ayet2 > %sayiayet) {
      msg # Hatali Giris Yaptiniz
      msg # %sure Suresi %sayiayet ayettir... 
      halt
    }
    if ((%ayet1 < 1) || (%sureno > 114) || (%ayet1 > %ayet2)) {
      msg # Hatali Giris Yaptiniz...
      halt
    }
    set %d1 3 - $len(%sureno)
    set %dosya sureler $+ \ $+ $str(0,%d1) $+ %sureno $+ .txt
    set %k 1 
    while (%ayet1 <= %ayet2) {
      if ((%sureno == 2) && (%ayet1 == 282)) {
        set %bkr 1
        while (%bkr <= $lines(sureler\bakara282.txt)) {
          set %sonuc $read(sureler\bakara282.txt,%bkr) 
          wordcheck 
          inc %bkr
        }
        goto art
      }
      set %sonuc $read(%dosya,w,%ayet1 $+ . $+ *)
      if (%k != 1 ) goto gec
      write temp.txt $upper(%sure) -- Toplam Ayet Sayisi: %sayiayet
      write temp.txt Ayet: %ayet1 - %ayet2 $nick için yaziliyor...
      :gec
      wordcheck 
      :art 
      inc %k
      inc %ayet1
    }
    write temp.txt -------------------------------0000------------------------ 12 [ %cp sn. durakladi ]
  }
  alias sureler {
    set %t 1
    while (%t < 115) { msg # %t - $read(sureindex.txt,%t)
      inc %t
    }
  }
}
on *:playend:if (%moderate == 1) { /mode %curchannel -m }
on *:exit:unsetall
on *:disconnect:server %curserver 
on *:CONNECT:/join # $+ %curchannel 
on *:text:!bul*:#: {
  if $read(yetkililer.txt,w,$nick) || ($nick isop $chan) {    
    while (%botdurum == acik) {
      if ( %kul == ontanimli ) {
        set %usersay 1
        while (%usersay <= $lines(botusers.txt)) {
          if ( $nick == $read(botusers.txt,%usersay)) { set %kim 1 }
          inc %usersay 
        }
      }
      if ((%kim == $null) && (%kul == ontanimli)) { halt }
      else { set %kim $null }
      write -c temp.txt
      bulr $2 $3 $4
      if (%moderate == 1) { bekle }
      play $chan temp.txt $calc(%ds * 1000)
      set %zaman $calc(%ds * 1000 * $lines(temp.txt) + %cp * 1000)
      set %zamandur $calc(%zaman / 1000) 
      halt 
    }
  }
} 
alias wordcheck {
  set %twords $calc($numtok(%sonuc,32) + 1)
  if (%twords > %mvg) {
    set %blok $calc(%twords / %mvg)
    set %tamblok $calc($int(%blok) + 1)
    set %dng 1
    set %baslangic 1
    set %bitis %mvg
    while (%dng <= %tamblok) {
      set %aralik %baslangic $+ - $+ %bitis
      set %dizgi $gettok(%sonuc,%aralik,32)
      write temp.txt %dizgi
      set %baslangic $calc(%bitis + 1)
      set %bitis $calc(%bitis + %mvg )
      inc %dng
    }
  }
  else { write temp.txt %sonuc }
  return
}
alias defs {
  if ((!%ds) || (!%mvg) || (!%mva) || (!%cp)) {
    set %ds 3
    set %mvg 10
    set %mva 100
    set %cp 6
  }
}
 
Alıntı ile Cevapla

Alt 15 Şubat 2009, 13:12   #15
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bot edit



Sureler sen hangi komutu yazdıktan sonra kanala yansıyor?

 
Alıntı ile Cevapla

Alt 15 Şubat 2009, 18:21   #16
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bot edit



!bul taha 5 sadece tek sure icin degil surelerin hepsinde yansiyor.sure isimlerinden sonra en altta yazdigim komuta ait ayette yer aliyor

 
Alıntı ile Cevapla

Alt 16 Şubat 2009, 03:38   #17
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: bot edit



Alıntı:
on *:start: { hmake yetkililer 1000 | hload yetkililer yetkililer.txt }
on *:connect: {
.timer 1 10 /set %botdurum acik
}
alias bekle {
mode # +m
}

alias bulr {
if $read(yetkililer.txt,w,$nick) || ($nick isop $chan) {
set %sureno $null
set %curserver $server
set %curchannel $chan
if (($1 == $null) || ($2 == $null)) {
msg # Bul komutu formati:
msg # !bul sureadi yada numarasi ayet [bitis ayeti]
msg # Ör1:!bul taha 114 --> Taha 114. ayeti gösterir.
msg # Ör2:!bul taha 1 9 --> Taha [1-9]. ayetleri gösterir.
msg # Ör3:!bul 20 1 9 --> Taha [1-9].ayetleri gösterir.
halt
}
else {
set %sure $1
set %ayet1 $2
}
if ($3 == $null) { set %ayet2 %ayet1 }
else { set %ayet2 $3 }
if ($calc(%sure + 1) != 0) {
set %sureno $1
set %sure $read(sureindex.txt,%sureno)
goto dosyabul
}
set %sayac 1
set %topsat $lines(sureindex.txt)
while (%sayac <= %topsat) {
if (%sure == $read(sureindex.txt, %sayac)) {
write temp.txt Sure No: %sayac
set %sureno %sayac
}
inc %sayac
}
:dosyabul
if (%sureno == $null) {
msg # %sure bulunamadi.Sure ismini farkli bir isimle ya da sure numarasi kullanarak belirtiniz.Tüm surelerin listesi için /sureler yaziniz...
halt
}
set %sayiayet $read(ayetsayisi.txt,%sureno)
if (%ayet2 > %sayiayet) {
msg # Hatali Giris Yaptiniz
msg # %sure Suresi %sayiayet ayettir...
halt
}
if ((%ayet1 < 1) || (%sureno > 114) || (%ayet1 > %ayet2)) {
msg # Hatali Giris Yaptiniz...
halt
}
set %d1 3 - $len(%sureno)
set %dosya sureler $+ \ $+ $str(0,%d1) $+ %sureno $+ .txt
set %k 1
while (%ayet1 <= %ayet2) {
if ((%sureno == 2) && (%ayet1 == 282)) {
set %bkr 1
while (%bkr <= $lines(sureler\bakara282.txt)) {
set %sonuc $read(sureler\bakara282.txt,%bkr)
wordcheck
inc %bkr
}
goto art
}
set %sonuc $read(%dosya,w,%ayet1 $+ . $+ *)
if (%k != 1 ) goto gec
write temp.txt $upper(%sure) -- Toplam Ayet Sayisi: %sayiayet
write temp.txt Ayet: %ayet1 - %ayet2 $nick için yaziliyor...
:gec
wordcheck
:art
inc %k
inc %ayet1
}
write temp.txt -------------------------------0000------------------------ 12 [ %cp sn. durakladi ]
}
alias sureler {
set %t 1
while (%t < 115) { msg # %t - $read(sureindex.txt,%t)
inc %t
}
}
}
on *:playend:if (%moderate == 1) { /mode %curchannel -m }
on *:exit:unsetall
on *:disconnect:server %curserver
on *:CONNECT:/join # $+ %curchannel
on *:text:!bul*:#: {
if $read(yetkililer.txt,w,$nick) || ($nick isop $chan) {
while (%botdurum == acik) {
if ( %kul == ontanimli ) {
set %usersay 1
while (%usersay <= $lines(botusers.txt)) {
if ( $nick == $read(botusers.txt,%usersay)) { set %kim 1 }
inc %usersay
}
}
if ((%kim == $null) && (%kul == ontanimli)) { halt }
else { set %kim $null }
write -c temp.txt
bulr $2 $3 $4
if (%moderate == 1) { bekle }
play $chan temp.txt $calc(%ds * 1000)
set %zaman $calc(%ds * 1000 * $lines(temp.txt) + %cp * 1000)
set %zamandur $calc(%zaman / 1000)
halt
}
}
}
alias wordcheck {
set %twords $calc($numtok(%sonuc,32) + 1)
if (%twords > %mvg) {
set %blok $calc(%twords / %mvg)
set %tamblok $calc($int(%blok) + 1)
set %dng 1
set %baslangic 1
set %bitis %mvg
while (%dng <= %tamblok) {
set %aralik %baslangic $+ - $+ %bitis
set %dizgi $gettok(%sonuc,%aralik,32)
write temp.txt %dizgi
set %baslangic $calc(%bitis + 1)
set %bitis $calc(%bitis + %mvg )
inc %dng
}
}
else { write temp.txt %sonuc }
return
}
alias defs {
if ((!%ds) || (!%mvg) || (!%mva) || (!%cp)) {
set %ds 3
set %mvg 10
set %mva 100
set %cp 6
}
}

/sureler
alias'ı devre dışı bırakıldı. !bul* yazıldıgında /sureler devreye giriyordu kapatıldı..

 
Alıntı ile Cevapla

Cevapla
Sayfa 2 Toplam 2 Sayfadan 1 2

Etiketler
bot, edit, mirc, mirc download, mirc indir

« önceki Konu | sonraki Konu »

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

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Unreal CR Edit (CR JAVA Edit) toXic Unreal IRCd 0 15 Şubat 2009 19:19
Kod Edit Lord_Raiden mIRC Scripting Sorunları 5 18 Kasım 2008 02:20




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