Jump to content

Pete®tje

Members
  • Posts

    75
  • Joined

  • Last visited

Posts posted by Pete®tje

  1. What is the reason for releasing stuff? Some want to help others with it, some do it to get attention.

    Rippers won't stop before people stop releasing stuff.

    So want attention or help people? -> release

    Want that without being ripped? -> don't release

  2. Change "ctcpreply $nick TIME" into:

    for whispering the user that joins: msg $nick (wont work if whispers are switched off)

    for a message in the room: msg #

     

    And like Angelia said: change the = in "if ($nick = $me)" into ==

  3. You can use a regular expression in the on text event to catch both ;) and ;-) like this:

     

    ON $*:TEXT:/;\-?\)/g:#: {

     

    Besides that I think there is a } missing at the bottom of the code

     

    set %kick.count $calc(%kick.count +1) is the same as inc %kick.count and that should be placed before the kick to show the right number.

     

  4. This one should filter words that are in the file or that begin with it.

    alias filter {
     var %i = 1, %m = $lines(filteredwords.txt), %in = $1-, %s
     while (%i <= %m) {
       %s = $regsub(%in,/(\b $+ $read(filteredwords.txt,%i) $+ \S*\b)/gi,,%in)
       inc %i
     }
     return %in
    } 

  5. If you didn't change any special settings and you don't see the wireless drop, it probably isn't the router.

    I have the same gateway and that drops wireless every now and then. but then you lose all connections, not only msn chat stuff....

  6. Small addons or a few oneliners are never a problem. I am not going to write some helpdesk script. Too much work. Did you check the downloads here already? I think I saw one there.

  7. Yes there is.

     

    on *:text:Hello:?:msg $nick Hello, how are you?

     

    *edit: I use this as "whisper catch"

    on *:text:*:?:{
     inc -u60 %whisp. [ $+ [ $nick ] ]
     if (%whisp. [ $+ [ $nick ] ] == 1) msg $nick Whispering me is not very useful, because I am just a dumb bot.
     elseif (%whisp. [ $+ [ $nick ] ] == 2) msg $nick Didn't you read the first message? 
     elseif (%whisp. [ $+ [ $nick ] ] == 3) msg $nick Well $nick $+ , you are a bit hard headed. Whispering to me is of no use.
     elseif (%whisp. [ $+ [ $nick ] ] == 4) msg $nick :|
     elseif (%whisp. [ $+ [ $nick ] ] == 5) msg $nick :|:|
     elseif (%whisp. [ $+ [ $nick ] ] == 6) msg $nick Ok. You win.
     elseif (%whisp. [ $+ [ $nick ] ] == 7) msg $nick You won the contest "Who is more stupid than the bot?"
     elseif (%whisp. [ $+ [ $nick ] ] < 10) msg $nick :-#
     elseif (%whisp. [ $+ [ $nick ] ] < 13) msg $nick :-# :-#
     elseif (%whisp. [ $+ [ $nick ] ] < 16) msg $nick :-# :-# :-#
     elseif (%whisp. [ $+ [ $nick ] ] = 16) msg $nick I have had it with you :s:s:s
     elseif (%whisp. [ $+ [ $nick ] ] = 20) msg $comchan($nick,1) 
 $+ $nick whispered me for 20 times $&
       without getting a non-automatic response 
Is that Stupid or what??? :s:s:s
     echo -st Whisper from $nick : $1-
     .timerwhisp $+ $nick 1 2 window -c $nick 
    } 

  8. In my code you can replace the ^a-z by the characters you want to have removed. Don't forget some characters have a meaning in regular expressions and need to be preceeded by a \.

    on *:text:*:#:{
     var %r, %s = $regsub($1-,/([\(\&\%\#])/gi,,%r)
     if (flower isin %r) kick # $nick Bad word: flower
    }

    An other way to do it, is to put in the hex values of the characters to be removed. You can even use ranges there.

    on *:text:*:#:{
     var %r, %s = $regsub($1-,/([\x21-\x40\x7B-\xBF])/gi,,%r)
     if (flower isin %r) kick # $nick Bad word: flower
    }

    You can even combine them.

×
×
  • Create New...