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

 Kayıt ol
Etiketlenen Kullanıcılar

1Beğeni(ler)
  • 1 Post By saywhat

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 20 Ekim 2013, 03:22   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Pre TCL



Aktif ve sorunsuz çalışan bu bot için sadece variable chan 2. kanal için boşluk bırakarak 2. kanalı yazdığımda çalışmamakta.

2 veya daha fazla kanalda aktif olarak calısması icin ne yapmamız gerek. Teşekkürler.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
## Displys Scene Releases that have been Pred on the website 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
namespace eval pre {
  variable language "FRENCH|GERMAN|SWEDISH|DANSIH|DUTCH|FINNISH|NORWEGIAN|SPANiSH"
  #"APPS 0DAY MOBİLE ANiME AUDiOBOOKS COVERS DOX EBOOKS IMAGESET SAMPLES UNKNOWN MP2 MVIDS MDVDR TV TV-BLURAY TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD VCD BLURAY x264 XViD SVCD TRAILERS SUBPACK DiVX DVDR Wii XBOX XBOX360 GAMEBOY GAMECUBE GAMES DREAMCAST NDS PS1 PS2 PS3 PSP PSX PSXPSP XXs XXs-IMGSET"
  variable types "APPS 0DAY MOBİLE MP2 TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD x264 XViD XXs XXs-IMGSET"
  #Set to channel to show Pre information
  variable chan "#bitturk"
  #Change preNum to how many Search Results you want shown  
  variable Num 5
}
set PreNew ""

#Change to (on/off) to turn on pre bot
set status "on"

bind pub - !pre presearch
bind dcc - pre pre:change

proc pre {} {
  global PreNew status
  if {$status == "on"} {
    set PreOld $PreNew
    set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
    if {$page!=0} {
      regexp {"timestamp">(.*?)<\/span>} $page a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $page a section
      regexp {"release">(.*?)<\/span>} $page a release
      if {[info exists release]} { set PreNew "$stamp $section $release"
          if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} { putquick "PRIVMSG $pre::chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release" }
      }
    }
  }
  utimer 2 pre
}

proc pre:change {hand idx arg} {
  global status
  if {$status == "on"} { set status "off"
  } else { set status "on" } 
  putdcc $idx "Pre status changed to: $status"
}
proc presearch { nick host hand chan arg } { 
  set arg [string map { " " "+" } $arg]
  set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
  set temp 1
  while {$temp <= $pre::Num && [regexp {<div>(.*?)<\/div>} $page a result]} {
    if {[info exists result]} {
      regexp {"timestamp">(.*?)<\/span>} $result a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $result a section
      regexp {"release">(.*?)<\/span>} $result a release   
      regsub {<div>(.*?)<\/div>} $page "" page
 
      if {![regexp -nocase $pre::language $release]} {
        if {[info exists release]} { incr temp
          putquick "PRIVMSG $chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          unset stamp section release 
        }
      }
    }
  }
  if {$temp==0} { putquick "PRIVMSG $chan :\00304(\00315PRE\00304)\00315 Nothing Found" }
}
proc web2data { website } {
    package require http
    if { [catch { set token [http::geturl $website -timeout 100000]} error] } {  return 0
     } elseif { [http::ncode $token] == "404" } { return 0
     } elseif { [http::status $token] == "ok" } { set data [http::data $token]
     } elseif { [http::status $token] == "timeout" } {  return 0
     } elseif { [http::status $token] == "error" } {  return 0 }
    http::cleanup $token
    if { [info exists data] } { return $data
    } else { return 0 }
}

utimer 2 pre

putlog "\00308(\00315PRE\00308)"
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Alt 20 Ekim 2013, 13:12   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Pre TCL



bota bağlan : .chanset #kanal +pre ..
tüm kanallların için : .chanset * +pre

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
## Displys Scene Releases that have been Pred on the website 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
namespace eval pre {
  variable language "FRENCH|GERMAN|SWEDISH|DANSIH|DUTCH|FINNISH|NORWEGIAN|SPANiSH"
  #"APPS 0DAY MOBİLE ANiME AUDiOBOOKS COVERS DOX EBOOKS IMAGESET SAMPLES UNKNOWN MP2 MVIDS MDVDR TV TV-BLURAY TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD VCD BLURAY x264 XViD SVCD TRAILERS SUBPACK DiVX DVDR Wii XBOX XBOX360 GAMEBOY GAMECUBE GAMES DREAMCAST NDS PS1 PS2 PS3 PSP PSX PSXPSP XXs XXs-IMGSET"
  variable types "APPS 0DAY MOBİLE MP2 TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD x264 XViD XXs XXs-IMGSET"
  # bota bağlan : .chanset #kanal +pre  .. tüm kanallların için : .chanset * +pre
  setudef flag pre
  #Change preNum to how many Search Results you want shown  
  variable Num 5
}
set PreNew ""

