botnetinfo.tcl - for eggdrop by:CyberpunkZ

#####################
# botnetinfo script #
# by: CyberpunkZ    #
#####################


#set this to "-" if you want everyone to use the !botnetinfo command

set userflag "-"

#set this to any word you want to type if you want to see the botnet infomation

set trig "!botup"
set trig2 "!sysinfo"
set trig3 "!darwinup"
set trig4 "!itunesnp"
set trig5 "!play"
set trig6 "!pause"
set trig7 "!stop"
set trig8 "!next"
set trig9 "!prev"
set trig10 "!rules"
set trig11 "!chaninfo"
set trig12 "!bsdbox"

#####DONT EDIT IF YOU DONT UNDERSTAND ANY OF THE STUFF BELOW######

bind PUB $userflag $trig main_func
bind PUB $userflag $trig2 main_func2
bind PUB $userflag $trig3 main_func3
bind PUB $userflag $trig4 main_func4
bind PUB $userflag $trig5 main_func5
bind PUB $userflag $trig6 main_func6
bind PUB $userflag $trig7 main_func7
bind PUB $userflag $trig8 main_func8
bind PUB $userflag $trig9 main_func9
bind PUB $userflag $trig10 main_func10
bind PUB $userflag $trig11 main_func11
bind PUB $userflag $trig12 main_func12

proc main_func {nick uhost hand chan arg} {show_botnetinfo $nick $uhost $hand $chan $arg}

proc show_botnetinfo {nick uhost hand chan arg} {

putserv "PRIVMSG $chan : --»\0034  .oO°|°\017\00364\002\[\00306\037L\003\0034enovo M58p Botnet Uptime\037\017\00364\002\]\003\003\0034°|°Oo.  \003«--"
putserv "PRIVMSG $chan :"
puthelp "PRIVMSG $chan : --»\0034  .oO°|°\017\00364\002\[\00306B\003\0034otnet Uptime\017\00364\002\]\003\003\0034°|°Oo.--» [duration [expr [clock seconds] - $::uptime]]\002\003"

}

proc main_func2 {nick uhost hand chan arg} {show_sysinfo $nick $uhost $hand $chan $arg}

proc show_sysinfo {nick uhost hand chan arg} {
catch {exec sysinfo} shellinfo

putserv "PRIVMSG $chan : --»\0034  .oO°|°\017\00364\002\[\00306\037L\003\0034enovo M58p System Information\037\017\00364\002\]\003\003\0034°|°Oo.  \003«--"
puthelp "PRIVMSG $chan : --»\0034  .oO°|°\017\00364\002\[\00306\003\003$shellinfo\017\00364\002\]\003\003\0034°|°Oo."
}

proc main_func3 {nick uhost hand chan arg} {show_shelluptime $nick $uhost $hand $chan $arg}

proc show_shelluptime {nick uhost hand chan arg} {
catch {exec uptime} shelluptime
catch {exec uname -a} uname
putserv "PRIVMSG $chan : --»\0034  .oO°|°\017\00364\002\[\00306\037L\003\0034enovo M58p Darwin UNIX Uptime & Uname -a\037\017\00364\002\]\003\003\0034°|°Oo.  \003«--"
putserv "PRIVMSG $chan : --»\0034  .oO°|°\017\00364\002\[\00306U\003\0034ptime\017\00364\002\]\003\003\0034°|°Oo.--» $shelluptime \003"
putserv "PRIVMSG $chan : --»\0034  .oO°|°\017\00364\002\[\00306S\003\0034ystem\017\00364\002\]\003\003\0034°|°Oo.--» $uname \003"

}
## itunes Remote Control ##
## Now Playing ##
proc main_func4 {nick uhost hand chan arg} {show_itunesnp $nick $uhost $hand $chan $arg}

proc show_itunesnp {nick uhost hand chan arg} {
catch {exec itunesnp status} itunes
putserv "PRIVMSG $chan : --»\0034 .oO°|°\017\00364\002\[\00306\037\003\0034$itunes\037\017\00364\002\]\003\003\0034°|°Oo. \003«--"

}
## Play ##
proc main_func5 {nick uhost hand chan arg} {show_itunesplay $nick $uhost $hand $chan $arg}

