+ Reply to Thread
Results 1 to 6 of 6

Thread: HELP - greet :)

  1. #1
    Junior Member vR|Ar is an unknown quantity at this point vR|Ar's Avatar
    Join Date
    Mar 2007
    Location
    PHIL
    Posts
    6
    Rep Power
    0

    HELP - greet :)

    Code:
    <vR|Ar> AI-HELP chanset greet welcome to our channel...
    <TESTIBOT> SET #chantest greet welcome to our channel...
    <vR|Ar> AI-HELP chanset +greet
    <TESTIBOT> SET #chantest +greet 
    * Attempting to rejoin channel #chantest
    * Rejoined channel #chantest
    -TESTIBOT- vR|Ar, welcome to our channel...
    CORE
    Code:
    proc join:greet {nick uhost hand chan} {
    	if {[channel get $chan greet] && [botisop $chan]} {
    	putserv "NOTICE $nick :$nick, [::stats::channel -get $chan greet]"
    	}
    }
    BINDS
    bind join -|- * join:greet
    i already put ( a:command -add greet pub:greet 1115 618 |N )

    Code:
    proc pub:greet  {hand chan args x mix} { 
    
    	set what [::stats::channel -get $chan greet]
                 blablablabla....
    }
    MY PROBLEM... please help me put some flood protection and
    to use %nick% and %chan%

    ive tried it but it doesnt work ... i need help.. thank you...
    Last edited by UniversaliA; 02-04-2007 at 12:08. Reason: use [CODE][/CODE]
    v R | A r

  2. #2
    Member AdrianK is on a distinguished road
    Join Date
    Jun 2004
    Location
    Canada
    Age
    19
    Posts
    163
    Rep Power
    0

    Code:
    set w [string map {%B \002 %b \00302 %r \00304 %% \003} $w]
    try

    Code:
    set what [string map {%chan% $chan %nick% $nick}]
    Thats in ure greet set

  3. #3
    TCB & Ratings projects Member, #Mythic representative arcade is on a distinguished road arcade's Avatar
    Join Date
    Jun 2004
    Location
    /dev/null
    Posts
    237
    Rep Power
    45

    add this proc to your code:

    Code:
    proc greet:parse {greet} {
    set greet [string map { %nick% $nick %chan% $chan} [split $greet]]
    return $greet
    }
    and in your join process replace this:
    Code:
    putserv "NOTICE $nick :$nick, [::stats::channel -get $chan greet]"
    with:
    Code:
    set greet [::stats::channel -get $chan greet]
    putserv "NOTICE $nick :[greet:parse $greet]"
    also hope you didn't change what AdrianK stated before, because as far as I can tell that line is from the a:tell process and it is used to define the colors that the bot will output your text in. So if you changed it, put it back :P

    Enjoy!
    Fuck oFF!

  4. #4
    TCB & Ratings projects Member, #Mythic representative arcade is on a distinguished road arcade's Avatar
    Join Date
    Jun 2004
    Location
    /dev/null
    Posts
    237
    Rep Power
    45

    Code:
    proc join:greet {nick uhost hand chan} {
    global agrflood
    if {[channel get $chan greet] && [botisop $chan] && ![info exists agrflood($nick,$chan)] && ![info exists agrflood($chan)]} {
    set greet [::stats::channel -get $chan greet]
    putserv "NOTICE $nick :[subst [greetarse $greet]]"
    set agrflood($nick,$chan) 1
    set agrflood($chan) 1
    utimer 10 [unset agrflood($nick,$chan)]
    utimer 5 [unset agrflood($chan)]
    }
    }
    a little update, added antiflood protection
    Fuck oFF!

  5. #5
    Junior Member vR|Ar is an unknown quantity at this point vR|Ar's Avatar
    Join Date
    Mar 2007
    Location
    PHIL
    Posts
    6
    Rep Power
    0

    script does not contain errors...

    but it wont unset..
    v R | A r

  6. #6
    Junior Member vR|Ar is an unknown quantity at this point vR|Ar's Avatar
    Join Date
    Mar 2007
    Location
    PHIL
    Posts
    6
    Rep Power
    0

    done

    Code:
    proc join:greet {nick uhost hand chan} {
    global agrflood 
    if {[channel get $chan greet] && [botisop $chan]} {
    if {[info exists agrflood($nick:$chan)]} {
        return 0
      }
    set greet [::stats::channel -get $chan greet]
    set agrflood($nick:$chan) 1
    timer 2[list unset agrflood($nick:$chan)]
    putserv "NOTICE $nick :[subst [greet:parse $greet]]"
    }
    }
    Thanks for the help.. its now working
    v R | A r

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

     

Similar Threads

  1. [Release] Greet
    By AdrianK in forum a&a light script
    Replies: 0
    Last Post: 12-12-2008, 17:58
  2. Eroare Botnet [Welcome,Leave,Greet]
    By SoLLo in forum Tcl scripting
    Replies: 1
    Last Post: 24-05-2007, 19:07
  3. Greet
    By AdrianK in forum a&a light script
    Replies: 0
    Last Post: 28-02-2007, 23:05
  4. Exista greet la join?
    By BizZu in forum #a&a
    Replies: 3
    Last Post: 27-09-2005, 18:29
  5. Need help with greet
    By arcade in forum Tcl scripting
    Replies: 21
    Last Post: 09-09-2005, 17:01

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts