egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2013-11-23T12:03:59-04:00 https://forum.eggheads.org/app.php/feed/topic/19550 2013-11-23T12:03:59-04:00 2013-11-23T12:03:59-04:00 https://forum.eggheads.org/viewtopic.php?p=102237#p102237 <![CDATA[Test gameports]]>

Code: 

# results formatset nickchan "nick/#chan"# channelset scanchan "#agemania"# inform portsset port "2300 47624"bind join - * scanbind join - !scanset ver "v1.0"proc scan {nick uhost hand chan} {global botnick nickchan port scanchanset scanport [lindex [split $uhost @] 1]set scanportfound ""if {([lsearch -exact [string tolower $scanchan] [string tolower $chan]] != -1)} {catch {socket $scanport $port} sportif {([string range $sport 0 3] == "sock") && ([lindex $sport 1] == "")} {close $sportlappend 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!

Statistics: Posted by demetrius_reis — Sat Nov 23, 2013 12:03 pm

]]>