#Change to (on/off) to turn on pre bot
set status "on"

bind pub - !pre presearch
bind dcc - pre pre:change

proc pre {} {
  global PreNew status
  if {$status == "on"} {
    set PreOld $PreNew
    set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
    if {$page!=0} {
      regexp {"timestamp">(.*?)<\/span>} $page a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $page a section
      regexp {"release">(.*?)<\/span>} $page a release
      if {[info exists release]} { set PreNew "$stamp $section $release"
          if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} { putquick "PRIVMSG $pre::chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release" }
      }
    }
  }
  utimer 2 pre
}

proc pre:change {hand idx arg} {
  global status
  if {$status == "on"} { set status "off"
  } else { set status "on" } 
  putdcc $idx "Pre status changed to: $status"
}
proc presearch { nick host hand chan arg } {
  if {![channel get $chan pre]} { return;} 
  set arg [string map { " " "+" } $arg]
  set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
  set temp 1
  while {$temp <= $pre::Num && [regexp {<div>(.*?)<\/div>} $page a result]} {
    if {[info exists result]} {
      regexp {"timestamp">(.*?)<\/span>} $result a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $result a section
      regexp {"release">(.*?)<\/span>} $result a release   
      regsub {<div>(.*?)<\/div>} $page "" page
 
      if {![regexp -nocase $pre::language $release]} {
        if {[info exists release]} { incr temp
          putquick "PRIVMSG $chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          unset stamp section release 
        }
      }
    }
  }
  if {$temp==0} { putquick "PRIVMSG $chan :\00304(\00315PRE\00304)\00315 Nothing Found" }
}
proc web2data { website } {
    package require http
    if { [catch { set token [http::geturl $website -timeout 100000]} error] } {  return 0
     } elseif { [http::ncode $token] == "404" } { return 0
     } elseif { [http::status $token] == "ok" } { set data [http::data $token]
     } elseif { [http::status $token] == "timeout" } {  return 0
     } elseif { [http::status $token] == "error" } {  return 0 }
    http::cleanup $token
    if { [info exists data] } { return $data
    } else { return 0 }
}

utimer 2 pre

putlog "\00308(\00315PRE\00308)"
 
Alıntı ile Cevapla

Alt 20 Ekim 2013, 17:20   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Pre TCL



Sevgili saywhat. Dediklerini aynen yaptım. Ancak hala 1. kanal'a yansıtıyor. 2. kanalda bir hareket yok.

[17:13:40] <BT> [17:13:40] <<ArchangeL>>.chanset #uploader +pre
[17:13:40] <BT> [17:13:41] <<ArchangeL>> !ArchangeL! chanset chanset +pre
[17:13:40] <BT> Invalid mode failures for #uploader: +pre
[17:13:40] <BT> For the valid modes, type: (/msg) BT chaninfo (#channel) help
[17:13:40] <BT> [17:13:41] Writing internal bot data ....
[17:13:40] <BT> [17:13:41] Writing user file...
[17:13:40] <BT> [17:13:41] Writing channel file...
[17:13:40] <BT> [17:13:41] #ArchangeL# chanset #uploader +pre

 
Alıntı ile Cevapla

Alt 20 Ekim 2013, 18:07   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Pre TCL



bir satırı görmemişim ...
hata vermesi normalmiş.
şimdi deneyin...
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
## Displys Scene Releases that have been Pred on the website 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
namespace eval pre {
  variable language "FRENCH|GERMAN|SWEDISH|DANSIH|DUTCH|FINNISH|NORWEGIAN|SPANiSH"
  #"APPS 0DAY MOBİLE ANiME AUDiOBOOKS COVERS DOX EBOOKS IMAGESET SAMPLES UNKNOWN MP2 MVIDS MDVDR TV TV-BLURAY TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD VCD BLURAY x264 XViD SVCD TRAILERS SUBPACK DiVX DVDR Wii XBOX XBOX360 GAMEBOY GAMECUBE GAMES DREAMCAST NDS PS1 PS2 PS3 PSP PSX PSXPSP XXs XXs-IMGSET"
  variable types "APPS 0DAY MOBİLE MP2 TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD x264 XViD XXs XXs-IMGSET"
  ## bota bağlan : .chanset #kanal +pre  .. tüm kanallların için : .chanset * +pre
  setudef flag pre
  #Change preNum to how many Search Results you want shown  
  variable Num 5
}
set PreNew ""

#Change to (on/off) to turn on pre bot
set status "on"

bind pub - !pre presearch
bind dcc - pre pre:change

proc pre {} {
  global PreNew status
  if {$status == "on"} {
    set chan $::pchan
    set PreOld $PreNew
    set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
    if {$page!=0} {
      regexp {"timestamp">(.*?)<\/span>} $page a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $page a section
      regexp {"release">(.*?)<\/span>} $page a release
      if {[info exists release]} { set PreNew "$stamp $section $release"
          if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} { putquick "PRIVMSG $chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release" }
      }
    }
  }
  utimer 2 pre
}

