🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
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)"