Delay voice with modes +Dm on Undernet .TCL

Please Register to submit score.

Average Score	7.0
Scores Submitted	1
Date Added	May 14, 2008
Last Updated	Jun 27, 2008
Tags	ayuda cservice d delay dm eafs m voice xplorerundernet

Introduction

This tcl is easy of use just edit the channel name "#CHANGE_ME_NOW" and you could set the
mode to give to +o but i don't Suggest it, Leave it to +v :p

now copy paste this code in a .tcl file ( i suggest you to call the file EAFS.tcl,
and load it in your eggdrop

in this directory /eggdrop/scripts

then DON'T FORGET to add the name of the file in your eggdrop.conf
add this line

source scripts/EAFS.tcl
( if you named the file EAFS.tcl )

If you need any help or anything else abut it join channel #XploreR@undernet on Undernet and talk to xplorer

Cya

Grab the Code

#This Tcl Was Developped For Channel #Ayuda & #Cservice on undernet
#Its Made To Work With The Channel Modes +Dm
#Its To Prevent Join/Part Flood From Botnets and Lame Script Kiddow
#If You Need Help With This Tcl...
#Please Join #XploreR@Undernet And Talk To XploreR
#or Email me at XploreR@Live.ca and/or Admin@miRCScripts.ca

#This Tcl *ONLY* Work on ONE (1) Channel
#Enter the name below

set modeD(channel) "#CHANGE_ME_NOW"

#Set The mode to give, I SUGGEST you to keep it to "v"

set modeD(mode) "v"

# Binds

bind time - "* * * *" modeD:time
bind raw - 355 modeD:raw353
bind raw - 315 modeD:raw353
bind raw - 352 modeD:raw352

proc modeD:raw352 {from raw arg} { 
global modeD
     set host [lindex [split $arg] 3]
     set host "*!*@$host"
     set nick [lindex [split $arg] 5]
	if { [isban $host $modeD(channel)] || [isban [maskhost $host] $modeD(channel)] || [isban $host]|| [isban [maskhost $host]] } {
	#If Reached here The user is  in blacklist host!
	return
	}
	putquick "MODE $modeD(channel) +v $nick"
        putcmdlog "MODE $modeD(channel) +v $nick"
	
}

proc modeD:time {min hour day month year} {
    global modeD
    if {[validchan $modeD(channel)]} {
        if {[regexp {D|d} [lindex [getchanmode $modeD(channel)] 0]]} {
            putquick "NAMES -d $modeD(channel)" -next
	    putcmdlog "Doing -d "
        }
    }
}

proc modeD:raw353 {from raw arg} {
    global modeD
	putcmdlog "I am in modeD:raw353"
    set channel [lindex [split $arg] 2]
	putcmdlog "$arg"
    if {[set mode $modeD(mode)] == ""} {
        set mode "v"
    }
    if {![string equal -nocase $channel $modeD(channel)]} { return }
    putcmdlog "$arg"
    set list2 [lindex [split $arg :] 1]
    putcmdlog "$list2"
    foreach user [lindex [split $arg :] 1] {
        if {$user != "" && (![onchan $user $channel] || (![isop $user $channel] && ![isvoice $user $channel]))} {
	    putquick "WHO $user"
        }
    }
}

#########
putlog "Delay Voice +Dm XploreR@Live.Ca"

Comments

(5) RSS

Go to Bottom

Xpl0reR

Comments: 51

TCL Snippet: Delay voice with modes +Dm on Undernet .TCL
Posted on May 14, 2008 11:53 pm

Enjoy and please don't Rip :p

Comments: 795

TCL Snippet: Delay voice with modes +Dm on Undernet .TCL
Posted on May 15, 2008 1:41 am

Rofl what do nt ripp?...Don't post if you do not want ripping only way to stop it so makes no sense to say don't ripp:P

SnoooP

Comments: 349

TCL Snippet: Delay voice with modes +Dm on Undernet .TCL
Posted on May 15, 2008 4:16 am

lmao.... just hide from eugene :P~~~

mentalglitch

Comments: 27

TCL Snippet: Delay voice with modes +Dm on Undernet .TCL
Posted on May 15, 2008 10:33 am

lol not bad ;p

Xpl0reR

Comments: 51

TCL Snippet: Delay voice with modes +Dm on Undernet .TCL
Posted on May 16, 2008 2:47 pm

i was going to bet 20$ that EL would post a comment :p

/me is now waiting for napa to do so :p

Delay voice with modes +Dm on Undernet .TCL

Introduction

Grab the Code

Comments

Xpl0reR

My Snippet Tags

Contact

Friends (6)

Sponsors

		IRC Gatineau, Quebec, Canada
Last seen: Jul 01, 2008 Profile \| Website Friends (6) Snippets (13) Images (7) Comments Received (94) Comments Submitted (51)