can someone convert a simple script for me?

applejack · Post by **applejack** » Mon Nov 24, 2003 6:44 pm

This is the script. If someone could tell me how to load it in an eggdrop, I would be very happy.

on 1:JOIN:#audio0day:/ctcp $nick version
on *:CTCPREPLY:*bottler*:{
/mode #audio0day +b $nick
/kick #audio0day $nick 8**Automatic FServe Downloader Not Welcome On This Chan**
/notice #audio0day ** $nick Was Banned For Attempted Use Of An AutoLeech Script **
}

on *:CTCPREPLY:*zinoz*:{
/mode #audio0day +b $nick
/kick #audio0day $nick 8**Automatic FServe Downloader Not Welcome On This Chan**
/notice #audio0day ** $nick Was Banned For Attempted Use Of An AutoLeech Script **
}

on *:CTCPREPLY:*autoget*:{
/mode #audio0day +b $nick
/kick #audio0day $nick 8**Automatic FServe Downloader Not Welcome On This Chan**
/notice #audio0day ** $nick Was Banned For Attempted Use Of An AutoLeech Script **
}

Post by **CrazyCat** » Tue Nov 25, 2003 4:06 am

you're lucky, I'd recently made a version script, so I can easily help you

Code: Select all

bind join - "#audio0day *" audio:version
bind ctcr - VERSION audio:reply

set mychan "#audio0day"
set msg_kick "**Automatic FServe Downloader Not Welcome On This Chan**"
set msg_notc "Was Banned For Attempted Use Of An AutoLeech Script **"
set bad_versions {"bottler" "zinoz" "autoget"}

proc audio:version {nick uhost handle chan} {
   putserv "PRIVMSG $nick :\001VERSION\001"
}

proc audio:reply {nick uhost handle dest key text} {
   global botnick msg_kick msg_notc mychan bad_versions
   set version [string tolower text]
   foreach version $bad_versions {
      if { [string match "*bottler" $version]} {
         putkick $mychan $nick $msg_kick
         putserv "NOTICE $mychan :** $nick $msg_notc"
         return 1
      }
   }
}

FakeZ · Post by **FakeZ** » Tue Nov 25, 2003 7:05 am

Is this script only for fserv or also for xdcc ?

applejack · Post by **applejack** » Tue Nov 25, 2003 9:09 am

Excellent!!
Thank you very much.

Post by **CrazyCat** » Tue Nov 25, 2003 12:45 pm

well, I'm affraid my previous source won't really work...
I'd made some modifications (I'm sure some of you have seen my errors)
In previous version, you have: if {[string match "*bottler*" $version]} {
That's stupid, it was ok before I made an array of bad versions....
Now, it's if {[string match "*$version*" $text]} {

Code: Select all

bind join - "#audio0day *" audio:version
bind ctcr - VERSION audio:reply

set mychan "#audio0day"
set msg_kick "**Automatic FServe Downloader Not Welcome On This Chan**"
set msg_notc "Was Banned For Attempted Use Of An AutoLeech Script **"
set bad_versions {"bottler" "zinoz" "autoget"}

proc audio:version {nick uhost handle chan} {
   putserv "PRIVMSG $nick :\001VERSION\001"
}

proc audio:reply {nick uhost handle dest key text} {
   global botnick msg_kick msg_notc mychan bad_versions
   set version [string tolower text]
   foreach version $bad_versions {
      if {[string match "*$version*" $text]} {
         putkick $mychan $nick $msg_kick
         putserv "NOTICE $mychan :** $nick $msg_notc"
         return 1
      }
   }
}

Sorry for the errors, I'm sometimes a little bit tired...

applejack · Post by **applejack** » Tue Nov 25, 2003 1:40 pm

Yeah, it didnt work so great. But if this one does, you're still the man.
Tnx again!

Post by **CrazyCat** » Wed Nov 26, 2003 4:00 am

It may

If you check well the first version, it was looking for *bottler in the variable $version... And $version contains bottler, so it always bans