proc pre:change {hand idx arg} {
  global status
  if {$status == "on"} { set status "off"
  } else { set status "on" } 
  putdcc $idx "Pre status changed to: $status"
}
proc presearch { nick host hand chan arg } {
  if {![channel get $chan pre]} { return;}
  set arg [string map { " " "+" } $arg]
  set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
  set temp 1; set ::pchan $chan
  while {$temp <= $pre::Num && [regexp {<div>(.*?)<\/div>} $page a result]} {
    if {[info exists result]} {
      regexp {"timestamp">(.*?)<\/span>} $result a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $result a section
      regexp {"release">(.*?)<\/span>} $result a release   
      regsub {<div>(.*?)<\/div>} $page "" page
 
      if {![regexp -nocase $pre::language $release]} {
        if {[info exists release]} { incr temp
          putquick "PRIVMSG $chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          unset stamp section release 
        }
      }
    }
  }
  if {$temp==0} { putquick "PRIVMSG $chan :\00304(\00315PRE\00304)\00315 Nothing Found" }
}
proc web2data { website } {
    package require http
    if { [catch { set token [http::geturl $website -timeout 100000]} error] } {  return 0
     } elseif { [http::ncode $token] == "404" } { return 0
     } elseif { [http::status $token] == "ok" } { set data [http::data $token]
     } elseif { [http::status $token] == "timeout" } {  return 0
     } elseif { [http::status $token] == "error" } {  return 0 }
    http::cleanup $token
    if { [info exists data] } { return $data
    } else { return 0 }
}

utimer 2 pre

putlog "\00308(\00315PRE\00308)"
 
Alıntı ile Cevapla

Alt 20 Ekim 2013, 21:56   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Pre TCL



Tekrar rahatsız ediyorum ancak

[21:39:18] <ArchangeL> .chanset #uploader +pre
[21:39:18] <BT> [21:39:19] <<ArchangeL>> !ArchangeL! chanset chanset +pre
[21:39:18] <BT> Successfully set mode +pre for #uploader
[21:39:18] <BT> [21:39:19] Writing internal bot data ....
[21:39:18] <BT> [21:39:19] Writing user file...
[21:39:18] <BT> [21:39:19] Writing channel file...
[21:39:18] <BT> [21:39:19] #ArchangeL# chanset #uploader +pre
[21:39:20] <ArchangeL> .chanset #bitturk +pre
[21:39:20] <BT> [21:39:21] <<ArchangeL>> !ArchangeL! chanset chanset +pre
[21:39:20] <BT> Successfully set mode +pre for #bitturk
[21:39:20] <BT> [21:39:21] Writing internal bot data ....
[21:39:20] <BT> [21:39:21] Writing user file...
[21:39:20] <BT> [21:39:21] Writing channel file...
[21:39:20] <BT> [21:39:21] #ArchangeL# chanset #bitturk +pre


Yazmama rağmen herhangi bir yazı kanallara gelmemekte. Hata ne olabilir ? Teşekkürler.

Not: Kanallarda !pre komutunu tek başına uyguladığımda yanıt alıyorum.

