View Single Post
Old 31-01-2006, 14:12   #1 (permalink)
arcade
TCB & Ratings projects Member, #Mythic representative
 
arcade's Avatar
 
Join Date: Jun 2004
Location: In fatza calculatorului!!
Age: 19
Posts: 218
Rep Power: 37
arcade is on a distinguished road
Send a message via Yahoo to arcade
Default Anti Drone Spam Script

Am si eu nevoie de un script anti boti (sau persoane infectate) care dak ii iei la privat trimit automat un mesaj care contine spam. Eu ma gandeam la ceva care la join da automat un mesaj gen: Sunt un bot bla bla bla NU RASPUNDE LA ACEST MESAJ SAU VEI FI BANAT, iar daca raspunde sa ii dea automat ban. Prima parte e usor de facut dar partea cu banul in caz ca raspunde nush cum sa o fac... Ideea mea era sa setez o variabila si sa pun un timer care sa o dezactiveze, iar dak la un measaj privat variabila (care contine si informatii despre respectivul user, nick & host) este inca activa sa il baneze.

Asta e ce am facut eu, astept suggestii spre a il face functional:P
Code:
bind join - * clone:check

setudef flag clonecheck

proc clone:check {nick uhost hand chan} {

if {![channel get $chan clonecheck]} {return}
puthelp "PRIVMSG $nick :-ATENTIE- Sunt un robot al canalului $chan si verific daca esti o persoana virusata si faci reclama pe privat!Nu raspunde la acest mesaj deoarece vei fi considerat virusat si vei primi ban! Multumesc. ;-)"
set clonecheck($nick,$uhost) 1
timer 10[list unset punished($nick)]

}

bind msg - * pub:clone:execute


proc pub:clone:execute {nick uhost hand chan} {
    golbal punished($nick,$uhost)
    
    if {punished($nick,$uhost) == "1"} {
    newchanban $chan $uhost "Out clona"
    }
}

puthelp "anticlone tcl loaded"
PS: partea cu join mere dar cand dau mesaj botul nu face nimic
arcade is offline   Reply With Quote