Statistics: Posted by dohko2006 — Sun Mar 26, 2006 11:54 am

Code:

bind pub - !rock rockproc rock {nick uhost hand chan arg} { global afrock if {![isvoice $nick $chan] && ![isop $nick $chan]} {return 0} if {![info exists afrock([set nickchan [string tolower $nick:$chan]])]} {  set afrock($nickchan) [list [unixtime] 0] } foreach {t o} $afrock($nickchan) {break} if {[unixtime]-$t > 120} { set t [unixtime]; set o 0 } if {[incr o] > 5} { return 0 } set afrock($nickchan) [list $t $o] if {[onchan [set rocked [lindex [split $arg] 0]] $chan]} {  putserv "privmsg $chan :\001ACTION throws a rock in the head of $rocked\001" }}

Statistics: Posted by Sir_Fz — Fri Mar 24, 2006 7:55 pm

Code:

bind pub - !rock random:rockproc random:rock {nick uhost hand chan arg} {  if {![isop $nick $chan] || ![isvoice $nick $chan]} return  foreach user [chanlist $chan] {    if {[isbotnick $user] || [isvoice $user $chan] || [isop $user $chan]} continue    lappend list $user  }  if {[set len [llength $list]] < 2} {    putserv "PRIVMSG $chan :This game needs more than two users on the channel, currently I see only [expr {$len==1?"1 player":"$len players"}]."    return  }  putserv "PRIVMSG $chan :\001ACTION throws a rock in the head of [lindex $list [rand $len]]\001"}

Statistics: Posted by caesar — Fri Mar 24, 2006 3:14 pm

Great work Sir_Dz Working Ok... but...

If AnotherNick dont exists ... the command
!rock AnotherNick it would not have to work; and if type only "!rock" the bot say "* Bot throws a rock in the head of"

Example (Only 3 Users in the channel: Bot, +Nick, Nick2)
<+Nick>!rock
<Nick2> nothing happen
<+Nick> of course, not type nick :p
Regards

Statistics: Posted by astriK — Fri Mar 24, 2006 11:14 am

Statistics: Posted by dohko2006 — Fri Mar 24, 2006 10:56 am

Code:

bind pub - !rock rockproc rock {nick uhost hand chan arg} { global afrock if {![isvoice $nick $chan] && ![isop $nick $chan]} {return 0} if {![info exists afrock([set nickchan [string tolower $nick:$chan]])]} {  set afrock($nickchan) [list [unixtime] 0] } foreach {t o} $afrock($nickchan) {break} if {[unixtime]-$t > 120} { set t [unixtime]; set o 0 } if {[incr o] > 5} { return 0 } set afrock($nickchan) [list $t $o] putserv "privmsg $chan :\001ACTION throws a rock in the head of [lindex [split $arg] 0]\001"}

Statistics: Posted by Sir_Fz — Sun Mar 19, 2006 4:12 pm

Statistics: Posted by dohko2006 — Sun Mar 19, 2006 2:59 pm