How do i fix my reply on word script ?

[chaokusc]

I got this simple reply script written out so if somone says brb my bot says $nick says Be Right Back

Code: Select all

bind pub - brb pub_brb
proc pub_brb {nick uhost hand chan $brb_msg} {
putchan $chan "\002$nick\002 says Be Right Back" 
}

My question is, how can i make the bot not reply to anything after the brb ?

<FoX> brb
<testbot> FoX says Be Right Back
<FoX> brb im going out
<testbot> FoX says Be Right Back

[DragnLord]

My question is, how can i make the bot not reply to anything after the brb ?

<FoX> brb
<testbot> FoX says Be Right Back
<FoX> brb im going out
<testbot> FoX says Be Right Back

Try this:

Code: Select all

bind pub - brb pub_brb
proc pub_brb {nick uhost hand chan args} {
  if {$args == ""} {
    putchan $chan "\002$nick\002 says Be Right Back"
  }
}

[chaokusc]

It still does it DragnLord, is there any other way ?

[Sir_Fz]

You shouldn't use args, instead use arg.

[DragnLord]

oops, that's why I usually use the simpler variable form

Code: Select all

bind pub - brb pub_brb
proc pub_brb {n u h c t} {
  if {$t == ""} {
    putchan $c "\002$n\002 says Be Right Back"
  }
}

[chaokusc]

^^ Thank You

[chaokusc]

Sorry for the double post but can anyone help me with the reply on this?
I just wish to know why $nick is not replaced with the nick of the person who typed superm4n

Code: Select all

set superm4nreply {
"Its a Bird, Its a Plane, No Its \0024Superm4n\002"
"\0024Superm4n\002 i think \002$nick\002 wants you"
"\002$nick\002 do you know why \0024Superm4n\002 wears his underwear on the outside ?"
"\002$nick\002 do you know why \0024Superm4n\002 wears \002red\002 underwear ?"
}

bind pub - superm4n pub_superm4n
proc pub_superm4n {nick u h chan t} {
global superm4nreply
if {$t == ""} {
set output [lindex $superm4nreply [rand [llength $superm4nreply]]]
putchan $chan "$output"
  }
}

If your not interested in giving me the full help thats fine, clues are welcome

[DragnLord]

1) use putlog to show variables in dcc as the script runs

Code: Select all

proc pub_superm4n {nick u h chan t} {
putlog "got $nick in $chan"
global superm4nreply
if {$t == ""} {
set output [lindex $superm4nreply [rand [llength $superm4nreply]]]
putlog "output: $output"
putchan $chan "$output"
  }
}

(btw, for this to work as written "superm4n" has to be the only word said)

2) search a lot more about rand and expr

[De Kus]

he will have to double evaluate it, like:

eval "putchan $chan \"$output\""
or
eval "puthelp \"PRIVMSG $chan :$output\""

[chaokusc]

I managed to fix it with this code

Code: Select all

# Superm4n
set bigmanreply {
"Its a Bird, Its a Plane, No Its \0024Superm4n\002"
"\0024Superm4n\002 i think \002$nick\002 wants your attention"
"\002$nick\002 do you know why \0024Superm4n\002 wears his underwear on the outside ?"
"\002$nick\002 do you know why \0024Superm4n\002 wears red underwear ?"
}
bind pub - superm4n pub_bigman
proc pub_bigman {nick u h chan t} {
global bigmanreply
if {$t == ""} {
set output [lindex $bigmanreply [rand [llength $bigmanreply]]]
regsub -all {\$nick} $output $nick output
putchan $chan "$output"
  }
}

This also let me allow $nick in bigmanreply

Thanks for all of your reply, and DragnLord i will look into rand and expr