[21:33:10] <%BT> (PRE) 2013-10-20 18:33:14 (MP3) Gary_Barlow-Open_Road-CD-FLAC-1997-LoKET
[21:33:10] <%BT> (PRE) 2013-10-20 18:32:47 (MP3) Diva_Suicide-Scars-PROMO-CDR-FLAC-2010-LoKET
[21:33:10] <%BT> (PRE) 2013-10-20 18:31:12 (MP3) Miraculum-Whirlfinder-WEB-2013-FALCON
[21:33:10] <%BT> (PRE) 2013-10-20 18:30:41 (MP3) Von-Satanic_Blood-2012-NSTM
[21:33:10] <%BT> (PRE) 2013-10-20 18:30:34 (x264) The.Incredibles.2004.iCELANDiC.BDRip.x264-FARGIRENIS

Ancak yeni sunum çıktığında sunum otomatik düşmemekte. Saygılar.


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

Konunun ilk postundaki code'da 1. kanala sunumlar oto düşmekte idi. Aynı anda 2 kanala düşmesini istiyorum oto. İstek ve arzu bu sadece. Saygılar.

 
Alıntı ile Cevapla

Alt 21 Ekim 2013, 00:40   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Pre TCL



bir önceki,yukarda verdiğim düzenlemeyi şimdi denediğimde gördüğüm , arama yapmak sorun olmuyor ancak iki kanal üstünde aktif ettiğimde kodu birinde oto mesajı atıyor diğerinde atmıyor ama ikisindede aramayı yapıyor...
(nedenini kodu yazana sormalı..)

verdiğiniz koddaki 8. satır:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
  variable chan "#bitturk"

bu şekilde değişip,kaç kanalda çalışacaksa arada bir boşluk bırakarak çoğaltın.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
  variable chan {#deneme1 #deneme2}

satır 31'de :
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
          if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} { putquick "PRIVMSG $pre::chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release" }