proc show_itunesplay {nick uhost hand chan arg} {
catch {exec itunesnp play} play
putserv "PRIVMSG $chan : --»\0036 .oO°|°$play°|°Oo. \003«--"

}
## Pause ##
proc main_func6 {nick uhost hand chan arg} {show_itunespause $nick $uhost $hand $chan $arg}

proc show_itunespause {nick uhost hand chan arg} {
catch {exec itunesnp pause} pause
putserv "PRIVMSG $chan : --»\0036 .oO°|°$pause°|°Oo. \003«--"

}
## Stop ##
proc main_func7 {nick uhost hand chan arg} {show_itunesstop $nick $uhost $hand $chan $arg}

proc show_itunesstop {nick uhost hand chan arg} {
catch {exec itunesnp stop} stop
putserv "PRIVMSG $chan : --»\00364 .oO°|°$stop°|°Oo. \003«--"

}
## Next ##
proc main_func8 {nick uhost hand chan arg} {show_itunesnext $nick $uhost $hand $chan $arg}

proc show_itunesnext {nick uhost hand chan arg} {
catch {exec itunesnp next} next
putserv "PRIVMSG $chan : --»\0036 .oO°|°$next°|°Oo. \003«--"

}
## Prev ##
proc main_func9 {nick uhost hand chan arg} {show_itunesprev $nick $uhost $hand $chan $arg}

proc show_itunesprev {nick uhost hand chan arg} {
catch {exec itunesnp prev} prev
putserv "PRIVMSG $chan : --»\0036 .oO°|°$prev°|°Oo. \003«--"

}
## Chat Room Rules ##
proc main_func10 {nick uhost hand chan arg} {show_rules $nick $uhost $hand $chan $arg}

proc show_rules {nick uhost hand chan arg} {
catch {exec echo \037UNIXB0T RULES:\037 Please do not idle in here. This is a \037Warning!\037, if no response after 5mins \037YOU WILL BE BAN!\037 Please \037respect\037 users in here and \037SYS ADMINS\037, and stay on topic BSD and UNIX including FreeBSD, OS X (darwin), and Solaris. } rules
putserv "PRIVMSG $chan : \0039.oO°|°\003\0039(\003\0034 $rules \003\0039)\003\0039°|°Oo.\003"

}
## BSDBOX info ##
proc main_func12 {nick uhost hand chan arg} {show_bsdbox $nick $uhost $hand $chan $arg}

proc show_bsdbox {nick uhost hand chan arg} {
catch {exec echo \0034\037BSDBOX Info:\037\003\0034 The BSDBOX Project @ https://sourceforge.net/projects/thebsdboxproject/ \003  } bsdbox
putserv "PRIVMSG $chan : \0039.oO°|°\003\0039(\003\0034 $bsdbox \003\0039)\003\0039°|°Oo.\003"

}

## Channel Info ##
proc main_func11 {nick uhost hand chan arg} {chan_info $nick $uhost $hand $chan $arg}

proc chan_info {nick uhost hand chan arg} {
set listusers [llength [chanlist $chan]]
set chanbans [llength [chanbans $chan]]
set topic [topic $chan]

putserv "PRIVMSG $chan : --»\0034  .oO°|°\017\00364\002\[\00306\037#\003\0034bsdgeekclub Channel Info\037\017\00364\002\]\003\003\0034°|°Oo.  \003«--"
puthelp "PRIVMSG $chan : --»\0034  .oO°|°\017\00364\002\[\00306C\003\0034hannel Users\017\00364\002\]\003\003\0034°|°Oo.--» $listusers\002\003"
puthelp "PRIVMSG $chan : --»\0034  .oO°|°\017\00364\002\[\00306C\003\0034hannel Bans\017\00364\002\]\003\003\0034°|°Oo.--» $chanbans\002\003"
puthelp "PRIVMSG $chan : --»\0034  .oO°|°\017\00364\002\[\00306C\003\0034hannel Topic\017\00364\002\]\003\003\0034°|°Oo.--» $topic\002\003"

}
############################################################
putlog "Botnetinfo by: CyberpunkZ is now loaded."