Konu: Pre TCL
Tekil Mesaj gösterimi
Alt 20 Ekim 2013, 13:12   #2
Çevrimdışı
saywhat
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

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver