REQUEST: !slap [nick] [slap...]

masterstanf2k · Post by **masterstanf2k** » Mon Oct 06, 2003 10:20 pm

can someone make a simple script... it would be.... !slap BOB hahah... and return /me slaps BOB hahah... know what I mean?? REALLY simple....

Post by **Sir_Fz** » Tue Oct 07, 2003 10:50 am

Code: Select all

bind pub - !slap slap:target

proc slap:target {nick uhost hand chan arg} {
set target "[lindex [split $arg] 0]"
putserv "PRIVMSG $chan :\001ACTION slaps $target around a bit with a large trout\001"
}

Post by **caesar** » Tue Oct 07, 2003 10:57 am

Code: Select all

set reason [lrange [split $arg 1 end]

masterstanf2k · Post by **masterstanf2k** » Tue Oct 07, 2003 1:29 pm

THX! :0. I'll try it when I get home, and I'll report on whether it works or not! THX again!

Post by **Sir_Fz** » Tue Oct 07, 2003 2:32 pm

you want it to respond to !slap nick reason, then this is better:

Code: Select all

bind pub - !slap slap:target 

proc slap:target {nick uhost hand chan arg} { 
set target "[lindex [split $arg] 0]" ; set reason "[join [lrange [split $arg] 1 end]]"
putserv "PRIVMSG $chan :\001ACTION slaps $target $reason\001" 
}

masterstanf2k · Post by **masterstanf2k** » Tue Oct 07, 2003 7:03 pm

THX! It works