| View previous topic :: View next topic |
| Author |
Message |
Diablo
Voice
Joined: 02 May 2005
Posts: 12
|
 Posted: Mon Jul 18, 2005 5:40 am Post subject: sicherheit scripts |
 |
|
Hi!
Does anybody know what scripts are used by #sicherheit bots on Quakenet? I mean not all of them, but main scripts (when bot joins and checks the channel.. )
LP |
|
| Back to top |
|
 |
metroid
Owner
Joined: 16 Jun 2004
Posts: 771
|
| Posted: Mon Jul 18, 2005 8:25 am Post subject: |
|
|
| They wrote their own, request scripts aren't very hard to make either. |
|
| Back to top |
|
|
Diablo
Voice
Joined: 02 May 2005
Posts: 12
|
| Posted: Tue Jul 19, 2005 4:10 am Post subject: |
|
|
| hm.. i see. ty :] |
|
| Back to top |
|
|
Diablo
Voice
Joined: 02 May 2005
Posts: 12
|
| Posted: Wed Jul 20, 2005 4:46 am Post subject: |
|
|
| does anyone has some good request scripts for quakenet? i mean like the bot cannot be requested for #help, #feds, #quakenet and so on.. |
|
| Back to top |
|
|
demond
Revered One
Joined: 12 Jun 2004
Posts: 3073
Location: San Francisco, CA
|
| Posted: Wed Jul 20, 2005 5:08 am Post subject: |
|
|
| requesting what? strippers doing lap dance? |
|
| Back to top |
|
|
Diablo
Voice
Joined: 02 May 2005
Posts: 12
|
| Posted: Wed Jul 20, 2005 5:13 am Post subject: |
|
|
i need a request script like sicherheit and chanbot, where a random bot joins, it scans the channel for clones and other stuff, if channel meets the req bot joins otherwise channel is rejected.
P.S sry for my bad english  |
|
| Back to top |
|
|
demond
Revered One
Joined: 12 Jun 2004
Posts: 3073
Location: San Francisco, CA
|
| Posted: Wed Jul 20, 2005 5:46 am Post subject: |
|
|
| and what would that bot do then? |
|
| Back to top |
|
|
Diablo
Voice
Joined: 02 May 2005
Posts: 12
|
| Posted: Wed Jul 20, 2005 6:36 am Post subject: |
|
|
| it is security bot. it would also require+amo on L/Q |
|
| Back to top |
|
|
Dizzle
Op
Joined: 28 Apr 2005
Posts: 109
|
| Posted: Wed Jul 20, 2005 11:27 am Post subject: |
|
|
the only way too do this is too scripts it yourself diablo, sicherheit did it like 10 other botservices on Q-net.
I think they use a lot of scripts already made by ppl, there is a botrequest in the tcl archive its based on a botnet.
I have this script from Metroid, a good basic script for a request system, i used it.
| Code: |
# Configuration
# homechannel where they can request
set setting(home) "#chan
# users the channel needs atleast
set setting(needed) "50"
# deny request if there is no Q or L?
set setting(service) "1"
# the flags he wants
set setting(flags) "+av"
# end of config
# don't touch this setting!
set setting(busy) 0
bind pub -|- !request request:pub
proc request:pub {nick host hand chan arg} {
global setting
# ignore the request because it isn't the request channel
if {![string equal $chan $setting(home)]} {
return 0
}
if {$setting(busy)} {
putquick "NOTICE $nick :There is currently already an request in progress."
return 0
}
set channel [lindex [split $arg] 0]
# tell him he needs to input a channel first
if {$channel == ""} {
putquick "NOTICE $nick :Please state the channel you wish to request for."
return 0
}
if {[validchan $channel]} {
return 0;
}
# activate the busy signal so no other requests can be done
bind RAW -|- 315 request:endofwho
set setting(busy) 1
set setting(chan) "$channel"
set setting(nick) "$nick"
channel add $channel
}
proc request:endofwho {from key arg} {
global setting
if {$setting(busy)} {
if {![onchan $setting(nick) $setting(chan)] || ![isop $setting(nick) $setting(chan)]} {
set setting(busy) 0
putquick "NOTICE $setting(nick) :You aren't on $setting(chan) or you're not opped. Request denied."
channel remove $setting(chan)
unbind RAW -|- 315 request:endofwho
return 0
}
if {$setting(service)} {
if {![onchan L $setting(chan)] && ![onchan Q $setting(chan)]} {
set setting(busy) 0
putquick "NOTICE $setting(nick) :Q or L was not found on $setting(chan). Request denied."
channel remove $setting(chan)
unbind RAW -|- 315 request:endofwho
return 0
}
}
if {[llength [chanlist $setting(chan)]] < $setting(needed)} {
set setting(busy) 0
putquick "NOTICE $setting(nick) :$setting(chan) has less than $setting(needed) users. Request denied."
channel remove $setting(chan)
unbind RAW -|- 315 request:endofwho
return 0
}
if {![validuser [nick2hand $setting(nick)]]} {
adduser $setting(nick) *!*@[lindex [split [getchanhost $setting(nick) $setting(chan)] @] 1]
}
chattr [nick2hand $setting(nick)] |+n $setting(chan)
putquick "NOTICE $setting(nick) :The request was succesfull. I will stay here. Please give me $setting(flags) on [request:service $setting(chan)]"
putquick "PRIVMSG $setting(home) :$setting(nick) requested me for $setting(chan). The channel has [llength [chanlist $setting(chan)]] users. And they have the service bot: [request:service $setting(chan)]. Request was accepted."
unset setting(chan); unset setting(nick)
set setting(busy) 0
unbind RAW -|- 315 request:endofwho
return 1
}
}
proc request:service {channel} {
if {[onchan L $channel]} {
return "L"
} elseif {[onchan Q $channel]} {
return "Q"
}
}
|
Hope this will help you, remember too make a good botservice, you need too learn TCL  |
|
| Back to top |
|
|
r0t3n
Owner
Joined: 31 May 2005
Posts: 507
Location: UK
|
| Posted: Wed Jul 20, 2005 1:57 pm Post subject: |
|
|
is it possible to add a clonescan to that basic script by Metroid?
_________________
r0t3n @ #r0t3n @ Quakenet |
|
| Back to top |
|
|
Dizzle
Op
Joined: 28 Apr 2005
Posts: 109
|
| Posted: Wed Jul 20, 2005 2:32 pm Post subject: |
|
|
like i sad tosser Metroid posted it on the forum for use for yourself, if you want a clonescan in it try put it in
_________________
What's this real life ppl keep talking about ??? And where can I download it ??? |
|
| Back to top |
|
|
metroid
Owner
Joined: 16 Jun 2004
Posts: 771
|
| Posted: Fri Jul 22, 2005 3:32 am Post subject: |
|
|
| It's a flexible script so you can easily add it yourself |
|
| Back to top |
|
|
r0t3n
Owner
Joined: 31 May 2005
Posts: 507
Location: UK
|
| Posted: Fri Jul 22, 2005 4:25 pm Post subject: |
|
|
| Code: | # Basic Request script
# GNU License
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
# /* This is a basic request script, It will join the channel, check some settings and stay/part if accepted.
# * This does NOT add other bots to that channel.
# * If you want it to do that, You will have to make it do that yourself :)
# * If you have any questions about this script, feel free to ask me in #v1per on irc.quakenet.org
# * Also, if you find any bugs, the same channel, my nickname is metroid
# * Also, leave my copyright in, If you want to put your own copyright in MY script, Make your own script completely from scratch.
# */
# /* Installing the request script
# * First, put the script into your /home/user/*eggdrop name*/scripts folder.
# * Then at the end of your eggdrop.conf, Put:
# * source scripts/request.tcl
# * Just rehash the bot after you've done this and it should work.
# */
# /* This is a VERY basic idea of what you can use for a request system with eggdrops.
# * It's very flexible as it's really easy to just add whatever you want to it :)
# * Good luck with making your own request script and if you need some help, you can contact me.
# */
namespace eval request {
variable version "1.0"
variable author "metroid"
# Configuration!
# Our homechannel, they can only request here.
variable homechan "#ShoVe"
# Ammount of people we require.
variable needed "20"
# Do we want a Q or L?
variable service "1"
# Do we send a message to the homechannel when a request fails?
variable tell "1"
# End of Config!
# Do NOT edit anything below these lines
variable busy "0"
bind PUB -|- !request [namespace current]::request
}
proc request::request {nickname hostname handle channel arguments} {
if {[string equal -nocase $channel $request::homechan]} {
if {!$request::busy} {
set chan [lindex [split $arguments] 0]
if {$chan != "" && ![validchan $chan]} {
if {[string index $chan 0] == "#"} {
set request::busy 1
bind RAW -|- 315 [namespace current]::who
utimer 30 [list [namespace current]::timeout $chan]
channel add $chan
set ::info "$nickname $chan"
} else {
putquick "NOTICE $nickname :A channel name starts with an #."
}
} else {
putquick "NOTICE $nickname :You seem to have given an improper syntax for the channel."
}
} else {
putquick "NOTICE $nickname :Sorry, there is already a request in progress."
}
}
}
proc request::who {server raw arguments} {
unbind RAW -|- 315 [namespace current]::who
if {$request::busy} {
if {![info exists ::info]} { return 0 }
set nickname [lindex [split $::info] 0]
set channel [lindex [split $::info] 1]
unset ::info
set request::busy 0
if {![onchan $nickname $channel] || ![isop $nickname $channel]} {
putquick "NOTICE $nickname :You are not on $channel or you aren't opped."
if {$request::tell} {
putquick "PRIVMSG $request::homechan :Request for $channel failed. $nickname is not on $channel or is not opped."
}
channel remove $channel
return 0
}
if {$request::service} {
if {![onchan L $channel] && ![onchan Q $channel]} {
set busy 0
putquick "NOTICE $nickname :Q or L was not found on $channel."
if {$request::tell} {
putserv "PRIVMSG $request::homechan :Request for $channel failed. There is no Q or L on $channel."
}
channel remove $channel
return 0
}
}
clone:scan $hostname $channel
if {$clones($channel) < $request::needed} {
putquick "NOTICE $nickname :$channel has less than $request::needed users, you have $clones($channel) real users.."
if {$request::tell} {
putserv "PRIVMSG $request::homechan :Request for $channel failed. There are not enough users on $channel (There are $clones($channel) real users users, 20 real users needed)."
}
channel remove $channel
return 0
}
# Request is accepted
putquick "NOTICE $nickname :Your request is accepted. I will stay on $channel."
putquick "PRIVMSG $request::home :Request from $nickname for $channel was accepted. The channel has [llength [chanlist $channel]] users."
if {![validuser [nick2hand $nickname]]} {
adduser $nickname *![getchanhost $nickname]
chattr $nickname |+n $channel
} else {
chattr [nick2hand $nickname] |+n $channel
}
}
}
proc request::timeout {chan} {
if {[validchan $chan] && ![botonchan $chan]} {
channel remove $chan
putquick "PRIVMSG $request::homechan :Request for $chan failed. Bot cannot join $chan."
if {[info exists ::info]} { unset ::info }
}
}
proc request::version {} {
putlog "Basic Request script version: $request::version by $request::author was loaded successfully."
}
request::version
proc clone:scan {host chan} {
set fp [open "clonescan.$chan" a]
foreach host {[chanlist $chan]} {
set host *!*@[lindex [split $host "@"] 1]
puts $fp $host
}
close $fp
clone:check $host $chan
}
proc clone:check {host chan} {
set fp [open "clonescan.$chan" r]
set data [read -nonewline $fp]
close $fp
set hosts [split $data "\n"]
foreach host {[chanlist $chan]} {
set host *!*@[lindex [split $host "@"] 1]
if {[string match "$host" $hosts]} {
inc clones($chan) 1
}
}
} |
Now, i just attempted to add a lame clonescan which i have never made a clonescan before. Do any of you think that it won't work, like all the foreach and open/close of clonescan.#channel. Its my first attempt of adding a kinda clonescan to a request script.
_________________
r0t3n @ #r0t3n @ Quakenet |
|
| Back to top |
|
|
demond
Revered One
Joined: 12 Jun 2004
Posts: 3073
Location: San Francisco, CA
|
| Posted: Fri Jul 22, 2005 4:53 pm Post subject: |
|
|
| how about your first attempt to code something basic first? like, for example, counting words in a string? oh wait... that doesn't bring in much irc glory hehe |
|
| Back to top |
|
|
metroid
Owner
Joined: 16 Jun 2004
Posts: 771
|
| Posted: Fri Jul 22, 2005 5:03 pm Post subject: |
|
|
| I see you found your way to the script i made this morning |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
