egghelp.org community Forum Index
[ egghelp.org home | forum home ]
egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Join-part need help

 
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests
View previous topic :: View next topic  
Author Message
silverboy
Halfop


Joined: 11 Feb 2006
Posts: 55

PostPosted: Sat Feb 11, 2006 6:44 am    Post subject: Join-part need help Reply with quote

Can anyone help me convert this mrc to a tcl ??? plzzz

Code:

ON @*:PART:#:{
  IF ($nick isop #) { RETURN }
  SET -u60 %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1 )
  ; This just sets a variable: %rd.#channel.nick to keep track of the nbr of joins in 60secs
  IF ( %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 2) {
    ; This if statement checks to see if the variable is >= 4, the
if  x isop $chan { msg x ban $chan $nick $read(kicks.txt) 100 100 Join/part flood  }
  }
}
Back to top
View user's profile Send private message Visit poster's website
caesar
Mint Rubber


Joined: 14 Oct 2001
Posts: 3741
Location: Mint Factory

PostPosted: Sat Feb 11, 2006 7:19 am    Post subject: Reply with quote

Code:

setudef flag rdoor

bind part * * revolving:door

proc revolving:door {nick uhost hand chan txt} {
  if {![channel get $chan rdoor] || ![botisop $chan] || ![onchan X $chan]} return
  if {[unixtime] - [getchanjoin $nick $chan] <= 60} {
    putserv "PRIVMSG X :ban $chan *!*@[lindex [split $uhost @] 1] 100 100 Join/part flood"
  }
}

Just '.chanset #channel +/-rdoor' to activate/deactivate it.
_________________
Once the game is over, the king and the pawn go back in the same box.
Back to top
View user's profile Send private message
silverboy
Halfop


Joined: 11 Feb 2006
Posts: 55

PostPosted: Sat Feb 11, 2006 10:43 pm    Post subject: Reply with quote

Thanxxxxxxxxxxxxx that script was great but can u make it +r for 60 secs when it detects a revolving door flood...I really get irritated when the chan banlist gets full ( 45 bans ) but when the bot bans via X it can add ard 300 bans
Back to top
View user's profile Send private message Visit poster's website
caesar
Mint Rubber


Joined: 14 Oct 2001
Posts: 3741
Location: Mint Factory

PostPosted: Sun Feb 12, 2006 6:04 am    Post subject: Reply with quote

sure, just add after
Code:

putserv "PRIVMSG X :ban $chan *!*@[lindex [split $uhost @] 1] 100 100 Join/part flood"

this:
Code:

putquick "MODE $chan +r" -next
utimer 60 [list putquick "MODE $chan -r" -next]

and should do what you wanted.
_________________
Once the game is over, the king and the pawn go back in the same box.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    egghelp.org community Forum Index -> Script Requests All times are GMT - 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber