Is there a way.... - mIRC Discussion Forums

Hi, i was wondering is there a way to check if a xdcc server is a real server and not a spamer just wanting to get a voice... I was wondering if you could do like a on join when a bot join send them a "xdcc list" and if it doesn't reply withing like 10 seconds it wouldn't get voiced i tried doing ON join then using ON NOTICE but it wasn't working it wouldn't validate it being a server i want something like asus69's (mircscripts.org member) Fserver voice script he made but dont know how to validate the bot

Code:

On @*:JOIN:#channelnamehere:{
   if (bot isin $nick) { 
    .ctcp $nick xdcc list 
    set %_bots $addtok(%_bots,$nick,46) 
    .timer 1 10 .set %_bots $remtok(%_bots,$nick,1,46)
  }
}
On *:NOTICE:*:?: {
  if ($istok(%_bots,$nick,46)) { 
    mode #channelnamehere +v $nick
  }
}

Something along those lines... if you have to manage more than one of these channels then use a loop to voice the bot in all the channels that you're opped in.

Thanks Dana, but theres a problem with that it voices them upon every pack they have so if they have 15 it voices them 15 times is there a way to get rid of this?

On *:NOTICE:*:?: if (($istok(%_bots,$nick,46)) && ($nick !isvoice #channelnamehere)) mode #channelnamehere +v $nick

Thanks, hammer and dana

Okay i have a problem here is the code i have after editing it etc:

Code:

  
On @*:JOIN:#213:{
  if ([e]-DCC isin $nick) &amp;&amp; ($nick !isvoice #213)) { 
    .ctcp $nick xdcc list 
    set %_bots $addtok(%_bots,$nick,46) 
    .timer 1 10 .set %_bots $remtok(%_bots,$nick,1,46)
  }
}

On *:NOTICE:*:?:{ 
  if (($istok(%_bots,$nick,46)) &amp;&amp; ($nick !isvoice #213)) { mode #213 +v $nick | /avoice $nick | halt }
}

What i want to do is after the first time add the nick to avoice then when he rejoins just voice him not xdcc list him no more i tried to do the ($nick isavoice #213) thing in the first if statemen and i get invalid any ideas?

Code:

On @*:JOIN:#213:{
  if ((!$avoice($nick)) &amp;&amp; ($nick !isvoice #213) &amp;&amp; ([e]-DCC isin $nick)) {
    .ctcp $nick xdcc list
     set %_bots $addtok(%_bots,$nick,46)
     .timer 1 10 .set %_bots $remtok(%_bots,$nick,1,46)  
  }
}

Hrm it still xdcc list's them

Well nvm guys i got it to work thanks a lot Hammer and Dana

here is what i have :

Code:

On @*:JOIN:#213:{
  if (%bot_done [ $+ [ $nick ] ] == $nick) { halt }
  if ((!$avoice($nick)) &amp;&amp; ($nick !isvoice #213) &amp;&amp; ([e]-DCC isin $nick)) {    
    .ctcp $nick xdcc list    
    set %_bots $addtok(%_bots,$nick,46)
    .set %bot_done $+ [ [ $nick ] ] $addtok(%_bots,$nick,46)
    .timer 1 10 .set %_bots $remtok(%_bots,$nick,1,46)    
  }
}

On *:NOTICE:*:?:{ 
  if (($istok(%_bots,$nick,46)) &amp;&amp; ($nick !isvoice #213)) { mode #213 +v $nick | /avoice $nick | halt }
}

O yea one more thing

is there a way i could add it to kick/tem ban them for so many minutes if they dont respond to xdcc list ?

if they dont respond then wouldnt they be normal ppl tryin to use the xdcc???? .. if u made that way ud kick everyone from the channel

No i want to kick the none real [e]-DCC guys cause spammers that join with the tag want a voice and they wont get it if they arent running a xdcc

Code:

On @*:JOIN:#213:{  
  if (%bot_done [ $+ [ $nick ] ] == $nick) { return }
  if ((!$avoice($nick)) &amp;&amp; ($nick !isvoice #213) &amp;&amp; ([e]-DCC isin $nick)) {
    .ctcp $nick xdcc list
    set %_bots $addtok(%_bots,$nick,46)
    .set %bot_done $+ [ [ $nick ] ] $addtok(%_bots,$nick,46)
    .timer 1 10 check.bots $nick #
  }
}
alias -l check.bots {
  .set %_bots $remtok(%_bots,$1,1,46)
  if ($1 !isvoice $2) {
    ban $2 $1 2
    kick $2 $1 Imposter
  }
}

Something along these lines.

Dana

P.S.: You'd still need to keep your On NOTICE event of course. I was just too lazy to copy & paste it.

Thank you Dana after editing some of your code i got it to work this is what i have :

Code:

On @*:JOIN:#213:{ 
  if (%bot_done [ $+ [ $nick ] ] == $nick) { halt }
  elseif ((!$avoice($nick)) &amp;&amp; ($nick !isvoice #213) &amp;&amp; ([e]-DCC isin $nick)) {
    .ctcp $nick xdcc list
    set %_bots $addtok(%_bots,$nick,46)
    .set %bot_done $+ [ [ $nick ] ] $nick
    .timer 1 10 check.bots $nick #
  }
}
alias -l check.bots {
  .set %_bots $remtok(%_bots,$1,1,46)
  if ($1 !isvoice $2) {
    ban $2 $1 2
    kick $2 $1 Imposter
  }
}

On *:NOTICE:*:?:{ 
  if (($istok(%_bots,$nick,46)) &amp;&amp; ($nick !isvoice #213)) { mode #213 +v $nick | /avoice $nick | auser 96 $1 | halt }
}

You're welcome

Eventhough I may be blind .. besides for the exchange of "return" for "halt", I don't see any difference between the code given.

As a sidenote, I would strongly recommend using "return" instead of "halt". Halt sometimes causes problems for other scripts in the same file.

Dana