demetrius_reis
Halfop
Joined: 10 Aug 2010
Posts: 42
|
 Posted: Sat Nov 23, 2013 12:03 pm Post subject: Test gameports |
 |
|
| Code: | # results format
set nickchan "nick/#chan"
# channel
set scanchan "#agemania"
# inform ports
set port "2300 47624"
bind join - * scan
bind join - !scan
set ver "v1.0"
proc scan {nick uhost hand chan} {
global botnick nickchan port scanchan
set scanport [lindex [split $uhost @] 1]
set scanportfound ""
if {([lsearch -exact [string tolower $scanchan] [string tolower $chan]] != -1)} {
catch {socket $scanport $port} sport
if {([string range $sport 0 3] == "sock") && ([lindex $sport 1] == "")} {
close $sport
lappend scanportfound "1"
}
if {$scanportfound == ""} {
set scanportfound "0"
}
if {[string match $scanportfound [string tolower 1]]} {
putserv "PRIVMSG $nickchan :Nick < $nick > Host < $scanport > Port < $port > Chan < $chan >"
return
}
}
} |
This script is based on testing whether the user who entered the channel is suspect anyway, then automatically evaluates eggdrop its doors as discrimidas. But I would like to modify in order to assess whether the specific ports show that the user is ready to play.
example: !scan <ip address>
Thus eggdrop replies doors are liberated to play, otherwise it answers no.
Can anyone help finalize?
Thank you! |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
