Code:

setudef str genderbind join * * gender:banproc gender:ban {nick uhost handle chan} {if {[isbotnick $nick]} returnscan $uhost {%[^@]@%s} user hostset gender [channel get $chan gender]switch -- $gender {"1" {if {$user ne "Female"} {newchanban $chan "*!*@$host" Gender "Gender mismatch!" 60}}"2" {if {$user ne "Male"} {newchanban $chan "*!*@$host" Gender "Gender mismatch!" 60}}}}

Code:

# March 3, 2014# http://forum.egghelp.org/viewtopic.php?t=19637# Example:   .chanset #channel +female#            will cause bot to kick and ban *!Male@* , upon joining #channel# Example:   .chanset #channel +male#             will cause bot to kick and ban *!Female@* , upon joining #channel# Note:  Ban will expire after 60 minutes, and bot will remove the ban.#        Examine the script, and feel free to change ban time to whatever you like.# Note: You should edit the ban messages.# Reference:  http://www.eggheads.org/support/egghtml/1.6.21/tcl-commands.html#             bind join#             setudef#             newchanban# can all be found there.    :)# More reference : http://www.tcl.tk/man/tcl8.5/TclCmd/contents.htmsetudef flag femalesetudef flag malebind join - "* *" ban_by_genderproc ban_by_gender {nick uhost handle chan} {global botnick        if {[channel get $chan female]} {                set user [string tolower [lindex [split $uhost @] 0] ]                if {$user == "male"} {                        newchanban $chan [maskhost $nick!$uhost 2] $botnick "Edit this comment" 60                  }           }        if {[channel get $chan male]} {                set user [string tolower [lindex [split $uhost @] 0] ]                 if {$user == "female"} {                        newchanban $chan [maskhost $nick!$uhost 2] $botnick "Edit this comment" 60                  }          } }