[Simple] Random Gender

Platform: TCL

Published Jun 21, 2011

Updated Jun 21, 2011

220 1

Random snippet upload!

What it do?
It generates how much %male and %female a user is.

Credits
Codeninja

bind pub - !gender rand:pub

proc  rand:pub {nick uhost hand chan text} {

set male [rand 100]

set female [expr 100 - $male]

puthelp "PRIVMSG $chan :$nick: You are $male% Male and $female% Female"

}

Comments

oRtakVeLja - Apr 03, 2012

I use simple snipet in !hacker command

bind pub - !hacker pub_hacker
proc pub_hacker {nick mask hand channel nick2} {
set hacker [expr {int(rand()*100)}]
if {[onchan $nick2 $channel]} { putserv "PRIVMSG $channel $nick, $nick2 15 h4ck3r $hacker%"
} elseif {$nick2 == ""} { putserv "PRIVMSG $channel $nick 15 h4ck3r $hacker%"
} else { return }

Respond