Need some help.

Post by **caesar** » Tue Nov 20, 2001 7:15 am

I want to bind bot's need's to ask what he need's from an other bot. I can't link them so .. I must do somthing like this: EggHelp is MyEgg helper, MyEgg will check if EggHelp ("*!*@host") is corect (let's say that his corect "*!*@host" is "*!*@helper") he will ask for his need's, else do nothing. Any sugestions ? .. I tryed to do on my own .. but .. no success.

Thx! .. Help will be apreciated.

ppslim · Post by **ppslim** » Tue Nov 20, 2001 10:26 am

Inform us exactly where you are having the trouble and we will help.

Post by **caesar** » Tue Nov 20, 2001 11:24 am

ok ppslim .. brb witht the code.

Post by **caesar** » Tue Nov 20, 2001 12:03 pm

--- Code ---
bind pub m|m !something pub_something

proc pub_something {a b c chan arg} {
if {![botisop $chan]} {return 0}
set arg [charfilter $arg]
global botnick
set friend "*!*@[string trimleft [lindex [split [getchanhost $nick $chan] @] 1] *!]"
if {$friend == *!*@friend.org} # <- in here I don't know how to do ... In here is the mistake.

putserv "PRIVMSG $chan :something"
return 0
}
else
return 0
}
}
--- EOF ---

Uff .. i lost the original code .. ;o( .. This is an copy of what I did remember. ;o(

Thx!

<font size=-1>[ This Message was edited by: caesar on 2001-11-20 09:07 ]</font>

ppslim · Post by **ppslim** » Tue Nov 20, 2001 12:54 pm

It would be simpler to use

Code: Select all

if {[string match "*@friend.com" $c]} {
  yes it matches, so your commands go here
}

Note the use of $c, because of the way you defined the proc.

Post by **caesar** » Tue Nov 20, 2001 12:59 pm

Hmm .. oky. I'll try it right now. Thx!

Post by **caesar** » Tue Nov 20, 2001 1:32 pm

O .. well .. It works .. Thx! .. but I forgot for what I needed it.

I'll remember ..

I'm bodering u with an other tcl. I bind a pub msg for "*#*" .. and if the msg is found "#mychan" .. don't do nothing .. else .. do the rest of the proces. I did something .. but .. don't good. I did this:

--- Cut ---
if {$arg == "#mychan"} { return }
-- Cut ---

This .. only do nothing .. if the only word in the line is "#mychan" .. If in line is more than "#mychan" .. boom

.. not good. Any sugestions with this ?

Thx!

ppslim · Post by **ppslim** » Tue Nov 20, 2001 1:53 pm

Code: Select all

bind pubm - "*#*" pubm:test:bind
proc pubm:test:bind {nick uh hand chan arg} {
  if {[string match "*#mychan*" $arg]} { return }
  continue with script here
}

Post by **caesar** » Tue Nov 20, 2001 2:12 pm

Aaaaa.. Thx! .. I put there:

- Cut -
if {[string match "#mychan" $arg]} {return }
- Cut -

.. and din't work

.. I forgot the "*" .. Thx again!

Post by **caesar** » Tue Nov 20, 2001 2:16 pm

After all .. I ain't so dumb as I think

lol

Post by **caesar** » Wed Nov 21, 2001 8:25 am

Hmm .. this don't work like it supouse to work.

- Code -
bind pubm - "*#*" pubm:test:bind
proc pubm:test:bind {nick uh hand chan arg} {
if {[string match "*#mychan*" $arg]} { return }
putserv "PRIVMSG $chan :Something.."

}
- Code -

When I say in the channel "#mychan" .. he don't do nothing. If I say something else .. he say's in the channel "Something.." .. like it's made to say.
The bind is only for "*#*" .. but he reacts to all words and is halting if "mychan" if found in the line. Where is the mistake ?

Wcc · Post by **Wcc** » Wed Nov 21, 2001 6:11 pm

Code: Select all

 bind pubm - "*#*" pubm:test:bind 
proc pubm:test:bind {nick uh hand chan arg} { 
  if {[string match "*#mychan*" $arg]} {
    putserv "PRIVMSG $chan :Something.." 
  }
}

I think thats what you want to do, that will say Something... when *#mychan* is said in the channel.

ppslim · Post by **ppslim** » Wed Nov 21, 2001 10:27 pm

caesar, a simple script like that can be read as english.

if {[string match "*#mychan*" $chan]} { return }
can be read as
if the contents of $chan has the text #mychan in it, then I should return.

This is why it was failing.

Post by **caesar** » Thu Nov 22, 2001 5:56 am

I see .. Ok.. I'm testing it right now.
Well man .. I know that can be read in english, and this is only a pice of an tcl. Is not working like i needed to work. Well .. I have to post in here my old tcl .. to see what I want to do.

Post by **caesar** » Thu Nov 22, 2001 6:20 am

--- Code ---
####################
# Don't advertise! #
# version 1.0 #
# by |caesar #
####################

bind pubm - "*#*" pub_dont_advertise

proc pub_dont_advertise {nick host handle channel arg} {
global botnick
set banmask "*!*@[string trimleft [lindex [split [getchanhost $nick $channel] @] 1] *!]"
set bantime "1440"
if {![isop $botnick $channel]} {return 0}
if {[isop $nick $channel]} {return 0}
if {[string match "*#mychan*" $channel]} { return }
set n2hand [nick2hand $nick $channel]
if {([matchattr $n2hand m] || [matchattr $n2hand p] || [matchattr $n2hand b] || [matchattr $n2hand n] || [matchattr $n2hand f])} { return }
newchanban $channel $banmask $bantime "Don't advertise!"
putserv "KICK $channel $nick

on't advertise!"
putserv "mode $channel +b $banmask"
return 1
}

putlog "Don't advertise .. loaded."
--- Code ---

With this code he don't do nothing. He don't react at all. Any sugestions with this ?