request?

stdragon · Post by **stdragon** » Sat Aug 16, 2003 1:30 pm

I think Dedan is right, because with ||, it will be true whenever a nick change occurs while the bot's nick is $offnick.

mimic · Post by **mimic** » Sat Aug 16, 2003 1:59 pm

I can remove $chan and add $owner right , to dedan's code? with no change to the entire script, that means i just change $chan with $owner? just for testing and to understand whats going on? and i still get errors "args" ?

dedan change your code so the msg could PRIVMSG the $owner , then i can see what's going on? remember the offnick is a var not a nick?

peace

arcane · Post by **arcane** » Sat Aug 16, 2003 2:05 pm

yes, it has to be "&&".
also, this

Code: Select all

if {$botnick == $newnick && $botnick == "offnick"} {

has to work. guess the problem were the missing ""s.

@dedan: [] are used in tcl to execute commands. means, using it the way you do will cause errors. the normal syntax is [command arguments], so your script will see $botnick (here "offnick") as a command. i don't know where you learned using []s, but i'd suggest to get some good tutorial.

mimic · Post by **mimic** » Sat Aug 16, 2003 2:36 pm

look

Code: Select all

bind nick -|- "*" BOTNEW

proc BOTNEW {nick uhost handle newnick} { 
  global botnick offnick
  if {$botnick == $newnick && $botnick == "offnick"} { 
    putserv "PRIVMSG $owner :ITS NOT WORKING :("
  } 
  return 0 
}

return : Tcl error [BOTNEW]: called "BOTNEW" with too many arguments

the set code

Code: Select all

##set the bot's off nick 
set offnick "botoff"

and the bot still return errors? please everyone just edit this code forget the channel PRIVMSG. i want to undestand the easy way first? deal?

peace

strikelight · Post by **strikelight** » Sat Aug 16, 2003 4:04 pm

mimic wrote: return : Tcl error [BOTNEW]: called "BOTNEW" with too many arguments

Read doc/tcl-commands.doc for the number of arguments you need to have for a nick bound procedure.

Post by **Sir_Fz** » Sat Aug 16, 2003 5:46 pm

from tcl-commands.tcl
NICK (stackable)
bind nick <flags> <mask> <proc>
procname <nick> <user@host> <handle> <channel> <newnick>

Description: triggered when someone changes nicknames. The mask
is matched against '#channel newnick' and can contain wildcards.
Module: irc

so the proc should be {nick uhost handle channel newnick}
whole code:

Code: Select all

# set bot's off nick #
set offnick "botoff"

# set owner's nick #
set owner "mimic"

bind nick - * BOTNEW 

proc BOTNEW {nick uhost handle channel newnick} { 
  global botnick offnick owner 
  if {$botnick == $newnick && $botnick == $offnick} { 
    putserv "PRIVMSG $owner :ITS NOT WORKING :(" 
  } 
}

this should work with no errors (simplest form)

mimic · Post by **mimic** » Sat Aug 16, 2003 6:33 pm

Sir_Fz your code doesn't return errors? but at the same time it doesn't PRIVMSG the owner? so no effect?
let me make it simple here i hope everyone understand mirc commands cause what i'm going to post is the same what i want in eggdrop

>>>

Code: Select all

on 1:nick:{
  if (%offnick isin $newnick) {
    .msg mimic hi there?
    .timer1 1 120 /msg Owner I'm using $offnick . and i'm off now.
  }
}

the timer will trigger once after 2mins from the first msg and will stop exactly after that.
I saw in tcl doc that thereis a "isbotnick" maybe this will help to find out whats the problem?

peace

Post by **Sir_Fz** » Sat Aug 16, 2003 7:15 pm

did u try using the if {[string equal $newnick $botnick] && [string equal $offnick $botnick]} { ? or the if {[string match -nocase $newnick $botnick] && [string match -nocase $offnick $botnick]} { ??

please try them instead of if {$newnick == $botnick && ....} {
else I don't see any mistakes in the code.

mimic · Post by **mimic** » Sat Aug 16, 2003 9:42 pm

I dunno whats wrong with it ? i really dont know but as long as i really need it i will not give up, but the errors keeps buggin me . I appreciate what you did Sir_Fz i really do you and the others but with the codes you and other have wrote here. some with errors and some wasn't really work .

my last post as you can see i wrote an mIRC code which i need to convert to tcl to make it work exactly like i want with the timer and killtimer after excuting the needed cmd ..

Thanks
peace

Dedan · Post by **Dedan** » Sat Aug 16, 2003 9:47 pm

putserv "PRIVMSG $owner :ITS NOT WORKING : ("

does the ":" or the "(" need to be escaped?

mimic · Post by **mimic** » Sat Aug 16, 2003 10:16 pm

dunno what you mean dedan ? but if youre tryin to write the code i want with utimer and killutimer . like the mIRC code i post above . please do now . Thanks

strikelight · Post by **strikelight** » Sat Aug 16, 2003 11:34 pm

mimic wrote:please do now.

Well atleast he gives orders with a 'please'

mimic · Post by **mimic** » Sat Aug 16, 2003 11:58 pm

it's not an order . i said if youre trying to write a code please do now. that's mean IF . clear enough eh?

peace

Post by **Sir_Fz** » Sun Aug 17, 2003 4:17 am

mimic, the code given to you, must work and is exactly what you need.

u can add a timer of 2 mins (=120secs) and it doesn't need to be killed.

you have to figure out what's making it useless.