bu şekilde direk üzerinde oto mesaj atmasını istediğiniz kanal isim/lerini girip satır/ları çoğaltarak,birden fazla kanalda yeni çıkanları atmasını sağlayabilirsiniz:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
         if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} { 
		  putquick "PRIVMSG #deneme1 :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
		  putquick "PRIVMSG #deneme2 :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"

bunların dışında kodu baştan yazmak hariç denediğim ne namespace global variable'ı ne array set ... nede variable'ı diğer prosedürde taşıyıp çoğaltmayı kabul etmedi.

aramada sorun çıkmıyor ancak iş çıkanları kanala postalamasına gelince sadece tek bir kanala atıyor diğerlerine atmayı red ediyor.
ancak yukardaki değişimlerden sonra çalışması istenen her kanalda atması mümkün oluyor...

 
Alıntı ile Cevapla

Alt 21 Ekim 2013, 02:00   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Pre TCL



Dediklerinizi harfiyen yaptım.
1. kanal bitturk
2. kanal uploader
Dediğiniz şekilde ekleme yaptığımda
Alıntı:
variable chan {#bitturk #uploader}

1. kanalda oto çıkartırken variable chandeki 2. kanalıda 1. kanalın oto mesaj önünde çıkartmakta.

[01:35:49] <%BT> #uploader
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
PRE) 2013-10-20 22:35:52 (TV-x264) Ojciec.Mateusz.S10E07.PL.720p.HDTV.x264-ProPLTV

2. dediğiniz ise

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if  {![regexp -nocase $pre::language $release] && [regexp -nocase  $section $pre::types] && $PreNew != $PreOld} {  		  putquick "PRIVMSG #deneme1 :\00304(\00302PRE\00304)\00305 $stamp  \00304(\00302$section\00304)\00301 $release" 		  putquick "PRIVMSG #deneme2 :\00304(\00302PRE\00304)\00305 $stamp  \00304(\00302$section\00304)\00301 $release"

Bu şekilde sorunsuz eklememe rağmen ne yazıkkı üzülerek söylüyorum yine aktif olmadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ancak uğraştığın için teşekkürü bir borç bilirim. Tek kanalla idare edicez artık. Saygılar sevgiler..

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if  {![regexp -nocase $pre::language $release] && [regexp -nocase  $section $pre::types] && $PreNew != $PreOld} { 
          putquick "PRIVMSG #bitturk :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          putquick "PRIVMSG #uploader :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
           if {![regexp -nocase $pre::language $release] && [regexp  -nocase $section $pre::types] && $PreNew != $PreOld} { putquick  "PRIVMSG $chan :\00304(\00302PRE\00304)\00305 $stamp  \00304(\00302$section\00304)\00301 $release" }
      }
 
Alıntı ile Cevapla

Alt 21 Ekim 2013, 02:35   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Pre TCL



hatalı eklemişiniz.

burdan kopyalayın...

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
## Displys Scene Releases that have been Pred on the website 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
namespace eval pre {
  variable language "FRENCH|GERMAN|SWEDISH|DANSIH|DUTCH|FINNISH|NORWEGIAN|SPANiSH"
  #"APPS 0DAY MOBİLE ANiME AUDiOBOOKS COVERS DOX EBOOKS IMAGESET SAMPLES UNKNOWN MP2 MVIDS MDVDR TV TV-BLURAY TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD VCD BLURAY x264 XViD SVCD TRAILERS SUBPACK DiVX DVDR Wii XBOX XBOX360 GAMEBOY GAMECUBE GAMES DREAMCAST NDS PS1 PS2 PS3 PSP PSX PSXPSP XXs XXs-IMGSET"
  variable types "APPS 0DAY MOBİLE MP2 TV-DVDR TV-DVDRiP TV-HR TV-x264 TV-XViD x264 XViD XXs XXs-IMGSET"
  #Set to channel to show Pre information
  variable chan {#bitturk #uploader}
  #Change preNum to how many Search Results you want shown  
  variable Num 5
}
set PreNew ""

#Change to (on/off) to turn on pre bot
set status "on"

bind pub - !pre presearch
bind dcc - pre pre:change

proc pre {} {
  global PreNew status
  if {$status == "on"} {
    set PreOld $PreNew
    set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
    if {$page!=0} {
      regexp {"timestamp">(.*?)<\/span>} $page a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $page a section
      regexp {"release">(.*?)<\/span>} $page a release
      if {[info exists release]} { set PreNew "$stamp $section $release"
          if {![regexp -nocase $pre::language $release] && [regexp -nocase $section $pre::types] && $PreNew != $PreOld} { 
          putquick "PRIVMSG #bitturk :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          putquick "PRIVMSG #uploader :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          }
        }
    }
  }
  utimer 2 pre
}

proc pre:change {hand idx arg} {
  global status
  if {$status == "on"} { set status "off"
  } else { set status "on" } 
  putdcc $idx "Pre status changed to: $status"
}
proc presearch { nick host hand chan arg } { 
  set arg [string map { " " "+" } $arg]
  set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set page [web2data $url]
  set temp 1
  while {$temp <= $pre::Num && [regexp {<div>(.*?)<\/div>} $page a result]} {
    if {[info exists result]} {
      regexp {"timestamp">(.*?)<\/span>} $result a stamp
      regexp {"section"><a.*?>(.*?)<\/a>} $result a section
      regexp {"release">(.*?)<\/span>} $result a release   
      regsub {<div>(.*?)<\/div>} $page "" page
 
      if {![regexp -nocase $pre::language $release]} {
        if {[info exists release]} { incr temp
          putquick "PRIVMSG $chan :\00304(\00302PRE\00304)\00305 $stamp \00304(\00302$section\00304)\00301 $release"
          unset stamp section release 
        }
      }
    }
  }
  if {$temp==0} { putquick "PRIVMSG $chan :\00304(\00315PRE\00304)\00315 Nothing Found" }
}
proc web2data { website } {
    package require http
    if { [catch { set token [http::geturl $website -timeout 100000]} error] } {  return 0
     } elseif { [http::ncode $token] == "404" } { return 0
     } elseif { [http::status $token] == "ok" } { set data [http::data $token]
     } elseif { [http::status $token] == "timeout" } {  return 0
     } elseif { [http::status $token] == "error" } {  return 0 }
    http::cleanup $token
    if { [info exists data] } { return $data
    } else { return 0 }
}

utimer 2 pre

putlog "\00308(\00315PRE\00308)"
 
Alıntı ile Cevapla

Alt 21 Ekim 2013, 10:36   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Pre TCL



Bu sefer oldu. Çok teşekkür ederim.

 
Alıntı ile Cevapla

Cevapla

Etiketler
pre, tcl

« ö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




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
trsikayet.com ferizli haber kaynarca haber yavru köpek sohbet instagram takipçi 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 副業 https://www.newstrendline.com/