Tcl Berita

################################

### berita.tcl

### Version 1.0

### edit By Arch_fajri

### arch_fajri@yahoo.co.id

### http://lampunghacker.blogspot.com

### Google@allnetwork

### Desember @ 2010

################################

#

# Start of Settings

#

namespace eval ::rss-synd {

variable rss

# This is an example of a basic feed, If you dont understand why all

# the \'s are in the examples below use this one as a template.

set rss(detikcom) {

"url" "http://rss.detik.com/index.php/news"

"channels" "#google"

"database" "./scripts/detikcom.db"

"output" " 8,2\[ 7,2\@@channel!title@@\ 8,2]\ 1,41\ @@item!pubDate@@\ 2,42\ @@item!title@@\ 6,42 @@item!description@@\ 47,42 Selengkapnya (\037@@item!guid@@\037\) "

"trigger" "!detikcom"

"evaluate-tcl" 1

}

set rss(detikinet) {

"url" "http://detikinet.com/index.php/detik.feed"

"channels" "#google"

"output" " 8,2\[ 7,2\@@channel!title@@\ 8,2]\ 1,41\ @@item!pubDate@@\ 2,42\ @@item!title@@\ 6,42 @@item!description@@\ 47,42 Selengkapnya (\037@@item!guid@@\037\) "

"database" "./scripts/detikinet.db"

"trigger" "!detikinet"

"evaluate-tcl" 1

}

set rss(detikOtomotif) {

"url" "http://rss.detik.com/index.php/otomotif"

"channels" "#google"

"output" " 8,2\[ 7,2\@@channel!title@@\ 8,2]\ 1,41\ @@item!pubDate@@\ 2,42\ @@item!title@@\ 6,42 @@item!description@@\ 47,42 Selengkapnya (\037@@item!guid@@\037\) "

"database" "./scripts/detikOtomotif.db"

"trigger" "!detikoto"

"evaluate-tcl" 1

}

set rss(Arrahmah.Com-International) {

"url" "http://arrahmah.com/index.php/rss/international"

"channels" "#google"

"output" " 8,2\[ 7,2\@@channel!title@@\ 8,2]\ 1,41\ @@item!pubDate@@\ 2,42\ @@item!title@@\ 6,42 @@item!description@@\ 47,42 Selengkapnya (\037@@item!guid@@\037\) "

"database" "./scripts/arrahmahinternasional.db"

"trigger" "!arrahmahint"

"evaluate-tcl" 1

}

set rss(metrotvnews) {

"url" "http://www.metrotvnews.com/metromain/rss/nusantara"

"channels" "#google"

"output" " 8,2\[ 7,2\@@channel!title@@\ 8,2]\ 1,41\ @@item!pubDate@@\ 2,42\ @@item!title@@\ 6,42 @@item!description@@\ 47,42 Selengkapnya (\037@@item!guid@@\037\) "

"database" "./scripts/liputan6.db"

"trigger" "!metrotvnews"

"output-order" 1

"evaluate-tcl" 1

}

set rss(Arrahmah.Com-local) {

"url" "http://arrahmah.com/index.php/rss/local"

"channels" "#google"

"output" " 8,2\[ 7,2\@@channel!title@@\ 8,2]\ 1,41\ @@item!pubDate@@\ 2,42\ @@item!title@@\ 6,42 @@item!description@@\ 47,42 Selengkapnya (\037@@item!guid@@\037\) "

"database" "./scripts/Arrahmah.Com-local.db"

"trigger" "!arrahmahlocal"

"output-order" 1

"evaluate-tcl" 1

}

# The default settings, If any setting isnt set for an individual feed

# it'll use the default listed here

#

# WARNING: You can change the options here, but DO NOT REMOVE THEM, doing

# so will cause errors.

Download di sini

Tcl Radio

################################
### Radio.tcl
### Version 1.0
### edit By Arch_fajri
### arch_fajri@yahoo.co.id
### http://lampunghacker.blogspot.com
### Google@allnetwork
### Desember @ 2010
################################

set url "http://46.102.252.141:8000"

set playlist "http://kelakar.server.or.id:8000/listen.pls"

set djch "#lampung #google"

package require http

bind pub -|- .radio streamstats

proc streamstats {nick uhost hand chan arg} {

global url playlist

::http::config -useragent "Mozilla/5.0; Shoutinfo"

set http_req [::http::geturl $url -timeout 2000]

if {[::http::status $http_req] != "ok"} {

puthelp "PRIVMSG $chan :Hmm....";

}

set data [::http::data $http_req]

::http::cleanup $http_req

if {[regexp {B>([^<]+) of} $data x listener]} {

regexp {Current Song: ([^<]+)} $data x nowplaying

regexp {Stream Title: ([^<]+)} $data x streamtitle

regexp {Stream Genre: ([^<]+)} $data x genre

regexp { of ([^<]+) listeners} $data x maxlistener

regexp {listeners ([^<]+)} $data x unique

regexp {Stream is up at ([^<]+) kbps} $data x bitrate

puthelp "PRIVMSG $chan : 9,2 | 0 Now Playing : 8 $nowplaying 9 | 0 Genre : 8 $genre 9 | 0 $streamtitle 9| 0 ( 08$listener 0/ 08$maxlistener 0) listeners 08$unique 0at 08 $bitrate 0kbps 9 | 00 Website: 08 http://lampunghacker.blogspot.com 9 | 0 PlayList: 8 $playlist 9 | "

Download di sini

Tcl Domain

################################
### Domain.tcl
### Version 1.0
### edit By Arch_fajri
### arch_fajri@yahoo.co.id
### http://lampunghacker.blogspot.com
### Google@allnetwork
### Desember @ 2010
################################

bind pub - !owner owner
proc owner {nick host handle chan text} {

set server "isfree.schlundtec.com"
set port 80
set l 14
set i 0
set path "/cgi-bin/isfree.cgi?nodesign=1&domain=[lindex $text 0]"
set sockdw [socket $server $port]

puts $sockdw "GET $path HTTP/1.0"
puts $sockdw "User.Agent:Mozilla"
puts $sockdw "Host: $server"
puts $sockdw ""

flush $sockdw
while {$i <= $l} {
gets $sockdw linedw
putlog $linedw
if {[string match "*Domain*frei*" $linedw]} {
putserv "PRIVMSG $chan :DOMAIN [lindex $text 0] is not exist"
close $sockdw
return 0
}
if {[string match "*Domain*registriert*" $linedw]} {
gets $sockdw
putserv "PRIVMSG $chan :Owner : [html [gets $sockdw]]"
putserv "PRIVMSG $chan :Address : [html [gets $sockdw]]"
putserv "PRIVMSG $chan :City : [html [gets $sockdw]]"
putserv "PRIVMSG $chan :Country : [html [gets $sockdw]]"
close $sockdw
return 0
}
incr i
}
close $sockdw
}

Download di sini

Tcl Carding

#################################
### carding.tcl
### Version 1.0
### edit By Arch_fajri
### arch_fajri@yahoo.co.id
### http://lampunghacker.blogspot.com
### Google@allnetwork
### Desember @ 2010
#################################

putlog "## ..:: Initializing carding Addon TCL ::... ##"
# Set Channel
set carding_chan "#google"
set master 1
# Set respon, baris pertama direspon oleh baris selanjutnya
set carding {
{
"!command" {
" 0,1$nick 4: 11Invalid Command, use 4! 15Commands "
}
}
{
"!commands*" {
" 0,1$nick 4: 11Commands is » 0,1 4! 15 C ountry 4! 15 S tate 4! 15 P roxy 4! 15 C vv2 4! 15 B ank 4! 15 P ortchk 4! 15 A lgobank 4! 15 A lgolocal "
}
}

{
"!country" {
" 0,1$nick 4: 11Using 4 !Country US 11or u want " }
}

Download di sini

Tcl Advertise

################################
### advertise.tcl
### Version 1.0
### edit By Arch_fajri
### arch_fajri@yahoo.co.id
### http://lampunghacker.blogspot.com
### Google@allnetwork
### Desember @ 2010
################################

# Channel to send advertise messages to / Set channel untuk advertise
set ai_chan "#lampung"

# Maximum time interval between messages (in minutes) / Set jarak pesan tiap X menit
set ai_time 15

# Messages to send / Set pesan
set ai_msgs {
"add fB arch_fajri@yahoo.co.id"
"Lampung@Allnetwork"
"Mau jadi Dj Radio Langgam PV OP Lampung@alletwork"
"Trima Jasa pasang iklan Hub OP di Cenel Lampung"
"Info Cenel Lampung | Founder : masadepan | Successor : ^kucing_ganteng^ | Registered : Feb 01 18:58:15 2007"
"Siapa yang mau ekspos Fb ??? di Radio Langgam "
"ketik .radio untuk mendengarkan Radio Langgam"
"BRB"
":p"
}

Download di sini

Tcl Dns

###########################################
### dns.tcl ###
### Version 1.0 ###
### edit By Arch_fajri ###
### arch_fajri@yahoo.co.id ###
### http://lampunghacker.blogspot.com ###
### Google@allnetwork ###
### Desember @ 2010 ###
###########################################

#--------------------------------------------------------------------------
# !Dns Version 3.1 Based on Script by I_strike - edited by depthCoRE team!
# Commands:
# !dns
# !User@host
# !dnsnick
# !amsg
#-------------------------------------------------------

# SET THE CHARACTER THAT WILL BE USED BEFORE PUBLIC QUERRIES
# EXAMPLE: "#" => #seen, #op .... DEFAULT: "!"

set dnshost(cmdchar) "!"


#-----------------please don't CHANGE ANY OF THE FOLLOWING LINES----------------------
bind pub - [string trim $dnshost(cmdchar)]dns dns:res
bind pub n|n [string trim $dnshost(cmdchar)]amsg pub:amsg
bind pub - [string trim $dnshost(cmdchar)]userhost pub:host
bind pub - [string trim $dnshost(cmdchar)]version pub:ver
bind pub - [string trim $dnshost(cmdchar)]dnsnick dns:nick
bind raw * 311 raw:host
bind raw * 401 raw:fail

set dns_chan ""
set dns_host ""
set dns_nick ""
set dns_bynick ""

proc pub:host {nick uhost hand chan arg} {
global dns_chan
set dns_chan "$chan"
putserv "WHOIS [lindex $arg 0]"
}

Download di sini

Tcl Seen

###########################################
### seen.tcl
### Version 1.0
### edit By Arch_fajri
### arch_fajri@yahoo.co.id
### http://lampunghacker.blogspot.com
### Google@allnetwork
###########################################


#Input is accepted from:
# pub: !seen [#chan]
# msg: seen [#chan]
# and dcc: .seen [#chan]
#
#Queries can be in the following formats (public examples given):
# 'regular' !seen lamer; !seen lamest | SmartSearch-enabled query
# 'limited' !seennick lamer | SmartSearch-bypassed query
# 'masked' !seen *l?mer*; !seen *.lame.com; !seen *.edu #mychan
#
#Bonus feature: !lastspoke
# You can use wildcard matching for . The results for the
# first match are returned.

###Parameters:

#bs(limit) is the database record limit.
set bs(limit) 90000

#bs(nicksize) is the maximum nickname length (9 on Undernet)
set bs(nicksize) 20

Download di sini

Tcl Port

#################################
### Port.tcl
### Version 1.0
### edit By Arch_fajri
### arch_fajri@yahoo.co.id
### http://lampunghacker.blogspot.com
### Google@allnetwork
### Desember @ 2010
#################################

##############
## COMMANDS ##
############################################
## DCC ## .portcheck (Can be changed)
######### Checks weather or not the specified port is
######### open on the specified host or ip.
######### ---------------------------------------------
######### .chanset +portcheck ##
######### Enables on-join port checking for a channel.
############################################
## PUB ## !portcheck (Can be changed)
######### Checks weather or not the specified port is
######### open on the specified host or ip.
############################################

############################################
## Just load the script, set the variables, and rehash.
############################################

############################################
# Set flag required for checking the status of a port. #
############################################

Download di sini

Tcl Ip

#################################
### ip.tcl
### Version 1.0
### edit By Arch_fajri
### arch_fajri@yahoo.co.id
### http://lampunghacker.blogspot.com
### Google@allnetwork
### Desember @ 2010
#################################


########
# DNS
########
bind pub - "!dns" dnss
proc dnss {nick uhost hand chan arg} {
set ip [lindex $arg 0]
if {[string match "*:*" $ip]} {
regsub -all ":" $ip " " ip
set ip [lindex $ip 0]
}
set query [dns $ip]
if {$query == 0} {
puthelp "PRIVMSG $chan :12DNS14 $ip Not Resolved"
} else {
puthelp "PRIVMSG $chan :12DNS14 $ip Resolved To $query"
}
}

#############################
# CITY
#############################
bind pub -|- "!ip" city:ip
bind pub -|- "!c" city:city
bind pub -|- "!city" city:city
## ADVANCE CITY ##
proc city:ip {nick uhost hand chan arg} {
set ip [lindex $arg 0]
if {[string match "*:*" $ip]} {
regsub -all ":" $ip " " ip
set ip [lindex $ip 0]
}
if {$ip == ""} {
puthelp "NOTICE $nick :12CITY14 Usage: !ip "
} else {
if {[isip $ip] == 1} {
puthelp "PRIVMSG $chan :12CITY14 $ip (3[hostip $ip])"
city:whois $ip $chan
} else {
if {[string match "*.*" $ip] && [string length $ip] > 3} {
set dns [dns $ip]
if {$dns != 0} {
puthelp "PRIVMSG $chan :12CITY14 $ip Ip $dns (3[hostip $dns])"
city:whois $dns $chan
} else {
puthelp "PRIVMSG $chan :12CITY14 Failed: Unable To Resolve $ip"
}
} else {
puthelp "PRIVMSG $chan :12CITY14 $ip is Not A Valid HostName"
}
}
}
}
## SIMPLE CITY ##
proc city:city {nick uhost hand chan arg} {
set ip [lindex $arg 0]
if {[string match "*:*" $ip]} {
regsub -all ":" $ip " " ip
set ip [lindex $ip 0]
}
if {$ip == ""} {
puthelp "NOTICE $nick :12CITY14 Usage: !ip "
} else {
if {[isip $ip] == 1} {
puthelp "PRIVMSG $chan :12CITY14 $ip (3[hostip $ip])"
} else {
if {[string match "*.*" $ip] && [string length $ip] > 3} {
set dns [dns $ip]
if {$dns != 0} {
puthelp "PRIVMSG $chan :12CITY14 $ip Ip $dns (3[hostip $dns])"
city:whois $dns $chan
} else {
puthelp "PRIVMSG $chan :12CITY14 Failed: Unable To Resolve $ip"
}
} else {
puthelp "PRIVMSG $chan :12CITY14 $ip is Not A Valid HostName"
}
}
}
}
proc city:whois {ip chan} {
####### Refeeral Whois #######
putlog "<>"
set port 43
set ref "whois.arin.net"
set maxforwad 3

Download di sini

Tcl Ping

##############################
### Ping.tcl
### Version 1.0
### edit By Arch_fajri
### arch_fajri@yahoo.co.id
### http://lampunghacker.blogspot.com
### Google@allnetwork
##############################

########
# Start
########

bind pub - !ping ping_me
bind pub - ping ping_me
bind ctcr - PING ping_me_reply

proc ping_me {nick uhost hand chan arg} {
global pingchan pingwho
set arg [string toupper $arg]
if {$arg == "" || [string match "#*" $arg]} {
puthelp "NOTICE $nick :Gunakan: !ping me atau !ping nick lain"
return 0
} elseif {$arg == "ME"} {
putserv "PRIVMSG $nick :\001PING [unixtime]\001"
set pingwho 0
set pingchan $chan
return 1
} else {
putserv "PRIVMSG $arg :\001PING [unixtime]\001"
set pingwho 1
set pingchan $chan
return 1
}
}

proc ping_me_reply {nick uhost hand dest key arg} {
global pingchan pingwho
if {$pingwho == 0} {
puthelp "PRIVMSG $pingchan :LaG reply 12$nick : [expr [unixtime] - $arg] detik"
return 0
} elseif {$pingwho == 1} {
puthelp "PRIVMSG $pingchan :LaG reply 12$nick : [expr [unixtime] - $arg] detik"
return 0
}
}

############
#End of TCL
############

Download di sini

Tcl Jam

##############################
### jam.tcl
### Version 1.0
### edit By Arch_fajri
### arch_fajri@yahoo.co.id
### http://lampunghacker.blogspot.com
### Google@allnetwork
##############################


#########
## Time
#########
bind pub - .time timecheck
bind pub - !time timecheck
bind pub - .jam timecheck
bind pub - !jam timecheck
bind RAW - 391 timereply

set servtime "uii.id.allnetwork.org"

proc timecheck { nick uhost hand chan text } {
global botnick servtime
putquick "TIME $servtime"
set ::timechan $chan
}
proc timereply { from keyword arguments } {
set channel $::timechan
time:output $channel $arguments
}
proc time:output { channel arguments } {
global botnick servtime
set day [lindex [split $arguments] 2]
if {$day == ":Monday"} { set hari "Senin" }
if {$day == ":Tuesday"} { set hari "Selasa" }
if {$day == ":Wednesday"} { set hari "Rabu" }
if {$day == ":Thursday"} { set hari "Kamis" }
if {$day == ":Friday"} { set hari "Jum'at" }
if {$day == ":Saturday"} { set hari "Sabtu" }
if {$day == ":Sunday"} { set hari "Minggu" }
set tanggal [lindex [split $arguments] 4]
set month [lindex [split $arguments] 3]
if {$month == "January"} { set bulan "Januari" }
if {$month == "February"} { set bulan "Februari" }
if {$month == "March"} { set bulan "Maret" }
if {$month == "April"} { set bulan "April" }
if {$month == "May"} { set bulan "Mei" }
if {$month == "June"} { set bulan "Juni" }
if {$month == "July"} { set bulan "Juli" }
if {$month == "August"} { set bulan "Agustus" }
if {$month == "September"} { set bulan "September" }
if {$month == "October"} { set bulan "Oktober" }
if {$month == "November"} { set bulan "November" }
if {$month == "December"} { set bulan "Desember" }

Download di sini