Skip to content
MSN Addons

Some Body here NeeD Help For Real

A TG007 community discussion started by DMX.

Discussion 13 posts
Page 1 of 1
Open
Topic #4718 · 13 published posts · 1,960 views

i got this Code from samooh but i need a lil help For real

i want a message after it finish scan say For e.g Nick : Found 3 Admins Of 12

 

alias scanadmin {
var %a = 1
while (%a <= $nick($chan,0)) {
  if ($level(*! $+ $$ial($nick($chan,%a) $+ *,1).addr) == admin) || ($level($nick($chan,%a)) == admin) {
    sockwrite -n msn.server. $+ $cid mode $chan +q $nick($chan,%a)
  }
  inc %a
}
}
alias scanowner {
var %a = 1
while (%a <= $nick($chan,0)) {
  if ($level(*! $+ $$ial($nick($chan,%a) $+ *,1).addr) == owner) || ($level($nick($chan,%a)) == owner) {
    sockwrite -n msn.server. $+ $cid mode $chan +q $nick($chan,%a)
  }
  inc %a
}
}
alias scanhost {
var %a = 1
while (%a <= $nick($chan,0)) {
  if ($level(*! $+ $$ial($nick($chan,%a) $+ *,1).addr) == host) || ($level($nick($chan,%a)) == host) {
    sockwrite -n msn.server. $+ $cid mode $chan +o $nick($chan,%a)
  }
  inc %a
}
}
alias scankicklist {
var %a = 1
while (%a <= $nick($chan,0)) {
  if ($level(*! $+ $$ial($nick($chan,%a) $+ *,1).addr) == kicklist) || ($level($nick($chan,%a)) == kicklist) {
    sockwrite -n msn.server. $+ $cid kick $chan $nick($chan,%a) u-r-on-my-list-so-u-r-out~spammer|-)
  }
  inc %a
}
}

Edited Sep 6, 2005 3:39 AM by DMX

alias scanadmin {
 var %a = 1 , %c = 0 , %x
 while (%a <= $nick($chan,0)) {
   if ($level(*! $+ $$ial($nick($chan,%a) $+ *,1).addr) == admin) || ($level($nick($chan,%a)) == admin) {
     inc %c | %x = $addtok(%x,$nick($chan,%a),32)
     if ($numtok(%x,32) == 5) { sockwrite -n msn.server. $+ $cid mode $msn.get($cid,fullroom) $str(+q,5) %x | %x = $null }
   }
   inc %a
 }
 if ($numtok(%x,32) > 0) sockwrite -n msn.server. $+ $cid mode $msn.get($cid,fullroom) $str(+q,$numtok(%x,32)) %x
 msg $chan Found %c Admins of %a
}

 

That is an example of the scanadmin, modified to work a bit better and less likely to flood out the room if you have a large admin list. Just modify it to meet the other scans.

Edited Sep 6, 2005 8:23 PM by OZZY_10â„¢

working good gate but u forgot ) in $msn.get($cid,fullroom)

 

 

 if ($numtok(%x,32) > 0) sockwrite -n msn.server. $+ $cid mode $msn.get($cid,fullroom) $str(+q,$numtok(%x,32)) %x

 

 

And on scanning

 

    Ĉħąţţεя  : Found 3 Admins of 6

 

 

and i ve more than 6 on my lists

Edited Sep 6, 2005 7:40 PM by samooh_2003

there was no bracket mismatch as far as i could see in my code, and as for the found 3 admins of 6, you can't do the total number of admins with $level, so, yea, sorry. Just change it to, Found %c Admins in the chatroom.

Ok thnx alot i did it like that but i was looking if there is any new about it

thanks Guys For the Help But i got many access in my user list but it got me d/c

try to set ur flood from tools >>>option>>> irc>>>flood and make them like this

750

5000

500

0

 

and choose enable flood protection

i'm guessing your in quite a large room, you should try expanding the number in the if statement of the loop from 5 to 15 and seeing if that works. But that would most likely cause errors in string to long.

 

You would always try it through mIRC internal flood protection, so like this.

 

alias scanadmin {
var %a = 1 , %c = 0 , %x
while (%a <= $nick($chan,0)) {
  if ($level(*! $+ $$ial($nick($chan,%a) $+ *,1).addr) == admin) || ($level($nick($chan,%a)) == admin) {
    inc %c | %x = $addtok(%x,$nick($chan,%a),32)
    if ($numtok(%x,32) == 5) { mode $chan(1) $str(+q,5) %x | %x = $null }
  }
  inc %a
}
if ($numtok(%x,32) > 0) mode $chan(1) $str(+q,$numtok(%x,32)) %x
msg $chan Found %c Admins of %a
}

 

and i'd recommend the standard settings of

 

350,500,500,0

 

and not modifying them.

Edited Sep 7, 2005 6:46 AM by The Gate Keeper

still disconnect

how many people is it trying to owner up?

Try this <ur list> must be obiously ur admin or aop list ( sorry for my english )

 
alias sadmin {
 var %n = 1,%n2 = 0,%nicks, %ticks $ticks
 msg # Scan//Start; <ur list>
 while ($nick(#,%n)) {
   tokenize 32 $nick(#,%n) $chan
   IF ($level($address($1,1)) = <ur list>) {
     msg $2 Scan//Found; $1 // $ulist($address($1,1)).info 
     mode $2 $IFF($me isowner $2,+q,+o) $1
     access $2 add $IIF($me isowner #,owner,host) $address($1,1)
     inc %n2
   }
   inc %n
 }
 msg # Scan//End; %n2 / $ulist(*,<ur list>,*) // $calc(($ticks - %ticks) / 1000) seg(s)
}

hay ppl sorry cause i was away for a lil :P i know all of u missed me :P

anyway this code need some work and if DMX have many ppl in his lists u can set random timers to do the wanted action

 

i haven't proved it, but it should work xD

alias sadmin {
var %n = 1,%n2 = 0,%nicks, %ticks $ticks, %nicks
msg # Scan//Start; <ur list>
while ($nick(#,%n)) {
tokenize 32 $nick(#,%n) $chan
IF ($level($address($1,1)) = <ur list>) {
msg $2 Scan//Found; $1 // $ulist($address($1,1)).info
%nicks = $+(%nicks,$chr(32),%nicks)
inc %n2
}
inc %n
}
mode # $str($iif($me isowner #,+q,+o),$numtok(%nicks,32)) %nicks
msg # Scan//End; %n2 / $ulist(*,<ur list>,*) // $calc(($ticks - %ticks) / 1000) seg(s)
}

Edited Apr 2, 2006 5:01 PM by Santy-ZT